$title

#! /usr/local/bin/perl # ↑先頭のパスはプロバイダによって異なります ############################################################################################ # カキコチェッカ ver1.00（2001/11/29公開） # すくりぷと by K-ji(けぃ) # E-mail : k-ji@csc.ne.jp # Homepage : http://minicgi.net/ # スクリプトの改造や、改造版の配布は自由に行ってください。 # 著作権表示は・・・このスクリプトに限り、邪魔だったら消しちゃってもいいッス # # （設置方法） # ・Perlのパスを設定します # ・「重要な設定」を設定します。説明が下手なので分かりにくいかもしれませんが、気合いで（^^； # ・check.cgiを、CGIが使えるフォルダにアップロードしてパーミッションを755にします ########################################################################################### ############## # 重要な設定 ############## # 「このファイルの更新時間を見ればカキコ時間が分かるぞっ」ってファイルをlogurl[0]に書いてください。 # それに対応するname[0]やcgiurl[0]も書き換えてくださいね。以下、[1]、[2]、[3]も同じです。 # また同じような感じでlogurl[4]、[5]・・・と書けば、いくつでも追加できますよー # 逆に3つ以下の場合には、logurl[3]、name[3]、cgiurl[3]の行を消しちゃってくださいな。 # ログファイルのURL(このファイルの日付を取得します。相対リンクで書いてください) $logurl[0] = '../guest/data/g_book.dat'; $logurl[1] = '../bbs/yybbs.log'; $logurl[2] = '../oekaki/data.txt'; $logurl[3] = '../upboard/log.dat'; # 見出しの名前（掲示板の名前。） $name[0] = '初めまして掲示板'; $name[1] = 'メインBBS(雑談用)'; $name[2] = 'お絵かき掲示板'; $name[3] = 'アップロードBBS'; # CGIファイルのURL（見出しをクリックしたときに飛ぶURL。http://～でもOK） $cgiurl[0] = '../guest/guest.cgi'; $cgiurl[1] = '../bbs/bbs.cgi'; $cgiurl[2] = '../oekaki/picture.cgi'; $cgiurl[3] = '../upboard/upboard.cgi'; ################ # その他の設定 ################ # 何時間前までにログファイルが更新されたら、色を変える？ $new_time = 6; # ↑のとき、どんな色に変える？ $color = '#FF7777'; # ポップアップウィンドウ形式（小さな別ウィンドウで開くやつ）で使います？（yes：1、no：0） $popup = 1; # BODYタグを設定して～っ。壁紙を使うときもここだよ♪ $body =''; # タイトルはどんなやつがいい？ $title = '～掲示板カキコ状況～'; # タイトルのサイズと色は？ $tsize = "14pt"; $tcolor = "#ff8800"; # ページ全体のフォントの大きさは？ $font = "11pt"; # リンクにマウスをのせたら、どんな色にする？ $linkcolor = "#F69"; # カキコ状況を表示するテーブルの・・・ $bgcolor ="#F9F9FF"; # 背景色 $width = 420; # 幅 $border = 1; # 枠線の太さ $bordercolor = "#9999FF"; # 枠線の色 # タイトルの下に表示されるメッセージを書いて～。（$mes =<色つきで表\示されます。
注：ログファイルの更新時間なので、カキコがあったとは限りません（削除・修正の場合） EOM #↑これは消しちゃダメ ################################## # ここから下は、プログラム本体です ################################## print "Content-type: text/html\n\n"; print< $title EOM if($popup){ print< EOM } print< $body

$title

$mes EOM $i = 0; foreach (@logurl){ # ファイルが存在するかチェック if (-e $_){ # 最終更新日を取得 ($mtime) = (stat($_))[9]; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mtime); @wday_array = ('日','月','火','水','木','金','土'); $update = sprintf("%02d月%02d日（%s） %02d時%02d分",$mon +1,$mday,$wday_array[$wday],$hour,$min,); # ○時間前に更新があったかチェック $ENV{'TZ'} = 'JST-9'; $times = time; if (!(($times - $mtime) > $new_time * 3600)) { $update = "$update"; } } else { $update = 'ログファイルが見つかりません'; } if($popup){print"\n";} else{print"\n";} $i++; } print "

$name[$i]	$update
$name[$i]	$update

\n"; if($popup){print "

\n";} # 著作権表示（ど～しても邪魔という方は・・・うーん・・・） if($popup){ print'

カキコチェッカ v1.00

'; } else{ print'

カキコチェッカ v1.00

'; } print "\n\n"; exit;