projekt kivitendo

use SL::XMLInvoice;

use constant RES_ERR_FILE_OPEN                   => -1;

use constant RES_ERR_NO_ATTACHMENT               => -2;

  my %res_fail;

  $res_fail{'result'}  = RES_ERR_NO_ATTACHMENT();

  $res_fail{'message'} = "PDF does not have a Names dictionary.";

  my $names_dict = $doc->getValue($doc->getRootDict->{Names}) or return \%res_fail;

  $res_fail{'message'} = "PDF does not have a EmbeddedFiles tree.";

  my $files_tree = $names_dict->{EmbeddedFiles}               or return \%res_fail;

  my $parser;  # SL::XMLInvoice object used as return value

  my @res;     # Temporary storage for error messages encountered during

               # attempts to process attachments.

        $parser = $parser = SL::XMLInvoice->new($content);

        # Caveat: this will only ever catch the first attachment looking like

        #         an XML invoice.

        if ( $parser->{status} == SL::XMLInvoice::RES_OK ){

          return $parser;

        } else {

          push @res, t8("Could not parse PDF embedded attachment #1: #2",

                       $k,

                       $parser->{result});

        }

  # There's going to be at least one attachment that failed to parse as XML by

  # this point - if there were no attachments at all, we would have bailed out

  # a lot earlier.

  %res_fail = ( result  => RES_ERR_FILE_OPEN(),

                message => join("; ", @res),

  );

  return \%res_fail;

  my @warnings;

    return \{

      push @warnings, $::locale->text('The file \'#1\' does not contain the required XMP meta data.', $file_name);

  } else {

    my $dom = eval { XML::LibXML->load_xml(string => $xmp) };

    push @warnings, $::locale->text('Parsing the XMP metadata failed.'), if !$dom;

    my $xpc = XML::LibXML::XPathContext->new($dom);

    $xpc->registerNs('rdf', 'http://www.w3.org/1999/02/22-rdf-syntax-ns#');

    my $zugferd_version;

    my $test = $xpc->findnodes('/x:xmpmeta/rdf:RDF/rdf:Description');

    foreach my $node ($xpc->findnodes('/x:xmpmeta/rdf:RDF/rdf:Description')) {

      my $ns = first { ref($_) eq 'XML::LibXML::Namespace' } $node->attributes;

      next unless $ns;

      if ($ns->getData =~ m{urn:zugferd:pdfa:CrossIndustryDocument:invoice:2p0}) {

        $zugferd_version = 'zugferd:2p0';

        last;

      }

      if ($ns->getData =~ m{urn:factur-x:pdfa:CrossIndustryDocument:invoice:1p0}) {

        $zugferd_version = 'factur-x:1p0';

        last;

      }

      if ($ns->getData =~ m{zugferd|factur-x}i) {

        $zugferd_version = 'unsupported';

        last;

      }

    if (!$zugferd_version) {

        push @warnings, $::locale->text('The XMP metadata does not declare the Factur-X/ZUGFeRD data.'),

    if ($zugferd_version eq 'unsupported') {

        push @warnings, $::locale->text('The Factur-X/ZUGFeRD version used is not supported.'),

    }

  my %res;

  %res = (

    result       => $invoice_xml->{result},

    message      => $invoice_xml->{message},

    warnings     => \@warnings,

  );

  return \%res;

}

sub extract_from_xml {

  my ($self, $data) = @_;

  my %res;

  my $invoice_xml = SL::XMLInvoice->new($data);

  %res = (

    result       => $invoice_xml->{result},

    message      => $invoice_xml->{message},

    metadata_xmp => undef,

    invoice_xml  => $invoice_xml,

    warnings     => (),

  );

  return \%res;

    my $xml  = '<?xml version="1.0" encoding="UTF-8"?> ...';

    my $info = SL::ZUGFeRD->extract_from_xml($xml);

    # Access invoice XML data:

    my $inv = ${$info}{'invoice_xml};

    my %metadata = %{$inv->metadata};

    my @items = @{$inv->items};

    my $dom = $inv->dom;

=head2 extract_from_pdf E<lt>file_nameE<gt>

Opens an existing PDF file in the file system and tries to extract

Factur-X/XRechnung/ZUGFeRD invoice data from it. First it'll parse the XMP

declaration isn't found or the declared version isn't 2p0, an warning is

recorded in the returned data structure's C<warnings> key.

Regardless of metadata presence, it will continue to iterate over all files

embedded in the PDF and attempt to parse them with SL::XMLInvoice. If it

succeeds, the first SL::XMLInvoice object that indicates successful parsing is

returned.

=item C<RES_OK> (0): parsing was OK.

=item C<RES_ERR_…> (all values E<!=> 0): parsing failed. Values > 0 indicate a failure

in C<SL::XMLInvoice>, Values < 0 indicate a failure in C<SL::ZUGFeRD>.

=back

Other than that, the hash ref contains the following keys:

=over 4

=item C<message> - An error message detailing the problem upon nonzero C<result>, undef otherwise.

=item C<metadata_xmp> - The XMP metadata extracted from the Factur-X/ZUGFeRD invoice (if present)

=item C<invoice_xml> - An SL::XMLInvoice object holding the data extracted from the parsed XML invoice.

=item C<warnings> - Warnings encountered upon extracting/parsing XML files (if any)

=back

=head2 extract_from_xml E<lt>stringE<gt>

Takes a string containing an XML document with Factur-X/XRechnung/ZUGFeRD

invoice data and attempts to parse it using C<SL::XMLInvoice>.

If parsing is successful, an SL::XMLInvoice object containing the document's

parsed data is returned.

This method always returns a hash ref containing the key C<result>, a number that

can be one of the following constants:

=over 4

=item C<RES_OK> (0): parsing was OK.

=item C<RES_ERR_…> (all values E<!=> 0): parsing failed. Values > 0 indicate a failure

in C<SL::XMLInvoice>, Values < 0 indicate a failure in C<SL::ZUGFeRD>.

Other than that, the hash ref contains the following keys:

=over 4

=item C<message> - An error message detailing the problem upon nonzero C<result>, undef otherwise.

=item C<metadata_xmp> - Always undef and only present to let downstream code expecting its presence fail gracefully.

=item C<invoice_xml> - An SL::XMLInvoice object holding the data extracted from the parsed XML invoice.

=item C<warnings> - Warnings encountered upon extracting/parsing XML data (if any)

=head1 AUTHORS

=over 4

=item Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>

=item Johannes Graßler E<lt>info@computer-grassler.deE<gt>

=back