a few detail changes

diff --git a/Changes b/Changes
index 42289542cc8cf600365ea49dbffd16cb31ee9798..3907a654af7c44a2e7bc00b3badf82a64f3b6e6f 100644 (file)
--- 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 a76ec43d5922af67462aee33ab74e6f3fe5cd5df..42d5c65ed6f772bdcc52987dddaacf23a602da65 100644 (file)
--- 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 0cb15bd0fbc0171446f40fde6151ee100621f8d7..41eb8016cc38249e2eccb891b38fedc05cede131 100755 (executable)
--- 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;