version 1.19, 2011/03/22 06:27:12 |
version 1.20, 2011/03/24 00:05:47 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1$ |
# $AFresh1: rt_invoices.pl,v 1.19 2011/03/22 05:27:12 andrew Exp $ |
######################################################################## |
######################################################################## |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com> |
# |
# |
|
|
File::Path::make_path($invoice_dir); |
File::Path::make_path($invoice_dir); |
my $file = join '/', $invoice_dir, $invoice->{file}; |
my $file = join '/', $invoice_dir, $invoice->{file}; |
|
|
my $tt = Template->new; |
my $tt = Template->new( |
$tt->process( 'invoice.tex.tt', $invoice, $file ) |
INCLUDE_PATH => $config->get('template_dir'), |
|
)|| die $Template::ERROR, "\n"; |
|
|
|
$tt->process( $config->get('invoice_template'), $invoice, $file ) |
or die $tt->error . "\n"; |
or die $tt->error . "\n"; |
|
|
printf "Generated %s for %s: \$%.02f\n", $invoice->{file}, $custid, |
printf "Generated %s for %s: \$%.02f\n", $invoice->{file}, $custid, |
|
|
} |
} |
when ('invoice_dir') { |
when ('invoice_dir') { |
$value = dirname( $self->{file} ) . '/invoices'; |
$value = dirname( $self->{file} ) . '/invoices'; |
|
} |
|
when ('template_dir') { |
|
$value = dirname( $self->{file} ); |
|
} |
|
when ('invoice_template') { |
|
$value = 'invoice.tex.tt'; |
} |
} |
} |
} |
|
|