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;
|
$expires, $u2, $ownertrust, $uid) = split ":", $key;
|
||||||
# stupid way of "decoding" utf8 (at least it works for ":")
|
# stupid way of "decoding" utf8 (at least it works for ":")
|
||||||
$uid =~ s/\\x3a/:/g;
|
$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;
|
return @keys;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue