From 741df15be42033db97000fc0d167341bc0deabb0 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Mon, 19 Mar 2001 17:41:02 +0000
Subject: [PATCH] add exit to Aliases

---
 Changes            | 3 +++
 cmd/Aliases        | 1 +
 cmd/show/filter.pl | 4 +++-
 perl/DXProt.pm     | 4 +---
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index 9cadd574..25e5431a 100644
--- 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 b916742c..28995ee3 100644
--- 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 345603b8..081ac02e 100644
--- 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 c099a92c..6bdb85cf 100644
--- 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;
 }
-- 
2.43.0