cmd/set/page.pl

   1 #
   2 # set the page length for this invocation of the client
   3 #
   4 # Copyright (c) 1998 - Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8 my $self = shift;
   9 my $l = shift;
  10 $l = 10 if $l < 10 && $l > 0;
  11 $self->pagelth($l);
  12 $self->user->pagelth($l);
  13 return (1, $self->msg('pagelth', $l));