X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fwm7d.pl;h=097a6295824730e66b229387069cc1c83906d141;hb=d4aacffb5581c9fc338833aebc996c27d3f16ada;hp=72e2d806275f957d2568c101bf21dc34c98c0f61;hpb=430f06b0c53fd69b7190519de5fb78942ebcc94c;p=spider.git

diff --git a/cmd/show/wm7d.pl b/cmd/show/wm7d.pl
index 72e2d806..097a6295 100644
--- 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->.*$/';
 
@@ -38,6 +38,6 @@ if (!$info) {
 	# Log the lookup
 	Log('call', "$call: show/wm7d \U$line");
 	$t->close;
-	push @out, $info;
+	push @out, split /[\r\n]+/, $info;
 }
 return (1, @out);