[hobbit] conn test

[Rolf Schrittenlocher]

Hi Christian,

we have something similiar for the tests of OPAC reponses. Shouldn't be 
too difficult to adapt.

kind regards
Rolf

#!/usr/bin/perl
#
##################################################################
# Parameter
##################################################################
# Parameter fuer Testabfrage an PICA-Webopac
$REQUEST = "<URL>";

$BB_DISP = "<bb-servername>"; # BB-Server zur Anzeige
$BB_PORT=1984;          # Portnummer von BB
$THISHOST=$ENV{MACHINE};
$INDENT="opc4";         # Testkennung

# Art der Meldung mit Gueltigkeitsdauer in Minuten
# Wenn nach x Minuten keine neue Nachicht kommt meckert BB
$GUELTIG="status+20";

# Aktuelles Datum
$t0          = time;
$ZEITSTEMPEL = localtime($t0);

$FEHLER  = "red";
$WARNUNG = "yellow";
$OPTIMAL = "green";


##################################################################
# WEBOPAC Testen
##################################################################
#
system("wget -o /dev/null -O /tmp/opc4 \"$REQUEST\" 2>/dev/null");

# Bestimmung des Ergebnissstatuses aus der Antwortzeit.
$elapsed = time - $t0;
if ( $elapsed <= 6 ){
  $STATUS = $OPTIMAL;
}
elsif ( $elapsed <= 12 ){
  $STATUS = $WARNUNG;
}
else {
  $STATUS = $FEHLER;
}


##################################################################
# TCP Verbindung (ToBB) oeffnen und Text versenden.
##################################################################
use Socket;
$SIG{'INT'} = 'interrupted';

sub unbuffer {
    local($channel) = @_;
    local($oldchannel);

    $oldchannel = select($channel);
    $| = 1;
    select($oldchannel);
}

sub interrupted {
    print STDERR "\nClosing connection to peer (interrupt)\n";
    close(ToBB);
    exit 1;
}

# Ermittle IP-Adresse des Servers aus Hostnamen
($name, $aliases, $type, $len, @srvaddr) = gethostbyname($BB_DISP);
$sockaddr = 'S n a4 x8';
$server = pack($sockaddr, &AF_INET, $BB_PORT, $srvaddr[0]);
# (1) TCP socket anfordern
socket(ToBB, &AF_INET, &SOCK_STREAM, 0) ||
    die "Cannot create socket: $!\n";
# (2) Verbindung aufbauen
connect(ToBB, $server) ||
    die "Cannot connect: $!\n";
# (3) Verbindung ist hergestellt
print STDERR "Connected to $BB_DISP, port #$BB_PORT\n";
# kein I/O buffering auf dem socket
unbuffer(ToBB);

# Versenden der Nachicht.
# 1. Zeile: Statusinfos und Ueberschrift
#    wird '<h3>' formatiert.
# 2..n. Zeile: Erklaerender Text
#    wird als '<pre>' ausgegeben.

print ToBB "$GUELTIG $THISHOST.$INDENT $STATUS $ZEITSTEMPEL\n";
print ToBB "Verbindungstest OPC4 von $THISHOST.\n";
print ToBB "$EXTAMSG\n";
print ToBB "Dauer = $elapsed\n";
close (ToBB);

# ENDE #

> Hi all,
>
> I want to set an alarm when the connection time of the conn test to a server exceeds i.e.
> 50 ms.
>
> Is there a possibility for this?
>
> Thanx 
>
> Chris
>
>   


-- 
Mit freundlichen Gruessen
Rolf Schrittenlocher

Bitte beachten Sie die neue Emailadresse!

HeBIS-IT, Senckenberganlage 31, 60054 Frankfurt
Tel: (49) 69 - 798 28908   Fax: (49) 69 798 28817
LBS: lbs-f at mlist.uni-frankfurt.de
Persoenlich: schritte at hebis.uni-frankfurt.de