4 use FS::UID qw( adminsuidsetup );
5 use FS::Record qw( qsearchs );
9 my $eventpart = 3; #dev server
11 adminsuidsetup shift or die &usage;
13 my $cust_pay = qsearchs('cust_pay', { 'paynum' => shift } )
14 or die "Unknown paynum\n";
16 my $part_event = qsearchs('part_event', { 'eventpart' => $eventpart } )
17 or die "unknown eventnum $eventpart\n";
19 my $cust_event = $part_event->new_cust_event($cust_pay);
21 my $error = $cust_event->do_event();
25 warn $part_event->event. " event run\n";
29 "Usage:\n\npayment_received-event employee_username paynum\n";