-my @summarykeys = ('cn', 'mn', 'sn', 'email', 'labeleduri', 'ircnick', 'icquin', 'keyfingerprint', 'key');
+my @summarykeys = ('cn', 'mn', 'sn', 'email', 'labeleduri', 'ircnick', 'icquin', 'jabberjid', 'keyfingerprint', 'key');
- my ($port, $addr) = unpack_sockaddr_in(getpeername(STDIN));
- &log(sprintf("[Connect from %s (%s)]", gethostbyaddr($addr, AF_INET), inet_ntoa($addr)));
+ if ($sockaddr) {
+ my ($port, $addr) = unpack_sockaddr_in(getpeername(STDIN));
+ &log(sprintf("[Connect from %s (%s)]", gethostbyaddr($addr, AF_INET), inet_ntoa($addr)));
+ } else {
+ &log("[Connect via terminal]");
+ }
my $query = &readdata(\*STDIN);
&ProcessQuery(\*STDOUT, $query) if (defined($query));
exit;
my $query = &readdata(\*STDIN);
&ProcessQuery(\*STDOUT, $query) if (defined($query));
exit;
$data->{email}->[0] = sprintf("%s %s %s <%s>", $data->{cn}->[0],
$data->{mn}->[0], $data->{sn}->[0],
$data->{uid}->[0]."\@$config{emailappend}");
$data->{email}->[0] =~ s/\s+/ /g;
$data->{email}->[0] = sprintf("%s %s %s <%s>", $data->{cn}->[0],
$data->{mn}->[0], $data->{sn}->[0],
$data->{uid}->[0]."\@$config{emailappend}");
$data->{email}->[0] =~ s/\s+/ /g;
$data->{keyfingerprint}->[$i] = &Util::FormatFingerPrint($data->{keyfingerprint}->[$i]);
$data->{keyfingerprint}->[$i] =~ s, , ,;
}
print $client "$dn\n";
if (!$fields) {
$data->{keyfingerprint}->[$i] = &Util::FormatFingerPrint($data->{keyfingerprint}->[$i]);
$data->{keyfingerprint}->[$i] =~ s, , ,;
}
print $client "$dn\n";
if (!$fields) {
foreach $key (@summarykeys) {
foreach (@{$data->{$key}}) {
print $client "$attrs{$key}: ";
foreach $key (@summarykeys) {
foreach (@{$data->{$key}}) {
print $client "$attrs{$key}: ";