#!/usr/local/bin/perl5
#####################################################################
#
# 
#
#####################################################################
use Socket;
use Net::FTP;
require "ctime.pl";

$DEBUG = 0;
$USERNAME="ftp";
$PASSWORD="-foo\@bar.org";

sub usage {
  print ("Usage: $0 newsgroup\n");
}

if ($#ARGV != 0) {
  &usage;
  exit 0;
}
$newsgroup = $ARGV[0];
($hier,@rest) = split(/\./,$newsgroup);
$remote_server="ftp.uu.net";
$remfile ="/usenet/control/$hier/$newsgroup.Z"; 
print "retrieving $remote_server:$remfile\n";
$localfile="/tmp/$newsgroup.Z";

($ftp = Net::FTP->new($remote_server)) || &choke("Can't log into $remote_server: $!");
$ftp->debug(3);
$ftp->login($USERNAME,$PASSWORD) || &choke ("$USERNAME not accepted: $!");
$ftp->binary;
$ftp->get($remfile,$localfile) || &choke("get failed: $!");
$ftp->quit;

print "Control archive written to $localfile\n";
exit 0;

sub choke {
  print STDERR "$0:$_";
  
  exit 1;
}