projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
12041db
)
fix get/keps default path
author
Dirk Koopman
<djk@tobit.co.uk>
Mon, 25 Jul 2016 15:43:36 +0000
(16:43 +0100)
committer
Dirk Koopman
<djk@tobit.co.uk>
Mon, 25 Jul 2016 15:43:36 +0000
(16:43 +0100)
Changes
patch
|
blob
|
history
cmd/get/keps.pl
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index dbe3a1b1ae5574d146043cd695ac6059e1d6b5a4..4a765bd1176943b904e2ab766006a6c72459b5d1 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,5
@@
+28Mar16=======================================================================
+1. Fix get/keps.pl so that it does the right fetch
25Mar16=======================================================================
1. Rework DXCron::spawn command to use Mojo::IOLoop::ForkCall
04Jan16=======================================================================
25Mar16=======================================================================
1. Rework DXCron::spawn command to use Mojo::IOLoop::ForkCall
04Jan16=======================================================================
diff --git
a/cmd/get/keps.pl
b/cmd/get/keps.pl
index 36e075685af70dd06334317c18f324decd703a4d..a95cb6708154c00c236862cdf81df15ebde72923 100644
(file)
--- a/
cmd/get/keps.pl
+++ b/
cmd/get/keps.pl
@@
-151,13
+151,13
@@
sub handle
return (1, $self->msg('e24')) unless $Internet::allow;
return (1, $self->msg('e5')) if $self->priv < 8;
my $target = $Internet::keps_url || 'www.amsat.org';
return (1, $self->msg('e24')) unless $Internet::allow;
return (1, $self->msg('e5')) if $self->priv < 8;
my $target = $Internet::keps_url || 'www.amsat.org';
- my $path = $Internet::keps_path || '/amsat/ftp/keps/current/nasa
.all
';
+ my $path = $Internet::keps_path || '/amsat/ftp/keps/current/nasa
bare.txt
';
my $port = 80;
dbg("keps: contacting $target:$port") if isdbg('keps');
Log('call', "$call: show/keps $line");
my $port = 80;
dbg("keps: contacting $target:$port") if isdbg('keps');
Log('call', "$call: show/keps $line");
- my $conn = AsyncMsg->
post($self, $target, $por
t, $path,
+ my $conn = AsyncMsg->
get($self, $targe
t, $path,
filter => \&process,
on_disc => \&on_disc);
filter => \&process,
on_disc => \&on_disc);