===================================================================
RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v
retrieving revision 1.4
retrieving revision 1.45
diff -u -r1.4 -r1.45
--- RT/Invoicing/rt_invoices.pl	2011/03/21 05:01:33	1.4
+++ RT/Invoicing/rt_invoices.pl	2011/12/31 02:14:32	1.45
@@ -1,132 +1,56 @@
 #!/usr/bin/perl
+# $AFresh1: rt_invoices.pl,v 1.44 2011/12/30 05:01:41 andrew Exp $
+########################################################################
+# 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;
 
 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;
 
+use lib './lib';    # XXX This is fragile, there are better ways
+use RTI::Config;
+use RTI::State;
+use RTI::Util qw/ round ymd_to_DateTime /;
+
 my $config = RTI::Config->new();
+my $state  = RTI::State->new( $config->get('state') );
 
-#print Dump $config; exit;
-
-my $invoiceid = 1;    # $state->{lastinvoice} + 1;
-
-my $startdate;
-my @invoices;
-foreach my $cust ( @{ $config->get('customers') } ) {
-
-    # my $state = RTI::State->new($cust);
-    # $invoice{state} = $state;
-    my $lastinvdate;  # = $state->{lastinvoicedte}; XXX Needs to be a DateTime
-                      #$lastinvdate = DateTime->now->subtract( months => 2 )
-                      #    ->set( hour => 0, minute => 0, second => 0 );
-
-    my %invoice = (
-        from  => $config->get('from'),
-        info  => $config->get('info'),
-        to    => $cust->{address},
-        rates => $cust->{rates},
-        match => $cust->{match},
-    );
-
-    if ( $cust->{base_rate} ) {
-        my $day  = $cust->{day}       || 1;
-        my $freq = $cust->{frequency} || 1;
-
-        my $day_method;
-        my $per;
-        given ( $cust->{per} ) {
-            when ('week')  { $per = 'weeks';  $day_method = 'dow' }
-            when ('month') { $per = 'months'; $day_method = 'day' }
-            default { die "Unknown per [$cust->{per}]\n" }
-        }
-
-        my $lastbill
-            = DateTime->now->set( hour => 0, minute => 0, second => 0 );
-        while ( $lastbill->$day_method != $day ) {
-            $lastbill->subtract( days => 1 );
-        }
-
-        my $date
-            = $lastinvdate
-            ? $lastinvdate->clone->add( days => 1 )
-            : $lastbill->clone->subtract( $per => $freq );
-
-        my $title
-            = $freq == 1
-            ? ucfirst( $cust->{per} . 'ly' )
-            : $freq . ' ' . ucfirst( $cust->{per} );
-        $title .= ' Retainer';
-
-        my %project = ( title => $title, fees => [], );
-
-        while ( $date < $lastbill ) {
-            my $start = $date->clone;
-
-            $date->add( $per => $freq );
-            $date = $lastbill->clone if $date > $lastbill;
-            if ( my $diff = $date->$day_method - $day ) {
-                $date->subtract( days => $diff );
-            }
-
-            my $end = $date->clone;
-
-            $end->subtract( seconds => 1 );
-
-            $startdate = $start->clone if !$startdate || $startdate > $start;
-            $invoice{start} ||= $start->clone;
-            $invoice{end} = $end->clone;
-            my %hours = (
-                start => $start->clone,
-                end   => $end->clone,
-                hours => { %{ $cust->{hours} } },
-            );
-
-            push @{ $invoice{hours} }, \%hours;
-            push @{ $project{fees} },
-                {
-                count    => 1,
-                rate     => $cust->{base_rate},
-                contents => $start->ymd . ' to ' . $end->ymd,
-                };
-
-        }
-
-        if ( @{ $project{fees} } ) {
-            push @{ $invoice{projects} }, \%project;
-        }
-    }
-    else {
-        $invoice{end} = DateTime->now;
-        push @{ $invoice{hours} },
-            { end => DateTime->now, hours => $cust->{hours} };
-    }
-
-    next unless $invoice{end};
-    push @invoices, \%invoice;
-}
-
-#print Dump \@invoices; exit;
-
 my $rt_conf = $config->get('rt');
 my $rt      = RT::Client::REST->new(
     server  => $rt_conf->{server},
     timeout => $rt_conf->{timeout},
 );
