httemplate/misc/svc_cert-generate.html

   1 % if ($error) {
   2 % errorpage($error);
   3 %} else {
   4 <% $cgi->redirect($p."view/svc_cert.cgi?$svcnum") %>
   5 %}
   6 <%init>
   7
   8 $cgi->param('svcnum') =~ /^(\d+)$/ or die 'illegal svcnum';
   9 my $svcnum = $1;
  10
  11 my $svc_cert = qsearchs('svc_cert', { 'svcnum' => $svcnum } )
  12   or die 'unknown svcnum';
  13
  14 my $error = '';
  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;
  21 } else {
  22   die 'unknown action';
  23 }
  24
  25 </%init>