Limit account creation to one account a day per IP

This would at least annoy the people who'll try to manipulate
the rankings, and will make finding duplicate users a bit easier.
(Not that it's really a problem at the moment)

1 files changed, 8 insertions, 3 deletions

diff --git a/lib/VNDB/DB/Users.pm b/lib/VNDB/DB/Users.pm
index 188fb4d8..3a327197 100644
--- a/lib/VNDB/DB/Users.pm
+++ b/lib/VNDB/DB/Users.pm
@@ -8,7 +8,7 @@ use Exporter 'import';
 our @EXPORT = qw|dbUserGet dbUserEdit dbUserAdd dbUserDel|;
 
 
-# %options->{ username passwd mail order uid results page what }
+# %options->{ username passwd mail order uid ip registered results page what }
 # what: stats
 sub dbUserGet {
   my $s = shift;
@@ -35,6 +35,10 @@ sub dbUserGet {
       'id = ?' => $o{uid} ) : (),
     !$o{uid} && !$o{username} ? (
       'id > 0' => 1 ) : (),
+    $o{ip} ? (
+      'ip = ?' => $o{ip} ) : (),
+    $o{registered} ? (
+      'registered > ?' => $o{registered} ) : (),
   );
 
   my @select = (
@@ -77,10 +81,11 @@ sub dbUserEdit {
 }
 
 
-# username, md5(pass), mail
+# username, md5(pass), mail, [ip]
 sub dbUserAdd {
   my($s, @o) = @_;
-  $s->dbExec(q|INSERT INTO users (username, passwd, mail, registered) VALUES(?, decode(?, 'hex'), ?, ?)|, @o, time);
+  $s->dbExec(q|INSERT INTO users (username, passwd, mail, ip, registered) VALUES(?, decode(?, 'hex'), ?, ?, ?)|,
+    @o[0..2], $o[3]||$s->reqIP, time);
 }