diff options
author | Yorhel <git@yorhel.nl> | 2008-11-11 13:41:53 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-11-11 13:41:53 +0100 |
commit | 80d64fd1a4b2b1ca11dc5050b61883bd41863244 (patch) | |
tree | d38061a312886dacebd28bff9cb5fa17c6371649 /lib/VNDB/DB/Users.pm | |
parent | 70264d121dac0dda32e77732a356007e8fa29846 (diff) |
Yay, I can now delete users as well!
Diffstat (limited to 'lib/VNDB/DB/Users.pm')
-rw-r--r-- | lib/VNDB/DB/Users.pm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/lib/VNDB/DB/Users.pm b/lib/VNDB/DB/Users.pm index a213143d..140b8861 100644 --- a/lib/VNDB/DB/Users.pm +++ b/lib/VNDB/DB/Users.pm @@ -5,7 +5,7 @@ use strict; use warnings; use Exporter 'import'; -our @EXPORT = qw|dbUserGet dbUserEdit dbUserAdd|; +our @EXPORT = qw|dbUserGet dbUserEdit dbUserAdd dbUserDel|; # %options->{ username passwd mail order uid results page } @@ -71,4 +71,19 @@ sub dbUserAdd { } +# uid +sub dbUserDel { + my($s, $id) = @_; + $s->dbExec($_, $id) for ( + q|DELETE FROM vnlists WHERE uid = ?|, + q|DELETE FROM rlists WHERE uid = ?|, + q|DELETE FROM wlists WHERE uid = ?|, + q|DELETE FROM votes WHERE uid = ?|, + q|UPDATE changes SET requester = 0 WHERE requester = ?|, + q|UPDATE threads_posts SET uid = 0 WHERE uid = ?|, + q|DELETE FROM users WHERE id = ?| + ); +} + + 1; |