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;
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 = 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");
'User-Agent' => "DxSpider;$main::version;$main::build;$^O;$main::mycall;$call");
if ($r) {
push @out, $self->msg('m21', "show/ik3qar");