Listing von mib_gets.pl

############################################################
# answer_get2
# Beantwortung eines get's oder getnext's
############################################################
sub answer_get2
    {
    # Parameter uebernehmen
    local($GID,$InstID,$dpi_get_packet_id,$Next)=@_;
    # Lokale Variablen
    local($GID_Laenge,$InstID_Laenge,@Wert);    
    #################################################################
    # Gesuchten Wert ermitteln
    if (!($GID eq $GROUPID))    # Falls der Subagent fuer diese Group-ID
        {            # nicht zustaendig
        &ResponseError($dpi_get_packet_id,"05") # Allgemeiner Fehler
        }

    if ($Next)    # End of MIB bei getnext
        {
        print "EndofMIB\n";
        $Wert = "ENDofMIB";
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        $Next = undef;
        }
    elsif ($InstID eq '99.0')
        {
        $Wert = &get_99;    # Funktion fuer Instanz 99 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '1.0')
        {        
        $Wert = &get($InstID);    # Funktion fuer Instanz 1 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '2.0')
        {
        $Wert = &get($InstID);    # Funktion fuer Instanz 2 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '3.0')
        {
        $Wert = &get($InstID);    # Funktion fuer Instanz 3 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '4.0')
        {
        $Wert = &get($InstID);    # Funktion fuer Instanz 4 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '5.0')
        {
        $Wert = &get($InstID);    # Funktion fuer Instanz 5 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '6.0')
        {
        $Wert = &get($InstID);    # Funktion fuer Instanz 6 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '7.0')
        {
        $Wert = &get($InstID);    # Funktion fuer Instanz 7 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '8.0')
        {
        $Wert = &get($InstID);    # Funktion fuer Instanz 8 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID eq '9.0')
        {
        $Wert = &get_9;    # Funktion fuer Instanz 9 aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID =~ /^10\.1\.1/)
        {
        $Wert = &get_Tabelle($InstID);    # Funktion fuer Tabelle aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID =~ /^10\.1\.2/)
        {
        $Wert = &get_Tabelle($InstID);    # Funktion fuer Tabelle aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID =~ /^10\.1\.3/)
        {
        $Wert = &get_Tabelle($InstID);    # Funktion fuer Tabelle aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }
    elsif ($InstID =~ /^10\.1\.4/)
        {
        $Wert = &get_Tabelle($InstID);    # Funktion fuer Tabelle aufrufen
        &ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Wert);
        }

    else        # Variable nicht vorhanden
        {
        &ResponseError($dpi_get_packet_id,"05") # Allgemeiner Fehler
        }   
    }

1;