added show/425 command

[spider.git] / cmd / show / db0sdx.pl

diff --git a/cmd/show/db0sdx.pl b/cmd/show/db0sdx.pl
index c90ecf976215f810ed64f30c520437509ee6dd3b..4fab75b2be2edcc4507e4fe2d9f0532c16202dcb 100644 (file)
--- a/cmd/show/db0sdx.pl
+++ b/cmd/show/db0sdx.pl
@@ -13,7 +13,7 @@ my @out;
 $line = uc $line;
 return (1, $self->msg('e24')) unless $Internet::allow;
 return (1, "SHOW/DB0SDX <callsign>, e.g. SH/DB0SDX ea7wa") unless $line && is_callsign($line);
-my $target = 'dotnet.grossmann.com';
+my $target = $Internet::db0sdx_url || 'dotnet.grossmann.com';
 my $port = 80;
 my $cmdprompt = '/query->.*$/';