過去ログ

#!/usr/local/bin/perl #==================================================================== # File name: light2ex.cgi v1.00 [KENT氏のlight2.cgi(2002/08/01)を母体] # Copyright: ツー (e-mail: yama2-db@ipc-tokai.or.jp) # (URL: http://yama2-db.cside.com/) # # V1.00 light2ex.cgi 2002/08/12 light2.cgiを母体に改造。 # (i-mode/J-SKY/EZweb対応) # V1.20 2006/04/06 禁止サーバ設定サポート # V1.21 bata1 2006/04/24 キーワード設定サポート # #==================================================================== # [母体の著作権] # Light Board 補助プログラム # 過去ログ表示・検索システム # light2.cgi (2002/08/01) # Copyright(C) KENT WEB 2002 #-------------------------------------------------------------------- #============# # 設定項目 # #============# # jcode.plが同一ディレクトリの場合 require './jcode.pl'; # スクリプト名 $script = './bbs1.cgi'; # 掲示板への戻り先 $bbsfile = './bbs.cgi'; # bodyタグ $body = ''; # 管理用パスワード $pass = 'fksmysyk'; # LIGHT BOARDログファイル $logfile = './light.log'; # ファイルロック形式 # → 0=no 1=symlink関数 2=mkdir関数 $lockkey = 2; # ロックファイル名 $lockfile = './light.lock'; # メール通知機能 (0=no 1=yes) $mail = 0; # 過去ログ用カウントファイル $nofile = './pastno.dat'; # 過去ログのあるディレクトリ（フルパスだと / から） $past_dir = "./past"; # 過去ログのあるＵＲＬディレクトリ（フルパスだと http:// から） $past_url = "./past"; #============# # 設定完了 # #============# if (open(NUM,"$nofile")) { $count = ; close(NUM); } &get_form; if (!$buffer) { &frame; } &decode; if ($mode eq 'ue_html') { &ue_html; } if ($mode eq 'find_html') { &find_html; } if ($mode eq 'do_find') { &do_find; } if ($mode eq 'edit_in') { &edit_in; } if ($mode eq 'edit') { &edit; } if ($mode eq 'do_edit') { &do_edit; } #if ($mode eq 'env') { &env_view; } if ($mode eq 'env_edit') { &env_edit } exit; ## ログ編集モード入室処理 sub edit_in { &header; print "

\n"; print "管理モード

\n"; print "

処理を選択しパスワードを入力して下さい

\n"; print "\n"; print "\n"; } ## ログ編集画面 sub edit { # パスワード認証 if ($pass ne "$in{'pass'}") { &error("パスワードが違います"); } open(DB,"$logfile") || &error("Can't open $logfile"); @lines = ; close(DB); $init = $lines[0]; shift(@lines); &header; print "[掲示板へ戻る]\n"; print "

\n"; print "管理モード

\n"; print "

\n"; if ($mode ne 'do_edit') { if ($chk && $opt eq 'edit') { &form_edit; } elsif ($chk && $opt eq 'del') { &do_del; } elsif ($opt eq 'env') { &env_view; } } if ($opt eq 'edit') { print "編集する記事をチェックして編集ボタンを押して下さい。\n"; } else { print "削除する記事をチェックして削除ボタンを押して下さい。\n"; } print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; foreach $line (@lines) { ($num,$date,$name,$email,$sub,$com,$url,$host) = split(/<>/,$line); if (length($com) > 60) { $com=substr($com,0,58); $com .= '..'; } $com =~ s//>/g; $com =~ s/\"/"/g; if ($email) { $email = "$email"; } if ($url) { $name = "$name"; } if ($sub eq "") { $sub = "無題"; } if ($opt eq 'edit') { print ""; } else { print ""; } print "\n"; print "\n"; } print "

CHK	投稿日	題名	なまえ	メール	コメント
$num
$num	$date	$sub	$name	$email	$com [$host]

"; print "\n"; print "

