Fixed inverses intervals on server
Former-commit-id: 20f9e139bb3f40700e3081e4ce9ec134b70786a6
This commit is contained in:
parent
43b296c49c
commit
14ea1a4714
|
@ -1446,8 +1446,7 @@ sub cron_next_execution_date {
|
||||||
my @nex_time_array = @curr_time_array;
|
my @nex_time_array = @curr_time_array;
|
||||||
|
|
||||||
# Update minutes
|
# Update minutes
|
||||||
my ($min_down, undef) = cron_get_interval ($min);
|
$nex_time_array[0] = cron_get_next_time_element($min);
|
||||||
$nex_time_array[0] = ($min_down eq '*') ? 0 : $min_down;
|
|
||||||
|
|
||||||
$nex_time = cron_valid_date(@nex_time_array, $cur_year);
|
$nex_time = cron_valid_date(@nex_time_array, $cur_year);
|
||||||
if ($nex_time >= $cur_time) {
|
if ($nex_time >= $cur_time) {
|
||||||
|
@ -1480,8 +1479,7 @@ sub cron_next_execution_date {
|
||||||
return $nex_time if cron_is_in_cron(\@cron_array, \@nex_time_array);
|
return $nex_time if cron_is_in_cron(\@cron_array, \@nex_time_array);
|
||||||
|
|
||||||
#Update the hour if fails
|
#Update the hour if fails
|
||||||
my ($hour_down, undef) = cron_get_interval ($hour);
|
$nex_time_array[1] = cron_get_next_time_element($hour);
|
||||||
$nex_time_array[1] = ($hour_down eq '*') ? 0 : $hour_down;
|
|
||||||
|
|
||||||
# When an overflow is passed check the hour update again
|
# When an overflow is passed check the hour update again
|
||||||
$nex_time = cron_valid_date(@nex_time_array, $cur_year);
|
$nex_time = cron_valid_date(@nex_time_array, $cur_year);
|
||||||
|
@ -1508,8 +1506,7 @@ sub cron_next_execution_date {
|
||||||
return $nex_time if cron_is_in_cron(\@cron_array, \@nex_time_array);
|
return $nex_time if cron_is_in_cron(\@cron_array, \@nex_time_array);
|
||||||
|
|
||||||
#Update the day if fails
|
#Update the day if fails
|
||||||
my ($mday_down, undef) = cron_get_interval ($mday);
|
$nex_time_array[2] = cron_get_next_time_element($mday, 1);
|
||||||
$nex_time_array[2] = ($mday_down eq '*') ? 1 : $mday_down;
|
|
||||||
|
|
||||||
# When an overflow is passed check the hour update in the next execution
|
# When an overflow is passed check the hour update in the next execution
|
||||||
$nex_time = cron_valid_date(@nex_time_array, $cur_year);
|
$nex_time = cron_valid_date(@nex_time_array, $cur_year);
|
||||||
|
@ -1531,8 +1528,7 @@ sub cron_next_execution_date {
|
||||||
return $nex_time if cron_is_in_cron(\@cron_array, \@nex_time_array);
|
return $nex_time if cron_is_in_cron(\@cron_array, \@nex_time_array);
|
||||||
|
|
||||||
#Update the month if fails
|
#Update the month if fails
|
||||||
my ($mon_down, undef) = cron_get_interval ($mon);
|
$nex_time_array[3] = cron_get_next_time_element($mon);
|
||||||
$nex_time_array[3] = ($mon_down eq '*') ? 0 : $mon_down;
|
|
||||||
|
|
||||||
# When an overflow is passed check the hour update in the next execution
|
# When an overflow is passed check the hour update in the next execution
|
||||||
$nex_time = cron_valid_date(@nex_time_array, $cur_year);
|
$nex_time = cron_valid_date(@nex_time_array, $cur_year);
|
||||||
|
@ -1566,6 +1562,25 @@ sub cron_is_in_cron {
|
||||||
|
|
||||||
return cron_is_in_cron(\@deref_elems_cron, \@deref_elems_curr_time);
|
return cron_is_in_cron(\@deref_elems_cron, \@deref_elems_curr_time);
|
||||||
}
|
}
|
||||||
|
################################################################################
|
||||||
|
#Get the next tentative time for a cron value or interval in case of overflow.
|
||||||
|
#Floor data is the minimum localtime data for a position. Ex:
|
||||||
|
#Ex:
|
||||||
|
# * should returns floor data.
|
||||||
|
# 5 should returns 5.
|
||||||
|
# 10-55 should returns 10.
|
||||||
|
# 55-10 should retunrs floor data.
|
||||||
|
################################################################################
|
||||||
|
sub cron_get_next_time_element {
|
||||||
|
# Default floor data is 0
|
||||||
|
my ($curr_element, $floor_data) = @_;
|
||||||
|
$floor_data = 0 unless defined($floor_data);
|
||||||
|
|
||||||
|
my ($elem_down, $elem_up) = cron_get_interval ($curr_element);
|
||||||
|
return ($elem_down eq '*' || (defined($elem_up) && $elem_down > $elem_up))
|
||||||
|
? $floor_data
|
||||||
|
: $elem_down;
|
||||||
|
}
|
||||||
###############################################################################
|
###############################################################################
|
||||||
# Returns the interval of a cron element. If there is not a range,
|
# Returns the interval of a cron element. If there is not a range,
|
||||||
# returns an array with the first element in the first place of array
|
# returns an array with the first element in the first place of array
|
||||||
|
|
Loading…
Reference in New Issue