NAME

OMA::Download::DRM - Perl extension for packing DRM objects according to the OMA DRM 1.0 specification

DESCRIPTION

This module encodes data objects according to the Open Mobile Alliance Digital Rights Management 1.0 specification in order to control how the end user uses these objects.

SYNOPSIS

use OMA::Download::DRM;

CONSTRUCTOR

new

my $drm = OMA::Download::DRM->new(%args);

PROPERTIES

uid

Returns download object uid

print $drm->uid;

mime

Returns the MIME type

print $drm->mime;

METHODS

fw_lock

Forward-lock delivery

my $drm = OMA::Download::DRM->new(
    'content-type' => 'image/gif',                            # Content MIME type
    'data'         => \$data,                                 # GIF image binary data reference
);
print "Content-type: ".$drm->mime."\n\n";                     # Appropriate MIME type
print $drm->fw_lock();                                        # Forward lock

combined

Combined delivery

my $drm = OMA::Download::DRM->new(
    'content-type' => 'image/gif',                            # Content MIME type
    'data'         => \$data,                                 # GIF image binary data reference
    'domain'       => 'example.com'
);
print "Content-type: ".$drm->mime."\n\n";                     # Appropriate MIME type
print $drm->combined($permission, %constraint);               # Combined delivery. See OMA::Download::DRM::REL.

separate_content

Separate delivery. Content encryption and packing.

my $drm = OMA::Download::DRM->new(
    'content-type' => 'image/gif',                            # Content MIME type
    'data'         => \$data,                                 # GIF image binary data reference
    'domain'       => 'example.com',
    'key'          => '128bit ascii key'
);
print "Content-type: ".$drm->mime."\n";                       # Appropriate MIME type
print "X-Oma-Drm-Separate-Delivery: 12\n";                    # The terminal expects WAP push 12 seconds later
print $drm->separate_content($rights_issuer, $content_name);  # Encrypted content

You then need to send the rights object separately

separate_rights

Separate delivery. Rights object packing.

my $rights = $drm->separate_rights($permission, %constraint)  # you have to send this rights object via WAP Push.

SEE ALSO

OMA::Download::DRM::REL

OMA::Download::DRM::CF

REVISION INFORMATION

1.00.07 Various improvements

1.00.04 First public release

AUTHOR

Bernard Nauwelaerts, <bpgn@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Bernard Nauwelaerts, IT Development Belgium

Released under the GPL.

cpanm OMA::Download::DRM

perl -MCPAN -e shell
install OMA::Download::DRM