\n"; print "\n"; } ## 編集フォーム sub form_edit { foreach $line (@lines) { ($num,$date,$name,$email,$sub,$com,$url,$host,$pwd) = split(/<>/,$line); if ($chk eq "$num") { last; } } $com =~ s/
/\r/g; if ($url) { $url = "http://$url"; } print <<"EOM"; 変更する部分のみ修正して下さい

EOM exit; } ## 編集実行処理 sub do_edit { # パスワード認証 if ($pass ne "$in{'pass'}") { &error("パスワードが違います"); } # ファイルロック if ($lockkey) { &lock; } open(DB,"$logfile") || &error("Can't open $logfile"); @lines = ; close(DB); $init = $lines[0]; shift(@lines); $in{'com'} =~ s/&/&/g; $in{'com'} =~ s//>/g; $in{'com'} =~ s/\"/"/g; $in{'com'} =~ s/\r\n/
/g; $in{'com'} =~ s/\r|\n/
/g; $in{'url'} =~ s/^http\:\/\///; @new=(); foreach $line (@lines) { ($num,$date,$name,$email,$sub,$com,$url,$host,$pwd) = split(/<>/,$line); if ($chk eq "$num") { $line = "$num<>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'com'}<>$in{'url'}<>$host<>$pwd<>\n"; } push(@new,$line); } unshift(@new,$init); open(DB,">$logfile") || &error("Can't write $logfile"); print DB @new; close(DB); # ロック解除 if ($lockkey) { &unlock; } &edit; } ## 削除処理 sub do_del { @new=(); foreach $line (@lines) { ($num,$date,$name,$email,$sub,$com,$url,$host,$pwd) = split(/<>/,$line); $flag=0; foreach $chk (@dels) { if ($chk eq "$num") { $flag=1; next; } # else { next; } } if ($flag == 0) { push(@new,$line); } } @lines = @new; unshift(@new,$init); open(DB,">$logfile") || &error("Can't write $logfile"); print DB @new; close(DB); unlink($lockfile) if (-e $lockfile); } ## 環境設定画面 sub env_view { ($head,$title,$t_color,$t_size,$t_face,$bgr,$bgc,$text,$link,$vlink,$alink,$home,$max,$subj_color,$name_color,$mail1,$mail2,$i_title,$i_t_color,$i_t_size,$i_t_face,$i_bgr,$i_bgc,$i_text,$i_link,$i_vlink,$i_alink,$i_home,$i_subj_color,$i_name_color,$j_title,$j_t_color,$j_t_size,$j_t_face,$j_bgr,$j_bgc,$j_text,$j_link,$j_vlink,$j_alink,$j_home,$j_subj_color,$j_name_color,$e2_title,$e2_t_color,$e2_t_size,$e2_t_face,$e2_bgr,$e2_bgc,$e2_text,$e2_link,$e2_vlink,$e2_alink,$e2_home,$e2_subj_color,$e2_name_color,$e_title,$e_home,$plog,$i_plog,$j_plog,$e2_plog,$e_plog,$s_reject,$s_keyword) = split(/<>/,$init); $sub_reject = $s_reject; $sub_reject =~ s/!/\r/g; $sub_keyword = $s_keyword; $sub_keyword =~ s/!/\r/g; print <<"EOF";

設定ファイル $room の修正を行います。
変更したい個所を修正し、送信キーを押してください。
タグは書き込まないようにしてください。

