Testshit And Renaming Of Db To Suffix With .Sqlite

diff --git a/.gitignore b/.gitignore
index 1ca5c6cf4c5467b55aca278d91190fa7e282043e..f947323a97b4ae8109dab947dbb9f0f0ccfdd2d9 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,3 @@
-*.db
+*.sqlite
 git/*
 !git/.gitkeep

diff --git a/gorillanest b/gorillanest
index 1d0546032b11296afea887c85054a2252f470743..f67638bf81cce4421b74c63a34af645970079e49 100755 (executable)
--- a/gorillanest
+++ b/gorillanest
@@ -35,7 +35,7 @@ sub GN::cache { # cache{'/some/path'}
 openlog("gorillanest", "ndelay,pid", Sys::Syslog::LOG_DAEMON);
 try {
     my $gitroot = 'git';
-    my $dbfile = 'gorillanest.db';
+    my $dbfile = 'gorillanest.sqlite3';
     #
     my $request = FCGI::Request();
     my $template = Template->new({INCLUDE_PATH => 'template'});
@@ -44,7 +44,15 @@ try {
         AutoCommit => 1,
         sqlite_see_if_its_a_number => 1,
                          }) or die $DBI::errstr;
-    $db->do("CREATE TABLE IF NOT EXISTS users ( id INTEGER PRIMARY KEY, name TEXT NOT NULL CHECK(length(name) <= 32), pass TEXT NOT NULL CHECK(length(pass) <= 128 AND length(pass) >= 32))");
+    $db->do(
+"CREATE TABLE IF NOT EXISTS users (
+        id INTEGER PRIMARY KEY AUTOINCREMENT,
+        name TEXT NOT NULL CHECK(length(name) <= 32),
+        pass TEXT NOT NULL CHECK(length(pass) <= 128
+                             AND length(pass) >= 32),
+                                 UNIQUE(name))");
+    my $sth = $db->prepare("INSERT INTO users (name, pass) VALUES (?, ?)");
+    $sth->execute("test", "PUM6w22pxoGVB03qlgEUVBumYgPL2RTGqegoz8vZf7jpsqRQahC3d2OXOH3qFnvo");
     $db->disconnect;
     #
     my $head = 0;