projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
move stuff around and try to get pc59 handling/generation more correct
[spider.git]
/
perl
/
DXProtHandler.pm
diff --git
a/perl/DXProtHandler.pm
b/perl/DXProtHandler.pm
index 726c3447a03693412096cd720ff8cfc69f9262ab..9685243e5e6c7ca6cc5c57764a22f1fef272d5c7 100644
(file)
--- a/
perl/DXProtHandler.pm
+++ b/
perl/DXProtHandler.pm
@@
-431,7
+431,7
@@
sub handle_16
$user->lastin($main::systime) unless DXChannel->get($call);
$user->put;
}
$user->lastin($main::systime) unless DXChannel->get($call);
$user->put;
}
- $self->process_pc59($pcno, 'A', hexstamp(),
$main::routeroot
,
+ $self->process_pc59($pcno, 'A', hexstamp(),
Route::Node::get($self->{call})
,
$node, undef, @rout);
}
$node, undef, @rout);
}
@@
-488,7
+488,7
@@
sub handle_17
return;
}
return;
}
- $self->process_pc59($pcno, 'D', hexstamp(),
$main::routeroot
, $node, undef, $uref);
+ $self->process_pc59($pcno, 'D', hexstamp(),
Route::Node::get($self->{call})
, $node, undef, $uref);
}
# link request
}
# link request
@@
-516,7
+516,7
@@
sub handle_18
$self->version($_[2] / 100) if $_[2] && $_[2] =~ /^\d+$/;
$self->user->version($self->version);
}
$self->version($_[2] / 100) if $_[2] && $_[2] =~ /^\d+$/;
$self->user->version($self->version);
}
- $self->newroute( $_[1] =~ /!NRt/ );
+ $self->newroute( $_[1] =~ /
\
!NRt/ );
# first clear out any nodes on this dxchannel
my $node = Route::Node::get($self->{call}) ;
# first clear out any nodes on this dxchannel
my $node = Route::Node::get($self->{call}) ;
@@
-618,7
+618,7
@@
sub handle_19
# unshift in the route::node for this interface if isn't present
if (@rout) {
unshift @rout, $parent unless $rout[0]->call ne $self->{call};
# unshift in the route::node for this interface if isn't present
if (@rout) {
unshift @rout, $parent unless $rout[0]->call ne $self->{call};
- $self->process_pc59($pcno, 'A', hexstamp(),
$main::routeroot
, $parent, undef, @rout);
+ $self->process_pc59($pcno, 'A', hexstamp(),
Route::Node::get($self->{call})
, $parent, undef, @rout);
}
}
}
}
@@
-684,7
+684,7
@@
sub handle_21
push @rout, $node;
}
push @rout, $node;
}
- $self->process_pc59($pcno, 'D', hexstamp(),
$main::routeroot
, $parent, undef, @rout);
+ $self->process_pc59($pcno, 'D', hexstamp(),
Route::Node::get($self->{call})
, $parent, undef, @rout);
}
}