8 |
use lib 'lib'; |
use lib 'lib'; |
9 |
use LDAP::Koha; |
use LDAP::Koha; |
10 |
|
|
11 |
my $port = 2389; |
my $listen = '10.60.0.13:2389'; |
12 |
|
|
13 |
my $sock = IO::Socket::INET->new( |
my $sock = IO::Socket::INET->new( |
14 |
Listen => 5, |
Listen => 5, |
15 |
Proto => 'tcp', |
Proto => 'tcp', |
16 |
Reuse => 1, |
Reuse => 1, |
17 |
LocalPort => $port, |
LocalAddr => $listen, |
18 |
) || die; |
) || die; |
19 |
|
|
20 |
warn "# listening on $port"; |
warn "# listening on $listen"; |
21 |
|
|
22 |
my $sel = IO::Select->new($sock); |
my $sel = IO::Select->new($sock); |
23 |
my %Handlers; |
my %Handlers; |