Increase domain component length limit

diff --git a/header.mlt b/header.mlt
index 0ba3859..b69388c 100644 (file)
--- a/header.mlt
+++ b/header.mlt
@@ -38,6 +38,7 @@ Admin<br />
 Your account<br />
 <li> <a href="pref">Preferences</a></li>
 <li> <a href="money">Financial</a></li>
+<li> <a href="pledge">Sliding scale pledges</a></li>
 <li> <a href="sec">Security settings</a></li>
 <li> <a href="contact">Contact information</a></li>
 <li> <a href="location">Your geographic locations</a></li>

diff --git a/pledge.mlt b/pledge.mlt
index 340cdac..237a8e0 100644 (file)
--- a/pledge.mlt
+++ b/pledge.mlt
@@ -18,7 +18,7 @@ end
 
 val user = Init.getUser () %>
 
-<p><b>This page is just an experiment now! What you set here will not have any effect on how much you are charged for anything. At the same time, try to avoid having a pledge set that is more than you will really pay, since that will mess up our planning.</b></p>
+<p><b>The pledges on this page will "go live" on Saturday, November 25, 2006. That is, past that point, we will actually bill you based on what you set here.</b></p>
 
 <p>HCoop divides expenses among members based on a "sliding scale"-style scheme. We charge you only for our concrete expenses, not adding any expenses beyond what we pay to service providers and vendors. Whenever a concrete expense needs to be paid for, we divide it among the members based on how much each of you has pledged on this web page. Your pledge is a whole number 1 or higher which you can think of as indicating how many times the amount paid by the lowest-contributing members you are willing to pay. Concretely, every expense is divided by the sum of all members' pledges, and each member is charged an amount equal to the result of that division times his pledge number. This way <i>everyone's</i> monthly costs go down automatically as we gain new members.</p>
 

diff --git a/util.sml b/util.sml
index a9ed02b..d1c7214 100644 (file)
--- a/util.sml
+++ b/util.sml
@@ -34,7 +34,7 @@ fun mult (r1, r2) = real r1 * r2
 fun isIdent ch = Char.isLower ch orelse Char.isDigit ch orelse ch = #"-"
 
 fun validHost s =
-    size s > 0 andalso size s < 20 andalso List.all isIdent (String.explode s)
+    size s > 0 andalso size s < 40 andalso List.all isIdent (String.explode s)
                                                  
 fun validDomain s =
     size s > 0 andalso size s < 100 andalso List.all validHost (String.fields (fn ch => ch = #".") s)