X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fnewconfiguration.pl;fp=cmd%2Fshow%2Fnewconfiguration.pl;h=f1f226eabef0c0fa4a87135cf79246a34460f56a;hb=26cab5eb43ff7295e88d2129d8d8d5c1fe37a10a;hp=6675619131b4eba8aef767c0d5b253110a533538;hpb=aff3103d753ce167d1a056eb982391bd4fcbb5cb;p=spider.git diff --git a/cmd/show/newconfiguration.pl b/cmd/show/newconfiguration.pl index 66756191..f1f226ea 100644 --- a/cmd/show/newconfiguration.pl +++ b/cmd/show/newconfiguration.pl @@ -16,6 +16,13 @@ if (@list && $list[0] =~ /^NOD/) { shift @list; } -push @out, $main::routeroot->config($nodes_only, 0, [], @list); +# root node +push @out, $main::mycall; + +# now show the config in terms of each of the root nodes view +foreach my $n ($main::routeroot->links) { + my $r = Route::Node::get($n); + push @out, $r->config($nodes_only, 1, [], @list) if $r; +} return (1, @out);