projekt kivitendo

#!/usr/bin/perl

# Script for test driving SL::XMLInvoice. Use on extracted XML invoice payloads

# (faktur-x.xml) from ZUGFeRD invoices or XRechnung invoices. PDF extraction is

# not supported.

BEGIN {

  use FindBin;

  unshift(@INC, $FindBin::Bin . '/../modules/override'); # Use our own versions of various modules (e.g. YAML).

  push   (@INC, $FindBin::Bin . '/..');

}

use SL::XMLInvoice;

use utf8;

if ( scalar(@ARGV) == 0 )

  {

  die "usage: $0 <xml invoice file> [ ... <xml invoice file> ]\n";

  }

foreach my $xml_file ( @ARGV) {

  my $xml_data = "";

  open F, $xml_file or die "Couldn't open $xml_file for reading: $!\n";

  while (my $line = <F> ) { $xml_data .= $line; }

  close F;

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

  if ( ${$parser}{'result'} != SL::XMLInvoice->RES_OK )

    {

    die "Parser creation failed: ${$parser}{'message'}\n";

    }

  foreach my $key ( keys %{$parser->metadata} )

    {

    print "$key: |" . $parser->metadata->{$key} . "|\n";

    }

  foreach my $item ( @{$parser->items} ) {

    my %line_item = %{$item};

      foreach my $field ( keys %line_item ) {

        print "  $field: |$line_item{$field}|\n";

      }

    print "\n";

  }

}