From 03691f94fb11cdce388f89cd81b474e3505912c8 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 29 Nov 2000 23:20:24 +0000 Subject: [PATCH] capitalise things --- cmd/announce.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/cmd/announce.pl b/cmd/announce.pl index df7b91d0..a7edb6c0 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); } -- 2.43.0