Parent Directory | Revision Log | Patch
revision 34 by dpavlin, Mon Mar 23 21:55:39 2009 UTC | revision 37 by dpavlin, Wed Mar 25 21:24:33 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 $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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |