<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    I write my own replacement for qrz.com xml access,  look here:<br>
    <br>
    *******************************************************<br>
    <br>
    <meta http-equiv="Content-Type" content="text/html;
      charset=ISO-8859-1">
    <p class="MsoPlainText">#<br>
      # Query the HAMQTH Database server for a callsign<br>
      #<br>
      # from an idea by Steve Franke K9AN and information from Angel
      EA7WA<br>
      #<br>
      # Copyright (c) 2001 Dirk Koopman G1TLH<br>
      #<br>
      # modified on 5/13/2009 Ricardo Suarez LU9DA to work with HAMQTH<br>
      #<br>
      # need for WWW:Mechanize ! download it from CPAN<br>
      #<br>
      # working under test on lu9da-6 cluster ( lu9da.dyndns.org 9000)<br>
      #<br>
      <br>
      use WWW::Mechanize;<br>
      <br>
      <br>
      my ($self, $line) = @_;<br>
      my @list = split /\s+/, $line;<span style="mso-tab-count:2">          
      </span><span style="mso-spacerun:yes">      </span># generate a
      list of callsigns<br>
      my $l;<br>
      my $call = $self->call;<br>
      my @out;<br>
      my $url;<br>
      my $page;<br>
      my $count;<br>
      my $linea;<br>
      my $indx;<br>
      my $session_id;<br>
      <br>
      return (1, $self->msg('e24')) unless $Internet::allow;<br>
      return (1, "SHOW/HQTH <callsign>, e.g. SH/HQTH lu9da")
      unless
      @list;<br>
      <br>
      $url =
      <a class="moz-txt-link-rfc2396E" href="http://www.hamqth.com/xml.php?u=YOURCALLSIGN&p=YOURPASSWORD">"http://www.hamqth.com/xml.php?u=YOURCALLSIGN&p=YOURPASSWORD"</a>;<br>
      <br>
      my $mechanize = WWW::Mechanize->new(autocheck => 1);<br>
      $mechanize->agent_alias('Windows Mozilla');<br>
      <br>
      <br>
      #----------------------<br>
      <br>
      $mechanize->get($url);<br>
      <br>
      $page = $mechanize->content;<br>
      <br>
      my @tabla = split('\n', $page);<br>
      <br>
      <br>
      foreach $linea (@tabla) {<br>
      <br>
      <span style="mso-tab-count:1">      </span>if ($linea =~
      m/<session_id>/)
      {<br>
      <br>
      <span style="mso-tab-count:1">      </span><span
        style="mso-spacerun:yes">   
      </span>$linea =~ s/<session_id>//;<br>
      <br>
      <span style="mso-tab-count:1">      </span><span
        style="mso-spacerun:yes">   
      </span>$linea =~ s/<\/session_id>//;<br>
      <br>
      <span style="mso-tab-count:1">      </span><span
        style="mso-spacerun:yes">   
      </span>$session_id = $linea;<br>
      <br>
      <span style="mso-tab-count:1">      </span><span
        style="mso-spacerun:yes">   
      </span>}<br>
      <br>
      }<br>
      #-----------<br>
      <br>
      $url =
