過去ログ

#!/usr/local/bin/perl ## YY-BOARD 補助プログラム ## 過去ログ表示・検索システム ## yybbs2.cgi (2000/08/15) ## Copyright(C) KENT WEB 2000 #============# # 設定項目 # #============# # スクリプト名 $script = './yybbs2.cgi'; # カウントファイル名 $nofile = './pastno.dat'; # 掲示板への戻り先 $bbsfile = './yybbs.cgi'; # method形式 (POST or GET) $method = 'POST'; # YY-BOARDログファイル $logfile = './yybbs.log'; # 過去ログのディレクトリ（フルパスだと / から） $pastdir = "."; # 過去ログのＵＲＬ（フルパスだと http:// から） $pasturl = "."; # bodyタグ $body = ''; #============# # 設定完了 # #============# # 過去ログカウントファイルを読み込み open(NUM,"$nofile") || &error("Open Error : $nofile"); $count = ; close(NUM); &decode; if (!$buffer) { &frame; } if ($mode eq 'ue_html') { &ue_html; } if ($mode eq 'find_html') { &find_html; } if ($mode eq 'do_find') { &do_find; } exit; #------------# # 検索処理 # #------------# sub do_find { @lines = (); foreach (1 .. $count) { open(DB,"$pastdir\/$_\.html") || &error("Open Error : $_\.html"); @new_data = ; close(DB); push(@lines,@new_data); } $word =~ s/　/ /g; $word =~ s/\t/ /g; @pairs = split(/\s+/, $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 フレーム非対応のブラウザの方は利用できません </body> HTML exit; } #--------------------------# # 上フレーム（メニュー部）# #--------------------------# sub ue_html { &header; print <<"HTML"; [掲示板へもどる] [ワード検索]

過去ログ

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

\n"; print "\n"; exit; } #----------------# # デコード処理 # #----------------# sub decode { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @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; $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 <<"EOM"; YY-BOARD $body EOM } #--------------# # エラー処理 # #--------------# sub error { &header; print "

ERROR !

\n"; print "

$_[0]\n"; print "

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