===================================================================
RCS file: /cvs/RT/Invoicing/rt_invoices.pl,v
retrieving revision 1.51
retrieving revision 1.54
diff -u -r1.51 -r1.54
--- RT/Invoicing/rt_invoices.pl	2015/05/07 06:21:49	1.51
+++ RT/Invoicing/rt_invoices.pl	2015/12/08 02:10:43	1.54
@@ -1,5 +1,5 @@
 #!/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 $
 ########################################################################
 # Copyright (c) 2011 Andrew Fresh <andrew@afresh1.com>
 #
@@ -19,7 +19,11 @@
 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;
@@ -220,7 +224,7 @@
 }
 
 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};