view release on metacpan or  search on metacpan

lib/OMA/Download/DRM/REL/WBXML.pm  view on Meta::CPAN

    $res.=pack("C", 0x00);                            # String Table Length (empty)
    
    # rights element attributes
    my $rattr='';
    #$rattr.=pack("C", 0xC5); # <o-ex:rights
    $rattr.=pack("C", 0x05); # xmlns:o-ex=
    $rattr.=pack("C", 0x85); # "http://odrl.net/1.1/ODRL-EX"
    $rattr.=pack("C", 0x06); # xmlns:o-dd=
    $rattr.=pack("C", 0x86); # "http://odrl.net/1.1/ODRL-DD"
    $rattr.=pack("C", 0x07); # xmlns:o-ds=
    $rattr.=pack("C", 0x87); # "http://www.w3.org/2000/09/xmldsig#/"
    $rattr.=pack("C", 0x01); # >
	
    return $res.$self->_in_element('rights', $rattr.$self->_packin, 1);
}

#--- Support routines ----------------------------------------------------------
sub _init {
    my $self=shift;
#    $self->{element_tokens} = {
#            rights      => 0xc5,

lib/OMA/Download/DRM/REL/XML.pm  view on Meta::CPAN

Packs data using XML format

  print $rel->packit;

=cut
sub packit {
    my ($self)=@_;
    my $res='';
    $res.='<?xml version="1.0" encoding="utf-8"?>'."\n";   # WBXML Version Number (1.3)
    $res.='<!DOCTYPE o-ex:rights PUBLIC "-//OMA//DTD REL 1.0//EN" "http://www.oma.org/dtd/dr">'."\n";  # Public Identifier (~//OMA//DTD REL 1.0//EN)
    return $res.'<o-ex:rights xmlns:o-ex="http://odrl.net/1.1/ODRL-EX" xmlns:o-dd="http://odrl.net/1.1/ODRL-DD" xmlns:ds="http://www.w3.org/2000/09/xmldsig#/">'."\n".$self->_packin."\n".'</o-ex:rights>';
}

#--- Support routines ----------------------------------------------------------
sub _init {
    my ($self)=@_;
    $self->{'element_tokens'} = {
        'rights'      => 'o-ex:rights',
        'context'     => 'o-ex:context',
        'version'     => 'o-dd:version',
        'uid'         => 'o-dd:uid',