チェンジセット 70: trunk/install/perl

コミット日時:

2008/01/24 18:27:18 (17 年前)

コミッタ:

sorshi

ログメッセージ:

環境ポリシー機能搭載

ファイル:

• trunk/install/perl/envpolicyupdate.pl (追加)
• trunk/install/perl/foltia_conf1.pl.template (更新) (1 diff)
• trunk/install/perl/foltialib.pl (更新) (1 diff)
• trunk/install/perl/ipodtranscode.pl (更新) (1 diff)
• trunk/install/perl/recwrap.pl (更新) (1 diff)

trunk/install/perl/foltia_conf1.pl.template

@@ -25 +25 @@
-#2:iPod H.264 中画質 24fps 300kbps
-#3:iPod H.264 高画質 30fps 300kbps
+$phptoolpath = $toolpath ;#php版の初期設定の位置。デフォルトではperlと同じ位置
-
-#以下はデフォルトでインストールしてればいじらなくてもいい

trunk/install/perl/foltialib.pl

@@ -227 +227 @@
-
-
+sub getphpstyleconfig{
+my $key = $_[0];
+my $phpconfigpath = "";
+my $configline = "";
+ # read
+if (-e "$phptoolpath/php/foltia_config2.php"){
+        $phpconfigpath = "$phptoolpath/php/foltia_config2.php";
+}elsif(-e "$toolpath/php/foltia_config2.php"){
+        $phpconfigpath = "$toolpath/php/foltia_config2.php";
+}else{
+        $phpconfigpath = `locate foltia_config2.php | head -1`;
+        chomp($phpconfigpath);
+}
+
+
+if (-r $phpconfigpath ){
+open (CONFIG ,"$phpconfigpath") || die "File canot read.$!";
+while(<CONFIG>){
+        if (/$key/){
+        $configline = $_;
+        $configline =~ s/\/\/.*$//;
+        $configline =~ s/\/\*.*\*\///;
+        }else{
+        }
+}
+close(CONFIG);
+}#end if -r $phpconfigpath 
+return ($configline);
+}#end sub getphpstyleconfig
+
-
-1;

trunk/install/perl/ipodtranscode.pl

@@ -103 +103 @@
-$encodeoption = "-y -i $inputmpeg2  -target ipod -profile 51 -level 30 $cropopt  -acodec aac -ab 96 -vcodec h264  -maxrate 700 -minrate 0 -deinterlace -b 300 -ar 32000 -mbd 2 -coder 1 -cmp 2 -subcmp 2 -s 320x240 -r 30000/1001  -flags loop -trellis 2 -partitions parti4x4+parti8x8+partp4x4+partp8x8+partb8x8 $movietitle ${mp4outdir}MAQ${mp4filenamestring}.MP4";
-$mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4";
-}elsif($trconqty == 4){ #sample:src 106.6sec encode 334.8sec x3.14 kbps @Celeron2.6GHz 904kbps
-
-
+
+
+
-$mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4";
-
-684.5sec x6.42 kbps @Celeron2.6GHz 667kbps
+1012sec x9.49 727kbps @Celeron2.6GHz
-
-350 -ar 32000 -mbd 2 -coder 1 -cmp 2 -subcmp 2 -s 480x32
+400 -ar 32000 -mbd 2 -coder 1 -cmp 2 -subcmp 2 -s 480x36
-$mp4file = "${mp4outdir}MAQ${mp4filenamestring}.MP4";
-}

trunk/install/perl/recwrap.pl

@@ -278 +278 @@
-        # 既にトラコンプロセスが走っているなら適当に待機
-        if ($trcnprocesses  >= $cpucores){
-
-
-
+
+
+
+
+
+
+
+
+
-        }
-} until ($trcnprocesses  < $cpucores);