#!/usr/bin/perl #┌───────────────────────────────── #│ [ WebPatio ] #│ patio.cgi - 2006/10/09 #│ Copyright (c) KentWeb #│ webmaster@kent-web.com #│ http://www.kent-web.com/ #└───────────────────────────────── # 外部ファイル取り込み require './init.cgi'; require $jcode; &parse_form; if ($mode eq "check") { require $checkpl; ✓ } &axscheck; if ($mode eq "find") { require $findpl; &find; } elsif ($mode eq "enter_disp") { &enter_disp; } elsif ($mode eq "logoff") { &logoff; } &indexview; #------------------------------------------------- # メニュー部表示 #------------------------------------------------- sub indexview { local($alarm,$i,$data,$top,$count); # アラーム数定義 $alarm = int ( $m_max * 0.9 ); &header(); print <<"EOM";
EOM if ($authkey) { print "\n"; } print <
$titleようこそ、$my_nameさん
| 新規スレッド | ホームに戻る | 留意事項 | ワード検索 | 過去ログ | EOM # 認証モードのとき if ($authkey) { print "ログオフ\n"; print "|\n"; } print <管理用 |   

EOM # スレッド表示 if ($p eq "") { $p = 0; } $i = 0; open(IN,"$nowfile") || &error("Open Error: $nowfile"); $top = ; while () { $i++; next if ($i < $p + 1); next if ($i > $p + $menu1); s/\n//; local($num,$sub,$res,$nam,$date,$na2,$key,$upl) = split(/<>/); # 参照カウンタ読み込み open(NO,"$logdir/$num.dat"); $data = ; close(NO); ($count) = split(/:/, $data); # アイコン定義 if ($key eq '0') { $icon = 'fold3.gif'; } elsif ($key eq '2') { $icon = 'look.gif'; } elsif ($res >= $alarm) { $icon = 'fold5.gif'; } elsif ($upl) { $icon = 'fold6.gif'; } else { $icon = 'fold1.gif'; } print ""; print ""; print ""; print ""; print ""; print "\n"; } close(IN); print "
スレッド一覧

トピックス 作成者 返信 参照 最終更新
"; print ""; print "$sub$nam$res$count$date
"; print "by $na2
\n"; # ページ移動ボタン表示 if ($p - $menu1 >= 0 || $p + $menu1 < $i) { local($x,$y) = (1,0); print "

Page: "; while ($i > 0) { if ($p == $y) { print "$x |\n"; } else { print "$x |\n"; } $x++; $y += $menu1; $i -= $menu1; } print "
\n"; } # 著作権表示(削除不可) print <<"EOM";

標準スレッド 標準スレッド    添付あり 添付あり    ロック中 ロック中(書込不可)   アラーム アラーム(返信数$alarm件以上)   管理者メッセージ 管理者メッセージ


- Web Patio -

EOM exit; } #------------------------------------------------- # URLエンコード #------------------------------------------------- sub url_enc { local($_) = @_; s/(\W)/'%' . unpack('H2', $1)/eg; s/\s/+/g; $_; } #------------------------------------------------- # ログオフ #------------------------------------------------- sub logoff { unlink("$sesdir/$my_ckid.cgi"); print "Set-Cookie: patio_member=;\n"; &enter_disp; }