チェンジセット 83: trunk/install/perl/recwrap.pl

コミット日時:

2008/12/30 22:12:46 (15 年前)

コミッタ:

sorshi

ログメッセージ:

foltiaHD最初のリリース。
デジタル録画はFriio/Friio BS/CSのみに対応。
ivtvは1.0系使用になりました。

ファイル:

• trunk/install/perl/recwrap.pl (更新) (7 diffs)

trunk/install/perl/recwrap.pl

@@ -1 +1 @@
-#!/usr/bin/perl
- ch length(sec) [bitrate(5)] [TID] [NO]  [PID]
+ch length(sec) [bitrate(5)] [TID] [NO] [PID] [stationid] [digitalflag] [digitalband] [digitalch] 
-#
-# Anime recording system foltia
@@ -39 +39 @@
-$tid  = $ARGV[3] ;
-$countno  = $ARGV[4] ;
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-$outputfile = `date  +%Y%m%d-%H%M --date "1 min "`;
-chomp($outputfile);
+
-if ($tid == 0){
-".m2p"
+$extension
-                $mp4newstylefilename = "-0--".$outputfile."-".$recch;
-}else{
-        if ($countno == 0){
-".m2p"
+$extension
-                $mp4newstylefilename = "-" . $tid ."--".$outputfile;
-        }else{
-".m2p"
+$extension
-                $mp4newstylefilename = "-" . $tid ."-".$countno."-".$outputfile;
-        }
-}
+
+if ($usedigital == 1){
+#デジタルなら
+&writelog("recwrap RECSTART DIGITAL $digitalstationband $digitalch $reclength $stationid 0 $outputfilename $tid $countno friio");
+#録画
+$starttime = (`date +%s`);
+$oserr = system("$toolpath/perl/digitaltvrecording.pl $digitalstationband $digitalch $reclength $stationid 0 $outputfilename $tid $countno friio");
+$oserr = $oserr / 256;
+
+if ($oserr == 1){
+        &writelog("recwrap ABORT recfile exist. [$outputfilename] $digitalstationband $digitalch $reclength $stationid 0  $outputfilename $tid $countno");
+        exit;
+}elsif ($oserr == 2){
+        &writelog("recwrap ERR 2:friio busy;retry.");
+        &continuousrecordingcheck;#もうすぐ終わる番組をkill
+        sleep(2);
+        $oserr = system("$toolpath/perl/digitaltvrecording.pl $digitalstationband $digitalch $reclength $stationid N $outputfilename $tid $countno friio");
+        $oserr = $oserr / 256;
+        if ($oserr == 2){
+        &writelog("recwrap ERR 2:friio busy;Giving up digital recording.");
+        }
+}elsif ($oserr == 3){
+&writelog("recwrap ABORT:ERR 3");
+exit ;
+}
+}else{
-#リモコン操作
-# $haveirdaunit = 1;リモコンつないでるかどうか確認
@@ -71 +114 @@
-        exit;
-        }#end if
-
-
+
+
+
-#録画
-#system("$toolpath/perl/tvrecording.pl $recch $reclength 0 $outputfile $bitrate $tid $countno");
@@ -83 +127 @@
-        exit;
-}
+
+}#endif #デジタル優先フラグ
+
-#デバイスビジーで即死してないか検出
-$now = (`date +%s`);
-        if ($now < $starttime + 100){ #録画プロセス起動してから100秒以内に戻ってきてたら
+        $retrycounter == 0;
-                while($now < $starttime + 100){
+                        if($retrycounter >= 5){
+                                &writelog("recwrap WARNING  Giving up recording.");
+                                last;
+                        }
-                &writelog("recwrap retry recording $now $starttime");
+                #アナログ録画
-$starttime = (`date +%s`);
+if($outputfilename =~ /.m2t$/){
+        $outputfilename =~ s/.m2t$/.m2p/;
+}
-$oserr = system("$toolpath/perl/tvrecording.pl $recch $reclength N $outputfilename $bitrate $tid $countno");
-$now = (`date +%s`);
@@ -96 +152 @@
-                                exit;
-                        }# if
+                $retrycounter++;
-                }# while
-        } # if 
-
-
-        &writelog("recwrap RECEND [$outputfilename] $recch $reclength 0 0 $bitrate $tid $countno $pid");
-
-#DB初期化
-        my $data_source = sprintf("dbi:%s:dbname=%s;host=%s;port=%d",
-                $DBDriv,$DBName,$DBHost,$DBPort);
-         $dbh = DBI->connect($data_source,$DBUser,$DBPass) ||die $DBI::error;;
-
-# m2pファイル名をPIDレコードに書き込み
-
-
-
+
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
-
+
+
-
-# m2pファイル名をPIDレコードに書き込み
- 
+
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
-UPDATEDB 
+DEBUG UPDATEDB
-
-# Starlight breaker向けキャプチャ画像作成
-if (-e "$toolpath/perl/captureimagemaker.pl"){
-        &writelog("recwrap Call captureimagemaker $outputfilename");
+&changefilestatus($pid,$FILESTATUSCAPTURE);
-        system ("$toolpath/perl/captureimagemaker.pl $outputfilename");
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
- @psptrcn= $sth->fetchrow_array;
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
- 
-#TIDが100以上の3桁の場合はそのまま
-my $pspfilnamehd = "";
-
-
+
+
-$pspdirname = "$tid.localized/";
-$pspdirname = $recfolderpath."/".$pspdirname;
-
-#なければ作る
-
-
-
-
+#
+#
+#
+#
-$pspdirname = "$tid.localized/mp4/";
-$pspdirname = $recfolderpath."/".$pspdirname;
-#なければ作る
-
-
-
-
+#
+#
+#
+#
-
-#ファイル名決定
@@ -350 +412 @@
-
-# MP4ファイル名をPIDレコードに書き込み
-
-
-
+
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
@@ -358 +418 @@
-
-# MP4ファイル名をfoltia_mp4files挿入
- "insert into 
+"insert into
-         $sth = $dbh->prepare($DBQuery);
-        $sth->execute();
-&writelog("recwrap UPDATEmp4DB  $DBQuery");
-
+&changefilestatus($pid,200);
-}#PSPトラコンあり
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+