httemplate/edit/process/svc_acct.cgi

   1 %
   2 %
   3 %$cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
   4 %my $svcnum = $1;
   5 %
   6 %my $old;
   7 %if ( $svcnum ) {
   8 %  $old = qsearchs('svc_acct', { 'svcnum' => $svcnum } )
   9 %    or die "fatal: can't find account (svcnum $svcnum)!";
  10 %} else {
  11 %  $old = '';
  12 %}
  13 %
  14 %#unmunge popnum
  15 %$cgi->param('popnum', (split(/:/, $cgi->param('popnum') ))[0] );
  16 %
  17 %#unmunge passwd
  18 %if ( $cgi->param('_password') eq '*HIDDEN*' ) {
  19 %  die "fatal: no previous account to recall hidden password from!" unless $old;
  20 %  $cgi->param('_password',$old->getfield('_password'));
  21 %}
  22 %
  23 %#unmunge usergroup
  24 %$cgi->param('usergroup', [ $cgi->param('radius_usergroup') ] );
  25 %
  26 %#unmunge bytecounts
  27 %foreach (map { $_,$_."_threshold" } qw( upbytes downbytes totalbytes )) {
  28 %  $cgi->param($_, FS::UI::Web::parse_bytecount($cgi->param($_)) );
  29 %}
  30 %
  31 %my %hash = $svcnum ? $old->hash : ();
  32 %map {
  33 %    $hash{$_} = scalar($cgi->param($_));
  34 %  #} qw(svcnum pkgnum svcpart username _password popnum uid gid finger dir
  35 %  #  shell quota slipip)
  36 %  } (fields('svc_acct'), qw ( pkgnum svcpart usergroup ));
  37 %my $new = new FS::svc_acct ( \%hash );
  38 %
  39 %my $error;
  40 %if ( $svcnum ) {
  41 %  $error = $new->replace($old);
  42 %} else {
  43 %  $error = $new->insert;
  44 %  $svcnum = $new->svcnum;
  45 %}
  46 %
  47 %if ( $error ) {
  48 %  $cgi->param('error', $error);
  49 %  print $cgi->redirect(popurl(2). "svc_acct.cgi?". $cgi->query_string );
  50 %} else {
  51 %  print $cgi->redirect(popurl(3). "view/svc_acct.cgi?" . $svcnum );
  52 %}
  53 %
  54 %
  55