-$rt->login(
-    username => $rt_conf->{user},
-    password => $rt_conf->{pass},
-);
 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} );
+
+#use YAML;
+#print Dump $config, $state; exit;
+
+my $customers = $config->get('customers');
+my $startdate = set_dates($customers);
+
 my @limits = map +{
     attribute  => 'status',
     operator   => '=',
@@ -137,14 +61,12 @@
     # XXX This should be a config option
     qw/ open stalled resolved /;
 
-if ($startdate) {
-    push @limits,
-        {
-        attribute => 'last_updated',
-        operator  => '>=',
-        value     => $startdate->ymd,
-        };
-}
+push @limits,
+    {
+    attribute => 'last_updated',
+    operator  => '>=',
+    value     => $startdate->ymd,
+    };
 
 my $results = $tickets->search(
     limits  => \@limits,
@@ -156,104 +78,123 @@
 
 my $iterator = $results->get_iterator;
 while ( my $ticket = &$iterator ) {
-    my $invoice = find_invoice_for_ticket( \@invoices, $ticket );
-
-    if ( !$invoice ) {
-        say "No invoice found for ticket " . $ticket->id;
-
-        # XXX should construct a "new" invoice to pop onto the list
+    my $cust = find_customer_for_ticket( $ticket, $customers );
+    if ( !$cust ) {
+        warn "No customer found for ticket " . $ticket->id;
         next;
     }
 
-    my %project = (
-        id     => $ticket->id,
-        queue  => $ticket->queue,
-        owner  => $ticket->owner,
-        title  => $ticket->subject,
-        detail => 'Ticket: '
-            . $ticket->id
-            . ' Queue: '
-            . $ticket->queue
-            . ' Requestors: '
-            . join( ', ', $ticket->requestors ),
-        fees     => [],
-        expenses => [],
-    );
+    next if $cust->{no_invoice};
+    $cust->{invoice} ||= make_invoice($cust);
 
-    #foreach my $r ($ticket->requestors) {
-    #    $users->id( $r );
-    #    $users->retrieve;
-    #    print Dump $users;
-    #}
+    die "$cust->{id} has no open invoices [" . $ticket->id . ']'
+        unless $cust->{invoice};
 
-    my $txns = $ticket->transactions( type => [qw(Comment Correspond)] );
-    my $txn_i = $txns->get_iterator;
-    while ( my $txn = $txn_i->() ) {
-        next unless $txn->time_taken;
+    say 'Ticket ' . $ticket->id . " belongs to $cust->{id}";
 
-        my ( $date, $time ) = split ' ', $txn->created;
-        my ( $year, $month,  $day )    = split '-', $date;
-        my ( $hour, $minute, $second ) = split ':', $time;
+    my $project = make_project( $ticket, $cust );
+    next unless @{ $project->{fees} } || @{ $project->{expenses} };
 
-        my $txn_date = DateTime->new(
-            year   => $year,
-            month  => $month,
-            day    => $day,
-            hour   => $hour,
-            minute => $minute,
-            second => $second,
-        );
+    foreach my $fee ( @{ $project->{fees} } ) {
+        my $hours = hours_for_date( $cust->{invoice}, $fee->{date} );
 
-        next if $invoice->{start} && $invoice->{start} > $txn_date;
-        next if $invoice->{end} < $txn_date;
+        my $type  = 'unknown';
+        my $count = $fee->{count};
+        while ( $type && $count > 0 && $type ne 'default' ) {
+            $type = exists $hours->{ $fee->{type} }
+                && $hours->{ $fee->{type} } > 0 ? $fee->{type} : 'default';
 
-        my $fee = make_fee( $ticket, $txn, $invoice->{rates} );
-        push @{ $project{fees} }, $fee;
+            next unless exists $hours->{$type} && $hours->{$type} > 0;
 
-        my $hours = hours_for_date( $invoice, $txn_date );
+            my $discount_time = 0;
+            if ( $hours->{$type} > $count ) {
+                $hours->{$type} -= $count;
+                $discount_time = $count;
+            }
+            else {
+                $discount_time = $hours->{$type};
+                $hours->{$type} = 0;
+            }
 
-        my $h_type
-            = exists $hours->{ $fee->{type} }
-            ? $fee->{type}
-            : 'default';
+            if ($discount_time) {
+                $cust->{invoice}->{discount}->{amount}
+                    += round( $discount_time * $fee->{rate} );
+                $cust->{invoice}->{discount}->{hours}{$type}
+                    += $discount_time;
 
-        next unless exists $hours->{$h_type} && $hours->{$h_type} > 0;
+                $type = '' if $type eq 'default';
+                $count -= $discount_time;
+                $fee->{detail} .= " $discount_time $type Hours Discounted";
+            }
+        }
+    }
 
-        my $discount_time = 0;
-        if ( $hours->{$h_type} > $fee->{count} ) {
-            $hours->{$h_type} -= $fee->{count};
-            $discount_time = $fee->{count};
+    push @{ $cust->{invoice}->{projects} }, $project;
+}
+
+
+if ( my $unpaid_invoices = $state->unpaid_invoices() ) {
+    foreach my $custid ( keys %{$unpaid_invoices} ) {
+        my %project = ( title => 'Unpaid Invoices', fees => [], );
+        my $past_due = 0;
+
+        my $cust;
+        foreach ( @{$customers} ) {
+            if ( $_->{id} eq $custid ) {
+                $cust = $_;
+                last;
+            }
         }
-        else {
-            $discount_time = $hours->{$h_type};
-            $hours->{$h_type} = 0;
-        }
+        $cust ||= fake_customer($custid);
 
-        if ($discount_time) {
-            $invoice->{discount}{amount} += $discount_time * $fee->{rate};
-            $invoice->{discount}{hours}{$h_type} += $discount_time;
+        foreach my $id ( sort { $a <=> $b }
+            keys %{ $unpaid_invoices->{$custid} } )
+        {
+            my $unpaid  = $state->get_invoice($id);
+            my $invdate = ymd_to_DateTime( $unpaid->{invdate} );
 
-            $h_type = '' if $h_type eq 'default';
-            $fee->{detail} = "$discount_time $h_type Hours Discounted";
+            next
+                if $cust->{duedate}
+                    && DateTime->compare( $invdate, $cust->{duedate} ) > 0;
+
+            $past_due += $unpaid_invoices->{$custid}->{$id};
+            push @{ $project{fees} },
+                {
+                id => $id,
+                contents =>
+                    sprintf( "Invoice %06d from %s", $id, $invdate->ymd ),
+                count => 1,
+                rate  => $unpaid_invoices->{$custid}->{$id},
+                };
         }
 
-        #print Dump $txn; exit;
-    }
+        if ($past_due) {
+            $cust->{invoice} ||= make_invoice();
 
-    next unless @{ $project{fees} } || @{ $project{expenses} };
-    print " Added ticket $project{id}\n";
-    push @{ $invoice->{projects} }, \%project;
+            $cust->{invoice}->{past_due} = $past_due;
+            $cust->{invoice}->{total_due}
+                = $cust->{invoice}->{total} + $past_due;
+
+            unshift @{ $cust->{invoice}->{projects} }, \%project;
+        }
+    }
 }
 
-foreach my $invoice (@invoices) {
-    next unless $invoice->{projects} && @{ $invoice->{projects} };
+foreach my $cust ( @{$customers} ) {
+    my $invoice = $cust->{invoice};
+    next unless $invoice && $invoice->{projects} && @{ $invoice->{projects} };
 
+    $invoice->{custid}       = $cust->{id};
+    $invoice->{transactions} = [];
+
+    my %transactions;
     foreach my $project ( @{ $invoice->{projects} } ) {
-        print "$project->{title}\n";
+        if ( $project->{transactions} ) {
+            %transactions = ( %transactions, %{ $project->{transactions} } );
+        }
         my $subtotal = 0;
         foreach my $fee ( @{ $project->{fees} } ) {
             my $amount = round( $fee->{count} * $fee->{rate} );
-            print "  $amount (" . ( $fee->{count} * $fee->{rate} ) . ")\n";
             $subtotal += $amount;
         }
         foreach my $expense ( @{ $project->{expenses} } ) {
@@ -261,14 +202,15 @@
         }
         $project->{total} = $subtotal;
         $invoice->{total} += $subtotal;
-        print " Subtotal $subtotal\n";
     }
+    @{ $invoice->{transactions} } = sort { $a <=> $b } keys %transactions;
 
     if ( $invoice->{discount} ) {
         my $c = "Included Hours\n";
         if ( $invoice->{discount}{hours} ) {
             foreach my $t ( keys %{ $invoice->{discount}{hours} } ) {
-                $c .= "\n$invoice->{discount}{hours}{$t} $t hour";
+                my $type = $t eq 'default' ? '' : $t;
+                $c .= "\n$invoice->{discount}{hours}{$t} $type hour";
                 $c .= 's' if $invoice->{discount}{hours}{$t} != 1;
                 $c .= "\n";
             }
@@ -277,81 +219,296 @@
         $invoice->{total} -= round( $invoice->{discount}{amount} );
     }
 
-    if ( $invoice->{past_due} ) {
-        $invoice->{total_due} = $invoice->{total} + $invoice->{past_due};
-    }
+    next unless $invoice->{total} > 0 || $invoice->{total_due};
 
-    foreach my $key (qw/ start end /) {
-        if ( exists $invoice->{$key} ) {
-            $invoice->{$key} = $invoice->{$key}->strftime('%B %d, %Y');
+    $invoice->{info} = $config->get('info');
+    my $from = $config->get('from');
+    $from = get_user($from) if !ref $from;
+
+    $invoice->{id} = $state->next_invoice_id;
+    $invoice->{file} = sprintf 'invoice_%06d.pdf', $invoice->{id};
+
+    $invoice->{organization} = $from->{organization} || $from->{name};
+    $invoice->{from} = make_address($from);
+    $invoice->{to}   = make_address( $cust->{address} || $cust->{id} );
+    $invoice->{logo} = $config->get('logo');
+
+    $state->add_invoice($invoice);
+
+    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}, $cust->{id},
+        $invoice->{total};
+
+}
+
+$state->save;
+
+sub find_customer_for_ticket {
+    my ( $ticket, $customers ) = @_;
+
+    foreach my $cust ( @{$customers} ) {
+        next unless $cust->{match};
+        foreach my $m ( @{ $cust->{match} } ) {
+            my $type = $m->{type};
+            my $match
+                = exists $m->{$type}
+                ? lc( $m->{$type} )
+                : qr/\Q$m->{regex}\E/;
+            my $thing = [ map {lc} $ticket->$type ];
+
+            if ( !$match ) {
+                warn "Invalid match!";
+                next;
+            }
+            return $cust if ( $match ~~ $thing );
         }
     }
 
-    $invoice->{id}   = $invoiceid;
-    $invoice->{file} = 'invoice_' . $invoiceid . '.pdf';
+    return fake_customer($ticket->requestors);
+}
 
-    print "Created Invoice\n";
-    print Dump $invoice;
+sub fake_customer {
+    my ($custid) = @_;
+    return unless $custid;
 
-    my $tt = Template->new;
-    $tt->process( 'invoice.tex.tt', $invoice, $invoice->{file} )
-        or die $tt->error . "\n";
+    my $cust = $config->new_customer;
+    push @{$customers}, $cust;
 
-    print "Generated $invoice->{file}\n";
+    $cust->{id} = $custid;
+    $cust->{match} = [
+        {   type  => 'requestors',
+            regex => $cust->{id},
+        }
+    ];
 
-    $invoiceid++;
+    set_cust_dates($cust);
+    return $cust;
 }
 
-# XXX Save State
+sub get_user {
+    my ($id) = @_;
 
-sub round {
-    my ($amount) = @_;
+    state %users;
+    return $users{$id} if $users{$id};
 
-    #$amount =~ s/\.\d\d\K.*$//;
-    #return $amount;
-    return sprintf "%.02f", $amount;
+    my %map = (
+        address_one   => 'addr1',
+        address_two   => 'addr2',
+        email_address => 'email',
+        real_name     => 'name',
+        name          => 'username',
+    );
+
+    my $users = RT::Client::REST::User->new( rt => $rt, id => $id );
+    $users->retrieve;
+
+    my %user;
+    foreach my $m ( keys %{ $users->_attributes } ) {
+        next unless $users->can($m);
+
+        my $v = $users->$m;
+        next unless $v;
+
+        $m = $map{$m} if exists $map{$m};
+
+        $user{$m} = $v;
+    }
+
+    $users{$id} = \%user;
+    return \%user;
 }
 
-sub find_invoice_for_ticket {
-    my ( $invoices, $ticket ) = @_;
+sub make_invoice {
+    my ($cust) = @_;
 
-INVOICE: foreach my $i ( @{$invoices} ) {
-        next INVOICE unless $i->{match};
-        foreach my $m ( @{ $i->{match} } ) {
-            my $type = $m->{type};
-            my $thing = join ' ', $ticket->$type;
+    my %invoice
+        = ( end => $cust->{billend}->clone->subtract( seconds => 1 ) );
+    $invoice{start} = $cust->{startinvoicedate}->clone
+        if $cust->{startinvoicedate};
 
-            if ( $m->{$type} ) {
-                my $match = lc $m->{$type};
-                next INVOICE unless lc($thing) ~~ $match;
+    if ( $cust->{base_rate} ) {
+        my ( $project, $hours ) = make_base_project($cust);
+
+        if ( @{ $project->{fees} } ) {
+            $invoice{end}   = $project->{end};
+            $invoice{hours} = $hours;
+            push @{ $invoice{projects} }, $project;
+        }
+    }
+    elsif ( $cust->{hours} ) {
+        $invoice{hours} = [
+            {   end   => $invoice{end}->clone,
+                hours => $cust->{hours},
             }
-            elsif ( $m->{regex} ) {
-                next INVOICE unless $thing ~~ /\Q$m->{regex}\E/;
-            }
-            else {
-                warn "Invalid match!";
-                next INVOICE;
-            }
+        ];
+    }
+
+    return \%invoice;
+}
+
+sub make_base_project {
+    my ($cust) = @_;
+
+    my $date    = $cust->{billstart}->clone;
+    my $billend = $cust->{billend}->clone;
+    my ($freq)  = get_billing_frequency($cust);
+
+    my $title
+        = $cust->{frequency} == 1
+        ? ucfirst( $cust->{per} . 'ly' )
+        : $freq . ' ' . ucfirst( $cust->{per} );
+    $title .= ' Retainer';
+
+    my %project = ( title => $title, start => $date->clone, fees => [], );
+    my @hours;
+
+    while ( $date < $billend ) {
+        my $start = $date->clone;
+
+        $date->add($freq);
+
+        my $end = $date > $billend ? $billend->clone : $date->clone;
+        $end->subtract( seconds => 1 );
+
+        $project{end} = $end->clone;
+
+        push @{ $project{fees} },
+            {
+            count    => 1,
+            rate     => $cust->{base_rate},
+            contents => $start->ymd . ' to ' . $end->ymd,
+            };
+
+        push @hours,
+            {
+            start => $start->clone,
+            end   => $end->clone,
+            hours => { %{ $cust->{hours} } },
+            };
+    }
+
+    return \%project, \@hours;
+}
+
+sub make_address {
+    my ($addr) = @_;
+    my @adr;
+
+    $addr = get_user($addr) unless ref $addr;
+
+    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 {
+    my ( $ticket, $cust ) = @_;
+
+    my %project = (
+        id     => $ticket->id,
+        queue  => $ticket->queue,
+        owner  => $ticket->owner,
+        title  => $ticket->subject,
+        detail => 'Ticket: '
+            . $ticket->id
+            . ' Status: '
+            . $ticket->status
+            . ' Requestors: '
+            . join( ', ', $ticket->requestors ),
+        fees     => [],
+        expenses => [],
+    );
+
+    my $txns = $ticket->transactions( type => [qw(Comment Correspond)] );
+    my $txn_i = $txns->get_iterator;
+    while ( my $txn = $txn_i->() ) {
+        next if $state->txn_is_invoiced( $txn->id );
+
+        if ( my $expense = make_expense( $txn, $ticket ) ) {
+            push @{ $project{expenses} }, $expense;
+            $project{transactions}{ $txn->id } = 1;
         }
-        return $i;
+
+        next unless $txn->time_taken;
+
+        my $fee = make_fee( $txn, $cust->{rates}, $ticket );
+
+        if ( !( $fee->{rate} && $fee->{count} ) ) {
+            warn "Invalid Fee, no rate or count";
+            next;
+        }
+
+        my $invoice = $cust->{invoice};
+        if ( $invoice->{start} && $invoice->{start} > $fee->{date} ) {
+            warn "Ticket "
+                . $ticket->id
+                . " has uninvoiced Transaction "
+                . $txn->id . "\n";
+            next;
+        }
+        next if $invoice->{end} < $fee->{date};
+
+        push @{ $project{fees} }, $fee;
+        $project{transactions}{ $txn->id } = 1;
     }
+
+    return \%project;
 }
 
 sub make_fee {
-    my ( $ticket, $txn, $rates ) = @_;
+    my ( $txn, $rates, $ticket ) = @_;
 
+    # XXX Only need $ticket for the alternate subject
+
     my $work_time = sprintf "%.03f", $txn->time_taken / 60;
     my $work_type = $txn->cf('WorkType');
-    my $work_rate = $rates->{$work_type} || $rates->{default} || 0;
 
+    if ( $work_type =~ s/\s*Onsite//i ) {
+
+        # XXX Do something special for onsite activities
+    }
+
+    $work_type =~ s/^\s+|\s+$//g;
+    $work_type ||= 'Normal';
+
     my %fee = (
         id       => $txn->id,
         contents => $txn->created . ' ('
             . $txn->id . ')' . "\n\n"
             . ( $txn->data || $ticket->subject ),
         count => $work_time,
-        rate  => $work_rate,
         type  => $work_type,
+        date  => ymd_to_DateTime( $txn->created ),
+        rate  => $rates->{$work_type} || $rates->{default} || 0,
     );
 
     if ( $work_type && $work_type ne 'Normal' ) {
@@ -361,6 +518,25 @@
     return \%fee;
 }
 
+sub make_expense {
+    my ( $txn, $ticket ) = @_;
+
+    my $amount = $txn->cf('ExpenseAmount') or return;
+
+    my %expense = (
+        id       => $txn->id,
+        contents => $txn->created . ' ('
+            . $txn->id . ')' . "\n\n"
+            . ( $txn->data || $ticket->subject ),
+        amount => $amount,
+        date   => ymd_to_DateTime( $txn->created ),
+
+        # detail => ???,
+    );
+
+    return \%expense;
+}
+
 sub hours_for_date {
     my ( $invoice, $date ) = @_;
 
@@ -377,81 +553,72 @@
     return $hours;
 }
 
-package RTI::Config;
-use strict;
-use warnings;
+sub get_billing_frequency {
+    my ($cust) = @_;
+    my $per  = $cust->{per}       || 'week';
+    my $freq = $cust->{frequency} || 1;
 
-use 5.010;
+    my $day_method;
+    given ($per) {
+        when ('week')  { $per = 'weeks';  $day_method = 'dow' }
+        when ('month') { $per = 'months'; $day_method = 'day' }
+        default { die "Unknown per [$per]\n" }
+    }
 
-use YAML::Any qw/ LoadFile /;
-
-sub new {
-    my ( $class, $args ) = @_;
-
-    my $self = { file => '', };
-    bless $self, $class;
-    my $file = $args->{file} || $self->_find_config;
-    $self->read_config($file);
-
-    return $self;
+    return DateTime::Duration->new( $per => $freq ), $day_method;
 }
 
-sub _find_config {
-    my ($self) = @_;
+sub set_dates {
+    my ($customers) = @_;
 
-    # XXX This needs to be better
-    foreach my $file (qw/ rt_invoice.conf rt_invoice.cfg .rt_invoicerc /) {
-        foreach my $dir ( '.', $ENV{HOME} . '/.rt_invoice', $ENV{HOME} ) {
-            my $path = join '/', $dir, $file;
-            return $path if -e $path;
-        }
-    }
-    return;
-}
+    my $newest_invoice;
+    my $max_duration;
 
-sub read_config {
-    my ( $self, $file ) = @_;
+    foreach my $cust ( @{$customers} ) {
+        set_cust_dates($cust);
 
-    $file ||= $self->{file};
-    die "$file: no such file\n" unless -e $file;
+        my ($freq) = get_billing_frequency($cust);
+        $max_duration = $freq
+            if !$max_duration
+                || DateTime::Duration->compare( $freq, $max_duration ) > 0;
 
-    my $c = LoadFile($file) or die "Unable to load $file\n";
-
-    $c->{customers} ||= [];
-    if ( $c->{default} ) {
-        foreach my $cust ( @{ $c->{customers} } ) {
-            foreach my $k ( keys %{ $c->{default} } ) {
-                $cust->{$k} //= $c->{default}->{$k};
-            }
+        if ( $cust->{startinvoicedate} ) {
+            my $date = $cust->{startinvoicedate}->clone;
+            $newest_invoice = $date->clone
+                if !$newest_invoice || $newest_invoice < $date;
         }
     }
 
-    $self->{_config} = $c;
-    $self->{file}    = $file;
+    return $newest_invoice->clone->subtract($max_duration)
+        ->subtract( days => 1 );
 }
 
-sub get {
-    my ( $self, $key ) = @_;
+sub set_cust_dates {
+    my ($cust) = @_;
 
-    # XXX This should deep copy? not a reference would be good
-    return $self->{_config}->{$key};
-}
+    my $day = $cust->{day} || 0;
+    my ( $freq, $day_method ) = get_billing_frequency($cust);
 
-package RTI::State;
-use strict;
-use warnings;
+    my $end = DateTime->now( time_zone => 'local' )
+        ->set( hour => 0, minute => 0, second => 0 );
 
-use 5.010;
+    my $start = $end->clone->subtract($freq);
 
-use YAML::Any qw/ LoadFile DumpFile /;
+    # XXX This is helpful, but monthly and billday > 28 == !!!
+    $end->subtract( days => 1 ) while $day && $end->$day_method != $day;
 
-sub new {
-    my ( $class, $args ) = @_;
+    my $lastinvoice = $state->last_invoice( $cust->{id} );
+    if ( $lastinvoice && $lastinvoice->{end} ) {
+        $start = ymd_to_DateTime( $lastinvoice->{end} )->add( days => 1 );
+        $cust->{startinvoicedate} = $start->clone;
+    }
 
-    my $self = { file => '', };
-    bless $self, $class;
-    my $file = $args->{file} || $self->_find_config;
-    $self->read_config($file);
+    $cust->{duedate}
+        = $cust->{net}
+        ? DateTime->now->subtract( days => $cust->{net} )
+        : 0;
 
-    return $self;
+    $cust->{no_invoice} = 1 if $start->clone->add($freq) > $end;
+    $cust->{billend}    = $end;
+    $cust->{billstart}  = $start;
 }