Help for this page

Select Code to Download


  1. or download this
        my $asn_ext = Convert::ASN1->new;
        $asn_ext->prepare( $Biblio::ILL::ISO::1_0_10161_13_3::desc );
    ...
        # "1" is what it *is*, by looking at a hex dump of the request rec
    +ord
        $_asn->registeroid("1",$asn_ext->find("APDU-Delivery-Info"));
    
  2. or download this
    sub encode {
        my $self = shift;
    ...
        my $pdu = $asn->encode( $href ) or warn $asn->error;
        return $pdu;
    }
    
  3. or download this
    sub decode {
        my $self = shift;
    ...
        my $href = $asn->decode( $pdu ) or warn $asn->error;
        return $href;
    }