X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=a607b4094151155fb7edd7553c435ae0e08f2d34;hb=bdea2174f3035fb9b75858dc1d6e2be47b1e8fc1;hp=4f02d5193275b866d9577f3e31bc716d5420e1e8;hpb=685da1fc8aebf1b363b16e2664c90dc6eb9ac7a1;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index 4f02d519..a607b409 100644 --- a/perl/DXProt.pm +++ b/perl/DXProt.pm @@ -886,6 +886,13 @@ sub normal return; } + if ($pcno == 75) { # dunno but route it + if ($field[1] ne $main::mycall) { + $self->route($field[1], $line); + } + return; + } + if ($pcno == 73) { # WCY broadcasts # do some de-duping