summaryrefslogtreecommitdiff
path: root/FS/FS/part_event/Condition/holiday.pm
blob: 1639a17a6642e90912680848b189da10c879bfec (plain)
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
package FS::part_event::Condition::holiday;

use strict;
use base qw( FS::part_event::Condition );
use DateTime;
use DateTime::Format::ICal;
use Tie::IxHash;

# rules lifted from DateTime::Event::Holiday::US,
# but their list is unordered, and contains duplicates and frivolous holidays
# it's better for future development for us to use our own hard-coded list,
# and the actual code beyond the list is just trivial use of DateTime::Format::ICal

tie my %holidays, 'Tie::IxHash', 
  'New Year\'s Day'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=1;BYMONTHDAY=1' },   # January 1
  'Birthday of Martin Luther King, Jr.'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=1;BYDAY=3mo' },      # Third Monday in January
  'Washington\'s Birthday' 
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=2;BYDAY=3mo' },      # Third Monday in February
  'Memorial Day'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=5;BYDAY=-1mo' },     # Last Monday in May
  'Independence Day'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=7;BYMONTHDAY=4' },   # July 4
  'Labor Day'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=9;BYDAY=1mo' },      # First Monday in September
  'Columbus Day'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=2mo' },     # Second Monday in October
  'Veterans Day'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=11;BYMONTHDAY=11' }, # November 11
  'Thanksgiving Day'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=11;BYDAY=4th' },     # Fourth Thursday in November
  'Christmas'
    => { 'rule' => 'RRULE:FREQ=YEARLY;BYMONTH=12;BYMONTHDAY=25' }, # December 25
;

my $oneday = DateTime::Duration->new(days => 1);

sub description {
  "Do not run on holidays",
}

sub option_fields {
  (
    'holidays' => {
       label         => 'Do not run on',
       type          => 'checkbox-multiple',
       options       => [ keys %holidays ],
       option_labels => { map { $_ => $_ } keys %holidays },
       default_value => { map { $_ => 1  } keys %holidays }
    },
  );
}

sub condition {
  my( $self, $object, %opt ) = @_;
  my $today = DateTime->from_epoch(
    epoch     => $opt{'time'} || time,
    time_zone => 'local'
  )->truncate( to => 'day' );

  # if fri/mon, also check sat/sun respectively
  # federal holidays on weekends "move" to nearest weekday
  # eg Christmas 2016 is Mon Dec 26
  # we'll check both, so eg both Dec 25 & 26 are holidays in 2016
  my $offday;
  if ($today->day_of_week == 1) {
    $offday = $today->clone->subtract_duration($oneday);
  } elsif ($today->day_of_week == 5) {
    $offday = $today->clone->add_duration($oneday);
  }

  foreach my $holiday (keys %{$self->option('holidays')}) {
    $holidays{$holiday}{'set'} ||= 
      DateTime::Format::ICal->parse_recurrence(
        'recurrence' => $holidays{$holiday}{'rule'}
      );
    my $set = $holidays{$holiday}{'set'};
    return ''
      if $set->contains($today) or $offday && $set->contains($offday);
  }

  return 1;

}


# no condition_sql

1;