Index: trunk/install/perl/recwrap.pl
===================================================================
--- trunk/install/perl/recwrap.pl (リビジョン 94)
+++ trunk/install/perl/recwrap.pl (リビジョン 97)
@@ -54,4 +54,7 @@
 }else{
 	$extension = ".m2p";#MPEG2の拡張子
+}
+if ($recch == -2 ){ #ラジオ局
+	$extension = ".aac";#MPEG2の拡張子
 }
 
@@ -71,4 +74,29 @@
 	}
 }
+
+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,5 +124,5 @@
 exit ;
 }
-}else{
+}else{ # NOT $usedigital == 1
 #リモコン操作
 # $haveirdaunit = 1;リモコンつないでるかどうか確認
@@ -176,5 +204,5 @@
 &changefilestatus($pid,$FILESTATUSCAPEND);
 }
-
+}#非ラジオ局
 
 # MPEG4 ------------------------------------------------------
@@ -184,7 +212,7 @@
  @psptrcn= $sth->fetchrow_array;
 if ($psptrcn[0]  == 1 ){#トラコン番組
-&writelog("recwrap Launch ipodtranscode.pl");
-exec ("$toolpath/perl/ipodtranscode.pl");
-exit;
+	&writelog("recwrap Launch ipodtranscode.pl");
+	exec ("$toolpath/perl/ipodtranscode.pl");
+	exit;
 }#PSPトラコンあり