ファイル名: j/search_2.cgi
#!/usr/local/bin/perl
# -----------------------------------------------------------------------------
# 文字の検索 (ファイル名: search_2.cgi )
# -----------------------------------------------------------------------------
## ライブラリ
require './jcode.pl'; # jcode.plが同一ディレクトリにある場合
## 基本設定
$title = "検索(2)"; # タイトル
$t_color = "#008080"; # タイトルの色
$t_face = "MS Pゴシック"; # タイトル文字のフォントタイプ
$backgif = ""; # 壁紙
$bgcolor = "#004444"; # 背景色
$text = "#777777"; # 文字色を指定
$link = "#0000FF"; # リンク色を指定(未リンク)
$vlink = "#800080"; # リンク色を指定(既リンク)
$alink = "#FF0000"; # リンク色を指定(リンク中)
## 固有設定
$script = './search_2.cgi'; # スクリプトファイル名
$logfile = './john_rakugaki.txt'; # ログファイル名
## bodyタグを定義
$body = "<body bgcolor=$bgcolor text=$text link=$link vlink=$vlink alink=$alink>";
### --- メイン
&get_form;
&form_deco;
@keyword_s = split(/ /,$FORM{'keyword'}); # キーワードの配列
$KEY = @keyword_s; # キーワードの数
#&header;
#print "action =$FORM{'action'}<BR>\n";
#print "keyword =$FORM{'keyword'}<BR>\n";
if ($FORM{'action'} eq "") {&header; &find; &footer; exit;}
if ($FORM{'action'} eq "find") {
&header;
&find;
if ($FORM{'keyword'}) {&search; &search_result; &disp;}
else {&error(no_keyword);}
&footer;
exit;
}
### --- ワード検索
sub find {
print <<"HTML";
<CENTER>
<hr width=90%>
<FONT color="#99FFFF" face=\"$t_face\"><B>■■ 落書き帳の検索(2) ■■</B></FONT>
<hr width=90%>
<FORM method="POST" action = "$script" >
<INPUT type=hidden name=action value="find">
<TABLE bgcolor="#70b8b8" cellpadding="10" cellspacing="0" border="1">
<TBODY>
<TR>
<TD><FONT color="#000099"><B>キーワード</B></FONT></TD>
</TR>
<TR>
<TD><INPUT size="30" type="text" name=keyword ></TD>
</TR>
<TR>
<TD> <input type=radio name=cond value="and" checked> AND <input type=radio name=cond value="or"> OR</TD>
</TR>
<TR>
<TD valign="middle"> <INPUT type="submit" value=" 検索 "> <INPUT type="reset" value="RESET"> </TD>
</TR>
</TBODY>
</TABLE>
</FORM>
<table>
<tr>
<td nowrap>
<small>
<UL>
<LI>検索したい<b>キーワード</b>を入力し、「検索ボタン」
を押してください。
<LI>キーワードは「半角スペース」で区切って複数指定することができます。
</UL>
</small>
</td>
</tr>
</table>
<BR><BR>
</CENTER>
HTML
}
### --- フォームの取得
sub get_form {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
} else { $formdata = $ENV{'QUERY_STRING'}; }
}
### --- フォームのデータ処理
sub form_deco {
@pairs = split(/&/,$QUERY_DATA);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$value =~ s/\,//g;
&jcode'convert(*value,'sjis');
$FORM{$name} = $value;
}
}
### --- HTMLのヘッダー
sub header{
print "Content-type: text/html\n\n";
print "<html>\n<head>\n";
print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n";
print "<title>$title</title></head>\n";
print "$body\n";
}
### --- HTMLのフッター
sub footer{
print "</body></html>\n";
# exit;
}
### --- SEARCH
sub search {
$count= 0;
# ファイルを読み込み
open(DB,"$logfile") || &error(bad_file);
@lines = <DB>;
close(DB);
# 検索処理
foreach $line (@lines) {
$flag = 0;
foreach $word (@keyword_s) {
if (index($line,$word) >= 0){
$flag = 1;
if($FORM{'cond'} eq 'or') { last; }
} else {
if($FORM{'cond'} eq 'and'){ $flag = 0; last; }
}
}
if ($flag == 1) {
push(@new,$line);
# キーワード文字の表示変更
foreach $word (@keyword_s) {
$line =~ s/$word/<font color=#ff0000><U><B>$word<\/U><\/B><\/font>/g;
}
$count++;
# キーワードのある文章を@DATAに格納
push(@DATA,$line);
}
}
}
### --- 落書き表示ルーチン
sub disp {
# 保存されているデータがなくなるまで繰り返す。
# ファイルから読み込んだデータの最後には改行文字がついているので除去
foreach $line (@DATA) {
chop($line);
# 1行のデータを各項目に分解します。
# 日付、名前、メール、コメントの順に格納されます。それ以降の$d1〜$d4は将来
# のバージョンアップのためダミーのデータにします。
($date,$name,$email,$comment,$d1,$d2,$d3,$d4) = split(/\,/,$line);
# コメント変数の中の改行文字「\r」を「<br>」に変換して、訪問者が入力した通りに表示します。
$comment =~ s/\r/<br>/g;
print "<div align=center><center>\n";
print "<table border=0 width=80% bgcolor=#FFFFFF>\n";
print "<tr>\n";
print "<td><font color=#000000>\n";
# メールアドレスが入力されていればリンクを付けます。
if ($email ne "") {
print "<a href=mailto:$email><strong>$name</strong></a>\n";
} else { print "<strong>$name</strong>\n"; }
print "$date<br>\n";
print "<blockquote>$comment</blockquote>\n";
print "</font>\n";
print "</td>\n";
print "</tr>\n";
print "</table>\n";
print "<p>";
}
print "</center></div>\n";
# print "</body></html>\n";
# exit;
}
### --- 検索結果
sub search_result {
print <<"HTML";
<CENTER>
<TABLE bgcolor=\"#EEEEEF\" cellpadding=\"10\" cellspacing=\"0\" border=\"0\">
<TBODY>
<TR>
<FONT color=\"#000099\">
<TD>ファイル名 :</TD><TD>$logfile</TD></TR>
<TD>ヒット文書数:</TD><TD><B>$count 件</B></TD></TR>
</FONT>
</TBODY>
</TABLE>
</CENTER>
<BR><BR>
HTML
}
### --- エラー処理
sub error {
$error = $_[0];
if ($error eq "bad_file") { $msg = 'ファイルのオープン、入出力に失敗しました。'; }
elsif ($error eq "no_keyword") { $msg = 'キーワードが記入されていません。'; }
else { $msg = '原因不明のエラーで処理を継続できません。'; }
# エラーメッセージ表示のHTMLドキュメントの生成
print "<center><FONT color=\"#EE0000\"><hr width=90%><i>" . $msg . "</i></hr></FONT></center>\n";
}