チェンジセット 91: trunk/install/perl

差分発生行の前後
無視リスト:
コミット日時:
2009/05/05 23:34:00 (16 年前)
コミッタ:
sorshi
ログメッセージ:

PT1対応。

ファイル:

凡例:

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

  • trunk/install/perl/digitaltvrecording.pl

    r83 r91  
    327327sub calldigitalrecorder{ 
    328328# 
    329 #いまんところ白friioと黒friioのみ 
     329#白friioと黒friio、PT1対応 
    330330#2008/10/23 recfriio4仕様に変更  
    331331# 
    332332my $oserr = 0; 
    333  
     333my $originalrecch = $recch; 
     334my $errorflag = 0; 
    334335if ($bandtype == 0){ 
    335336# 地デジ friio 
    …… 
    375376} 
    376377 
    377  
     378# PT1 
     379# b25,recpt1があるか確認 
     380        if  (-e "$toolpath/perl/tool/recpt1"){ 
     381                &writelog("digitaltvrecording DEBUG recpt1 --b25  $originalrecch $reclengthsec $outputfile  "); 
     382                $oserr = system("$toolpath/perl/tool/recpt1 --b25  $originalrecch $reclengthsec $outputfile  "); 
     383                $oserr = $oserr >> 8; 
     384                        if ($oserr > 0){ 
     385                        &writelog("digitaltvrecording :ERROR :PT1 is BUSY.$oserr"); 
     386                        $errorflag = 2; 
     387                        } 
     388        }else{ # エラー recpt1がありません 
     389                &writelog("digitaltvrecording :ERROR :recpt1  not found. You must install $toolpath/b25 and $toolpath/recpt1."); 
     390        $errorflag = 1; 
     391        } 
     392# friio 
     393if ($errorflag >= 1 ){ 
    378394# b25,recfriioがあるか確認 
    379395        if  (-e "$toolpath/perl/tool/recfriio"){ 
    …… 
    396412        exit 1; 
    397413        } 
     414}#end if errorflag 
    398415 
    399416#BS1/BS2などのスプリットを 

  • trunk/install/perl/recwrap.pl

    r83 r91  
    464464                @processline = split(/\s+/,$_); 
    465465                $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"; 
    468466                $filename =~ s/$recfolderpath\///; 
    469                 #print "DEBUG FILENAME $filename\n"; 
    470                         &writelog("recwrap DEBUG continuousrecordingcheck()  FILENAME $filename"); 
     467                &writelog("recwrap DEBUG continuousrecordingcheck()  FILENAME $filename"); 
    471468                # 1520-9-20081201-0230.m2t 
    472469                @filenameparts = split(/-/,$filename); 
    …… 
    474471                $startdate = $filenameparts[2]; 
    475472                $starttime = $filenameparts[3]; 
    476                 $startdatetime = $filenameparts[2].$filenameparts[3]; 
     473                @filenameparts = split(/\./,$starttime); 
     474                $startdatetime = $startdate.$filenameparts[0]; 
    477475                #DBから録画中番組のデータ探す 
    478476        $DBQuery =  " 
track feed