httemplate/misc/svc_cert-generate.html


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

% if ($error) {
% errorpage($error);
%} else {
<% $cgi->redirect($p."view/svc_cert.cgi?$svcnum") %>
%}
<%init>

$cgi->param('svcnum') =~ /^(\d+)$/ or die 'illegal svcnum';
my $svcnum = $1;

my $svc_cert = qsearchs('svc_cert', { 'svcnum' => $svcnum } )
  or die 'unknown svcnum';

my $error = '';
if ( $cgi->param('action') eq 'generate_csr' ) {
  $svc_cert->generate_csr;
  $error = $svc_cert->replace;
} elsif ( $cgi->param('action') eq 'generate_selfsigned' ) {
  $svc_cert->generate_selfsigned;
  $error = $svc_cert->replace;
} else {
  die 'unknown action';
}

</%init>