\n|; } # テンプレート認識 open(IN,"$cf{tmpldir}/relate.html") or error("open err: relate.html"); my $tmpl = join('', ); close(IN); # テンプレート分割 my ($head,$loop,$foot) = $tmpl =~ /(.+)(.+)(.+)/s ? ($1,$2,$3) : &error("テンプレート不正"); # 文字置き換え foreach ($head,$foot) { s/!obi_ttl!/$obi_ttl/g; s//$tree/g; s/!bbs_cgi!/$cf{bbs_cgi}/g; s/!page_btn!/$pgbtn/g; } # 画面展開 print "Content-type: text/html; charset=shift_jis\n\n"; print $head; foreach (@data) { my ($no,$reno,$lx,$sub,$eml,$url,$name,$dat,$msg,$t,$ho,$pw,$wrap,$oya,$sml,$res,$ex,$w,$h) = split(/<>/); next if ($pw eq 'DEL'); # 自動リンク $msg = autolink($msg) if ($cf{autolink}); # 引用部色変更 if ($cf{ref_col}) { $msg =~ s/([\>]|^)(>[^<]*)/$1$2<\/font>/g; } # 画像付加 $msg = put_image($no,$msg,$ex,$w,$h) if ($ex); # 日付 my $date = get_time($t); # e-mail if ($eml && $sml eq '0') { $name = qq|$name|; } # URL $url &&= qq|