<a class="moz-txt-link-rfc2396E" href="http://www.hamqth.com/xml.php?id=$session_id&callsign=@list&prg=hqth.pl">"http://www.hamqth.com/xml.php?id=$session_id&callsign=@list&prg=hqth.pl"</a>;<br>
      <br>
      $mechanize->get($url);<br>
      <br>
      $page = $mechanize->content;<br>
      <br>
      my @tabla = split('\n', $page);<br>
      <br>
      push @out," ";<br>
      <br>
      push @out,"HAMQTH search for @list:";<br>
      <br>
      push @out," ";<br>
      <br>
      foreach $linea (@tabla) {<br>
      <br>
      <span style="mso-tab-count:1">      </span>if ($linea =~
      m/<HamQTH/) {<br>
      <span style="mso-tab-count:1">      </span><span
        style="mso-spacerun:yes">   
      </span>$linea="";<br>
      <span style="mso-tab-count:1">      </span><span
        style="mso-spacerun:yes">   
      </span>}<br>
      <span style="mso-tab-count:2">            </span><br>
      <span style="mso-tab-count:1">      </span><br>
      <span style="mso-tab-count:2">            </span>$linea =~
      s/<\?xml
      version=\"1.0\"\?>//;<br>
      <span style="mso-tab-count:2">            </span>$linea =~
      s/<\/HamQTH>//;<br>
      <span style="mso-tab-count:2">            </span>$linea =~
      s/<search>//;<br>
      <span style="mso-tab-count:2">            </span>$linea =~
      s/<\/search>//;<br>
      <span style="mso-tab-count:2">            </span>$linea =~
      s/<session>//;<br>
      <span style="mso-tab-count:2">            </span>$linea =~
      s/<\/session>//;<br>
      #<br>
      <span style="mso-tab-count:2">            </span>my
      $pos=rindex($linea,"</");<br>
      <span style="mso-tab-count:2">            </span>$linea=substr($linea,0,$pos);<br>
      <br>
      <span style="mso-tab-count:2">            </span>$linea =~
      s/<//;<br>
      <span style="mso-tab-count:2">            </span>$linea =~
      s/>/ : /;<br>
      <span style="mso-tab-count:2">            </span><br>
      <span style="mso-tab-count:2">            </span>push @out,
      $linea;<br>
      <br>
      <span style="mso-tab-count:2">            </span>}<br>
      <br>
      <br>
      <br>
      <br>
      return (1, @out);<br>
      <br>
      <br>
      *****************************</p>
    <p class="MsoPlainText"><br>
    </p>
    <p class="MsoPlainText">copy this to local_cmd/show with name
      "hqth.pl"<br>
    </p>
    <p class="MsoPlainText"><br>
      Regards<br>
    </p>
    <p class="MsoPlainText">Rick LU9DA 
      <o:p><br>
      </o:p></p>
    <meta name="ProgId" content="Word.Document">
    <meta name="Generator" content="Microsoft Word 11">
    <meta name="Originator" content="Microsoft Word 11">
    <link rel="File-List"
href="file:///C:%5CDOCUME%7E1%5CADMINI%7E1%5CCONFIG%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml">
    <!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:View>Normal</w:View>
  <w:Zoom>0</w:Zoom>
  <w:HyphenationZone>21</w:HyphenationZone>
  <w:PunctuationKerning/>
  <w:ValidateAgainstSchemas/>
  <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
  <w:IgnoreMixedContent>false</w:IgnoreMixedContent>
  <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
  <w:Compatibility>
   <w:BreakWrappedTables/>
   <w:SnapToGridInCell/>
   <w:WrapTextWithPunct/>
   <w:UseAsianBreakRules/>
   <w:DontGrowAutofit/>
  </w:Compatibility>
  <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
 </w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:LatentStyles DefLockedState="false" LatentStyleCount="156">
 </w:LatentStyles>
</xml><![endif]-->
    <style>
<!--
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
        {mso-style-parent:"";
        margin:0cm;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:12.0pt;
        font-family:"Times New Roman";
        mso-fareast-font-family:"Times New Roman";}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
        {margin:0cm;
        margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:10.0pt;
        font-family:"Courier New";
        mso-fareast-font-family:"Times New Roman";}
@page Section1
        {size:595.3pt 841.9pt;
        margin:70.85pt 57.6pt 70.85pt 57.6pt;
        mso-header-margin:35.4pt;
        mso-footer-margin:35.4pt;
        mso-paper-source:0;}
div.Section1
        {page:Section1;}
