Password-reset-form now works

I'm staring with all the simple user-management stuff, as you may
have noticed.

1 files changed, 22 insertions, 2 deletions

diff --git a/lib/VNDB/DB/Users.pm b/lib/VNDB/DB/Users.pm
index 8fb9814f..48b00266 100644
--- a/lib/VNDB/DB/Users.pm
+++ b/lib/VNDB/DB/Users.pm
@@ -5,10 +5,10 @@ use strict;
 use warnings;
 use Exporter 'import';
 
-our @EXPORT = 'dbUserGet';
+our @EXPORT = qw|dbUserGet dbUserEdit|;
 
 
-# %options->{ username passwd order uid results page }
+# %options->{ username passwd mail order uid results page }
 sub dbUserGet { 
   my $s = shift;
   my %o = (
@@ -24,6 +24,8 @@ sub dbUserGet {
       'username = ?' => $o{username} ) : (),
     $o{passwd} ? (
       'passwd = decode(?, \'hex\')' => $o{passwd} ) : (),
+    $o{mail} ? (
+      'mail = ?' => $o{mail} ) : (),
     $o{uid} ? (
       'id = ?' => $o{uid} ) : (),
     !$o{uid} && !$o{username} ? (
@@ -43,4 +45,22 @@ sub dbUserGet {
 }
 
 
+# uid, %options->{ columns in users table }
+sub dbUserEdit { 
+  my($s, $uid, %o) = @_;
+
+  my %h;
+  defined $o{$_} && ($h{$_.' = ?'} = $o{$_})
+    for (qw| username mail rank flags |);
+  $h{'passwd = decode(?, \'hex\')'} = $o{passwd}
+    if defined $o{passwd};
+
+  return if scalar keys %h <= 0;
+  return $s->dbExec(q|
+    UPDATE users
+    !H
+    WHERE id = ?|,
+  \%h, $uid);
+}
+
 1;