Changeset 83 for trunk/DNSDB.pm

Timestamp:

02/25/11 17:56:25 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint; partial completion of user editing.

• general user metadata, username, and password can be changed
• permissions need to be clarified. Also affects group permission editing to some degree.

File:

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

trunk/DNSDB.pm

@@ -30 +30 @@
         &addDomain &delDomain &domainName
         &addGroup &delGroup &getChildren &groupName
-        &addUser &delUser &userFullName &userStatus
+        &addUser &updateUser &delUser &userFullName &userStatus &getUserData
         &getSOA &getRecLine &getDomRecs
         &addRec &updateRec &delRec
@@ -45 +45 @@
                 &addDomain &delDomain &domainName
                 &addGroup &delGroup &getChildren &groupName
-                &addUser &delUser &userFullName &userStatus
+                &addUser &updateUser &delUser &userFullName &userStatus &getUserData
                 &getSOA &getRecLine &getDomRecs
                 &addRec &updateRec &delRec
@@ -753 +753 @@
 
 
+## DNSDB:: updateUser()
+#
+sub updateUser {
+  my $dbh = shift;
+  my $uid = shift;
+  my $username = shift;
+  my $group = shift;
+  my $pass = shift;
+  my $state = shift;
+  my $type = shift;
+  my $fname = shift || $username;
+  my $lname = shift || '';
+  my $phone = shift || '';      # not going format-check
+
+  my $failmsg = '';
+
+  # Allow transactions, and raise an exception on errors so we can catch it later.
+  # Use local to make sure these get "reset" properly on exiting this block
+  local $dbh->{AutoCommit} = 0;
+  local $dbh->{RaiseError} = 1;
+
+  my $sth;
+
+  # Password can be left blank;  if so we assume there's one on file.
+  # Actual blank passwords are bad, mm'kay?
+  if (!$pass) {
+    $sth = $dbh->prepare("SELECT password FROM users WHERE user_id=?");
+    $sth->execute($uid);
+    ($pass) = $sth->fetchrow_array;
+  } else {
+    $pass = unix_md5_crypt($pass);
+  }
+
+  eval {
+    my $sth = $dbh->prepare(q(
+        UPDATE users
+        SET username=?, password=?, firstname=?, lastname=?, phone=?, type=?, status=?
+        WHERE user_id=?
+        )
+      );
+    $sth->execute($username, $pass, $fname, $lname, $phone, $type, $state, $uid);
+    $dbh->commit;
+  };
+  if ($@) {
+    my $msg = $@;
+    eval { $dbh->rollback; };
+    return ('FAIL',"$failmsg: $msg");
+  } else {
+    return ('OK','OK');
+  }
+} # end updateUser()
+
+
 ## DNSDB::delUser()
 #
@@ -826 +879 @@
   return $status;
 } # end userStatus()
+
+
+## DNSDB::getUserData()
+# Get misc user data for display
+sub getUserData {
+  my $dbh = shift;
+  my $uid = shift;
+
+  my $sth = $dbh->prepare("SELECT group_id,username,firstname,lastname,phone,type,status,inherit_perm ".
+        "FROM users WHERE user_id=?");
+  $sth->execute($uid);
+  return $sth->fetchrow_hashref();
+
+} # end getUserData()