projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9cfe7d1
)
fix 40m ssb
author
minima
<minima>
Sat, 19 Feb 2005 20:00:45 +0000
(20:00 +0000)
committer
minima
<minima>
Sat, 19 Feb 2005 20:00:45 +0000
(20:00 +0000)
change sh/425
Changes
patch
|
blob
|
history
cmd/show/425.pl
patch
|
blob
|
history
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.
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";
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;
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;
use Net::Telnet;
@@
-31,16
+33,23
@@
foreach $l (@list) {
if (!$t || $@) {
push @out, $self->msg('e18', 'Open(425.org)');
} else {
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";
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;
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;
}
push @out, $result;
}
+ }
$t->close;
push @out, $self->msg('e3', 'Search(425.org)', uc $l) unless @out;
}
$t->close;
push @out, $self->msg('e3', 'Search(425.org)', uc $l) unless @out;
}