#!/usr/bin/perl -s -Ifiles

#
#  Get a file using ftp.
#
#   ftpget host dir source dest
#

require "ftplib.pl";


die "usage: ftpget <host> <directory> <source> <dest>
" unless $#ARGV == 3;

($Host, $Directory, $Source, $Dest) = @ARGV;


&ftp'open($Host, $User, $Pass) || &fail;
&ftp'type("i") || &fail;
&ftp'cwd($Directory) || &fail;
&ftp'get($Source, $Dest) || &fail;
&ftp'close;


sub fail {
    $save = &ftp'error;
    &ftp'close;
    die $save;
}