fix get/keps default path

This commit is contained in:
Dirk Koopman 2016-07-25 16:43:36 +01:00
parent 12041dbf48
commit 363c72fbfe
2 changed files with 4 additions and 2 deletions

View File

@ -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=======================================================================

View File

@ -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';
my $path = $Internet::keps_path || '/amsat/ftp/keps/current/nasa.all';
my $path = $Internet::keps_path || '/amsat/ftp/keps/current/nasabare.txt';
my $port = 80;
dbg("keps: contacting $target:$port") if isdbg('keps');
Log('call', "$call: show/keps $line");
my $conn = AsyncMsg->post($self, $target, $port, $path,
my $conn = AsyncMsg->get($self, $target, $path,
filter => \&process,
on_disc => \&on_disc);