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; |
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 |
} |
} |