Index: trunk/install/perl/tvrecording.pl =================================================================== --- trunk/install/perl/tvrecording.pl (リビジョン 29) +++ trunk/install/perl/tvrecording.pl (リビジョン 43) @@ -268,8 +268,11 @@ $reclengthsec = $reclengthsec + (60 - $startupsleep) + 1; # -&writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep:$reclengthsec"); - -sleep ( $startupsleep); - +if ( $ARGV[2] ne "N"){ + &writelog("tvrecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep:$reclengthsec"); + sleep ( $startupsleep); +}else{ + &writelog("tvrecording: DEBUG RAPID START"); + +} if ($recunits > 1){ my $deviceno = $recunits - 1;#3枚差しのとき/dev/video2から使う @@ -321,6 +324,8 @@ #二重録りなど既に同名ファイルがあったら中断 if ( -e "$outputfile" ){ -&writelog("tvrecording :ABORT :recfile $outputfile exist."); -exit 1; + if ( -s "$outputfile" ){ + &writelog("tvrecording :ABORT :recfile $outputfile exist."); + exit 1; + } }