===================================================================
RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v
retrieving revision 1.17
retrieving revision 1.21
diff -u -r1.17 -r1.21
--- RT/Invoicing/rt_invoices.pl	2011/03/22 05:06:05	1.17
+++ RT/Invoicing/rt_invoices.pl	2011/03/24 21:03:49	1.21
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $AFresh1$
+# $AFresh1: rt_invoices.pl,v 1.20 2011/03/23 23:05:47 andrew Exp $
 ########################################################################
 # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
 #
@@ -20,12 +20,12 @@
 
 use 5.010;
 
-use YAML::Any;
 use Template;
 use RT::Client::REST;
 use RT::Client::REST::Ticket;
 use RT::Client::REST::User;
 
+use File::Path;
 use DateTime;
 
 my $config = RTI::Config->new();
@@ -172,11 +172,15 @@
     next unless $invoice->{total} > 0 || $invoice->{total_due};
 
     $invoice->{info} = $config->get('info');
-    $invoice->{from} = make_address( $config->get('from') );
-    $invoice->{to}   = make_address( $cust->{address} || $custid );
+    my $from = $config->get('from');
+    $from = get_user($from) if !ref $from;
 
+    $invoice->{organization} = $from->{organization} || $from->{name};
+    $invoice->{from}         = make_address($from);
+    $invoice->{to}           = make_address( $cust->{address} || $custid );
+
     $state->{lastinvoice}++;
-    $invoice->{id}   = $state->{lastinvoice};
+    $invoice->{id} = $state->{lastinvoice};
     $invoice->{file} = sprintf 'invoice_%06d.pdf', $state->{lastinvoice};
 
     foreach my $k (qw/ file transactions start end total past_due total_due /)
@@ -201,8 +205,15 @@
             $invoice->{$key} = $invoice->{$key}->strftime('%B %d, %Y');
         }
     }
-    my $tt = Template->new;
-    $tt->process( 'invoice.tex.tt', $invoice, $invoice->{file} )
+
+    my $invoice_dir = $config->get('invoice_dir');
+    File::Path::make_path($invoice_dir);
+    my $file = join '/', $invoice_dir, $invoice->{file};
+
+    my $tt = Template->new( INCLUDE_PATH => $config->get('template_dir'), )
+        || die $Template::ERROR, "\n";
+
+    $tt->process( $config->get('invoice_template'), $invoice, $file )
         or die $tt->error . "\n";
 
     printf "Generated %s for %s: \$%.02f\n", $invoice->{file}, $custid,
@@ -304,7 +315,7 @@
 sub make_invoice {
     my ($cust) = @_;
 
-    my $day  = $cust->{day}       ||= 1;
+    my $day  = $cust->{day}       ||= 0;
     my $per  = $cust->{per}       ||= 'week';
     my $freq = $cust->{frequency} ||= 1;
 
@@ -318,7 +329,8 @@
     my $billends = DateTime->now->set( hour => 0, minute => 0, second => 0 );
 
     # XXX This is helpful, but monthly and billday > 28 == !!!
-    $billends->subtract( days => 1 ) while $billends->$day_method != $day;
+    $billends->subtract( days => 1 )
+        while $day && $billends->$day_method != $day;
 
     my $date = $billends->clone->subtract( $per => $freq );
 
@@ -394,7 +406,7 @@
         $date = $enddate->clone if $date > $enddate;
 
         # XXX This is helpful, but monthly and billday > 28 == !!!
-        $date->subtract( days => 1 ) while $date->$day_method != $day;
+        $date->subtract( days => 1 ) while $day && $date->$day_method != $day;
 
         my $end = $date->clone->subtract( seconds => 1 );
 
@@ -611,13 +623,25 @@
 sub get {
     my ( $self, $key ) = @_;
     my $value = Load( Dump( $self->{_config}->{$key} ) );
-    if ( !$value ) {
-        given ($key) {
-            when ('state') {
-                $value = dirname( $self->{file} ) . '/rt_invoice.state'
-            }
+
+    return $value if $value;
+
+    given ($key) {
+        when ('state') {
+            $value = $self->{file};
+            $value =~ s/(?:\.[^.]+)?$/\.state/;
         }
+        when ('invoice_dir') {
+            $value = dirname( $self->{file} ) . '/invoices';
+        }
+        when ('template_dir') {
+            $value = dirname( $self->{file} );
+        }
+        when ('invoice_template') {
+            $value = 'invoice.tex.tt';
+        }
     }
+
     return $value;
 }