#!/usr/bin/perl #┌───────────────────────────────── #│ JOYFUL NOTE #│ joyful.cgi - 2006/11/11 #│ Copyright (c) KentWeb #│ webmaster@kent-web.com #└───────────────────────────────── # 外部ファイル取り込み require './init.cgi'; require $jcode; require $cgi_lib; # 処理を定義 &parse_form; &axscheck; if ($mode eq "find") { &find; } elsif ($mode eq "past" && $pastkey) { require $pastlogpl; &past_log; } elsif ($mode eq "album") { require $albumpl; &album; } elsif ($mode eq "howto") { require $howtopl; &howto; } elsif ($mode eq "check") { require $checkpl; ✓ } &bbs_log; #------------------------------------------------- # 記事表示部 #------------------------------------------------- sub bbs_log { # ページ繰越 local($page) = 0; local($resfm); foreach ( keys(%in) ) { if (/^page:(\d+)$/) { $page = $1; } if (/^res:(\d+)$/) { $resfm = $1; last; } } # 返信フォーム押下 if ($resfm) { &res_form; } # ヘッダを出力 &header; # カウンタ処理 if ($counter) { &counter; } # 投稿キー local($str_plain,$str_crypt); if ($regist_key) { require $regkeypl; ($str_plain,$str_crypt) = &pcp_makekey; } # タイトル部 print "
\n"; } if ($t_img) { print "\n"; } else { print "$title\n"; } # メニュー部 print "
\n";
print "$sub{$resfm} ";
print "投稿者:$nam{$resfm} 投稿日:$dat{$resfm} ";
print "No.$resfm ";
if ($url{$resfm}) {
print "$img_home";
}
print " \n"; print " ";
print "$com{$resfm}";
if ($ext{$resfm}) {
local($size) = -s "$imgdir/$resfm$ext{$resfm}";
$size = int ( $size / 1024 ) . 'KB';
if ($ImageCheck && $chk{$resfm} eq '0') {
print " ";
# レス記事
if (defined($res{$resfm})) {
print "添付:ComingSoon ($size)\n"; } else { print " 添付:$resfm$ext{$resfm} ($size)\n"; } } print " ";
foreach $res ( split(/,/, $res{$resfm}) ) {
print "$sub{$res} - $nam{$res} ";
print "$dat{$res} No.$res ";
if ($url{$res}) {
print "$img_home";
}
print " \n";
}
print "$com{$res} "; } print " |