[Rt-commit] rt branch, admin_ui, updated. 0a1a50ebc6b2511acd414bc9a42ee6d57b6e3e74

sunnavy at bestpractical.com sunnavy at bestpractical.com
Sun Dec 27 22:57:51 EST 2009


The branch, admin_ui has been updated
       via  0a1a50ebc6b2511acd414bc9a42ee6d57b6e3e74 (commit)
      from  05ac7f1899ae815efebd09a6977ca4b77a7b9323 (commit)

Summary of changes:
 lib/RT/Dispatcher.pm        |    1 +
 lib/RT/View/Admin/Queues.pm |   40 ++++++++++++++++++++++++++++++++++++++++
 2 files changed, 41 insertions(+), 0 deletions(-)

- Log -----------------------------------------------------------------
commit 0a1a50ebc6b2511acd414bc9a42ee6d57b6e3e74
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Mon Dec 28 11:57:43 2009 +0800

    /admin/queues/gnupg view

diff --git a/lib/RT/Dispatcher.pm b/lib/RT/Dispatcher.pm
index e223069..1ca8492 100644
--- a/lib/RT/Dispatcher.pm
+++ b/lib/RT/Dispatcher.pm
@@ -453,6 +453,7 @@ before 'admin/queues' => run {
 
         $queue->child( _('Group rights'), url => "/admin/queues/group_rights?id=" . $id );
         $queue->child( _('User rights'),  url => "/admin/queues/user_rights?id=" . $id );
+        $queue->child( _('GnuPG'),  url => "/admin/queues/gnupg?id=" . $id );
     }
 };
 
diff --git a/lib/RT/View/Admin/Queues.pm b/lib/RT/View/Admin/Queues.pm
index 732e0b6..aab1b5a 100644
--- a/lib/RT/View/Admin/Queues.pm
+++ b/lib/RT/View/Admin/Queues.pm
@@ -50,6 +50,7 @@ use strict;
 
 package RT::View::Admin::Queues;
 use Jifty::View::Declare -base;
+use RT::View::Helpers qw/show_key_info/;
 use base 'RT::View::CRUD';
 
 require RT::View::Admin::Queues::Templates;
@@ -193,6 +194,45 @@ sub queue {
     return $queue;
 }
 
+template 'gnupg' => page { title => _('Queue GnuPG') } content {
+    my $self = shift;
+
+    # TODO move the following line to Dispatcher
+    return unless RT->config->get('gnupg')->{'enable'};
+
+    require RT::Crypt::GnuPG;
+
+    my $queue = RT::Model::Queue->new;
+    $queue->load(get('id'));
+
+    my $moniker = 'modify_queue_gnupg';
+    my $action = new_action(
+        class   => 'EditQueueGnuPG',
+        moniker => $moniker,
+    );
+    $action->queue($queue);
+
+    with( name => $moniker ), form {
+        input {
+            type is 'hidden';
+            name is 'id';
+            value is get('id');
+        };
+        render_action($action);
+        form_submit( label => _('Save') );
+    };
+
+    if ( $queue->correspond_address ) {
+        show_key_info( $queue->correspond_address, 'private' );
+    }
+
+    if ( $queue->comment_address ) {
+        show_key_info( $queue->comment_address, 'private' );
+    }
+
+
+};
+
 
 1;
 

-----------------------------------------------------------------------


More information about the Rt-commit mailing list