チェンジセット 79: trunk/install/perl

差分発生行の前後
無視リスト:
コミット日時:
2008/06/27 20:15:46 (16 年前)
コミッタ:
sorshi
ログメッセージ:

tvrecording.pl:
　foltia簡易BBSで指摘されたXML解析の正規表現修正。
getxml2db.pl:
　foltia簡易BBSで指摘されたログ出力項目の修正。

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • trunk/install/perl/getxml2db.pl

    r60 r79  
    7474s/\'/\\'/gio; 
    7575s/\"/\'/gio; 
    76 s/[\w]*=/\$item{$&}=/gio; 
    77 s/\=}=/}=/gio; 
     76#s/[\w]*=/\$item{$&}=/gio; 
     77#s/\=}=/}=/gio; 
     78s/(\w+)=/\$item{$1}=/gio;#by foltiaBBS 
    7879 
    7980#$item{PID}='21543'; 

  • trunk/install/perl/tvrecording.pl

    r44 r79  
    307307#               $outputfile .= "$ARGV[3]";               
    308308#               $outputfile .= `date  +%Y%m%d-%H%M --date "1 min "`; 
    309  &writelog("tvrecording:  DEBUG ARGV[2] ne null  \$outputfile $outputfile "); 
     309 &writelog("tvrecording:  DEBUG ARGV[3] ne null  \$outputfile $outputfile "); 
    310310 
    311311        }else{ 
    …… 
    313313        chomp($outputfile); 
    314314        $outputfile .= ".m2p"; 
    315 &writelog("tvrecording:  DEBUG ARGV[2] is null  \$outputfile $outputfile "); 
     315&writelog("tvrecording:  DEBUG ARGV[3] is null  \$outputfile $outputfile "); 
    316316 
    317317        } 
track feed