next up previous contents
Next: Listing von subagent_standard.pl Up: Listings der Beispiel-Dateien Previous: Listings der Beispiel-Dateien

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.";
$OID        = "1.3.6.1.3.100.7";
$DESCRIPTION    = "Beispiel-Subagent";

########################################################
# 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";     # Variable 1: Text
        $MIB{'2.0'} = "81";     # Variable 2: Integer
        $MIB{'3.1.1.0'} = "02";        # Tabelle Feld 1: Text
        $MIB{'3.1.2.0'} = "81";        # Tabelle Feld 2: Integer
    
    @MIB = sort by_hierarchy keys(%MIB);    # sortierte Liste der MIB-Variablen
    }

&Subagent;


Copyright Munich Network Management Team