#!/usr/local/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";
$title |
EOM
if ($authkey) {
print "ようこそ、$my_nameさん | \n";
}
print <
|
|
新規スレッド
|
ホームに戻る
|
留意事項
|
ワード検索
|
過去ログ
|
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 "$sub | ";
print "$nam | ";
print "$res | ";
print "$count | ";
print "$date ";
print "by $na2 | \n";
}
close(IN);
print " |
\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 -