$main::me->{registered} = 1;
$main::me->{version} = $main::version;
$main::me->{build} = $main::build;
- $main::me->{do_pc92} = 1;
- $main::me->{via_pc92} = 1;
+ $main::me->{do_pc9x} = 1;
}
#
dbg('DXProt::send_local_config') if isdbg('trace');
# send our nodes
- if ($self->{do_pc92}) {
+ if ($self->{do_pc9x}) {
$self->send_pc92_config;
} else {
my $node;
if ($with_pc92_nodes) {
# send out the configuration of all the directly connected PC92 nodes with current configuration
# but with the dates that the last config came in with.
- @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $_->{do_pc92} } DXChannel::get_all_nodes();
+ @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && $_->{do_pc9x} } DXChannel::get_all_nodes();
dbg("ROUTE: pc92 dxchan: " . join(',', map{$_->{call}} @dxchan)) if isdbg('routelow');
@localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan;
dbg("ROUTE: pc92 localnodes: " . join(',', map{$_->{call}} @localnodes)) if isdbg('routelow');
# send the configuration of all the directly connected 'external' nodes that don't handle PC92
# out with the 'external' marker on the first node.
- @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && !$_->{do_pc92} } DXChannel::get_all_nodes();
+ @dxchan = grep { $_->call ne $main::mycall && $_ != $self && !$_->{isolate} && !$_->{do_pc9x} } DXChannel::get_all_nodes();
dbg("ROUTE: non pc92 dxchan: " . join(',', map{$_->{call}} @dxchan)) if isdbg('routelow');
@localnodes = map { my $r = Route::Node::get($_->{call}); $r ? $r : () } @dxchan;
dbg("ROUTE: non pc92 localnodes: " . join(',', map{$_->{call}} @localnodes)) if isdbg('routelow');
sub time_out_pc92_routes
{
- my @nodes = grep {$_->call ne $main::mycall && ($_->do_pc92 || $_->via_pc92)} Route::Node::get_all();
+ my @nodes = grep {$_->call ne $main::mycall && ($_->do_pc9x || $_->via_pc92)} Route::Node::get_all();
my @rdel;
foreach my $n (@nodes) {
my $o = $n->dec_obs;
{
my ($self, $from, $to, $via, $line, $origin) = @_;
- if ($self->{do_pc93}) {
+ if ($self->{do_pc9x}) {
$self->send(pc93($to, $from, $via, $line));
} else {
$self->send(pc10($from, $to, $via, $line, $origin));
next if $dxchan == $self;
next if $dxchan == $main::me;
next unless $dxchan->isa('DXProt');
- next if $dxchan->{do_pc92};
+ next if $dxchan->{do_pc9x};
next if ($generate == \&pc16 || $generate==\&pc17) && !$dxchan->user->wantsendpc16;
$dxchan->send_route($origin, $generate, @_);
{
my $self = shift;
- return unless $self->{do_pc92};
+ return unless $self->{do_pc9x};
my $origin = shift;
my $generate = shift;
foreach $dxchan (@dxchan) {
next if $dxchan == $self || $dxchan == $main::me;
next if $origin eq $dxchan->{call}; # don't route some from this call back again.
- next unless $dxchan->{do_pc92};
+ next unless $dxchan->{do_pc9x};
next unless $dxchan->isa('DXProt');
$dxchan->send($line);