#!/usr/bin/perl -Tw

use strict;
use vars qw( $user $cust_main @customers );
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch);
use FS::cust_main;

$user = shift or die &usage;
&adminsuidsetup( $user );

my @customers = qsearch('cust_main', {} );
die "No customers" unless (scalar(@customers) > 0);

foreach $cust_main (@customers) {
  print "Applying credits for customer #". $cust_main->custnum;
  $cust_main->apply_credits;
}