Index: trunk/install/perl/digitaltvrecording.pl
===================================================================
--- trunk/install/perl/digitaltvrecording.pl (リビジョン 83)
+++ trunk/install/perl/digitaltvrecording.pl (リビジョン 91)
@@ -327,9 +327,10 @@
 sub calldigitalrecorder{
 #
-#いまんところ白friioと黒friioのみ
+#白friioと黒friio、PT1対応
 #2008/10/23 recfriio4仕様に変更 
 #
 my $oserr = 0;
-
+my $originalrecch = $recch;
+my $errorflag = 0;
 if ($bandtype == 0){
 # 地デジ friio
@@ -375,5 +376,20 @@
 }
 
-
+# PT1
+# b25,recpt1があるか確認
+	if  (-e "$toolpath/perl/tool/recpt1"){
+		&writelog("digitaltvrecording DEBUG recpt1 --b25  $originalrecch $reclengthsec $outputfile  ");
+		$oserr = system("$toolpath/perl/tool/recpt1 --b25  $originalrecch $reclengthsec $outputfile  ");
+		$oserr = $oserr >> 8;
+			if ($oserr > 0){
+			&writelog("digitaltvrecording :ERROR :PT1 is BUSY.$oserr");
+			$errorflag = 2;
+			}
+	}else{ # エラー recpt1がありません
+		&writelog("digitaltvrecording :ERROR :recpt1  not found. You must install $toolpath/b25 and $toolpath/recpt1.");
+	$errorflag = 1;
+	}
+# friio
+if ($errorflag >= 1 ){
 # b25,recfriioがあるか確認
 	if  (-e "$toolpath/perl/tool/recfriio"){
@@ -396,4 +412,5 @@
 	exit 1;
 	}
+}#end if errorflag
 
 #BS1/BS2などのスプリットを