httemplate/edit/svc_acct.cgi

   1 <%
   2
   3 my $conf = new FS::Conf;
   4 my @shells = $conf->config('shells');
   5
   6 my($svcnum, $pkgnum, $svcpart, $part_svc, $svc_acct, @groups);
   7 if ( $cgi->param('error') ) {
   8
   9   $svc_acct = new FS::svc_acct ( {
  10     map { $_, scalar($cgi->param($_)) } fields('svc_acct')
  11   } );
  12   $svcnum = $svc_acct->svcnum;
  13   $pkgnum = $cgi->param('pkgnum');
  14   $svcpart = $cgi->param('svcpart');
  15   $part_svc = qsearchs( 'part_svc', { 'svcpart' => $svcpart } );
  16   die "No part_svc entry for svcpart $svcpart!" unless $part_svc;
  17   @groups = $cgi->param('radius_usergroup');
  18
  19 } else {
  20
  21   my($query) = $cgi->keywords;
  22   if ( $query =~ /^(\d+)$/ ) { #editing
  23     $svcnum=$1;
  24     $svc_acct=qsearchs('svc_acct',{'svcnum'=>$svcnum})
  25       or die "Unknown (svc_acct) svcnum!";
  26
  27     my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum})
  28       or die "Unknown (cust_svc) svcnum!";
  29
  30     $pkgnum=$cust_svc->pkgnum;
  31     $svcpart=$cust_svc->svcpart;
  32
  33     $part_svc = qsearchs( 'part_svc', { 'svcpart' => $svcpart } );
  34     die "No part_svc entry for svcpart $svcpart!" unless $part_svc;
  35
  36     @groups = $svc_acct->radius_groups;
  37
  38   } else { #adding
  39
  40     foreach $_ (split(/-/,$query)) {
  41       $pkgnum=$1 if /^pkgnum(\d+)$/;
  42       $svcpart=$1 if /^svcpart(\d+)$/;
  43     }
  44     $part_svc = qsearchs( 'part_svc', { 'svcpart' => $svcpart } );
  45     die "No part_svc entry for svcpart $svcpart!" unless $part_svc;
  46
  47     $svc_acct = new FS::svc_acct({svcpart => $svcpart});
  48
  49     $svcnum='';
  50
  51   }
  52 }
  53
  54 my( $cust_pkg, $cust_main ) = ( '', '' );
  55 if ( $pkgnum ) {
  56   $cust_pkg = qsearchs('cust_pkg', { 'pkgnum' => $pkgnum } );
  57   $cust_main = $cust_pkg->cust_main;
  58 }
  59
  60 unless ( $svcnum || $cgi->param('error') ) { #adding
  61
  62   #set gecos
  63   if ($cust_main) {
  64     unless ( $part_svc->part_svc_column('uid')->columnflag eq 'F' ) {
  65       $svc_acct->setfield('finger',
  66         $cust_main->getfield('first') . " " . $cust_main->getfield('last')
  67       );
  68     }
  69   }
  70
  71   $svc_acct->set_default_and_fixed( {
  72     #false laziness w/svc-acct::_fieldhandlers
  73     'usergroup' => sub {
  74                          my( $self, $groups ) = @_;
  75                          if ( ref($groups) eq 'ARRAY' ) {
  76                            @groups = @$groups;
  77                            $groups;
  78                          } elsif ( length($groups) ) {
  79                            @groups = split(/\s*,\s*/, $groups);
  80                            [ @groups ];
  81                          } else {
  82                            @groups = ();
  83                            [];
  84                          }
  85                        }
  86   } );
  87
  88 }
  89
  90 #fixed radius groups always override & display
  91 if ( $part_svc->part_svc_column('usergroup')->columnflag eq 'F' ) {
  92   @groups = split(',', $part_svc->part_svc_column('usergroup')->columnvalue);
  93 }
  94
  95 my $action = $svcnum ? 'Edit' : 'Add';
  96
  97 my $svc = $part_svc->getfield('svc');
  98
  99 my $otaker = getotaker;
 100
 101 my $username = $svc_acct->username;
 102 my $password;
 103 if ( $svc_acct->_password ) {
 104   if ( $conf->exists('showpasswords') || ! $svcnum ) {
 105     $password = $svc_acct->_password;
 106   } else {
 107     $password = "*HIDDEN*";
 108   }
 109 } else {
 110   $password = '';
 111 }
 112
 113 my $ulen =
 114   $conf->exists('usernamemax')
 115   ? $conf->config('usernamemax')
 116   : dbdef->table('svc_acct')->column('username')->length;
 117 my $ulen2 = $ulen+2;
 118
 119 my $pmax = $conf->config('passwordmax') || 8;
 120 my $pmax2 = $pmax+2;
 121
 122 my $p1 = popurl(1);
 123
 124 %>
 125
 126 <%= include("/elements/header.html","$action $svc account") %>
 127
 128 <% if ( $cgi->param('error') ) { %>
 129   <FONT SIZE="+1" COLOR="#ff0000">Error: <%= $cgi->param('error') %></FONT>
 130   <BR><BR>
 131 <% } %>
 132
 133 <% if ( $cust_main ) { %>
 134   <%= include( '/elements/small_custview.html', $cust_main, '', 1 ) %>
 135   <BR>
 136 <% } %>
 137
 138 <FORM NAME="OneTrueForm" ACTION="<%= $p1 %>process/svc_acct.cgi" METHOD=POST>
 139 <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%= $svcnum %>">
 140 <INPUT TYPE="hidden" NAME="pkgnum" VALUE="<%= $pkgnum %>">
 141 <INPUT TYPE="hidden" NAME="svcpart" VALUE="<%= $svcpart %>">
 142
 143 Service # <%= $svcnum ? "<B>$svcnum</B>" : " (NEW)" %><BR>
 144
 145 <%= ntable("#cccccc",2) %>
 146
 147 <TR>
 148   <TD ALIGN="right">Service</TD>
 149   <TD BGCOLOR="#eeeeee"><%= $part_svc->svc %></TD>
 150 </TR>
 151
 152 <TR>
 153   <TD ALIGN="right">Username</TD>
 154   <TD>
 155     <INPUT TYPE="text" NAME="username" VALUE="<%= $username %>" SIZE=<%= $ulen2 %> MAXLENGTH=<%= $ulen %>>
 156   </TD>
 157 </TR>
 158
 159 <TR>
 160   <TD ALIGN="right">Password</TD>
 161   <TD>
 162     <INPUT TYPE="text" NAME="_password" VALUE="<%= $password %>" SIZE=<%= $pmax2 %> MAXLENGTH=<%= $pmax %>>
 163     (blank to generate)
 164   </TD>
 165 </TR>
 166
 167
 168 <%
 169 my $sec_phrase = $svc_acct->sec_phrase;
 170 if ( $conf->exists('security_phrase') ) {
 171 %>
 172
 173   <TR>
 174     <TD ALIGN="right">Security phrase</TD>
 175     <TD>
 176       <INPUT TYPE="text" NAME="sec_phrase" VALUE="<%= $sec_phrase %>" SIZE=32>
 177       (for forgotten passwords)
 178     </TD>
 179   </TD>
 180
 181 <% } else { %>
 182
 183   <INPUT TYPE="hidden" NAME="sec_phrase" VALUE="<%= $sec_phrase %>">
 184
 185 <% } %>
 186
 187
 188 <%
 189 #domain
 190 my $domsvc = $svc_acct->domsvc || 0;
 191 if ( $part_svc->part_svc_column('domsvc')->columnflag eq 'F' ) {
 192 %>
 193
 194   <INPUT TYPE="hidden" NAME="domsvc" VALUE="<%= $domsvc %>">
 195
 196 <% } else {
 197
 198   my %svc_domain = ();
 199
 200   if ( $domsvc ) {
 201     my $svc_domain = qsearchs('svc_domain', { 'svcnum' => $domsvc, } );
 202     if ( $svc_domain ) {
 203       $svc_domain{$svc_domain->svcnum} = $svc_domain;
 204     } else {
 205       warn "unknown svc_domain.svcnum for svc_acct.domsvc: $domsvc";
 206     }
 207   }
 208
 209   if ( $part_svc->part_svc_column('domsvc')->columnflag eq 'D' ) {
 210     my $svc_domain = qsearchs('svc_domain', {
 211       'svcnum' => $part_svc->part_svc_column('domsvc')->columnvalue,
 212     } );
 213     if ( $svc_domain ) {
 214       $svc_domain{$svc_domain->svcnum} = $svc_domain;
 215     } else {
 216       warn "unknown svc_domain.svcnum for part_svc_column domsvc: ".
 217            $part_svc->part_svc_column('domsvc')->columnvalue;
 218     }
 219   }
 220
 221   if ($cust_pkg && !$conf->exists('svc_acct-alldomains') ) {
 222     my @cust_svc =
 223       map { qsearch('cust_svc', { 'pkgnum' => $_->pkgnum } ) }
 224           qsearch('cust_pkg', { 'custnum' => $cust_pkg->custnum } );
 225     foreach my $cust_svc ( @cust_svc ) {
 226       my $svc_domain =
 227         qsearchs('svc_domain', { 'svcnum' => $cust_svc->svcnum } );
 228      $svc_domain{$svc_domain->svcnum} = $svc_domain if $svc_domain;
 229     }
 230   } else {
 231     %svc_domain = map { $_->svcnum => $_ } qsearch('svc_domain', {} );
 232   }
 233
 234 %>
 235
 236   <TR>
 237     <TD ALIGN="right">Domain</TD>
 238     <TD>
 239       <SELECT NAME="domsvc" SIZE=1>
 240
 241         <% foreach my $svcnum (
 242              sort { $svc_domain{$a}->domain cmp $svc_domain{$b}->domain }
 243                   keys %svc_domain
 244            ) {
 245              my $svc_domain = $svc_domain{$svcnum};
 246         %>
 247
 248              <OPTION VALUE="<%= $svc_domain->svcnum %>" <%= $svc_domain->svcnum == $domsvc ? ' SELECTED' : '' %>><%= $svc_domain->domain %>
 249
 250        <% } %>
 251       </SELECT>
 252     </TD>
 253   </TR>
 254
 255 <% } %>
 256
 257
 258 <%
 259 #pop
 260 my $popnum = $svc_acct->popnum || 0;
 261 if ( $part_svc->part_svc_column('popnum')->columnflag eq 'F' ) {
 262 %>
 263
 264   <INPUT TYPE="hidden" NAME="popnum" VALUE="<%= $popnum %>">
 265
 266
 267 <% } else { %>
 268
 269   <TR>
 270     <TD ALIGN="right">Access number</TD>
 271     <TD><%= FS::svc_acct_pop::popselector($popnum) %></TD>
 272   </TR>
 273
 274 <% } %>
 275
 276
 277 <% #uid/gid %>
 278 <% foreach my $xid (qw( uid gid )) { %>
 279
 280   <%
 281   if ( $part_svc->part_svc_column($xid)->columnflag =~ /^[FA]$/
 282        || ! $conf->exists("svc_acct-edit_$xid")
 283      ) {
 284   %>
 285
 286     <% if ( length($svc_acct->$xid()) ) { %>
 287
 288       <TR>
 289         <TD ALIGN="right"><%= uc($xid) %></TD>
 290           <TD BGCOLOR="#eeeeee"><%= $svc_acct->$xid() %></TD>
 291         <TD>
 292         </TD>
 293       </TR>
 294
 295     <% } %>
 296
 297     <INPUT TYPE="hidden" NAME="<%= $xid %>" VALUE="<%= $svc_acct->$xid() %>">
 298
 299   <% } else { %>
 300
 301     <TR>
 302       <TD ALIGN="right"><%= uc($xid) %></TD>
 303       <TD>
 304         <INPUT TYPE="text" NAME="<%= $xid %>" SIZE=8 MAXLENGTH=6 VALUE="<%= $svc_acct->$xid() %>">
 305       </TD>
 306     </TR>
 307
 308   <% } %>
 309
 310 <% } %>
 311
 312
 313 <%
 314 #finger
 315 if ( $part_svc->part_svc_column('uid')->columnflag eq 'F'
 316      && ! $svc_acct->finger ) {
 317 %>
 318
 319   <INPUT TYPE="hidden" NAME="finger" VALUE="">
 320
 321 <% } else { %>
 322
 323   <TR>
 324     <TD ALIGN="right">GECOS</TD>
 325     <TD>
 326       <INPUT TYPE="text" NAME="finger" VALUE="<%= $svc_acct->finger %>">
 327     </TD>
 328   </TR>
 329
 330 <% } %>
 331
 332
 333 <INPUT TYPE="hidden" NAME="dir" VALUE="<%= $svc_acct->dir %>">
 334
 335
 336 <%
 337 #shell
 338 my $shell = $svc_acct->shell;
 339 if ( $part_svc->part_svc_column('shell')->columnflag eq 'F'
 340      || ( !$shell && $part_svc->part_svc_column('uid')->columnflag eq 'F' )
 341    ) {
 342 %>
 343
 344   <INPUT TYPE="hidden" NAME="shell" VALUE="<%= $shell %>">
 345
 346 <% } else { %>
 347
 348   <TR>
 349     <TD ALIGN="right">Shell</TD>
 350     <TD>
 351       <SELECT NAME="shell" SIZE=1>
 352
 353         <%
 354            my($etc_shell);
 355            foreach $etc_shell (@shells) {
 356         %>
 357
 358           <OPTION<%= $etc_shell eq $shell ? ' SELECTED' : '' %>><%= $etc_shell %>
 359
 360         <% } %>
 361
 362       </SELECT>
 363     </TD>
 364   </TR>
 365
 366 <% } %>
 367
 368
 369 <% if ( $part_svc->part_svc_column('quota')->columnflag eq 'F' ) { %>
 370
 371   <INPUT TYPE="hidden" NAME="quota" VALUE="<%= $svc_acct->quota %>">
 372
 373 <% } else { %>
 374
 375   <TR>
 376     <TD ALIGN="right">Quota:</TD>
 377     <TD><INPUT TYPE="text" NAME="quota" VALUE="<%= $svc_acct->quota %>"></TD>
 378   </TR>
 379
 380 <% } %>
 381
 382
 383 <% if ( $part_svc->part_svc_column('slipip')->columnflag =~ /^[FA]$/ ) { %>
 384
 385   <INPUT TYPE="hidden" NAME="slipip" VALUE="<%= $svc_acct->slipip %>">
 386
 387 <% } else { %>
 388
 389   <TR>
 390     <TD ALIGN="right">IP</TD>
 391     <TD><INPUT TYPE="text" NAME="slipip" VALUE="<%= $svc_acct->slipip %>"></TD>
 392   </TR>
 393
 394 <% } %>
 395
 396
 397 <%
 398 foreach my $r ( grep { /^r(adius|[cr])_/ } fields('svc_acct') ) {
 399   $r =~ /^^r(adius|[cr])_(.+)$/ or next; #?
 400   my $a = $2;
 401 %>
 402
 403   <% if ( $part_svc->part_svc_column($r)->columnflag =~ /^[FA]$/ ) { %>
 404
 405     <INPUT TYPE="hidden" NAME="<%= $r %>" VALUE="<%= $svc_acct->getfield($r) %>">
 406
 407   <% } else { %>
 408
 409     <TR>
 410       <TD ALIGN="right"><%= $FS::raddb::attrib{$a} %></TD>
 411       <TD><INPUT TYPE="text" NAME="<%= $r %>" VALUE="<%= $svc_acct->getfield($r) %>"></TD>
 412     </TR>
 413
 414   <% } %>
 415
 416 <% } %>
 417
 418
 419 <TR>
 420   <TD ALIGN="right">RADIUS groups</TD>
 421
 422   <% if ( $part_svc->part_svc_column('usergroup')->columnflag eq 'F' ) { %>
 423
 424     <TD BGCOLOR="#eeeeee"><%= join('<BR>', @groups) %></TD>
 425
 426   <% } else { %>
 427
 428     <TD><%= FS::svc_acct::radius_usergroup_selector( \@groups ) %></TD>
 429
 430   <% } %>
 431
 432 </TR>
 433
 434 <% foreach my $field ($svc_acct->virtual_fields) { %>
 435
 436   <% # If the flag is X, it won't even show up in $svc_acct->virtual_fields. %>
 437   <% if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) { %>
 438
 439     <%= $svc_acct->pvf($field)->widget('HTML', 'edit', $svc_acct->getfield($field)) %>
 440
 441   <% } %>
 442
 443 <% } %>
 444
 445 </TABLE>
 446 <BR>
 447
 448 <INPUT TYPE="submit" VALUE="Submit">
 449
 450 </FORM></BODY></HTML>