EOF if ($mail) { print "\n"; print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "

[共通設定]

禁止サーバ
サーバ毎に改行してください。
(一番下に設定した後の改行もお忘れなく) $sub_reject

　

キーワード
漢字=ひらがなで設定してください。
(設定ごとに改行を入れてください) $sub_keyword

[PC用設定]

タイトル

サイズ

タイトル色

文字スタイル

　

壁紙

背景色

文字色

リンク色 (link)

リンク色 (vlink)

リンク色 (alink)

　

記事 [題名] 色

記事 [名前] 色

　

戻り先

1Pageの記事表\示数

最大記事数

[i-mode用]

タイトル

タイトル色

　

背景色

文字色

リンク色 (link)

リンク色 (vlink)

リンク色 (alink)

　

記事 [題名] 色

記事 [名前] 色

　

戻り先

1Pageの記事表\示数

[J-SKY用]

タイトル

タイトル色

　

背景色

文字色

リンク色 (link)

　

記事 [題名] 色

記事 [名前] 色

　

戻り先

1Pageの記事表\示数

[EZweb(WAP2.0)用]

タイトル

サイズ 1:<small> 2:通常 3:<big>

タイトル色

　

背景色

文字色

リンク色 (link)

　

記事 [題名] 色

記事 [名前] 色

　

戻り先

1Pageの記事表\示数

[EZweb(WAP1.0)用]

タイトル

戻り先

1Pageの記事表\示数

メール送信 1.
メール送信 2. (2つ目以降はここに記述)
ここにメールアドレスを記入すると投稿記事を送信します。

\n"; print "\n"; exit; } ## 環境設定更新処理 sub env_edit { # パスワード認証 if ($pass ne "$in{'pass'}") { &error("パスワードが違います"); } # ファイルロック if ($lockkey) { &lock; } open(DB,"$logfile") || &error("Can't open $logfile"); @lines = ; close(DB); ($head,$title,$t_color,$t_size,$t_face,$bgr,$bgc,$text,$link,$vlink,$alink,$home,$max,$subj_color,$name_color,$mail1,$mail2,$i_title,$i_t_color,$i_t_size,$i_t_face,$i_bgr,$i_bgc,$i_text,$i_link,$i_vlink,$i_alink,$i_home,$i_subj_color,$i_name_color,$j_title,$j_t_color,$j_t_size,$j_t_face,$j_bgr,$j_bgc,$j_text,$j_link,$j_vlink,$j_alink,$j_home,$j_subj_color,$j_name_color,$e2_title,$e2_t_color,$e2_t_size,$e2_t_face,$e2_bgr,$e2_bgc,$e2_text,$e2_link,$e2_vlink,$e2_alink,$e2_home,$e2_subj_color,$e2_name_color,$e_title,$e_home,$plog,$i_plog,$j_plog,$e2_plog,$e_plog,$s_reject,$s_keyword) = split(/<>/,$lines[0]); $in{'s_reject'} =~ s/\r\n/!/g; $in{'s_reject'} =~ s/\r|\n/!/g; $in{'s_keyword'} =~ s/\r\n/!/g; $in{'s_keyword'} =~ s/\r|\n/!/g; $lines[0] = "$head<>$in{'title'}<>$in{'t_color'}<>$in{'t_size'}<>$in{'t_face'}<>$in{'bgr'}<>$in{'bgc'}<>$in{'text'}<>$in{'link'}<>$in{'vlink'}<>$in{'alink'}<>$in{'home'}<>$in{'max'}<>$in{'subj_color'}<>$in{'name_color'}<>$in{'mail1'}<>$in{'mail2'}<>$in{'i_title'}<>$in{'i_t_color'}<>$i_t_size<>$i_t_face<>$i_bgr<>$in{'i_bgc'}<>$in{'i_text'}<>$in{'i_link'}<>$in{'i_vlink'}<>$in{'i_alink'}<>$in{'i_home'}<>$in{'i_subj_color'}<>$in{'i_name_color'}<>$in{'j_title'}<>$in{'j_t_color'}<>$j_t_size<>$j_t_face<>$j_bgr<>$in{'j_bgc'}<>$in{'j_text'}<>$in{'j_link'}<>$j_vlink<>$j_alink<>$in{'j_home'}<>$in{'j_subj_color'}<>$in{'j_name_color'}<>$in{'e2_title'}<>$in{'e2_t_color'}<>$in{'e2_t_size'}<>$e2_t_face<>$e2_bgr<>$in{'e2_bgc'}<>$in{'e2_text'}<>$in{'e2_link'}<>$e2_vlink<>$e2_alink<>$in{'e2_home'}<>$in{'e2_subj_color'}<>$in{'e2_name_color'}<>$in{'e_title'}<>$in{'e_home'}<>$in{'plog'}<>$in{'i_plog'}<>$in{'j_plog'}<>$in{'e2_plog'}<>$in{'e_plog'}<>$in{'s_reject'}<>$in{'s_keyword'}<>\n"; # ログを更新 open(DB,">$logfile") || &error("Can't write $logfile"); print DB @lines; close(DB); # ロック解除 if ($lockkey) { &unlock; } # 完了メッセージ &header; print "

環境設定の変更が完了しました。

\n"; print "

[掲示板へもどる]

\n"; print "\n"; exit; } ## 検索処理ルーチン sub do_find { # カウントファイルを読み込み open(NUM,"$nofile") || &error("Can't open $nofile"); $count = ; close(NUM); @lines = (); foreach (1 .. $count) { open(DB,"$past_dir\/$_\.html"); @new_data = ; close(DB); push(@lines,@new_data); } $word =~ s/　/ /g; $word =~ s/\t/ /g; @pairs = split(/ /,$word); # 過去ログファイルを読み込み foreach $line (@lines) { $flag = 0; foreach $pair (@pairs){ if (index($line,$pair) >= 0){ $flag = 1; if ($cond eq 'or') { last ; } } else { if ($cond eq 'and'){ $flag = 0; last; } } } # ヒットした行を新規配列(@new)に格納 if ($flag) { push(@new,$line) ; } } # 検索結果の配列数を数える $count = @new; # 該当なしの場合 if ($count == 0) { &nainai; } # 結果を出力 &header; print <<"HTML";

[検索画面に戻る]

キーワード $word は $count件見つかりました。

HTML foreach $new_line (@new) { ($title,$msg) = split(/<\!--T-->/, $new_line); print "$title $msg\n"; } print "\n"; exit; } ## フレーム部 sub frame { # 過去ログ用カウントファイルをチェック unless (-e $nofile) { &error("Don't exist $nofile"); } print "Content-type: text/html\n\n"; print <<"HTML"; 過去ログ $body <h3>フレーム非対応のブラウザの方は利用できません。</h3> </body> HTML exit; } ## 上フレーム（メニュー部） sub ue_html { &header; print <<"HTML";

