#!/usr/local/bin/perl ################################################################################### # # <一覧処理> # ################################################################################### require "./setup.cgi"; $locationR = $base_cgi . 'regist.cgi'; $location = $base_cgi . 'bbs.cgi'; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); @wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat'); @wday_array2 = ('日','月','火','水','木','金','土'); @mon_array = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); $timeStamp = sprintf("%04d/%s/%01d %s %02d:%02d",$year +1900,$mon_array[$mon],$mday,$wday_array[$wday],$hour,$min); $timeStamp2 = sprintf("%04d%02d%02d%02d%02d%02d",$year +1900,$mon +1,$mday,$hour,$min,$sec); $time = time; foreach (@category) { ($catekey,$catename) = split(/:/,$_,2); $category{$catekey} = $catename; } $key = &decCookie('key'); # クッキーに記録したキーを取得 open(f,$login); # ファイルに記録したキーを取得 $login_key = ; close(f); if ($ENV{'PATH_INFO'} =~ /^\/(\d\d\d\d\d\d\d\d\d\d\d\d\d\d)$/) { $target = $1; &view_goods(); exit; } ($ret) = &ReadParse; while (($key,$val) = each %in) { if ($key eq "upfile") { next; } if ($key eq "upfile_s") { next; } $val =~ s/\r\n/\n/g; $val =~ s/\r/\n/g; $val =~ s/\f//g; $val =~ s/\t//g; $val =~ s/\0//g; &jcode'h2z_sjis(\$val); &jcode'convert(\$val,'sjis'); $in{$key} = $val; } &search(); &form(); # ### 個別表示 # sub view_goods { if (!open(f,$data)) { &error("エラー","データがありません。"); } while ($i=) { if ($i =~ /^#/) { next; } @csv = &DecodeCSV($i); if ($target eq $csv[0]) { $hit = 1; last; } } close(f); if (!$hit) { &error("エラー","記事がありません。"); } if ($csv[0] =~ /^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/) { $y = $1; $m = $2 + 0; $d = $3 + 0; $hour = $4; $min = $5; } $view{$csv[0]}{'time'} = "$y/$m/$d $hour:$min"; $view{$csv[0]}{'category'} = $csv[1]; $view{$csv[0]}{'subject'} = $csv[2]; $view{$csv[0]}{'writer'} = $csv[3]; $view{$csv[0]}{'body'} = $csv[4]; $view{$csv[0]}{'body2'} = $csv[5]; $view{$csv[0]}{'email'} = $csv[6]; $view{$csv[0]}{'url'} = $csv[7]; $view{$csv[0]}{'image'} = $csv[8]; $BODY = $view{$csv[0]}{'body'} . "

