fixed key retrieval
This commit is contained in:
parent
c0f21102eb
commit
9ce1fff298
1 changed files with 4 additions and 1 deletions
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue