Annotation of RT/Invoicing/agreements.pl, Revision 1.1
1.1 ! afresh1 1: #!/usr/bin/perl
! 2: # $AFresh1: test.pl,v 1.4 2011/03/22 04:53:59 andrew Exp $
! 3: use strict;
! 4: use warnings;
! 5:
! 6: use Template;
! 7:
! 8: my %cust = (
! 9: logo => '/home/andrew/.rt_invoicing/afresh_logo.pdf',
! 10: from => join("\n\n",
! 11: 'A.Fresh Special Projects, LLC',
! 12: '2840 Widgeon Ln',
! 13: 'Lake Havasu City, AZ 86403',
! 14: ),
! 15: info => [
! 16: 'Visit me online at http://afresh1.com',
! 17: 'Create a new ticket rt@afresh1.com',
! 18: ],
! 19:
! 20: organization => 'ABC Corp',
! 21: to => join("\n\n",
! 22: 'ABC Corp',
! 23: '123 W Main St',
! 24: 'Anytown, USA 00000'),
! 25:
! 26: start_date => 'August 15, 2011',
! 27: per => 'week',
! 28: term => 30,
! 29: base_rate => 300,
! 30: hours_total => 2,
! 31: hours_priority => 2,
! 32: rate_default => 75,
! 33: rate_priority => 125,
! 34: );
! 35:
! 36: $cust{content} = <<'EOL';
! 37: Based on past months invoices I am going to recommend a monthly cycle at the
! 38: $100/month rate. The server seems to be generally free of emergency
! 39: situations that would require priority support and the one hour should cover
! 40: normal monthly server maintenance and upgrades with any additional hours being
! 41: billed at the discounted rate.
! 42: EOL
! 43:
! 44: $cust{content} = <<'EOL';
! 45: Based on the size of your network I am going to recommend a weekly cycle with 4 hours included per week.
! 46: This should cover most weeks and will allow enough time to keep the system under control.
! 47: EOL
! 48:
! 49: my $tt = Template->new;
! 50:
! 51: foreach my $f ('agreement_proposal', 'agreement') {
! 52: $tt->process( $f . '.tex.tt', \%cust, $f . '.pdf' ) || die $tt->error . '\n';
! 53: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>