recwrap.pl

コミット日時:

2009/05/05 23:34:00 (15 年前)

コミッタ:

sorshi

ログメッセージ:

PT1対応。

ファイル:

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 = "