Index: trunk/install/perl/epgimport.pl =================================================================== --- trunk/install/perl/epgimport.pl (リビジョン 111) +++ trunk/install/perl/epgimport.pl (リビジョン 112) @@ -89,6 +89,11 @@ $channel = $data[0]; $ontvcode = $data[1]; - &writelog("epgimport DEBUG Single station mode (ch:$channel / $ontvcode)."); - } + if ($channel > 0){ + &writelog("epgimport DEBUG Single station mode (ch:$channel / $ontvcode)."); + }else{#ラジオ局などの場合 + &writelog("epgimport ABORT SID $stationid is not Digital TV ch."); + exit; + }#endif ラジオ局かどうか + }#end unless($data[0] == 1 }#endif $stationid > 0 Index: trunk/install/perl/folprep.pl =================================================================== --- trunk/install/perl/folprep.pl (リビジョン 111) +++ trunk/install/perl/folprep.pl (リビジョン 112) @@ -41,11 +41,13 @@ my $stationid = ""; -if ($pid <= 0){ +if ($pid <= 0){#EPG録画/キーワード録画 #EPG更新 & DB更新 $dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;; $stationid = &pid2sid($pid); + &writelog("folprep DEBUG epgimport.pl $stationid"); system("$toolpath/perl/epgimport.pl $stationid"); -}else{ +}else{#しょぼかる録画 #XMLゲット & DB更新 + &writelog("folprep DEBUG getxml2db.pl"); system("$toolpath/perl/getxml2db.pl"); }