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