#!/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"); }

In reply to Service controller for Linux/Unix by jjhorner

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":