| 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 |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to test.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / RT / Invoicing