blob: 10e8ab4e9b79f4dda814533b89a3a54733c55ac6 (
plain)
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>
|