return if $pcno < 10 || $pcno > 99;
# dump bad protocol messages
- if ($line =~ /\%[01][0-9A-F]/) {
+ if ($pcno != 29 && $line =~ /\%[01][0-9A-F]/) {
dbg('chan', "CORRUPT protocol message - dumped");
return;
}
}
if ($pcno == 12) { # announces
- unless (is_callsign($field[1]) && is_callsign($field[2]) && is_callsign($field[5])) {
+ unless (is_callsign($field[1]) && is_callsign($field[5])) {
dbg('chan', "Corrupt announce, rejected");
return;
}
$self->SUPER::disconnect;
}
-# check that a field only has callsign characters in it
-sub is_callsign
-{
- return $_[0] !~ /[^A-Z0-9\-]/
-}
#
# send a talk message to this thingy