Index: trunk/install/perl/foltia_conf1.pl.template
===================================================================
--- trunk/install/perl/foltia_conf1.pl.template (リビジョン 94)
+++ trunk/install/perl/foltia_conf1.pl.template (リビジョン 131)
@@ -11,5 +11,5 @@
 #config section
 $toolpath = '/home/foltia'; #「perl」ディレクトリがあるPATH
-$recunits = '4';					#搭載エンコーダの数
+$recunits = 0;					#アナログキャプチャカード搭載エンコーダの数
 $recfolderpath = '/home/foltia/php/tv';		#録画ファイルを置くPATH
 $uhfbandtype = 1; # CATVなら1 UHF帯なら0 : 0=ntsc-bcast-jp 1=ntsc-cable-jp
Index: trunk/install/perl/digitaltvrecording.pl
===================================================================
--- trunk/install/perl/digitaltvrecording.pl (リビジョン 115)
+++ trunk/install/perl/digitaltvrecording.pl (リビジョン 131)
@@ -400,6 +400,7 @@
 
 	}else{ # エラー recfriioがありません
-		&writelog("digitaltvrecording :ERROR :recfriio  not found. You must install $toolpath/perl/tool/b25 and $toolpath/perl/tool/recfriio.");
-	exit 1;
+		&writelog("digitaltvrecording :ERROR :recfriio  not found. You must install $toolpath/perl/tool/b25 and $toolpath/perl/tool/recfriio:$errorflag");
+	#exit 1;
+	exit $errorflag;
 	}
 }#end if errorflag
Index: trunk/install/perl/recwrap.pl
===================================================================
--- trunk/install/perl/recwrap.pl (リビジョン 115)
+++ trunk/install/perl/recwrap.pl (リビジョン 131)
@@ -117,5 +117,5 @@
 	exit;
 }elsif ($oserr == 2){
-	&writelog("recwrap ERR 2:friio busy;retry.");
+	&writelog("recwrap ERR 2:Device busy;retry.");
 	&continuousrecordingcheck;#もうすぐ終わる番組をkill
 	sleep(2);
@@ -123,5 +123,9 @@
 	$oserr = $oserr / 256;
 	if ($oserr == 2){
-	&writelog("recwrap ERR 2:friio busy;Giving up digital recording.");
+	&writelog("recwrap ERR 2:Device busy;Giving up digital recording.");
+		if ($recunits > 0 ){
+		}else{
+			exit;
+		}
 	}
 }elsif ($oserr == 3){
@@ -130,36 +134,34 @@
 }
 }else{ # NOT $usedigital == 1
-#リモコン操作
-# $haveirdaunit = 1;リモコンつないでるかどうか確認
-if ($haveirdaunit == 1){
-# 録画チャンネルが0なら
-	if ($recch == 0){
-# &つけて非同期でchangestbch.pl呼び出し
-	&writelog("recwrap Call Change STB CH :$pid");
-	system ("$toolpath/perl/changestbch.pl $pid &");
+	if ($recunits > 0 ){
+	#リモコン操作
+	# $haveirdaunit = 1;リモコンつないでるかどうか確認
+	if ($haveirdaunit == 1){
+	# 録画チャンネルが0なら
+		if ($recch == 0){
+	# &つけて非同期でchangestbch.pl呼び出し
+		&writelog("recwrap Call Change STB CH :$pid");
+		system ("$toolpath/perl/changestbch.pl $pid &");
+		}#end if
 	}#end if
-}#end if
-
-if($recch == -10){
-#非受信局なら
-	&writelog("recwrap Not recordable channel;exit:PID $pid");
-	exit;
-	}#end if
-# アナログ録画
-&writelog("recwrap RECSTART $recch $reclength 0 $outputfilename $bitrate $tid $countno $pid $usedigital $digitalstationband $digitalch");
-
-#録画
-#system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfile $bitrate $tid $countno");
-    $starttime = time();
-
-$oserr = system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfilename $bitrate $tid $countno");
-$oserr = $oserr / 256;
-if ($oserr == 1){
-	&writelog("recwrap ABORT recfile exist. [$outputfilename] $recch $reclength 0 0 $bitrate $tid $countno $pid");
-	exit;
-}
-
-}#endif #デジタル優先フラグ
-
+	
+	if($recch == -10){
+	#非受信局なら
+		&writelog("recwrap Not recordable channel;exit:PID $pid");
+		exit;
+		}#end if
+	# アナログ録画
+	&writelog("recwrap RECSTART $recch $reclength 0 $outputfilename $bitrate $tid $countno $pid $usedigital $digitalstationband $digitalch");
+	
+	#録画
+	#system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfile $bitrate $tid $countno");
+		$starttime = time();
+	
+	$oserr = system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfilename $bitrate $tid $countno");
+	$oserr = $oserr / 256;
+	if ($oserr == 1){
+		&writelog("recwrap ABORT recfile exist. [$outputfilename] $recch $reclength 0 0 $bitrate $tid $countno $pid");
+		exit;
+	}
 #デバイスビジーで即死してないか検出
 $now = time();
@@ -189,4 +191,7 @@
 
 	&writelog("recwrap RECEND [$outputfilename] $recch $reclength 0 0 $bitrate $tid $countno $pid");
+
+	}#end if $recunits > 0
+}#endif #デジタル優先フラグ
 
 
@@ -285,4 +290,6 @@
 		system("kill $pid");
 		&writelog("recwrap recording process killed $pid/$endtimeepoch/$now");
+	}else{
+		&writelog("recwrap No processes killed: $endtimeepoch/$now");
 	}
 		}#endif m2t