Changeset 27069
- Timestamp:
- 2013-03-12T15:01:01+13:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/bin/script/lucene_query.pl
r16062 r27069 59 59 my $filter_string = shift(@_); 60 60 my $sort_field = shift(@_); 61 my $reverse_sort = shift(@_); 61 62 my $dco = shift(@_); 62 63 my $start_results = shift(@_); … … 78 79 $cmd .= " -sort " . $sort_field; 79 80 } 81 if ($reverse_sort) { 82 $cmd .= " -reverse_sort"; 83 } 80 84 if (defined($dco)) { 81 85 $cmd .= " -dco " . $dco; … … 90 94 $cmd .= " > \"" . $out_file . "\""; 91 95 } 92 #print STDERR $cmd . "\n";96 print STDERR $cmd . "\n"; 93 97 94 98 if (!open (PIPEOUT, $cmd)) { … … 107 111 my $argc = scalar(@argv); 108 112 if ($argc == 0) { 109 print STDERR "Usage: $PROGNAME full-index-dir [query] [-fuzziness value] [-filter filter_string] [-sort sort_field] [- dco AND|OR] [-startresults number -endresults number] [-out out_file]\n";113 print STDERR "Usage: $PROGNAME full-index-dir [query] [-fuzziness value] [-filter filter_string] [-sort sort_field] [-reverse_sort] [-dco AND|OR] [-startresults number -endresults number] [-out out_file]\n"; 110 114 exit 1; 111 115 } … … 116 120 my $filter_string = undef; 117 121 my $sort_field = undef; 122 my $reverse_sort = 0; 118 123 my $dco = undef; 119 124 my $start_results = undef; … … 133 138 $i++; 134 139 $sort_field = $argv[$i]; 140 } 141 elsif ($argv[$i] eq "-reverse_sort") { 142 $reverse_sort = 1; 135 143 } 136 144 elsif ($argv[$i] eq "-dco") { … … 155 163 } 156 164 157 open_java_lucene($full_indexdir, $fuzziness, $filter_string, $sort_field, $ dco, $start_results, $end_results, $out_file);165 open_java_lucene($full_indexdir, $fuzziness, $filter_string, $sort_field, $reverse_sort, $dco, $start_results, $end_results, $out_file); 158 166 159 167 if (defined $query) {
Note:
See TracChangeset
for help on using the changeset viewer.