#!/afs/athena/contrib/perl/perl

$time = int(shift(@ARGV));
#print("$time\n");
print("-$ARGV[0]-\n");

while (1) {
    sleep($time);
#&zme("*****".@cons);
    @cons = ();
#    print("Just cleared cons!");
    open (NETSTAT, "/usr/ucb/netstat -f inet |");
    $ccon = join(' ', @con);
#&zme($ccon);
    while (<NETSTAT>) {
	split;
	if($#_>=5 && (length($ccon) >= 100)){
	    $proto = $_[0];
	    $lad = $_[3];
	    $fad = $_[4];
	    $state = $_[5];
#	    print("///@cons///\n");
	    push(@cons, $proto.$lad.$fad.$state);
#	print("Examining:  $proto $lad $fad $state\n");
	    $foo = 0;
	    if($ccon =~ /$fad/) {$foo = 1;}
#	print("$foo:  $ccon\n");
#	print("$foo occurances of $proto$lad$fad$state\n");
	    if(!$foo && ($fad !~ /local/) && ($fad !~ /HODGE/)){
		print("FAd: $fad\n");
		print("---$ccon---\n");
		&zme("New connection:\n$proto:$lad:$fad:$state\n");
	    }
	}
    }
    close(NETSTAT);
#print("---@cons---\n");
    @con = ();
    @con = @cons;
    
    if(length($ccon) < 10){
	&zme("Short netstat!\n$ccon\n");
    }
}


sub zme {
    local($message) = @_;
    open (ZME, "|zwrite -n -q -d -s 'AutoNetwatch' $ENV{'USER'}");
    print(ZME $message);
    close(ZME);
}