X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=3c45aee968f0c1c0ebc8c1c560f8f0e184d51d5a;hb=952bc2f3d0ec7c7aa441ade9e75647a8e41270a1;hp=6306226d7e6862f87b4ae61c02753e36e3094961;hpb=01ba3df164dca5b803527a4b7db6e5d36a334f91;p=spider.git

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 6306226d..3c45aee9 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -390,6 +390,12 @@ sub finish
 	my $conn = shift;
 	my $call = $self->call;
 
+	# reset the redirection of messages back to 'normal' if we are the sysop
+	if ($call eq $main::myalias) {
+		my $node = DXNode->get($main::mycall) or die "$main::mycall not allocated in DXNode database";
+		$node->dxchan($DXProt::me);
+	}
+
 	# I was the last node visited
     $self->user->node($main::mycall);