Please help me .. i want to have a black background on this page ..
i want a BODY tag i tryed a lot but when i change something that comes that ugly 505Error
Does someone know how to change the Backgroung from White to black ????
not the tables back just the body back ..
Please help me someone ..
$featuretitle = "<b><a href=\"$adminprogram?action=enter&password=$inpassword\">Admin Center</a>/ Create New List</b><p>";
print "Content-type: text/html\n\n";
&part1;
if ($inpassword eq "$adminpass") {
$output .= "$featuretitle\n";
opendir (MEMBERSDIR, "members");
@memberssdata = readdir(MEMBERSDIR);
closedir (MEMBERSDIR);
@sortedmembersdata = sort(@memberssdata);
@sortedmembersdata = grep(/txt/,@sortedmembersdata);
foreach $file (@sortedmembersdata) {
($important,$trash) = split (/\./,$file);
($memberid,$clickcount,$lasthit,$status) = split("-",$important);
$membersfile = "members/$memberid-$clickcount-$lasthit-$status.$trash";
open(FILE,"$membersfile");
flock(FILE,2);
@memberdata = <FILE>;
close(FILE);
($memberid,$membername,$memberurl,$contactname,$contactemail) = split(/\|/,@memberdata[0]);
$rearrange = ("$clickcount|$membername|$memberurl");
push(@newdata, $rearrange);
}
@sortdata = sort numerically (@newdata);
@sortdata = reverse(@sortdata);
$topsites .= "<table align=center width=\"$tablewidth\" cellpadding=\"2\" cellspacing=\"1\" border=\"0\">\n";
$topsites .= "<tr><td colspan=3 bgcolor=\"$tablecolor\">\n";
$topsites .= "<font size=\"2\" face=\"verdana,arial\">\n";
$topsites .= "<b>$title</b>\n";
$topsites .= "</td></tr>\n";
$topsites .= "<tr><td width=10%>\n";
$topsites .= "<font size=1 face=\"verdana,arial\">\n";
$topsites .= "Rang\n";
$topsites .= "</td><td width=75%>\n";
$topsites .= "<font size=1 face=\"verdana,arial\">\n";
$topsites .= "Website\n";
$topsites .= "</td><td width=100 align=center width=15%>\n";
$topsites .= "<font size=1 face=\"verdana,arial\">\n";
$topsites .= "HITS\n";
$topsites .= "</td></tr>\n";
$n = 1;
$realcount = 0;
$passhits = "";
for (@sortdata) {
($clickcount,$membername,$memberurl) = split(/\|/,$_);
if ($realcount <= $maxlinkpartners) {
unless ($clickcount eq "0") {
$topsites .= "<tr><td bgcolor=\"$tablecolor2\" width=10%>\n";
$topsites .= "<font size=2 face=\"verdana,arial\">\n";
$topsites .= "$n\n";
$topsites .= "</td><td bgcolor=\"$tablecolor2\" width=75%>\n";
$topsites .= "<font size=2 face=\"verdana,arial\">\n";
$topsites .= "<a href=\"$memberurl\">$membername</a>\n";
$topsites .= "</td><td bgcolor=\"$tablecolor\" width=100 align=center width=15%>\n";
$topsites .= "<font size=2 face=\"verdana,arial\">\n";
$topsites .= "$clickcount\n";
$topsites .= "</td></tr>\n";
$realcount++;
}
}
if ($clickcount eq "$passhits") {
$passhits = $clickcount;
}
else {
$n++;
}
}
$topsites .= "<tr><td colspan=3>\n";
$topsites .= "<font size=\"1\" face=\"verdana,arial\">\n";
$topsites .= "<a href=\"$adminurl/$joinprogram\">Deine URL hier?</a>\n";
$topsites .= "</td></tr>\n";
$timeisnow = time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($timeisnow);
$mon++;
$ampm = "am";
if ($hour > 11) { $ampm = "pm"; }
if ($hour > 12) { $hour = $hour - 12; }
if ($hour == 0) { $hour = 12; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$lastupdate = "$hour:$min $ampm ET on $mon.$mday.$year";
$topsites .= "<tr><td bgcolor=\"$tablecolor\" colspan=3>\n";
$topsites .= "<font size=\"1\" face=\"verdana,arial\">\n";
$topsites .= "Letztes Update: $lastupdate\n";
$topsites .= "</td></tr>\n";
$topsites .= "<tr><td colspan=3 align=center>\n";
$topsites .= "<font size=\"1\" face=\"verdana,arial\">\n";
$topsites .= "Powered by <a href=\"http://www.indexfinger.com/\">Link Partner v3.1</a>\n";
$topsites .= "</td></tr>\n";
$topsites .= "</table>\n";
open(GETPAGE,"$viewtemplate");
flock(GETPAGE,2);
@templatepage = <GETPAGE>;
close(GETPAGE);
foreach $line (@templatepage) {
$body .= "$line";
}
$body =~ s/\$post/$topsites/;
open(NEWPAGE,">$listingpage");
flock(NEWPAGE,2);
print NEWPAGE "$body";
close(NEWPAGE);
$output .= "<b><u>Status Report</u></b><p>\n";
$output .= "<ul>\n";
$output .= "<li><b>New Link Partner List Created</b><p>\n";
$output .= "<a href=\"$listingurl\">Click here to view it</a><p>\n";
$output .= "</ul>\n";
}
else {
$wrongpass = "yes";
&adminpassform;
}
&part2;
print "$output";
exit;
i want a BODY tag i tryed a lot but when i change something that comes that ugly 505Error
Does someone know how to change the Backgroung from White to black ????
not the tables back just the body back ..
Please help me someone ..
Code:
# Begin Program. $featuretitle = "<b><a href=\"$adminprogram?action=enter&password=$inpassword\">Admin Center</a>/ Create New List</b><p>";
print "Content-type: text/html\n\n";
&part1;
if ($inpassword eq "$adminpass") {
$output .= "$featuretitle\n";
opendir (MEMBERSDIR, "members");
@memberssdata = readdir(MEMBERSDIR);
closedir (MEMBERSDIR);
@sortedmembersdata = sort(@memberssdata);
@sortedmembersdata = grep(/txt/,@sortedmembersdata);
foreach $file (@sortedmembersdata) {
($important,$trash) = split (/\./,$file);
($memberid,$clickcount,$lasthit,$status) = split("-",$important);
$membersfile = "members/$memberid-$clickcount-$lasthit-$status.$trash";
open(FILE,"$membersfile");
flock(FILE,2);
@memberdata = <FILE>;
close(FILE);
($memberid,$membername,$memberurl,$contactname,$contactemail) = split(/\|/,@memberdata[0]);
$rearrange = ("$clickcount|$membername|$memberurl");
push(@newdata, $rearrange);
}
@sortdata = sort numerically (@newdata);
@sortdata = reverse(@sortdata);
$topsites .= "<table align=center width=\"$tablewidth\" cellpadding=\"2\" cellspacing=\"1\" border=\"0\">\n";
$topsites .= "<tr><td colspan=3 bgcolor=\"$tablecolor\">\n";
$topsites .= "<font size=\"2\" face=\"verdana,arial\">\n";
$topsites .= "<b>$title</b>\n";
$topsites .= "</td></tr>\n";
$topsites .= "<tr><td width=10%>\n";
$topsites .= "<font size=1 face=\"verdana,arial\">\n";
$topsites .= "Rang\n";
$topsites .= "</td><td width=75%>\n";
$topsites .= "<font size=1 face=\"verdana,arial\">\n";
$topsites .= "Website\n";
$topsites .= "</td><td width=100 align=center width=15%>\n";
$topsites .= "<font size=1 face=\"verdana,arial\">\n";
$topsites .= "HITS\n";
$topsites .= "</td></tr>\n";
$n = 1;
$realcount = 0;
$passhits = "";
for (@sortdata) {
($clickcount,$membername,$memberurl) = split(/\|/,$_);
if ($realcount <= $maxlinkpartners) {
unless ($clickcount eq "0") {
$topsites .= "<tr><td bgcolor=\"$tablecolor2\" width=10%>\n";
$topsites .= "<font size=2 face=\"verdana,arial\">\n";
$topsites .= "$n\n";
$topsites .= "</td><td bgcolor=\"$tablecolor2\" width=75%>\n";
$topsites .= "<font size=2 face=\"verdana,arial\">\n";
$topsites .= "<a href=\"$memberurl\">$membername</a>\n";
$topsites .= "</td><td bgcolor=\"$tablecolor\" width=100 align=center width=15%>\n";
$topsites .= "<font size=2 face=\"verdana,arial\">\n";
$topsites .= "$clickcount\n";
$topsites .= "</td></tr>\n";
$realcount++;
}
}
if ($clickcount eq "$passhits") {
$passhits = $clickcount;
}
else {
$n++;
}
}
$topsites .= "<tr><td colspan=3>\n";
$topsites .= "<font size=\"1\" face=\"verdana,arial\">\n";
$topsites .= "<a href=\"$adminurl/$joinprogram\">Deine URL hier?</a>\n";
$topsites .= "</td></tr>\n";
$timeisnow = time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($timeisnow);
$mon++;
$ampm = "am";
if ($hour > 11) { $ampm = "pm"; }
if ($hour > 12) { $hour = $hour - 12; }
if ($hour == 0) { $hour = 12; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$lastupdate = "$hour:$min $ampm ET on $mon.$mday.$year";
$topsites .= "<tr><td bgcolor=\"$tablecolor\" colspan=3>\n";
$topsites .= "<font size=\"1\" face=\"verdana,arial\">\n";
$topsites .= "Letztes Update: $lastupdate\n";
$topsites .= "</td></tr>\n";
$topsites .= "<tr><td colspan=3 align=center>\n";
$topsites .= "<font size=\"1\" face=\"verdana,arial\">\n";
$topsites .= "Powered by <a href=\"http://www.indexfinger.com/\">Link Partner v3.1</a>\n";
$topsites .= "</td></tr>\n";
$topsites .= "</table>\n";
open(GETPAGE,"$viewtemplate");
flock(GETPAGE,2);
@templatepage = <GETPAGE>;
close(GETPAGE);
foreach $line (@templatepage) {
$body .= "$line";
}
$body =~ s/\$post/$topsites/;
open(NEWPAGE,">$listingpage");
flock(NEWPAGE,2);
print NEWPAGE "$body";
close(NEWPAGE);
$output .= "<b><u>Status Report</u></b><p>\n";
$output .= "<ul>\n";
$output .= "<li><b>New Link Partner List Created</b><p>\n";
$output .= "<a href=\"$listingurl\">Click here to view it</a><p>\n";
$output .= "</ul>\n";
}
else {
$wrongpass = "yes";
&adminpassform;
}
&part2;
print "$output";
exit;