From 5f16f12e574f76e0fd1fe097b8286d06409949ac Mon Sep 17 00:00:00 2001
From: tausq <>
Date: Thu, 14 Oct 1999 02:28:59 +0000
Subject: [PATCH] Made fingerserv forking; much faster this way...

---
 ud-fingerserv | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/ud-fingerserv b/ud-fingerserv
index 915715d..67fc24f 100755
--- a/ud-fingerserv
+++ b/ud-fingerserv
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: ud-fingerserv,v 1.2 1999/10/05 02:54:29 tausq Exp $
+# $Id: ud-fingerserv,v 1.3 1999/10/14 04:28:59 tausq Exp $
 
 # (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
 
@@ -7,6 +7,7 @@ use lib 'web';
 use strict vars;
 #use Apache::Registry;
 use IO::Socket;
+use POSIX qw(:sys_wait_h);
 use Util;
 use Net::LDAP qw(:all);
 
@@ -29,7 +30,13 @@ sub DieHandler {
   $ldap->unbind if (defined($ldap));
 }
 
+sub Reaper {
+  1 until (-1 == waitpid(-1, WNOHANG));
+  $SIG{CHLD} = \&Reaper;
+}
+
 $SIG{__DIE__} = \&DieHandler;
+$SIG{CHLD} = \&Reaper;
 
 $ldap = Net::LDAP->new($config{ldaphost}) || &Util::HTMLError($!);
 $mesg;
@@ -43,10 +50,14 @@ my $server = IO::Socket::INET->new(Proto => 'tcp',
 die "Cannot listen on finger port" unless $server;
 print "[Server listening for connections]\n";
 
-my ($mesg, %entries, $dn, $key);
+my ($mesg, %entries, $dn, $key, $pid);
 
 my $client;
 while ($client = $server->accept()) {
+  next if $pid = fork; # parent
+  die "fork: $!" unless defined $pid;
+  
+  # child
   $client->autoflush(1);
   my $hostinfo = gethostbyaddr($client->peeraddr, AF_INET);
   printf "[Connect from %s]\n", $hostinfo || $client->peerhost;
@@ -54,7 +65,7 @@ while ($client = $server->accept()) {
   $query =~ s/[^\/,0-9a-z]//gi; # be paranoid about input
   my ($uid, $fields) = split(/\//, $query, 2);
   
-  print "Looking up $uid at $config{basedn}, uid=$uid\n";
+#  print "Looking up $uid at $config{basedn}, uid=$uid\n";
 
   $mesg = $ldap->search(base  => $config{basedn}, filter => "uid=$uid");
   $mesg->code && die $mesg->error;
@@ -87,6 +98,9 @@ while ($client = $server->accept()) {
     }
   }
   $client->close;
+  exit;
+} continue {
+  $client->close;
 }
 
 $ldap->unbind;
-- 
2.20.1