罪と罰++二律背反

  • # ログ書き込み処理
    sub regist {
    
           if($in{'camp'}&&!$in{'nm'}){
                   # $in{'nm'} = "$camp_info[$DAT{'camp'}][0]";
                   # $DAT{'nm'} ="$DAT{'nm'}(多)";
                   $tocamp = $in{'camp'};
                   $tocamp = 0 if($in{'camp'}==6);             # <-無所属宛
                   # $tocamp = 7 if($in{'camp'}==7);             # <-全員宛 ※修正しました
                   $in{'nm'} = "$camp_info[$tocamp][0]";
                   $DAT{'nm'} ="$DAT{'nm'}($camp_info[$DAT{'camp'}][0])";
           }
    	else{
                     $tocamp=$DAT{'camp'};   # 追加※1
    		local @tdat;

<!--// 自国一括:<input type="checkbox" name="camp" value="1"><br> //-->
無:<input type="radio" name="camp" value="6">
ア:<input type="radio" name="camp" value="1">
フ:<input type="radio" name="camp" value="2">
イ:<input type="radio" name="camp" value="3">
ソ\:<input type="radio" name="camp" value="4">
ヤ:<input type="radio" name="camp" value="5">
<br>
<!--// 自国一括通信:<input type="checkbox" name="camp" value="1"><br>//-->
<span style="color:$camp_info[0][1]">無:<input type="radio" name="camp" value="6"></span>
<span style="color:$camp_info[1][1]">ア:<input type="radio" name="camp" value="1"></span>
<span style="color:$camp_info[2][1]">フ:<input type="radio" name="camp" value="2"></span>
<span style="color:$camp_info[3][1]">イ:<input type="radio" name="camp" value="3"></span>
<span style="color:$camp_info[4][1]">ソ\:<input type="radio" name="camp" value="4"></span>
<span style="color:$camp_info[5][1]">ヤ:<input type="radio" name="camp" value="5"></span>
<br>
  • 全:<input type="radio" name="camp" value="7">
    <span style="color:$camp_info[0][1]">全:<input type="radio" name="camp" value="7"></span>
# ログ更新処理
# unshift (@lines,"$date<>$DAT{'nm'}<>$DAT{'camp'}<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>$in{'nm'}<>\n");
unshift (@lines,"$date<>$DAT{'nm'}<>$tocamp<>$com<>$DAT{'sogo'}<>$addr<>$host<>$agent<>$time<>$in{'nm'}<>\n");
  • 	# ログを展開
    	open(IN,"$logfile") || &error("Open Error : $logfile");
    	local $log_last_flag=0;
    		my $camp_flag = $camp_info[$DAT{'camp'}][0];
    	while (<IN>) {
    		$log_last_flag++;
    		local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent,$time2,$myid) = split(/<>/);
    
    		if($myid eq $DAT{'nm'} || $camp==7){ # ←ココを修正 ※修正しました
			$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:09 (2684d)