===================================================================
RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v
retrieving revision 1.10
retrieving revision 1.13
diff -u -r1.10 -r1.13
--- RT/Invoicing/rt_invoices.pl	2011/03/22 01:15:27	1.10
+++ RT/Invoicing/rt_invoices.pl	2011/03/22 02:16:53	1.13
@@ -1,4 +1,20 @@
 #!/usr/bin/perl
+# $AFresh1$
+########################################################################
+# Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
+#
+# Permission to use, copy, modify, and distribute this software for any
+# purpose with or without fee is hereby granted, provided that the above
+# copyright notice and this permission notice appear in all copies.
+#
+# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+# ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+# ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+# OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+########################################################################
 use strict;
 use warnings;
 
@@ -21,7 +37,6 @@
     timeout => $rt_conf->{timeout},
 );
 my $tickets = RT::Client::REST::Ticket->new( rt => $rt );
-my $users = RT::Client::REST::User->new( rt => $rt );
 
 $rt->login( username => $rt_conf->{user}, password => $rt_conf->{pass} );
 
@@ -32,7 +47,7 @@
 my $customers = $config->get('customers');
 CUSTOMER: while ( my ( $custid, $cust ) = each %{$customers} ) {
 
-    my %invoice = ( end => DateTime->now, );
+    my $invoice = make_invoice();
 
     if ( $cust->{base_rate} ) {
         my $day  = $cust->{day}       || 1;
@@ -46,8 +61,7 @@
             default { die "Unknown per [$cust->{per}]\n" }
         }
 
-        my $billends
-            = DateTime->now->set( hour => 0, minute => 0, second => 0 );
+        my $billends = $invoice->{end}->clone;
         $billends->subtract( days => 1 ) while $billends->$day_method != $day;
 
         my $date = $billends->clone->subtract( $per => $freq );
@@ -82,15 +96,15 @@
             next if $end < $start;
 
             $startdate = $start->clone if !$startdate || $startdate > $start;
-            $invoice{start} ||= $start->clone;
-            $invoice{end} = $end->clone;
+            $invoice->{start} ||= $start->clone;
+            $invoice->{end} = $end->clone;
             my %hours = (
                 start => $start->clone,
                 end   => $end->clone,
                 hours => { %{ $cust->{hours} } },
             );
 
-            push @{ $invoice{hours} }, \%hours;
+            push @{ $invoice->{hours} }, \%hours;
             push @{ $project{fees} },
                 {
                 count    => 1,
@@ -101,12 +115,12 @@
         }
 
         if ( @{ $project{fees} } ) {
-            push @{ $invoice{projects} }, \%project;
+            push @{ $invoice->{projects} }, \%project;
         }
     }
 
-    $cust->{from} ||= get_user($custid);
-    $cust->{invoice} = \%invoice;
+    $cust->{address} ||= get_user($custid);
+    $cust->{invoice} = $invoice;
 }
 
 my @limits = map +{
@@ -144,6 +158,7 @@
         next;
     }
     if ( !$cust->{invoice} ) {
+
         #say "Customer has no open invoices for ticket " . $ticket->id;
         next;
     }
@@ -188,7 +203,7 @@
     my $invoice = $cust->{invoice};
     next unless $invoice->{projects} && @{ $invoice->{projects} };
 
-    my %li = ( custid => $custid, );
+    my %li = ( custid => $custid, invdate => DateTime->now->ymd, );
 
     foreach my $project ( @{ $invoice->{projects} } ) {
         if ( $project->{transactions} ) {
@@ -227,8 +242,8 @@
 
     # XXX Here we need to "make_address"
     $invoice->{info} = $config->get('info');
-    $invoice->{from} = $config->get('from');
-    $invoice->{to}   = $cust->{address};
+    $invoice->{from} = make_address( $config->get('from') );
+    $invoice->{to}   = make_address( $cust->{address} );
 
     $state->{lastinvoice}++;
     $invoice->{id}   = $state->{lastinvoice};
@@ -240,7 +255,7 @@
         if    ( $invoice->{$k} ) { $v = $invoice->{$k} }
         elsif ( $cust->{$k} )    { $v = $cust->{$k} }
 
-        if (defined $v && length $v) {
+        if ( defined $v && length $v ) {
             if ( ref $v eq 'DateTime' ) {
                 $li{$k} = $v->ymd;
             }
@@ -309,18 +324,23 @@
     return unless $custid;
 
     my $cust = $config->get('default') || {};
-    $cust->{to} = get_user($custid);
+    $cust->{address} = get_user($custid);
 
-    my %invoice = ( end => DateTime->now );
+    $cust->{match} = [{
+            type => 'requestors',
+            regex => $custid,
+    }];
 
+    my $invoice = make_invoice();
+
     my $lastinvoice = $state->last_invoice($custid);
     if ( $lastinvoice->{date} ) {
         my $last_invoice_date = ymd_to_DateTime( $lastinvoice->{date} );
-        $invoice{start} = $last_invoice_date->clone->add( days => 1 );
+            $invoice->{start} = $last_invoice_date->clone->add( days => 1 );
     }
 
-    if ( !( $invoice{start} && $invoice{start} < $invoice{end} ) ) {
-        $cust->{invoice} = \%invoice;
+    if ( !( $invoice->{start} && $invoice->{start} < $invoice->{end} ) ) {
+        $cust->{invoice} = $invoice;
     }
 
     $customers->{$custid} = $cust;
@@ -341,7 +361,7 @@
         name          => 'username',
     );
 
-    $users->id($id);
+    my $users = RT::Client::REST::User->new( rt => $rt, id => $id );
     $users->retrieve;
 
     my %user;
@@ -358,6 +378,44 @@
 
     $users{$id} = \%user;
     return \%user;
+}
+
+sub make_invoice {
+
+    my $billends
+            = DateTime->now->set( hour => 0, minute => 0, second => 0 );
+    my %invoice = ( end => $billends->clone->subtract( days => 1, seconds => 1 ) );
+
+    return \%invoice;
+}
+
+sub make_address {
+    my ($addr) = @_;
+    my @adr;
+
+    if ( $addr->{organization} ) {
+        push @adr, $addr->{organization};
+    }
+    elsif ( $addr->{name} && !$addr->{attn} ) {
+        push @adr, $addr->{name};
+    }
+
+    if (   ( $addr->{addr1} || $addr->{addr2} )
+        && $addr->{city}
+        && $addr->{state}
+        && $addr->{zip} )
+    {
+        push @adr, $addr->{attn}  if $addr->{attn};
+        push @adr, $addr->{addr1} if $addr->{addr1};
+        push @adr, $addr->{addr2} if $addr->{addr2};
+        push @adr,
+            $addr->{city} . ', ' . $addr->{state} . '  ' . $addr->{zip};
+    }
+    else {
+        push @adr, $addr->{email} if $addr->{email};
+    }
+
+    return join "\n\n", @adr;
 }
 
 sub make_project {