![](\"$ImgUrl$Iconback\")
";
$page_next = "![](\"$ImgUrl$Iconnext\")
";
} else {
$page_back = $back_text;
$page_next = $next_text;
}
if ($mode eq "find") {
if ($in{'word'} ne "") {
if ($count >= 1) {
$fottmp =~ s/footmsg/「$in{'word'}」を検索した結果ヒット数は$count件ありました。/i;
} else {
$fottmp =~ s/footmsg/「$in{'word'}」を検索した結果マッチする書き込みはありませんでした。/i;
}
if ($back_line >= 0) {
$fottmp =~ s/back/$page_back<\/a>/i;
} else {
$fottmp =~ s/back//i;
}
if ($page_end ne "$end_data") {
$fottmp =~ s/next/$page_next<\/a>/i;
} else {
$fottmp =~ s/next//i;
}
} else {
$fottmp =~ s/footmsg/検索キーワードを入力してください。/i;
$fottmp =~ s/back//i;
$fottmp =~ s/next//i;
}
} else {
$fottmp =~ s/footmsg//i;
if ($back >= 0) {
$p_flag=1;
$fottmp =~ s/back/$page_back<\/a>/i;
} else {
$fottmp =~ s/back//i;
}
if ($next < $i) {
$p_flag=1;
$fottmp =~ s/next/$page_next<\/a>/i;
} else {
$fottmp =~ s/next//i;
}
}
if ($htm_renew) {
print OUT $fottmp;
} else {
print $fottmp;
}
}
# レス記事部のヘッダ --------------------------------------------
sub resheader {
print "Content-type: text/html; charset=Shift_JIS\n\n";
open(RES, $resskin_html);
$resskin = join('',![](\"$ImgUrl$Iconmail\")
"; }
elsif (!$mail_icon && $mail) {
if ($name_link) { $name = "$name"; }
else { $mail = "$mail_text"; }
}
if ($home_img) { $link_img = ""; }
if ($home_icon && $url) { $url = "![](\"$ImgUrl$IconHome\")
"; }
elsif (!$home_icon && $url) { $url = "$home_text"; }
&imgview;
&main;
}
close(IN);
print OUT $mafot_html;
&footer;
close(OUT);
$htm_renew = 0;
}
}
# -------------------------------------------------------------------------
# 記事表示部
# -------------------------------------------------------------------------
sub html_log {
&header;
&write;
$start = $page + 1;
$end = $page + $p_log;
open(IN,"$logfile") || &error("Open Error : $logfile");
$top = "; }
elsif (!$mail_icon && $mail) {
if ($name_link) { $name = "$name"; }
else { $mail = "$mail_text"; }
}
if ($home_img) { $link_img = ""; }
if ($home_icon && $url) { $url = ""; }
elsif (!$home_icon && $url) { $url = "$home_text"; }
&imgview;
&main;
}
close(IN);
print $mafot_html;
&footer;
}
# -------------------------------------------------------------------------
# 返信フォーム
# -------------------------------------------------------------------------
sub res_form {
open(IN,"$logfile") || &error("Open Error : $logfile");
$top = "; }
elsif (!$mail_icon && $mail) {
if ($name_link) { $name = "$name"; }
else { $mail = "$mail_text"; }
}
if ($home_icon && $url) { $url = ""; }
elsif (!$home_icon && $url) { $url = "$home_text"; }
&imgview
&resmain
}
close(IN);
print $resmafot_html;
&resfooter;
exit;
}
# -------------------------------------------------------------------------
# エラー処理
# -------------------------------------------------------------------------
sub error {
&unlock if ($lockflag);
&adminheader;
print <<"EOM";
$_[0]ブラウザのBackでお戻り下さい |