#!/usr/bin/perl 
#
#       Author: J. J. Horner
#       Date: 02/08/2001
#
#  Script to start and stop services without having to type in paths
#  Infinitely lazy way to do things, but it works.
#  script should be in a directory in root's path and executable
#  link 'ln -s /usr/sbin/start /usr/sbin/stop'
#
#  Paths may need to be reset.

use strict;

my $service = shift;
$0 =~ /([^\/]+)$/;
my $action = $1;
$service =~ tr~/~~d;

if (-e "/etc/rc.d/init.d/$service") {
        exec("/etc/rc.d/init.d/$service", $action) or die "exec: $!";
} else {
        print("Service $service does not exist on this system.\n");
}