[Dxspider-support] Dxspider-support Digest, Vol 118, Issue 5

[Ricardo Suarez]

I write my own replacement for qrz.com xml access,  look here:

*******************************************************

#
# Query the HAMQTH Database server for a callsign
#
# from an idea by Steve Franke K9AN and information from Angel EA7WA
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
# modified on 5/13/2009 Ricardo Suarez LU9DA to work with HAMQTH
#
# 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;
my $session_id;

return (1, $self->msg('e24')) unless $Internet::allow;
return (1, "SHOW/HQTH <callsign>, e.g. SH/HQTH lu9da") unless @list;

$url = "http://www.hamqth.com/xml.php?u=YOURCALLSIGN&p=YOURPASSWORD";

my $mechanize = WWW::Mechanize->new(autocheck => 1);
$mechanize->agent_alias('Windows Mozilla');


#----------------------

$mechanize->get($url);

$page = $mechanize->content;

my @tabla = split('\n', $page);


foreach $linea (@tabla) {

if ($linea =~ m/<session_id>/) {

$linea =~ s/<session_id>//;

$linea =~ s/<\/session_id>//;

$session_id = $linea;

}

}
#-----------

$url = 
"http://www.hamqth.com/xml.php?id=$session_id&callsign=@list&prg=hqth.pl";

$mechanize->get($url);

$page = $mechanize->content;

my @tabla = split('\n', $page);

push @out," ";

push @out,"HAMQTH search for @list:";

push @out," ";

foreach $linea (@tabla) {

if ($linea =~ m/<HamQTH/) {
$linea="";
}


$linea =~ s/<\?xml version=\"1.0\"\?>//;
$linea =~ s/<\/HamQTH>//;
$linea =~ s/<search>//;
$linea =~ s/<\/search>//;
$linea =~ s/<session>//;
$linea =~ s/<\/session>//;
#
my $pos=rindex($linea,"</");
$linea=substr($linea,0,$pos);

$linea =~ s/<//;
$linea =~ s/>/ : /;

push @out, $linea;

}




return (1, @out);


*****************************


copy this to local_cmd/show with name "hqth.pl"


Regards

Rick LU9DA


El 11/11/2012 2:08, Gary - K7EK escribió:
> I wish DX Spider would fully support the new HAMQTH.COM 
> <http://HAMQTH.COM> site, which is a no-password required replacement 
> for qrz.com <http://qrz.com>.
>
> Best regards,
>
> Gary, K7EK
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> On Sat, Nov 10, 2012 at 4:00 AM, 
> <dxspider-support-request at dxcluster.org 
> <mailto:dxspider-support-request at dxcluster.org>> wrote:
>
>     Send Dxspider-support mailing list submissions to
>     dxspider-support at dxcluster.org <mailto:dxspider-support at dxcluster.org>
>
>     To subscribe or unsubscribe via the World Wide Web, visit
>     http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support
>     or, via email, send a message with subject or body 'help' to
>     dxspider-support-request at dxcluster.org
>     <mailto:dxspider-support-request at dxcluster.org>
>
>     You can reach the person managing the list at
>     dxspider-support-owner at dxcluster.org
>     <mailto:dxspider-support-owner at dxcluster.org>
>
>     When replying, please edit your Subject line so it is more specific
>     than "Re: Contents of Dxspider-support digest..."
>
>
>     Today's Topics:
>
>        1. QRZ.COM <http://QRZ.COM> (Keith Le Boutillier)
>
>
>     ----------------------------------------------------------------------
>
>     Message: 1
>     Date: Sat, 10 Nov 2012 10:29:34 +0000
>     From: Keith Le Boutillier <KeithL at lebs.org.uk
>     <mailto:KeithL at lebs.org.uk>>
>     To: The DXSpider Support list <dxspider-support at dxcluster.org
>     <mailto:dxspider-support at dxcluster.org>>
>     Subject: [Dxspider-support] QRZ.COM <http://QRZ.COM>
>     Message-ID:
>     <C6FB288A5BB21248B6A1CD10A65EEE235D17E32A at HOUSESERVER.gu6efb.local>
>     Content-Type: text/plain; charset="us-ascii"
>
>     Hi
>
>     My QRZ lookup has stopped working and I now see this message
>
>     Message from QRZ Online
>
>     NOTICE: QRZ XML server has moved.  This server will be discontinued
>     on 12/31/2012.  Please use http://xmldata.qrz.com
>
>     Is it just a simple job of changing the address in the QRZ file or
>     is their more to it?
>
>     73 Keith GU6EFB Sysop GB7DXG-1
>     -------------- next part --------------
>     An HTML attachment was scrubbed...
>     URL:
>     <http://mailman.tobit.co.uk/pipermail/dxspider-support/attachments/20121110/85666a06/attachment-0001.html>
>
>     ------------------------------
>
>     _______________________________________________
>     Dxspider-support mailing list
>     Dxspider-support at dxcluster.org <mailto:Dxspider-support at dxcluster.org>
>     http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support
>
>
>     End of Dxspider-support Digest, Vol 118, Issue 5
>     ************************************************
>
>
>
>
> _______________________________________________
> Dxspider-support mailing list
> Dxspider-support at dxcluster.org
> http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.tobit.co.uk/pipermail/dxspider-support/attachments/20121112/db473b5a/attachment.html>