新機能要望スレ

389 ：7M. ◆7M./4Uw. ：2003/02/10 21:03 ID:???

>>387
いえ、外ですよん。
こんな感じで、↓

sub IsProxyCgi
{
my ($host) = @_;
my @pList;

open(PROXY,"<./info/proxy.cgi");
@pList = <PROXY>;
close(PROXY);

foreach (@pList){
if (/($host)/){ return 1; }
}
return 0;
}
#------------------------------------------------------------------------------
if(-e "./info/ngword.cgi"){
open (NG,"./info/ngword.cgi");
foreach (<NG>){
chop;
return (101,"") if ($FORMINFO{'MESSAGE'} =~ /$_/);#
}
close(NG);
}