use strict;
use vars qw($me $pc11_max_age $pc11_dup_age $pc23_dup_age
%spotdup %wwvdup $last_hour %pings %rcmds
- %nodehops @baddx $baddxfn);
+ %nodehops @baddx $baddxfn $pc12_dup_age
+ %anndup);
$me = undef; # the channel id for this cluster
$pc11_max_age = 1*3600; # the maximum age for an incoming 'real-time' pc11
$pc11_dup_age = 24*3600; # the maximum time to keep the spot dup list for
$pc23_dup_age = 24*3600; # the maximum time to keep the wwv dup list for
+$pc12_dup_age = 24*3600; # the maximum time to keep the ann dup list for
%spotdup = (); # the pc11 and 26 dup hash
-%wwvdup = (); # the pc23 and 27 dup hash
+%wwvdup = (); # the pc23 and 27 dup hash
+%anndup = (); # the PC12 dup hash
$last_hour = time; # last time I did an hourly periodic update
%pings = (); # outstanding ping requests outbound
%rcmds = (); # outstanding rcmd requests outbound
$self->{wwvfilter} = Filter::read_in('wwv', $call);
$self->{annfilter} = Filter::read_in('ann', $call);
- # set unbuffered
+ # set unbuffered and no echo
$self->send_now('B',"0");
+ $self->send_now('E',"0");
# send initialisation string
if (!$self->{outbound}) {
}
if ($pcno == 12) { # announces
+ # 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;
+ }
if ($field[2] eq '*' || $field[2] eq $main::mycall) {
if ($pcno == 34 || $pcno == 36) { # remote commands (incoming)
if ($field[1] eq $main::mycall) {
my $ref = DXUser->get_current($field[2]);
+ my $cref = DXCluster->get($field[2]);
Log('rcmd', 'in', $ref->{priv}, $field[2], $field[3]);
- unless ($field[3] =~ /rcmd/i) { # not allowed to relay RCMDS!
+ unless ($field[3] =~ /rcmd/i || !$cref || !$ref || $cref->mynode->call ne $ref->homenode) { # not allowed to relay RCMDS!
if ($ref->{priv}) { # you have to have SOME privilege, the commands have further filtering
$self->{remotecmd} = 1; # for the benefit of any command that needs to know
my @in = (DXCommandmode::run_cmd($self, $field[3]));
Log('rcmd', 'out', $field[2], $_);
}
delete $self->{remotecmd};
+ } else {
+ $self->send(pc35($main::mycall, $field[2], "$main::mycall:sorry...!"));
}
} else {
- $self->send(pc35($main::mycall, $field[2], "$main::mycall:Tut tut tut...!"));
+ $self->send(pc35($main::mycall, $field[2], "$main::mycall:your attempt is logged, Tut tut tut...!"));
}
} else {
route($field[1], $line);
while (($key, $val) = each %wwvdup) {
delete $wwvdup{$key} if $val < $cutoff;
}
+ $cutoff = $main::systime - $pc12_dup_age;
+ while (($key, $val) = each %anndup) {
+ delete $anndup{$key} if $val < $cutoff;
+ }
$last_hour = $main::systime;
}
}
$dxchan->send($routeit) unless $dxchan->{isolate} || $self->{isolate};
}
- } elsif ($dxchan->is_user) {
+ } elsif ($dxchan->is_user && $dxchan->{dx}) {
my $buf = Spot::formatb($_[0], $_[1], $_[2], $_[3], $_[4]);
- $buf .= "\a\a" if $dxchan->beep;
- $dxchan->send($buf);
+ $buf .= "\a\a" if $dxchan->{beep};
+ if ($dxchan->{state} eq 'prompt' || $dxchan->{state} eq 'convers') {
+ $dxchan->send($buf) if !$hops || ($hops && $filter);
+ } else {
+ $dxchan->delay($buf) if !$hops || ($hops && $filter);
+ }
}
}
}
# and are not themselves isolated, this to make sure that isolated nodes
# don't appear outside of this node
@nodes = DXNode::get_all();
- @nodes = grep { $_->dxchan != $self && !$_->dxchan->{isolate} } @nodes;
@nodes = grep { $_->{call} ne $main::mycall } @nodes;
+ @nodes = grep { $_->dxchan != $self } @nodes if @nodes;
+ @nodes = grep { !$_->dxchan->{isolate} } @nodes if @nodes;
@localnodes = grep { $_->dxchan->{call} eq $_->{call} } @nodes if @nodes;
unshift @localnodes, DXCluster->get_exact($main::mycall);
@remotenodes = grep { $_->dxchan->{call} ne $_->{call} } @nodes if @nodes;