Changeset 51 for trunk/DNSDB.pm

Timestamp:

12/17/09 15:47:50 (14 years ago)

Author:

Kris Deugau

Message:

/dev

checkpoint
Moved sort order/sort-by tracking on domain, user, and group lists into session
Fixed user activation/deactivation and display
Copy-pasted bits for letter-search and filtering from domains to user and group lists

File:

• trunk/DNSDB.pm (modified) (3 diffs)

trunk/DNSDB.pm

@@ -27 +27 @@
         &addDomain &delDomain &domainName
         &addGroup &delGroup &getChildren &groupName
-        &addUser &delUser &userFullName
+        &addUser &delUser &userFullName &userStatus
         &getSOA &getRecLine &getDomRecs
         &addRec &updateRec &delRec
@@ -39 +39 @@
                 &addDomain &delDomain &domainName
                 &addGroup &delGroup &getChildren &groupName
-                &addUser &delUser &userFullName
+                &addUser &delUser &userFullName &userStatus
                 &getSOA &getRecLine &getDomRecs
                 &addRec &updateRec &delRec
@@ -554 +554 @@
   return $fullformat;
 } # end userFullName
+
+
+## DNSDB::userStatus()
+# Sets and/or returns a user's status
+# Takes a database handle, user ID and optionally a status argument
+# Returns undef on errors.
+sub userStatus {
+  my $dbh = shift;
+  my $id = shift;
+  my $newstatus = shift;
+
+  return undef if $id !~ /^\d+$/;
+
+  my $sth;
+
+# ooo, fun!  let's see what we were passed for status
+  if ($newstatus) {
+    $sth = $dbh->prepare("update users set status=? where user_id=?");
+    # ass-u-me caller knows what's going on in full
+    if ($newstatus =~ /^[01]$/) {       # only two valid for now.
+      $sth->execute($newstatus,$id);
+    } elsif ($newstatus =~ /^usero(?:n|ff)$/) {
+      $sth->execute(($newstatus eq 'useron' ? 1 : 0),$id);
+    }
+  }
+
+  $sth = $dbh->prepare("select status from users where user_id=?");
+  $sth->execute($id);
+  my ($status) = $sth->fetchrow_array;
+  return $status;
+} # end userStatus()