diff --git a/.gitignore b/.gitignore
index d3beee5..8f18791 100644
--- a/.gitignore
+++ b/.gitignore
@@ -24,3 +24,4 @@ _testmain.go
*.test
*.prof
+*.db
diff --git a/env.tcl b/env.tcl
new file mode 100644
index 0000000..ae3055d
--- /dev/null
+++ b/env.tcl
@@ -0,0 +1,7 @@
+proc wapp-page-env {} {
+ wapp-allow-xorigin-params
+ wapp-trim {
+ Wapp Environment
+ %html([wapp-debug-env])
+ }
+}
diff --git a/mkdb.tcl b/mkdb.tcl
new file mode 100644
index 0000000..a69328f
--- /dev/null
+++ b/mkdb.tcl
@@ -0,0 +1,23 @@
+#/bin/env wapptclsh
+
+sqlite3 db register.db
+
+# This prevents machines from the same public IP from submitting data twice in
+# the same 24 hour period. To prevent spookiness, the server will run on GMT and
+# clients will submit at 9 AM their time.
+db eval {CREATE TABLE hits
+ ( ip_address_hash TEXT NOT NULL
+ , date TEXT NOT NULL
+ )}
+
+db eval {CREATE UNIQUE INDEX hits_unique_daily ON hits(ip_address_hash, date)}
+
+# Keep track of the packages installed by date. This will end up being a big
+# table, but databases have indexes for a reason.
+db eval {CREATE TABLE package_installs
+ ( package_name TEXT NOT NULL
+ , date TEXT NOT NULL
+ )}
+
+
+db eval {CREATE INDEX package_installs_name ON package_installs(package_name)}
diff --git a/site.tcl b/site.tcl
new file mode 100644
index 0000000..229b0ee
--- /dev/null
+++ b/site.tcl
@@ -0,0 +1,19 @@
+source env.tcl
+source wing.tcl
+
+package require wapp
+
+proc wapp-default {} {
+ set B [wapp-param BASE_URL]
+ wingcss
+
+ wapp-trim {
+
+ }
+}
+
+wapp-start $::argv
diff --git a/wing.tcl b/wing.tcl
new file mode 100644
index 0000000..3e9851a
--- /dev/null
+++ b/wing.tcl
@@ -0,0 +1,106 @@
+proc wingcss {} {
+ wapp-trim {
+