Changeset 1872
- Timestamp:
- 2001-01-30T11:34:11+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/src/phind/generate/symbol-names.pl
r1562 r1872 31 31 die "Usage: symbol-names.pl collection [file]\n" unless ($collection); 32 32 33 $vocab = $ENV{'GSDLHOME'} . "/collect/$collection/phindex/clauses.vocab"; 34 die "Usage: symbol-names.pl collection [file]\n" unless (-e "$vocab"); 33 $vocab = $ENV{'GSDLHOME'} . "/collect/$collection/index/phind/clauses.vocab"; 34 if (-e "$vocab") { 35 print "Using vocabulary from: $vocab\n"; 36 } else { 37 $vocab = $ENV{'GSDLHOME'} . "/collect/$collection/building/phind/clauses.vocab"; 38 if (-e "$vocab") { 39 print "Using vocabulary from: $vocab\n"; 40 } else { 41 die "Usage: symbol-names.pl collection [file]\n" unless (-e "$vocab"); 42 } 43 } 35 44 36 45 open(V, "<$vocab");
Note:
See TracChangeset
for help on using the changeset viewer.