#!/usr/bin/perl -wT
use strict;

$ENV{PATH} = 
'/bin:/usr/bin:/usr/bin/X11:/usr/local/bin:/usr/bin:/usr/X11R6/bin';

my $ircd = `ps -u me | grep ircd`;
my $services = `ps -u me | grep wrecked`;

if ($ircd) {  print "Ircd is up!\n"; } 

else { 

   print "Starting Ircd......\n";
   `sudo -u dsirc /home/me/Unreal3.1.4/src/ircd`;

}

if ($services) {  print "Services are up!\n"; } 

else { 

   print "Starting Services......\n";
   `sudo -u dsirc /home/me/services/wrecked`;

}