summaryrefslogtreecommitdiff
path: root/lib/VNDB/DB/Users.pm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2008-11-11 13:41:53 +0100
committerYorhel <git@yorhel.nl>2008-11-11 13:41:53 +0100
commit80d64fd1a4b2b1ca11dc5050b61883bd41863244 (patch)
treed38061a312886dacebd28bff9cb5fa17c6371649 /lib/VNDB/DB/Users.pm
parent70264d121dac0dda32e77732a356007e8fa29846 (diff)
Yay, I can now delete users as well!
Diffstat (limited to 'lib/VNDB/DB/Users.pm')
-rw-r--r--lib/VNDB/DB/Users.pm17
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;