[freeside-commits] freeside/bin opensrs_domain_pkgs,1.1,1.2

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv31016

Modified Files:
	opensrs_domain_pkgs 
Log Message:
set the bill date earlier

Index: opensrs_domain_pkgs
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/opensrs_domain_pkgs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- opensrs_domain_pkgs	4 Jan 2010 04:13:11 -0000	1.1
+++ opensrs_domain_pkgs	24 Sep 2010 17:23:35 -0000	1.2
@@ -73,7 +73,23 @@
                            second => $second,
                            time_zone => 'America/New_York',#timezone of opensrs
                          );
-  my $expiretime = $exp->epoch;
+  #my $expiretime = $exp->epoch;
+  
+  #set the bill date early enough to allow a couple chances to pay
+  $month--;
+  if ($month < 1) {
+    $year--;
+    $month=12;
+  }
+  my $bill = DateTime->new( year   => $year,
+                            month  => $month,
+                            day    => 1,
+                            hour   => 0,
+                            minute => 0,
+                            second => 0,
+                            time_zone => 'America/Chicago',#timezone of customer
+                          );
+  my $expiretime = $bill->epoch;
 
   my $error = $part_export->is_supported_domain($svc_domain);
   warn $error if $error;