fix rmd replies to alias

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ced5b4f05f68c46d7cf9dd431136108075dbb18b..ae5bae041188bff4859c797a0b789892b69def54 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1591,6 +1591,9 @@ sub process_rcmd_reply
                if ($s) {
                        my $dxchan = DXChannel->get($s->{call});
                        my $ref = DXChannel->get($user) || $dxchan;
+                       if ($ref->{call} eq $main::mycall) {
+                               $ref = DXChannel->get($main::myalias) || $ref;
+                       }
                        $ref->send($line) if $ref;
                        delete $rcmds{$fromnode} if !$dxchan;
                } else {