Changeset 9 in text-formbuilder for trunk/bin

Timestamp:

10/12/04 12:57:46 (20 years ago)

Author:

peter

Message:

added some simple tests
worked on CGI framework script

File:

• trunk/bin/fb-cgi.pl (modified) (4 diffs)

trunk/bin/fb-cgi.pl

@@ -7 +7 @@
 my $q = CGI->new;
 
-my $src_file = get_src_file($q->param('form_id'));
+my $form_id = $q->param('form_id');
+my $src_file = get_src_file($form_id);
 
 my $parser = Text::FormBuilder->new;
@@ -16 +17 @@
     # call storage function
 
-    my $plugin = 'DumpParams';
+    my $plugin = 'StoreSQLite';
     
     eval "use $plugin;";
@@ -23 +24 @@
 
     # plugin process method should return a true value
-    if ($plugin->process($q, $form)) {
+    if ($plugin->process($q, $form, $form_id)) {
         # show thank you page
     } else {
@@ -37 +38 @@
 sub get_src_file {
     my $form_id = shift;
-    return "$form_id.txt";
+    my $form_spec_path = 'F:/Projects/SurveyMaker/form_specs';
+    return "$form_spec_path/$form_id.txt";
 }