Changeset 1871
- Timestamp:
- 2001-01-30T10:18:33+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/classify/phind.pm
r1840 r1871 32 32 # button=Name The label for the classifiers button in the 33 33 # navigation bar (defaults to "Phrase"). 34 # title=Title The metadata field used to describe each document34 # -title Title The metadata field used to describe each document 35 35 # (defaults to "Title"). 36 # text=fields The text used to build the phrase hierarchy36 # -text fields The text used to build the phrase hierarchy 37 37 # (defaults to "section:Title,section:text"). 38 # phinddir=directory Location of phind index files39 # verbosity=num Control amount of output40 # untidy=trueDo not clean up intermediate files41 # suffixmode=num Mode of suffix program (0 = all phrases, 1 = stopword)42 # suffixsize=num Number of symbols available to suffix program43 # savephrases=filename If set, phrase infomation will be stored in filename38 # -phinddir directory Location of phind index files 39 # -verbosity num Control amount of output 40 # -untidy Do not clean up intermediate files 41 # -suffixmode num Mode of suffix program (0 = all phrases, 1 = stopword) 42 # -suffixsize num Number of symbols available to suffix program 43 # -savephrases filename If set, phrase infomation will be stored in filename 44 44 # as text. (By defualt, it is not set.) 45 # thesaurus=name Name of a thesaurus stred in phind format in etc dir.45 # -thesaurus name Name of a thesaurus stred in phind format in etc dir. 46 46 47 47 # How a classifier works. … … 171 171 q^title/.*/Title^, \$self->{'titlefield'}, 172 172 q^button/.*/Phrase^, \$self->{'buttonname'}, 173 q^language/.*/en glish^, \$language,173 q^language/.*/en^, \$language, 174 174 q^builddir/.*/^, \$builddir, 175 175 q^savephrases/\d/0^, \$self->{'savephrases'}, … … 189 189 190 190 # limit languages 191 $language =~ s/,/\|/g;192 191 $self->{'language_exp'} = $language; 193 192 … … 250 249 my $title = $doc_obj->get_metadata_element ($top_section, $titlefield); 251 250 print "process: $title\n" if ($verbosity > 2); 252 253 251 254 252 # only consider english-language files … … 538 536 my $status = system($command); 539 537 if ($status != 0) { 540 print STDERR "phind gen.pl- Error executing $command: $!\n";538 print STDERR "phind - Error executing $command: $!\n"; 541 539 exit($status); 542 540 }
Note:
See TracChangeset
for help on using the changeset viewer.