|
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 |
- |
|
|