Listing von sub_sets.pl

################################################################
# set(Typ,Laenge,Wert,InstID) Set-Funktion fuer den WWW-Server 
# Parameter : Typ,    gibt den Typ des zu setzenden Werts an
#          Laenge,    gibt die Laenge des Werts an
#           Wert,    der Wert selbst, als hex-Array
#          InstID    welches Set? 
# Rueckgabe : undef bei Erfolg, sonst Fehlercode
################################################################
sub set
    {
    # Uebernahme der Parameter
    local($InstID,$SetTyp,$SetLaenge,@SetWert)=@_;
    # Lokale Variablen
    local($Temp);

    if (!($SetTyp eq $MIB{$InstID}))    # Typ ueberpruefen
        {
        return("07");
        }
    elsif ($SetTyp eq "02")
        {
        foreach (@SetWert) 
            {
            $NewWert = unpack("A",pack("H2",$_));
            $Temp = $Temp.$NewWert;
            }
        $WertTemp{$InstID} = $Temp;
        }
    elsif ($SetTyp eq "81")
        {
        $WertTemp{$InstID} = unpack("N",pack("H2H2H2H2",$SetWert[0],$SetWert[1],
                                                     $SetWert[2],$SetWert[3]));
        }
    print "Wert vorlaeufig: $WertTemp{$InstID}\n";
    return(undef);
    }

1;