diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-07-09 22:32:26 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-07-09 22:32:26 -0700 |
commit | 026dc7ad72ba972f230b6709e31fa64397d75ad4 (patch) | |
tree | c5af1a7ac9154744afc3660e9a9405892f2bb50b /rt/share/html/Admin/Users/GnuPG.html | |
parent | 07b4bc84d1078f7390221d766cdb3142513db4b0 (diff) | |
parent | 1c538bfabc2cd31f27067505f0c3d1a46cba6ef0 (diff) |
merge RT 4.2.11 and Header changes to disable RT javascript, RT#34237
Diffstat (limited to 'rt/share/html/Admin/Users/GnuPG.html')
-rw-r--r-- | rt/share/html/Admin/Users/GnuPG.html | 116 |
1 files changed, 0 insertions, 116 deletions
diff --git a/rt/share/html/Admin/Users/GnuPG.html b/rt/share/html/Admin/Users/GnuPG.html deleted file mode 100644 index 3ca593a5d..000000000 --- a/rt/share/html/Admin/Users/GnuPG.html +++ /dev/null @@ -1,116 +0,0 @@ -%# BEGIN BPS TAGGED BLOCK {{{ -%# -%# COPYRIGHT: -%# -%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC -%# <sales@bestpractical.com> -%# -%# (Except where explicitly superseded by other copyright notices) -%# -%# -%# LICENSE: -%# -%# This work is made available to you under the terms of Version 2 of -%# the GNU General Public License. A copy of that license should have -%# been provided with this software, but in any event can be snarfed -%# from www.gnu.org. -%# -%# This work is distributed in the hope that it will be useful, but -%# WITHOUT ANY WARRANTY; without even the implied warranty of -%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -%# General Public License for more details. -%# -%# You should have received a copy of the GNU General Public License -%# along with this program; if not, write to the Free Software -%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -%# 02110-1301 or visit their web page on the internet at -%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html. -%# -%# -%# CONTRIBUTION SUBMISSION POLICY: -%# -%# (The following paragraph is not intended to limit the rights granted -%# to you to modify and distribute this software under the terms of -%# the GNU General Public License and is only of importance to you if -%# you choose to contribute your changes and enhancements to the -%# community by submitting them to Best Practical Solutions, LLC.) -%# -%# By intentionally submitting any modifications, corrections or -%# derivatives to this work, or any other work intended for use with -%# Request Tracker, to Best Practical Solutions, LLC, you confirm that -%# you are the copyright holder for those contributions and you grant -%# Best Practical Solutions, LLC a nonexclusive, worldwide, irrevocable, -%# royalty-free, perpetual, license to use, copy, create derivative -%# works based on those contributions, and sublicense and distribute -%# those contributions and any derivatives thereof. -%# -%# END BPS TAGGED BLOCK }}} -<& /Admin/Elements/Header, Title => $title &> -<& /Elements/Tabs &> - -<& /Elements/ListActions, actions => \@results &> - -% if ( $email ) { -<& /Admin/Elements/ShowKeyInfo, EmailAddress => $email &> -% } else { -<h2><% loc("User has empty email address") %></h2> -% } - - -<form action="<%RT->Config->Get('WebPath')%>/Admin/Users/GnuPG.html" method="post" enctype="multipart/form-data"> -<input type="hidden" class="hidden" name="id" value="<% $UserObj->Id %>" /> - -<&|/Widgets/TitleBox, title => 'GnuPG private key'&> -<& /Widgets/Form/Select, - Name => 'PrivateKey', - Description => loc('Private Key'), - Values => \@potential_keys, - CurrentValue => $UserObj->PrivateKey, - DefaultLabel => loc('No private key'), -&> -</&> - -<& /Elements/Submit, Name => 'Update', Label => loc('Save Changes') &> -</form> -<%ARGS> -$id => undef -$Update => undef -</%ARGS> -<%INIT> -return unless RT->Config->Get('GnuPG')->{'Enable'}; - -require RT::Crypt::GnuPG; - -my @results; - -my $UserObj = RT::User->new( $session{'CurrentUser'} ); -$UserObj->Load( $id ); -unless ( $UserObj->id ) { - Abort( loc("Couldn't load user #[_1]", $id) ); -} -$id = $ARGS{'id'} = $UserObj->id; - -my $email = $UserObj->EmailAddress; -my %keys_meta = RT::Crypt::GnuPG::GetKeysForSigning( $email ); -my @potential_keys = map $_->{'Key'}, @{ $keys_meta{'info'} || [] }; - -$ARGS{'PrivateKey'} = $m->comp('/Widgets/Form/Select:Process', - Name => 'PrivateKey', - Arguments => \%ARGS, - Default => 1, -); - -if ( $Update ) { - if (not $ARGS{'PrivateKey'} or grep {$_ eq $ARGS{'PrivateKey'}} @potential_keys) { - if (($ARGS{'PrivateKey'}||'') ne ($UserObj->PrivateKey||'')) { - my ($status, $msg) = $UserObj->SetPrivateKey( $ARGS{'PrivateKey'} ); - push @results, $msg; - } - } else { - push @results, loc("Invalid key [_1] for address '[_2]'", $ARGS{'PrivateKey'}, $email); - } -} - -my $title = loc("[_1]'s GnuPG keys",$UserObj->Name); - -</%INIT> |