Changelog: Neue Verknüpfung E-Mail-Journal <-> Beleg
[kivitendo-erp.git] / SL / Template / HTML.pm
1 package SL::Template::HTML;
2
3 use parent qw(SL::Template::LaTeX);
4
5 use strict;
6
7 sub new {
8   my $type = shift;
9
10   return $type->SUPER::new(@_);
11 }
12
13 sub format_string {
14   my ($self, $variable) = @_;
15   my $form = $self->{"form"};
16
17   $variable = $main::locale->quote_special_chars('Template/HTML', $variable);
18
19   # Allow some HTML markup to be converted into the output format's
20   # corresponding markup code, e.g. bold or italic.
21   my @markup_replace = ('b', 'i', 's', 'u', 'sub', 'sup');
22
23   foreach my $key (@markup_replace) {
24     $variable =~ s/\&lt;(\/?)${key}\&gt;/<$1${key}>/g;
25   }
26
27   return $variable;
28 }
29
30 sub get_mime_type() {
31   my ($self) = @_;
32
33   if ($self->{"form"}->{"format"} =~ /postscript/i) {
34     return "application/postscript";
35   } elsif ($self->{"form"}->{"format"} =~ /pdf/i) {
36     return "application/pdf";
37   } else {
38     return "text/html";
39   }
40 }
41
42 sub uses_temp_file {
43   my ($self) = @_;
44
45   if ($self->{"form"}->{"format"} =~ /postscript/i) {
46     return 1;
47   } elsif ($self->{"form"}->{"format"} =~ /pdf/i) {
48     return 1;
49   } else {
50     return 0;
51   }
52 }
53
54 sub convert_to_postscript {
55   my ($self) = @_;
56   my ($form, $userspath) = ($self->{"form"}, $self->{"userspath"});
57
58   # Convert the HTML file to postscript
59
60   if (!chdir("$userspath")) {
61     $self->{"error"} = "chdir : $!";
62     $self->cleanup();
63     return 0;
64   }
65
66   $form->{"tmpfile"} =~ s/\Q$userspath\E\///g;
67   my $psfile = $form->{"tmpfile"};
68   $psfile =~ s/.html/.ps/;
69   if ($psfile eq $form->{"tmpfile"}) {
70     $psfile .= ".ps";
71   }
72
73   if (system($::lx_office_conf{applications}->{html2ps} . " -f html2ps-config < $form->{tmpfile} > $psfile") == -1) {
74     die "system call to $::lx_office_conf{applications}->{html2ps} failed: $!";
75   }
76   if ($?) {
77     $self->{"error"} = $form->cleanup($::lx_office_conf{applications}->{html2ps});
78     return 0;
79   }
80
81   $form->{"tmpfile"} = $psfile;
82
83   $self->cleanup();
84
85   return 1;
86 }
87
88 sub convert_to_pdf {
89   my ($self) = @_;
90   my ($form, $userspath) = ($self->{"form"}, $self->{"userspath"});
91
92   # Convert the HTML file to PDF
93
94   if (!chdir("$userspath")) {
95     $self->{"error"} = "chdir : $!";
96     $self->cleanup();
97     return 0;
98   }
99
100   $form->{"tmpfile"} =~ s/\Q$userspath\E\///g;
101   my $pdffile = $form->{"tmpfile"};
102   $pdffile =~ s/.html/.pdf/;
103   if ($pdffile eq $form->{"tmpfile"}) {
104     $pdffile .= ".pdf";
105   }
106
107   if (system($::lx_office_conf{applications}->{html2ps} . " -f html2ps-config < $form->{tmpfile} | ps2pdf - $pdffile") == -1) {
108     die "system call to $::lx_office_conf{applications}->{html2ps} failed: $!";
109   }
110   if ($?) {
111     $self->{"error"} = $form->cleanup($::lx_office_conf{applications}->{html2ps});
112     return 0;
113   }
114
115   $form->{"tmpfile"} = $pdffile;
116
117   $self->cleanup();
118
119   return 1;
120 }
121
122 1;