View | Details | Raw Unified | Return to bug 15419
Collapse All | Expand All

(-)a/C4/SIP/Sip/MsgType.pm (-3 / +20 lines)
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
- 

Return to bug 15419