no more dangerous logging of passwords...

[aymargeddon/current.git] / src / FROGS / DataBase.pm

diff --git a/src/FROGS/DataBase.pm b/src/FROGS/DataBase.pm
index b3b721b..e41893b 100644 (file)
--- a/src/FROGS/DataBase.pm
+++ b/src/FROGS/DataBase.pm
@@ -420,7 +420,7 @@ sub authenticate{
   ($user,$pwd,$adminpwd) = $self->quote_all($user,$pwd,$adminpwd);
 
 
   ($user,$pwd,$adminpwd) = $self->quote_all($user,$pwd,$adminpwd);
 
 

-  Util::log("Adminpassword: $adminpwd, password: $pwd",2);
+  # Util::log("Adminpassword: $adminpwd, password: $pwd",2);

 
   my ($player, $sec);
   if($adminpwd eq $pwd){
 
   my ($player, $sec);
   if($adminpwd eq $pwd){


@@ -530,18 +530,20 @@ sub games_of_player{
 sub open_games{
   my ($self,$cond) = @_;
   my $games = $self->select_array('GAME','GAME');
 sub open_games{
   my ($self,$cond) = @_;
   my $games = $self->select_array('GAME','GAME');

-  # return $games;

 
   my @log;
   for my $game (@$games){
 
   my @log;
   for my $game (@$games){

-    my $c = "GAME=$game";
-    $c .= "AND $cond" if $cond;
-
+      Util::log( Dumper($game)."\n",1);
+    my $c = "GAME=". $game->[0];
+    $c .= " AND $cond" if $cond;
+      Util::log($c."\n",1);

     my $unused = $self->select_array('MAP','LOCATION','',$c);
     
     print $unused;
 
     my $unused = $self->select_array('MAP','LOCATION','',$c);
     
     print $unused;
 

-    push @log, $game if $#{@$unused} + 1;
+      Util::log(Dumper(@$unused),1);
+      
+    push @log, $game->[0] if @$unused + 1;

   }
   return \@log;
 }
   }
   return \@log;
 }