added show/425 command

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

diff --git a/cmd/show/wm7d.pl b/cmd/show/wm7d.pl
index 8e48a20d93ff33eb5b387a0ff7daa805ecb40ae6..097a6295824730e66b229387069cc1c83906d141 100644 (file)
--- a/cmd/show/wm7d.pl
+++ b/cmd/show/wm7d.pl
@@ -16,7 +16,7 @@ my @out;
 # send 'e24' if allow in Internet.pm is not set to 1
 return (1, $self->msg('e24')) unless $Internet::allow;
 return (1, "SHOW/WM7D <callsign>, e.g. SH/WM7D k1xx") unless $line;
-my $target = 'www.wm7d.net';
+my $target = $Internet::wm7d_url || 'www.wm7d.net';
 my $port = 5000;
 my $cmdprompt = '/query->.*$/';