ぜろちゃんねるスクリプト総合質問スレ Part3

836 ：名無しさん＠ぜろちゃんねる：03/10/16 18:21 ID:???

galadriel.plの関数IsOpenPortとhAlarmを丸ごと削除
galadriel.plの関数IsProxyのforeachブロックを削除

は、

837 ：名無しさん＠ぜろちゃんねる：03/10/16 18:23 ID:???

foreach (@pList){
if (IsOpenPort($_)){ # ポートが開いているか
return $_;
}
}
return 0;
}
return 1; # 生IP
}

を消して、

838 ：名無しさん＠ぜろちゃんねる：03/10/16 18:24 ID:???

#------------------------------------------------------------------------------------------------------------
#
# ポートチェック - IsOpenPort
# --------------------------------------
# 引　数：$port : ポート番号
# 戻り値：ポートが開いていれば1
#
#------------------------------------------------------------------------------------------------------------
sub IsOpenPort
{
my ($port) = @_;
my ($inad,$scad);

eval{
$SIG{'ALRM'} = "hAlarm"; # ハンドラ設定
alarm(5); # timeout5秒に

use Socket;
socket(SOCK,PF_INET,SOCK_STREAM,0) || die("Socket Error\n");
$inad = inet_aton($ENV{'REMOTE_ADDR'}) || die("Iaddr Error\n");
$scad = pack_sockaddr_in($port, $inad);
connect(SOCK, $scad) || die("Connect Error\n");
select(SOCK);
$|=1;
select(STDOUT);
die("OUT!!!\n");
close(SOCK);
alarm(0);
};

if ($@ =~ /OUT/){ return 1; }
else{ return 0; }
}
と、

839 ：名無しさん＠ぜろちゃんねる：03/10/16 18:25 ID:???

#------------------------------------------------------------------------------------------------------------
#
# アラームシグナルハンドラ - hAlarm
# --------------------------------------
# 引　数：-
# 戻り値：-
#
#------------------------------------------------------------------------------------------------------------
sub hAlarm
{
die("Alarm...\n");
}

を消せばいいんですね。