「クランメンバー専用」の編集履歴(バックアップ)一覧はこちら
「クランメンバー専用」(2006/05/14 (日) 06:22:10) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
&html(#! /usr/bin/perl# ↑ Perl処理系のパスを指定。不明な場合はプロバイダかサーバー管理者に確認。# <iMODE/J-PHONE対応> 簡易パスワード認証 [ビル・ゲイト]# - Version 2.01 / Nov 11, 2002 / Freesoft
# - Copyright(C)2002 WEB POWER. All Rights Reserved.
# - 最新版・最新情報は <http://www.webpower.jp/>
# <<初期設定とサーバーへの設置方法>> (番号順に)
#
# 1.パスワードを設定 (半角英数字16バイト以内)
$password = 'tosiaki';
# 2.認証成功時に表示するHTMLは記述 (最下行)
#
# 3.CGIが実行可能なディレクトリにアスキーモードでアップロード
# * CGIのファイル名は自動認識のため自由に変更できます。
#
# 4.パーミッションを755(-rwxr-xr-x)に変更して完了
#===============================================================================
#END_OF_INIT (初期設定ここまで。以下修正不要。修正した場合は動作非保証)
#===============================================================================
$VERSION = 'BILL_GATE/2.01'; # バージョン情報(編集禁止)
$SCRIPT_NAME = $1 if ($ENV{'SCRIPT_NAME'} =~ /([^\\\/]*)$/);
print "Content-Type: text/html\n";
print "\n";
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read STDIN, $buffer, $ENV{'CONTENT_LENGTH'};
} elsif ($ENV{'HTTP_USER_AGENT'} =~ /^J-PHONE/) {
$buffer = $ENV{'QUERY_STRING'};
}
if ($buffer =~ /password=(.+)/ && $password eq $1) {
while (read DATA, $_, 1024) {
print;
}
exit;
}
# 認証用ページ (print <<_EOF_;の下の行から"_EOF_"の上の行まで)
print <<_EOF_;
<html>
<head>
<title>認証</title>
</head>
<body onLoad="document.forms[0].password.focus()">
<h1>認証</h1>
<p>パスワードを入力して認証してください</p>
<form method="POST" action="$SCRIPT_NAME">
<p><input type="password" name="password" size="12" maxlength="16"><input type="submit" value="認証"></p>
</form>
<hr>
<p align="right" style="font-size: 10px">
<a href="http://www.webpower.jp/" target="_top" title="Produced and Licensed by WEB POWER"><b>$VERSION</b></a><br>
(C)2002 WEB POWER
</p>
</body>
</html>
_EOF_
exit;
# ● 認証成功時に表示するページ (__DATA__行の下の行からに記述)
__DATA__
<html>
<head>
<title>認証成功</title>
</head>
<body>
<h1>認証成功</h1>
<p>認証成功時に表示されるページ</p>
</body>
</html>)
てすと
表示オプション
横に並べて表示:
変化行の前後のみ表示: