From: djk <djk>
Date: Mon, 5 Jul 1999 16:16:58 +0000 (+0000)
Subject: a few detail changes
X-Git-Tag: R_1_31~19
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=8cf374587593eacd30423223278ed63df45babc6

a few detail changes
---

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;