X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FTemplate.pm;h=f76796759dd35bada4f535c96b1764bba9ecc2d8;hb=8484285f05cdb419d89c4385d8889117bbd2df62;hp=8300458b7960d4133b520e779a5483515bab12ab;hpb=526173c2827375e04540a626a339d249a3648239;p=kivitendo-erp.git diff --git a/SL/Template.pm b/SL/Template.pm index 8300458b7..f76796759 100644 --- a/SL/Template.pm +++ b/SL/Template.pm @@ -5,9 +5,17 @@ # Web http://www.lx-office.org # #==================================================================== +# +# +# NOTE: strict checks are package global. don't check this file +# with perl -sc, it will only capture SimpleTemplate +# +# package SimpleTemplate; +use strict; + # Parameters: # 1. The template's file name # 2. A reference to the Form object @@ -34,6 +42,7 @@ sub _init { $self->{userspath} = shift; $self->{error} = undef; + $self->{quot_re} = '"'; $self->set_tag_style('<%', '%>'); } @@ -120,6 +129,92 @@ sub substitute_vars { return $text; } +sub _parse_block_if { + $main::lxdebug->enter_sub(); + + my $self = shift; + my $contents = shift; + my $new_contents = shift; + my $pos_if = shift; + my @indices = @_; + + $$new_contents .= $self->substitute_vars(substr($$contents, 0, $pos_if), @indices); + substr($$contents, 0, $pos_if) = ""; + + if ($$contents !~ m/^$self->{tag_start_qm}if + \s* + (not\b|\!)? # $1 -- Eventuelle Negierung + \s+ + (\b.+?\b) # $2 -- Name der zu überprüfenden Variablen + ( # $3 -- Beginn des optionalen Vergleiches + \s* + ([!=]) # $4 -- Negierung des Vergleiches speichern + ([=~]) # $5 -- Art des Vergleiches speichern + \s* + ( # $6 -- Gequoteter String oder Bareword + $self->{quot_re} + (.*?)(?{quot_re} + | + (\b.+?\b) # $8 -- Bareword -- als Index für $form benutzen + ) + )? + \s* + $self->{tag_end_qm} + /x) { + $self->{"error"} = "Malformed $self->{tag_start}if$self->{tag_end}."; + $main::lxdebug->leave_sub(); + return undef; + } + + my $not = $1; + my $var = $2; + my $operator_neg = $4; # '=' oder '!' oder undef, wenn kein Vergleich erkannt + my $operator_type = $5; # '=' oder '~' für Stringvergleich oder Regex + my $quoted_word = $7; # nur gültig, wenn quoted string angegeben (siehe unten); dann "value" aus <%if var == "value" %> + my $bareword = $8; # undef, falls quoted string angegeben wurde; andernfalls "othervar" aus <%if var == othervar %> + + $not = !$not if ($operator_neg && $operator_neg eq '!'); + + substr($$contents, 0, length($&)) = ""; + + my $block; + ($block, $$contents) = $self->find_end($$contents, 0, $var, $not); + if (!$block) { + $self->{"error"} = "Unclosed $self->{tag_start}if$self->{tag_end}." unless ($self->{"error"}); + $main::lxdebug->leave_sub(); + return undef; + } + + my $value = $self->_get_loop_variable($var, 0, @indices); + my $hit = 0; + + if ($operator_type) { + my $compare_to = $bareword ? $self->_get_loop_variable($bareword, 0, @indices) : $quoted_word; + if ($operator_type eq '=') { + $hit = ($not && !($value eq $compare_to)) || (!$not && ($value eq $compare_to)); + } else { + $hit = ($not && !($value =~ m/$compare_to/i)) || (!$not && ($value =~ m/$compare_to/i)); + } + + } else { + $hit = ($not && ! $value) || (!$not && $value); + } + + if ($hit) { + my $new_text = $self->parse_block($block, @indices); + if (!defined($new_text)) { + $main::lxdebug->leave_sub(); + return undef; + } + $$new_contents .= $new_text; + } + + $main::lxdebug->leave_sub(); + + return 1; +} + 1; #### @@ -132,6 +227,8 @@ use vars qw(@ISA); @ISA = qw(SimpleTemplate); +use strict; + sub new { my $type = shift; @@ -169,28 +266,34 @@ sub parse_foreach { my $ary = $self->_get_loop_variable($var, 1, @indices); - my $sum = 0; - my $current_page = 1; + my $sum = 0; + my $current_page = 1; my ($current_line, $corrent_row) = (0, 1); + my $description_array = $self->_get_loop_variable("description", 1); + my $longdescription_array = $self->_get_loop_variable("longdescription", 1); + my $linetotal_array = $self->_get_loop_variable("linetotal", 1); + + $form->{TEMPLATE_ARRAYS}->{cumulatelinetotal} = []; + + # forech block hasn't given us an array. ignore + return $new_contents unless ref $ary eq 'ARRAY'; for (my $i = 0; $i < scalar(@{$ary}); $i++) { - $form->{"__first__"} = $i == 0; - $form->{"__last__"} = ($i + 1) == scalar(@{$ary}); - $form->{"__odd__"} = (($i + 1) % 2) == 1; + # do magic markers + $form->{"__first__"} = $i == 1; + $form->{"__last__"} = ($i + 1) == scalar(@{$ary}); + $form->{"__odd__"} = (($i + 1) % 2) == 1; $form->{"__counter__"} = $i + 1; - if ((scalar(@{$form->{"description"}}) == scalar(@{$ary})) && - $self->{"chars_per_line"}) { - my $lines = - int(length($form->{"description"}->[$i]) / $self->{"chars_per_line"}); + if ( ref $description_array eq 'ARRAY' + && scalar @{$description_array} == scalar @{$ary} + && $self->{"chars_per_line"} != 0) + { + my $lines = int(length($description_array->[$i]) / $self->{"chars_per_line"}); my $lpp; - $form->{"description"}->[$i] =~ s/(\\newline\s?)*$//; - my $_description = $form->{"description"}->[$i]; - while ($_description =~ /\\newline/) { - $lines++; - $_description =~ s/\\newline//; - } + $description_array->[$i] =~ s/(\\newline\s?)*$//; + $lines++ while ($description_array->[$i] =~ m/\\newline/g); $lines++; if ($current_page == 1) { @@ -200,7 +303,10 @@ sub parse_foreach { } # Yes we need a manual page break -- or the user has forced one - if ((($current_line + $lines) > $lpp) || ($form->{"description"}->[$i] =~ //) || ($form->{"longdescription"}->[$i] =~ //)) { + if ( (($current_line + $lines) > $lpp) + || ($description_array->[$i] =~ //) + || ( ref $longdescription_array eq 'ARRAY' + && $longdescription_array->[$i] =~ //)) { my $pb = $self->{"pagebreak_block"}; # replace the special variables <%sumcarriedforward%> @@ -219,12 +325,13 @@ sub parse_foreach { } $current_line += $lines; } - if ($i < scalar(@{$form->{"linetotal"}})) { - $sum += $form->parse_amount($self->{"myconfig"}, - $form->{"linetotal"}->[$i]); + + if ( ref $linetotal_array eq 'ARRAY' + && $i < scalar(@{$linetotal_array})) { + $sum += $form->parse_amount($self->{"myconfig"}, $linetotal_array->[$i]); } - $form->{"cumulatelinetotal"}[$i] = $form->format_amount($self->{"myconfig"}, $sum, 2); + $form->{TEMPLATE_ARRAYS}->{cumulatelinetotal}->[$i] = $form->format_amount($self->{"myconfig"}, $sum, 2); my $new_text = $self->parse_block($text, (@indices, $i)); return undef unless (defined($new_text)); @@ -330,44 +437,10 @@ sub parse_block { $new_contents .= $new_text; } else { - $new_contents .= $self->substitute_vars(substr($contents, 0, $pos_if), @indices); - substr($contents, 0, $pos_if) = ""; - - if ($contents !~ m|^$self->{tag_start_qm}if\s*(not)?\s+(.*?)$self->{tag_end_qm}|) { - $self->{"error"} = "Malformed $self->{tag_start}if$self->{tag_end}."; + if (!$self->_parse_block_if(\$contents, \$new_contents, $pos_if, @indices)) { $main::lxdebug->leave_sub(); return undef; } - - my ($not, $var) = ($1, $2); - - substr($contents, 0, length($&)) = ""; - - ($block, $contents) = $self->find_end($contents, 0, $var, $not); - if (!$block) { - $self->{"error"} = "Unclosed $self->{tag_start}if${not}$self->{tag_end}." unless ($self->{"error"}); - $main::lxdebug->leave_sub(); - return undef; - } - - my $form = $self->{form}; - $form = $form->{TEMPLATE_ARRAYS} if @indices - && ref $form->{TEMPLATE_ARRAYS} eq 'HASH' - && ref $form->{TEMPLATE_ARRAYS}->{$var} eq 'ARRAY'; - my $value = $form->{$var}; - for (my $i = 0; $i < scalar(@indices); $i++) { - last unless (ref($value) eq "ARRAY"); - $value = $value->[$indices[$i]]; - } - - if (($not && !$value) || (!$not && $value)) { - my $new_text = $self->parse_block($block, @indices); - if (!defined($new_text)) { - $main::lxdebug->leave_sub(); - return undef; - } - $new_contents .= $new_text; - } } } @@ -445,7 +518,7 @@ sub _force_mandatory_packages { my (%used_packages, $document_start_line); foreach my $i (0 .. scalar @{ $lines } - 1) { - if ($lines->[$i] =~ m/\\usepackage[^{]*{(.*?)}/) { + if ($lines->[$i] =~ m/\\usepackage[^\{]*{(.*?)}/) { $used_packages{$1} = 1; } elsif ($lines->[$i] =~ m/\\begin{document}/) { @@ -523,8 +596,10 @@ sub convert_to_postscript { $form->{tmpfile} =~ s/\Q$userspath\E\///g; + my $latex = $self->_get_latex_path(); + for (my $run = 1; $run <= 2; $run++) { - system("latex --interaction=nonstopmode $form->{tmpfile} " . + system("${latex} --interaction=nonstopmode $form->{tmpfile} " . "> $form->{tmpfile}.err"); if ($?) { $self->{"error"} = $form->cleanup(); @@ -562,8 +637,10 @@ sub convert_to_pdf { $form->{tmpfile} =~ s/\Q$userspath\E\///g; + my $latex = $self->_get_latex_path(); + for (my $run = 1; $run <= 2; $run++) { - system("pdflatex --interaction=nonstopmode $form->{tmpfile} " . + system("${latex} --interaction=nonstopmode $form->{tmpfile} " . "> $form->{tmpfile}.err"); if ($?) { $self->{"error"} = $form->cleanup(); @@ -577,6 +654,10 @@ sub convert_to_pdf { $self->cleanup(); } +sub _get_latex_path { + return $main::latex_bin || 'pdflatex'; +} + sub get_mime_type() { my ($self) = @_; @@ -602,6 +683,8 @@ use vars qw(@ISA); @ISA = qw(LaTeXTemplate); +use strict; + sub new { my $type = shift; @@ -726,6 +809,8 @@ use vars qw(@ISA); @ISA = qw(LaTeXTemplate); +use strict; + sub new { my $type = shift; @@ -753,9 +838,12 @@ sub parse { package OpenDocumentTemplate; +use Archive::Zip; use POSIX 'setsid'; use vars qw(@ISA); +use SL::Iconv; + use Cwd; # use File::Copy; # use File::Spec; @@ -764,26 +852,18 @@ use IO::File; @ISA = qw(SimpleTemplate); +use strict; + sub new { my $type = shift; - $self = $type->SUPER::new(@_); - - foreach my $module (qw(Archive::Zip Text::Iconv)) { - eval("use ${module};"); - if ($@) { - $self->{"form"}->error("The Perl module '${module}' could not be " . - "loaded. Support for OpenDocument templates " . - "does not work without it. Please install your " . - "distribution's package or get the module from " . - "CPAN ( http://www.cpan.org )."); - } - } + my $self = $type->SUPER::new(@_); $self->{"rnd"} = int(rand(1000000)); - $self->{"iconv"} = Text::Iconv->new($main::dbcharset, "UTF-8"); + $self->{"iconv"} = SL::Iconv->new($main::dbcharset, "UTF-8"); $self->set_tag_style('<%', '%>'); + $self->{quot_re} = '"'; return $self; } @@ -945,40 +1025,10 @@ sub parse_block { $new_contents .= $new_text; } else { - $new_contents .= $self->substitute_vars(substr($contents, 0, $pos_if), @indices); - substr($contents, 0, $pos_if) = ""; - - if ($contents !~ m|^\<\%if\s*(not)?\s+(.*?)\%\>|) { - $self->{"error"} = "Malformed <\%if\%>."; - $main::lxdebug->leave_sub(); - return undef; - } - - my ($not, $var) = ($1, $2); - - substr($contents, 0, length($&)) = ""; - - ($block, $contents) = $self->find_end($contents, 0, $var, $not); - if (!$block) { - $self->{"error"} = "Unclosed <\%if${not}\%>." unless ($self->{"error"}); + if (!$self->_parse_block_if(\$contents, \$new_contents, $pos_if, @indices)) { $main::lxdebug->leave_sub(); return undef; } - - my $value = $self->{"form"}->{$var}; - for (my $i = 0; $i < scalar(@indices); $i++) { - last unless (ref($value) eq "ARRAY"); - $value = $value->[$indices[$i]]; - } - - if (($not && !$value) || (!$not && $value)) { - my $new_text = $self->parse_block($block, @indices); - if (!defined($new_text)) { - $main::lxdebug->leave_sub(); - return undef; - } - $new_contents .= $new_text; - } } } } @@ -1005,7 +1055,7 @@ sub parse { } my $zip = Archive::Zip->new(); - if (Archive::Zip::AZ_OK != $zip->read($file_name)) { + if (Archive::Zip->AZ_OK != $zip->read($file_name)) { $self->{"error"} = "File not found/is not a OpenDocument file."; $main::lxdebug->leave_sub(); return 0; @@ -1082,7 +1132,7 @@ sub is_xvfb_running { my $dfname = $self->{"userspath"} . "/xvfb_display"; my $display; - $main::lxdebug->message(LXDebug::DEBUG2, " Looking for $dfname\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " Looking for $dfname\n"); if ((-f $dfname) && open(IN, $dfname)) { my $pid = ; chomp($pid); @@ -1092,10 +1142,10 @@ sub is_xvfb_running { chomp($xauthority); close(IN); - $main::lxdebug->message(LXDebug::DEBUG2, " found with $pid and $display\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " found with $pid and $display\n"); if ((! -d "/proc/$pid") || !open(IN, "/proc/$pid/cmdline")) { - $main::lxdebug->message(LXDebug::DEBUG2, " no/wrong process #1\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " no/wrong process #1\n"); unlink($dfname, $xauthority); $main::lxdebug->leave_sub(); return undef; @@ -1103,7 +1153,7 @@ sub is_xvfb_running { my $line = ; close(IN); if ($line !~ /xvfb/i) { - $main::lxdebug->message(LXDebug::DEBUG2, " no/wrong process #2\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " no/wrong process #2\n"); unlink($dfname, $xauthority); $main::lxdebug->leave_sub(); return undef; @@ -1112,7 +1162,7 @@ sub is_xvfb_running { $ENV{"XAUTHORITY"} = $xauthority; $ENV{"DISPLAY"} = $display; } else { - $main::lxdebug->message(LXDebug::DEBUG2, " not found\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " not found\n"); } $main::lxdebug->leave_sub(); @@ -1125,7 +1175,7 @@ sub spawn_xvfb { my ($self) = @_; - $main::lxdebug->message(LXDebug::DEBUG2, "spawn_xvfb()\n"); + $main::lxdebug->message(LXDebug->DEBUG2, "spawn_xvfb()\n"); my $display = $self->is_xvfb_running(); @@ -1139,18 +1189,18 @@ sub spawn_xvfb { $display++; } $display = ":${display}"; - $main::lxdebug->message(LXDebug::DEBUG2, " display $display\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " display $display\n"); my $mcookie = `mcookie`; die("Installation error: mcookie not found.") if ($? != 0); chomp($mcookie); - $main::lxdebug->message(LXDebug::DEBUG2, " mcookie $mcookie\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " mcookie $mcookie\n"); my $xauthority = "/tmp/.Xauthority-" . $$ . "-" . time() . "-" . int(rand(9999999)); $ENV{"XAUTHORITY"} = $xauthority; - $main::lxdebug->message(LXDebug::DEBUG2, " xauthority $xauthority\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " xauthority $xauthority\n"); system("xauth add \"${display}\" . \"${mcookie}\""); if ($? != 0) { @@ -1159,15 +1209,15 @@ sub spawn_xvfb { return undef; } - $main::lxdebug->message(LXDebug::DEBUG2, " about to fork()\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " about to fork()\n"); my $pid = fork(); if (0 == $pid) { - $main::lxdebug->message(LXDebug::DEBUG2, " Child execing\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " Child execing\n"); exec($main::xvfb_bin, $display, "-screen", "0", "640x480x8", "-nolisten", "tcp"); } sleep(3); - $main::lxdebug->message(LXDebug::DEBUG2, " parent dont sleeping\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " parent dont sleeping\n"); local *OUT; my $dfname = $self->{"userspath"} . "/xvfb_display"; @@ -1181,7 +1231,7 @@ sub spawn_xvfb { print(OUT "$pid\n$display\n$xauthority\n"); close(OUT); - $main::lxdebug->message(LXDebug::DEBUG2, " parent re-testing\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " parent re-testing\n"); if (!$self->is_xvfb_running()) { $self->{"error"} = "Conversion to PDF failed because OpenOffice could not be started."; @@ -1191,7 +1241,7 @@ sub spawn_xvfb { return undef; } - $main::lxdebug->message(LXDebug::DEBUG2, " spawn OK\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " spawn OK\n"); $main::lxdebug->leave_sub(); @@ -1204,7 +1254,7 @@ sub is_openoffice_running { system("./scripts/oo-uno-test-conn.py $main::openofficeorg_daemon_port " . "> /dev/null 2> /dev/null"); my $res = $? == 0; - $main::lxdebug->message(LXDebug::DEBUG2, " is_openoffice_running(): $?\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " is_openoffice_running(): $?\n"); $main::lxdebug->leave_sub(); @@ -1216,7 +1266,7 @@ sub spawn_openoffice { my ($self) = @_; - $main::lxdebug->message(LXDebug::DEBUG2, "spawn_openoffice()\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), "spawn_openoffice()\n"); my ($try, $spawned_oo, $res); @@ -1230,14 +1280,14 @@ sub spawn_openoffice { if (!$spawned_oo) { my $pid = fork(); if (0 == $pid) { - $main::lxdebug->message(LXDebug::DEBUG2, " Child daemonizing\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " Child daemonizing\n"); chdir('/'); open(STDIN, '/dev/null'); open(STDOUT, '>/dev/null'); my $new_pid = fork(); exit if ($new_pid); my $ssres = setsid(); - $main::lxdebug->message(LXDebug::DEBUG2, " Child execing\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " Child execing\n"); my @cmdline = ($main::openofficeorg_writer_bin, "-minimized", "-norestore", "-nologo", "-nolockcheck", "-headless", @@ -1246,7 +1296,7 @@ sub spawn_openoffice { exec(@cmdline); } - $main::lxdebug->message(LXDebug::DEBUG2, " Parent after fork\n"); + $main::lxdebug->message(LXDebug->DEBUG2(), " Parent after fork\n"); $spawned_oo = 1; sleep(3); } @@ -1351,6 +1401,8 @@ sub format_string { } sub get_mime_type() { + my ($self) = @_; + if ($self->{"form"}->{"format"} =~ /pdf/) { return "application/pdf"; } else { @@ -1375,6 +1427,8 @@ use vars qw(@ISA); @ISA = qw(HTMLTemplate); +use strict; + sub new { #evtl auskommentieren my $type = shift; @@ -1415,4 +1469,95 @@ sub uses_temp_file { return 1; } + +########################################################## +#### +#### ExcelTemplate +#### +########################################################## + +package ExcelTemplate; + +use vars qw(@ISA); + +@ISA = qw(SimpleTemplate); + +sub new { + my $type = shift; + + my $self = $type->SUPER::new(@_); + + return $self; +} +sub _init { + my $self = shift; + + $self->{source} = shift; + $self->{form} = shift; + $self->{myconfig} = shift; + $self->{userspath} = shift; + + $self->{error} = undef; + + $self->set_tag_style('<<', '>>'); +} + +sub get_mime_type() { + my ($self) = @_; + + return "application/msexcel"; +} + +sub uses_temp_file { + return 1; +} + +sub parse { + $main::lxdebug->enter_sub(); + + my $self = shift; + local *OUT = shift; + my $form = $self->{"form"}; + + open(IN, "$form->{templates}/$form->{IN}") or do { $self->{"error"} = "$!"; return 0; }; + my @lines = ; + close IN; + + my $contents = join("", @lines); + my @indices; + $contents =~ s{ + $self->{tag_start} [<]* (\s?) [<>\s]* ([\w\s]+) [<>\s]* $self->{tag_end} + }{ + $self->format_vars(align_right => $1 ne '', varstring => $2, length => length($&), indices => \@indices) + }egx; + + if (!defined($contents)) { + $main::lxdebug->leave_sub(); + return 0; + } + + print OUT $contents; + + $main::lxdebug->leave_sub(); + return 1; +} + +sub format_vars { + my ($self, %params) = @_; + my $form = $self->{"form"}; + my @indices = @{ $params{indices} }; + my $align_right = $params{align_right}; + my $varstring = $params{varstring}; + my $length = $params{length}; + + $varstring =~ s/(\w+)/ $self->_get_loop_variable($1, 0, @indices) /eg; + my $old_string=$varstring; + my $new_string = sprintf "%*s", ($align_right ? 1 : -1 ) * $length, $varstring; + if (!defined($new_string) || $new_string eq ''){ + $main::lxdebug->message(0, 'varstring' . $varstring . "old" . $old_string); + # return substr $varstring, ($align_right ? (0, $length) : -$length); + } + return substr $new_string, ($align_right ? (0, $length) : -$length); +} + 1;