Parent Directory | Revision Log | Patch
revision 20 by cvs2svn, Tue May 9 11:29:45 2000 UTC | revision 65 by laperla, Wed Jan 23 12:22:54 2002 UTC | |
---|---|---|
# | Line 15 use strict; | Line 15 use strict; |
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 | require WAIT::Config; | require WAIT::Config; |
# | Line 39 GetOptions(\%OPT, | Line 39 GetOptions(\%OPT, |
39 | 'table=s', | 'table=s', |
40 | 'filter=i', | 'filter=i', |
41 | 'max=i', | 'max=i', |
42 | 'pager:s') || die "Usage: ...\n"; | 'pager:s') || die " |
43 | Usage: $0 | |
44 | [--database database] | |
45 | [--dir dir ] | |
46 | [--table table ] | |
47 | [--filter integer ] | |
48 | [--max integer ] | |
49 | [--pager pager ] | |
50 | "; | |
51 | ||
52 | my $db = WAIT::Database->open(name => $OPT{database}, | my $db = WAIT::Database->open(name => $OPT{database}, |
53 | mode => O_RDONLY, | mode => O_RDONLY, |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |