From d4af9b75c46cddd2cc830961eb615975ed260a9e Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 7 Nov 2001 12:40:22 +0000 Subject: [PATCH] fix it so that you can type in '0' again --- Changes | 1 + perl/console.pl | 7 ++++--- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 3c472a50..70f3e93a 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,6 @@ 07Nov01======================================================================= 1. fix is_pctext so that it actually catches corrupt spots and announces. +2. fix console.pl so that you can type in '0' again 06Nov01======================================================================= 1. fix read so that sysop reading doesn't increment the read counter for private mail not addressed to them. diff --git a/perl/console.pl b/perl/console.pl index 8af9f3b3..eae1c0ff 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -241,7 +241,7 @@ sub rec_socket my ($sort, $call, $line) = $msg =~ /^(\w)([^\|]+)\|(.*)$/; if ($sort && $sort eq 'D') { - $line = " " unless $line; + $line = " " unless length($line); addtotop($line); } elsif ($sort && $sort eq 'Z') { # end, disconnect, go, away ..... cease(0); @@ -269,11 +269,12 @@ sub rec_stdin # print "sys: $r ($prbuf)\n"; if (defined $r) { + $r = '0' if !$r; if ($r eq KEY_ENTER || $r eq "\n" || $r eq "\r") { # save the lines - $inbuf = " " unless $inbuf; + $inbuf = " " unless length($inbuf); # check for a pling and do a search back for a command if ($inbuf =~ /^!/o) { @@ -392,7 +393,7 @@ sub rec_stdin } elsif ($r eq KEY_RESIZE || $r eq "\0632") { do_resize(); return; - } elsif (is_pctext($r)) { + } elsif (defined is_pctext($r)) { # move the top screen back to the bottom if you type something if ($spos < @shistory) { $spos = @shistory; -- 2.43.0