チェンジセット 94: trunk/install/perl/tvrecording.pl

コミット日時:

2010/02/28 22:28:26 (15 年前)

コミッタ:

sorshi

ログメッセージ:

SQLite採用

ファイル:

• trunk/install/perl/tvrecording.pl (更新) (3 diffs)

trunk/install/perl/tvrecording.pl

@@ -29 +29 @@
-$path = $0;
-$path =~ s/tvrecording.pl$//i;
-wd 
+ath
-push( @INC, "$path");
-}
@@ -301 +301 @@
-#               $outputfile .= "$ARGV[3]";
-#               }else{
-`date  +%Y%m%d-%H%M --date "1 min "`
+strftime("%Y%m%d-%H%M", localtime(time + 60))
-#               }
-                $outputfile = $ARGV[3];
@@ -308 +308 @@
-                $outputfile = $outputpath.$outputfile ;
-#               $outputfile .= "$ARGV[3]";              
-`date  +%Y%m%d-%H%M --date "1 min "`
+strftime("%Y%m%d-%H%M", localtime(time + 60))
-                &writelog("tvrecording:  DEBUG ARGV[2] 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 .= ".m2p";