Changeset 240:d7613fb27e8f for lib/Lancelot/DB.pm

Timestamp:

07/27/08 23:28:53 (4 years ago)

Author:

Anselm Lingnau <anselm@…>

Branch:

default

Message:

Treat addresses "modulo capitalisation" when retrieving from the database.

Files:

• lib/Lancelot/DB.pm (modified) (3 diffs)

lib/Lancelot/DB.pm

@@ -1126 +1126 @@
         unless UNIVERSAL::isa($address, "Email::Address");
 
-    my($cmd) = q{SELECT id FROM subscribers WHERE local || '@' || domain = ?};
+    my($cmd) = q{SELECT id FROM subscribers WHERE LOWER(local || '@' || domain) = LOWER(?)};
     $ref = $self->{dbh}->selectrow_arrayref($cmd, {}, $address->address);
     unless ($ref) {
@@ -1140 +1140 @@
             # Delete the address
             $self->{dbh}->begin_work;
-            $self->{dbh}->do("DELETE FROM confirmations WHERE address = ?",
+            $self->{dbh}->do("DELETE FROM confirmations WHERE LOWER(address) = LOWER(?)",
                              {}, $address->address) or $result = 0;
             if ($result) {
@@ -1233 +1233 @@
     my ($hash) = $self->{dbh}->selectrow_hashref(<<"", {}, $address->address);
       SELECT * FROM subscribers
-          WHERE local || '\@' || domain = ?
+          WHERE LOWER(local || '\@' || domain) = LOWER(?)
+
+    return {} unless defined $hash;
 
     my (%result);