(start of) reconcile breakage from stale accounts, RT#6407

[freeside.git] / FS / bin / freeside-daily

diff --git a/FS/bin/freeside-daily b/FS/bin/freeside-daily
index 271c436..04073d4 100755 (executable)
--- a/FS/bin/freeside-daily
+++ b/FS/bin/freeside-daily
@@ -7,7 +7,7 @@ use FS::Conf;
 
 &untaint_argv; #what it sounds like  (eww)
 use vars qw(%opt);
-getopts("p:a:d:vl:sy:nmrk", \%opt);
+getopts("p:a:d:vl:sy:nmrkg:", \%opt);
 
 my $user = shift or die &usage;
 adminsuidsetup $user;
@@ -15,6 +15,14 @@ adminsuidsetup $user;
 use FS::Cron::bill qw(bill);
 bill(%opt);
 
+#you can skip this just by not having the config
+use FS::Cron::breakage qw(reconcile_breakage);
+reconcile_breakage(%opt);
+
+#you can skip this just by not having the config
+use FS::Cron::upload qw(upload);
+upload(%opt);
+
 # Send alerts about upcoming credit card expiration.
 use FS::Cron::alert_expiration qw(alert_expiration);
 my $conf = new FS::Conf;
@@ -31,8 +39,9 @@ unless ( $opt{k} ) {
   use FS::Cron::notify qw(notify_flat_delay);
   notify_flat_delay(%opt);
 
-  use FS::Cron::vacuum qw(vacuum);
-  vacuum();
+  #Pg 8.1+ auto-vaccums, 7.4 w/postgresql-contrib
+  #use FS::Cron::vacuum qw(vacuum);
+  #vacuum();
 
 }
 
@@ -93,6 +102,9 @@ the bill and collect methods of a cust_main object.  See L<FS::cust_main>.
 
   -a: Only process customers with the specified agentnum
 
+  -g: Don't process the provided pkgpart (or pkgparts, specified as a comma-
+      separated list).
+
   -s: re-charge setup fees
 
   -v: enable debugging