bin/payment_received-event

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use FS::UID qw( adminsuidsetup );
   5 use FS::Record qw( qsearchs );
   6 use FS::cust_pay;
   7 use FS::part_event;
   8
   9 my $eventpart = 3; #dev server
  10
  11 adminsuidsetup shift or die &usage;
  12
  13 my $cust_pay = qsearchs('cust_pay', { 'paynum' => shift } )
  14   or die "Unknown paynum\n";
  15
  16 my $part_event = qsearchs('part_event', { 'eventpart' => $eventpart } )
  17   or die "unknown eventnum $eventpart\n";
  18
  19 my $cust_event = $part_event->new_cust_event($cust_pay);
  20
  21 my $error = $cust_event->do_event();
  22 if ( $error ) {
  23   warn "$error\n";
  24 } else {
  25   warn $part_event->event. " event run\n";
  26 }
  27
  28 sub usage {
  29   "Usage:\n\npayment_received-event employee_username paynum\n";
  30 }
  31
  32 1;