contact: fix build

[hcoop/portal.git] / quotas.sml

diff --git a/quotas.sml b/quotas.sml
index 2d38b01..da39509 100644 (file)
--- a/quotas.sml
+++ b/quotas.sml
@@ -2,7 +2,7 @@ structure Quotas :> QUOTAS =
 struct
     fun getQuotas uname =
        let
-           val proc = Unix.execute ("/bin/sh", ["-c", "/usr/bin/vos listvol -long deleuze"])
+           val proc = Unix.execute ("/bin/sh", ["-c", "/usr/bin/vos listvol -long fritz"])
            val inf = Unix.textInstreamOf proc
 
            fun eatUntilBlankLine () =
@@ -43,7 +43,7 @@ struct
                        else
                            (eatUntilBlankLine ();
                             loop acc)
-                     | _ => acc
+                     | _ => loop acc
 
            val _ = TextIO.inputLine inf
        in
@@ -73,7 +73,7 @@ struct
        in
            case kind of
                "user" => "/afs/hcoop.net/user/" ^ goofy uname
-             | "db" => "/afs/hcoop.net/.databases/" ^ goofy uname
+             | "db" => "/afs/hcoop.net/common/.databases/" ^ goofy uname
              | "mail" => "/afs/hcoop.net/user/" ^ goofy uname ^ "/Maildir"
              | _ => raise Fail ("Don't know how to find mount point for volume " ^ vol)
        end