X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=ud-fingerserv;h=14444a7f13b2ba461981a1feff25dd84eb3b6305;hb=refs%2Fheads%2Ffordsa;hp=0794596650c83696222187d93ded37d4633a1a42;hpb=0159c3e12f39119617f4c93319a1500284f8958a;p=mirror%2Fuserdir-ldap.git

diff --git a/ud-fingerserv b/ud-fingerserv
index 0794596..14444a7 100755
--- a/ud-fingerserv
+++ b/ud-fingerserv
@@ -10,10 +10,11 @@ use lib '/var/www/userdir-ldap/';
 use strict vars;
 use IO::Handle;
 use IO::Socket;
+use Socket qw(:addrinfo);
 use POSIX qw(:sys_wait_h);
 use Getopt::Std;
 use Util;
-use Net::LDAP qw(:all);
+use Net::LDAP;
 
 # Global settings...
 my %config = &Util::ReadConfigFile;
@@ -102,8 +103,8 @@ if (!$use_inetd) {
   &log("inetd mode");
   my $sockaddr = getpeername(STDIN);
   if ($sockaddr) {
-    my ($port, $addr) = unpack_sockaddr_in(getpeername(STDIN));
-    &log(sprintf("[Connect from %s (%s)]", gethostbyaddr($addr, AF_INET), inet_ntoa($addr)));
+    my ($err, $hostname, $servicename) = getnameinfo($sockaddr, NI_NUMERICHOST|NI_NUMERICSERV);
+    &log(sprintf("[Connect from %s:%s]", $hostname, $servicename));
   } else {
     &log("[Connect via terminal]");
   }