httemplate/edit/svc_cert.cgi

   1 <% include('/elements/header.html', "$action $svc", '') %>
   2
   3 <% include('/elements/error.html') %>
   4
   5 <FORM ACTION="<% $p %>edit/process/svc_cert.cgi" METHOD=POST>
   6 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<% $svcnum %>">
   7 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<% $pkgnum %>">
   8 <INPUT TYPE="hidden" NAME="svcpart" VALUE="<% $svcpart %>">
   9
  10 <% ntable("#cccccc",2) %>
  11
  12 <TR>
  13   <TD ALIGN="right">Private key</TD>
  14   <TD BGCOLOR="#ffffff">
  15 %   if ( $svc_cert->privatekey && $svc_cert->check_privatekey ) {
  16       <FONT COLOR="#33ff33">Verification OK</FONT>
  17 %     # remove key & cert link?  just unprovision?
  18   </TD>
  19 </TR>
  20
  21 % my $cust_main = $svc_cert->cust_svc->cust_pkg->cust_main;
  22
  23 <TR>
  24   <TD ALIGN="right">Organization</TD>
  25   <TD><INPUT TYPE="text" NAME="organization" SIZE=40 MAXLENGTH=80 VALUE="<% $svc_cert->organization || $cust_main->company |h %>"></TD>
  26 </TR>
  27
  28 <TR>
  29   <TD ALIGN="right">Organization Unit</TD>
  30   <TD><INPUT TYPE="text" NAME="organization_unit" SIZE=40 MAXLENGTH=80 VALUE="<% $svc_cert->organization_unit |h %>"></TD>
  31 </TR>
  32
  33 <TR>
  34   <TD ALIGN="right">City</TD>
  35   <TD><% include('/elements/city.html',
  36                    'city'    => $svc_cert->city    || $cust_main->city,
  37                    'state'   => $svc_cert->state   || $cust_main->state,
  38                    'country' => $svc_cert->country || $cust_main->country,
  39                 )
  40       %>
  41   </TD>
  42 </TR>
  43
  44 <TR>
  45   <TD ALIGN="right">State</TD>
  46   <TD><% include('/elements/select-state.html',
  47                    'city'    => $svc_cert->city    || $cust_main->city,
  48                    'state'   => $svc_cert->state   || $cust_main->state,
  49                    'country' => $svc_cert->country || $cust_main->country,
  50                 )
  51       %>
  52   </TD>
  53 </TR>
  54
  55 <TR>
  56   <TD ALIGN="right">City</TD>
  57   <TD><% include('/elements/select-country.html',
  58                    'city'    => $svc_cert->city    || $cust_main->city,
  59                    'state'   => $svc_cert->state   || $cust_main->state,
  60                    'country' => $svc_cert->country || $cust_main->country,
  61                 )
  62       %>
  63   </TD>
  64 </TR>
  65
  66 %   } else {
  67 %     my $re = '';
  68 %     if ( $svc_cert->privatekey ) {
  69         <FONT COLOR="#ff0000">Verification error</FONT>
  70 %       $re = 'Clear and Re-';
  71 %     }
  72       <% include('/elements/popup_link.html', {
  73           'action'         => "svc_cert/generate_privatekey.html$link_query",
  74           'label'          => $re.'Generate',
  75           'actionlabel'    => 'Generate private key',
  76           #opt
  77           'width'          => '350',
  78           'height'         => '150'
  79           #'color'          => '#ff0000',
  80           #'closetext'      => 'Go Away',      # the value '' removes the link
  81       })%>
  82
  83       or
  84
  85       <% include('/elements/popup_link.html', {
  86           'action'         => "svc_cert/import_privatekey.html$link_query",
  87           'label'          => $re.'Import',
  88           'actionlabel'    => 'Import private key',
  89           #opt
  90           'width'          => '544',
  91           'height'         => '368',
  92           #'color'          => '#ff0000',
  93           #'closetext'      => 'Go Away',      # the value '' removes the link
  94       })%>
  95 %     if ( $svc_cert->privatekey ) {
  96 <PRE><% $svc_cert->privatekey |h %></PRE>
  97 %     }
  98   </TD>
  99 </TR>
 100 %   }
 101
 102 </TABLE>
 103 <BR>
 104
 105 <INPUT TYPE="submit" VALUE="Submit">
 106
 107 </FORM>
 108
 109 <% include('/elements/footer.html') %>
 110
 111 <%init>
 112
 113 die "access denied"
 114   unless $FS::CurrentUser::CurrentUser->access_right('Provision customer service'); #something else more specific?
 115
 116 my $conf = new FS::Conf;
 117
 118 my($svcnum, $pkgnum, $svcpart, $part_svc, $svc_cert );
 119 if ( $cgi->param('error') ) {
 120
 121   $svc_cert = new FS::svc_cert ( {
 122     map { $_, scalar($cgi->param($_)) } fields('svc_cert')
 123   } );
 124   $svcnum = $svc_cert->svcnum;
 125   $pkgnum = $cgi->param('pkgnum');
 126   $svcpart = $cgi->param('svcpart');
 127   $part_svc = qsearchs('part_svc', { 'svcpart' => $svcpart } );
 128   die "No part_svc entry!" unless $part_svc;
 129
 130 } elsif ( $cgi->param('pkgnum') && $cgi->param('svcpart') ) { #adding
 131
 132   $cgi->param('pkgnum') =~ /^(\d+)$/ or die 'unparsable pkgnum';
 133   $pkgnum = $1;
 134   $cgi->param('svcpart') =~ /^(\d+)$/ or die 'unparsable svcpart';
 135   $svcpart = $1;
 136
 137   $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
 138   die "No part_svc entry!" unless $part_svc;
 139
 140   $svc_cert = new FS::svc_cert({});
 141
 142   $svcnum='';
 143
 144   $svc_cert->set_default_and_fixed;
 145
 146 } else { #editing
 147
 148   my($query) = $cgi->keywords;
 149   $query =~ /^(\d+)$/ or die "unparsable svcnum";
 150   $svcnum=$1;
 151   $svc_cert=qsearchs('svc_cert',{'svcnum'=>$svcnum})
 152     or die "Unknown (svc_cert) svcnum!";
 153
 154   my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum})
 155     or die "Unknown (cust_svc) svcnum!";
 156
 157   $pkgnum=$cust_svc->pkgnum;
 158   $svcpart=$cust_svc->svcpart;
 159
 160   $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart});
 161   die "No part_svc entry!" unless $part_svc;
 162
 163 }
 164 my $action = $svcnum ? 'Edit' : 'Add';
 165
 166 my $svc = $part_svc->getfield('svc');
 167
 168 #my $otaker = getotaker;
 169
 170 my $p1 = popurl(1);
 171
 172 my $link_query = "?svcnum=$svcnum;pkgnum=$pkgnum;svcpart=$svcpart";
 173
 174 </%init>