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);
10 $user = shift or die &usage;
11 &adminsuidsetup( $user );
13 my @customers = qsearch('cust_main', {} );
14 die "No customers" unless (scalar(@customers) > 0);
16 foreach $cust_main (@customers) {
17 print "Applying credits for customer #". $cust_main->custnum;
18 $cust_main->apply_credits;