Commit Diff

Commit:
f8fa1657ffa1089e38887a078ec3f2f01bb222fd
From:
Caleb Stein <caleb@calebstein.net>
Date:
Message:
only one name per email
Actions:
Patch | Tree
commit - 9ea0733e3a6c055976c44744d3ad9a4d38528fd8
commit + f8fa1657ffa1089e38887a078ec3f2f01bb222fd
blob - c8efce7118ad449d80764aa2e14aa1fdd0a2278c
blob + f12d81f03ae5a0b537aa5c94b2a4030fe87156c4
--- addrcache.pl
+++ addrcache.pl
@@ -27,13 +27,12 @@ my $dbh = DBI->connect($dsn, "", "", {
 
 $dbh->do(<<'SQL');
 CREATE TABLE IF NOT EXISTS contacts (
-	Email TEXT NOT NULL,
-	Name TEXT NOT NULL,
-	CONSTRAINT PK_Contact PRIMARY KEY (Email, Name)
+	Email TEXT PRIMARY KEY COLLATE NOCASE,
+	Name TEXT NOT NULL DEFAULT ''
 )
 SQL
 
-my $insert_sql = "INSERT OR IGNORE INTO contacts (Email, Name) VALUES (?, ?)";
+my $insert_sql = "INSERT OR REPLACE INTO contacts (Email, Name) VALUES (?, ?)";
 my $insert = $dbh->prepare($insert_sql);
 foreach my $addr (@addrs)
 {