WikiPatches/ForceFreeUpper

When FreeUpper is on, this patch prevents the case pages with non-upper case are made.

--- wiki_orig.cgi	2002-12-25 18:56:20.000000000 -0600
+++ wiki_forceuc.cgi	2002-12-25 21:41:10.000000000 -0600
@@ -352,7 +352,14 @@
   my ($id, $action, $text);
 
   if (!$q->param) {             # No parameter
-    &BrowsePage($HomePage);
+    if ($FreeLinks) {
+      # Well, it is a fault of the site manager but make it valid anyway.
+      $id = &FreeToNormal($HomePage);
+    }
+    else {
+      $id = $HomePage;
+    }
+    &BrowsePage($id) if &ValidIdOrDie($id);
     return 1;
   }
   $id = &GetParam('keywords', '');
@@ -2009,6 +2016,9 @@
     if ($id =~ m|\.lck$|) {
       return Ts('Invalid Page %s (must not end with .lck)', $id);
     }
+    if ($FreeUpper && ($id =~ m|[-_.,\(\)/][a-z]| || $id =~ m|\A[a-z]|)) {
+      return Ts('Invalid Page %s', $id);
+    }
     return "";
   } else {
     if (!($id =~ /^$LinkPattern$/)) {