2 # Query the IK3QAR Database server for a callsign
4 # from an idea by Paolo,IK3QAR and Leo,IZ5FSA
11 my ($self, $line) = @_;
13 my $call = $self->call;
16 return (1, $self->msg('e24')) unless $Internet::allow;
17 return (1, "SHOW/IK3QAR <callsign>\n e.g. SH/IK3QAR II5I, SH/IK3QAR V51AS\n") unless $line;
19 my $target = $Internet::ik3qar_url;
21 my $url = "http://".$target;
24 dbg("IK3QAR: call = $line") if isdbg('ik3qar');
25 $op="call=$line\&node=$main::mycall\&passwd=$Internet::ik3qar_pw\&user=$call";
26 my $path = "/manager/dxc/dxcluster.php?$op";
27 dbg("IK3QAR: url=$path") if isdbg('ik3qar');
28 Log('call', "$call: SH/IK3QAR $line");
30 my $r = HTTPMsg->get($self->call, $target, $port, $path);
32 push @out, $self->msg('m21', "show/ik3qar");
34 push @out, $self->msg('e18', 'Open(IK3QAR.it)');