11 my $listen = shift @ARGV || 'localhost:2389';
13 my $sock = IO::Socket::INET->new(
18 ) || die "can't listen to $listen $!";
20 warn "# listening on $listen";
22 my $sel = IO::Select->new($sock);
24 while (my @ready = $sel->can_read) {
25 foreach my $fh (@ready) {
27 # let's create a new socket
28 my $psock = $sock->accept;
29 $psock->sockopt(SO_KEEPALIVE,1);
31 $Handlers{*$psock} = LDAP::Koha->new($psock);
33 my $result = $Handlers{*$fh}->handle;
35 # we have finished with the socket
38 delete $Handlers{*$fh};