Index: /trunk/install/perl/recwrap.pl
===================================================================
--- /trunk/install/perl/recwrap.pl (リビジョン 97)
+++ /trunk/install/perl/recwrap.pl (リビジョン 110)
@@ -220,5 +220,5 @@
     my $now = time() + 60 * 2;
 &writelog("recwrap DEBUG continuousrecordingcheck() now $now");
-my @processes =`ps ax | grep recfriio`;
+my @processes =`ps ax | grep -e recpt1 -e recfriio`; #foltiaBBS もうすぐ終了する番組のプロセスをkill 投稿日 2010年08月05日03時19分33秒 投稿者 Nis 
 
 my $psline = "";
@@ -228,5 +228,5 @@
 my $sth;
 foreach (@processes){
-	if (/friiodetect/) {
+	if (/recpt1|friiodetect/) {
 		if (/^.[0-9]*\s/){
 			push(@pid, $&);