| 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 ){ |
|---|
