use vars qw( $invoice_lines @buf ); #yuck
use Date::Format;
use Text::Template;
-use File::Temp;
+use File::Temp 0.14;
use FS::UID qw( datasrc );
use FS::Record qw( qsearch qsearchs );
use FS::Misc qw( send_email );
my $dir = $FS::UID::conf_dir. "cache.". $FS::UID::datasrc;
my $fh = new File::Temp( TEMPLATE => 'invoice.'. $self->invnum. '.XXXXXXXX',
- DIR => $dir
+ DIR => $dir,
SUFFIX => '.tex',
UNLINK => 0,
) or die "can't open temp file: $!\n";
chdir($dir);
system("pslatex $file.tex >/dev/null 2>&1") == 0
- or die "pslatex failed: $!";
+ or die "pslatex $file.tex failed: $!";
system("pslatex $file.tex >/dev/null 2>&1") == 0
- or die "pslatex failed: $!";
+ or die "pslatex $file.tex failed: $!";
system('dvips', '-q', '-t', 'letter', "$file.dvi", '-o', "$file.ps" ) == 0
- or die "dbips failed: $!";
+ or die "dvips failed: $!";
open(POSTSCRIPT, "<$file.ps")
or die "can't open $file.ps: $! (error in LaTeX template?)\n";
#! LaTeX Error: Unknown graphics extension: .eps.
system("pslatex $file.tex >/dev/null 2>&1") == 0
- or die "pslatex failed: $!";
+ or die "pslatex $file.tex failed: $!";
system("pslatex $file.tex >/dev/null 2>&1") == 0
- or die "pslatex failed: $!";
+ or die "pslatex $file.tex failed: $!";
#system('dvipdf', "$file.dvi", "$file.pdf" );
system(
"| gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sOutputFile=$file.pdf ".
" -c save pop -"
) == 0
- or die "dvips failed: $!";
+ or die "dvips | gs failed: $!";
open(PDF, "<$file.pdf")
or die "can't open $file.pdf: $! (error in LaTeX template?)\n";