X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Froute.pl;h=d4120e0c484a5244774388a81ca3aba357e68c4f;hb=5177a6684a57135fa9602c33227c6ab1c8f32a51;hp=95497d2d9d02c96806e332def3ff97a84b92126d;hpb=955db8c44f956cb6e0e3624061c9168e5a0cc93f;p=spider.git diff --git a/cmd/show/route.pl b/cmd/show/route.pl index 95497d2d..d4120e0c 100644 --- a/cmd/show/route.pl +++ b/cmd/show/route.pl @@ -12,14 +12,24 @@ my @out; return (1, $self->msg('e6')) unless @list; +use RouteDB; + my $l; foreach $l (@list) { - my $ref = DXCluster->get_exact($l); + my $ref = Route::get($l); if ($ref) { - push @out, $self->msg('route', $l, $ref->mynode->call, $ref->dxchan->call); + my $parents = $ref->isa('Route::Node') ? $l : join(',', $ref->parents); + push @out, $self->msg('route', $l, $parents, join(',', map {$_->call} $ref->alldxchan)); } else { push @out, $self->msg('e7', $l); } + my @in = RouteDB::_sorted($l); + if (@in) { + push @out, "Learned Routes:"; + for (@in) { + push @out, "$l via $_->{call} count: $_->{count} last heard: " . atime($_->{t}); + } + } } return (1, @out);