]> scm.dxcluster.org Git - spider.git/blob - cmd/dbavail.pl
nospawnify the rest of the known commands
[spider.git] / 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, $self->msg('db12') unless @out;
14         push @out, sprintf "%-15s  %-10s %-15s %s", $f->name, $f->remote ? $f->remote : $self->msg('local1'), ($f->localcmd || ""), $f->chain ? parray($f->chain) : ""; 
15 }
16 return (1, @out);