Changeset 2024

Timestamp:

2001-02-20T15:05:25+13:00 (23 years ago)

Author:

paynter

Message:

Store classifier-specific parameters in gdbm file if required. Implemented
so that Phind.pm can pass data along to (eventually) appear in web pages
(via gdbm, documentaction, and macros).

File:

• trunk/gsdl/perllib/classify.pm (modified) (3 diffs)

trunk/gsdl/perllib/classify.pm

@@ -67 +67 @@
         }
     }
-    push @newoptions, "-builddir", "$build_dir";
-    push @newoptions, "-outhandle", "$outhandle";
+    push @newoptions, "-builddir", "$build_dir" if ($build_dir);
+    push @newoptions, "-outhandle", "$outhandle" if ($outhandle);
     push @newoptions, "-verbosity", "2";
 
@@ -74 +74 @@
     my $options .= join (",", @newoptions);
 
-    # print STDERR "$classname\noptions: $options\n";
     eval ("\$classobj = new \$classname($options)");
     die "$@" if $@;
@@ -149 +148 @@
     $outputtext .= "<thistype>$classifyinfo->{'thistype'}\n" 
         if defined $classifyinfo->{'thistype'};
-
+    $outputtext .= "<parameters>$classifyinfo->{'parameters'}\n" 
+        if defined $classifyinfo->{'parameters'};
     
     my $contains_text = "<contains>";