I download a online game source and uploaded and i want to run it. but i know nothing about cgi, when i visit it says:
It looks like there was an error:
Your script produced this error:
'gethostbyaddr' trapped by operation mask at ebs_sub3.cgi line 22.
Compilation failed in require at ebs.cgi line 27.
here is my opening:
========================================
sub FRAME{
print <<" -----END-----";
Content-type: text/html
<html><head>
<title>»ÒÄñ×ÊѶ¡ª¡ªÎÞ¾¡µÄÕ½¶·</title></head>
<frameset rows="$UPPER_FRAME,*">
<frame name="Main" src="$MAIN_SCRIPT?LOGIN">
<frame name="Sub" src="$MAIN_SCRIPT?LOG0">
</frameset>
</html>
-----END-----
}
sub STATUS{
&DBM_CONVERT('P',"$FORM{pname}" if !$FORM{'Cmode'};
&DBM_CONVERT('C',"$PL_VALUES[5]" if $PL_VALUES[5];
&ERROR('Óû§Ãû³ö´í','²»ÄܵǼ') if !@PL_VALUES;
&ERROR('ÃÜÂë´íÎó','ÇëÖØеǼ') if crypt ($FORM{'pass'},eb) ne "$PL_VALUES[2]";
&REPAIR(PL);
if ($FORM{'login'}){
if ($ENV{'REMOTE_HOST'}){$host="$ENV{'REMOTE_HOST'}";}else{$ipad=pack('C4',split(/\./,$ENV{'REMOTE_ADDR'}));
$host = gethostbyaddr($ipad,2);}
dbmopen (%L,"$DBM_L",0666);
foreach (sort {$b <=> $a} keys %L){$lc++;delete $L{"$_"} if $lc > 51;}
$L{"$DATE"}="$FORM{'pname'}!$ENV{'REMOTE_ADDR'}!$host";
dbmclose %L;
==============================================
i don't know what's wrong, help plz
It looks like there was an error:
Your script produced this error:
'gethostbyaddr' trapped by operation mask at ebs_sub3.cgi line 22.
Compilation failed in require at ebs.cgi line 27.
here is my opening:
========================================
sub FRAME{
print <<" -----END-----";
Content-type: text/html
<html><head>
<title>»ÒÄñ×ÊѶ¡ª¡ªÎÞ¾¡µÄÕ½¶·</title></head>
<frameset rows="$UPPER_FRAME,*">
<frame name="Main" src="$MAIN_SCRIPT?LOGIN">
<frame name="Sub" src="$MAIN_SCRIPT?LOG0">
</frameset>
</html>
-----END-----
}
sub STATUS{
&DBM_CONVERT('P',"$FORM{pname}" if !$FORM{'Cmode'};
&DBM_CONVERT('C',"$PL_VALUES[5]" if $PL_VALUES[5];
&ERROR('Óû§Ãû³ö´í','²»ÄܵǼ') if !@PL_VALUES;
&ERROR('ÃÜÂë´íÎó','ÇëÖØеǼ') if crypt ($FORM{'pass'},eb) ne "$PL_VALUES[2]";
&REPAIR(PL);
if ($FORM{'login'}){
if ($ENV{'REMOTE_HOST'}){$host="$ENV{'REMOTE_HOST'}";}else{$ipad=pack('C4',split(/\./,$ENV{'REMOTE_ADDR'}));
$host = gethostbyaddr($ipad,2);}
dbmopen (%L,"$DBM_L",0666);
foreach (sort {$b <=> $a} keys %L){$lc++;delete $L{"$_"} if $lc > 51;}
$L{"$DATE"}="$FORM{'pname'}!$ENV{'REMOTE_ADDR'}!$host";
dbmclose %L;
==============================================
i don't know what's wrong, help plz