4 use vars qw( $user $cust_main @customers );
5 use FS::UID qw(adminsuidsetup);
6 use FS::Record qw(qsearch);
9 $user = shift or die &usage;
10 &adminsuidsetup( $user );
12 my @customers = qsearch('cust_main', {} );
13 die "No customers" unless (scalar(@customers) > 0);
15 foreach $cust_main (@customers) {
16 print "Applying credits for customer #". $cust_main->custnum;
17 $cust_main->apply_credits;