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

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

環境ポリシー機能搭載

ファイル:

凡例:

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

    r60 r70  
    278278        # 既にトラコンプロセスが走っているなら適当に待機 
    279279        if ($trcnprocesses  >= $cpucores){ 
    280                         &writelog("recwrap TRCN WAITING :$trcnprocesses / $cpucores :$outputfilename "); 
    281                 sleep 53; 
    282                 sleep $recch; 
     280                        if (-e "/proc/uptime" ){ 
     281                        $loadaverage = `uptime`; 
     282                        chomp($loadaverage); 
     283                        }else{ 
     284                        $loadaverage = ""; 
     285                        } 
     286                        &writelog("recwrap TRCN WAITING :$trcnprocesses / $cpucores :$outputfilename $loadaverage"); 
     287                sleep 113; 
     288                sleep ($recch)*5; 
    283289        } 
    284290} until ($trcnprocesses  < $cpucores); 
track feed