bin/past_due-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_bill;
   7 use FS::part_event;
   8
   9 adminsuidsetup shift or die &usage;
  10
  11 my $cust_bill = qsearchs('cust_bill', { 'invnum' => shift } )
  12   or die "Unknown invnum\n";
  13
  14 my $days = shift;
  15
  16 my %days2eventpart = ( #dev server
  17   1 => 2,
  18   3 => 9,
  19   5 => 10,
  20   7 => 11,
  21  10 => 12,
  22 );
  23
  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";
  27
  28 my $cust_event = $part_event->new_cust_event($cust_bill);
  29
  30 my $error = $cust_event->do_event();
  31 if ( $error ) {
  32   warn "$error\n";
  33 } else {
  34   warn $part_event->event. " event run\n";
  35 }
  36
  37 sub usage {
  38   "Usage:\n\npast_due-event employee_username custnum days\n";
  39 }
  40
  41 1;