]> gb7djk.dxcluster.net Git - spider.git/blob - cmd/show/ik3qar.pl
d18906ae0db0b3d8d72e287923e759e5e8a280ee
[spider.git] / cmd / show / ik3qar.pl
1 #
2 # Query the IK3QAR Database server for a callsign
3 #
4 # from an idea by Paolo,IK3QAR and Leo,IZ5FSA
5 #
6 # $Id$
7 #
8
9 sub handle
10 {
11         my ($self, $line) = @_;
12         my $op;
13         my $call = $self->call;
14         my @out;
15
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;
18
19         my $target = $Internet::ik3qar_url;
20         my $port = 80;
21         my $url = "http://".$target;
22
23         $line = uc $line;
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");
29         
30         my $r = HTTPMsg->get($self->call, $target, $port, $path);
31         if ($r) {
32                 push @out, $self->msg('m21', "show/ik3qar");
33         } else {
34                 push @out, $self->msg('e18', 'Open(IK3QAR.it)');
35         }
36  
37         return (1, @out);
38 }