2 # Query the DB0SDX QSL server for a callsign
4 # Copyright (c) 2003 Dirk Koopman G1TLH
5 # Modified Dec 9, 2004 for new website and xml schema by David Spoelstra N9KT
6 # and tidied up by me (Dirk)
17 dbg("keps in: $conn->{kepsin}") if isdbg('keps');
19 $dxchan->send("get/keps: new keps loaded");
27 $conn->{kepsin} .= "$msg\n";
29 dbg("keps in: $conn->{kepsin}") if isdbg('keps');
34 my ($self, $line) = @_;
35 my $call = $self->call;
39 return (1, $self->msg('e24')) unless $Internet::allow;
40 my $target = $Internet::keps_url || 'www.amsat.org';
41 my $path = $Internet::keps_path || '/amsat/ftp/keps/current/nasa.all';
44 dbg("keps: contacting $target:$port") if isdbg('keps');
46 Log('call', "$call: show/keps $line");
47 my $conn = AsyncMsg->post($self, $target, $port, $path,
49 on_disc => \&on_disc);
52 push @out, $self->msg('m21', "show/keps");
54 push @out, $self->msg('e18', 'get/keps error');