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 |
---|
| 393 | if ($errorflag >= 1 ){ |
---|