1 |
#!perl -w |
#!/usr/bin/perl -w |
2 |
# -*- Mode: Perl -*- |
# -*- Mode: Perl -*- |
3 |
# $Basename: sman $ |
# $Basename: sman $ |
4 |
# $Revision: 1.14 $ |
# $Revision: 1.14 $ |
15 |
|
|
16 |
use Term::ReadLine; |
use Term::ReadLine; |
17 |
use Getopt::Long; |
use Getopt::Long; |
18 |
use Fcntl; |
use Fcntl qw(O_RDONLY); |
19 |
use Config; |
use Config; |
20 |
|
|
21 |
|
use lib '/data/wait/lib'; |
22 |
|
|
23 |
require WAIT::Config; |
require WAIT::Config; |
24 |
require WAIT::Database; |
require WAIT::Database; |
25 |
require WAIT::Query::Base; |
require WAIT::Query::Base; |
41 |
'table=s', |
'table=s', |
42 |
'filter=i', |
'filter=i', |
43 |
'max=i', |
'max=i', |
44 |
'pager:s') || die "Usage: ...\n"; |
'pager:s') || die " |
45 |
|
Usage: $0 |
46 |
|
[--database database] |
47 |
|
[--dir dir ] |
48 |
|
[--table table ] |
49 |
|
[--filter integer ] |
50 |
|
[--max integer ] |
51 |
|
[--pager pager ] |
52 |
|
"; |
53 |
|
|
54 |
my $db = WAIT::Database->open(name => $OPT{database}, |
my $db = WAIT::Database->open(name => $OPT{database}, |
55 |
mode => O_RDONLY, |
mode => O_RDONLY, |
73 |
} |
} |
74 |
|
|
75 |
my $pager = ($OPT{pager}) ? \&pager : \&less; |
my $pager = ($OPT{pager}) ? \&pager : \&less; |
76 |
|
$pager = \&less; # force pager usage |
77 |
my $OUT = $term->OUT; |
my $OUT = $term->OUT; |
78 |
|
|
79 |
my $st = 1; |
my $st = 1; |
193 |
q Exit from $0 |
q Exit from $0 |
194 |
l redisplay last ranking |
l redisplay last ranking |
195 |
Other input is tried as wais query. |
Other input is tried as wais query. |
196 |
The following fields are known: $idb |
The following fields for table '$OPT{table}' are known: $idb |
197 |
] ; |
] ; |
198 |
} |
} |
199 |
|
|
236 |
# WHAT DOES HE DO HERE? ULI??? |
# WHAT DOES HE DO HERE? ULI??? |
237 |
# Re: some indexing scripts did use pathnames relative to the table directory |
# Re: some indexing scripts did use pathnames relative to the table directory |
238 |
# especially the cpanwait script does this. uli |
# especially the cpanwait script does this. uli |
239 |
# if ($tdid !~ m(^/)) { |
if ($tdid !~ m(^/)) { |
240 |
# $tdid = $tb->dir . '/' . $tdid; |
$tdid = $tb->dir . '/' . $tdid; |
241 |
# } |
} |
242 |
|
|
243 |
# The main task of all that follows from here is highlighting. WAIT |
# The main task of all that follows from here is highlighting. WAIT |
244 |
# is designed to make it possible to show the user why a certain |
# is designed to make it possible to show the user why a certain |