#!/usr/bin/perl
# 
#  smeg - A satellite modelling and prediction tool
#  Copyright (C) 1999  Tom Rothamel
#  
#  This program is free software; you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation; either version 2 of the License, or
#  (at your option) any later version.
#  
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#  
#  You should have received a copy of the GNU General Public License
#  along with this program; see the file COPYING.  If not, write to
#  the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
#  Boston, MA 02111-1307, USA.

use LWP::Simple;

#$url{""} = "";
#$desc{""} = "";

$url{"mccants.tle"} = "ftp://ftp.fc.net/pub/users/mikem/mccants.tle";
$desc{"mccants.tle"} = "Mike McCants\' visual satellite file (with magnitudes).";

sub errdesc ( $ ) {
	my $nff = shift;
	print STDERR "'$nff' is an unknown file.\n";

	return if (defined $seenlist);
	$seenlist = 1;

	print STDERR "Available files are:\n";
	
	for $i (keys %desc) {
		print STDERR $i, " - ", $desc{$i}, "\n";
	}
}

	    
for $fn (@ARGV) {
	my $file;

	if ($fn =~ /\/([^\/]+)$/) {
		$file = $1;
	} else {
		$file = $fn;
	}

	unless (exists $url{$file}) {
		errdesc($file);
		next;
	}

	my $data = get($url{$file});
	unless ($data) {
		print STDERR "There was some sort of error getting '$file' from \n",
		  "\t", $url{$file}, "\n";
		next;
	}
	
	open F, ">$fn";
	print F $data;
	close F;
}