From 741df15be42033db97000fc0d167341bc0deabb0 Mon Sep 17 00:00:00 2001 From: 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