X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2F425.pl;h=a8558da9c184ac1eed18561d7363aaaa77284a20;hb=5a53dcc0e3311a7575bbe759f886aa8920a8f825;hp=9fb8d968f55863633b0a4d16fb2b2dd73219a362;hpb=65a4b5776154155cb012fe7968558d0449d74ef3;p=spider.git

diff --git a/cmd/show/425.pl b/cmd/show/425.pl
index 9fb8d968..a8558da9 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;
 	}