From 8cf374587593eacd30423223278ed63df45babc6 Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 5 Jul 1999 16:16:58 +0000 Subject: [PATCH] a few detail changes --- Changes | 4 ++++ perl/DXMsg.pm | 2 +- perl/console.pl | 15 +++++++++++++++ 3 files changed, 20 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 42289542..3907a654 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,7 @@ +04Jul99======================================================================= +1. removed silly 'new message has arrived' to connected nodes if message is +2. added a ! command to the console.pl program; works like the bash shell. +addressed to the node call. 01Jul99======================================================================= 1. Altered priv to 5 for connect.pl to match disconnect for nodes 29Jun99======================================================================= diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index a76ec43d..42d5c65e 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -275,7 +275,7 @@ sub process $ref->store($ref->{lines}); add_dir($ref); my $dxchan = DXChannel->get($ref->{to}); - $dxchan->send($dxchan->msg('m9')) if $dxchan; + $dxchan->send($dxchan->msg('m9')) if $dxchan && $dxchan->is_user; Log('msg', "Message $ref->{msgno} from $ref->{from} received from $f[2] for $ref->{to}"); } } diff --git a/perl/console.pl b/perl/console.pl index 0cb15bd0..41eb8016 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -163,6 +163,21 @@ sub rec_stdin # save the lines if ($inbuf) { + # check for a pling and do a search back for a command + if ($inbuf =~ /^!/o) { + my $i; + $inbuf =~ s/^!//o; + for ($i = $#khistory; $i >= 0; $i--) { + if ($khistory[$i] =~ /^$inbuf/) { + $inbuf = $khistory[$i]; + last; + } + } + if ($i < 0) { + beep(); + return; + } + } push @khistory, $inbuf if $inbuf; shift @khistory if @khistory > $maxkhist; $khistpos = @khistory; -- 2.43.0