include fix for new DB0SDX from David, N9KT

remove redundant removals of old style spot stat files

diff --git a/Changes b/Changes
index 66f31cd4dda11ad42f71c087d8b4bd1dc20a2b10..b8bee59ac414510afaee93419cca443bde220e4e 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+10Dec04=======================================================================
+1. Included fixes sent in by David, N9KT for the new DB0SDX site.
+2. removed redundant "rm *bys" and "rm *cys" from Spot::init().
 09Dec04=======================================================================
 1. fix show/mydx properly this time (and test the fix!)
 2. fix the default in show/qrz

diff --git a/cmd/show/db0sdx.pl b/cmd/show/db0sdx.pl
index 4fab75b2be2edcc4507e4fe2d9f0532c16202dcb..7e9496836e18c8eeaf93d7255d3c563db4a4bd69 100644 (file)
--- a/cmd/show/db0sdx.pl
+++ b/cmd/show/db0sdx.pl
@@ -2,6 +2,8 @@
 # Query the DB0SDX QSL server for a callsign
 #
 # Copyright (c) 2003 Dirk Koopman G1TLH
+# Modified Dec 9, 2004 for new website and xml schema by David Spoelstra N9KT
+# and tidied up by me (Dirk)
 #
 # $Id$
 #
@@ -13,7 +15,9 @@ my @out;
 $line = uc $line;
 return (1, $self->msg('e24')) unless $Internet::allow;
 return (1, "SHOW/DB0SDX <callsign>, e.g. SH/DB0SDX ea7wa") unless $line && is_callsign($line);
-my $target = $Internet::db0sdx_url || 'dotnet.grossmann.com';
+my $target = $Internet::db0sdx_url || 'www.qslinfo.de';
+my $path = $Internet::db0sdx_path || '/qslinfo';
+my $suffix = $Internet::db0sdx_suffix || '.asmx';
 my $port = 80;
 my $cmdprompt = '/query->.*$/';
 
@@ -35,8 +39,9 @@ if (!$info) {
        my $s = qq(<?xml version="1.0" encoding="utf-8"?>
 <soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
   <soap:Body>
-    <qslinfo xmlns="http://dotnet.grossmann.com/qslinfo">
+    <qslinfo xmlns="http://$target$path">
       <callsign>$line</callsign>
+      <ClientInformation>DXSpider V$main::version B$main::build ($call\@$main::mycall)</ClientInformation>
     </qslinfo>
   </soap:Body>
 </soap:Envelope>
@@ -47,12 +52,12 @@ if (!$info) {
        
        dbg("db0sdx out: $s") if isdbg('db0sdx');
        
-       $t->print("POST /qslinfo/qslinfo.asmx HTTP/1.0");
-       $t->print("Host: dotnet.grossmann.com");
+       $t->print("POST $path$suffix HTTP/1.0");
+       $t->print("Host: $target");
        $t->print("Content-Type: text/xml; charset=utf-8");
        $t->print("Content-Length: $lth");
        $t->print("Connection: Close");
-       $t->print("SOAPAction: \"http://dotnet.grossmann.com/qslinfo/qslinfo\"");
+       $t->print(qq{SOAPAction: "http://$target$path"});
        $t->print("");
        $t->put($s);
 

diff --git a/perl/Internet.pm b/perl/Internet.pm
index 5634945f2c61d99d24e87b7ba7530f9b35ed0994..9f446b74a3d3e0ce07c0914d0bb56afcfad04a6e 100644 (file)
--- a/perl/Internet.pm
+++ b/perl/Internet.pm
@@ -60,13 +60,15 @@ $http_proxy = undef;
 $http_proxy_port = undef;
 
 #
-# list of urls that are used in commands, here so that they
+# list of urls and other things that are used in commands, here so that they
 # can be changed if necessary.
 #
 
 $qrz_url = 'www.qrz.com';     # used by show/qrz
 $wm7d_url = 'www.wm7d.net';   # used by show/wm7d
-$db0sdx_url = 'dotnet.grossmann.com';   # used by show/db0sdx
+$db0sdx_url = 'www.qslinfo.de'; # used by show/db0sdx
+$db0sdx_path = '/qslinfo';
+$db0sdx_suffix = '.asmx';
 $dx425_url = 'www.ariscandicci.it';            # used by show/425
 $contest_host = 'www.sk3bg.se';         # used by show/contest
 $contest_url = "http://$contest_host/contest/text";         # used by show/contest

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 6c5c9162ea2547d129b6e84a41525698baab8588..462cb673f7fd02db3b00e6bb94a4e4a4ba9df3df 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -102,9 +102,6 @@ sub init
        mkdir "$dirprefix", 0777 if !-e "$dirprefix";
        $fp = DXLog::new($dirprefix, "dat", 'd');
        $statp = DXLog::new($dirprefix, "dys", 'd');
-       my $rm = $main::is_win ? 'del' : 'rm -f';
-       system("$rm $main::data/$dirprefix/*/*.bys");
-       system("$rm $main::data/$dirprefix/*/*.cys");
 }
 
 sub prefix