projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
put in fix for arcluster bug
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 967cc022d10cbefb04fb0dcf68902c6ee5ffeeb3..fc43a4e1139bdbe025ddacea311699316e43bea5 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-103,6
+103,11
@@
sub start
my $cuser = DXNodeuser->new($self, $node, $call, 0, 1);
$node->dxchan($self) if $call eq $main::myalias; # send all output for mycall to myalias
my $cuser = DXNodeuser->new($self, $node, $call, 0, 1);
$node->dxchan($self) if $call eq $main::myalias; # send all output for mycall to myalias
+ # routing version
+ my $pref = Route::Node::get($main::mycall) or die "$main::mycall not allocated in Route database";
+ $pref->add_user($call, Route::here($self->{here}));
+ dbg('route', "B/C PC16 on $main::mycall for: $call");
+
# issue a pc16 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my @pc16 = DXProt::pc16($nchan, $cuser);
# issue a pc16 to everybody interested
my $nchan = DXChannel->get($main::mycall);
my @pc16 = DXProt::pc16($nchan, $cuser);
@@
-411,6
+416,9
@@
sub disconnect
$node->dxchan($DXProt::me);
}
$node->dxchan($DXProt::me);
}
+ my @rout = $main::routeroot->del_user($call);
+ dbg('route', "B/C PC17 on $main::mycall for: $call");
+
# I was the last node visited
$self->user->node($main::mycall);
# I was the last node visited
$self->user->node($main::mycall);