From: minima Date: Tue, 8 Jan 2002 13:18:56 +0000 (+0000) Subject: point to the new server X-Git-Tag: R_1_50~104 X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=05e7fa367c898dc3d1a168d6606c56b8050569ca;p=spider.git point to the new server --- diff --git a/Changes b/Changes index 3954030b..553827b6 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +08Jan02======================================================================= +1. altered sh/qrz to point to the new server 06Jan02======================================================================= 1. fix leading space removal from messages input from the keyboard 2. make some mods to allow perl 5.7.2 to run @@ -10,7 +12,8 @@ list of commands in "") to a file. for titling in the save command above. 8. Increase interval between logins causing for/opernam to 60 days (from 30) + a random factor between 0 and 9. -9. Added Italian Messages from Luca IT9ROT (thank you very much). +9. Added Italian translation of Messages from Luca IT9ROT (thank you +very much). 10. Added the / feature (as in talk) to execute a cmd whilst typing a message, then enhanced it so that if you do //sh/dx (for instance) it will put the result into the message (as well as show it to you). diff --git a/cmd/show/qrz.pl b/cmd/show/qrz.pl index 7665f08c..558525c0 100644 --- a/cmd/show/qrz.pl +++ b/cmd/show/qrz.pl @@ -13,10 +13,10 @@ my @out; return (1, $self->msg('e24')) unless $Internet::allow; return (1, "SHOW/QRZ , e.g. SH/QRZ g1tlh") unless @list; -my $target = $Internet::http_proxy || 'qrz.com'; +my $target = $Internet::http_proxy || 'u2.qrz.com'; my $port = $Internet::http_proxy_port || 80; my $url = ''; -$url = 'http://qrz.com' if $Internet::http_proxy; +$url = 'http://u2.qrz.com' if $Internet::http_proxy; use Net::Telnet; @@ -33,7 +33,7 @@ foreach $l (@list) { push @out, $self->msg('e18', 'QRZ.com'); } else { my $s = "GET $url/dxcluster.cgi?callsign=$l\&uid=$Internet::qrz_uid\&pw=$Internet::qrz_pw HTTP/1.0\n\n"; -# print $s; + dbg($s) if isdbg('qrz'); $t->print($s); Log('call', "$call: show/qrz \U$l"); my $state = "blank";