bin/past_due-event


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

#!/usr/bin/perl

use strict;
use FS::UID qw( adminsuidsetup );
use FS::Record qw( qsearchs );
use FS::cust_bill;
use FS::part_event;

adminsuidsetup shift or die &usage;

my $cust_bill = qsearchs('cust_bill', { 'invnum' => shift } )
  or die "Unknown invnum\n";

my $days = shift;

my %days2eventpart = ( #dev server
  1 => 2,
  3 => 9,
  5 => 10,
  7 => 11,
 10 => 12,
);

#based on event name :/ good enough for this test
my $part_event = qsearchs('part_event', { 'eventpart' => $days2eventpart{$days} } )
  or die "unknown event for $days days\n";

my $cust_event = $part_event->new_cust_event($cust_bill);

my $error = $cust_event->do_event();
if ( $error ) {
  warn "$error\n";
} else {
  warn $part_event->event. " event run\n";
}

sub usage {
  "Usage:\n\npast_due-event employee_username custnum days\n";
}

1;