-->
</style><!--[if gte mso 10]>
<style>
 /* Style Definitions */
 table.MsoNormalTable
        {mso-style-name:"Tabla normal";
        mso-tstyle-rowband-size:0;
        mso-tstyle-colband-size:0;
        mso-style-noshow:yes;
        mso-style-parent:"";
        mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
        mso-para-margin:0cm;
        mso-para-margin-bottom:.0001pt;
        mso-pagination:widow-orphan;
        font-size:10.0pt;
        font-family:"Times New Roman";
        mso-ansi-language:#0400;
        mso-fareast-language:#0400;
        mso-bidi-language:#0400;}
</style>
<![endif]--><!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext="edit" spidmax="1026"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext="edit">
  <o:idmap v:ext="edit" data="1"/>
 </o:shapelayout></xml><![endif]--><br>
    <div class="moz-cite-prefix">El 11/11/2012 2:08, Gary - K7EK
      escribió:<br>
    </div>
    <blockquote
cite="mid:CAMife6Per_8cz5obDY9s6o1HGqAukhi_i3sOmCW=oNJg+Wk_Dg@mail.gmail.com"
      type="cite">I wish DX Spider would fully support the new <a
        moz-do-not-send="true" href="http://HAMQTH.COM">HAMQTH.COM</a>
      site, which is a no-password required replacement for <a
        moz-do-not-send="true" href="http://qrz.com">qrz.com</a>.<br>
      <br>
      Best regards,<br>
      <br>
      Gary, K7EK<br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <br>
      <div class="gmail_quote">On Sat, Nov 10, 2012 at 4:00 AM, <span
          dir="ltr"><<a moz-do-not-send="true"
            href="mailto:dxspider-support-request@dxcluster.org"
            target="_blank">dxspider-support-request@dxcluster.org</a>></span>
        wrote:<br>
        <blockquote class="gmail_quote" style="margin:0 0 0
          .8ex;border-left:1px #ccc solid;padding-left:1ex">Send
          Dxspider-support mailing list submissions to<br>
                  <a moz-do-not-send="true"
            href="mailto:dxspider-support@dxcluster.org">dxspider-support@dxcluster.org</a><br>
          <br>
          To subscribe or unsubscribe via the World Wide Web, visit<br>
                  <a moz-do-not-send="true"
            href="http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support"
            target="_blank">http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support</a><br>
          or, via email, send a message with subject or body 'help' to<br>
                  <a moz-do-not-send="true"
            href="mailto:dxspider-support-request@dxcluster.org">dxspider-support-request@dxcluster.org</a><br>
          <br>
          You can reach the person managing the list at<br>
                  <a moz-do-not-send="true"
            href="mailto:dxspider-support-owner@dxcluster.org">dxspider-support-owner@dxcluster.org</a><br>
          <br>
          When replying, please edit your Subject line so it is more
          specific<br>
          than "Re: Contents of Dxspider-support digest..."<br>
          <br>
          <br>
          Today's Topics:<br>
          <br>
             1. <a moz-do-not-send="true" href="http://QRZ.COM"
            target="_blank">QRZ.COM</a> (Keith Le Boutillier)<br>
          <br>
          <br>
----------------------------------------------------------------------<br>
          <br>
          Message: 1<br>
          Date: Sat, 10 Nov 2012 10:29:34 +0000<br>
          From: Keith Le Boutillier <<a moz-do-not-send="true"
            href="mailto:KeithL@lebs.org.uk">KeithL@lebs.org.uk</a>><br>
          To: The DXSpider Support list <<a moz-do-not-send="true"
            href="mailto:dxspider-support@dxcluster.org">dxspider-support@dxcluster.org</a>><br>
          Subject: [Dxspider-support] <a moz-do-not-send="true"
            href="http://QRZ.COM" target="_blank">QRZ.COM</a><br>
          Message-ID:<br>
                 
<a class="moz-txt-link-rfc2396E" href="mailto:C6FB288A5BB21248B6A1CD10A65EEE235D17E32A@HOUSESERVER.gu6efb.local"><C6FB288A5BB21248B6A1CD10A65EEE235D17E32A@HOUSESERVER.gu6efb.local></a><br>
          Content-Type: text/plain; charset="us-ascii"<br>
          <br>
          Hi<br>
          <br>
          My QRZ lookup has stopped working and I now see this message<br>
          <br>
          Message from QRZ Online<br>
          <br>
          NOTICE: QRZ XML server has moved.  This server will be
          discontinued<br>
          on 12/31/2012.  Please use <a moz-do-not-send="true"
            href="http://xmldata.qrz.com" target="_blank">http://xmldata.qrz.com</a><br>
          <br>
          Is it just a simple job of changing the address in the QRZ
          file or is their more to it?<br>
          <br>
          73 Keith GU6EFB Sysop GB7DXG-1<br>
          -------------- next part --------------<br>
          An HTML attachment was scrubbed...<br>
          URL: <<a moz-do-not-send="true"
href="http://mailman.tobit.co.uk/pipermail/dxspider-support/attachments/20121110/85666a06/attachment-0001.html"
            target="_blank">http://mailman.tobit.co.uk/pipermail/dxspider-support/attachments/20121110/85666a06/attachment-0001.html</a>><br>
          <br>
          ------------------------------<br>
          <br>
          _______________________________________________<br>
          Dxspider-support mailing list<br>
          <a moz-do-not-send="true"
            href="mailto:Dxspider-support@dxcluster.org">Dxspider-support@dxcluster.org</a><br>
          <a moz-do-not-send="true"
            href="http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support"
            target="_blank">http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support</a><br>
          <br>
          <br>
          End of Dxspider-support Digest, Vol 118, Issue 5<br>
          ************************************************<br>
        </blockquote>
      </div>
      <br>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
Dxspider-support mailing list
<a class="moz-txt-link-abbreviated" href="mailto:Dxspider-support@dxcluster.org">Dxspider-support@dxcluster.org</a>
<a class="moz-txt-link-freetext" href="http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support">http://mailman.tobit.co.uk/mailman/listinfo/dxspider-support</a>
</pre>
    </blockquote>
    <br>
  </body>
</html>