#! /bin/bash

case "$1" in
  start)
    /usr/sbin/crappyserver &
  ;;
  stop)
    kill `cat /var/run/crappyserver.pid`
  ;;
esac

##</code><code>##

#! /usr/bin/perl -w

use Imagniary::Module;

if ( !Imaginary::Module::crappyserver_is_running() ) {
    open(my $handle, '-|', '/etc/rc.d/init.d/crappyserver start') 
      || die "failure!";
    while( my $line = <$handle> ) {
      print $line;
    }
    close($handle);
    print "Done!\n";
}