update references to fritz

this really should be a config variable though

diff --git a/quotas.sml b/quotas.sml
index da39509..87592a1 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 fritz"])
+           val proc = Unix.execute ("/bin/sh", ["-c", "/usr/bin/vos listvol -long gibran"])
            val inf = Unix.textInstreamOf proc
 
            fun eatUntilBlankLine () =

diff --git a/stats.sml b/stats.sml
index 39aef14..e8a9edf 100644 (file)
--- a/stats.sml
+++ b/stats.sml
@@ -112,7 +112,7 @@ struct
 
     fun getDiskUsage () =
        let
-           val proc = Unix.execute ("/bin/sh", ["-c", "/usr/bin/vos listvol fritz"])
+           val proc = Unix.execute ("/bin/sh", ["-c", "/usr/bin/vos listvol gibran"])
            val inf = Unix.textInstreamOf proc
 
            fun loop acc =