& /Minimal/Elements/Header, Title => loc('Preferences') &> <& /Elements/ListActions, actions => \@results &>
% require RT::Crypt::GnuPG; % my %res = RT::Crypt::GnuPG::GetKeyInfo( $UserObj->EmailAddress(), 'Public' ); % if($res{'exit_code'} || !keys %{ $res{'info'} } ){ <&|/Widgets/TitleBox, title => loc( 'Upload PGP Public Key' ) &> <& /Elements/Submit, Name => 'Upload', Label => loc('Upload Key') &> &> % } else { <&|/Widgets/TitleBox, title => loc( 'Purge Key' ) &> <&|/l&>Key&>: <& /Elements/GnuPG/SelectKeyForEncryption, EmailAddress => $UserObj->EmailAddress &> <& /Elements/Submit, Name => 'PurgeKey', Label => loc('Purge Key') &> &> % } |