/[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 88 by dpavlin, Mon May 24 13:44:01 2004 UTC revision 96 by dpavlin, Wed May 26 19:01:59 2004 UTC
# Line 1  Line 1 
1  #!perl -w  #!/usr/bin/perl -w
2  #                              -*- Mode: Perl -*-  #                              -*- Mode: Perl -*-
3  # $Basename: sman $  # $Basename: sman $
4  # $Revision: 1.14 $  # $Revision: 1.14 $
# Line 18  use Getopt::Long; Line 18  use Getopt::Long;
18  use Fcntl qw(O_RDONLY);  use Fcntl qw(O_RDONLY);
19  use Config;  use Config;
20    
21  use '/data/wait/lib';  use lib '/data/wait/lib';
22    
23  require WAIT::Config;  require WAIT::Config;
24  require WAIT::Database;  require WAIT::Database;
# Line 73  if ($Config::Config{'archname'} eq 'i586 Line 73  if ($Config::Config{'archname'} eq 'i586
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;
# Line 192  sub help { Line 193  sub help {
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    
# Line 238  sub display { Line 239  sub display {
239    if ($tdid !~ m(^/)) {    if ($tdid !~ m(^/)) {
240      $tdid = $tb->dir . '/' . $tdid;      $tdid = $tb->dir . '/' . $tdid;
241    }    }
242      # if original version doesn't exist maybe someone created gziped one?
243      # (this is used if you decided to compress data files after indexing,
244      # next indexing will pick names with gz extension anyway)
245      if (! -e $tdid && -e $tdid.".gz") {
246        $tdid .= ".gz";
247      }
248    
249    # The main task of all that follows from here is highlighting. WAIT    # The main task of all that follows from here is highlighting. WAIT
250    # 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
# Line 357  sub filter { Line 364  sub filter {
364  }  }
365    
366  sub less {  sub less {
367    my $flags;    my $flags = '';
368    if ($WAIT::Config->{pager} =~ /less/) {    if ($WAIT::Config->{pager} =~ /less/) {
369      $flags = '-r';      $flags = '-r';
370    } elsif ($WAIT::Config->{pager} =~ /more/) {    } elsif ($WAIT::Config->{pager} =~ /more/) {
Legend:
Removed from v.88  
changed lines
  Added in v.96
  ViewVC Help
Powered by ViewVC 1.1.26