Business::Hours anyone?

RT Users
1

Hi All,

If anyone has used the Business::Hours module successfully, I have what
should be a pretty simple question.

Thanks,
Gene

Gene LeDuc, GSEC
Security Analyst
San Diego State University

2

Gene LeDuc wrote:

Hi All,

If anyone has used the Business::Hours module successfully, I have
what should be a pretty simple question.

Thanks,
Gene

Yeah, I use the Business:Hours in a medium complex setting, what is your
question (I’d rather keep it on the list so if anyone else has the
same/similar question it’ll get answered here)

.r’

3

Hi Robert,

When a ticket is created I want to include a statement in the e-mail to the
requestor that the ticket should be closed in 5 business days, and if they
haven’t heard back from us by then to call us. I’m using Business::Hours
to compute “then” and have basically copied the example from the wiki. The
problem I’m having is that the “add_seconds” method is returning -1, which
the docs seem to say means that the result is more than 30 days in the future.

Here’s my code:

my $days = 5;
my $seconds = $days * 8.5 * 60 * 60;
$RT::Logger->debug(“$MyName: days: $days, seconds: $seconds”);
my $hours = Business::Hours->new();
$hours->business_hours(
{ 0 => { Name => ‘Sunday’, Start => undef, End => undef },
1 => { Name => ‘Monday’, Start => ‘08:00’, End => ‘16:30’ },
2 => { Name => ‘Tuesday’, Start => ‘08:00’, End => ‘16:30’ },
3 => { Name => ‘Wednesday’, Start => ‘08:00’, End => ‘16:30’ },
4 => { Name => ‘Thursday’, Start => ‘15:00’, End => ‘23:30’ },
5 => { Name => ‘Friday’, Start => ‘15:00’, End => ‘23:30’ },
6 => { Name => ‘Saturday’, Start => undef, End => undef }
} );
my $curtime = time;
my $duetime = $hours->add_seconds ($curtime, $seconds);
$RT::Logger->debug(“$MyName: curtime: $curtime, duetime: $duetime”);

And here’s what I’m seeing in my logs:

[Wed Apr 25 20:05:00 2007] [debug]: Scrip DNS:35:Commit (New Ticket):
days: 5, seconds: 153000 ((eval 362):30)
[Wed Apr 25 20:05:00 2007] [debug]: Scrip DNS:35:Commit (New Ticket):
curtime: 1177531500, duetime: -1 ((eval 362):43)

I expect the $duetime result to be ($curtime + 5 business days), or exactly
1 real week from $curtime. Any thoughts on where I should start looking?

Thanks,
Gene

At 10:39 AM 4/25/2007, Robert Long wrote:

Gene LeDuc wrote:

Hi All,

If anyone has used the Business::Hours module successfully, I have
what should be a pretty simple question.

Thanks,
Gene

Yeah, I use the Business:Hours in a medium complex setting, what is your
question (I’d rather keep it on the list so if anyone else has the
same/similar question it’ll get answered here)

.r’

Gene LeDuc, GSEC
Security Analyst
San Diego State University

4

Try it like this:

$hours->business_hours(
0 => { Name => ‘Sunday’, Start => undef, End => undef },
1 => { Name => ‘Monday’, Start => ‘08:00’, End => ‘16:30’ },
2 => { Name => ‘Tuesday’, Start => ‘08:00’, End => ‘16:30’ },
3 => { Name => ‘Wednesday’, Start => ‘08:00’, End => ‘16:30’ },
4 => { Name => ‘Thursday’, Start => ‘15:00’, End => ‘23:30’ },
5 => { Name => ‘Friday’, Start => ‘15:00’, End => ‘23:30’ },
6 => { Name => ‘Saturday’, Start => undef, End => undef }
);

( notice the missing “{” and “}” )

.r’

Gene LeDuc wrote:

5

DING DING DING DING DING DING DING DING DING DING DING DING - We have a winner!

Thanks for taking a look at the code, your change did the trick!

Gene

At 02:12 PM 4/25/2007, Robert Long wrote:

Try it like this:

$hours->business_hours(
0 => { Name => ‘Sunday’, Start => undef, End => undef },
1 => { Name => ‘Monday’, Start => ‘08:00’, End => ‘16:30’ },
2 => { Name => ‘Tuesday’, Start => ‘08:00’, End => ‘16:30’ },
3 => { Name => ‘Wednesday’, Start => ‘08:00’, End => ‘16:30’ },
4 => { Name => ‘Thursday’, Start => ‘15:00’, End => ‘23:30’ },
5 => { Name => ‘Friday’, Start => ‘15:00’, End => ‘23:30’ },
6 => { Name => ‘Saturday’, Start => undef, End => undef }
);

( notice the missing “{” and “}” )

.r’

Gene LeDuc wrote:

Hi Robert,

When a ticket is created I want to include a statement in the e-mail
to the requestor that the ticket should be closed in 5 business days,
and if they haven’t heard back from us by then to call us. I’m using
Business::Hours to compute “then” and have basically copied the
example from the wiki. The problem I’m having is that the
“add_seconds” method is returning -1, which the docs seem to say means
that the result is more than 30 days in the future.

Here’s my code:

my $days = 5;
my $seconds = $days * 8.5 * 60 * 60;
$RT::Logger->debug(“$MyName: days: $days, seconds: $seconds”);
my $hours = Business::Hours->new();
$hours->business_hours(
{ 0 => { Name => ‘Sunday’, Start => undef, End => undef },
1 => { Name => ‘Monday’, Start => ‘08:00’, End => ‘16:30’ },
2 => { Name => ‘Tuesday’, Start => ‘08:00’, End => ‘16:30’ },
3 => { Name => ‘Wednesday’, Start => ‘08:00’, End => ‘16:30’ },
4 => { Name => ‘Thursday’, Start => ‘15:00’, End => ‘23:30’ },
5 => { Name => ‘Friday’, Start => ‘15:00’, End => ‘23:30’ },
6 => { Name => ‘Saturday’, Start => undef, End => undef }
} );
my $curtime = time;
my $duetime = $hours->add_seconds ($curtime, $seconds);
$RT::Logger->debug(“$MyName: curtime: $curtime, duetime: $duetime”);

And here’s what I’m seeing in my logs:

[Wed Apr 25 20:05:00 2007] [debug]: Scrip DNS:35:Commit (New
Ticket): days: 5, seconds: 153000 ((eval 362):30)
[Wed Apr 25 20:05:00 2007] [debug]: Scrip DNS:35:Commit (New
Ticket): curtime: 1177531500, duetime: -1 ((eval 362):43)

I expect the $duetime result to be ($curtime + 5 business days), or
exactly 1 real week from $curtime. Any thoughts on where I should
start looking?

Thanks,
Gene

At 10:39 AM 4/25/2007, Robert Long wrote:

Gene LeDuc wrote:

Hi All,

If anyone has used the Business::Hours module successfully, I have
what should be a pretty simple question.

Thanks,
Gene

Yeah, I use the Business:Hours in a medium complex setting, what is your
question (I’d rather keep it on the list so if anyone else has the
same/similar question it’ll get answered here)

.r’

Gene LeDuc, GSEC
Security Analyst
San Diego State University