- 721 名前：デフォルトの名無しさん mailto:sage [02/02/23 01:41]
- CGI作ったよ
誰かどっかに置いてくれ(笑
#!/usr/bin/perl
use CGI;
use IO::Socket;
my $cgi = new CGI;
print $cgi->header(-type=>'text/html; CHARSET=Shift_JIS');
print "<html><head><title>Zigmo Checker</title></head><body><p>\n";
my $host = $cgi->remote_host();
my $port = 6340;
my $socket = IO::Socket::INET->new(PeerAddr => $host, PeerPort => $port, Proto => 'tcp');
if (defined($socket)) {
print "${host}:${port} は外部からアクセス可能\です。";
} else {
print "${host}:${port} は外部からアクセス不可能\です。";
$socket->close();
}
print "</p></body></html>\n";
exit(0);
|
 |
