チェンジセット 112: trunk/install

差分発生行の前後
無視リスト:
コミット日時:
2010/08/23 00:10:13 (14 年前)
コミッタ:
sorshi
ログメッセージ:

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

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動
  • trunk/install/perl/epgimport.pl

    r111 r112  
    8989        $channel = $data[0]; 
    9090        $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 
    9398}#endif $stationid > 0 
    9499 
  • trunk/install/perl/folprep.pl

    r111 r112  
    4141 
    4242my $stationid = ""; 
    43 if ($pid <= 0){ 
     43if ($pid <= 0){#EPG録画/キーワード録画 
    4444        #EPG更新 & DB更新 
    4545        $dbh = DBI->connect($DSN,$DBUser,$DBPass) ||die $DBI::error;; 
    4646        $stationid = &pid2sid($pid); 
     47        &writelog("folprep DEBUG epgimport.pl $stationid"); 
    4748        system("$toolpath/perl/epgimport.pl $stationid"); 
    48 }else{ 
     49}else{#しょぼかる録画 
    4950        #XMLゲット & DB更新 
     51        &writelog("folprep DEBUG getxml2db.pl"); 
    5052        system("$toolpath/perl/getxml2db.pl"); 
    5153} 
track feed