fix 40m ssb

change sh/425

diff --git a/Changes b/Changes
index 8c60116095872d0de8056abd7f7f1df248839a37..bf0bfbcfc2ff9e7e7a464c40b9b8344dde51898a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+19Feb05=======================================================================
+1. changed ssb allocation on 40m to add missing 5Khz.
+2. Change sh/425 to Leo, IZ5FSA's requirements.
 08Feb05=======================================================================
 1. possibly fixed the multiple condition problems on sh/dx
 2. added some FAQs.

diff --git a/cmd/show/425.pl b/cmd/show/425.pl
index 9fb8d968f55863633b0a4d16fb2b2dd73219a362..044950d05d5ce89e1546214a22aec5f3cb888566 100644 (file)
--- a/cmd/show/425.pl
+++ b/cmd/show/425.pl
@@ -14,9 +14,11 @@ my @out;
 return (1, $self->msg('e24')) unless $Internet::allow;
 return (1, "SHOW/425 <callsign>, e.g. SH/425 3B9FR") unless @list;
 my $target = $Internet::http_proxy || $Internet::dx425_url || "www.ariscandicci.it";
+#my $target = $Internet::http_proxy || $Internet::dx425_url || "192.168.0.2";
 my $port = $Internet::http_proxy_port || 80;
 my $url = '';
 $url = 'http://' . ($Internet::dx425_url || 'www.ariscandicci.it'); #  if $Internet::http_proxy; 
+#$url = 'http://' . ($Internet::dx425_url || '192.168.0.2'); #  if $Internet::http_proxy; 
 
 use Net::Telnet;
 
@@ -31,16 +33,23 @@ foreach $l (@list) {
        if (!$t || $@) {
                push @out, $self->msg('e18', 'Open(425.org)');
        } else {
-               my $s = "GET $url/modules.php?name=425dxn&op=spider&query=$l";
+               my $s = "GET $url/modules.php?name=425dxn&op=spider&query=$l HTTP/1.0\n"
+               ."User-Agent:DxSpider;$main::version;$main::build;$^O;$main::mycall;$call;$l)\n\n";
                dbg($s) if isdbg('425');
                $t->print($s);
                Log('call', "$call: show/425 \U$l");
                my $state = "blank";
+               my $count = 1;
+#              push @out, $s;
                while (my $result = eval { $t->getline(Timeout => 30) } || $@) {
                        dbg($result) if isdbg('425') && $result;
-                               chomp $result;
+                               ++$count;
+                               if ($count > 10)
+                               {
+                                 #chomp $result;
                                push @out, $result;
                }
+               }
                $t->close;
                push @out, $self->msg('e3', 'Search(425.org)', uc $l) unless @out;
        }