From 85888a3551aa9a6799bd4f49ca45562023ac7116 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 19 Feb 2005 20:00:45 +0000
Subject: [PATCH] fix 40m ssb change sh/425

---
 Changes         |  3 +++
 cmd/show/425.pl | 13 +++++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 8c601160..bf0bfbcf 100644
--- 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 9fb8d968..044950d0 100644
--- 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;
 	}
-- 
2.43.0