From 363c72fbfe51f211df84899519cf0baf74a64fd6 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Mon, 25 Jul 2016 16:43:36 +0100 Subject: [PATCH] fix get/keps default path --- Changes | 2 ++ cmd/get/keps.pl | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index dbe3a1b1..4a765bd1 100644 --- 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======================================================================= diff --git a/cmd/get/keps.pl b/cmd/get/keps.pl index 36e07568..a95cb670 100644 --- 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'; - 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); -- 2.43.0