From: minima Date: Tue, 5 Dec 2000 15:41:36 +0000 (+0000) Subject: fix announces to be all UPPER case for poor old DX Telnet X-Git-Tag: R_1_45~5 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ab16be46aa296e9fba7b063c074bb020a9eb462;p=spider.git fix announces to be all UPPER case for poor old DX Telnet --- diff --git a/cmd/announce.pl b/cmd/announce.pl index a7edb6c0..df7b91d0 100644 --- a/cmd/announce.pl +++ b/cmd/announce.pl @@ -31,17 +31,17 @@ my $sysopflag; if ($sort eq "FULL") { $line =~ s/^$f[0]\s+//; # remove it - $to = "All"; + $to = "ALL"; } elsif ($sort eq "SYSOP") { $line =~ s/^$f[0]\s+//; # remove it @locals = map { $_->priv >= 5 ? $_ : () } @locals; - $to = "Sysop"; + $to = "SYSOP"; $sysopflag = '*'; } elsif ($sort eq "LOCAL") { $line =~ s/^$f[0]\s+//; # remove it - $to = "Local"; + $to = "LOCAL"; } else { - $to = "Local"; + $to = "LOCAL"; } # change ^ into : for transmission @@ -55,7 +55,7 @@ if (@bad = BadWords::check($line)) { return (1, $self->msg('dup')) if AnnTalk::dup($from, $toflag, $line); Log('ann', $to, $from, $line); DXProt::broadcast_list("To $to de $from <$t>: $line", 'ann', undef, @locals); -if ($to ne "Local") { +if ($to ne "LOCAL") { my $pc = DXProt::pc12($from, $line, $tonode, $sysopflag, 0); DXProt::broadcast_ak1a($pc); } diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 7f2aaba8..15f92c47 100644 --- 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);