[Dxspider-support] HamQTH.com

[Bob Nielsen]

I thought it looked strange, but I'm not that familiar with perl.  It works fine now.

73, Bob

On Sep 9, 2011, at 1:40 PM, Ricardo Suarez wrote:

> Hi, Bob
> 
> In the cut&paste "born" a dot after the "{" - please erase it!, the line are:
> 
> if ($count < 5) {
> 
> and not
> 
> if ($count < 5) {.
> 
> My fault, sorry
> 
> Regards
> 
> Rick LU9DA
> 
> 
> 
> 
> ----- Original Message ----- From: "Bob Nielsen" <n7xy at clearwire.net>
> To: "The DXSpider Support list" <dxspider-support at dxcluster.org>
> Sent: Friday, September 09, 2011 8:26 PM
> Subject: Re: [Dxspider-support] HamQTH.com
> 
> 
>> Thanks for posting this, Rick.
>> 
>> I installed libwww-mechanize-perl from Debian 6.0 and did a cut/paste installation of your code.  When I try to run it, I get the following error:
>> 
>> syntax error at (eval 151693) line 65, near "{."
>> 
>> 73, Bob N7XY
>> 
>> On Sep 9, 2011, at 12:41 PM, Ricardo Suarez wrote:
>> 
>>> Hi, Bela
>>> 
>>> Here the code for sh/hqth running in lu9da-6 DXSpider under Debian on Seagate Dockstar
>>> 
>>> Pay attention, need to install WWW::mechanize from cpan, like my old sh/qrz replacement
>>> 
>>> Regards
>>> 
>>> Rick LU9DA
>>> 
>>> 
>>> #***********
>>> #  hqth.pl -> copy it in /spider/local_cmd/show/hqth.pl
>>> #***********
>>> #
>>> # Query the HAMQTH Database server for a callsign
>>> #
>>> # Copyright (c) 2001 Dirk Koopman G1TLH
>>> #
>>> # modified on 27/8/2009 by Ricardo Suarez LU9DA to work with the HAMQTH style
>>> #
>>> # need for WWW:Mechanize ! download it from CPAN
>>> #
>>> # working under test on lu9da-6 cluster ( lu9da.dyndns.org 9000)
>>> #
>>> 
>>> use WWW::Mechanize;
>>> 
>>> 
>>> my ($self, $line) = @_;
>>> my @list = split /\s+/, $line;      # generate a list of callsigns
>>> my $l;
>>> my $call = $self->call;
>>> my @out;
>>> my $url;
>>> my $page;
>>> my $count;
>>> my $linea;
>>> my $indx;
>>> 
>>> return (1, $self->msg('e24')) unless $Internet::allow;
>>> return (1, "SHOW/HQTH <callsign>, e.g. SH/QRZ lu9da") unless @list;
>>> 
>>> $url = "http://www.hamqth.com/@list";
>>> 
>>> 
>>> my $mechanize = WWW::Mechanize->new(autocheck => 1);
>>> $mechanize->agent_alias('Windows Mozilla');
>>> $mechanize->get($url);
>>> 
>>> $page = $mechanize->content;
>>> 
>>> my @tabla = split('\n', $page);
>>> 
>>> $count=8;
>>> 
>>> push @out," ";
>>> 
>>> push @out,"HAMQTH search for @list:";
>>> 
>>> push @out," ";
>>> 
>>> foreach $linea (@tabla) {
>>> 
>>> if ($linea =~ m/\"tab1\"/) {
>>> 
>>>  $count--;
>>> 
>>>  }
>>> 
>>> 
>>> if ($count < 8) {
>>> 
>>>  $count--;
>>> 
>>>  if ($count < 5) {.
>>> 
>>> $linea =~ s/<td  width=\"200\" style=\"padding-left:10px\">//;
>>> 
>>>   $linea =~ s/<tr>//;
>>> 
>>> $linea =~ s/<\/td>//;
>>> 
>>> $linea =~ s/<\/tr>//;
>>> 
>>> $linea =~ s/ //;
>>> 
>>> push @out, $linea;
>>> 
>>> }
>>> 
>>> 
>>> 
>>>  if ($count == 0) {
>>> 
>>> $count=8;
>>> 
>>> }
>>> 
>>> 
>>> 
>>> }
>>> 
>>> }
>>> 
>>> return (1, @out);
>>> 
>>> #*************
>>> #end hqth.pl
>>> #*************
>>> 
>>> _______________________________________________
>>> Dxspider-support mailing list
>>> Dxspider-support at dxcluster.org
>>> http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support
>> 
>> _____
>> N7XY DX Cluster Node - telnet to n7xy.net, port 7300
>> 
>> 
>> 
>> 
>> 
>> 
>> _______________________________________________
>> Dxspider-support mailing list
>> Dxspider-support at dxcluster.org
>> http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support 
> 
> 
> _______________________________________________
> Dxspider-support mailing list
> Dxspider-support at dxcluster.org
> http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support

_____
N7XY DX Cluster Node - telnet to n7xy.net, port 7300