use vars qw($me $pc11_max_age $pc23_max_age $last_pc50
$last_hour $last10 %eph %pings %rcmds $ann_to_talk
- %nodehops $baddx $badspotter $badnode $censorpc
+ %nodehops $baddx $badspotter $badnode $censorpc $rspfcheck
$allowzero $decode_dk0wcy $send_opernam @checklist);
$me = undef; # the channel id for this cluster
$badnode = new DXHash "badnode";
$last10 = $last_pc50 = time;
$ann_to_talk = 1;
+$rspfcheck = 1;
@checklist =
(
$self->tell_login('loginn');
# run a script send the output to the debug file
- my $script = new Script(lc $call);
+ my $script = new Script(lc $call) || new Script('node_default');
$script->run($self) if $script;
}
SWITCH: {
if ($pcno == 10) { # incoming talk
+ # rsfp check
+ return if $rspfcheck and !$self->rspfcheck(0, $field[6], $field[1]);
+
# will we allow it at all?
if ($censorpc) {
my @bad;
}
}
+ # rsfp check
+ return if $rspfcheck and !$self->rspfcheck(1, $field[7], $field[6]);
+
# if this is a 'nodx' node then ignore it
if ($badnode->in($field[7])) {
dbg("PCPROT: Bad Node, dropped") if isdbg('chanerr');
}
if ($pcno == 12) { # announces
+
+ return if $rspfcheck and !$self->rspfcheck(1, $field[5], $field[1]);
+
# announce duplicate checking
$field[3] =~ s/^\s+//; # remove leading blanks
if (AnnTalk::dup($field[1], $field[2], $field[3])) {
}
}
+ return if $rspfcheck and !$self->rspfcheck(1, $field[8], $field[7]);
+
# do some de-duping
my $d = cltounix($field[1], sprintf("%02d18Z", $field[2]));
my $sfi = unpad($field[3]);