$last10 = $last_pc50 = time;
$ann_to_talk = 1;
$eph_restime = 60;
-$eph_info_restime = 60*60;
+$eph_info_restime = 18*60*60;
$eph_pc15_restime = 6*60;
$eph_pc34_restime = 30;
$pingint = 5*60;
$obscount = 2;
$chatdupeage = 20 * 60;
$chatimportfn = "$main::root/chat_import";
-$pc19_version = 5454; # the visible version no for outgoing PC19s generated from pc59
+$pc19_version = 5455; # the visible version no for outgoing PC19s generated from pc59
$pc92_update_period = 4*60*60; # the period between outgoing PC92 C updates
$pc92_short_update_period = 15*60; # shorten the update period after a connection or start up
$pc92_extnode_update_period = 1*60*60; # the update period for external nodes
undef,
undef,
undef, # pc60
- undef,
+ [ qw(i f m d t m c c a h) ], # pc61
undef,
undef,
undef,
return $i unless $_[$i] =~ /^[012]\d[012345]\dZ$/;
} elsif ($act eq 'l') {
return $i unless $_[$i] =~ /^[A-Z]$/;
+ } elsif ($act eq 'a') {
+ return $i unless is_ipaddr($_[$i]);
}
}
return 0;
my @rout = $ref->delete;
$self->route_pc21($main::mycall, undef, @rout) if @rout;
}
- $main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;
+ $main::routeroot->add($call, '5000', Route::here(1), $self->{conn}->peerhost) if $call ne $main::mycall;
return $self;
}
my $user = $self->{user};
# log it
- my $host = $self->{conn}->{peerhost};
+ my $host = $self->{conn}->peerhost;
$host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
$host ||= "unknown";
$self->{consort} = $line;
$self->{outbound} = $sort eq 'O';
my $priv = $user->priv;
- $priv = $user->priv(1) unless $priv;
+ $priv = $user->priv(1) unless defined $priv;
$self->{priv} = $priv; # other clusters can always be 'normal' users
$self->{lang} = $user->lang || 'en';
$self->{isolate} = $user->{isolate};
my $line = shift;
my @dxchan = DXChannel::get_all();
my $dxchan;
+ my $pc11;
# send it if it isn't the except list and isn't isolated and still has a hop count
# taking into account filtering and so on
foreach $dxchan (@dxchan) {
next if $dxchan == $main::me;
next if $dxchan == $self && $self->is_node;
- next if $line =~ /PC61/ && !$dxchan->is_spider && !$dxchan->is_user;
- $dxchan->dx_spot($line, $self->{isolate}, @_, $self->{call});
+ if ($line =~ /PC61/ && !($dxchan->is_spider || $dxchan->is_user)) {
+ unless ($pc11) {
+ my @f = split /\^/, $line;
+ $pc11 = join '^', 'PC11', @f[1..7,9];
+ }
+ $dxchan->dx_spot($pc11, $self->{isolate}, @_, $self->{call});
+ } else {
+ $dxchan->dx_spot($line, $self->{isolate}, @_, $self->{call});
+ }
}
}
# send it if it isn't the except list and isn't isolated and still has a hop count
# taking into account filtering and so on
foreach $dxchan (@dxchan) {
- my $is_ak1a = $dxchan->is_ak1a;
-
if ($dxchan->is_node) {
next if $dxchan == $main::me;
next if $dxchan == $self;
- next if $from_pc9x && $dxchan->{do_pc9x};
- next unless $dxchan->is_spider || $is_ak1a;
+ next if $from_pc9x && $dxchan->do_pc9x;
+ next unless $dxchan->is_spider && $dxchan->do_pc9x;
next if $target eq 'LOCAL';
- if (!$ak1a_line && $is_ak1a) {
- $ak1a_line = pc12($_[0], $text, $_[1], "$target.LST");
- }
}
- $dxchan->chat($is_ak1a ? $ak1a_line : $line, $self->{isolate}, $target, $_[1],
+ $dxchan->chat($line, $self->{isolate}, $target, $_[1],
$text, @_, $self->{call}, @a[0..2], @b[0..2]);
}
}
my ($self, $tonode, $fromnode, $user, $cmd) = @_;
if ($tonode eq $main::mycall) {
my $ref = DXUser::get_current($fromnode);
+ unless ($ref && UNIVERSAL::isa($ref, 'DXUser')) {
+ dbg("DXProt process_rcmd: user $fromnode isn't a reference (check user_asc and tell G1TLH)");
+ $self->send_rcmd_reply($main::mycall, $fromnode, $user, "sorry...!");
+ return;
+ }
my $cref = Route::Node::get($fromnode);
+ unless ($cref && UNIVERSAL::isa($cref, 'Route')) {
+ dbg("DXProt process_rcmd: Route $fromnode isn't a reference (tell G1TLH)");
+ $self->send_rcmd_reply($main::mycall, $fromnode, $user, "sorry...!");
+ return;
+ }
Log('rcmd', 'in', ($ref->{priv}||0), $fromnode, $cmd);
- if ($cmd !~ /^\s*rcmd/i && $cref && $ref && $ref->homenode && $cref->call eq $ref->homenode) { # not allowed to relay RCMDS!
+ if ($cmd !~ /^\s*rcmd/i && $ref->homenode && $cref->call eq $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 $oldpriv = $self->{priv};