罪罰改造板３/52 のバックアップ(No.7) - AqureWiki - 罪と罰＋＋二律背反、自宅サーバ、CGIゲーム

バックアップ一覧
ソースを表示
罪罰改造板３/52 は削除されています。
- 1 (2008-02-02 (土) 10:50:30)
- 2 (2008-02-03 (日) 00:08:49)
- 3 (2008-02-03 (日) 01:43:31)
- 4 (2008-02-03 (日) 05:09:07)
- 5 (2008-02-03 (日) 14:03:09)
- 6 (2008-02-03 (日) 17:08:32)
- 7 (2008-02-03 (日) 20:41:59)
- 8 (2008-02-04 (月) 00:17:28)
- 9 (2008-02-04 (月) 16:41:07)

$logfile="./logdata/letter_log_";

if(!-e $logfile${month}.cgi){
   open(OUT,"> $logfile${month}.cgi");
   close(OUT);
}

$logfile	= "./logdata/letter_log.cgi";

$logfile	= "./logdata/letter_log_";

# ログを展開

# ログを読み込み

if(!-e $logfile${month}.cgi){
   open(OUT,"> $logfile${month}.cgi");
   close(OUT);
}

open(IN,"$logfile") || &error("Open Error : $logfile");

open(IN,"$logfile${month}.cgi") || &error("Open Error : $logfile${month}.cgi");

open(OUT,">$logfile") || &error("Write Error : $logfile");

open(OUT,">$logfile${month}.cgi") || &error("Write Error : $logfile${month}.cgi");

	Scalar found where operator expected at program line 222, near "$logfile${month}"

my $file="$logfile${month}.cgi";
if(!-e $file){
   open(OUT,"> $file");
   close(OUT);
}

<form action="$script" method="$method">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="hidden" name="mode" value="past_log">
<select name="rd">
EOM
  my @tuki=(01,02,03,04,05,06,07,08,09,10,11,12);
  foreach(0 .. $#tuki){
    print "<option value="$tuki[$_]">$tuki[$_]月</option>\n";
  }
  print <<"EOM";
</select>
<input type="submit" value="\表\示">
</form>

# メイン処理
&axs_check;				# アクセス制御
&decode;					# フォームデコード
&mandata_open;				# 参加者ログ読み込み
&get_time;				# 日時取得
&past_log if($mode eq 'past_log');		# 過去ログ表示<-- 追加
if ($mode eq "regist" && $com) { &regist; }	# 書き込み処理
&html if($mode ne 'past_log');		# ページ表示<-- 修正

sub past_log{
  &header;
  my $file="$logfile${rd}.cgi";
  open(IN,"$file") || &error("Open Error : $file");
  # 使用しているletter.cgiのログ展開をココに貼り付ける
  close(IN);
  &copyright;
  exit;
  print <<"EOM";
  </body>
  </html>
  EOM
}

  my @tuki=(01,02,03,04,05,06,07,08,09,10,11,12);
 foreach(0 .. $#tuki){
   print "<option value="$tuki[$_]">$tuki[$_]月</option>\n";
 }

print qq|<option value="$tuki[$_]">$tuki[$_]月</option>\n|;