add exit to Aliases

diff --git a/Changes b/Changes
index 9cadd5746bf39b3209ecaed5b5a559eaa18bb97a..25e5431a001d163ed9b4c2958af44df351bce255 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+19Mar01=======================================================================
+1. Add 'not allowed' messages into sh/filter with callsign and reduce priv
+necessary to 1.
 18Mar01=======================================================================
 1. minor changes to user and admin manuals.  Added revsion numbers
 17Mar01=======================================================================

diff --git a/cmd/Aliases b/cmd/Aliases
index b916742cbef7ff373e47db0cee4587c138c4fc06..28995ee31737aa0dc83c35b84273819a0a1295c6 100644 (file)
--- a/cmd/Aliases
+++ b/cmd/Aliases
@@ -48,6 +48,7 @@ package CmdAlias;
          '^di\w*/(\d+)', 'directory $1', 'directory',
        ],
        'e' => [
+         '^ex', 'bye', 'bye',
        ],
        'f' => [
        ],

diff --git a/cmd/show/filter.pl b/cmd/show/filter.pl
index 345603b847456060293214f153246e4ad3f02b45..081ac02e987555061919a2b6f7dfcec030cb4a76 100644 (file)
--- a/cmd/show/filter.pl
+++ b/cmd/show/filter.pl
@@ -10,10 +10,12 @@ my @f = split /\s+/, $line;
 my @out;
 my $call = $self->call;
 
-if (@f && $self->priv >= 8) {
+if (@f) {
        if (is_callsign(uc $f[0])) {
+               return (1, $self->msg('e5')) unless $self->priv >= 1;
                $call = uc shift @f;
     } elsif ($f[0] eq 'node_default' || $f[0] eq 'user_default') {
+               return (1, $self->msg('e5')) unless $self->priv >= 1;
                $call = shift @f;
        }
 }

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c099a92c4163050ebe63ad157296a9f2dccfa2b5..6bdb85cf617d08be72d155af7911c572544b3474 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1662,7 +1662,7 @@ sub disconnect
        
        # broadcast to all other nodes that all the nodes connected to via me are gone
        foreach my $node (grep { $_->dxchan == $self } DXNode::get_all) {
-               next if $node->call eq $call;
+#              next if $node->call eq $call;
                next if $node->call eq $main::mycall;
                broadcast_ak1a(pc21($node->call, 'Gone.'), $self) unless $self->{isolate};
                $node->del;
@@ -1681,8 +1681,6 @@ sub disconnect
        $self->tell_login('logoutn');
 
        Log('DXProt', $call . " Disconnected");
-       my $ref = DXCluster->get_exact($call);
-       $ref->del() if $ref;
 
        $self->SUPER::disconnect;
 }