};
my @parts = split(/\s+/, $event);
+ my $utc = (@parts && uc($parts[-1]) eq 'UTC');
+ pop @parts if $utc;
+
if ($parts[0] =~ m/$dowsel/i) {
my $dow_spec = shift @parts;
$m = [ sort { $a <=> $b } keys %$minutes_hash ];
}
- return { h => $h, m => $m, dow => [ sort keys %$dow_hash ]};
+ return { h => $h, m => $m, dow => [ sort keys %$dow_hash ], utc => $utc };
}
sub is_leap_year($) {
}
sub compute_next_event {
- my ($calspec, $last, $utc) = @_;
+ my ($calspec, $last) = @_;
my $hspec = $calspec->{h};
my $mspec = $calspec->{m};
my $dowspec = $calspec->{dow};
+ my $utc = $calspec->{utc};
$last += 60; # at least one minute later