From 2dd2d417adfc86f29d4091c444e3f99906a51771 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 7 May 2001 16:03:19 +0000 Subject: [PATCH] set/page 0 switches off paging --- Changes | 2 ++ cmd/set/page.pl | 3 +-- perl/cluster.pl | 2 +- 3 files changed, 4 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 8a2cde4a..29dcca4d 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +07May01======================================================================= +1. set/page 0 switches off paging 03May01======================================================================= 1. It appears that for ages now, not enough PC19 and PC16s are being sent if you have more than one of them. Sigh.. diff --git a/cmd/set/page.pl b/cmd/set/page.pl index cb997c93..6b509759 100644 --- a/cmd/set/page.pl +++ b/cmd/set/page.pl @@ -7,8 +7,7 @@ # my $self = shift; my $l = shift; -$l = 20 if $l == 0; -$l = 10 if $l < 10; +$l = 10 if $l < 10 && $l > 0; $self->pagelth($l); $self->user->pagelth($l); return (1, $self->msg('pagelth', $l)); diff --git a/perl/cluster.pl b/perl/cluster.pl index 9c7557bf..98fdbb18 100755 --- a/perl/cluster.pl +++ b/perl/cluster.pl @@ -100,7 +100,7 @@ use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects @inqueue = (); # the main input queue, an array of hashes $systime = 0; # the time now (in seconds) -$version = "1.47"; # the version no of the software +$version = "1.48"; # the version no of the software $starttime = 0; # the starting time of the cluster #@outstanding_connects = (); # list of outstanding connects @listeners = (); # list of listeners -- 2.43.0