projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed problem with upcasing bull names
[spider.git]
/
cmd
/
announce.pl
diff --git
a/cmd/announce.pl
b/cmd/announce.pl
index cb2e325dff6c8c6e62811e276ae8fe913a59345b..4f521dd30a9c3eea734ad4db25b2e351c30f667e 100644
(file)
--- a/
cmd/announce.pl
+++ b/
cmd/announce.pl
@@
-15,6
+15,9
@@
my ($self, $line) = @_;
my @f = split /\s+/, $line;
my ($self, $line) = @_;
my @f = split /\s+/, $line;
+
+return (1, $self->msg('e9')) if !@f;
+
my $sort = uc $f[0];
my @locals = DXCommandmode->get_all();
my $to;
my $sort = uc $f[0];
my @locals = DXCommandmode->get_all();
my $to;
@@
-35,10
+38,11
@@
if ($sort eq "FULL") {
$to = "LOCAL";
}
$to = "LOCAL";
}
+Log('ann', $to, $from, $line);
DXProt::broadcast_list("To $to de $from <$t>: $line", @locals);
if ($to ne "LOCAL") {
$line =~ s/\^//og; # remove ^ characters!
DXProt::broadcast_list("To $to de $from <$t>: $line", @locals);
if ($to ne "LOCAL") {
$line =~ s/\^//og; # remove ^ characters!
- my $pc = DXProt::pc12($
self
, $line, $tonode, $sysopflag, 0);
+ my $pc = DXProt::pc12($
from
, $line, $tonode, $sysopflag, 0);
DXProt::broadcast_ak1a($pc);
}
DXProt::broadcast_ak1a($pc);
}