チェンジセット 43: trunk/install/perl/recwrap.pl
- コミット日時:
- 2007/01/28 20:26:48 (18 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/recwrap.pl
r8 r43 75 75 #録画 76 76 #system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfile $bitrate $tid $countno"); 77 $starttime = (`date +%s`); 78 77 79 $oserr = system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfilename $bitrate $tid $countno"); 78 80 $oserr = $oserr / 256; … … 80 82 &writelog("recwrap ABORT recfile exist. [$outputfilename] $recch $reclength 0 0 $bitrate $tid $countno $pid"); 81 83 exit; 82 }else{ 84 } 85 #デバイスビジーで即死してないか検出 86 $now = (`date +%s`); 87 if ($now < $starttime + 100){ #録画プロセス起動してから100秒以内に戻ってきてたら 88 while($now < $starttime + 100){ 89 &writelog("recwrap retry recording $now $starttime"); 90 $starttime = (`date +%s`); 91 $oserr = system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfilename $bitrate $tid $countno"); 92 $now = (`date +%s`); 93 $oserr = $oserr / 256; 94 if ($oserr == 1){ 95 &writelog("recwrap ABORT recfile exist. in resume process.[$outputfilename] $recch $reclength 0 0 $bitrate $tid $countno $pid"); 96 exit; 97 }# if 98 }# while 99 } # if 100 101 83 102 &writelog("recwrap RECEND [$outputfilename] $recch $reclength 0 0 $bitrate $tid $countno $pid"); 84 } 103 85 104 #DB初期化 86 105 my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
