かちゅ〜しゃからスレ立てテスト

1 名前：学怪員＠書いてるひと★ 投稿日：2002/06/02 (日) 03:02 iD:???

テスト(´･ω･`)

2 名前：学怪員 投稿日：2002/06/02 (日) 18:00 iD:wHaNtAVw

sub port
{ # Socketモジュールは使用しない。
return if $ENV{'REMOTE_ADDR'} =~ /^(?:127\..*|192\..*|localhost)$/;
my @port_list = split ',', ($_[0]->conf('check_port_list') || '80,8080');
my $time_out = $_[0]->conf('check_port_timeout') || 1;
my $port; my $flag;
foreach(@port_list){
eval{
$| = 1;
local $SIG{'ALRM'} = sub{ die 'alarm'; };
eval{alarm $time_out;};
my $addr = gethostbyname( $ENV{'REMOTE_ADDR'} ) || die 'host';
my $sock_addr = pack 'SnA4x8', 2, $_, $addr;
socket( SOCK, 2, 1, 6 ) || die 'socket';
connect( SOCK, $sock_addr ) || die 'connect';
die 'open';
};
$flag=1, $port = $_, last if $@ =~ /open/g;
}
wantarray ? ($flag,$port) : $flag ;
}

3 名前：学怪員 投稿日：2002/08/30 (金) 09:57 iD:???

てすてす

4 名前：学怪員 投稿日：2002/08/30 (金) 19:31 iD:???

てすてす

read.cgi ver4.20 (2001/7/31)