#! /usr/bin/perl
$bindir        = "/home/alexg/BSP/bin";
$includedir    = "/home/alexg/BSP/include";
$libdir        = "/home/alexg/BSP/lib";
$mandir        = "/home/alexg/BSP/man";






















push(@INC,$includedir);
push(@INC,$bindir);
require "bsputil";

select(STDERR); $| = 1; select(STDOUT); # no STDERR buffering, please.
($Pgm = $0) =~ s|.*/||;
$Version        = "1.3, 25th Nov 1997";
$bug_reports_to = 'bsplib-bugs@comlab.ox.ac.uk';

$ShortUsage = "\n$Pgm usage: for basic information, try the `-help' option\n";



$Verbose     = 0;
$Arch   = &backtick("$bindir/bsparch -arch");
$Arch   = &backtick("bsparch -arch")  if ($Arch eq "");
$Hostnames   = "";
$Portnumber  = -1;




  arg: while ($_ = $ARGV[0]) {
  shift(@ARGV);
  #--------HELP------------------------------------------------
  /^-(help|man)$/     && do {&FormatManual("bspkill.1");exit(0);};

  /^-v$/              && do {$Verbose = 1; next arg;};

  /^-p$/              && do {$Portnumber = &grab_next_arg("-p");
			     if (!($Portnumber =~ /^\d+$/)) {
			       printf STDERR "%s: invalid port \"%s\"\n",
					     $Pgm,$Portnumber;
			       $Status++;
			     }
			     next arg;
			     };		

  /^-f$/              && do {$Hostnames = &grab_next_arg("-f"); next arg;};

  print STDERR "Unrecognised option \"",$_,"\"\n";
  $Status++;
  }
  if ($Status>0) {
    print STDERR $ShortUsage;
    exit(1);
  }

  $Hostnames = $ENV{'HOME'} . "/.bsptcphosts"  if ($Hostnames eq "");  
  print STDERR "$Pgm: ($Version)\n" if $Verbose;
  $cmd  = "$bindir/$Arch/bspshutd";
  $cmd .= " -p $Portnumber " if ($Portnumber>=0);
  $cmd .= " -f $Hostnames ";
  $cmd .= " -k 9 ";
  print STDERR "$Pgm: Execing $cmd\n" if $Verbose;
  exec $cmd;
  print "$Pgm: Unable to start daemon.\n$ShortUsage\n";
  exit(0);

