From 1fe4570cf952ba3f4162f041b2bcaf8a92330505 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 8 Nov 2010 00:01:59 +0000
Subject: certificates ala communigate, RT#7515

---
 httemplate/edit/process/svc_cert.cgi        |  8 ++++++++
 httemplate/edit/svc_cert/import_cacert.html | 22 ++++++++++++++++++++++
 2 files changed, 30 insertions(+)
 create mode 100644 httemplate/edit/svc_cert/import_cacert.html

(limited to 'httemplate/edit')

diff --git a/httemplate/edit/process/svc_cert.cgi b/httemplate/edit/process/svc_cert.cgi
index a8dc0ca8a..0e6037e31 100644
--- a/httemplate/edit/process/svc_cert.cgi
+++ b/httemplate/edit/process/svc_cert.cgi
@@ -66,6 +66,14 @@ if ( $cgi->param('privatekey') eq '_generate' ) { #generate
   $new->certificate( $cgi->param('certificate') );
   $new->$_( $old->$_ ) for grep $old->$_, qw( recnum common_name organization organization_unit city state country cert_contact );
 
+} elsif ( $cgi->param('cacert') ) {
+
+  $popup = 'view';
+  $title = 'Certificate authority chain imported';
+
+  $new->cacert( $cgi->param('cacert') );
+  $new->$_( $old->$_ ) for grep $old->$_, qw( recnum common_name organization organization_unit city state country cert_contact );
+
 }
 
 my $error = '';
diff --git a/httemplate/edit/svc_cert/import_cacert.html b/httemplate/edit/svc_cert/import_cacert.html
new file mode 100644
index 000000000..bc6f4e7f3
--- /dev/null
+++ b/httemplate/edit/svc_cert/import_cacert.html
@@ -0,0 +1,22 @@
+<% include('/elements/header-popup.html', 'Import certificate authority chain' ) %>
+
+<% include('/elements/error.html') %>
+
+<FORM NAME="ImportKeyForm" ACTION="<% $p %>process/svc_cert.cgi" METHOD="POST">
+
+<INPUT TYPE="hidden" NAME="svcnum" VALUE="<% $svcnum %>">
+
+<TEXTAREA NAME="cacert" COLS=64 ROWS=15 STYLE="font-family:monospace"></TEXTAREA>
+
+<BR><BR>
+<INPUT TYPE="submit" VALUE="Import">
+
+</FORM>
+</BODY>
+</HTML>
+<%init>
+
+$cgi->param('svcnum') =~ /^(\d*)$/ or die 'illegal svcnum';
+my $svcnum = $1;
+
+</%init>
-- 
cgit v1.2.1