Lines 10-15
use strict;
Link Here
|
10 |
use warnings; |
10 |
use warnings; |
11 |
use Exporter; |
11 |
use Exporter; |
12 |
use Sys::Syslog qw(syslog); |
12 |
use Sys::Syslog qw(syslog); |
|
|
13 |
use Time::Out qw(timeout); |
13 |
|
14 |
|
14 |
use C4::SIP::Sip qw(:all); |
15 |
use C4::SIP::Sip qw(:all); |
15 |
use C4::SIP::Sip::Constants qw(:all); |
16 |
use C4::SIP::Sip::Constants qw(:all); |
Lines 385-391
sub handle {
Link Here
|
385 |
print("$last_response\r"); |
386 |
print("$last_response\r"); |
386 |
return REQUEST_ACS_RESEND; |
387 |
return REQUEST_ACS_RESEND; |
387 |
} |
388 |
} |
388 |
return ( $self->{handler}->( $self, $server ) ); # FIXME |
389 |
|
|
|
390 |
local $@; |
391 |
my $ret = timeout (5 => sub { |
392 |
$self->{handler}->( $self, $server ); |
393 |
}); |
394 |
if ($@) { |
395 |
C4::Context->new_dbh; |
396 |
$ret = $self->{handler}->( $self, $server ); |
397 |
} |
398 |
return $ret; |
389 |
# FIXME: Use of uninitialized value in subroutine entry |
399 |
# FIXME: Use of uninitialized value in subroutine entry |
390 |
# Can't use string ("") as a subroutine ref while "strict refs" in use |
400 |
# Can't use string ("") as a subroutine ref while "strict refs" in use |
391 |
} |
401 |
} |
Lines 1602-1608
sub api_auth {
Link Here
|
1602 |
if ($branch) { |
1612 |
if ($branch) { |
1603 |
$query->param( branch => $branch ); |
1613 |
$query->param( branch => $branch ); |
1604 |
} |
1614 |
} |
1605 |
my ( $status, $cookie, $sessionID ) = check_api_auth( $query, { circulate => 1 }, 'intranet' ); |
1615 |
|
|
|
1616 |
local $@; |
1617 |
my ( $status, $cookie, $sessionID ) = timeout (5 => sub { |
1618 |
check_api_auth( $query, { circulate => 1 }, 'intranet' ); |
1619 |
}); |
1620 |
if ($@) { |
1621 |
C4::Context->new_dbh; |
1622 |
( $status, $cookie, $sessionID ) = check_api_auth( $query, { circulate => 1 }, 'intranet' ); |
1623 |
} |
1606 |
return $status; |
1624 |
return $status; |
1607 |
} |
1625 |
} |
1608 |
|
1626 |
|
1609 |
- |
|
|