Index: /branches/stable/DNSDB.pm
===================================================================
--- /branches/stable/DNSDB.pm	(revision 316)
+++ /branches/stable/DNSDB.pm	(revision 317)
@@ -32,5 +32,5 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
-$VERSION	= 0.1;	##VERSION##
+$VERSION	= 1.0.1;	##VERSION##
 @ISA		= qw(Exporter);
 @EXPORT_OK	= qw(
Index: /branches/stable/Makefile
===================================================================
--- /branches/stable/Makefile	(revision 316)
+++ /branches/stable/Makefile	(revision 317)
@@ -3,5 +3,5 @@
 
 PKGNAME=dnsadmin
-VERSION=1.0
+VERSION=1.0.1
 RELEASE=1
 
Index: /branches/stable/dns.cgi
===================================================================
--- /branches/stable/dns.cgi	(revision 316)
+++ /branches/stable/dns.cgi	(revision 317)
@@ -217,11 +217,12 @@
   if ($webvar{action} eq 'login') {
     # Snag ACL/permissions here too
-    my $sth = $dbh->prepare("SELECT user_id,group_id,password,firstname,lastname FROM users WHERE username=?");
+    my $sth = $dbh->prepare("SELECT user_id,group_id,password,firstname,lastname,status FROM users WHERE username=?");
     $sth->execute($webvar{username});
 
-    if (my ($uid,$gid,$pass,$fname,$lname) = $sth->fetchrow_array) {
+    if (my ($uid,$gid,$pass,$fname,$lname,$status) = $sth->fetchrow_array) {
       $webvar{password} = '' if !$webvar{password};
-
-      if ($pass =~ m|^\$1\$([A-Za-z0-9/.]+)\$|) {
+      if (!$status) {
+	$webvar{loginfailed} = 1;
+      } elsif ($pass =~ m|^\$1\$([A-Za-z0-9/.]+)\$|) {
         # native passwords (crypt-md5)
         $webvar{loginfailed} = 1 if $pass ne unix_md5_crypt($webvar{password},$1);