RT/Invoicing/rt_invoices.pl - diff

Return to rt_invoices.pl CVS log

Up to [local] / RT / Invoicing

version 1.51, 2015/05/07 06:21:49

version 1.54, 2015/12/08 02:10:43

Line 1

#!/usr/bin/perl

# $AFresh1: rt_invoices.pl,v 1.50 2013/06/20 04:36:06 andrew Exp $

# $AFresh1: rt_invoices.pl,v 1.53 2015/05/07 05:26:08 andrew Exp $

########################################################################

Line 19

use warnings;

use 5.010;

use experimental qw( switch smartmatch );

# Because we don't have a real cert

$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;

use Template;

use RT::Client::REST;

use RT::Client::REST::Ticket;

Line 220

Line 224

}

foreach my $cust ( @{$customers} ) {

my $invoice = $cust->{invoice};

my $invoice = $cust->{invoice} ||= make_invoice($cust);

next unless $invoice && $invoice->{projects} && @{ $invoice->{projects} };

$invoice->{custid} = $cust->{id};