From: djk Date: Mon, 8 Nov 1999 13:21:50 +0000 (+0000) Subject: detail changes to dbshow X-Git-Tag: R_1_34~5 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=8578afaa167e05742f883c961e7dd1c49dffc438;p=spider.git detail changes to dbshow --- diff --git a/cmd/dbshow.pl b/cmd/dbshow.pl index f48def42..44653152 100644 --- a/cmd/dbshow.pl +++ b/cmd/dbshow.pl @@ -13,6 +13,7 @@ my $db = DXDb::getdesc($name); return (1, $self->msg('db3', $name)) unless $db; if ($db->remote) { + push @out, $self->msg('db11', $db->remote); for (@f) { my $n = DXDb::newstream($self->call); DXProt::route(undef, $db->remote, DXProt::pc44($main::mycall, $db->remote, $n, uc $db->name,uc $_, $self->call)); diff --git a/perl/Messages b/perl/Messages index ab524d3b..3d3f2b02 100644 --- a/perl/Messages +++ b/perl/Messages @@ -35,6 +35,7 @@ package DXM; db8 => 'Database $_[0] created locally', db9 => 'Database $_[0] removed', db10 => '$_[0] records imported into $_[1]', + db11 => 'Sending your request(s) to $_[0], please stand by...', dx1 => 'Frequency $_[0] not in band (see show/band); usage: DX [BY call] freq call comments', dx2 => 'Need a callsign; usage: DX [BY call] freq call comments', dxs => 'DX Spots flag set on $_[0]',