Requests for FTP access

[bpt/portal.git] / sec.sml

diff --git a/sec.sml b/sec.sml
index cfa6d69..af3f813 100644 (file)
--- a/sec.sml
+++ b/sec.sml
@@ -99,9 +99,9 @@ fun findFirewallRules uname =
        before TextIO.closeIn inf
     end
 
-fun cronAllowed uname =
+fun somethingAllowed fname uname =
     let
-       val inf = TextIO.openIn "/etc/cron.allow"
+       val inf = TextIO.openIn fname
        val uname' = uname ^ "\n"
 
        fun loop () =
@@ -113,4 +113,7 @@ fun cronAllowed uname =
        before TextIO.closeIn inf
     end
 
+val cronAllowed = somethingAllowed "/etc/cron.allow"
+val ftpAllowed = somethingAllowed "/etc/ftpusers"
+
 end