InfoMagic Internet Tools 1995 April/Internet Tools.iso/infoserv/gopher/Unix/GopherTools/gopherbeeper/snooper.Z/snooper

Text File | 1993-10-06 | 4.3 KB | 208 lines

#!/usr/local/bin/perl

$Snoophosts   = "/usr/lib/snoophosts";
$Snoopresult  = "/usr/lib/snoopresult";

#$Snoophosts   = "/user2/lindner/snoop/snoophosts";
#$Snoopresult  = "/user2/lindner/snoop/snoopresult";

$Humans       = "[e-mail]";
$BeeperNo     = "xxx-xxxx";


push(@message, "\n");
sub OpenSock {
    local($them,$port,$query) = @_;
    $them = 'localhost' unless them;
    $port = 43 unless $port;

    $AF_INET = 2;
    $SOCK_STREAM = 1;

    $SIG{'INT'} = 'dokill';

    $sockaddr = 'S n a4 x8';

    chop($hostname = `hostname`);

    ($name,$aliases,$proto) = getprotobyname('tcp');
    ($name,$aliases,$port) = getservbyname($port,'tcp')
        unless $port =~ /^\d+$/;;
    ($name,$aliases,$type,$len,$thisaddr) = gethostbyname($hostname);
    ($name,$aliases,$type,$len,$thataddr) = gethostbyname($them);

    $this = pack($sockaddr, $AF_INET, 0, $thisaddr);
    $that = pack($sockaddr, $AF_INET, $port, $thataddr);

    # Make the socket filehandle.
    socket(SOCK, $AF_INET, $SOCK_STREAM, $proto) || return $!;

    # Give the socket an address.
    bind(SOCK, $this) || return $!;

    # Call up the server.
    connect(SOCK,$that) || return $!;

    # Set socket to be command buffered.
    select(SOCK); $| = 1; select(STDOUT);

    # send the whois query
    print SOCK "$query\r\n";
    return "is up";
}

open(Snoophosts, "<$Snoophosts") || die "No hosts to snoop on\n";

$SeverityLevel = 0;

while (<Snoophosts>) {
    chop;
    next if /^#/;

    ($Host, $Port, $Importance) = split;

        $key = "$Host $Port";

    $Importance{$key} = $Importance;
}

#
# Read the old status.
#

system("touch $Snoopresult");
open(Snoopresult, "+<$Snoopresult");
chop($OldSeverity = <Snoopresult>);

while (<Snoopresult>) {
    chop;
    m/^(\S* \S*) (.*)$/;
    $key = $1;
    $status = $2;

    $OldStatus{$key} = $status;
}
#
# Test each host/port
#

foreach (keys(%Importance)) {
    $key = $_;

    $Host = $_;   $Host =~ s/ .*$//;
    $Port = $_;   $Port =~ s/^.* //;


    $result = &OpenSock($Host, $Port, "");
    if ($result ne "is up") {
        $SeverityLevel += $Importance{$_};
        }
    if ($result ne $OldStatus{$key}) {
        if ($result eq "is up") {
            push(@message, "$Host, port $Port came back up\n");
        } else {
            push(@message, "** $Host, port $Port went down: $result\n");
        }
    }

    $Newstatus{$key} = $result;
}

#
# Write out the new results file
#
seek(Snoopresult, 0, 0);
truncate(Snoopresult,0);

print Snoopresult $SeverityLevel . "\n";
foreach $key (keys(%Importance)) {
    print Snoopresult "$key $Newstatus{$key}\n";
}


#
# Okay, now lets inform the humans
#

if ($SeverityLevel == 0 && $OldSeverity != 0) {
    push(@message, "All machines are up again\n");
    &DialBeeper(0);
} else {
        if ($#message > 0) {
            push(@message, "Some machines are still down\n");
        }
}

#
# Mail to the humans a status report at the end of the day.
#

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

if ($hour == 16 && $min < 15) {
    open(Mail,"|mail $Humans");
    print Mail "Subject: Gopher is alive\n\n";
    foreach $key (keys(%Importance)) {
                print Mail "$key $Newstatus{$key}\n";
    }
}

if ($#message > 0) {
    open(Mail, "|mail $Humans");
    print Mail "Subject: *** Gopher Trouble Update ***\n";
    print Mail "Priority: Urgent\n\n";
    print Mail @message;

    print Mail "\nCurrently down Machines\n";
    print Mail "-----------------------\n\n";
    foreach $key (keys(%Importance)) {
        if (!($Newstatus{$key} =~ /is up/)) {
            print Mail "$key $Newstatus{$key}\n";
        }
    }
}

#
# Ring the beeper
#

if ($SeverityLevel > 0 && $OldSeverity != $SeverityLevel) {
    $severe = $SeverityLevel/10;
    $severe = 1 if ($severe == 1);
    $severe = 9 if ($severe > 9);

    $severe =~ s/\..*$//;
    &DialBeeper($severe);
}

#
#  Procedure to dial the beeper
#

sub DialBeeper {
    local($Severity) = @_;

    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    if ($hour < 10) { $hour = "0" . $hour;}
    local($Num)= "$hour$min";

    while ($i <5) {
        $Num = $Num . $Severity;
        $i ++;
      }

#
# fixed this to explicitly use the ATDT command because cu has been
# intermittently pulse dialing (ATD rather than ATDT)
#                -mpm
#    open(BeeperCmd, "|cu -s 1200 $BeeperNo,,,,,$Num,>/dev/null  2>&1");
    open(BeeperCmd, "|cu -s 1200 -l tty0 dir > /dev/null    2>&1");
    print BeeperCmd "ATDT $BeeperNo,,,,,$Num,,\r";
#
#
# end of patch (-mpm)
#
    print BeeperCmd "\r~.\r\r";
    close BeeperCmd;
}