← Back to branch summary

~bestpractical/rt/master

« back to all changes in this revision

Viewing changes to share/html/Admin/Users/GnuPG.html

  • Committer: sunnavy
  • Date: 2008-05-14 13:22:46 UTC
  • Revision ID: git-v1:0f0c8baef62a06a13d6fb54683d6c7d75d5f1283
source layout change! html now lives in share/html

git-svn-id: svn+ssh://svn.bestpractical.com/svn/bps-public/rt/branches/3.8-TESTING@12308 e417ac7c-1bcc-0310-8ffa-8f5827389a85

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/html/Admin/Users/GnuPG.html
 
1
%# BEGIN BPS TAGGED BLOCK {{{
 
2
%# 
 
3
%# COPYRIGHT:
 
4
%#  
 
5
%# This software is Copyright (c) 1996-2008 Best Practical Solutions, LLC 
 
6
%#                                          <jesse@bestpractical.com>
 
7
%# 
 
8
%# (Except where explicitly superseded by other copyright notices)
 
9
%# 
 
10
%# 
 
11
%# LICENSE:
 
12
%# 
 
13
%# This work is made available to you under the terms of Version 2 of
 
14
%# the GNU General Public License. A copy of that license should have
 
15
%# been provided with this software, but in any event can be snarfed
 
16
%# from www.gnu.org.
 
17
%# 
 
18
%# This work is distributed in the hope that it will be useful, but
 
19
%# WITHOUT ANY WARRANTY; without even the implied warranty of
 
20
%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
21
%# General Public License for more details.
 
22
%# 
 
23
%# You should have received a copy of the GNU General Public License
 
24
%# along with this program; if not, write to the Free Software
 
25
%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 
26
%# 02110-1301 or visit their web page on the internet at
 
27
%# http://www.gnu.org/licenses/old-licenses/gpl-2.0.html.
 
28
%# 
 
29
%# 
 
30
%# CONTRIBUTION SUBMISSION POLICY:
 
31
%# 
 
32
%# (The following paragraph is not intended to limit the rights granted
 
33
%# to you to modify and distribute this software under the terms of
 
34
%# the GNU General Public License and is only of importance to you if
 
35
%# you choose to contribute your changes and enhancements to the
 
36
%# community by submitting them to Best Practical Solutions, LLC.)
 
37
%# 
 
38
%# By intentionally submitting any modifications, corrections or
 
39
%# derivatives to this work, or any other work intended for use with
 
40
%# Request Tracker, to Best Practical Solutions, LLC, you confirm that
 
41
%# you are the copyright holder for those contributions and you grant
 
42
%# Best Practical Solutions,  LLC a nonexclusive, worldwide, irrevocable,
 
43
%# royalty-free, perpetual, license to use, copy, create derivative
 
44
%# works based on those contributions, and sublicense and distribute
 
45
%# those contributions and any derivatives thereof.
 
46
%# 
 
47
%# END BPS TAGGED BLOCK }}}
 
48
<& /Admin/Elements/Header, Title => $title  &>
 
49
<& /Admin/Elements/UserTabs, 
 
50
    id          => $id, 
 
51
    UserObj     => $UserObj,
 
52
    current_tab => 'Admin/Users/GnuPG.html?id='. $id,
 
53
    Title       => $title,
 
54
&>
 
55
 
 
56
<& /Elements/ListActions, actions => \@results &>
 
57
 
 
58
% if ( $email ) {
 
59
<& /Admin/Elements/ShowKeyInfo, EmailAddress => $email &>
 
60
% } else {
 
61
<h2><% loc("User has empty email address") %></h2>
 
62
% }
 
63
 
 
64
<form action="<%RT->Config->Get('WebPath')%>/Admin/Users/GnuPG.html" method="post" enctype="multipart/form-data">
 
65
<input type="hidden" class="hidden" name="id" value="<% $UserObj->Id %>" />
 
66
 
 
67
<& /Widgets/Form/Select,
 
68
    Name         => 'PrivateKey',
 
69
    Description  => loc('Private Key'),
 
70
    Values       => [ map $_->{'Key'}, @{ $keys_meta{'info'} } ],
 
71
    CurrentValue => $UserObj->PrivateKey,
 
72
    DefaultLabel => loc('No private key'),
 
73
&>
 
74
 
 
75
<& /Elements/Submit, Name => 'Update', Label => loc('Save Changes') &>
 
76
</form>
 
77
 
 
78
<%ARGS>
 
79
$id         => undef
 
80
$Update     => undef
 
81
</%ARGS>
 
82
<%INIT>
 
83
return unless RT->Config->Get('GnuPG')->{'Enable'};
 
84
 
 
85
require RT::Crypt::GnuPG;
 
86
 
 
87
my @results;
 
88
 
 
89
my $UserObj = RT::User->new( $session{'CurrentUser'} );
 
90
$UserObj->Load( $id );
 
91
unless ( $UserObj->id ) {
 
92
    Abort( loc("Couldn't load user #[_1]", $id) );
 
93
}
 
94
$id = $ARGS{'id'} = $UserObj->id;
 
95
 
 
96
my $email = $UserObj->EmailAddress;
 
97
my %keys_meta = RT::Crypt::GnuPG::GetKeysForSigning( $email, 'force' );
 
98
 
 
99
$ARGS{'PrivateKey'} = $m->comp('/Widgets/Form/Select:Process',
 
100
    Name      => 'PrivateKey',
 
101
    Arguments => \%ARGS,
 
102
    Default   => 1,
 
103
);
 
104
 
 
105
if ( $Update ) {
 
106
    my ($status, $msg) = $UserObj->SetPrivateKey( $ARGS{'PrivateKey'} );
 
107
    push @results, $msg;
 
108
}
 
109
 
 
110
my $title = loc("User's GnuPG keys");
 
111
 
 
112
</%INIT>