/[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 33 by dpavlin, Mon Mar 23 20:26:48 2009 UTC revision 34 by dpavlin, Mon Mar 23 21:55:39 2009 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 $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;
Legend:
Removed from v.33  
changed lines
  Added in v.34
  ViewVC Help
Powered by ViewVC 1.1.26