diff --git a/webtools/despot/despot.cgi b/webtools/despot/despot.cgi index daa112ba7be..f8985729b1d 100755 --- a/webtools/despot/despot.cgi +++ b/webtools/despot/despot.cgi @@ -402,6 +402,7 @@ sub EditUser() { } sub DeleteUser() { + EnsureDespot(); my $id = EmailToId($F::email, 1); $::db->do("DELETE FROM members WHERE userid = ?", undef, $id); $::db->do("DELETE FROM users WHERE id = ?", undef, $id); @@ -415,6 +416,7 @@ sub DeleteUser() { } sub ChangeUser() { + EnsureDespot(); foreach my $field ("email") { my $value = param($field); if ($value ne param("orig_$field")) { @@ -461,6 +463,7 @@ sub ChangeUser() { } sub GeneratePassword { + EnsureDespot(); my $email = $F::email; Punt("Email address is too scary for this web application") unless $email =~ /$emailregexp/; my $query = $::db->prepare("SELECT id FROM users WHERE email = ?");