チェンジセット 111: trunk/install/perl/foltialib.pl

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

・放送波からのEPG番組表取得に対応。
・foltia_epgテーブル構成変更
・folcast.phpがSQLiteでまったく動作していなかったのを修正

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動

  • trunk/install/perl/foltialib.pl

    r94 r111  
    381381}#endsub makemp4dir 
    382382 
    383  
    384  
    385  
     383sub pid2sid{ 
     384#番組IDからStation IDを取得 
     385my $pid = $_[0]; 
     386my $sth; 
     387    $sth = $dbh->prepare($stmt{'foltialib.pid2sid.1'}); 
     388    $sth->execute($pid); 
     389my @statusinfo = $sth->fetchrow_array; 
     390my $sid  = $statusinfo[0]; 
     391 
     392if ($sid eq ""){ 
     393        return  0 ; 
     394}else{ 
     395        return $sid; 
     396} 
     397 
     398}#end sub pid2sid 
    386399 
    387400 
track feed