X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fannounce.pl;h=120170399ad6ae17fb1a0f8021b26141e77df62a;hb=5acd1be649672f6e5bd2b4a6772b51cd935ebda9;hp=6c66bcd027fcec77cf51b1fc0bd1cbbc4f76bdb2;hpb=d5b4190c36f130852973121042876af3c5642cd7;p=spider.git

diff --git a/cmd/announce.pl b/cmd/announce.pl
index 6c66bcd0..12017039 100644
--- a/cmd/announce.pl
+++ b/cmd/announce.pl
@@ -43,8 +43,11 @@ if ($sort eq "FULL") {
   $to = "LOCAL";
 }
 
+# change ^ into : for transmission
+$line =~ s/\^/:/og;
+
 Log('ann', $to, $from, $line);
-DXProt::broadcast_list("To $to de $from <$t>: $line", @locals);
+DXProt::broadcast_list("To $to de $from <$t>: $line", 'ann', undef, @locals);
 if ($to ne "LOCAL") {
   $line =~ s/\^//og;    # remove ^ characters!
   my $pc = DXProt::pc12($from, $line, $tonode, $sysopflag, 0);