У нас есть средство отслеживания запросов 4.4.3. У нас есть автоматизированный сценарий, который использует распределение Business :: Hours. Вот основная часть:

sub IsApplicable {
    my $self = shift;
    my $bhours = $self->BusinessHours;
    my $ticket = $self->TicketObj;
    my $due = $ticket->DueObj->Unix;
    my $bseconds = $bhours->between( time(), $due );
}

Иногда мы получаем ошибку в stderr:

[23406] [Wed Mar 13 07:40:09 2019] [critical]: Set::IntSpan::_copy_run_list: Bad order 2: 1552462809-1552462694
 at /usr/local/share/perl5/Business/Hours.pm line 269. (/opt/rt4/bin/../lib/RT.pm:408)
Set::IntSpan::_copy_run_list: Bad order 2: 1552462809-1552462694
 at /usr/local/share/perl5/Business/Hours.pm line 269.

Кажется, это не имеет смысла, 1552462809-1552462694 в значительной степени оценивается как 115.

Как проанализировать / исправить эту ошибку?

0
real_sm 13 Мар 2019 в 11:37

1 ответ

Лучший ответ

Согласно документации Бизнес :: Часы работы:

между START и END

Возвращает количество рабочих секунд между START и END. START и END должны быть указаны в секундах с начала эпохи.

Возвращает -1, если START или END выходят за рамки расчетных рабочих часов.

Так что, вероятно, END должен быть больше, чем START

0
Alex 13 Мар 2019 в 08:42