#!/usr/bin/perl
###########################################################
require './cgi-lib.pl';
&ReadParse;
##### このファイルのURL(相対URLではなく「http://」から始まるURLで指定)
#$thisfile = 'http://www.treasures-jp.com/cgi-bin/suruga/admin.cgi';
$thisfile = '/cgi-local/suruga/admin.cgi';
#$url = "http://www.e-surugadai.com";
$url = "";
$topnavi = "$url/mainimg/adm_r01_c01.gif";
##### 入り口のタイトル
$title = '管理者画面';
##### 文字色や背景色、壁紙などの設定(普通のBODYタグ)
$body = '
';
##### FORMタグのMETHOD属性
#--------------------------------------------#
# Method not implemented..というエラーが #
# 出る場合は、POSTを GETに書き換えて下さい。 #
#--------------------------------------------#
$method = 'POST';
##### クッキーの名前
#-------------------------------------------------------#
# クッキーの名前は、「PG_」に続けてあなたのユーザー名と #
# 二桁の任意の数字を加えたものにして下さい。 #
#-------------------------------------------------------#
$cookiename = 'PG_e-surugadai01';
##### パスワードの設定
#----------------------------------------#
# 半角英数以外の文字は使わないで下さい。 #
# できるだけ他人に分かりにくいパスワード #
# にして下さい。 #
#----------------------------------------#
$pass = 'gvdjku5';
##### アクセス制限するページのパス
$secret = 'disp_list.cgi?type=pass';
##### アクセス制限するページの種類
#---------------------------------------------#
# 普通のHTMLのページの場合は、0にして下さい。 #
# それ以外のCGIスクリプトや画像ファイルの場合 #
# は、1にして下さい。 #
#---------------------------------------------#
$type = 1;
########## ↑ 初期設定終了 ↑ ##########
#----------------------------------------------------------#
# ここから下をカスタマイズするには、Perlの知識が必要です。 #
# Perlについて十分な知識のない方は、変更しないで下さい。 #
#----------------------------------------------------------#
##### クッキーの有効期限(30日間)を国際標準時で取得
$ENV{'TZ'} = "GMT";
($gsec,$gmin,$ghour,$gmday,$gmon,$gyear,$gwday) = localtime(time + 30*24*60*60);
$gsec = sprintf("%.2d",$gsec);
$gmin = sprintf("%.2d",$gmin);
$ghour = sprintf("%.2d",$ghour);
$gmday = sprintf("%.2d",$gmday);
@gweek = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
$gwday = $gweek[$gwday];
@gmonth = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
$gmon = $gmonth[$gmon];
$gyear = 1900+$gyear;
$jikanGMT = "$gwday, $gmday\-$gmon\-$gyear $ghour:$gmin:$gsec GMT";
##### パスワードOK or パスワードNO or HTML表示
if ($in{'action'} eq "enter") {
#---------------------------------------
#更新日の取得
($mday,$mon,$year,$wday)=(localtime(time))[3..6];
$year += 1900;
$mon++;
@week=("日","月","火","水","木","金","土",);
$wday=$week[$wday];
$ttoday = $year . "/" . $mon . "/" . $mday . "(" .$wday .")";
open(OUT,"> csvdata/lastmod.csv");
print OUT $ttoday,"\n";
close(OUT);
#-----------------------------------------
if ($in{'pass'} eq $pass) {
if ($in{'memory'} eq "on") { &SetCookie; }
&PrintSecret;
}
else {
&PassError;
}
}
else {
&ReadCookie; &PrintGate;
}
##### クッキーの作成
sub SetCookie {
print "Set-Cookie: $cookiename=$in{'pass'}; expires=$jikanGMT\n";
}
##### クッキーの展開
sub ReadCookie {
foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
($key,$value) = split(/=/);
$cook{$key} = $value;
}
}
##### アクセス制限ページ出力
sub PrintSecret {
if ($type == 0) {
open(PAGE,"$secret");
@contents = ;
close(PAGE);
print "Content-type: text/html\n\n";
foreach (@contents) { print $_; }
}
elsif ($type == 1) {
print "Content-type: text/html\n\n";
print "\n\n$title\n\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
}
exit;
}
##### HTML出力
sub PrintGate {
print "Content-type: text/html\n\n";
print <<"EOL";
駿河台出版社
EOL
exit;
}
##### パスワードエラー
sub PassError {
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "$title\n";
print "\n";
print "\n";
print "\n";
print "
\n";
print "パスワードエラー\n";
print "パスワードが違います。\n";
print "ここから先に立ち入ることはできません。\n";
print "
\n";
print "\n";
print "\n";
exit;
}