+ # announce duplicate checking
+ my $text = uc unpad($field[3]);
+ my $dupkey = $field[1].$field[2].$text.$field[4].$field[6];
+ if ($anndup{$dupkey}) {
+ dbg('chan', "Duplicate Announce ignored\n");
+ return;
+ }
+ $anndup{$dupkey} = $main::systime;
+
+ # global ann filtering
+ my ($filter, $hops) = Filter::it($self->{annfilter}, @field[1..6], $self->{call} ) if $self->{annfilter};
+ if ($self->{annfilter} && !$filter) {
+ dbg('chan', "Rejected by filter");
+ return;
+ }