4 <% $cgi->redirect($p."view/svc_cert.cgi?$svcnum") %>
8 $cgi->param('svcnum') =~ /^(\d+)$/ or die 'illegal svcnum';
11 my $svc_cert = qsearchs('svc_cert', { 'svcnum' => $svcnum } )
12 or die 'unknown svcnum';
15 if ( $cgi->param('action') eq 'generate_csr' ) {
16 $svc_cert->generate_csr;
17 $error = $svc_cert->replace;
18 } elsif ( $cgi->param('action') eq 'generate_selfsigned' ) {
19 $svc_cert->generate_selfsigned;
20 $error = $svc_cert->replace;