X-Git-Url: https://git.hcoop.net/hcoop/portal.git/blobdiff_plain/ee252433761c27515fb7ae1b59f347dfe20d2dcb..80da0f7a4c68eb1c5112fe36cb30ccfd7baa9067:/init.sml

diff --git a/init.sml b/init.sml
index f6f5e7c..a44bc35 100644
--- a/init.sml
+++ b/init.sml
@@ -174,30 +174,6 @@ fun dateString () =
 	[d] => C.stringFromSql d
       | r => rowError ("dateString", r)
 
-fun grandfatherUsers () =
-    let
-	val db = getDb ()
-
-	fun mkApp [id, name, rname] =
-	    let
-		val id = C.intFromSql id
-		val name = C.stringFromSql name
-		val rname = C.stringFromSql rname
-
-		val aid = nextSeq (db, "MemberAppSeq")
-	    in
-		ignore (C.dml db ($`INSERT INTO MemberApp (id, name, rname, gname, email, forward, uses, other,
-							passwd, status, applied, confirmed, decided, msg)
-			         VALUES (^(C.intToSql aid), ^(C.stringToSql name), ^(C.stringToSql rname),
-					 NULL, '^name^(emailSuffix)', FALSE, 'GRANDFATHERED', 'GRANDFATHERED',
-					 'GRANDFATHERED', 4, CURRENT_TIMESTAMP, CURRENT_TIMESTAMP,
-					 CURRENT_TIMESTAMP, 'GRANDFATHERED')`));
-		ignore (C.dml db ($`UPDATE WebUser SET app = ^(C.intToSql aid) WHERE id = ^(C.intToSql id)`))
-	    end
-    in
-	C.app db mkApp "SELECT id, name, rname FROM WebUser WHERE app IS NULL"
-    end
-
 type node = {id : int, name : string, descr : string, debian : string}
 
 fun mkNodeRow [id, name, descr, debian] =
@@ -255,12 +231,6 @@ fun tokensForked () =
 		 OS.Process.exit OS.Process.success)
       | _ => ignore (OS.Process.system "/usr/bin/tokens >/tmp/tokens.parent")
 
-fun unmigratedUsers () =
-    List.filter (fn user =>
-		    (ignore (Posix.SysDB.getpwnam (#name user));
-		     false)
-		    handle OS.SysErr _ => true) (listActiveUsers ())
-
 fun usersDiff (ls1, ls2) =
     {onlyInFirst = List.filter (fn x => not (Util.mem (x, ls2))) ls1,
      onlyInSecond = List.filter (fn x => not (Util.mem (x, ls1))) ls2}