FS/bin/freeside-apply-credits

   1 #!/usr/bin/perl -Tw
   2
   3 use strict;
   4 use lib "/usr/lib/perl5/site_perl/5.005/FSTest2";
   5 use vars qw( $user $cust_main @customers );
   6 use FS::UID qw(adminsuidsetup);
   7 use FS::Record qw(qsearch);
   8 use FS::cust_main;
   9
  10 $user = shift or die &usage;
  11 &adminsuidsetup( $user );
  12
  13 my @customers = qsearch('cust_main', {} );
  14 die "No customers" unless (scalar(@customers) > 0);
  15
  16 foreach $cust_main (@customers) {
  17   print "Applying credits for customer #". $cust_main->custnum;
  18   $cust_main->apply_credits;
  19 }
  20
  21
  22