Index: trunk/install/perl/digitaltvrecording.pl
===================================================================
--- trunk/install/perl/digitaltvrecording.pl (リビジョン 91)
+++ trunk/install/perl/digitaltvrecording.pl (リビジョン 94)
@@ -25,5 +25,5 @@
 $path = $0;
 $path =~ s/digitaltvrecording.pl$//i;
-if ($pwd  ne "./"){
+if ($path ne "./"){
 push( @INC, "$path");
 }
@@ -112,5 +112,5 @@
 		&writelog("digitaltvrecording: DEBUG FILENAME ne null \$outputfile $outputfile ");
 	}else{
-		$outputfile .= `date  +%Y%m%d-%H%M --date "1 min "`;
+	$outputfile .= strftime("%Y%m%d-%H%M", localtime(time + 60));
 		chomp($outputfile);
 		$outputfile .= ".m2t";
@@ -193,5 +193,5 @@
 		}
 	}else{ # エラー b25とrecfriioがありません
-		&writelog("digitaltvrecording :ERROR :recfriio or b25 not found. You must install $toolpath/b25 and $toolpath/recfriio.");
+		&writelog("digitaltvrecording :ERROR :recfriio or b25 not found. You must install $toolpath/perl/tool/b25 and $toolpath/perl/tool/recfriio.");
 	exit 1;
 	}
@@ -387,5 +387,5 @@
 			}
 	}else{ # エラー recpt1がありません
-		&writelog("digitaltvrecording :ERROR :recpt1  not found. You must install $toolpath/b25 and $toolpath/recpt1.");
+		&writelog("digitaltvrecording :ERROR :recpt1  not found. You must install $toolpath/tool/b25 and $toolpath/tool/recpt1.");
 	$errorflag = 1;
 	}
@@ -409,5 +409,5 @@
 			}
 	}else{ # エラー recfriioがありません
-		&writelog("digitaltvrecording :ERROR :recfriio  not found. You must install $toolpath/b25 and $toolpath/recfriio.");
+		&writelog("digitaltvrecording :ERROR :recfriio  not found. You must install $toolpath/perl/tool/b25 and $toolpath/perl/tool/recfriio.");
 	exit 1;
 	}