From 713a209e150e27a231f7ac18992ddf36bc14c5d1 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sat, 2 Jan 2016 20:29:05 +0000 Subject: [PATCH] fix correct url for sh/425 --- cmd/show/425.pl | 2 +- perl/Internet.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cmd/show/425.pl b/cmd/show/425.pl index 86e66554..b03c981c 100644 --- a/cmd/show/425.pl +++ b/cmd/show/425.pl @@ -17,7 +17,7 @@ sub handle return (1, $self->msg('e24')) unless $Internet::allow; return (1, "SHOW/425 \nSHOW/425 CAL\nSHOW/425 BULL \n e.g. SH/425 IQ5BL, SH/425 CAL, SH/425 BUL 779\n") unless @list; - my $target = "www.ariscandicci.it"; + my $target = $Internet::dx425_url || 'www.iz5fsa.net'; my $port = 80; dbg(join('|', @list)) if isdbg('425'); diff --git a/perl/Internet.pm b/perl/Internet.pm index 93788600..53df5fd2 100644 --- a/perl/Internet.pm +++ b/perl/Internet.pm @@ -69,7 +69,7 @@ $wm7d_url = 'www.wm7d.net'; # used by show/wm7d $db0sdx_url = 'www.qslinfo.de'; # used by show/db0sdx $db0sdx_path = '/qslinfo'; $db0sdx_suffix = '.asmx'; -$dx425_url = 'www.ariscandicci.it'; # used by show/425 +$dx425_url = 'www.iz5fsa.net'; # used by show/425 #$contest_host = 'www.sk3bg.se'; # used by show/contest #$contest_url = "/contest/text"; # used by show/contest -- 2.34.1