Return to test.pl CVS log

Up to [local] / RT / Invoicing

Annotation of RT/Invoicing/test.pl, Revision 1.1.1.1

1.1       andrew      1: #!/usr/bin/perl
                      2: # $AFresh1$
                      3: use strict;
                      4: use warnings;
                      5:
                      6: use Template;
                      7:
                      8: my %invoice = (
                      9:     id => 1,
                     10:     info1 => 'Visit me online at http://example.com',
                     11:     info2 => 'Create a new ticket rt@example.com',
                     12:     from => {
                     13:         name => 'Example Company',
                     14:         #attn => 'Jane Smith',
                     15:         addr1 => '22115 Central Way',
                     16:         addr2 => 'Suite C',
                     17:         city => 'Anytown',
                     18:         state => 'America',
                     19:         zip  => '11111',
                     20:         phone => '(800) 555-1212',
                     21:         email => 'company@example.com',
                     22:     },
                     23:     to => {
                     24:         name => 'John Doe',
                     25:         addr1 => '123 W Main St',
                     26:         city => 'Anytown',
                     27:         state => 'America',
                     28:         zip  => '11111',
                     29:     },
                     30:     projects => [
                     31:         {
                     32:             title => 'Weekly Retainer',
                     33:             fees => [
                     34:                 {
                     35:                     contents => '2011-03-06 through 2011-03-12',
                     36:                     count => 1,
                     37:                     rate  => 300,
                     38:                 },
                     39:                 {
                     40:                     contents => '2011-03-13 through 2011-03-19',
                     41:                     count => 1,
                     42:                     rate  => 300,
                     43:                 },
                     44:             ],
                     45:         },
                     46:         {
                     47:             id => 60,
                     48:             title => '60: A Special Project',
                     49:             fees => [
                     50:                 {
                     51:                     contents => '2011-01-01: Talk a lot (727)',
                     52:                     count => 0.33,
                     53:                     rate => 75,
                     54:                 },
                     55:                 {
                     56:                     contents => '2011-01-15: Write Stuff (730)',
                     57:                     count => 1.5,
                     58:                     rate => 100,
                     59:                 },
                     60:             ],
                     61:             discounts => [
                     62:                 {
                     63:                     contents => 'Included Hours',
                     64:                     amount   => .33 * 75,
                     65:                 },
                     66:                 {
                     67:                     contents => 'Included Hours',
                     68:                     amount   => 1.5 * 100,
                     69:                 },
                     70:             ],
                     71:         },
                     72:         {
                     73:             id => 65,
                     74:             title => '65: More work!',
                     75:             fees => [
                     76:                 {
                     77:                     contents => '2011-01-06: Define Project (751)',
                     78:                     count => 0.33,
                     79:                     rate => 75,
                     80:                 },
                     81:                 {
                     82:                     contents => '2011-01-11: Code it up! (823)',
                     83:                     count => 5,
                     84:                     rate => 100,
                     85:                 },
                     86:                 {
                     87:                     contents => '2011-01-12: REdefine Project (903)',
                     88:                     count => 0.25,
                     89:                     rate => 75,
                     90:                 },
                     91:                 {
                     92:                     contents => '2011-01-13: Change everything: 933',
                     93:                     count => 3,
                     94:                     rate => 125,
                     95:                 },
                     96:             ],
                     97:             discounts => [
                     98:                 {
                     99:                     contents => 'Included Hours',
                    100:                     amount   => (.33 * 75) + ( 3.33 * 100 ),
                    101:                 },
                    102:                 {
                    103:                     contents => 'Included Hours',
                    104:                     amount   => (.25 * 75 ) + (2.25 * 100),
                    105:                 },
                    106:             ],
                    107:         },
                    108:         {
                    109:             id => 85,
                    110:             title => '85: Replace stuff',
                    111:             fees => [
                    112:                 {
                    113:                     contents => '2011-01-13: Go unplug, replace, replug (834)',
                    114:                     count => 2,
                    115:                     rate => 125,
                    116:                 },
                    117:             ],
                    118:             expenses => [
                    119:                 {
                    120:                     contents => '2x unbroken thingys',
                    121:                     amount  => 25,
                    122:                 }
                    123:             ],
                    124:         },
                    125:         {
                    126:             id => 90,
                    127:             title => '90: Make a two page invoice',
                    128:             fees => [
                    129:                 {
                    130:                     contents => '2011-01-13: Add some stuff (834)',
                    131:                     count => 2,
                    132:                     rate => 125,
                    133:                 },
                    134:             ],
                    135:         },
                    136:     ],
                    137: );
                    138:
                    139: my $tt = Template->new;
                    140:
                    141: $tt->process( 'invoice.tex.tt', \%invoice, 'invoice.pdf' ) || die $tt->error . "\n";