Listing von subagent_start

#!/sw/mnm/perl5/bin/perl

require "sub_gets.pl";
require "sub_sets.pl";
require "sub_undos.pl";
require "sub_coms.pl";
require "mib_gets.pl";
require "mib_sets.pl";
require "subagent_standard.pl";

#######################################################
# Definition einiger Konstanten
#######################################################
# Konstanten fuer den Socket
$AF_INET = 2;
$SOCK_STREAM = 1;
$SOCK_DGRAM  = 2;
$SOCKADDR = 'S n a4 x8';

#Konstanten fuer die SNMP-Kommunikation zum Agenten
$SNMP_PORT     = 161 ;
$SNMP_TRAP_PORT    = 162 ;
$SNMP_COMMUNITY    = "public" ;
$SNMP_TRAP_COMMUNITY    = "public";

#Konstanten fuer die DPI-Kommunikation
$GROUPID    = "1.3.6.1.3.100.7.1.";
$OID        = "1.3.6.1.3.100.7.1";
$DESCRIPTION    = "wwwlinkSubagent";

########################################################
# Definition globaler Variablen
########################################################
$AGENT_HOST    = "sunhegering8" ;    # Host des Agenten

########################################################
# Initialisierungsroutine fuer die MIB-Variablen, die 
# der Subagent anbietet.
########################################################
sub initial_MIB
    {
    $MIB{'1.0'} = "02";    # Nachricht an
    $MIB{'2.0'} = "02";    # zu durchsuchende Domaine
    $MIB{'3.0'} = "02";    # Toplink
    $MIB{'4.0'} = "81";    # Maximum der zu testenden Links
    $MIB{'5.0'} = "02";    # Reg. Ausdruck fuer Betreuer-Tag
    $MIB{'6.0'} = "02";    # Reg. Ausdruck fuer Betreuer-Adresse
    $MIB{'7.0'} = "02";    # Endungen, bei denen Head reicht
    $MIB{'8.0'} = "02";    # Nachricht (Keine,Sende,Debug)
    $MIB{'9.0'} = "02";    # Nachricht Text
    $MIB{'10.1.1.0'} = "02";    # Tabelle Feld 1: Link
    $MIB{'10.1.2.0'} = "02";    # Tabelle Feld 2: Methode
    $MIB{'10.1.3.0'} = "02";    # Tabelle Feld 3: LinkVaeter
    $MIB{'10.1.4.0'} = "02";    # Tabelle Feld 4: Betreuer
    $MIB{'99.0'} = "81";    # Kontroll-Variable fuer den Subagenten
    
    @MIB = sort by_hierarchy keys(%MIB);    # sortierte Liste der MIB-Variablen
    }

########################################################
# Vorbelegung der Steuer-Variable
########################################################
# Variable zum ausklinken des Subagenten (0 = beenden)
$Wert{'99.0'} = 1;    # Wert mit 1 vorbelegen
$WertTemp{'99.0'} = $Wert{'99.0'};    # Temporaeren Wert identisch belegen

#######################################################
# Zusaetzliche Variablen
#######################################################
$ProgPfad  = '/home/usr/stud/schuetzf/fopra/LinkTest/src';
$IniDatei  = $ProgPfad.'/LinkTest.ini'; # Ini-datei fuers Linktesten
$ProgDatei = $ProgPfad.'/LinkTest '.$IniDatei;    # Linktest-Programm
$ErrLog = $ProgPfad.'/LinkTest.ERR.LOG';

&Subagent;