#!/usr/bin/perl
# $Id: ud-fingerserv,v 1.2 1999/10/05 02:54:29 tausq Exp $

# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>

use lib 'web';
use strict vars;
#use Apache::Registry;
use IO::Socket;
use Util;
use Net::LDAP qw(:all);

# Global settings...
my %config = &Util::ReadConfigFile;

my %attrs = (
  'cn' => 'First name',
  'mn' => 'Middle name',
  'sn' => 'Last name',
  'keyfingerprint' => 'Fingerprint',
  'key' => 'Key block',
  'ircnick' => 'IRC nickname'
);

my @summarykeys = ('cn', 'mn', 'sn', 'ircnick', 'keyfingerprint', 'key');

my ($ldap, $mesg, $dn, $entries, $data, %output, $key, $hostlist, $hostdetails, $selected, %summary);
sub DieHandler {
  $ldap->unbind if (defined($ldap));
}

$SIG{__DIE__} = \&DieHandler;

$ldap = Net::LDAP->new($config{ldaphost}) || &Util::HTMLError($!);
$mesg;
$ldap->bind;

my $server = IO::Socket::INET->new(Proto => 'tcp', 
                                   LocalPort => 'finger(79)',
				   Listen => SOMAXCONN,
				   Reuse => 1);

die "Cannot listen on finger port" unless $server;
print "[Server listening for connections]\n";

my ($mesg, %entries, $dn, $key);

my $client;
while ($client = $server->accept()) {
  $client->autoflush(1);
  my $hostinfo = gethostbyaddr($client->peeraddr, AF_INET);
  printf "[Connect from %s]\n", $hostinfo || $client->peerhost;
  my $query = <$client>;
  $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";

  $mesg = $ldap->search(base  => $config{basedn}, filter => "uid=$uid");
  $mesg->code && die $mesg->error;
  $entries = $mesg->as_struct;

  foreach $dn (sort {$entries->{$a}->{sn}->[0] <=> $entries->{$b}->{sn}->[0]} keys(%$entries)) {
    $data = $entries->{$dn};

    $data->{key} = [];    
    foreach (@{$data->{keyfingerprint}}) {
      push (@{$data->{key}}, "\n".&Util::FetchKey($_));
    }

    print $client "$dn\n";
    if (!$fields) {
      foreach $key (@summarykeys) {
        foreach (@{$data->{$key}}) {
          print $client "$attrs{$key}: ";
          print $client "$_\n";
        }
      }
    } else {
#      print "$fields\n";
      foreach $key (split(/,/, $fields)) {
        foreach (@{$data->{$key}}) {
          print $client "$attrs{$key}: ";
          print $client "$_\n";
        }
      }
    }
  }
  $client->close;
}

$ldap->unbind;