diff options
Diffstat (limited to 'rt/share/html/Admin/Elements/ShowKeyInfo')
| -rw-r--r-- | rt/share/html/Admin/Elements/ShowKeyInfo | 49 |
1 files changed, 34 insertions, 15 deletions
diff --git a/rt/share/html/Admin/Elements/ShowKeyInfo b/rt/share/html/Admin/Elements/ShowKeyInfo index 0a7ef0f02..035125957 100644 --- a/rt/share/html/Admin/Elements/ShowKeyInfo +++ b/rt/share/html/Admin/Elements/ShowKeyInfo @@ -45,18 +45,29 @@ %# those contributions and any derivatives thereof. %# %# END BPS TAGGED BLOCK }}} -<&| /Widgets/TitleBox, title => $title &> -% if ( $res{'exit_code'} || !keys %{ $res{'info'} } ) { -<% loc('No keys for this address') %> +<&| /Widgets/TitleBox, title => $title &><table> +% while ( my $protocol = shift @protocols ) { +% my %res = RT::Crypt->GetKeyInfo( +% Protocol => $protocol, +% Key => $EmailAddress, +% Type => $Type, +% ); +% if ( $res{'exit_code'} ) { +<tr><th colspan="2"><% loc("Couldn't get [_1] keys information", $protocol) %></th></tr> +% } elsif ( !keys %{ $res{'info'} } ) { +<tr><th colspan="2"><% loc('No [_1] keys for this address', $protocol) %></th></tr> % } else { -<table> -% unless ( $Type eq 'private' ) { +<tr><th colspan="2"><% loc("[_1] key '[_2]'", $protocol, $res{'info'}{'Formatted'} ) %></th></tr> + +% if ( $Type ne 'private' && $res{'info'}{'Trust'} ) { <tr><th class="label"><% loc('Trust') %>:</th> <td><% loc( $res{'info'}{'Trust'} ) %></td></tr> % } <tr><th class="label"><% loc('Fingerprint') %>:</th> <td><% $res{'info'}{'Fingerprint'} %></td></tr> + +% $_->CurrentUser( $session{CurrentUser} ) for grep {$_} (@{$res{'info'}}{qw|Created Expire|}); <tr><th class="label"><% loc('Created') %>:</th> <td><% $res{'info'}{'Created'}? $res{'info'}{'Created'}->AsString( Time => 0 ): loc('never') %></td></tr> @@ -64,30 +75,38 @@ <td><% $res{'info'}{'Expire'}? $res{'info'}{'Expire'}->AsString( Time => 0 ): loc('never') %></td></tr> % foreach my $uinfo( @{ $res{'info'}{'User'} } ) { +% if ($uinfo->{'Created'} or $uinfo->{'Expire'}) { +% $_->CurrentUser( $session{CurrentUser} ) for grep {$_} ($uinfo->{'Created'}, $uinfo->{'Expire'}); <tr><th class="label"><% loc('User (created - expire)') %>:</th> -<td><% $uinfo->{'String'} %>\ +<td><% $uinfo->{'String'} %> \ (<% $uinfo->{'Created'}? $uinfo->{'Created'}->AsString( Time => 0 ): loc('never') %> - \ -<% $uinfo->{'Expire'}? $uinfo->{'Expire'}->AsString( Time => 0 ): loc('never') %>) -</td></tr> +<% $uinfo->{'Expire'}? $uinfo->{'Expire'}->AsString( Time => 0 ): loc('never') %>)</td></tr> +% } else { +<tr><th class="label"><% loc('User') %>:</th> +<td><% $uinfo->{'String'} %></td></tr> +% } % } -</table> % } -</&> + +% if ( @protocols ) { +<tr><th colspan="2"> </th></tr> +% } + +% } +</table></&> <%ARGS> $EmailAddress $Type => 'public' </%ARGS> <%INIT> -require RT::Crypt::GnuPG; -my %res = RT::Crypt::GnuPG::GetKeyInfo( $EmailAddress, $Type ); +my @protocols = RT::Crypt->EnabledProtocols; my $title; unless ( $Type eq 'private' ) { - $title = loc('GnuPG public key(s) for [_1]', $EmailAddress); + $title = loc('Public key(s) for [_1]', $EmailAddress); } else { - $title = loc('GnuPG private key(s) for [_1]', $EmailAddress); + $title = loc('Private key(s) for [_1]', $EmailAddress); } - </%INIT> |