Random fixin's in preparation for accepting new members

[hcoop/portal.git] / listaddrs / listaddrs.sml

diff --git a/listaddrs/listaddrs.sml b/listaddrs/listaddrs.sml
new file mode 100644 (file)
index 0000000..15a224c
--- /dev/null
+++ b/listaddrs/listaddrs.sml
@@ -0,0 +1,15 @@
+structure Main = struct
+
+structure C = PgClient
+
+fun main _ =
+    let
+       val db = C.conn "dbname='hcoop_hcoop'"
+
+       fun printOne [name] = print (C.stringFromSql name ^ "@hcoop.net\n")
+    in
+       C.app db printOne "SELECT name FROM WebUser";
+       C.close db;
+       OS.Process.success
+    end
+end