projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove origin node from Spot Dupes as default
[spider.git]
/
cmd
/
show
/
ik3qar.pl
diff --git
a/cmd/show/ik3qar.pl
b/cmd/show/ik3qar.pl
index d18906ae0db0b3d8d72e287923e759e5e8a280ee..df1a60aed39cf5641a484ec5d11f8caf7da9cea6 100644
(file)
--- a/
cmd/show/ik3qar.pl
+++ b/
cmd/show/ik3qar.pl
@@
-17,8
+17,7
@@
sub handle
return (1, "SHOW/IK3QAR <callsign>\n e.g. SH/IK3QAR II5I, SH/IK3QAR V51AS\n") unless $line;
my $target = $Internet::ik3qar_url;
return (1, "SHOW/IK3QAR <callsign>\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');
$line = uc $line;
dbg("IK3QAR: call = $line") if isdbg('ik3qar');
@@
-27,7
+26,8
@@
sub handle
dbg("IK3QAR: url=$path") if isdbg('ik3qar');
Log('call', "$call: SH/IK3QAR $line");
dbg("IK3QAR: url=$path") if isdbg('ik3qar');
Log('call', "$call: SH/IK3QAR $line");
- my $r = HTTPMsg->get($self->call, $target, $port, $path);
+ 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");
} else {
if ($r) {
push @out, $self->msg('m21', "show/ik3qar");
} else {