cmd/dbavail.pl

   1 #!/usr/bin/perl
   2 #
   3 # Database update routine
   4 #
   5 # Copyright (c) 1999 Dirk Koopman G1TLH
   6 #
   7 my ($self, $line) = @_;
   8 my @out;
   9
  10 my $f;
  11
  12 foreach $f (values %DXDb::avail) {
  13         push @out, "DB Name          Location   Cmd            Chain" unless @out;
  14         push @out, sprintf "%-15s  %-10s %-15s %s", $f->name, $f->remote ? $f->remote : "Local", ($f->localcmd || ""), $f->chain ? parray($f->chain) : "";
  15 }
  16 return (1, @out);