#!/usr/bin/perl

if ($#ARGV != 0) {
    print "specify configuration (host)\n";
    exit(1);
}

$OSTYPE   = `uname -s`;
chomp $OSTYPE;
#$LIBRADIR = "/afs/cs/project/cmcl-pach/libra";
$LIBRADIR = $ENV{"LIBRA_PATH"};
if (!defined($LIBRADIR)) {
    die "LIBRA_PATH not defined, exiting now\n";
}
$LIBRADIR = "$LIBRADIR/libra";
#$LIBRAEXECDIR = "/afs/cs/project/cmcl-pach/libra/$OSTYPE";
$LIBRAEXECDIR = "$LIBRADIR/$OSTYPE";
$SBINDIR  = "$LIBRAEXECDIR/sbin";
$ETCDIR   = "$LIBRADIR/etc";
$LOGDIR   = "$LIBRADIR/var/log";
$RUNDIR   = "$LIBRADIR/var/run";
$PIDFILE  = "$RUNDIR/slpd.$ARGV[0].pid";

if (!(-f $PIDFILE )) {
    print "pid file doesn't exist, exit now\n";
    exit(1);
}

$pid = `cat $PIDFILE`;
chomp $pid;
kill 9, $pid;
`rm $PIDFILE`;
print "slpd killed on $ARGV[0]\n";