version 1.9, 2011/03/22 01:01:53 |
version 1.15, 2011/03/22 02:41:43 |
|
|
#!/usr/bin/perl |
#!/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 strict; |
use warnings; |
use warnings; |
|
|
|
|
timeout => $rt_conf->{timeout}, |
timeout => $rt_conf->{timeout}, |
); |
); |
my $tickets = RT::Client::REST::Ticket->new( rt => $rt ); |
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} ); |
$rt->login( username => $rt_conf->{user}, password => $rt_conf->{pass} ); |
|
|
|
|
my $customers = $config->get('customers'); |
my $customers = $config->get('customers'); |
CUSTOMER: while ( my ( $custid, $cust ) = each %{$customers} ) { |
CUSTOMER: while ( my ( $custid, $cust ) = each %{$customers} ) { |
|
|
my %invoice = ( end => DateTime->now, ); |
my $invoice = make_invoice($cust); |
|
|
if ( $cust->{base_rate} ) { |
if ( $cust->{base_rate} ) { |
|
$invoice->{hours} = []; |
my $day = $cust->{day} || 1; |
my $day = $cust->{day} || 1; |
my $freq = $cust->{frequency} || 1; |
my $freq = $cust->{frequency} || 1; |
|
|
|
|
default { die "Unknown per [$cust->{per}]\n" } |
default { die "Unknown per [$cust->{per}]\n" } |
} |
} |
|
|
my $billends |
my $billends = $invoice->{end}->clone; |
= DateTime->now->set( hour => 0, minute => 0, second => 0 ); |
|
$billends->subtract( days => 1 ) while $billends->$day_method != $day; |
$billends->subtract( days => 1 ) while $billends->$day_method != $day; |
|
|
my $date = $billends->clone->subtract( $per => $freq ); |
my $date = $billends->clone->subtract( $per => $freq ); |
|
|
next if $end < $start; |
next if $end < $start; |
|
|
$startdate = $start->clone if !$startdate || $startdate > $start; |
$startdate = $start->clone if !$startdate || $startdate > $start; |
$invoice{start} ||= $start->clone; |
$invoice->{start} ||= $start->clone; |
$invoice{end} = $end->clone; |
$invoice->{end} = $end->clone; |
my %hours = ( |
my %hours = ( |
start => $start->clone, |
start => $start->clone, |
end => $end->clone, |
end => $end->clone, |
hours => { %{ $cust->{hours} } }, |
hours => { %{ $cust->{hours} } }, |
); |
); |
|
|
push @{ $invoice{hours} }, \%hours; |
push @{ $invoice->{hours} }, \%hours; |
push @{ $project{fees} }, |
push @{ $project{fees} }, |
{ |
{ |
count => 1, |
count => 1, |
|
|
} |
} |
|
|
if ( @{ $project{fees} } ) { |
if ( @{ $project{fees} } ) { |
push @{ $invoice{projects} }, \%project; |
push @{ $invoice->{projects} }, \%project; |
} |
} |
} |
} |
|
|
$cust->{from} ||= get_user($custid); |
$cust->{invoice} = $invoice; |
$cust->{invoice} = \%invoice; |
|
} |
} |
|
|
my @limits = map +{ |
my @limits = map +{ |
|
|
while ( my $ticket = &$iterator ) { |
while ( my $ticket = &$iterator ) { |
my $cust = find_customer_for_ticket( $customers, $ticket ); |
my $cust = find_customer_for_ticket( $customers, $ticket ); |
if ( !$cust ) { |
if ( !$cust ) { |
say "No customer found for ticket " . $ticket->id; |
warn "No customer found for ticket " . $ticket->id; |
next; |
next; |
} |
} |
if ( !$cust->{invoice} ) { |
if ( !$cust->{invoice} ) { |
say "Customer has no open invoices for ticket " . $ticket->id; |
|
|
#say "Customer has no open invoices for ticket " . $ticket->id; |
next; |
next; |
} |
} |
my $invoice = $cust->{invoice}; |
my $invoice = $cust->{invoice}; |
|
|
} |
} |
|
|
if ($discount_time) { |
if ($discount_time) { |
$invoice->{discount}{amount} += $discount_time * $fee->{rate}; |
$invoice->{discount}{amount} |
|
+= round( $discount_time * $fee->{rate} ); |
$invoice->{discount}{hours}{$h_type} += $discount_time; |
$invoice->{discount}{hours}{$h_type} += $discount_time; |
|
|
$h_type = '' if $h_type eq 'default'; |
$h_type = '' if $h_type eq 'default'; |
|
|
my $invoice = $cust->{invoice}; |
my $invoice = $cust->{invoice}; |
next unless $invoice->{projects} && @{ $invoice->{projects} }; |
next unless $invoice->{projects} && @{ $invoice->{projects} }; |
|
|
my %li = ( custid => $custid, ); |
my %li = ( custid => $custid, invdate => DateTime->now->ymd, ); |
|
|
foreach my $project ( @{ $invoice->{projects} } ) { |
foreach my $project ( @{ $invoice->{projects} } ) { |
if ( $project->{transactions} ) { |
if ( $project->{transactions} ) { |
|
|
|
|
next unless $invoice->{total} > 0 || $invoice->{total_due}; |
next unless $invoice->{total} > 0 || $invoice->{total_due}; |
|
|
# XXX Here we need to "make_address" |
|
$invoice->{info} = $config->get('info'); |
$invoice->{info} = $config->get('info'); |
$invoice->{from} = $config->get('from'); |
$invoice->{from} = make_address( $config->get('from') ); |
$invoice->{to} = $cust->{address}; |
$invoice->{to} = make_address( $cust->{address} || get_user($custid) ); |
|
|
$state->{lastinvoice}++; |
$state->{lastinvoice}++; |
$invoice->{id} = $state->{lastinvoice}; |
$invoice->{id} = $state->{lastinvoice}; |
$invoice->{file} = 'invoice_' . $state->{lastinvoice} . '.pdf'; |
$invoice->{file} = 'invoice_' . $state->{lastinvoice} . '.pdf'; |
|
|
|
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 /) { |
foreach my $key (qw/ start end /) { |
if ( exists $invoice->{$key} ) { |
if ( exists $invoice->{$key} ) { |
$invoice->{$key} = $invoice->{$key}->strftime('%B %d, %Y'); |
$invoice->{$key} = $invoice->{$key}->strftime('%B %d, %Y'); |
} |
} |
} |
} |
|
|
foreach my $k (qw/ transactions start end total past_due total_due /) { |
|
if ( $invoice->{$k} ) { $li{$k} = $invoice->{$k} } |
|
elsif ( $cust->{$k} ) { $li{$k} = $cust->{$k} } |
|
} |
|
|
|
$state->{invoice}->{ $invoice->{end} }{ $invoice->{id} } = \%li; |
|
|
|
my $tt = Template->new; |
my $tt = Template->new; |
$tt->process( 'invoice.tex.tt', $invoice, $invoice->{file} ) |
$tt->process( 'invoice.tex.tt', $invoice, $invoice->{file} ) |
or die $tt->error . "\n"; |
or die $tt->error . "\n"; |
|
|
return unless $custid; |
return unless $custid; |
|
|
my $cust = $config->get('default') || {}; |
my $cust = $config->get('default') || {}; |
$cust->{to} = get_user($custid); |
|
|
|
my %invoice = ( end => DateTime->now ); |
$cust->{match} = [ |
|
{ type => 'requestors', |
|
regex => $custid, |
|
} |
|
]; |
|
|
|
my $invoice = make_invoice($cust); |
|
|
my $lastinvoice = $state->last_invoice($custid); |
my $lastinvoice = $state->last_invoice($custid); |
if ( $lastinvoice->{date} ) { |
if ( $lastinvoice->{date} ) { |
my $last_invoice_date = ymd_to_DateTime( $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} ) ) { |
if ( !( $invoice->{start} && $invoice->{start} < $invoice->{end} ) ) { |
$cust->{invoice} = \%invoice; |
$cust->{invoice} = $invoice; |
} |
} |
|
|
$customers->{$custid} = $cust; |
$customers->{$custid} = $cust; |
|
|
name => 'username', |
name => 'username', |
); |
); |
|
|
$users->id($id); |
my $users = RT::Client::REST::User->new( rt => $rt, id => $id ); |
$users->retrieve; |
$users->retrieve; |
|
|
my %user; |
my %user; |
|
|
return \%user; |
return \%user; |
} |
} |
|
|
|
sub make_invoice { |
|
my ($cust) = @_; |
|
|
|
my $billends = DateTime->now->set( hour => 0, minute => 0, second => 0 ) |
|
->clone->subtract( days => 1, seconds => 1 ); |
|
|
|
my %invoice = ( end => $billends ); |
|
|
|
if ( $cust && $cust->{hours} ) { |
|
$invoice{hours} = [ |
|
{ end => $billends, |
|
hours => $cust->{hours}, |
|
} |
|
]; |
|
} |
|
|
|
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 { |
sub make_project { |
my ( $ticket, $cust ) = @_; |
my ( $ticket, $cust ) = @_; |
|
|
|
|
|
|
sub ymd_to_DateTime { |
sub ymd_to_DateTime { |
my ($ymd) = @_; |
my ($ymd) = @_; |
my ( $date, $time ) = split ' ', $ymd; |
my ( $date, $time ) = split /[\sT]/, $ymd; |
my ( $year, $month, $day ) = split '-', $date; |
my ( $year, $month, $day ) = split '-', $date; |
my ( $hour, $minute, $second ) = split ':', $time if $time; |
my ( $hour, $minute, $second ) = split ':', $time if $time; |
|
|