allow talks to mycall to go to myalias instead

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 58dfd4973877731827c87d9695274917f0b3f13c..b8b9b892d47397d42937608114e6b8a0965c6f71 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -104,9 +104,10 @@ sub normal
                                
                                # yes, it is
                                my $text = unpad($field[3]);
+                               Log('talk', $call, $field[1], $field[6], $text);
+                               $call = $main::myalias if $call eq $main::mycall;
                                my $ref = DXChannel->get($call);
                                $ref->send("$call de $field[1]: $text") if $ref;
-                               Log('talk', $call, $field[1], $field[6], $text);
                        } else {
                                route($field[2], $line); # relay it on its way
                        }