チェンジセット 91: trunk/install/perl/recwrap.pl
- コミット日時:
- 2009/05/05 23:34:00 (16 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/recwrap.pl
r83 r91 464 464 @processline = split(/\s+/,$_); 465 465 $filename = $processline[8]; 466 #print "DEBUG $_ \n";467 #print "DEBUG $processline[0]/$processline[1]/$processline[2]/$processline[3]/$processline[4]/$processline[5]/$processline[6]/$processline[7]/$processline[8] \n";468 466 $filename =~ s/$recfolderpath\///; 469 #print "DEBUG FILENAME $filename\n"; 470 &writelog("recwrap DEBUG continuousrecordingcheck() FILENAME $filename"); 467 &writelog("recwrap DEBUG continuousrecordingcheck() FILENAME $filename"); 471 468 # 1520-9-20081201-0230.m2t 472 469 @filenameparts = split(/-/,$filename); … … 474 471 $startdate = $filenameparts[2]; 475 472 $starttime = $filenameparts[3]; 476 $startdatetime = $filenameparts[2].$filenameparts[3]; 473 @filenameparts = split(/\./,$starttime); 474 $startdatetime = $startdate.$filenameparts[0]; 477 475 #DBから録画中番組のデータ探す 478 476 $DBQuery = "