#● #--------------------------------------------------------------------------------------- # 名称 | View_Message # Version | 1.30 # 処理名 | 一覧処理 # 動作内容 | 抽出されたログを表示する(投稿画面を下部に用意) # 備考 | 画面内に文字を挿入したい場合は、このサブルーチン内の◆印(2箇所用意)の場所に直接書きこむ # 引数 | なし # 戻り値 | なし # sub View_Message { &Search; # 抽出処理へ if ($in{'page_control'} != 0) { $jsback = '〔前に戻る〕'; } # 最初の画面以外は戻るリンクを用意 if (!$log) { # ログモード以外は空き容量の処理 $size = -s $message_file; # メッセージファイルのサイズ取得 $free = $maxsize - $size; # 最大記録サイズとの差を得る if ($free < 0) { $free = 0; } # 空き容量がマイナス表示にならないようにする 1 while $free =~ s/(.*\d)(\d\d\d)/$1,$2/g; # 桁カンマを入れる処理 if ($size > $maxsize) { $free = "《書き込み不可》空き容量 $free bytes free"; } else { $free = "空き容量 $free bytes free"; } } else { $free = "《ログモード》"; } #------------------------------------------------------------------------------- # 表示処理 &Html_head; # ヘッダの出力 print "$body\n"; # ◆ ↓画面上部に挿入する文字列(HTML形式)は、print <<'EOF'; の次の行から EOF の直前までの間に直接書いてください. print <<'EOF';
$jsback〔更新〕〔終了〕 | $free |
EOF if (!$log) { # ログモードでない場合は投稿フォームを用意 # ↓投稿フォーム print <<"EOF";