X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=5e967fd228c83bfcf21c106b9314ca909f300ce4;hb=387b0fecfd3b200cb9c6094103954c2c0ebad7c6;hp=53695e51846a0bf140f75efe0ff3bf6cd42af065;hpb=e4a8ea5a407f640bc6e1efd6ef6b5f88f8f0980a;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 53695e51..5e967fd2 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -659,7 +659,8 @@ sub send_announce
 		}
 	}
 
-	if (AnnTalk::dup($from, $target, $_[2])) {
+	# the sysop ('*') thing is an attempt to minimise the damage caused by non-updated PC93 generators
+	if (AnnTalk::dup($from, $target, $_[2]) || ($_[3] eq '*' && AnnTalk::dup($from, 'ALL', $_[2]))) {
 		my $dxchan = DXChannel::get($from);
 		if ($self == $main::me && $dxchan && $dxchan->is_user) {
 			if ($dxchan->priv < 5) {