Changeset 25 for trunk/DNSDB.pm

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/DNSDB.pm (modified) (6 diffs)

trunk/DNSDB.pm

@@ -26 +26 @@
         &addDomain &delDomain &domainName
         &addGroup &delGroup &getChildren &groupName
-        &addUser &delUser
+        &addUser &delUser &userFullName
         &getSOA &getRecLine &getDomRecs
         &addRec &updateRec &delRec
@@ -38 +38 @@
                 &addDomain &delDomain &domainName
                 &addGroup &delGroup &getChildren &groupName
-                &addUser &delUser
+                &addUser &delUser &userFullName
                 &getSOA &getRecLine &getDomRecs
                 &addRec &updateRec &delRec
@@ -442 +442 @@
   my $pass = shift;
   return ('FAIL',"Missing password") if !defined($pass);
-
   my $state = shift;
   return ('FAIL',"Need account status") if !defined($state);
-  my $fname = shift || '';
+
+  my $type = shift || 'u';      # create limited users by default - fwiw, not sure yet how this will interact with ACLs
+  
+  my $fname = shift || $username;
   my $lname = shift || '';
+  my $phone = shift || '';      # not going format-check
 
   my $user_id;
@@ -458 +461 @@
   eval {
     # insert the user...
-    my $sth = $dbh->prepare("INSERT INTO users (email,group_id,password,status) VALUES (?,?,?,?)");
-    $sth->execute($username,$group,$pass,$state);
-die "user fail\n";
+    my $sth = $dbh->prepare("INSERT INTO users (group_id,username,password,firstname,lastname,phone,type,status) ".
+        "VALUES (?,?,?,?,?,?,?,?)");
+    $sth->execute($group,$username,$pass,$fname,$lname,$phone,$type,$state);
 
     # get the ID...
@@ -466 +469 @@
     $sth->execute($username);
     ($user_id) = $sth->fetchrow_array();
+
+##fixme: add another table to hold name/email for log table?
 
     # once we get here, we should have suceeded.
@@ -484 +489 @@
 #
 sub delUser {
+  my $dbh = shift;
+  return ('FAIL',"Need database handle") if !$dbh;
+  my $userid = shift;
+  return ('FAIL',"Missing userid") if !defined($userid);
+
+  my $sth = $dbh->prepare("delete from users where user_id=?");
+  $sth->execute($userid);
+
+  return ('FAIL',"Couldn't remove user: ".$sth->errstr) if $sth->err;
+
+  return ('OK','OK');
+
 } # end delUser
+
+
+## DNSDB::userFullName()
+# Return a pretty string!
+# Takes a user_id and optional printf-ish string to indicate which pieces where:
+# %u for the username
+# %f for the first name
+# %l for the last name
+# All other text in the passed string will be left as-is.
+##fixme:  need a "smart" option too, so that missing/null/blank first/last names don't give funky output
+sub userFullName {
+  $errstr = '';
+  my $dbh = shift;
+  my $userid = shift;
+  my $fullformat = shift || '%f %l (%u)';
+  my $sth = $dbh->prepare("select username,firstname,lastname from users where user_id=?");
+  $sth->execute($userid);
+  my ($uname,$fname,$lname) = $sth->fetchrow_array();
+  $errstr = $DBI::errstr if !$uname;
+
+  $fullformat =~ s/\%u/$uname/g;
+  $fullformat =~ s/\%f/$fname/g;
+  $fullformat =~ s/\%l/$lname/g;
+
+  return $fullformat;
+} # end userFullName