/[wait]/trunk/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 /trunk/script/sman

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

revision 20 by cvs2svn, Tue May 9 11:29:45 2000 UTC revision 86 by dpavlin, Mon May 24 13:41:28 2004 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    use '/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;
# Line 39  GetOptions(\%OPT, Line 41  GetOptions(\%OPT,
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,
# Line 225  sub display { Line 235  sub display {
235  # WHAT DOES HE DO HERE? ULI???  # WHAT DOES HE DO HERE? ULI???
236  # Re: some indexing scripts did use pathnames relative to the table directory  # Re: some indexing scripts did use pathnames relative to the table directory
237  # especially the cpanwait script does this. uli  # especially the cpanwait script does this. uli
238  #  if ($tdid !~ m(^/)) {    if ($tdid !~ m(^/)) {
239  #    $tdid = $tb->dir . '/' . $tdid;      $tdid = $tb->dir . '/' . $tdid;
240  #  }    }
241    
242    # The main task of all that follows from here is highlighting. WAIT    # The main task of all that follows from here is highlighting. WAIT
243    # 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
Legend:
Removed from v.20  
changed lines
  Added in v.86
  ViewVC Help
Powered by ViewVC 1.1.26