#● #--------------------------------------------------------------------------------------- # 名称 | View_Message # Version | 1.70 # 処理名 | 一覧処理 # 動作内容 | 抽出されたログを表示する(検索フォーム入り) # 備考 | 画面内に文字を挿入したい場合は、このサブルーチン内の◆印(2箇所用意)の場所に直接書きこむ # 引数 | なし # 戻り値 | なし # sub View_Message { &Search; # 抽出処理へ if (!$log) { # ログモード以外はカーソルフォーカス位置の決定 if ($COOKIE{'NAME'} eq '') { $js = 'onLoad="document.WriteForm.NAME.focus();"'; } elsif ($COOKIE{'EMAIL'} eq '') { $js = 'onLoad="document.WriteForm.EMAIL.focus();"'; } else { $js = 'onLoad="document.WriteForm.TITLE.focus();"'; } $body =~ s/
タグに挿入 } 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';EOF } # ↓更新・終了リンク print <<"EOF";
EOF # ◆ ↓この位置が、画面下部となる. print <<'EOF'; EOF print <<"EOF"; [管理用]