#! /usr/local/bin/perl
#アクセス制限ユーティティVer1.0
#97/3/19日作成...
#著作権はゆいちゃっとが所有しております。
#利用に当たっては、簡単なメール(yui@cup.com)とリンクをお願いしたいんですけどぉ...（笑）
#ユーティリティCGIの名前(kill.cgi)とパスワード名を以下で設定する。
#ホスト名登録ファイルkillfileの名前も
#必ず自分のオリジナルな名前に変更すること！！。
#
$host_file = './kill.dat';
$cgi='kill.cgi';#このCGIの名前
$passwd='vampire';
#$passwd2='vampire2';#いくつかのパスワードをつかうなら、#を外す..かなり下のとこも同様に外して有効にする。
#$passwd3='vampire3';
$clear='clearfile';#ホスト名のかわりに入力すると登録ファイルを初期化します。
&decode;
if($host){ &killhost;}
&html;
exit;
sub decode{
@pairs = split(/&/,$ENV{'QUERY_STRING'});
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
#$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\n//g;
$FORM{$name} = $value;
}
$pass = $FORM{'pass'};
$host = $FORM{'host'};
}#decode end
sub html{
print "Content-type: text/html\n\n";
print <<"_HTML_";
アクセス制限ゆーてぃりてぃ〜