projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[spider.git]
/
cmd
/
announce.pl
diff --git
a/cmd/announce.pl
b/cmd/announce.pl
index 6c66bcd027fcec77cf51b1fc0bd1cbbc4f76bdb2..94b03a473009da82db0e89a8345df4a55f316c84 100644
(file)
--- a/
cmd/announce.pl
+++ b/
cmd/announce.pl
@@
-43,8
+43,12
@@
if ($sort eq "FULL") {
$to = "LOCAL";
}
$to = "LOCAL";
}
+# change ^ into : for transmission
+$line =~ s/\^/:/og;
+
+return (1, $self->msg('dup')) if AnnTalk::dup($from, $to, $line);
Log('ann', $to, $from, $line);
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);
if ($to ne "LOCAL") {
$line =~ s/\^//og; # remove ^ characters!
my $pc = DXProt::pc12($from, $line, $tonode, $sysopflag, 0);