Changeset 495 for branches/htmlform/cgi-bin/main.cgi

Timestamp:

09/23/10 22:44:04 (14 years ago)

Author:

Kris Deugau

Message:

/branches/htmlform

Converted main.cgi "invalid action" into template. See #3.
"Cleaned up" error messages for an invalid action, removed call to printAndExit(). See #15, #26.

File:

• branches/htmlform/cgi-bin/main.cgi (modified) (2 diffs)

branches/htmlform/cgi-bin/main.cgi

@@ -87 +87 @@
 }
 
-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 +169 @@
 }
 
-# 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!