You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
491 B
Perl
21 lines
491 B
Perl
#!/usr/bin/perl
|
|
|
|
# you will probably need to change $homedir
|
|
# and possibly the path to perl above
|
|
|
|
my $homedir = '/usr/home/infobot/infobot0.34';
|
|
my @ps = `ps auxw`;
|
|
|
|
@result = grep !/grep/, @ps;
|
|
@result = grep /infobot/, @ps;
|
|
|
|
if (!@result) {
|
|
print "trying to run new process\n";
|
|
chdir($homedir) || die "can't chdir to $homedir";
|
|
system("nohup $homedir/infobot -i $homedir/files/irc.params > /dev/null &");
|
|
} else {
|
|
print "already running: \n";
|
|
print " @result\n";
|
|
}
|
|
|