mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
17 lines
391 B
Perl
17 lines
391 B
Perl
#!/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, $self->msg('db12') unless @out;
|
|
push @out, sprintf "%-15s %-10s %-15s %s", $f->name, $f->remote ? $f->remote : $self->msg('local1'), ($f->localcmd || ""), $f->chain ? parray($f->chain) : "";
|
|
}
|
|
return (1, @out);
|