/[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 96 by dpavlin, Wed May 26 19:01:59 2004 UTC revision 98 by dpavlin, Thu May 27 10:41:59 2004 UTC
# Line 72  if ($Config::Config{'archname'} eq 'i586 Line 72  if ($Config::Config{'archname'} eq 'i586
72    $format = new WAIT::Format::Term;    $format = new WAIT::Format::Term;
73  }  }
74    
75  my $pager =  ($OPT{pager}) ? \&pager : \&less;  my $pager =  ($OPT{pager}) ? \&less : \&pager;
 $pager =  \&less;       # force pager usage  
76  my $OUT   = $term->OUT;  my $OUT   = $term->OUT;
77    
78  my $st = 1;  my $st = 1;
# Line 365  sub filter { Line 364  sub filter {
364    
365  sub less {  sub less {
366    my $flags = '';    my $flags = '';
367    if ($WAIT::Config->{pager} =~ /less/) {    my $pager = $OPT{pager};
368      if ($pager =~ /less/) {
369      $flags = '-r';      $flags = '-r';
370    } elsif ($WAIT::Config->{pager} =~ /more/) {    } elsif ($pager =~ /more/) {
371      $flags = '-c';      $flags = '-c';
372      } elsif ($pager =~ /lynx/) {
373        $flags = '-stdin';
374    }    }
375    open(PAGER, "|$WAIT::Config->{pager} $flags") or die;    open(PAGER, "| $pager $flags") or die;
376    print PAGER @_;    print PAGER @_;
377    close PAGER;    close PAGER;
378  }  }
Legend:
Removed from v.96  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.26