/[wait]/cvs-head/script/sman
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cvs-head/script/sman

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 64 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,
Legend:
Removed from v.64  
changed lines
  Added in v.65
  ViewVC Help
Powered by ViewVC 1.1.26