cert: remove obsolete suggestion you need a dedicated IP for TLS

[hcoop/portal.git] / init.sml

diff --git a/init.sml b/init.sml
index cd066b1..f6f5e7c 100644 (file)
--- a/init.sml
+++ b/init.sml
@@ -151,7 +151,7 @@ fun modUser (user : user) =
 
 fun byPledge () =
     C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares, paypal, checkout
-                                 FROM WebUser
+                                 FROM WebUserPaying
                                  WHERE shares > 1
                                  ORDER BY shares DESC, name`)
 
@@ -159,7 +159,7 @@ fun deleteUser id =
     C.dml (getDb ()) ($`DELETE FROM WebUser WHERE id = ^(C.intToSql id)`)
 
 fun validUsername name =
-    size name <= 10
+    size name <= 12
     andalso size name > 0
     andalso Char.isLower (String.sub (name, 0))
     andalso CharVector.all Char.isAlphaNum name
@@ -208,6 +208,7 @@ fun mkNodeRow [id, name, descr, debian] =
 fun listNodes () =
     C.map (getDb ()) mkNodeRow ($`SELECT id, name, descr, debian
                                  FROM WebNode
+                                  WHERE id IN (SELECT id FROM ActiveWebNode)
                                  ORDER BY name`)
 
 fun nodeName id =
@@ -311,4 +312,10 @@ fun searchCheckout checkout =
                                  WHERE checkout = ^(C.stringToSql (normEmail checkout))
                                  ORDER BY name`)
 
+fun searchRealName realname =
+    C.map (getDb ()) mkUserRow ($`SELECT id, name, rname, bal, joined, app, shares, paypal, checkout
+                                 FROM WebUser
+                                 WHERE rname ILIKE (^(C.stringToSql "%") || trim (both ^(C.stringToSql " ") from ^(C.stringToSql realname)) || ^(C.stringToSql "%")) 
+                                 ORDER BY name`)
+
 end