Changeset 6967 for trunk/gsdl/perllib/classify.pm

Timestamp:

2004-03-08T15:31:35+13:00 (20 years ago)

Author:

kjdon

Message:

added a new load_classifier_for_info method which is used by classinfo.pl - this one adds a new arg into the classifier options (-gsdlinfo), so that the arguments are not parsed - some classifiers die if their required args are not set, but don't want this to happen for classinfo.pl

File:

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

trunk/gsdl/perllib/classify.pm

@@ -40 +40 @@
 $next_classify_num = 1;
 $collage = 0;
+sub load_classifier_for_info {
+    my ($classifier) = shift @_;
+
+    # find the classifier
+    my $colclassname = &util::filename_cat($ENV{'GSDLCOLLECTDIR'},
+                       "perllib/classify", 
+                       "${classifier}.pm");
+    my $mainclassname = &util::filename_cat($ENV{'GSDLHOME'},
+                        "perllib/classify", 
+                        "${classifier}.pm");
+
+    if (-e $colclassname) { require $colclassname; }
+    elsif (-e $mainclassname) { require $mainclassname; }
+    else { 
+    &gsprintf(STDERR, "{classify.could_not_find_classifier}\n", $classifier) && die "\n";
+    }
+    my ($classobj);
+    my $options = "-gsdlinfo";
+
+    eval ("\$classobj = new \$classifier($options)");
+    die "$@" if $@;
+
+    return $classobj;
+}
 
 sub load_classifiers {
@@ -66 +90 @@
     my ($classobj);
 
-    # backwards compatability hack: if the classifier options are 
-    # in "x=y" format, convert them to parsearg ("-x y") format.
-    my ($opt, $key, $value);
     my @newoptions;
 
@@ -76 +97 @@
     push @newoptions, "-verbosity", "2";
 
+    # backwards compatability hack: if the classifier options are 
+    # in "x=y" format, convert them to parsearg ("-x y") format.
+    my ($opt, $key, $value);
     foreach $opt (@$classifyoption) {
         if ($opt =~ /^(\w+)=(.*)$/) {