Listing der Beispiel-Datei sub_sets.pl

################################################################
# set_1(InstID,Typ,Laenge,Wert) Set-Funktion fuer die erste Variable
# Parameter : InstID,    Instanz- ID der gesuchten Variable
#          Typ,    Typ des Wertes 
#          Laenge,   gibt die Laenge des Werts an
#             Wert,     der Wert selbst, als hex-Array
# Rueckgabe : undef bei Erfolg, sonst Fehlercode
# Annahme: Wert befindet sich in Variable $A1; besitze eine 
# Variable $A1_Temp als Zwischenspeicher bis zum Commit.
################################################################
sub set_1
        {
        # Uebernahme der Parameter
        local($InstID,$SetTyp,$SetLaenge,@SetWert)=@_;
        # Lokale Variablen
        local($Temp);

        if (!($SetTyp eq $MIB{$InstID}))        # Typ ueberpruefen
                {
                return("07");
                }
    foreach (@SetWert)    # Typ war Text, deshalb: 
        {
        $NewWert = unpack("A",pack("H2",$_));
        $A1_Temp = $A1_Temp.$NewWert;
        }
                
        return(undef);
        }

################################################################
# set_2(Typ,Laenge,Wert) Set-Funktion fuer den WWW-Server 
# Parameter : InstID,    Instanz- ID der gesuchten Variable
#          Typ,    Typ des Wertes 
#          Laenge,   gibt die Laenge des Werts an
#             Wert,     der Wert selbst, als hex-Array
# Rueckgabe : undef bei Erfolg, sonst Fehlercode
# Annahme: Wert befindet sich in Variable $A2; besitze eine 
# Variable $A2_Temp als Zwischenspeicher bis zum Commit.
################################################################
sub set_2
        {
        # Uebernahme der Parameter
        local(($InstID,$SetTyp,$SetLaenge,@SetWert)=@_;
        # Lokale Variablen
        local($Temp);

        if (!($SetTyp eq $MIB{$InstID}))        # Typ ueberpruefen
                {
                return("07");
                }
    $A2_Temp = unpack("N",pack("H2H2H2H2",$SetWert[0],$SetWert[1],
                          $SetWert[2],$SetWert[3]));

        return(undef);
        }
1;# PERL - spez. Eine Dat., die mit require eingeb. wird muss mit True enden.