projects
/
mirror
/
userdir-ldap.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
bfbe924
)
fixed silly typo
author
tausq
<>
Sat, 16 Oct 1999 23:36:33 +0000
(23:36 +0000)
committer
tausq
<>
Sat, 16 Oct 1999 23:36:33 +0000
(23:36 +0000)
ud-fingerserv
patch
|
blob
|
history
diff --git
a/ud-fingerserv
b/ud-fingerserv
index
8822d70
..
3f5fae3
100755
(executable)
--- a/
ud-fingerserv
+++ b/
ud-fingerserv
@@
-1,5
+1,5
@@
#!/usr/bin/perl
#!/usr/bin/perl
-# $Id: ud-fingerserv,v 1.
5 1999/10/16 21:50:52
tausq Exp $
+# $Id: ud-fingerserv,v 1.
6 1999/10/17 01:36:33
tausq Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
@@
-16,7
+16,7
@@
use Net::LDAP qw(:all);
# Global settings...
my %config = &Util::ReadConfigFile;
my %opts;
# Global settings...
my %config = &Util::ReadConfigFile;
my %opts;
-getopts("iqh", \%opts);
+getopts("iqh
v
", \%opts);
my $use_inetd = $config{use_inetd} || $opts{i};
$| = 1;
my $use_inetd = $config{use_inetd} || $opts{i};
$| = 1;
@@
-42,7
+42,7
@@
$SIG{CHLD} = \&Reaper;
my $ldap = Net::LDAP->new($config{ldaphost}) || die $1;
$ldap->bind;
my $ldap = Net::LDAP->new($config{ldaphost}) || die $1;
$ldap->bind;
-if (
$use_inetd == 0
) {
+if (
!$use_inetd
) {
&log("Binding to port 79") if (defined($opts{v}));
my $server = IO::Socket::INET->new(Proto => 'tcp',
LocalPort => 'finger(79)',
&log("Binding to port 79") if (defined($opts{v}));
my $server = IO::Socket::INET->new(Proto => 'tcp',
LocalPort => 'finger(79)',