X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FInternet.pm;h=e211728198e61a10bfde457dfe358941bb0b4380;hb=refs%2Fheads%2Fnewpc92timings;hp=b6a387ee36fb98bc03d0da059e263b2f36fdc060;hpb=6624dcdf07d628e8d6a16fc6549edf40be25b7b2;p=spider.git

diff --git a/perl/Internet.pm b/perl/Internet.pm
index b6a387ee..e2117281 100644
--- a/perl/Internet.pm
+++ b/perl/Internet.pm
@@ -8,7 +8,7 @@
 #
 # Copyright (c) 2000 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 package Internet;
@@ -29,6 +29,7 @@ $allow = 0;
 # $qrz_uid = 'gb7xxx';
 #
 
+
 $qrz_uid = undef;
 
 #
@@ -58,6 +59,19 @@ $http_proxy = undef;
 
 $http_proxy_port = undef;
 
+#
+# 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 = '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
 
 #
 # end