detail changes to dbshow
authordjk <djk>
Mon, 8 Nov 1999 13:21:50 +0000 (13:21 +0000)
committerdjk <djk>
Mon, 8 Nov 1999 13:21:50 +0000 (13:21 +0000)
cmd/dbshow.pl
perl/Messages

index f48def42d40e7c757f64f92ac0fa1670be2f80f2..446531522f4172d17f9eca40b477dc496fd062f8 100644 (file)
@@ -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));
index ab524d3b6ebede113a438b6348c9060a8631b0a0..3d3f2b022ec34ea3dbd312dcfb773256dd8e68f4 100644 (file)
@@ -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]',