Revision 4d4da297
Von Moritz Bunkus vor etwa 2 Jahren hinzugefügt
| SL/Template/LaTeX.pm | ||
|---|---|---|
| 8 | 8 |
use Cwd; |
| 9 | 9 |
use English qw(-no_match_vars); |
| 10 | 10 |
use File::Basename; |
| 11 |
use File::Path; |
|
| 12 |
use File::Spec; |
|
| 11 | 13 |
use File::Temp; |
| 12 | 14 |
use HTML::Entities (); |
| 13 | 15 |
use List::MoreUtils qw(any); |
| ... | ... | |
| 532 | 534 |
return join(':', grep({ $_ } ('.', $exe_dir . '/texmf', $exe_dir . '/users', $templates_path, $ENV{TEXINPUTS})), '');
|
| 533 | 535 |
} |
| 534 | 536 |
|
| 537 |
sub _setup_env {
|
|
| 538 |
my ($self) = @_; |
|
| 539 |
|
|
| 540 |
my $userspath = $::lx_office_conf{paths}->{userspath};
|
|
| 541 |
$ENV{openin_any} = "r";
|
|
| 542 |
$ENV{TEXINPUTS} = $self->_texinputs_path($self->{form}->{templates});
|
|
| 543 |
$ENV{TEXMFHOME} = File::Spec->rel2abs($userspath . "/texmf", SL::System::Process::exe_dir());
|
|
| 544 |
$ENV{TEXMFVAR} = $ENV{TEXMFHOME} . "/var";
|
|
| 545 |
|
|
| 546 |
File::Path::make_path($ENV{TEXMFVAR});
|
|
| 547 |
} |
|
| 548 |
|
|
| 535 | 549 |
sub convert_to_postscript {
|
| 536 | 550 |
my ($self) = @_; |
| 537 | 551 |
my ($form, $userspath) = ($self->{"form"}, $self->{"userspath"});
|
| 538 | 552 |
|
| 539 | 553 |
# Convert the tex file to postscript |
| 540 |
local $ENV{TEXINPUTS} = $self->_texinputs_path($form->{templates});
|
|
| 554 |
local ($ENV{TEXINPUTS}, $ENV{TEXMFHOME}, $ENV{TEXMFVAR}, $ENV{openin_any});
|
|
| 555 |
$self->_setup_env; |
|
| 541 | 556 |
|
| 542 | 557 |
if (!chdir("$userspath")) {
|
| 543 | 558 |
$self->{"error"} = "chdir : $!";
|
| ... | ... | |
| 548 | 563 |
$form->{tmpfile} =~ s/\Q$userspath\E\///g;
|
| 549 | 564 |
|
| 550 | 565 |
my $latex = $self->_get_latex_path(); |
| 551 |
my $old_home = $ENV{HOME};
|
|
| 552 |
my $old_openin_any = $ENV{openin_any};
|
|
| 553 |
$ENV{HOME} = $userspath =~ m|^/| ? $userspath : getcwd();
|
|
| 554 |
$ENV{openin_any} = "r";
|
|
| 555 | 566 |
|
| 556 | 567 |
for (my $run = 1; $run <= 2; $run++) {
|
| 557 | 568 |
if (system("${latex} --interaction=nonstopmode $form->{tmpfile} " .
|
| ... | ... | |
| 559 | 570 |
die "system call to $latex failed: $!"; |
| 560 | 571 |
} |
| 561 | 572 |
if ($?) {
|
| 562 |
$ENV{HOME} = $old_home;
|
|
| 563 |
$ENV{openin_any} = $old_openin_any;
|
|
| 564 | 573 |
$self->{"error"} = $form->cleanup($latex);
|
| 565 | 574 |
return 0; |
| 566 | 575 |
} |
| ... | ... | |
| 571 | 580 |
if (system("dvips $form->{tmpfile} -o -q > /dev/null") == -1) {
|
| 572 | 581 |
die "system call to dvips failed: $!"; |
| 573 | 582 |
} |
| 574 |
$ENV{HOME} = $old_home;
|
|
| 575 |
$ENV{openin_any} = $old_openin_any;
|
|
| 576 | 583 |
|
| 577 | 584 |
if ($?) {
|
| 578 | 585 |
$self->{"error"} = "dvips : $?";
|
| ... | ... | |
| 591 | 598 |
my ($form, $userspath) = ($self->{"form"}, $self->{"userspath"});
|
| 592 | 599 |
|
| 593 | 600 |
# Convert the tex file to PDF |
| 594 |
local $ENV{TEXINPUTS} = $self->_texinputs_path($form->{templates});
|
|
| 601 |
local ($ENV{TEXINPUTS}, $ENV{TEXMFHOME}, $ENV{TEXMFVAR}, $ENV{openin_any});
|
|
| 602 |
$self->_setup_env; |
|
| 595 | 603 |
|
| 596 | 604 |
if (!chdir("$userspath")) {
|
| 597 | 605 |
$self->{"error"} = "chdir : $!";
|
| ... | ... | |
| 602 | 610 |
$form->{tmpfile} =~ s/\Q$userspath\E\///g;
|
| 603 | 611 |
|
| 604 | 612 |
my $latex = $self->_get_latex_path(); |
| 605 |
my $old_home = $ENV{HOME};
|
|
| 606 |
my $old_openin_any = $ENV{openin_any};
|
|
| 607 |
$ENV{HOME} = $userspath =~ m|^/| ? $userspath : getcwd();
|
|
| 608 |
$ENV{openin_any} = "r";
|
|
| 609 | 613 |
|
| 610 | 614 |
for (my $run = 1; $run <= 2; $run++) {
|
| 611 | 615 |
if (system("${latex} --interaction=nonstopmode $form->{tmpfile} " .
|
| ... | ... | |
| 614 | 618 |
} |
| 615 | 619 |
|
| 616 | 620 |
if ($?) {
|
| 617 |
$ENV{HOME} = $old_home;
|
|
| 618 |
$ENV{openin_any} = $old_openin_any;
|
|
| 619 | 621 |
$self->{error} = $form->cleanup($latex);
|
| 620 | 622 |
return 0; |
| 621 | 623 |
} |
| 622 | 624 |
} |
| 623 | 625 |
|
| 624 |
$ENV{HOME} = $old_home;
|
|
| 625 |
$ENV{openin_any} = $old_openin_any;
|
|
| 626 | 626 |
$form->{tmpfile} =~ s/tex$/pdf/;
|
| 627 | 627 |
|
| 628 | 628 |
$self->cleanup(); |
Auch abrufbar als: Unified diff
LaTeX: TeX-Var-Verzeichnis permanent im users-Verzeichnis belassen
Bisher lag es bei PDF-Erzeugung im temporären Verzeichnis
users/kivitendo-print-…, das anschließend wieder gelöscht wurde. Das
bedeutete, dass Font-Caching bei jeder PDF-Erstellung erfolgen
musste.
Nach dieser Umstellung wird ein Verzeichnis …/users/texmf/var angelegt
& die entsprechenden Umgebungsvariablen so gesetzt, dass TeX dort die
temporären Dateien ablegt. Dieses Verzeichnis kann dauerhaft bestehen
bleiben, sodass tatsächlich gecachet wird.