Next: Listing von sub_gets.pl
Up: Listings zum Subagenten
Previous: Listing von mib_gets.pl
############################################################
# answer_set2
# Beantwortung eines Set-, Commit-, Undo-Requests
############################################################
sub answer_set2
{
# Uebernahme der Parameter
local($GID,$InstID,$Art,$dpi_get_packet_id,$Set_Typ,$Set_Laenge,@Set_Wert)=@_;
if (!$GID eq $GROUPID) # Falls der Subagent fuer diese Group-ID
{ # nicht zustaendig
&ResponseError($dpi_get_packet_id,"05") # Allgemeiner Fehler
}
# Set-Variablen
if ($InstID eq "99.0")
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 99 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com_99; # Commit-Funktion fuer Instanz 99 aufrufen
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion fuer Instanz 99 aufrufen
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '1.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 2 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '2.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 2 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '3.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 3 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '4.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 4 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '5.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 2 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '6.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 2 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '7.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 2 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '8.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 2 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
elsif ($InstID eq '9.0')
{
if ($Art eq "03") # Set - Request
{ # Funktion fuer Instanz 2 aufrufen
$Fehler = &set($InstID,$Set_Typ,$Set_Laenge,@Set_Wert);
}
elsif ( $Art eq "0a") # Commit - Request
{
$Fehler = &com($InstID); # Commit-Funktion
}
elsif ( $Art eq "0b") # Undo - Request
{
$Fehler = &undo($InstID); # Undo-Funktion
}
if(!$Fehler)
{
&ResponseSuccess($dpi_get_packet_id,$GID,$InstID,$Set_Typ,$Wert{$InstID});
}
else
{
&ResponseError($dpi_get_packet_id,$Fehler) # nicht Schreibbar
}
}
else # Keine Set-Variable vorhanden
{
&ResponseError($dpi_get_packet_id,"11") # nicht Schreibbar
}
}
1;
Copyright Munich Network Management Team