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

差分発生行の前後
無視リスト:
コミット日時:
2008/01/24 18:27:18 (17 年前)
コミッタ:
sorshi
ログメッセージ:

環境ポリシー機能搭載

ファイル:

凡例:

変更無し
追加
削除
更新
コピー
移動
  • trunk/install/perl/foltialib.pl

    r50 r70  
    227227 
    228228 
     229sub getphpstyleconfig{ 
     230my $key = $_[0]; 
     231my $phpconfigpath = ""; 
     232my $configline = ""; 
     233 # read 
     234if (-e "$phptoolpath/php/foltia_config2.php"){ 
     235        $phpconfigpath = "$phptoolpath/php/foltia_config2.php"; 
     236}elsif(-e "$toolpath/php/foltia_config2.php"){ 
     237        $phpconfigpath = "$toolpath/php/foltia_config2.php"; 
     238}else{ 
     239        $phpconfigpath = `locate foltia_config2.php | head -1`; 
     240        chomp($phpconfigpath); 
     241} 
     242 
     243 
     244if (-r $phpconfigpath ){ 
     245open (CONFIG ,"$phpconfigpath") || die "File canot read.$!"; 
     246while(<CONFIG>){ 
     247        if (/$key/){ 
     248        $configline = $_; 
     249        $configline =~ s/\/\/.*$//; 
     250        $configline =~ s/\/\*.*\*\///; 
     251        }else{ 
     252        } 
     253} 
     254close(CONFIG); 
     255}#end if -r $phpconfigpath  
     256return ($configline); 
     257}#end sub getphpstyleconfig 
     258 
    229259 
    2302601; 
track feed