[Dxspider-support] HamQTH.com

[Ricardo Suarez]

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