#!/usr/local/bin/perl5 -- # -*-Perl-*-


if ( ! -e "/usr/local/bin/zwgc") {
  print "Zephyrgrams are not installed on this system. Please notify problem\@cs.duke.edu\n";
}

$result = 0;
chop($machine=`hostname`);
chop($domain=`domainname`);
print "Checking $machine.$domain for zephyrs running under ID: $ENV{'USER'}\n";
open(ZL, "/usr/local/bin/zlocate  $ENV{'USER'} |") or die  "Can't open zlocate cause: !$ \n";
while(<ZL>){
  ($hostarg)=split;
  push(@host,$hostarg);
  foreach $host (@host) {
    if ($host =~ /$machine/) {
      print "Zephyrgrams are already running for $ENV{'USER'} on $machine\n";
      $result = 1;
    }
  }
}

if ( $result != 1 ) {
  print "Starting Zephyrgrams for $ENV{'USER'} on $machine\n";
  system("/usr/local/bin/zwgc");
}
