/[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 91 by dpavlin, Tue May 25 15:57:50 2004 UTC revision 96 by dpavlin, Wed May 26 19:01:59 2004 UTC
# Line 239  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 358  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.91  
changed lines
  Added in v.96
  ViewVC Help
Powered by ViewVC 1.1.26