X-Git-Url: http://aymargeddon.de/gitweb/?p=aymargeddon%2Fcurrent.git;a=blobdiff_plain;f=src%2FFROGS%2FDataBase.pm;fp=src%2FFROGS%2FDataBase.pm;h=be7973995cdd5d012e14c44f373bc27030cb9de9;hp=38921ddc36c06c937dab1a04f676f9500b107d5b;hb=1bcd0f8ac5bec1ea7f5dddaec3f2a73b51c23bd7;hpb=25bbd909646c776fd050e9413fd7649f53a11c74

diff --git a/src/FROGS/DataBase.pm b/src/FROGS/DataBase.pm
index 38921dd..be79739 100644
--- a/src/FROGS/DataBase.pm
+++ b/src/FROGS/DataBase.pm
@@ -379,8 +379,12 @@ sub new_account{
   # generate new password
   my $pwd = '';
   my $allowed = '2345679ACDEFGHIJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz';
-  for my $i (0..7){
-    $pwd .= substr($allowed, POSIX::floor(rand(72)), 1);
+  # we dont want uppercase-only passwords
+  while($pwd =~ /^[A-Z]*$/){
+      $pwd = '';
+      for my $i (0..7){
+	  $pwd .= substr($allowed, POSIX::floor(rand(72)), 1);
+      }
   }
   my $qpwd = $self->{-dbh}->quote($pwd);