;
close(DB);
# ホスト名を取得
&get_host;
# 記事Noカウント
($knum,$kdate,$kweek,$ksubj,$kcom) = split(/<>/,$lines[0]);
$num = $knum + 1;
while(length($num) < 3 ) { $num = '0' . "$num"; }
# 最大記事数超を切り捨て
$i=0;
$stop=0;
@new = ();
@data= ();
foreach (0 .. $#lines) {
if ($i > $max-1) { $stop=1; }
if (!$stop) { push(@new,$lines[$i]); }
elsif ($stop && $pastkey) { push(@data,$lines[$i]); }
$i++;
}
# 過去ログ更新
if ($data[0]) { &pastlog; }
# ファイル添付処理
if ($in{'upfile'}) { &UpFile; }
# ログをフォーマット
unshift (@new,"$num<>$in{date}<>$in{week}<>$subj<>$comment<>$host<>$tail<>$W<>$H<>$img_pos<>\n");
# ログを更新
open(DB,">$logfile") || &error("Can't write $logfile");
print DB @new;
close(DB);
# 全体の記事数を把握
if ($pagelog < $#new+1) { $flag=1; }
# HTMLファイルを生成（第１ページ）
$write_file = "$htm_dir\/$htmfile";
&html_regist;
# HTMLファイルを生成（第２ページ）
if ($flag) {
$write_file = "$htm_dir\/$nexthtm";
&html_regist;
}
# 新規記事をＨＴＭＬに挿入
if ($ins_line) { &newlog_ins; }
# ロック解除
if (-d $lockdir) { rmdir($lockdir); } # Lockdirの削除
# HTMLファイルへ戻る
&location;
exit;
}
## --- HTML生成処理
sub html_regist {
open(HTML,">$write_file") || &error("Can't write $write_file");
# HTMLヘッダ部
print HTML "\n\n";
print HTML "\n";
print HTML "$title\n";
# スタイルシート適用
if ($ssheet) { print HTML "$style\n"; }
# キャッシュ取込拒否
if ($nocashe) { print HTML "\n"; }
print HTML "\n";
print HTML "$body\n";
print HTML "";
print HTML "
\n";
#上部バナー挿入
print HTML "$banner1
\n" if ($banner1 ne "");
# タイトル部
if ($t_gif eq '') {
print HTML "$title\n";
} else {
print HTML "![](\"http://$t_gif\")
\n";
}
print HTML "
";
# ひとことメッセージを表示
$sunmsg =~ s/\r\n/
/g;
$sunmsg =~ s/\r/
/g;
$sunmsg =~ s/\n/
/g;
print HTML "
$submsg\n";
# リンク部
print HTML "
";
print HTML "[
HOME]\n";
print HTML "[
ワード検索]\n";
# 過去ログ
if ($pastkey) {
print HTML "[
過去ログ]\n";
}
print HTML "[
管理画面]\n";
print HTML "[
設定画面]\n";
print HTML "
";
print HTML "
\n";
# 記事数を定義
if ($flag == 2) {
$start = $pagelog; $end = $#new;
}else {
$start = 0;
if ($i < $pagelog) {
$end = $i;
}else {
$end = $pagelog-1;
}
}
# 記事を展開
foreach ($start .. $end) {
local($num,$date,$week,$subjct,$com,$host,$tail,$W,$H,$img_pos) = split(/<>/,$new[$_]);
if ($subjct eq "") { $subjct = "無題"; }
if ($autolink) { &auto_link($com); } #コメント欄のＵＲＬをAutoLINKする。
#曜日の色設定
$w_color = $sbj_color; #平日の色
if ($week eq 6) {$w_color = $sat_color;} #土曜日の色
if ($week eq 0) {$w_color = $sun_color;} #日曜日の色
#ログの情報から添付ファイルのリンクを生成する
$CLIP = "";
if (-e "$img_dir\/$num$tail") {
if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png") {
$CLIP = "
![](\"$img_url\/$num$tail\")
\n";
}else {
$CLIP = "
![Download:$num$tail](\"$img_url\/$Clip_Icon\")
$num$tail\n";
}
}
# 旧ログの添付ファイルの表示位置を修正
if (index("上,下,左,右",$img_pos) < 0) { $img_pos = "下"; }
# 添付ファイル画像の表示位置指定
if($img_pos eq "左") { $LOG_BODY = "
$CLIP | $com | "; }
if($img_pos eq "右") { $LOG_BODY = "
$com | $CLIP | "; }
if($img_pos eq "上") { $LOG_BODY = "
$CLIP$com | "; }
if($img_pos eq "下") { $LOG_BODY = "
$com$CLIP | "; }
print HTML "
\n";
print HTML "\n";
print HTML "| \n";
print HTML "$point\n";
print HTML "$date($wday2[$week]) \n";
print HTML "$subjct | \n";
print HTML " \n";
print HTML "\n";
print HTML "$LOG_BODY";
print HTML " \n";
print HTML "
\n |
\n";
} ## foreach -- END
print HTML "
\n";
print HTML "\n";
print HTML "\n";
# 次／前ページのリンクを生成
if ($flag == 1) {
print HTML " | \n";
print HTML " | \n";
$flag=2;
} elsif ($flag == 2) {
print HTML " | \n";
print HTML " | \n";
}
# 新規投稿入室フォームを表示
print HTML "\n";
print HTML "\n";
print HTML " | \n";
print HTML "
\n";
print HTML "
\n";
# 著作権を表示（削除禁止）
print HTML "$banner2\n";
print HTML "\n";
print HTML "\n";
close(HTML);
}
## --- 指定されたHTMLページに最新記事を挿入する ------------------
sub newlog_ins {
$EXPCNT = $ins_line-1;
if ($EXPCNT > $#new) { $EXPCNT = $#new; }
$NEW_LOG = "";
#タイトルのみ（FORM）
if ($ins_mode eq 1) {
$NEW_LOG = "\n";
#タイトルのみ（TEXT）
}elsif ($ins_mode eq 2) {
$NEW_LOG = "\n";
foreach (0 .. $EXPCNT) {
local($num,$date,$week,$subjct,$com,$host) = split(/<>/,$new[$_]);
$NEW_LOG .= "$date $subjct
\n";
} #-foreach end
$NEW_LOG .= " |
\n";
# 本文も出力
}else {
foreach (0 .. $EXPCNT) {
local($num,$date,$week,$subjct,$com,$host,$tail,$W,$H,$img_pos) = split(/<>/,$new[$_]);
if ($subjct eq "") { $subjct = "無題"; }
if ($autolink) { &auto_link($com); } # URL自動リンク
#曜日の色設定
$w_color = $sbj_color; #平日の色
if ($week eq 6) {$w_color = $sat_color;} #土曜日の色
if ($week eq 0) {$w_color = $sun_color;} #日曜日の色
#ログの情報から添付ファイルのリンクを生成する
$CLIP = "";
if (-e "$img_dir\/$num$tail") {
if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png") {
$CLIP = "\n";
}else {
$CLIP = " $num$tail\n";
}
}
# 旧ログの添付ファイルの表示位置を修正
if (index("上,下,左,右",$img_pos) < 0) { $img_pos = "下"; }
# 添付ファイル画像の表示位置指定
if($img_pos eq "左") { $LOG_BODY = "$CLIP | $com | "; }
if($img_pos eq "右") { $LOG_BODY = "$com | $CLIP | "; }
if($img_pos eq "上") { $LOG_BODY = "$CLIP$com | "; }
if($img_pos eq "下") { $LOG_BODY = "$com$CLIP | "; }
$NEW_LOG .= <<"_BREAK";
|
$point
$date($wday2[$week])
$subjct
|
$LOG_BODY
|
_BREAK
} #-foreach end
}
# 新規記事挿入HTMLファイルを開く
open(IN,"$ins_html") || &error("Can't open $ins_html");
@HTML = ;
close(IN);
$FLG = 1;
@NEW=();
foreach (@HTML) {
if ($FLG) { push (@NEW,$_); }
if ($_ =~ //i) { $FLG = 1; push (@NEW,$_); }
if ($_ =~ //i) { $FLG = 0; push (@NEW,$NEW_LOG); }
}
# HTMLファイルを更新
open(OUT,">$ins_html") || &error("Write Error : $ins_html");
print OUT @NEW;
close(OUT);
}
## --- 表示ファイルにジャンプ
sub location {
# IISサーバ対応
if ($ENV{PERLXS} eq "PerlIS") {
print "HTTP/1.0 302 Temporary Redirection\r\n";
print "Content-type: text/html\n";
}
print "Location: $htm_url\/$htmfile\n\n";
}
## --- 管理モード入室画面
sub admin_in {
&header;
print "| \n";
print "$remodel 管理入室画面 |
|---|
\n";
print "\n";
print "\n";
&footer;
exit;
}
## --- 管理用初期画面
sub admin {
# パスワードチェック
if ($in{'pass'} ne "$pass") { &error("パスワードが違います。"); }
# ログファイルを開く
open(DB,"$logfile") || &error("Can't open $logfile");
@lines = ;
close(DB);
&header;
print "[掲示板へもどる]\n";
print "| \n";
print "$remodel 管 理 画 面 |
|---|
\n";
# 記事編集画面
if ($in{'edit'}) {
&admin_edit; #記事編集画面
}else {
&admin_list; #記事一覧画面
}
exit;
}
#記事編集画面
sub admin_edit {
&form_size;
foreach $line (@lines) {
($num,$date,$week,$subj,$com,$host,$tail,$W,$H,$img_pos) = split(/<>/,$line);
if ($in{'edit'} eq "$num") { last; }
}
$com =~ s/
/\r/g;
$item = $num . $tail;
print <<"EOM";
編集する部分のみ書き換え、編集ボタンを押して下さい。