$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) { ®ist; } # 書き込み処理 &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); ©right; 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|;
my @tuki=(01,02,03,04,05,06,07,08,09,10,11,12);
my @tuki=('01','02','03','04','05','06','07','08','09','10','11','12');
sub past_log{ &header; print <<"EOM"; <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="year"> <option value="2007">2007年</option> <option value="2008">2008年</option> </select> <select name="tuki"> EOM my @tuki=('01','02','03','04','05','06','07','08','09','10','11','12'); foreach(0 .. $#tuki){ print qq|<option value="$tuki[$_]">$tuki[$_]月</option>\n|; } print <<"EOM"; </select> <input type="submit" value="\表\示"> </form> <hr size="2" color="#ffffff"> EOM my $file="$logfile$in{'year'}_$in{'tuki'}.cgi"; #my $file="$logfile$in{'tuki'}.cgi"; open(IN,"$file") || &error("Open Error : $file"); # ログを展開 local $log_last_flag=0; my $camp_flag = $camp_info[$DAT{'camp'}][0]; while (<IN>) { $log_last_flag++; local($date,$nm,$camp,$com,$sogo,$sogo2,$addr,$host,$agent,$time2,$myid) = split(/<>/); if($nm eq $DAT{'nm'} || $myid eq $DAT{'nm'} || $myid eq $camp_info[$DAT{'camp'}][0]){ $nm = qq|$nm <small>[$sogo_p[$sogo]]:[$sogo_p2[$sogo2]]</small>| if($sogo||$sogo2); ($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ハァト/<span class="f1">ゥ<\/span>/g ; ($mv_mode eq 'mv') ? print qq|$nm:$com [$camp_info[$camp][0] $date → $myid]<br>\n|: print qq|<span style="color:$camp_info[$camp][1]">$nm <span class="date">[ $camp_info[$camp][0] $date →$myid]</span><br>$com </span><hr>\n|; last if $log_last_flag > $log_last; } } close(IN); ©right; exit; print <<"EOM"; </body> </html> EOM }