編集ファイル

#!/usr/bin/perl ## Light Board 補助プログラム ## 過去ログ表示・検索システム ## light2.cgi (1999/11/08) ## (c)1997-1999 KENT WEB require './jcode.pl'; # jcode.plが同一ディレクトリの場合 ## 基本設定 $script = './light2.cgi'; # スクリプト名 $bbsfile = './light.cgi'; # 掲示板への戻り先 $body = ''; # bodyタグ $method = 'POST'; # method形式 (POST or GET) $pass = 'cai0803'; # 管理用パスワード $logfile = './light.log'; # LIGHT BOARDログファイル $lockkey = 0; # ロック形式 (0=no 1=symlink 2=open) $lockfile = './light.lock'; # ロックファイル名 $mail = 1; # メール通知機能 (0=no 1=yes) $tagkey = 0; # タグの使用 (0=no 1=yes) ## 過去ログ設定 $nofile = './pastno.dat'; # 過去ログ用カウントファイル $past_dir = "."; # 過去ログのあるディレクトリ（フルパスだと / から） $past_url = "."; # 過去ログのあるＵＲＬディレクトリ # （フルパスだと http:// から） ## 設定完了 # 過去ログカウントファイルを読み込み 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\n"; } ## ログ編集画面 sub edit { # パスワード認証 if ($pass ne "$FORM{'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 . '..'; } $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; } } # タグ処理 if ($tagkey == 0) { $com =~ s/<\;/\/g; $com =~ s/"\;/\"/g; } else { $com =~ s/\/>\;/g; $com =~ s/\"/"\;/g; } $com =~ s/
/\r/g; if ($url) { $url = "http://$url"; } print <<"EOM"; 変更する部分のみ修正して下さい

EOM exit; } ## 編集実行処理 sub do_edit { # パスワード認証 if ($pass ne "$FORM{'pass'}") { &error("パスワードが違います。"); } # ロック開始 if ($lockkewy == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } open(DB,"$logfile") || &error("Can't open $logfile"); @lines = ; close(DB); $init = $lines[0]; shift(@lines); if ($tagkey) { $FORM{'com'} =~ s/<>/<>/g; } else { $FORM{'com'} =~ s//>/g; $FORM{'com'} =~ s/\"/"/g; } $FORM{'com'} =~ s/\r\n/
/g; $FORM{'com'} =~ s/\r|\n/
/g; $FORM{'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<>$FORM{'name'}<>$FORM{'email'}<>$FORM{'sub'}<>$FORM{'com'}<>$FORM{'url'}<>$host<>$pwd<>\n"; } push(@new,$line); } unshift(@new,$init); open(DB,">$logfile") || &error("Can't write $logfile"); print DB @new; close(DB); unlink($lockfile) if (-e $lockfile); &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) = split(/<>/,$init); print <<"EOF";

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

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

タイトル

サイズ

タイトル色

文字スタイル

壁紙

背景色

文字色

リンク色 (link)

リンク色 (vlink)

リンク色 (alink)

記事 [題名] 色

記事 [名前] 色

戻り先

最大記事数

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

\n"; print "\n"; exit; } ## 環境設定更新処理 sub env_edit { # パスワード認証 if ($pass ne "$FORM{'pass'}") { &error("パスワードが違います。"); } # ロック開始 if ($lockkewy == 1) { &lock1; } elsif ($lockkey == 2) { &lock2; } 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) = split(/<>/,$lines[0]); $lines[0] = "$head<>$FORM{'title'}<>$FORM{'t_color'}<>$FORM{'t_size'}<>$FORM{'t_face'}<>$FORM{'bgr'}<>$FORM{'bgc'}<>$FORM{'text'}<>$FORM{'link'}<>$FORM{'vlink'}<>$FORM{'alink'}<>$FORM{'home'}<>$FORM{'max'}<>$FORM{'subj_color'}<>$FORM{'name_color'}<>$FORM{'mail1'}<>$FORM{'mail2'}<>\n"; # ログを更新 open(DB,">$logfile") || &error("Can't write $logfile"); print DB @lines; close(DB); unlink($lockfile) if (-e $lockfile); # 完了メッセージ &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); } $FORM{$name} = $value; } $word = $FORM{'word'}; $cond = $FORM{'cond'}; $mode = $FORM{'mode'}; $opt = $FORM{'opt'}; $chk = $FORM{'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 "

システムエラー発生！

\n"; print "

$_[0]\n"; print "

\n"; print "\n"; exit; } ### --- ロックファイル（symlink関数）--- ### sub lock1 { local($retry) = 5; while (!symlink(".", $lockfile)) { if (--$retry <= 0) { &error("LOCK is BUSY"); } sleep(1); } } ## --- ロックファイル（open関数）処理サブルーチン sub lock2 { local($flag) = 0; foreach (1 .. 5) { unless (-e $lockfile) { open(LOCK,">$lockfile"); close(LOCK); $flag = 1; last; } else { sleep(1); } } if ($flag == 0) { &error("LOCK is BUSY"); } }