$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;
}
#
# add this node to the table, the values get filled in later
my $pkg = shift;
my $call = shift;
+
+ # if we have an entry already, then send a PC21 to all connect
+ # old style connections, because we are about to get the real deal
+ if (my $ref = Route::Node::get($call)) {
+ dbg("ROUTE: $call is already in the routing table, deleting") if isdbg('route');
+ 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;
return $self;
}
# modify the hop count here
- if (my ($hops, $trail) = $line =~ /\^H(\d+)(\^?\~?)?$/) {
- $trail ||= '';
- $hops--;
- return if $hops < 0;
- $line =~ s/\^H(\d+)(\^?\~?)?$/sprintf('^H%d%s', $hops, $trail)/e;
- $field[-1] = "H$hops";
+ if ($self != $main::me) {
+ if (my ($hops, $trail) = $line =~ /\^H(\d+)(\^?\~?)?$/) {
+ $trail ||= '';
+ $hops--;
+ return if $hops < 0;
+ $line =~ s/\^H(\d+)(\^?\~?)?$/sprintf('^H%d%s', $hops, $trail)/e;
+ $field[-1] = "H$hops";
+ }
}
# send it out for processing
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) = @_;
- $line =~ s/\^/\\5E/g; # remove any ^ characters
- $self->send(DXProt::pc10($from, $to, $via, $line, $origin));
+ if ($self->{do_pc9x}) {
+ $self->send(pc93($to, $from, $via, $line));
+ } else {
+ $self->send(pc10($from, $to, $via, $line, $origin));
+ }
Log('talk', $to, $from, $via?$via:$self->call, $line) unless $origin && $origin ne $main::mycall;
}
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);