From 4dcd43a5029c8908cb1de3aff459f121496a9a7e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Tue, 24 Jan 2023 20:46:56 +0000 Subject: [PATCH] fix show/il3qar command --- Changes | 1 + cmd/show/ik3qar.pl | 5 ++--- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index 9c701d18..27b1fe49 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,7 @@ 1. Optimise the PC11->PC61 promotion code, improve readability of the debugging when 'set/debug pc11' is active. 2. Remove spurious '$' character at the end of Listeners.pm (thanks Kin). +3, Fix show/ik3qar command 20Jan23======================================================================= 1. Add the variable @main::localhost_names to allow other IP addresses to be treated in the same way as localhost in item 1 on 19Jan23 below. NOTE diff --git a/cmd/show/ik3qar.pl b/cmd/show/ik3qar.pl index 71f1e735..df1a60ae 100644 --- a/cmd/show/ik3qar.pl +++ b/cmd/show/ik3qar.pl @@ -17,8 +17,7 @@ sub handle return (1, "SHOW/IK3QAR \n e.g. SH/IK3QAR II5I, SH/IK3QAR V51AS\n") unless $line; my $target = $Internet::ik3qar_url; - my $port = 80; - my $url = "http://".$target; + my $url = "https://" . $target; $line = uc $line; dbg("IK3QAR: call = $line") if isdbg('ik3qar'); @@ -27,7 +26,7 @@ sub handle dbg("IK3QAR: url=$path") if isdbg('ik3qar'); Log('call', "$call: SH/IK3QAR $line"); - my $r = AsyncMsg->get($self, $target, $path, prefix=>'qar> ', + my $r = AsyncMsg->get($self, $url, $path, prefix=>'qar> ', 'User-Agent' => "DxSpider;$main::version;$main::build;$^O;$main::mycall;$call"); if ($r) { push @out, $self->msg('m21', "show/ik3qar"); -- 2.43.0