diff options
author | Yorhel <git@yorhel.nl> | 2009-07-31 12:01:35 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2009-07-31 12:01:35 +0200 |
commit | 5e9e6a78d3b7ffd177d91dba6602946dbd9a4c09 (patch) | |
tree | a6556ed414f96383e7338ff121385958fa751c44 /lib/VNDB/DB/Users.pm | |
parent | db551911f429359a30ffd76017451164ba81af50 (diff) |
Fetch hex hashes from dbUserGet() and do comparison in hex
For consistency, it's best to do everything related to hashes in
hexadecimal notation in Perl.
Diffstat (limited to 'lib/VNDB/DB/Users.pm')
-rw-r--r-- | lib/VNDB/DB/Users.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/VNDB/DB/Users.pm b/lib/VNDB/DB/Users.pm index eaed1234..ae46b896 100644 --- a/lib/VNDB/DB/Users.pm +++ b/lib/VNDB/DB/Users.pm @@ -24,8 +24,6 @@ sub dbUserGet { my %where = ( $o{username} ? ( 'username = ?' => $o{username} ) : (), - $o{passwd} ? ( - 'passwd = decode(?, \'hex\')' => $o{passwd} ) : (), $o{firstchar} ? ( 'SUBSTRING(username from 1 for 1) = ?' => $o{firstchar} ) : (), !$o{firstchar} && defined $o{firstchar} ? ( @@ -45,7 +43,8 @@ sub dbUserGet { ); my @select = ( - 'u.*', + qw|id username mail rank salt registered c_votes c_changes show_nsfw show_list skin customcss ip c_tags|, + q|encode(passwd, 'hex') AS passwd|, $o{what} =~ /stats/ ? ( '(SELECT COUNT(*) FROM rlists WHERE uid = u.id) AS releasecount', '(SELECT COUNT(DISTINCT rv.vid) FROM rlists rl JOIN releases r ON rl.rid = r.id JOIN releases_vn rv ON rv.rid = r.latest WHERE uid = u.id) AS vncount', |