Index: /branches/htmlform/cgi-bin/main.cgi
===================================================================
--- /branches/htmlform/cgi-bin/main.cgi	(revision 494)
+++ /branches/htmlform/cgi-bin/main.cgi	(revision 495)
@@ -87,5 +87,10 @@
 }
 
-my $page = HTML::Template->new(filename => "$webvar{action}.tmpl");
+my $page;
+if (-e "$ENV{HTML_TEMPLATE_ROOT}/admin/$webvar{action}.tmpl") {
+  $page = HTML::Template->new(filename => "$webvar{action}.tmpl");
+} else {
+  $page = HTML::Template->new(filename => "dunno.tmpl");
+}
 
 if($webvar{action} eq 'index') {
@@ -164,15 +169,22 @@
 }
 
-# Default is an error.  It shouldn't be possible to easily get here.
-# The only way I can think of offhand is to just call main.cgi bare-
-# which is not in any way guaranteed to provide anything useful.
+# Default is an error.  It shouldn't be possible to get here unless you're
+# randomly feeding in values for webvar{action}.
 else {
   my $rnd = rand 500;
   my $boing = sprintf("%.2f", rand 500);
-  my @excuses = ("Aether cloudy.  Ask again later.","The gods are unhappy with your sacrifice.",
-	"Because one of it's legs are both the same", "*wibble*",
-	"Hey! Stop pushing my buttons!", "I ain't done nuttin'", "9",
-	"8", "9", "10", "11", "12", "13", "14", "15", "16", "17");
-  printAndExit("Error $boing:  ".$excuses[$rnd/30.0]);
+  my @excuses = (
+	"Aether cloudy.  Ask again later about $webvar{action}.",
+	"The gods are unhappy with your sacrificial $webvar{action}.",
+	"Because one of $webvar{action}'s legs are both the same",
+	"<b>wibble</b><br>Can't $webvar{action}, the grue will get me!<br>Can't $webvar{action}, the grue will get me!",
+	"Hey, man, you've had your free $webvar{action}.  Next one's gonna...  <i>cost</i>....",
+	"I ain't done $webvar{action}",
+	"Oooo, look!  A flying $webvar{action}!",
+	"$webvar{action} too evil, avoiding.",
+	"Rocks fall, $webvar{action} dies.",
+	"Bit bucket must be emptied before I can $webvar{action}..."
+	);
+  $page->param(dunno => $excuses[$rnd/50.0]);
 }
 ## Finally! Done with that NASTY "case" emulation!