|; my $tmp = $loop; $tmp =~ s/!sub!/$sub/g; $tmp =~ s/!num!/$no/g; $tmp =~ s/!date!/$date/g; $tmp =~ s/!name!/$name/g; $tmp =~ s/!url!/$url/g; $tmp =~ s/!msg!/$msg/g; $tmp =~ s/!bbs_cgi!/$cf{bbs_cgi}/g; $tmp =~ s/!reno!/$reno/g; $tmp =~ s/!oya!/$oya/g; print $tmp; } # フッタ footer($foot); } #----------------------------------------------------------- # 留意事項 #----------------------------------------------------------- sub note_page { open(IN,"$cf{tmpldir}/note.html") or error("open err: note.html"); my $tmpl = join('', ); close(IN); $tmpl =~ s/!treehead!/$cf{treehead}/g; print "Content-type: text/html; charset=shift_jis\n\n"; print $tmpl; exit; } #----------------------------------------------------------- # 検索フォーム #----------------------------------------------------------- sub find_form { my ($i,$pgbtn,@data) = search($cf{logfile},'cur') if ($in{word}); # プルダウン作成（検索条件） my %op = make_op(); # テンプレート認識 open(IN,"$cf{tmpldir}/find.html") or error("open err: find.html"); my $tmpl = join('', ); close(IN); # テンプレート分割 my ($head,$loop,$foot) = $tmpl =~ /(.+)(.+)(.+)/s ? ($1,$2,$3) : error("テンプレート不正"); # 文字置き換え foreach ($head,$foot) { s/!bbs_cgi!/$cf{bbs_cgi}/g; s/!word!/$in{word}/g; s//$op{$1}/g; # ワード検索 if ($in{word}) { s/!result!/$i/g; s/!page_btn!/$pgbtn/g; } else { s/.+//s; } } # 画面展開 print "Content-type: text/html; charset=shift_jis\n\n"; print $head; foreach my $data (@data) { my ($no,$reno,$lx,$sub,$eml,$url,$name,$date,$msg,$t,$ho,$pw,$wrap,$oya,$sml,$res,$ex,$w,$h) = split(/<>/, $data); $msg = autolink($msg) if ($cf{autolink}); # 引用部色変更 if ($cf{ref_col}) { $msg =~ s/([\>]|^)(>[^<]*)/$1$2<\/font>/g; } # 画像付加 $msg = put_image($no,$msg,$ex,$w,$h) if ($ex); # 日時 $date = get_time($t); my $tmp = $loop; $tmp =~ s/!sub!/$sub/g; $tmp =~ s/!num!/$no/g; $tmp =~ s/!date!/$date/g; $tmp =~ s/!name!/$name/g; $tmp =~ s/!msg!/$msg/g; $tmp =~ s/!bbs_cgi!/$cf{bbs_cgi}/g; $tmp =~ s/!reno!/$reno/g; $tmp =~ s/!oya!/$oya/g; print $tmp; } # フッタ footer($foot); } #----------------------------------------------------------- # 検索実行 #----------------------------------------------------------- sub search { my ($file,$stat) = @_; # 入力内容を整理 if ($cf{conv_code} == 1) { require Jcode; $in{word} = Jcode->new($in{word})->sjis; } $in{word} =~ s/\x81\x40/ /g; my @wd = split(/\s+/, $in{word}); # 表示数 $in{view} =~ s/\D//g; $in{view} ||= 10; # ページ数 $in{page} =~ s/\D//g; $in{page} ||= 0; # キーワード検索準備（Shift-JIS定義） my $ascii = '[\x00-\x7F]'; my $hanka = '[\xA1-\xDF]'; my $kanji = '[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]'; # ファイル展開 my $i = 0; my @data; open(IN,"$file") or error("open err: $file"); my $top = if ($stat eq 'cur'); while () { chomp; my ($no,$reno,$lx,$sub,$eml,$url,$name,$date,$msg,$t,$ho,$pw,$wrap,$oya,$sml,$res,$ex,$w,$h) = split(/<>/); next if ($pw eq 'DEL'); # 検索 my $flg; foreach my $wd (@wd) { if ("$sub $name $msg $url" =~ /^(?:$ascii|$hanka|$kanji)*?\Q$wd\E/i) { $flg++; if (!$in{cond}) { last; } # OR } else { if ($in{cond}) { $flg = 0; last; } # AND } } # 一致の場合 if ($flg) { $i++; next if ($i < $in{page} + 1); next if ($i > $in{page} + $in{view}); push(@data,$_); } } close(IN); # ページ移動ボタン my $pgbtn = &find_pgbtn($i,$stat); return ($i,$pgbtn,@data); } #----------------------------------------------------------- # 検索用ページ移動ボタン #----------------------------------------------------------- sub find_pgbtn { my ($i,$stat) = @_; # 繰り越しページ定義 my $next = $in{page} + $in{view}; my $back = $in{page} - $in{view}; # キーワードエンコード化 my $enwd = url_enc($in{word}); # パラメータ my $param; if ($stat eq 'cur') { $param = $mode; } else { $param = "$mode&pno=$in{pno}&find=1"; } # ページ移動ボタン作成 my ($x,$y,$z) = (1,0,0); my $pgbtn; while ($i > 0) { if ($in{page} == $y) { $pgbtn .= qq{| $x\n}; } else { $z++; $pgbtn .= qq{| $x\n}; } $x++; $y += $in{view}; $i -= $in{view}; } if ($z) { $pgbtn .= "|\n"; return $pgbtn; } else { return; } } #----------------------------------------------------------- # 新着用ページ移動ボタン #----------------------------------------------------------- sub new_pgbtn { my $i = shift; my $next = $in{page} + $cf{new_pgbtn}; my $back = $in{page} - $cf{new_pgbtn}; # ページ移動ボタン表示 my ($x,$y,$z) = (1,0,0); my $pgbtn; while ($i > 0) { if ($in{page} == $y) { $pgbtn .= "| $x\n"; } else { $z++; $pgbtn .= qq{| $x\n}; } $x++; $y += $cf{new_pgbtn}; $i -= $cf{new_pgbtn}; } if ($z) { $pgbtn .= "|\n"; return $pgbtn; } else { return; } } #----------------------------------------------------------- # 過去ログ画面 #----------------------------------------------------------- sub past_page { # 過去ログ番号 open(IN,"$cf{nofile}") or error("open err: $cf{nofile}"); my $pastnum = ; close(IN); my $pastnum = sprintf("%04d", $pastnum); $in{pno} =~ s/\D//g; $in{pno} ||= $pastnum; # プルダウンタグ作成 my $op_pno; for ( my $i = $pastnum; $i > 0; $i-- ) { $i = sprintf("%04d", $i); if ($in{pno} == $i) { $op_pno .= qq|