=================================================================== RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v retrieving revision 1.2 retrieving revision 1.33 diff -u -r1.2 -r1.33 --- RT/Invoicing/rt_invoices.pl 2011/03/21 01:05:38 1.2 +++ RT/Invoicing/rt_invoices.pl 2011/05/07 03:27:34 1.33 @@ -1,122 +1,52 @@ #!/usr/bin/perl +# $AFresh1: rt_invoices.pl,v 1.32 2011/05/07 01:09:43 andrew Exp $ +######################################################################## +# Copyright (c) 2011 Andrew Fresh +# +# 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; -my %included_hours; - my $config = RTI::Config->new(); +my $state = RTI::State->new( $config->get('state') ); -#print Dump $config; exit; - -# 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 ); -my $invoiceid = 1; # $state->{lastinvoice} + 1; - -my $startdate; -my @invoices; -foreach my $cust ( @{ $config->get('customers') } ) { - my %invoice = ( - from => $config->get('from'), - to => $cust->{address}, - rates => $cust->{rates}, - match => $cust->{match}, - ); - - if ( $cust->{base_rate} ) { - my $date = DateTime->now; - my $day = $cust->{day} || 1; - my $freq = $cust->{frequency} || 1; - - my $diff; - my $per; - given ( $cust->{per} ) { - when ('week') { $per = 'weeks'; $diff = $date->dow - $day; } - when ('month') { $per = 'months'; $diff = $date->day - $day; } - default { die "Unknown per [$cust->{per}]\n" } - } - - # $day is start day, end should be one day further back - $diff = abs($diff) + 1; - $date->subtract( days => $diff ); - - my $title - = $freq == 1 - ? ucfirst( $cust->{per} . 'ly' ) - : $freq . ' ' . ucfirst( $cust->{per} ); - $title .= ' Retainer'; - - my %project = ( title => $title, fees => [], ); - - # XXX need to add them until we get to where we billed already - # if we don't know the last invoice date, assume the day before - $lastinvdate ||= $date->clone->subtract( days => 1 ); - while ( $date > $lastinvdate ) { - $invoice{enddate} = $date->clone; - my %hours = ( - end => $date->clone, - hours => { %{ $cust->{hours} } }, - ); - - my $contents = ' to ' . $date->ymd; - $date->subtract( $per => $freq )->add( days => 1 ); - $contents = $date->ymd . $contents; - - $invoice{startdate} ||= $date->clone; - $hours{start} = $date->clone; - $startdate = $date->clone; - - unshift @{ $invoice{hours} }, \%hours; - unshift @{ $project{fees} }, - { - count => 1, - rate => $cust->{base_rate}, - contents => $contents, - }; - - # Next time, one day less - $date->subtract( days => 1 ); - } - - if (@{ $project{fees} }) { - push @{ $invoice{projects} }, \%project; - } - } - else { - $invoice{enddate} = DateTime->now->ymd; - push @{ $invoice{hours} }, - { end => DateTime->now, hours => $cust->{hours} }; - } - - 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 $startdate; + +my $customers = $config->get('customers'); + my @limits = map +{ attribute => 'status', operator => '=', @@ -127,12 +57,6 @@ # XXX This should be a config option qw/ open stalled resolved /; -#push @limits, -# { -# attribute => 'resolved', -# operator => '>=', -# value => '2011-03-01' -# }; if ($startdate) { push @limits, { @@ -142,136 +66,82 @@ }; } -#push @limits, { attribute => 'id', operator => '=', value => '51' }; -#push @limits, { attribute => '', operator => '', value => '' }; - my $results = $tickets->search( limits => \@limits, orderby => 'id', ); -#print Dump $ticket, $results; - my $count = $results->count; print "There are $count results that matched your query\n"; my $iterator = $results->get_iterator; while ( my $ticket = &$iterator ) { - my %project = ( - id => $ticket->id, - queue => $ticket->queue, - owner => $ticket->owner, - title => $ticket->id . ': ' . $ticket->subject, - detail => 'Requestors: ' - . join( ', ', $ticket->requestors ) - . ' Queue: ' - . $ticket->queue, - fees => [], - expenses => [], - ); - - my $invoice; -INVOICE: foreach my $i (@invoices) { - next INVOICE unless $i->{match}; - foreach my $m ( @{ $i->{match} } ) { - my $type = $m->{type}; - my $thing = join ' ', $ticket->$type; - - if ( $m->{$type} ) { - my $match = lc $m->{$type}; - next INVOICE unless lc($thing) ~~ $match; - } - elsif ( $m->{regex} ) { - next INVOICE unless $thing ~~ /\Q$m->{regex}\E/; - } - else { - warn "Invalid match!"; - next INVOICE; - } - } - $invoice = $i; + my $cust = find_customer_for_ticket($ticket); + if ( !$cust ) { + warn "No customer found for ticket " . $ticket->id; + next; } - if ( !$invoice ) { - say "No invoice found for ticket " . $ticket->id; + say 'Ticket ' . $ticket->id . " belongs to $cust->{id}"; - # XXX should construct a "new" invoice to pop onto the list + $cust->{invoice} ||= make_invoice($cust); + if ( !$cust->{invoice}->{end} ) { + say " $cust->{id} has no open invoices [" . $ticket->id . ']'; next; } - #foreach my $r ($ticket->requestors) { - # $users->id( $r ); - # $users->retrieve; - # print Dump $users; - #} + my $project = make_project( $ticket, $cust ); + next unless @{ $project->{fees} } || @{ $project->{expenses} }; - my $txns = $ticket->transactions( type => [qw(Comment Correspond)] ); - my $txn_i = $txns->get_iterator; - while ( my $txn = $txn_i->() ) { - next unless $txn->time_taken; + foreach my $fee ( @{ $project->{fees} } ) { + my $hours = hours_for_date( $cust->{invoice}, $fee->{date} ); - my $work_time = sprintf "%.03f", $txn->time_taken / 60; - my $work_type = $txn->cf('WorkType'); - my $work_rate - = $invoice->{rates}{$work_type} - || $invoice->{rates}{default} - || 0; + my $type = exists $hours->{ $fee->{type} } + && $hours->{ $fee->{type} } > 0 ? $fee->{type} : 'default'; - my $ih_type - = exists $included_hours{$work_type} - ? $work_type - : 'default'; + next unless exists $hours->{$type} && $hours->{$type} > 0; - my %fee = ( - id => $txn->id, - contents => $txn->created . ' (' - . $txn->id . ')' . "\n\n" - . ( $txn->data || $ticket->subject ), - count => $work_time, - rate => $work_rate, - ); - if ( $work_type && $work_type ne 'Normal' ) { - $fee{detail} = $work_type . ' rate'; - } - - push @{ $project{fees} }, \%fee; - - next - unless $included_hours{$ih_type} && $included_hours{$ih_type} > 0; - my $discount_time = 0; - if ( $included_hours{$ih_type} > $work_time ) { - $included_hours{$ih_type} -= $work_time; - $discount_time = $work_time; + if ( $hours->{$type} > $fee->{count} ) { + $hours->{$type} -= $fee->{count}; + $discount_time = $fee->{count}; } else { - $discount_time = $included_hours{$ih_type}; - $included_hours{$ih_type} = 0; + $discount_time = $hours->{$type}; + $hours->{$type} = 0; } if ($discount_time) { - $fee{detail} = "$discount_time $work_type Hours Discounted"; - $invoice->{discount}{amount} += $discount_time * $fee{rate}; - $invoice->{discount}{hours}{$work_type} += $discount_time; - } + $cust->{invoice}->{discount}->{amount} + += round( $discount_time * $fee->{rate} ); + $cust->{invoice}->{discount}->{hours}{$type} += $discount_time; - #print Dump $txn; exit; + $type = '' if $type eq 'default'; + $fee->{detail} = "$discount_time $type Hours Discounted"; + } } - next unless @{ $project{fees} } || @{ $project{expenses} }; - print " Added ticket $project{id}\n"; - push @{ $invoice->{projects} }, \%project; + push @{ $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} }; + my %li = ( + custid => $cust->{id}, + invdate => DateTime->now( time_zone => 'local' )->ymd, + 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} } ) { @@ -279,8 +149,8 @@ } $project->{total} = $subtotal; $invoice->{total} += $subtotal; - print " Subtotal $subtotal\n"; } + @{ $li{transactions} } = sort { $a <=> $b } keys %transactions; if ( $invoice->{discount} ) { my $c = "Included Hours\n"; @@ -299,22 +169,59 @@ $invoice->{total_due} = $invoice->{total} + $invoice->{past_due}; } - $invoice->{id} = $invoiceid; - $invoice->{file} = 'invoice_' . $invoiceid . '.pdf'; + next unless $invoice->{total} > 0 || $invoice->{total_due}; - print "Created Invoice\n"; - print Dump $invoice; + $invoice->{info} = $config->get('info'); + my $from = $config->get('from'); + $from = get_user($from) if !ref $from; - my $tt = Template->new; - $tt->process( 'invoice.tex.tt', $invoice, $invoice->{file} ) - or die $tt->error . "\n"; + $invoice->{organization} = $from->{organization} || $from->{name}; + $invoice->{from} = make_address($from); + $invoice->{to} = make_address( $cust->{address} || $cust->{id} ); - print "Generated $invoice->{file}\n"; + $state->{lastinvoice}++; + $invoice->{id} = $state->{lastinvoice}; + $invoice->{file} = sprintf 'invoice_%06d.pdf', $state->{lastinvoice}; + $invoice->{logo} = $config->get('logo'); - $invoiceid++; + foreach my $k (qw/ file transactions start end total past_due total_due /) + { + my $v; + if ( $invoice->{$k} ) { $v = $invoice->{$k} } + elsif ( $cust->{$k} ) { $v = $cust->{$k} } + + if ( defined $v && length $v ) { + if ( ref $v eq 'DateTime' ) { + $li{$k} = $v->ymd; + } + else { + $li{$k} = $v; + } + } + } + $state->{invoice}->{ $li{end} }{ $invoice->{id} } = \%li; + + foreach my $key (qw/ start end /) { + if ( exists $invoice->{$key} ) { + $invoice->{$key} = $invoice->{$key}->strftime('%B %d, %Y'); + } + } + + 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}; } -# XXX Save State +$state->save; sub round { my ($amount) = @_; @@ -324,19 +231,367 @@ return sprintf "%.02f", $amount; } +sub find_customer_for_ticket { + my ($ticket) = @_; + + 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 ); + } + } + + # Fake customer if we didn't find one + my $cust = $config->get('default') || {}; + + ( $cust->{id} ) = $ticket->requestors; + return unless $cust->{id}; + push @{$customers}, $cust; + + $cust->{match} = [ + { type => 'requestors', + regex => $cust->{id}, + } + ]; + + return $cust; +} + +sub get_user { + my ($id) = @_; + + state %users; + return $users{$id} if $users{$id}; + + 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 make_invoice { + my ($cust) = @_; + + my $day = $cust->{day} ||= 0; + my $per = $cust->{per} ||= 'week'; + my $freq = $cust->{frequency} ||= 1; + + 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" } + } + + my $billend = DateTime->now( time_zone => 'local' ) + ->set( hour => 0, minute => 0, second => 0 ); + + # XXX This is helpful, but monthly and billday > 28 == !!! + $billend->subtract( days => 1 ) + while $day && $billend->$day_method != $day; + + my $date = $billend->clone->subtract( $per => $freq ); + my %invoice = ( end => $billend->clone->subtract( seconds => 1 ) ); + + my $lastinvoice = $state->last_invoice( $cust->{id} ); + if ( $lastinvoice->{date} ) { + my $last_invoice_date = ymd_to_DateTime( $lastinvoice->{date} ); + $date = $last_invoice_date->clone->add( days => 1 ); + + $invoice{start} = $date->clone; + + $startdate = $date->clone->subtract( $per => $freq ) + if !$startdate || $startdate > $date; + } + + # Is the start date more than $freq $per before the end date? + return {} + if DateTime->compare( $date->clone->add( $per => $freq ), $billend ) + > 0; + + if ( $cust->{base_rate} ) { + my ( $project, $hours ) = make_base_project( + $cust, + { date => $date, + billend => $billend, + per => $per, + freq => $freq, + } + ); + + 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}, + } + ]; + } + + return {} if $invoice{start} && $invoice{end} < $invoice{start}; + + return \%invoice; +} + +sub make_base_project { + my ( $cust, $args ) = @_; + + my $date = $args->{date}; + my $billend = $args->{billend}; + my $per = $args->{per}; + my $freq = $args->{freq}; + + my $title + = $freq == 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( $per => $freq ); + + my $end = $date->clone->subtract( seconds => 1 ); + $end = $billend->clone->subtract( seconds => 1 ) if $date > $billend; + + $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; + } + + 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 ( $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 %fee = ( + id => $txn->id, + contents => $txn->created . ' (' + . $txn->id . ')' . "\n\n" + . ( $txn->data || $ticket->subject ), + count => $work_time, + type => $work_type, + date => ymd_to_DateTime( $txn->created ), + rate => $rates->{$work_type} || $rates->{default} || 0, + ); + + if ( $work_type && $work_type ne 'Normal' ) { + $fee{detail} = $work_type . ' rate'; + } + + 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 ) = @_; + + my $hours = {}; + if ( $invoice->{hours} ) { + foreach my $h ( @{ $invoice->{hours} } ) { + next if $h->{start} && $h->{start} > $date; + next if $h->{end} < $date; + + $hours = $h->{hours}; + last; + } + } + return $hours; +} + +sub ymd_to_DateTime { + my ($ymd) = @_; + my ( $date, $time ) = split /[\sT]/, $ymd; + my ( $year, $month, $day ) = split '-', $date; + my ( $hour, $minute, $second ) = split ':', $time if $time; + + return DateTime->new( + year => $year, + month => $month, + day => $day, + hour => $hour || 0, + minute => $minute || 0, + second => $second || 0, + time_zone => 'local', + ); +} + package RTI::Config; use strict; use warnings; use 5.010; -use YAML::Any qw/ LoadFile /; +use YAML::Any qw/ LoadFile Dump Load /; +use File::Spec; sub new { my ( $class, $args ) = @_; my $self = { file => '', }; bless $self, $class; + my $file = $args->{file} || $self->_find_config; $self->read_config($file); @@ -348,7 +603,7 @@ # 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} ) { + foreach my $dir ( '.', $ENV{HOME} . '/.rt_invoicing', $ENV{HOME} ) { my $path = join '/', $dir, $file; return $path if -e $path; } @@ -368,7 +623,7 @@ if ( $c->{default} ) { foreach my $cust ( @{ $c->{customers} } ) { foreach my $k ( keys %{ $c->{default} } ) { - $cust->{$k} //= $c->{default}->{$k}; + $cust->{$k} //= Load( Dump( $c->{default}->{$k} ) ); } } } @@ -379,9 +634,32 @@ sub get { my ( $self, $key ) = @_; + my $value = Load( Dump( $self->{_config}->{$key} ) ); - # XXX This should deep copy? not a reference would be good - return $self->{_config}->{$key}; + return $value if $value; + my ( $volume, $directories, $file ) + = File::Spec->splitpath( File::Spec->rel2abs( $self->{file} ) ); + + given ($key) { + when ('state') { + $value = $self->{file}; + $value =~ s/(?:\.[^.]+)?$/\.state/; + } + when ('invoice_dir') { + $value = File::Spec->catdir( $volume, $directories, 'invoices' ); + } + when ('template_dir') { + $value = File::Spec->catdir( $volume, $directories ); + } + when ('invoice_template') { + $value = 'invoice.tex.tt'; + } + when ('logo') { + $value = File::Spec->catfile( $volume, $directories, 'Logo.pdf' ); + } + } + + return $value; } package RTI::State; @@ -392,13 +670,58 @@ use YAML::Any qw/ LoadFile DumpFile /; +my $file = ''; + sub new { - my ( $class, $args ) = @_; + my $class; + ( $class, $file ) = @_; - my $self = { file => '', }; + my $self = { lastinvoice => 0, }; + if ( -e $file ) { + $self = LoadFile($file) or die "Unable to load state: $!"; + } + bless $self, $class; - my $file = $args->{file} || $self->_find_config; - $self->read_config($file); + die "Need to pass filename to new: $!" unless $file; + return $self; +} + +sub last_invoice { + my ( $self, $custid ) = @_; + state %table; + if ( !%table ) { + foreach my $date ( sort keys %{ $self->{invoice} } ) { + while ( my ( $id, $inv ) = each %{ $self->{invoice}->{$date} } ) { + next unless $inv->{custid}; + $table{ $inv->{custid} } = { + id => $id, + date => $date, + %{$inv}, + }; + } + } + } + return $table{$custid} || {}; +} + +sub txn_is_invoiced { + my ( $self, $txn ) = @_; + state %table; + if ( !%table ) { + foreach my $date ( sort keys %{ $self->{invoice} } ) { + foreach my $inv ( values %{ $self->{invoice}->{$date} } ) { + foreach my $t ( @{ $inv->{transactions} } ) { + $table{$t} = 1; + } + } + } + } + return $table{$txn}; +} + +sub save { + my ($self) = @_; + DumpFile( $file, {%$self} ) or die "Unable to save state: $!"; }