Perl Perl 6
Switch branches/tags
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
inc/Module
lib/Parse
share/schema
t
.gitignore
Changes
MANIFEST
META.yml
Makefile.PL
README

README

NAME
    Parse::ACNS - parser for Automated Copyright Notice System (ACNS) XML

SYNOPSIS
        use Parse::ACNS;
        my $data = Parse::ACNS->new->parse( XML::LibXML->load_xml( string => $xml ) );

DESCRIPTION
    ACNS stands for Automated Copyright Notice System. It's an open source,
    royalty free system that universities, ISP's, or anyone that handles
    large volumes of copyright notices can implement on their network to
    increase the efficiency and reduce the costs of responding to the
    notices...

    See <http://acns.net> for more details.

    This module parses ACNS XML into a perl data structure. Supports 1.2,
    1.1, 1.0, 0.7 and 0.6 revisions of the spec. Parser strictly follows XML
    Schemas, so throws errors on malformed data.

    However, it doesn't extract ACNS XML from email messages.

SOME ACNS BACKGROUND
    NBC Universal and UMG <http://mpto.unistudios.com/xml/> released two
    revisions of the spec (0.6 and 0.7).

    Motion Picture Laboratories, Inc. <http://www.movielabs.com/ACNS> took
    over and named it ACNS 2.0 and released revisions 1.0, 1.1 and several
    sub-revisions with letters (1.1f, 1.1j, 1.1p).

    Then it was moved once again to <http://www.acns.net/spec.html> and
    revision 1.2 was released.

METHODS
  new
    Constructor, takes list of named arguments.

    version - version of the specification

        compat
            default value, can parse 1.2 to 0.6 XML. Revision 1.2 is
            backwards compatible with 0.7. Compat schema makes TimeStamp in
            Infringement/Content/Item optional to make it compatible with
            0.6 revision. Everything else new in 1.2 is optional.

        1.2, 1.1, 1.0, 0.7 or 0.6
            strict parsing of the specified version.

  parse
        my $data = Parse::ACNS->new->parse( XML::LibXML->load_xml(...) );

    Takes XML::LibXML::Document containing an ACNS XML and returns it as a
    perl struture. Read XML::LibXML::Parser on parsing from different
    sources.

    Newer versions of the spec describe more messages besides
    "<Infringement>", for example "<StatusUpdate>". Top level element is not
    returned as part of the result, but you always can get it from XML
    document:

        $xml_doc->documentElement->nodeName;

    To simplify implementation of compat version parsing document can be
    changed. At this moment XML namespace is adjusted on all elements.

    Returned data structure follows XML and its Schema, for example:

        {
            'Case' => {
                'ID' => 'A1234567',
                'Status' => ...,
                ...
            },
            'Complainant' => {
                'Email' => 'antipiracy@contentowner.com',
                'Phone' => ...,
                ...
            },
            'Source' => {
                'TimeStamp' => '2003-08-30T12:34:53Z',
                'UserName' => 'guest',
                'Login' => { ... },
                'IP_Address' => ...,
                ...
            }
            'Service_Provider' => { ... }
            'Content' => {
                'Item' => [
                    {
                        'TimeStamp' => '2003-08-30T12:34:53Z',
                        'FileName' => '8Mile.mpg',
                        'Hash' => {
                                'Type' => 'SHA1',
                                '_' => 'EKR94KF985873KD930ER4KD94'
                              },
                        ...
                    },
                    { ... },
                    ...
                ]
            },
            'History' => {
                'Notice' => [
                    {
                        'ID' => '12321',
                        'TimeStamp' => '2003-08-30T10:23:13Z',
                        '_' => 'freeform text area'
                    },
                    { ... },
                    ...
                ]
            },
            'Notes' => '
                Open area for freeform text notes, filelists, etc...
            '
        }

AUTHOR
    Ruslan Zakirov <ruz@bestpractical.com>

LICENSE
    Under the same terms as perl itself.