Index: trunk/install/perl/digitalradiorecording.pl
===================================================================
--- trunk/install/perl/digitalradiorecording.pl (リビジョン 98)
+++ trunk/install/perl/digitalradiorecording.pl (リビジョン 98)
@@ -0,0 +1,197 @@
+#!/usr/bin/perl
+#
+# Anime recording system foltia
+# http://www.dcc-jpl.com/soft/foltia/
+#
+#digitalradiorecording.pl
+# IPサイマルラジオ「radiko」を録音する。
+#
+#usage digitalradiorecording.pl stationname length(sec) filename
+#引数
+#stationname : radikoの使う曲識別子 例:文化放送 QRR  [必須項目]
+#length(sec) :録画秒数 [必須項目]
+#filename :出力ファイル名 [必須項目]
+#
+# DCC-JPL Japan/foltia project
+#
+#
+
+$path = $0;
+$path =~ s/digitalradiorecording.pl$//i;
+if ($path ne "./"){
+push( @INC, "$path");
+}
+
+#tvConfig.pl -------------------------------
+$extendrecendsec = 10;							#recording end second. 
+#$startupsleeptime = 52;					#process wait(MAX60sec)
+$startupsleeptime = 57;					#process wait(MAX60sec)
+#-------------------------------
+
+require 'foltialib.pl';
+
+# &writelog("digitalradiorecording.pl: DEBUG $ARGV[0] $ARGV[1] ");
+
+
+#準備
+&prepare;
+
+
+&calldigitalrecorder;
+
+# &writelog("digitaldigitalradiorecording:RECEND:$bandtype $recch $lengthsec $stationid $sleeptype $filename $tid $countno $unittype");
+
+# -- これ以下サブルーチン ----------------------------
+
+
+sub prepare{
+
+#引数エラー処理
+$stationname = $ARGV[0] ;
+$lengthsec = $ARGV[1] ;
+$filename = $ARGV[2] ;
+
+
+if (($stationname eq "" ) || ($lengthsec eq "") || ($filename eq "")){
+	print "usage digitalradiorecording.pl stationname length(sec) filename\n";
+	exit;
+}
+
+#my $intval = $recch % 10; # 0〜9 sec
+my $intval = 10;
+my $startupsleep = $startupsleeptime - $intval; #  18〜27 sec
+$reclengthsec = $lengthsec + (60 - $startupsleep) + 1; #
+
+if ( $sleeptype ne "N"){
+	&writelog("digitalradiorecording: DEBUG SLEEP $startupsleeptime:$intval:$startupsleep:$reclengthsec");
+	sleep ( $startupsleep);
+	#2008/08/12_06:39:00 digitalradiorecording: DEBUG SLEEP 17:23:-6:367
+}else{
+	&writelog("digitalradiorecording: DEBUG RAPID START");
+}
+
+$outputpath = "$recfolderpath"."/";
+
+if ($countno eq "0"){
+	$outputfile = $outputpath.$tid."--";
+}else{
+	$outputfile = $outputpath.$tid."-".$countno."-";
+}
+#2番目以降のクリップでファイル名指定があったら
+	if ($filename  ne ""){
+
+		$outputfile = $filename ;
+		$outputfile = &filenameinjectioncheck($outputfile);
+		$outputfilewithoutpath = $outputfile ;
+		$outputfile = $outputpath.$outputfile ;
+		&writelog("digitalradiorecording: DEBUG FILENAME ne null \$outputfile $outputfile ");
+	}else{
+	$outputfile .= strftime("%Y%m%d-%H%M", localtime(time + 60));
+		chomp($outputfile);
+		$outputfile .= ".aac";
+		$outputfilewithoutpath = $outputfile ;
+		&writelog("digitalradiorecording:  DEBUG FILENAME is null \$outputfile $outputfile ");
+	}
+
+
+@wday_name = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
+$sleepcounter = 0;
+$cmd="";
+
+#二重録りなど既に同名ファイルがあったら中断
+if ( -e "$outputfile" ){
+	if ( -s "$outputfile" ){
+	&writelog("digitalradiorecording :ABORT :recfile $outputfile exist.");
+	exit 1;
+	}
+}
+
+}#end prepare
+
+
+
+sub calldigitalrecorder{
+
+if  (-e "$toolpath/perl/tool/ffmpeg"){
+	
+#./ffmpeg -i rtmp://radiko.smartstream.ne.jp:1935/QRR/_defInst_/simul-stream -t 180 -acodec copy ~/php/tv/qrr.aac
+&writelog("digitalradiorecording :DEBUG :$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile.");
+
+system("$toolpath/perl/tool/ffmpeg -y -i rtmp://radiko.smartstream.ne.jp:1935/$stationname/_defInst_/simul-stream -t $reclengthsec -acodec copy $outputfile");
+
+}else{
+	&writelog("digitalradiorecording :ABORT :File not found,recordable ffmpeg on $toolpath/perl/tool/ffmpeg. Show http://d.hatena.ne.jp/nazodane/20100315/1268646192 ");
+	exit 1;
+}
+
+
+
+}# end sub calldigitalrecorder
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+