[Rt-commit] r7395 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Thu Mar 29 11:54:11 2007
New Revision: 7395

Added:
   rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/ShowPrivateKeyInfo
Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)

Log:
 r4851 at cubic-pc:  cubic | 2007-03-29 19:47:58 +0400
 * Elements/ShowPrivateKeyInfo


Added: rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/ShowPrivateKeyInfo
==============================================================================
--- (empty file)
+++ rt/branches/3.7-EXPERIMENTAL/html/Admin/Elements/ShowPrivateKeyInfo	Thu Mar 29 11:54:11 2007
@@ -0,0 +1,21 @@
+<&| /Widgets/TitleBox, title => loc('GnuPG private key for [_1]', $EmailAddress) &>
+% if ( $res{'exit_code'} ) {
+<% loc('No private key') %>
+% } else {
+<table>
+<tr><th><% loc('User') %>:</th>   <td><% $res{'info'}{'User'} %></td></tr>
+<tr><th><% loc('Created') %>:</th><td><% $res{'info'}{'Created'} %></td></tr>
+<tr><th><% loc('Expire') %>:</th>  <td><% $res{'info'}{'Expire'} %></td></tr>
+</table>
+% }
+</&>
+
+<%ARGS>
+$EmailAddress
+</%ARGS>
+<%INIT>
+require RT::Crypt::GnuPG;
+my %res = RT::Crypt::GnuPG::GetPrivateKeyInfo( $EmailAddress );
+
+</%INIT>
+