projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
correct git URL
[spider.git]
/
cmd
/
show
/
425.pl
diff --git
a/cmd/show/425.pl
b/cmd/show/425.pl
index 44ad0a30b89f7eb6a2d8df12ec22c9e73b40fdd0..353f2b9d914ac01d4ee3caa134de5fa2c0a176ab 100644
(file)
--- a/
cmd/show/425.pl
+++ b/
cmd/show/425.pl
@@
-3,7
+3,7
@@
#
# from an idea by Leo,IZ5FSA and 425DxNews Group
#
#
# from an idea by Leo,IZ5FSA and 425DxNews Group
#
-#
$Id$
+#
#
my ($self, $line) = @_;
my @list = map {uc} split /\s+/, $line; # generate a list of callsigns
#
my ($self, $line) = @_;
my @list = map {uc} split /\s+/, $line; # generate a list of callsigns
@@
-38,7
+38,7
@@
if (!$t || $@) {
else {
$op="op=search&query=".$list[0];
}
else {
$op="op=search&query=".$list[0];
}
- my $s = "GET $url/hf/dx-news/iz5fsa/spider.php?$op HTTP/1.0\n"
+ my $s = "GET $url/hf/dx-news/spider.php?$op HTTP/1.0\n"
."User-Agent:DxSpider;$main::version;$main::build;$^O;$main::mycall;$call;$list[0]\n\n";
dbg($s) if isdbg('425');
$t->print($s);
."User-Agent:DxSpider;$main::version;$main::build;$^O;$main::mycall;$call;$list[0]\n\n";
dbg($s) if isdbg('425');
$t->print($s);