4 use FS::UID qw( adminsuidsetup );
5 use FS::Record qw( qsearchs );
9 adminsuidsetup shift or die &usage;
11 my $cust_bill = qsearchs('cust_bill', { 'invnum' => shift } )
12 or die "Unknown invnum\n";
16 my %days2eventpart = ( #dev server
24 #based on event name :/ good enough for this test
25 my $part_event = qsearchs('part_event', { 'eventpart' => $days2eventpart{$days} } )
26 or die "unknown event for $days days\n";
28 my $cust_event = $part_event->new_cust_event($cust_bill);
30 my $error = $cust_event->do_event();
34 warn $part_event->event. " event run\n";
38 "Usage:\n\npast_due-event employee_username custnum days\n";