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