Changeset 25 for trunk/dns.cgi

Timestamp:

11/02/09 16:40:07 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint

• pass all entered data through to addUser()
• copy-munge "delete user" segment
• fill out missing addUser internals
• fill out delUser stub
• add userFullName
• misc tweaks and normalizations

File:

• trunk/dns.cgi (modified) (3 diffs)

trunk/dns.cgi

@@ -445 +445 @@
   } else {
     ($code,$msg) = addUser($dbh,$webvar{username}, $webvar{group}, $webvar{pass1},
-        ($webvar{makeactive} eq 'on' ? 1 : 0), $webvar{fname}, $webvar{lname});
+        ($webvar{makeactive} eq 'on' ? 1 : 0), $webvar{accttype}, 
+        $webvar{fname}, $webvar{lname}, $webvar{phone});
   }
 
 # hokay, a bit of magic to decide which page we hit.
   if ($code eq 'OK') {
-# redirect to dns.cgi?etc&page=reclist
     changepage(page => "useradmin");
-#    $page = HTML::Template->new(filename => "$templatedir/reclist.tmpl");
-#    showdomain(0,$msg);
-##work
   } else {
 # oooh, yeah, this is supposed to be a redirect.  er, maybe.  whee.
@@ -469 +466 @@
 
   $page->param(add_failed => 1);
+
+} elsif ($webvar{page} eq 'deluser') {
+
+  $page->param(id => $webvar{id});
+  # first pass = confirm y/n (sorta)
+  if (!defined($webvar{del})) {
+    $page->param(del_getconf => 1);
+    $page->param(user => userFullName($dbh,$webvar{id}));
+  } elsif ($webvar{del} eq 'ok') {
+    my ($code,$msg) = delUser($dbh, $webvar{id});
+    if ($code ne 'OK') {
+# need to find failure mode
+      $page->param(del_failed => 1);
+      $page->param(errmsg => $msg);
+      list_users($curgroup);
+    } else {
+      # success.  go back to the domain list, do not pass "GO"
+      changepage(page => "useradmin");
+    }
+  } else {
+    # cancelled.  whee!
+    changepage(page => "useradmin");
+  }
+
 }
 
@@ -821 +842 @@
 
   my @userlist;
-  $sth = $dbh->prepare("SELECT u.user_id, u.email, u.firstname, u.lastname, u.type, g.group_name, u.status ".
+  $sth = $dbh->prepare("SELECT u.user_id, u.username, u.firstname, u.lastname, u.type, g.group_name, u.status ".
         "FROM users u ".
         "INNER JOIN groups g ON u.group_id=g.group_id ".