projects
/
aymargeddon
/
current.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
b37458b
..
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,16
+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);
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;
}