kivitendo/SL/Helper/EmailProcessing.pm @ 231ea4d9
| 7e62d6a2 | Tamino Steinert | package SL::Helper::EmailProcessing;
|
||
use strict;
|
||||
use warnings;
|
||||
use Carp;
|
||||
use XML::LibXML;
|
||||
use SL::ZUGFeRD;
|
||||
use SL::DB::PurchaseInvoice;
|
||||
sub process_attachments {
|
||||
my ($self, $function_name, $email_journal, %params) = @_;
|
||||
unless ($self->can("process_attachments_$function_name")) {
|
||||
croak "Function not implemented for: $function_name";
|
||||
}
|
||||
$function_name = "process_attachments_$function_name";
|
||||
my $processed_count = 0;
|
||||
foreach my $attachment (@{$email_journal->attachments_sorted}) {
|
||||
my $processed = $self->$function_name($email_journal, $attachment, %params);
|
||||
$processed_count += $processed;
|
||||
}
|
||||
return $processed_count;
|
||||
}
|
||||
sub process_attachments_zugferd {
|
||||
my ($self, $email_journal, $attachment, %params) = @_;
|
||||
my $content = $attachment->content; # scalar ref
|
||||
return 0 unless $content =~ m/^%PDF/;
|
||||
my $zugferd_info = SL::ZUGFeRD->extract_from_pdf($content);
|
||||
return 0 unless $zugferd_info->{result} == SL::ZUGFeRD::RES_OK();
|
||||
my $zugferd_xml = XML::LibXML->load_xml(string => $zugferd_info->{invoice_xml});
|
||||
my $purchase_invoice = SL::DB::PurchaseInvoice->create_from_zugferd_xml($zugferd_xml)->save();
|
||||
$self->_add_attachment_to_record($email_journal, $attachment, $purchase_invoice);
|
||||
return 1;
|
||||
}
|
||||
sub _add_attachment_to_record {
|
||||
my ($self, $email_journal, $attachment, $record) = @_;
|
||||
| f642a664 | Tamino Steinert | $attachment->add_file_to_record($record);
|
||
| 7e62d6a2 | Tamino Steinert | |||
| f642a664 | Tamino Steinert | $email_journal->link_to_record($record);
|
||
| 7e62d6a2 | Tamino Steinert | }
|
||
1;
|