version 1.4, 2011/03/22 05:53:59 |
version 1.5, 2011/12/21 02:20:59 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: test.pl,v 1.3 2011/03/20 05:20:11 andrew Exp $ |
# $AFresh1: test.pl,v 1.4 2011/03/22 04:53:59 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
|
|
my %invoice = ( |
my %invoice = ( |
id => 1, |
id => 1, |
|
logo => '/home/andrew/.rt_invoicing/afresh_logo.pdf', |
info1 => 'Visit me online at http://example.com', |
info1 => 'Visit me online at http://example.com', |
info2 => 'Create a new ticket rt@example.com', |
info2 => 'Create a new ticket rt@example.com', |
from => 'Example Company |
from => 'Example Company |