#!/usr/bin/perl
-# $Id: ud-fingerserv,v 1.17 2004/10/24 18:35:31 joey Exp $
+# $Id: ud-fingerserv,v 1.19 2004/11/18 19:10:57 joey Exp $
# (c) 1999 Randolph Chung. Licensed under the GPL. <tausq@debian.org>
+# (c) 2004 Martin Schulze. Licensed under the GPL. <joey@debian.org>
use lib '/var/www/userdir-ldap/';
#use lib '/home/randolph/projects/userdir-ldap/web';
'key' => 'Key block',
'ircnick' => 'IRC nickname',
'icquin' => 'ICQ UIN',
+ 'jabberjid' => 'Jabber ID',
'labeleduri' => 'URL'
);
-my @summarykeys = ('cn', 'mn', 'sn', 'email', 'labeleduri', 'ircnick', 'icquin', 'keyfingerprint', 'key');
+my @summarykeys = ('cn', 'mn', 'sn', 'email', 'labeleduri', 'ircnick', 'icquin', 'jabberjid', 'keyfingerprint', 'key');
$SIG{__DIE__} = \&DieHandler;
$SIG{INT} = \&DieHandler;
foreach $key (split(/,/, $fields)) {
if ($key eq 'key') {
foreach (@keyfingerprint) {
- push (@{$data->{key}}, "\n".&Util::FetchKey($_));
+ push (@{$data->{key}}, "\n".&Util::FetchKey($_), 0);
}
}
foreach (@{$data->{$key}}) {