diff options
author | Yorhel <git@yorhel.nl> | 2009-11-04 06:52:22 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-11-04 20:57:02 +0100 |
commit | c75e1e48947d12bc224b114f367b97fcb26c68f5 (patch) | |
tree | bd8fda24be47397de737b55dae68f788aff91760 | |
parent | eb093ac9fe5d9dcbde98c92ba2720749bb814def (diff) |
API: Fixed perl warning and removed debug info
-rw-r--r-- | lib/Multi/API.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Multi/API.pm b/lib/Multi/API.pm index 1a00e565..37e68125 100644 --- a/lib/Multi/API.pm +++ b/lib/Multi/API.pm @@ -252,7 +252,7 @@ sub login { return cerr $c, badarg => 'Invalid client name', field => 'client' if $arg->{client} !~ /^[a-zA-Z0-9 _-]{3,50}$/; return cerr $c, badarg => 'Invalid client version', field => 'clientver' if $arg->{clientver} !~ /^\d+(\.\d+)?$/; return cerr $c, sesslimit => "Too many open sessions for user '$arg->{username}'", max_allowed => $_[HEAP]{sess_per_user} - if $_[HEAP]{sess_per_user} <= grep $arg->{username} eq $_[HEAP]{c}{$_}{username}, keys %{$_[HEAP]{c}}; + if $_[HEAP]{sess_per_user} <= grep $_[HEAP]{c}{$_}{username} && $arg->{username} eq $_[HEAP]{c}{$_}{username}, keys %{$_[HEAP]{c}}; # fetch user info $_[KERNEL]->post(pg => query => "SELECT rank, salt, encode(passwd, 'hex') as passwd FROM users WHERE username = ?", @@ -289,7 +289,6 @@ sub get_vn { [ title => 'str', dbfield => 'vr.title' ], [ original => 'str', dbfield => 'vr.original', null => '' ], ]; - warn $where; return if !$where; $_[KERNEL]->post(pg => query => |