KiviLatex-Plugin: HTML-zu-LaTeX-Wandlung aus SL::Template::LaTeX verwenden
[kivitendo-erp.git] / SL / DB / Printer.pm
1 package SL::DB::Printer;
2
3 use strict;
4
5 use Carp;
6
7 use SL::DB::MetaSetup::Printer;
8 use SL::DB::Manager::Printer;
9 use SL::DB::Helper::Util;
10
11 __PACKAGE__->meta->initialize;
12
13 sub description {
14   goto &printer_description;
15 }
16
17 sub validate {
18   my ($self) = @_;
19
20   my @errors;
21   push @errors, $::locale->text('The description is missing.')    if !$self->printer_description;
22   push @errors, $::locale->text('The command is missing.')        if !$self->printer_command;
23   push @errors, $::locale->text('The description is not unique.') if !SL::DB::Helper::Util::is_unique($self, 'printer_description');
24
25   return @errors;
26 }
27
28 sub print_document {
29   my ($self, %params) = @_;
30
31   croak "Need either a 'content' or a 'file_name' parameter" if !defined($params{content}) && !$params{file_name};
32
33   my $copies  = $params{copies} || 1;
34   my $command = SL::Template::create(type => 'ShellCommand', form => Form->new(''))->parse($self->printer_command);
35   my $content = $params{content} // scalar(File::Slurp::read_file($params{file_name}));
36
37   for (1..$copies) {
38     open my $out, '|-', $command or die $!;
39     binmode $out;
40     print $out $content;
41     close $out;
42   }
43 }
44
45 1;
46 __END__
47
48 =pod
49
50 =encoding utf8
51
52 =head1 NAME
53
54 SL::DB::Printer - Rose model for database table printers
55
56 =head1 SYNOPSIS
57
58   my $printer = SL::DB::Printer->new(id => 4711)->load;
59   $printer->print_document(
60     copies    => 2,
61     file_name => '/path/to/file.pdf',
62   );
63
64 =head1 FUNCTIONS
65
66 =over 4
67
68 =item C<print_document %params>
69
70 Prints a document by spawning the external command stored in
71 C<$self-E<gt>printer_command> and sending content to it.
72
73 The caller must provide either the content to send to the printer
74 (parameter C<content>) or a name to a file whose content is sent
75 verbatim (parameter C<file_name>).
76
77 An optional parameter C<copies> can be given to specify the number of
78 copies to print. This is done by invoking the print command multiple
79 times. The number of copies defaults to 1.
80
81 =back
82
83 =head1 BUGS
84
85 Nothing here yet.
86
87 =head1 AUTHOR
88
89 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
90
91 =cut