fixed key retrieval

This commit is contained in:
lars 2006-04-03 10:59:34 +00:00
parent c0f21102eb
commit 9ce1fff298

View file

@ -391,7 +391,10 @@ sub _get_keys() {
$expires, $u2, $ownertrust, $uid) = split ":", $key;
# stupid way of "decoding" utf8 (at least it works for ":")
$uid =~ s/\\x3a/:/g;
push @keys, {uid => $uid, id => $id};
$uid =~ /^(.*) <([^<]*)>/;
my $name = $1;
my $email = $2;
push @keys, {name => $name, email => $email, id => $id, expires => $expires};
}
return @keys;
}