チェンジセット 110
- コミット日時:
- 2010/08/05 20:21:11 (14 年前)
- ファイル:
凡例:
- 変更無し
- 追加
- 削除
- 更新
- コピー
- 移動
trunk/install/perl/recwrap.pl
r97 r110 220 220 my $now = time() + 60 * 2; 221 221 &writelog("recwrap DEBUG continuousrecordingcheck() now $now"); 222 my @processes =`ps ax | grep recfriio`;222 my @processes =`ps ax | grep -e recpt1 -e recfriio`; #foltiaBBS もうすぐ終了する番組のプロセスをkill 投稿日 2010年08月05日03時19分33秒 投稿者 Nis 223 223 224 224 my $psline = ""; … … 228 228 my $sth; 229 229 foreach (@processes){ 230 if (/ friiodetect/) {230 if (/recpt1|friiodetect/) { 231 231 if (/^.[0-9]*\s/){ 232 232 push(@pid, $&);