added chaining to databases

[spider.git] / cmd / dbavail.pl

diff --git a/cmd/dbavail.pl b/cmd/dbavail.pl
index 9d898514f374a588daa363d39ffd8e3098fb312f..0974ee7feafa4f0d4eeb3b9da70b8cbc40bc3471 100644 (file)
--- a/cmd/dbavail.pl
+++ b/cmd/dbavail.pl
@@ -10,7 +10,7 @@ my @out;
 my $f;
 
 foreach $f (values %DXDb::avail) {
-       push @out, "DB Name          Location" unless @out;
-       push @out, sprintf "%-15s  %-s", $f->name, $f->remote ? $f->remote : "Local"; 
+       push @out, "DB Name          Location   Chain" unless @out;
+       push @out, sprintf "%-15s  %-10s %s", $f->name, $f->remote ? $f->remote : "Local", $f->chain ? parray($f->chain) : ""; 
 }
 return (1, @out);