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

コミット日時:

2010/04/02 22:58:58 (15 年前)

コミッタ:

sorshi

ログメッセージ:

radiko録音対応

ファイル:

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

trunk/install/perl/recwrap.pl

@@ -54 +54 @@
-}else{
-        $extension = ".m2p";#MPEG2の拡張子
+}
+if ($recch == -2 ){ #ラジオ局
+        $extension = ".aac";#MPEG2の拡張子
-}
-
@@ -71 +74 @@
-        }
-}
+
+if ($recch == -2 ){ #ラジオ局
+# stationIDからradiko識別子を取得
+$sth = $dbh->prepare($stmt{'recwrap.8'});
+$sth->execute($stationid);
+ @stationline= $sth->fetchrow_array;
+$radikostationname = $stationline[3];
+
+$oserr = system("$toolpath/perl/digitalradiorecording.pl $radikostationname $reclength $outputfilename");
+$oserr = $oserr / 256;
+&writelog("recwrap DEBUG radiko rec finished. $oserr");
+
+# aacファイル名をfoltia_subtitlePIDレコードに書き込み
+$sth = $dbh->prepare($stmt{'recwrap.1'});
+$sth->execute($outputfilename, $pid);
+&writelog("recwrap DEBUG UPDATEDB $stmt{'recwrap.1'}");
+&changefilestatus($pid,$FILESTATUSTRANSCODEMP4BOX);
+
+# aacファイル名をfoltia_m2pfilesPIDレコードに書き込み
+$sth = $dbh->prepare($stmt{'recwrap.2'});
+$sth->execute($outputfilename);
+&writelog("recwrap DEBUG UPDATEDB $stmt{'recwrap.2'}");
+
+
+}else{#非ラジオ局なら
-
-if ($usedigital == 1){
@@ -96 +124 @@
-exit ;
-}
-
+ # NOT $usedigital == 1
-#リモコン操作
-# $haveirdaunit = 1;リモコンつないでるかどうか確認
@@ -176 +204 @@
-&changefilestatus($pid,$FILESTATUSCAPEND);
-}
-
+
-
-# MPEG4 ------------------------------------------------------
@@ -184 +212 @@
- @psptrcn= $sth->fetchrow_array;
-if ($psptrcn[0]  == 1 ){#トラコン番組
-
-
-
+       
+       
+       
-}#PSPトラコンあり
-