Lines 16-21
use C4::SIP::Sip::Constants qw(:all);
Link Here
|
16 |
use C4::SIP::Sip::Configuration; |
16 |
use C4::SIP::Sip::Configuration; |
17 |
use C4::SIP::Sip::Checksum qw(checksum verify_cksum); |
17 |
use C4::SIP::Sip::Checksum qw(checksum verify_cksum); |
18 |
use C4::SIP::Sip::MsgType qw( handle login_core ); |
18 |
use C4::SIP::Sip::MsgType qw( handle login_core ); |
|
|
19 |
use Koha::Caches; |
19 |
|
20 |
|
20 |
use base qw(Net::Server::PreFork); |
21 |
use base qw(Net::Server::PreFork); |
21 |
|
22 |
|
Lines 91-96
sub process_request {
Link Here
|
91 |
|
92 |
|
92 |
$self->{config} = $config; |
93 |
$self->{config} = $config; |
93 |
|
94 |
|
|
|
95 |
# Flushing L1 to make sure the request will be processed using the correct data |
96 |
Koha::Caches->flush_L1_caches(); |
97 |
|
94 |
my $sockname = getsockname(STDIN); |
98 |
my $sockname = getsockname(STDIN); |
95 |
|
99 |
|
96 |
# Check if socket connection is IPv6 before resolving address |
100 |
# Check if socket connection is IPv6 before resolving address |
97 |
- |
|
|