no more dangerous logging of passwords...

diff --git a/html/player.epl b/html/player.epl
index a670831..46c7540 100644 (file)
--- a/html/player.epl
+++ b/html/player.epl
@@ -7,7 +7,7 @@
   $udat{-current} = 'player.epl';
        
   use Aymargeddon;
   $udat{-current} = 'player.epl';
        
   use Aymargeddon;

- use Data::Dumper;
+  # use Data::Dumper;

   $db = DataBase->new();
   $id = 0;
   if($udat{-id}){
   $db = DataBase->new();
   $id = 0;
   if($udat{-id}){


@@ -87,7 +87,7 @@
     for $og (@$open_games){
       push @real_open_games, $og unless exists $such{$og->[0]};
     }
     for $og (@$open_games){
       push @real_open_games, $og unless exists $such{$og->[0]};
     }

-    Util::log("real open games: ". Dumper(\@real_open_games), 2);
+    # Util::log("real open games: ". Dumper(\@real_open_games), 2);

     ($rn) = $db->read_player($id, 'REALNAME') unless exists $udat{-game};
   -]
 
     ($rn) = $db->read_player($id, 'REALNAME') unless exists $udat{-game};
   -]
 

diff --git a/src/FROGS/DataBase.pm b/src/FROGS/DataBase.pm
index 32342dd..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){