From 85888a3551aa9a6799bd4f49ca45562023ac7116 Mon Sep 17 00:00:00 2001 From: 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 , 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