fix announces to be all UPPER case for poor old DX Telnet

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7f2aaba82c415a1053fe572f34704dd46539de63..15f92c477e8aaf6d5cb2919aecd456d42c876177 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1328,7 +1328,7 @@ sub send_announce
                $target = "WX"; 
                $to = '';
        }
-       $target = "All" if !$target;
+       $target = "ALL" if !$target;
        
        Log('ann', $target, $_[0], $text);