fix DBI connection, RT#39250

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

diff --git a/FS/bin/freeside-prepaidd b/FS/bin/freeside-prepaidd
index 2d64221..cb83154 100644 (file)
--- a/FS/bin/freeside-prepaidd
+++ b/FS/bin/freeside-prepaidd
@@ -4,6 +4,7 @@ use strict;
 use FS::Daemon qw(daemonize1 drop_root logfile daemonize2 sigint sigterm);
 use FS::UID qw(adminsuidsetup);
 use FS::Record qw(qsearch qsearchs);
+use FS::Conf;
 use FS::cust_pkg;
 
 my $user = shift or die &usage;
@@ -49,8 +50,10 @@ while (1) {
       next;
     }
 
-    if (    $cust_main->total_unapplied_payments > 0
-         || $cust_main->total_credited > 0
+    if ( (    $cust_main->total_unapplied_payments > 0
+           || $cust_main->total_unapplied_credits > 0
+         )
+         && ! FS::Conf->new->exists('prepaid-never_renew')
        )
     {
 
@@ -85,7 +88,7 @@ while (1) {
   }
 
   die "exiting" if sigterm() || sigint();
-  sleep 5;
+  sleep 60;
 
 }