#!/usr/local/bin/perl #┌───────────────────────────────── #│ LIGHT BOARD - light.cgi (2005/11/20) #│ Copyright (c) KentWeb #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #│ #│ Modified by isso. August, 2006 #│ http://swanbay-web.hp.infoseek.co.jp/index.html #└───────────────────────────────── # 外部ファイル取り込み require './jcode.pl'; require './init.cgi'; if($writevalue eq $postvalue) { &error("\$writevalueと\$postvalueの文字は同じにしないでください"); } &agent; &decode; &setfile; &previewcheck; if ($mode eq "$writevalue" && $in{'pview'} ne "on") { ®ist; } elsif ($mode eq "$postvalue" && $in{'pview'} eq "on") { ®ist; } elsif ($mode eq "$writevalue" && $in{'pview'} eq "on") { &error("$spammsg"); } elsif ($mode eq "previewmode") { &previewmode("$timecheck"); } elsif ($mode eq "howto") { &howto; } elsif ($mode eq "find") { &find; } elsif ($mode eq "dellog") { &dellog; } elsif ($mode eq "editlog") { &editlog; } elsif ($mode eq "past" && $pastkey) { &pastlog; } elsif ($mode eq "check") { ✓ } elsif ($in{'pass'} eq $pass && $mode eq "admin_repost") { ®ist; } elsif ($mode eq 'noscript') { &noscript; } &viewlog; #------------------------------------------------- # 記事表示 #------------------------------------------------- sub viewlog { local($x,$y,$i,$flag,$no,$dat,$nam,$eml,$sub,$com,$url,$resub,$recom,$nexr,$back); # クッキー取得 local($cnam,$ceml,$curl,$cpwd,$caikotoba) = &get_cookie; # $curl ||= "http://"; # タイトル表示 &header; print "
$url" if ($url); # 記事編集 print "
[$no] "; print "$sub 投稿者:$nam "; print "投稿日:$dat | "; print " |
\n"; } if ($next < $i) { $flag=1; print " | \n"; } # ページ移動ボタン表示 if ($flag) { print " | "; $x=1; $y=0; while ($i > 0) { if ($page == $y) { print "[$x]\n"; } else { print "[$x]\n"; } $x++; $y += $plog; $i -= $plog; } print " | "; } print <<"EOM";