spider/cmd/dbavail.pl

#!/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   Chain" unless @out;
	push @out, sprintf "%-15s  %-10s %s", $f->name, $f->remote ? $f->remote : "Local", $f->chain ? parray($f->chain) : ""; 
}
return (1, @out);
5. Only wonder down the msg queue every minute 6. Put in the initial DB code (at last), you can create and remove local and standard remote dbs, you can import AK1A style .FUL ascii databases, you can enquire on a local or remote database. 7. A return ping to a node will clear down all outstanding pings to that node (which might cause some confusion if more then one ping is outstanding for a node, but then - shit happens) 1999-11-08 00:45:20 +00:00			`#!/usr/bin/perl`
			`#`
			`# Database update routine`
			`#`
			`# Copyright (c) 1999 Dirk Koopman G1TLH`
			`#`
			`my ($self, $line) = @_;`
			`my @out;`

			`my $f;`

			`foreach $f (values %DXDb::avail) {`
added chaining to databases 1999-11-08 21:29:40 +00:00			`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) : "";`
5. Only wonder down the msg queue every minute 6. Put in the initial DB code (at last), you can create and remove local and standard remote dbs, you can import AK1A style .FUL ascii databases, you can enquire on a local or remote database. 7. A return ping to a node will clear down all outstanding pings to that node (which might cause some confusion if more then one ping is outstanding for a node, but then - shit happens) 1999-11-08 00:45:20 +00:00			`}`
			`return (1, @out);`