" . $view{$csv[0]}{'body2'}; $BODY =~ s/ /\n/g; (@images) = split(/\|/,$view{$csv[0]}{'image'}); foreach $i (@images) { if ($i =~ /(.+)\.s.+$(\d+)\,(\d+)$/) { ($j,$k) = split(/$/,$i,2); $img{$1} = "$j/$2/$3"; } elsif ($i =~ /(.+)\..+\((\d+)\,(\d+)$/) { $img_big{$1} = "$2/$3"; if (! $img{$1}) { ($j,$k) = split(/\(/,$i,2); $img{$1} = "$j/$2/$3"; } } elsif ($i =~ /(.+)\..+/) { if (! $img{$1}) { $img{$i} = $def_height; } } } print <<"EOF"; Content-type: text/html\n $title $body $TITLE
$view{$csv[0]}{'subject'}
投稿日時 $view{$csv[0]}{'time'} EOF if ($view{$csv[0]}{'category'}) { print " $category{$view{$csv[0]}{'category'}} | "; } if ($view{$csv[0]}{'email'} && $view{$csv[0]}{'writer'}) { ($pre,$suf) = split(/\@/,$view{$csv[0]}{'email'},2); print <<"EOF"; EOF } elsif ($view{$csv[0]}{'email'}) { ($pre,$suf) = split(/\@/,$view{$csv[0]}{'email'},2); # メールアドレス自動収拾防止 print <<"EOF"; EOF } elsif ($view{$csv[0]}{'writer'}) { print "by $view{$csv[0]}{'writer'} | "; } print <<"EOF"; 固定リンク一覧表\示 EOF if ($key eq $login_key && $login_key ne '') { print " | 編集 | ログアウト"; } else { print " | ログイン"; } print <<"EOF";
\n"; } print <<"EOF";

EOF @images = (); $img = ""; if ($view{$csv[0]}{'image'}) { $add_width = 0; foreach $key (sort keys %img) { if ($add_width == 0) { print "\n"; } if ($img{$key} =~ /(.+)\/(\d+)\/(\d+)/) { $fn = $fn2 = $1; $width = $2; $height = $3; $fn =~ s/\.s//; ($dir,$etc) = split(/\_/,$fn,2); if ($img_big{$key} =~ /(\d+)\/(\d+)/) { $img = " $\"クリックで表\示\"$ "; } else { $img = " $\"\"$ "; } $add_width += $width; } else { ($dir,$etc) = split(/\_/,$key,2); $height = $img{$key}; $img = " $\"\"$ "; $add_width += 300; } print "\n"; if ($max_width <= $add_width) { $add_width = 0; print "
$img
\n"; } } if ($add_width != 0) { print "
\n"; } } else { print " $BODY
EOF if ($comment_mode) { if ($comment_list_mode) { print "\n"; } print <<"EOF";
EOF if ($comment_list_mode) { print <<"EOF"; EOF } print <<"EOF"; EOF if (!$comment_list_mode) { print <<"EOF"; EOF } print "
$comment_type

お名前

URL

EOF if (open(f,"$img_dir$target\/comment.cgi")) { @comments = ; close(f); } if ($comment_list_mode) { @comments = reverse @comments; } foreach $i (@comments) { @csv = &DecodeCSV($i); $csv[3] =~ s/ / /g; $csv[3] =~ s/ /
\n/g; if ($csv[5]) { $uname = "$csv[4]"; } else { $uname = $csv[4]; } if (!$csv[1] && $key eq $login_key && $login_key ne '') { # 検閲 print "
$csv[2] by $uname [掲載] [削除]
\n"; print "$csv[3]
\n"; } elsif ($csv[1] && $key eq $login_key && $login_key ne '') { # 検閲済みの削除 print "
$csv[2] by $uname [削除]
\n"; print "$csv[3]
\n"; } elsif ($csv[1]) { print "
$csv[2] by $uname
\n"; print "$csv[3]
\n"; } } print <<"EOF";

$comment_type

お名前

URL

\n"; } print <<"EOF";

EOF if (!$comment_list_mode) { print "\n"; } print <<"EOF"; $TITLE2 EOF exit; } # ### 検索処理と抽出処理 # sub search { if ($in{'search'} ne "") { $pattern = $in{'search'}; &jcode'convert(\$pattern,'euc'); } if ($in{'vp'} eq "") { $FF = 1; $in{'vp'} = 1; } else { $FF = ($in{'vp'} - 1) * $page + 1; } $next_data = 0; $c = $n = 0; $allhits = 0; if (!open(f,$data)) { &error("エラー","商品データがありません。"); } while ($i=) { if ($in{'category'} ne "") { @csv = &DecodeCSV($i); if ($in{'category'} eq $csv[1]) { if ($in{'search'} ne "") { $str = "$csv[2] $csv[3] $csv[4] $csv[5] $csv[6]"; &jcode'convert(\$str,'euc','sjis'); if ($str =~ /^(?:[\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE])*?(?:$pattern)/) { $allhits++; } # 参考 http://www.din.or.jp/~ohzaki/regex.htm else { next; } } else { $allhits++; } } else { next; } } else { if ($in{'search'} ne "") { @csv = &DecodeCSV($i); $str = "$csv[2] $csv[3] $csv[4] $csv[5] $csv[6]"; &jcode'convert(\$str,'euc','sjis'); if ($str =~ /^(?:[\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE][\xA1-\xFE])*?(?:$pattern)/) { $allhits++; } else { next; } } else { $allhits++; } } $c++; if ($FF > $c) { next; } $n++; if ($n > $page) { last; } if (!$in{'category'}) { @csv = &DecodeCSV($i); } if ($csv[0] =~ /^(\d\d\d\d)(\d\d)(\d\d)(\d\d)(\d\d)/) { $y = $1; $m = $2 + 0; $d = $3 + 0; $hour = $4; $min = $5; } $view{$csv[0]}{'time'} = "$y/$m/$d $hour:$min"; $view{$csv[0]}{'category'} = $csv[1]; $view{$csv[0]}{'subject'} = $csv[2]; $view{$csv[0]}{'writer'} = $csv[3]; $view{$csv[0]}{'body'} = $csv[4]; $view{$csv[0]}{'body2'} = $csv[5]; $view{$csv[0]}{'email'} = $csv[6]; $view{$csv[0]}{'url'} = $csv[7]; $view{$csv[0]}{'image'} = $csv[8]; push(@number,$csv[0]); } close(f); for ($jump = $page; $jump < $allhits + $page; $jump += $page) { $last_page++; } $start = $in{'vp'} - 4; if ($start < 1) { $start = 1; } $end = $in{'vp'} + 4; if ($end >= $last_page) { $end = $last_page; } $ffv = ($last_page - 1) * $page; $vp = 0; foreach $vp ($start .. $end) { if ($vp == $in{'vp'}) { $page_now = $vp; last; } } $FROM = $page_now * $page - ($page - 1); $LAST = $FF + $page - 1; if ($LAST > $allhits) { $LAST = $allhits; } } # ### 検索フォーム・一覧 # sub form { $key = &decCookie('key'); # クッキーに記録したキーを取得 open(f,$login); # ファイルに記録したキーを取得 $login_key = ; close(f); if ($_[0]) { $body =~ s/ $title $body EOF if ($key eq $login_key && $login_key ne '') { print <<"EOF";

投稿 | ログアウト

EOF } else { print <<"EOF";

ログイン

EOF } print <<"EOF"; $TITLE EOF print <<"EOF";

EOF if (!$in{'category'}) { if ($in{'search'} ne "") { print "\n"; } else { print "\n"; } } else { print "\n"; } foreach (@category) { ($catekey,$catename) = split(/:/,$_,2); if ($in{'category'} eq $catekey) { if ($in{'search'} ne "") { print "\n"; } else { print "\n"; } } else { print "\n"; } } print <<"EOF";

$group

$group

$catename

$catename

EOF print <<"EOF";

EOF foreach $i (@number) { if ($comment_mode) { @comments = (); $com = $com2 = $info = ""; $count = $not_yet = 0; if (open(f,"$img_dir$i\/comment.cgi")) { @comments = ; close(f); } foreach $j (@comments) { @csv = &DecodeCSV($j); if ($csv[1]) { $count++; } } if ($key eq $login_key && $login_key ne '') { $all = @comments; $not_yet = $all - $count; if ($not_yet > 0) { $info = " | 確認待ち($not_yet)"; } else { $info = " | 確認待ち(0)"; } } if ($count > 0) { $com = " | $comment_type($count)"; $com2 = "$comment_typeを読む"; } else { $com = " | $comment_type(0)"; $com2 = ""; } } print <<"EOF"; EOF if ($key eq $login_key && $login_key ne '') { print ""; } print <<"EOF";
$view{$i}{'subject'}
投稿日時 $view{$i}{'time'} EOF if ($view{$i}{'category'}) { print " $category{$view{$i}{'category'}} | \n"; } if ($view{$i}{'email'} && $view{$i}{'writer'}) { ($pre,$suf) = split(/\@/,$view{$i}{'email'},2); print <<"EOF"; EOF } elsif ($view{$i}{'email'}) { ($pre,$suf) = split(/\@/,$view{$i}{'email'},2); print <<"EOF"; EOF } elsif ($view{$i}{'writer'}) { print "by $view{$i}{'writer'} | "; } print <<"EOF"; 固定リンク$com$info 編集・削除

EOF @images = %img = (); $img = $img_count = ""; if ($view{$i}{'image'}) { (@images) = split(/\|/,$view{$i}{'image'}); foreach $i (@images) { if ($i =~ /(.+)\.s.+$(\d+)\,(\d+)$/) { ($j,$k) = split(/$/,$i,2); $img{$1} = "$j/$2/$3"; } elsif ($i =~ /(.+)\..+\((\d+)\,(\d+)$/) { $img_big{$1} = "$2/$3"; if (! $img{$1}) { ($j,$k) = split(/\(/,$i,2); $img{$1} = "$j/$2/$3"; } } elsif ($i =~ /(.+)\..+/) { if (! $img{$1}) { $img{$i} = $def_height; } } } @key = sort keys %img; $img_count = @key; if ($img{$key[0]} =~ /(.+)\/(\d+)\/(\d+)/) { $fn = $fn2 = $1; $width = $2; $height = $3; $fn =~ s/\.s//; ($dir,$etc) = split(/\_/,$fn,2); if ($img_big{$key[0]} =~ /(\d+)\/(\d+)/) { $img = " $\"クリックで表\示\"$ "; } else { $img = " $\"\"$ "; } } else { ($dir,$etc) = split(/\_/,$key[0],2); $height = $img{$key[0]}; $img = " $\"\"$ "; } print "$img"; if ($img_count > 1) { print "
もっと写真を見る\n"; } } if ($view{$i}{'body2'} ne "") { $more = "
続きを読む $com2\n"; } else { $more = "
$com2\n"; } print <<"EOF";
$view{$i}{'body'} $more

EOF } if ($in{'vp'} eq "") { $in{'vp'} = 1; } $start = $in{'vp'} - 5; if ($start < 1) { $start = 1; } elsif ($start == 1) { ; } elsif ($start > 2) { push(@link,"1 .."); } else { push(@link,"1"); } $end = $in{'vp'} + 5; if ($end >= $last_page) { $end = $last_page; } elsif ($end < $last_page - 1) { $last_link = " .. $last_page\n"; } else { $last_link = "$last_page\n"; } $n = $vp = 0; foreach $vp ($start .. $end) { if ($vp == $in{'vp'}) { push(@link,"$vp"); $n = 1; $page_now = $vp; } elsif ($vp == 1) { push(@link,"1 "); } else { if ($n) { $n = 0; $Next_link = "[ 次のページ ]"; $next = $vp; } else { $next = $vp; } push(@link,"$next"); } } $link = join ' | ' , @link; print "

\n"; if (!$allhits) { print "

$link	$Next_link
このカテゴリに記事はありません.

\n"; } else { print "$page_nowページ目を表\示 ($allhits件抽出)\n"; } print <<"EOF"; $TITLE2

EOF # ↑著作リンクを削除することは利用規定違反となります。 exit; } # ### # sub setCookie { local($set,$key,$val) = @_; if ($set) { if ($in{'rec'}) { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 1*24*60*60); # 1日保存 @monthg = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'); @youbi = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"); $date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1900,$hourg,$ming,$secg); $rec = "; expires=$date_gmt"; } else { $rec = ""; } $val =~ s/([^0-9A-Za-z_])/"%" . unpack("H2",$1)/ge; # URLエンコード $val =~ tr/ /+/; print "P3P: CP=\"NON DSP COR CURa ADMa DEVa CUSa TAIa OUR SAMa IND\"\n"; print "Set-Cookie: $key=$val$rec\n"; } else { $clear_gmt = "Sun, 01-Jan-1995 01:00:00 GMT"; print "P3P: CP=\"ADM NOI\"\n"; print "Set-Cookie: $key=\n"; } } # ### # sub decCookie { local($name) = @_; local($key,$val,$key2,$val2); local($cookies) = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($key,$val) = split(/=/,$pair,2); $key =~ s/ //g; if ($key eq $name) { $val =~ tr/+/ /; $val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; last; } } return $val; } # ### # sub DecodeCSV { # 参考 http://www.din.or.jp/~ohzaki/regex.htm local($tmp) = @_; local(@values) = (); $tmp =~ s/\n//; if ($tmp eq '') { return (); } $tmp =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/; @values = map {/^"(.*)"$/ ? scalar($_ = $1, s/""/"/g, $_) : $_} ($tmp =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g); @values; } # ### # sub error { local (@msg) = @_; local ($i); print <<"EOF"; Content-type: text/html\n $title $body

$_[0]

EOF foreach $i (1 .. $#msg) { print "$msg[$i]
\n"; } print <<"EOF"; EOF exit; }