X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdbavail.pl;fp=cmd%2Fdbavail.pl;h=9d898514f374a588daa363d39ffd8e3098fb312f;hb=9e2fbafcfdab1ee45e581524311f1a97ac41f6ad;hp=0000000000000000000000000000000000000000;hpb=6ab5f0300e614249c24916600817ae221a6bdc8c;p=spider.git

diff --git a/cmd/dbavail.pl b/cmd/dbavail.pl
new file mode 100644
index 00000000..9d898514
--- /dev/null
+++ b/cmd/dbavail.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+#
+# Database update routine
+#
+# Copyright (c) 1999 Dirk Koopman G1TLH
+#
+my ($self, $line) = @_;
+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"; 
+}
+return (1, @out);