Category: | System Admin |
Author/Contact Info | J. J. Horner <jjhorner@bellsouth.net> |
Description: | Pretty simple script to start and stop services without having to type in paths. Revisions are welcome and encouraged. |
#!/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"); } |
Back to
Code Catacombs