Changeset 55 for trunk/DNSDB.pm

Timestamp:

12/31/09 17:55:43 (14 years ago)

Author:

Kris Deugau

Message:

/trunk

Started adding logging calls
Fixed user add sub in DNSDB.pm so that it writes encrypted passwords
Added sub to check user credentials rather than keeping that process in the main program

File:

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

trunk/DNSDB.pm

@@ -67 +67 @@
 our %reverse_typemap;
 
+
 ##
 ## Initialization and cleanup subs
 ##
+
 
 ## DNSDB::connectDB()
@@ -154 +156 @@
   }
 } # end initGlobals
+
+
+## DNSDB::_log()
+# Log an action
+# Internal sub
+# Takes a database handle, <foo>, <bar>
+sub _log {
+} # end _log
 
 
@@ -489 +499 @@
     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);
+    $sth->execute($group,$username,unix_md5_crypt($pass),$fname,$lname,$phone,$type,$state);
 
     # get the ID...
@@ -510 +520 @@
   }
 } # end addUser
+
+
+## DNSDB::checkUser()
+# Check user/pass combo on login
+sub checkUser {
+  my $dbh = shift;
+  my $user = shift;
+  my $pass = shift;
+
+  my $sth = $dbh->prepare("SELECT user_id,group_id,password,firstname,lastname FROM users WHERE username=?");
+  $sth->execute($user);
+  my ($uid,$gid,$pass,$fname,$lname) = $sth->fetchrow_array;
+  my $loginfailed = 1 if !defined($uid);
+
+  if ($pass =~ m|^\$1\$([A-Za-z0-9/.]+)\$|) {
+    $loginfailed = 1 if $pass ne unix_md5_crypt($pass,$1);
+  } else {
+    $loginfailed = 1 if $pass ne $pass;
+  }
+
+  # nnnngggg
+  return ($uid, $gid);
+} # end checkUser