netams.com

sub setAccount {
   my ($self, %ptrs, %item, $cmd, @out);
      $self = shift;
      %ptrs = (@_);
      %item = $self->getAccount($ptrs{oid});
   if ($self->hasService('billing')) {
      $self->runCmd("enable");
      $self->runCmd("conf t");
      $self->runCmd("service billing");
      # Check if OID exist
      if (not $self->hasAccount($ptrs{oid})) {
         $ptrs{name} = "NewAccount" if $ptrs{name} eq "";
         $ptrs{password} = "123" if $ptrs{password} eq "";
         @out = $self->runCmd("account $ptrs{name} password $ptrs{password}");
         $out[0] =~ m/account (\w{6}) created/;
         $ptrs{oid} = $1;
      }
      # NAME
      if ($ptrs{name} ne "" && $ptrs{name} ne $item{name}) {
         $self->runCmd("account $ptrs{oid} name \"$ptrs{name}\"");
      }
      # DESCRIPTION
      if ($ptrs{description} ne "" && $ptrs{description} ne $item{description}) {
         $self->runCmd("account $ptrs{oid} description \"$ptrs{description}\"");
      }
      # PASSWORD
      if ($ptrs{password} ne "" && $ptrs{password} ne $item{password}) {
         $self->runCmd("account $ptrs{oid} password $ptrs{password}");
      }      
      # BALANCE
      #if ($ptrs{balance} ne "" && $ptrs{balance} != $item{balance}) {
      #   $self->runCmd("account $ptrs{oid} balance set $ptrs{balance}");
      #}
      # CREDIT
      if ($ptrs{credit} ne "" && $ptrs{credit} != $item{credit}) {
         $self->runCmd("account $ptrs{oid} credit-limit $ptrs{credit}");
      }
      # BLOCK | UNBLOCK
      if ($ptrs{block}) {
         $self->runCmd("account $ptrs{oid} block");
      } else {
         $self->runCmd("account $ptrs{oid} unblock");
      }
      # PLAN
      if ($ptrs{plan} ne "" && $ptrs{plan} ne $item{plan}) {
         $self->runCmd("account $ptrs{oid} plan $ptrs{plan}");
      }         
      $self->runCmd("exit");
      $self->runCmd("exit");
      $self->runCmd("disable");
   }
   return $ptrs{oid};
}

sub www_makeAccountPayment {
   checkAdmin();
   my ($oid,$type,$sum);
   $oid = $session{form}{oid};
   $type = $session{form}{type};
   $sum = $session{form}{sum};
   if (canEdit('account') && $session{netams}->hasService('billing') && $session{netams}->hasAccount($oid) && $sum >= 0) {
      if ($type eq "add") {
         $session{netams}->runCmd("enable");
         $session{netams}->runCmd("conf t");
         $session{netams}->runCmd("service billing");
         $session{netams}->runCmd("account $oid balance add $sum");
         $session{netams}->runCmd("exit");
         $session{netams}->runCmd("exit");
         $session{netams}->runCmd("disable");
      } elsif ($type eq "rem") {
         $session{netams}->runCmd("enable");
         $session{netams}->runCmd("conf t");
         $session{netams}->runCmd("service billing");
         $session{netams}->runCmd("account $oid balance remove $sum");
         $session{netams}->runCmd("exit");
         $session{netams}->runCmd("exit");
         $session{netams}->runCmd("disable");      
      } elsif ($type eq "set") {
         $session{netams}->runCmd("enable");
         $session{netams}->runCmd("conf t");
         $session{netams}->runCmd("service billing");
         $session{netams}->runCmd("account $oid balance set $sum");
         $session{netams}->runCmd("exit");
         $session{netams}->runCmd("exit");
         $session{netams}->runCmd("disable");         
      }
   }
   return Nawt::Theme::getRedirect("?op=editAccount&oid=$oid");   
}