[Dxspider-support] HamQTH.com

Jim Bayer jsbayer at ameritech.net
Mon Sep 12 22:57:52 BST 2011


I had to make this change and then it worked for me:

#$linea =~ s/<td  width=\"200\" style=\"padding-left:10px\">//;
$linea =~ s/<tr><td  width="200" style="padding-left:10px">//;

It could be that the hqth web site is still changing a little.  We may see 
some of this.


Jim


On Saturday 10 September 2011 01:07, Simone IK5YZW wrote:
> Many thanks Rick for sharing this script.
>
> I was about to writing my own. You saved me some time :)
>
> 73s
> IK5YZW   Simone
>
>
>
> -----Messaggio originale-----
> From: Bob Nielsen
> Sent: Friday, September 09, 2011 11:40 PM
> To: The DXSpider Support list
> Subject: Re: [Dxspider-support] HamQTH.com
>
> 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
>
>
>
>
>
>
> _______________________________________________
> 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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
URL: <http://mailman.tobit.co.uk/pipermail/dxspider-support/attachments/20110912/4ab7c4c9/attachment.pgp>


More information about the Dxspider-support mailing list