Various quota request improvements, suggested by docelic

diff --git a/header.mlt.in b/header.mlt.in
index 6f76526..fb86bd5 100644 (file)
--- a/header.mlt.in
+++ b/header.mlt.in
@@ -32,6 +32,7 @@ Your account<br />
 Support requests<br />
 <li> <a href="domain">Request control of a domain with domtool</a></li>
 <li> <a href="apt">Request Debian apt packages</a></li>
+<li> <a href="quota">Request a disk quota change</a></li>
 <li> <a href="list">Request a Mailman mailing list</a></li>
 <li> <a href="ip">Request an IP address</a></li>
 <li> <a href="cert">Request SSL certificate permissions</a></li>

diff --git a/quota.mlt b/quota.mlt
index a10311c..e1eea1d 100644 (file)
--- a/quota.mlt
+++ b/quota.mlt
@@ -141,6 +141,8 @@ elseif $"mod" <> "" then
 
 <h3>Request a disk quota change</h3>
 
+<p>Remember that a high quota does not by itself use up any resources.  Quotas are solely a check on unintentional overusage.  We will only ever bill you for actual disk usage, not quota.  Therefore, it only makes sense to ask for a quota to be reduced if you want to prevent a runaway process or similar from upping your bill, not because you're worried about being a good co-op citizen.</p>
+
 <form method="post">
 
 <table>

diff --git a/quotas.sml b/quotas.sml
index 2d38b01..a667846 100644 (file)
--- a/quotas.sml
+++ b/quotas.sml
@@ -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