Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, nik@mycosmos.gr and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
--------------------------------------------------------------------------------
Apache/2.0.44 (Win32) mod_perl/1.99_08 Perl/v5.8.0 Server at dell Port 80
this is my index.pl script. pls it works ok except the host thing can u correct it pls?
#!perl
use warnings;
use socket;
use DBI;
use DBD::mysqlPP;
use CGI qw(:standard);
print header;
print start_html("Ôáéíßåò DivX by Nik");
$db = DBI->connect("DBI:mysqlPP:database=db_nik;host=localhost") or
$db = DBI->connect("DBI:mysqlPP:database=db_nik;host=nik.wvbuzz.com", "nik", "macgyver", {RaiseError => 1});
@tainies=();
open(IN, "tainies.txt");
while (<IN>) { push (@tainies, $_); }
$xronos = localtime; $i=0;
$ip = $ENV{REMOTE_ADDR};
@numbers = split(/\./, $ip);
$ip_number = pack("C4", @numbers);
($pc) = (gethostbyaddr($ip_number, 2))[0];
$host = $gethostbyaddr($ip, 2);
print "<body background=/pics/anemos.jpg>";
print "<font size=5 color=Yellow>";
print "<center><font size=5 color=Cyan>- Ðáñáããåëßá Ôáéíéþí DivX by Nik! - <br>";
print "<center><font size=4 color=Pink>* ÅëÜ÷éóôç ðáñáããåëßá åßíáé 5 ôáéíßåò ìå êüóôïò 4 euro áíÜ cd *<br>";
print "<center><font size=4 color=Pink>* Ãéá ðáñáããåëßåò Üíù ôùí 10 ôáéíéþí ôï êüóôïò áíÜ cd êáôåâáßíåé óôá 3 euro *<br>";
print "<center><font size=4 color=Pink>* Ãéá ó÷üëéá êáé ðáñáôçñÞóåéò üóïí áöïñÜ ôéò ôáéíßåò ðáñáêáëþ ãñÜøå ìïõ óôï nik0s\@mycosmos.gr *<br><br>";
print "<form action=check.pl method=post>";
print "<table border=1 width=40% align=Center bordercolor=Yellow style=border-style: solid; border-width: 5 background=/pics/blue.jpg>";
print "<tr>";
print "<td align=center> <font size=5 color=LightGreen> Ôßôëïò Ôáéíßáò </td>";
print "<td align=center> <select name=dvd>";
foreach (@tainies) { print "<option> $_ </option>" };
print "</select> </td>";
print "</tr>";
print "<tr><td colspan =2 align=center> <input type=submit name=emfanisi value='Íáß, èÝëù êáé áõôÞí!'> </td></tr>";
print "</table><br><br><br><br>";
print "<table border=1 width=40% align=Center bordercolor=Yellow style=border-style: solid; border-width: 5 background=/pics/blue.jpg>";
print "<tr> <td align=center> <input type=submit name=kataxorisi value='ÈÝëù íá ðáñáããåßëù áõôÝò ôéò ôáéíßåò'> </td></tr>";
print "<tr> <td align=center> <input type=submit name=emfanisi value='ÈÝëù íá äþ ðïéÝò ôáéíßåò Ý÷ù ðáñáããåßëåé'> </td></tr>";
print "<tr> <td align=center> <input type=submit name=diagrafi value='ÈÝëù íá ìåôáâÜëëù ìéá ôñÝ÷ïõóá ðáñáããåëßá'> </td></tr>";
print "</table>";
print "</form><br><br><br><br>";
print "<form action=eggrafi.php method=post>";
print "<input type=submit name=eggrafi value='ÅããñáöÞ ÌÝëïõò'>";
print "</form>";
print "<form action=progs.php method=post>";
print "<input type=submit name=progs value='ÄéÜöïñá Ðáé÷íßäéá êáé ÐñïãñÜììáôá'>";
print "</form>";
print "<form action=logos.php method=post>";
print "<input type=submit name=logos value='ÈáõìÜóéï Ðíåõìáôéêü êáé Øõ÷ùöåëÝò Êåßìåíï!'>";
print "</form><br>";
print "<center><font size=4 color=Cyan>";
@diary = open(IN, "diary.txt");
while (<IN>) { push (@diary, $_); }
$quote=$diary[int(rand(@diary))];
print "<table border=1 width=80% align=Center bordercolor=Yellow style=border-style: solid; border-width: 5 background=/pics/blue.jpg>";
print "<tr>";
print "<td> <center><font size=4 color=Cyan> $quote </td>";
print "</tr>";
print "</table><br>";
print "<center><font color=Orange> $xronos";
print "<center><font color=Pink> $host";
$sql = "UPDATE counter SET visitor=visitor+1";
$db->do($sql);
$st = $db->prepare( q{SELECT visitor FROM counter});
$st->execute();
@visitor = $st->fetchrow_array();
print "<center><font size=5 color=Yellow> $visitor[0]";
print "<center><a href=personal><img src=/pics/cross.gif></a>";
mail ("nik0s\@mycosmos.gr", "Åðßóêåøç ÁôæÝíôáò $host => $visitor[0]", "", "From: 007\@spy.gr");