Changeset 1871

Timestamp:

2001-01-30T10:18:33+13:00 (23 years ago)

Author:

paynter

Message:

Use two-letter codes for language names, updated docs.

File:

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

trunk/gsdl/perllib/classify/phind.pm

@@ -32 +32 @@
 #   button=Name           The label for the classifiers button in the
 #                         navigation bar (defaults to "Phrase").
-#   title=Title           The metadata field used to describe each document
+#  -title Title           The metadata field used to describe each document
 #                         (defaults to "Title").
-#   text=fields           The text used to build the phrase hierarchy
+#  -text fields           The text used to build the phrase hierarchy
 #                         (defaults to "section:Title,section:text").
-#   phinddir=directory    Location of phind index files
-#   verbosity=num         Control amount of output
-#   untidy=true           Do not clean up intermediate files
-#   suffixmode=num        Mode of suffix program (0 = all phrases, 1 = stopword)
-#   suffixsize=num        Number of symbols available to suffix program
-#   savephrases=filename  If set, phrase infomation will be stored in filename
+#  -phinddir directory    Location of phind index files
+#  -verbosity num         Control amount of output
+#  -untidy                Do not clean up intermediate files
+#  -suffixmode num        Mode of suffix program (0 = all phrases, 1 = stopword)
+#  -suffixsize num        Number of symbols available to suffix program
+#  -savephrases filename  If set, phrase infomation will be stored in filename
 #                         as text. (By defualt, it is not set.)
-#   thesaurus=name        Name of a thesaurus stred in phind format in etc dir.
+#  -thesaurus name        Name of a thesaurus stred in phind format in etc dir.
 
 # How a classifier works.  
@@ -171 +171 @@
              q^title/.*/Title^, \$self->{'titlefield'},
              q^button/.*/Phrase^, \$self->{'buttonname'},
-             q^language/.*/english^, \$language,
+             q^language/.*/en^, \$language,
              q^builddir/.*/^, \$builddir,
              q^savephrases/\d/0^, \$self->{'savephrases'},
@@ -189 +189 @@
 
     # limit languages
-    $language =~ s/,/\|/g;
     $self->{'language_exp'} = $language;
     
@@ -250 +249 @@
     my $title = $doc_obj->get_metadata_element ($top_section, $titlefield);
     print "process: $title\n" if ($verbosity > 2);
-
 
     # only consider english-language files
@@ -538 +536 @@
     my $status = system($command);
     if ($status != 0) {
-    print STDERR "phindgen.pl - Error executing $command: $!\n";
+    print STDERR "phind - Error executing $command: $!\n";
     exit($status);
     }