X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Froute.pl;h=d4120e0c484a5244774388a81ca3aba357e68c4f;hb=85888a3551aa9a6799bd4f49ca45562023ac7116;hp=dda65bd9944caf6ab350e587ba30be92f8d42290;hpb=9516ccc97c92ca802204b059a9a4baab04ff3b65;p=spider.git diff --git a/cmd/show/route.pl b/cmd/show/route.pl index dda65bd9..d4120e0c 100644 --- a/cmd/show/route.pl +++ b/cmd/show/route.pl @@ -12,16 +12,24 @@ my @out; return (1, $self->msg('e6')) unless @list; +use RouteDB; + my $l; foreach $l (@list) { my $ref = Route::get($l); if ($ref) { my $parents = $ref->isa('Route::Node') ? $l : join(',', $ref->parents); - my $dxchan = $ref->dxchan; - push @out, $self->msg('route', $l, $parents, $dxchan->call); + 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);