/[virtual-ldap]/bin/ldap-koha.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /bin/ldap-koha.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 34 by dpavlin, Mon Mar 23 21:55:39 2009 UTC revision 102 by dpavlin, Fri May 20 12:00:03 2011 UTC
# Line 8  use IO::Socket; Line 8  use IO::Socket;
8  use lib 'lib';  use lib 'lib';
9  use LDAP::Koha;  use LDAP::Koha;
10    
11  my $listen = '10.60.0.13:2389';  my $listen = shift @ARGV || 'localhost: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          LocalAddr => $listen,          LocalAddr => $listen,
18  ) || die;  ) || die "can't listen to $listen $!";
19    
20  warn "# listening on $listen";  warn "# listening on $listen";
21    
# Line 26  while (my @ready = $sel->can_read) { Line 26  while (my @ready = $sel->can_read) {
26                  if ($fh == $sock) {                  if ($fh == $sock) {
27                          # let's create a new socket                          # let's create a new socket
28                          my $psock = $sock->accept;                          my $psock = $sock->accept;
29                            $psock->sockopt(SO_KEEPALIVE,1);
30                          $sel->add($psock);                          $sel->add($psock);
31                          $Handlers{*$psock} = LDAP::Koha->new($psock);                          $Handlers{*$psock} = LDAP::Koha->new($psock);
32                  } else {                  } else {
Legend:
Removed from v.34  
changed lines
  Added in v.102
  ViewVC Help
Powered by ViewVC 1.1.26