Changeset 7 in text-formbuilder for trunk/bin/fb-cgi.pl

Timestamp:

10/06/04 13:44:15 (20 years ago)

Author:

peter

Message:

removed dependecies on YAML and Parse::RecDescent
renamed _dump to dump; now only tries to load YAML if it is called; non-fatal error if YAML cannot be loaded
modified bin/fb-cgi.pl
expanded docs

File:

• trunk/bin/fb-cgi.pl (modified) (1 diff)

trunk/bin/fb-cgi.pl

@@ -12 +12 @@
 my $form = $parser->parse($src_file)->build(method => 'POST', params => $q)->form;
 
-if ($form->submitted && $form->validate) {
-    # TODO:
+if (1 or $form->submitted && $form->validate) {
+
     # call storage function
+
     my $plugin = 'DumpParams';
+    
     eval "use $plugin;";
-    
-    if ($plugin->process($q)) {
+    die "Can't use $plugin; $@" if $@;
+    die "Plugin $plugin doesn't know how to process" unless $plugin->can('process');
+
+    # plugin process method should return a true value
+    if ($plugin->process($q, $form)) {
         # show thank you page
-        #print $q->header('text/plain');
-        #print "Thank you for your input!\n"
     } else {
         # there was an error processing the results
+        die "There was an error processing the submission: " . $plugin->error;
     }