過去ログ

[掲示板へもどる] [過去ログ検索] [最新] HTML # 過去ログの[リンク]を新規順に表示 for ($i=$count-1; $i>0; $i--) { print "\[$i\]\n"; } print "

\n"; exit; } ## フォーム取得 sub get_form { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } } ## フォームからのデータ処理 sub decode { @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); if ($name eq 'chk') { push(@dels,$value); } $in{$name} = $value; } $word = $in{'word'}; $cond = $in{'cond'}; $mode = $in{'mode'}; $opt = $in{'opt'}; $chk = $in{'chk'}; } ## 検索該当なし sub nainai { &header; print "見つかりませんでした

\n"; print "$word\n"; print "\n"; exit; } ## 検索初期画面 sub find_html { &header; print <<"HTML";

過去ログ検索

「過去ログ」をキーワードから該当記事を検索します。
半角スペースで区切って複数のキーワード指定が可\能\です。
検索条件を選択し「検索する」ボタンを押して下さい。

HTML exit; } ## HTMLヘッダー部 sub header { print "Content-type: text/html\n\n"; print "\n\n"; print "\n"; print "編集ファイル\n"; print "$body\n"; } ## エラー処理 sub error { unlink($lockfile) if (-e $lockfile); &header; print "

ERROR !

\n"; print "

$_[0]\n"; print "

\n"; print "\n"; exit; } #--------------# # ロック処理 # #--------------# sub lock { # 1分以上古いロックは削除する if (-e $lockfile) { local($mtime) = (stat($lockfile))[9]; if ($mtime < time - 60) { &unlock; } } local($retry) = 5; # symlink関数式ロック if ($lockkey == 1) { while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error('Lock is busy'); } sleep(1); } # mkdir関数式ロック } elsif ($lockkey == 2) { while (!mkdir($lockfile, 0755)) { if (--$retry <= 0) { &error('Lock is busy'); } sleep(1); } } $lockflag=1; } #--------------# # ロック解除 # #--------------# sub unlock { if ($lockkey == 1) { unlink($lockfile); } elsif ($lockkey == 2) { rmdir($lockfile); } $lockflag=0; }