X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=aea2064e615b3754bfb6ec849428211455702d94;hb=f62f7f8ba8aa59de4f4ed8a19f0300b6804a0009;hp=6306226d7e6862f87b4ae61c02753e36e3094961;hpb=01ba3df164dca5b803527a4b7db6e5d36a334f91;p=spider.git diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 6306226d..aea2064e 100644 --- a/perl/DXCommandmode.pm +++ b/perl/DXCommandmode.pm @@ -387,26 +387,17 @@ sub process sub finish { my $self = shift; - 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); - # log out text - if ($conn && -e "$main::data/logout") { - open(I, "$main::data/logout") or confess; - my @in = ; - close(I); - $self->send_now('D', @in); - sleep(1); - } - -# if ($call eq $main::myalias) { # unset the channel if it is us really -# my $node = DXNode->get($main::mycall); -# $node->{dxchan} = 0; -# } - # issue a pc17 to everybody interested my $nchan = DXChannel->get($main::mycall); my $pc17 = $nchan->pc17($self);