X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=cmd%2Fshow%2F425.pl;h=044950d05d5ce89e1546214a22aec5f3cb888566;hb=85888a3551aa9a6799bd4f49ca45562023ac7116;hp=9fb8d968f55863633b0a4d16fb2b2dd73219a362;hpb=9cfe7d11f68da326fcc48033829616afcbf7a492;p=spider.git

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;
 	}