| … | |
… | |
| 538 | my $type = _re const_ber_type => $profile->get ($ber->[BER_CLASS], $ber->[BER_TAG]); |
538 | my $type = _re const_ber_type => $profile->get ($ber->[BER_CLASS], $ber->[BER_TAG]); |
| 539 | my $data = $ber->[BER_DATA]; |
539 | my $data = $ber->[BER_DATA]; |
| 540 | |
540 | |
| 541 | if ($profile == $SNMP_PROFILE and $ber->[BER_CLASS] == ASN_APPLICATION) { |
541 | if ($profile == $SNMP_PROFILE and $ber->[BER_CLASS] == ASN_APPLICATION) { |
| 542 | $tag = _re const_snmp => $ber->[BER_TAG]; |
542 | $tag = _re const_snmp => $ber->[BER_TAG]; |
| 543 | $asn = 1; |
543 | } elsif (!$asn) { |
|
|
544 | $tag = "$class ($tag)"; |
| 544 | } |
545 | } |
| 545 | |
|
|
| 546 | $asn or $tag = "$class ($tag)"; |
|
|
| 547 | |
546 | |
| 548 | $class =~ s/^ASN_//; |
547 | $class =~ s/^ASN_//; |
| 549 | $tag =~ s/^(ASN_|SNMP_)//; |
548 | $tag =~ s/^(ASN_|SNMP_)//; |
| 550 | $type =~ s/^BER_TYPE_//; |
549 | $type =~ s/^BER_TYPE_//; |
| 551 | |
550 | |
