【Perl 】初心者コーナーPart5
これって
どこかまちがってますか？
22時間かかってもわかりません
どなたかキツイ指摘を・・・
環境変数のスクリプトです
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html>\n\n";
print "<title>Proxy checkr</title>\n;
print '<body bgcolor="black" text="dimgray" link="dimgray" alink="dimgray" vlink="orangered">'\n
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
$red = '<font color="silver">';
$endf = '</font>';
if ($host eq "") { $host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr }
print "<br><br>\n;
print "$host\n" ;
if ($host =~ /(proxy|prox|squid|cache|www|dns|ns|gateway|gatekeeper|gate|^gw|^fw|firewall)/i){
print "$red<- テスト $endf <br>\n";
$pflag = 1;
}
else {
print "<- テスト<br>\n";
$pflag = 0;
}
$via = $ENV{'HTTP_VIA};
if( $via != "") {
print "$red HTTP_VIA テスト -> $via $endf<br>\n;
print "テスト<br>\n";
$via_flag =1;
}
else {
print "テスト<br.\n;
$via_flag = 0;
}
$client = $ENV{'HTTP_CLINT_IP'};
if( $client != "" ) {
print "$red CLENTテスト-> $clint $endf<br>\n;
}
else {
if ($via_flag == 1) {print "テスト"<br>\n";}
else {
if ( $pflag == 1 ) {print "テスト<br>\n"; }
else { print "テスト？<br>\n";
}
}
print "\n</body>\n";
print "</html>\n\n";
exit;
どこかまちがってますか？
22時間かかってもわかりません
どなたかキツイ指摘を・・・
環境変数のスクリプトです
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<html>\n\n";
print "<title>Proxy checkr</title>\n;
print '<body bgcolor="black" text="dimgray" link="dimgray" alink="dimgray" vlink="orangered">'\n
$host = $ENV{'REMOTE_HOST'};
$addr = $ENV{'REMOTE_ADDR'};
$red = '<font color="silver">';
$endf = '</font>';
if ($host eq "") { $host = gethostbyaddr(pack('C4',split(/\./,$addr)),2) || $addr }
print "<br><br>\n;
print "$host\n" ;
if ($host =~ /(proxy|prox|squid|cache|www|dns|ns|gateway|gatekeeper|gate|^gw|^fw|firewall)/i){
print "$red<- テスト $endf <br>\n";
$pflag = 1;
}
else {
print "<- テスト<br>\n";
$pflag = 0;
}
$via = $ENV{'HTTP_VIA};
if( $via != "") {
print "$red HTTP_VIA テスト -> $via $endf<br>\n;
print "テスト<br>\n";
$via_flag =1;
}
else {
print "テスト<br.\n;
$via_flag = 0;
}
$client = $ENV{'HTTP_CLINT_IP'};
if( $client != "" ) {
print "$red CLENTテスト-> $clint $endf<br>\n;
}
else {
if ($via_flag == 1) {print "テスト"<br>\n";}
else {
if ( $pflag == 1 ) {print "テスト<br>\n"; }
else { print "テスト？<br>\n";
}
}
print "\n</body>\n";
print "</html>\n\n";
exit;
|
|
|