- コミット日時:
- 2008/06/27 20:15:46 (16 年前)
- ファイル:
-
- trunk/doc/CHANGES.txt (更新) (1 diff)
- trunk/install/perl/getxml2db.pl (更新) (1 diff)
- trunk/install/perl/tvrecording.pl (更新) (2 diffs)
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/doc/CHANGES.txt
r77 r79 1 1 foltia 更新履歴 http://www.dcc-jpl.com/soft/foltia/ 2 3 08.6.27 4 tvrecording.pl: 5 foltia簡易BBSで指摘されたXML解析の正規表現修正。 6 getxml2db.pl: 7 foltia簡易BBSで指摘されたログ出力項目の修正。 2 8 3 9 08.3.17 trunk/install/perl/getxml2db.pl
r60 r79 74 74 s/\'/\\'/gio; 75 75 s/\"/\'/gio; 76 s/[\w]*=/\$item{$&}=/gio; 77 s/\=}=/}=/gio; 76 #s/[\w]*=/\$item{$&}=/gio; 77 #s/\=}=/}=/gio; 78 s/(\w+)=/\$item{$1}=/gio;#by foltiaBBS 78 79 79 80 #$item{PID}='21543'; trunk/install/perl/tvrecording.pl
r44 r79 307 307 # $outputfile .= "$ARGV[3]"; 308 308 # $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 "); 310 310 311 311 }else{ … … 313 313 chomp($outputfile); 314 314 $outputfile .= ".m2p"; 315 &writelog("tvrecording: DEBUG ARGV[ 2] is null \$outputfile $outputfile ");315 &writelog("tvrecording: DEBUG ARGV[3] is null \$outputfile $outputfile "); 316 316 317 317 }