$title

#!/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"; ##### パスワードＯＫ or パスワードＮＯ or ＨＴＭＬ表示 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 "<META HTTP-EQUIV=\"refresh\" CONTENT=\"1\;URL=$secret\">\n"; print "\n"; print "\n"; } exit; } ##### ＨＴＭＬ出力 sub PrintGate { print "Content-type: text/html\n\n"; print <<"EOL"; 駿河台出版社

更新日：$lastmod

ここから先へアクセスするには、パスワードが必要です。
パスワードを入力して、Enterボタンを押して下さい

　

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; }