perl

コミット日時:

2010/08/23 00:10:13 (14 年前)

コミッタ:

sorshi

ログメッセージ:

・ラジオ局録音の場合はepgimport実行しないように修正

ファイル:

trunk/install/perl/epgimport.pl

r111	r112
89	89	$channel = $data[0];
90	90	$ontvcode = $data[1];
91		&writelog("epgimport DEBUG Single station mode (ch:$channel / $ontvcode).");
92		}
	91	if ($channel > 0){
	92	&writelog("epgimport DEBUG Single station mode (ch:$channel / $ontvcode).");
	93	}else{#ラジオ局などの場合
	94	&writelog("epgimport ABORT SID $stationid is not Digital TV ch.");
	95	exit;
	96	}#endif ラジオ局かどうか
	97	}#end unless($data[0] == 1
93	98	}#endif $stationid > 0
94	99

r111	r112
41	41
42	42	my $stationid = "";
43		if ($pid <= 0){
	43	if ($pid <= 0){#EPG録画/キーワード録画
44	44	#EPG更新 & DB更新
45	45	$dbh = DBI->connect($DSN,$DBUser,$DBPass) \|\|die $DBI::error;;
46	46	$stationid = &pid2sid($pid);
	47	&writelog("folprep DEBUG epgimport.pl $stationid");
47	48	system("$toolpath/perl/epgimport.pl $stationid");
48		}else{
	49	}else{#しょぼかる録画
49	50	#XMLゲット & DB更新
	51	&writelog("folprep DEBUG getxml2db.pl");
50	52	system("$toolpath/perl/getxml2db.pl");
51	53	}