#!/usr/local/bin/perl
#
# Usage: killnomos [PIDFILE]
#   PIDFILE : default='$NOMOS/lib/default/log/nomos.pid'
#
unless(defined $ENV{NOMOS}){
    print STDERR "You must setenv \$NOMOS.\n(ex. export NOMOS=/home/nomos )\n";
    exit 1;
}

if ( defined($ARGV[0])){
    $PIDFILE=$ENV{"NOMOS"}."/lib/$ARGV[0]/log/nomos.pid";
}else{
   $PIDFILE=$ENV{"NOMOS"}.'/lib/default/log/nomos.pid';
}

if ( -e $PIDFILE ){
    if(open(IN,"<$PIDFILE")){
	$PID=<IN>;
	close(IN);
	if ( $PID ne '' ){
	    print STDERR "killing:${PID}\n";
	    kill 2, $PID;
	    print STDERR "removing:${PIDFILE}\n";
	    unlink $PIDFILE;
	    exit 0;
	}
    }
    print STDERR "${PIDFILE} is not valid.\n";
    print STDERR "removing:${PIDFILE}\n";
    unlink $PIDFILE;
    exit 1;
}
    print STDERR "${PIDFILE} is not exist.\n";
    exit 1;


