Return to agreements.pl CVS log

Up to [local] / RT / Invoicing

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: }