X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fwm7d.pl;h=291823d7f8be2aa903844fb6d89130a37e48f4a2;hb=209156e38a1a136ba8c8cf0e9df122eb63c8f2c9;hp=8e48a20d93ff33eb5b387a0ff7daa805ecb40ae6;hpb=87357f58ecea93ac49f2b2cd894b1e54a4a4035f;p=spider.git

diff --git a/cmd/show/wm7d.pl b/cmd/show/wm7d.pl
index 8e48a20d..291823d7 100644
--- a/cmd/show/wm7d.pl
+++ b/cmd/show/wm7d.pl
@@ -5,7 +5,7 @@
 #
 # Copyright (c) 2002 Charlie Carroll K1XX
 #
-# $Id$
+#
 #
 
 # wm7d accepts only single callsign
@@ -16,12 +16,13 @@ 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->.*$/';
 
 my($info, $t);
-                                    
+
+use Net::Telnet;
 $t = new Net::Telnet;
 $info =  $t->open(Host    => $target,
 		  Port    => $port,