diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-03-31 14:29:00 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-03-31 14:29:00 -0700 |
commit | cf5cc61b84cfde1d1c2bd96bd8e1b69c9b15306e (patch) | |
tree | 59d320f4e9b441094cf3e1d2543c3daed5b27f3d /bin/payment_received-event | |
parent | 65573c262573834104caa1bad0d2867150b8a12e (diff) |
test scripts for yip, RT#41267
Diffstat (limited to 'bin/payment_received-event')
-rw-r--r-- | bin/payment_received-event | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/bin/payment_received-event b/bin/payment_received-event new file mode 100644 index 0000000..9e809a5 --- /dev/null +++ b/bin/payment_received-event @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +use strict; +use FS::UID qw( adminsuidsetup ); +use FS::Record qw( qsearchs ); +use FS::cust_pay; +use FS::part_event; + +my $eventpart = 3; #dev server + +adminsuidsetup shift or die &usage; + +my $cust_pay = qsearchs('cust_pay', { 'paynum' => shift } ) + or die "Unknown paynum\n"; + +my $part_event = qsearchs('part_event', { 'eventpart' => $eventpart } ) + or die "unknown eventnum $eventpart\n"; + +my $cust_event = $part_event->new_cust_event($cust_pay); + +my $error = $cust_event->do_event(); +if ( $error ) { + warn "$error\n"; +} else { + warn $part_event->event. " event run\n"; +} + +sub usage { + "Usage:\n\npayment_received-event employee_username paynum\n"; +} + +1; |