#!/usr/bin/perl

## fcp
##   rcp/scp-like functionality but for
##   ftp.  Front-end for Net::FTP.
##
## (c) 2000-2003 Hal Canary
##
## License:
##   This is free software, see
##   http://www.gnu.org/licenses/gpl.txt
##   This product is distributed
##   WITHOUT ANY WARRANTY of any kind.
##
## Bugs:
##   Doesn't use rcp/scp syntax yet.

use Net::FTP;

if (($#ARGV eq 0) or ($ARGV[0] eq "")) {
    print "\nusage:\n  $0 [g|p] USER HOSTNAME DIR";
    print "ECTORY FILE...\n  g = get\n  p = put\n\n";
    exit 1;
}

my ($gp, $login, $server, $directory, @files) = @ARGV;
my $pass = "";

system "stty -echo";
print $login."@".$server."'s password: ";
chomp($pass = <STDIN>);
print "\n";
system "stty echo";

my $ftp = Net::FTP->new($server, Debug => 0) 
    or die "\n\tUnable to connect to $server!\n\n";
print "Connected to $server. \n";

$ftp->login($login,$pass) 
    or die "\n\tIncorect password!\n\n";
print "Logged in as $login. \n";

$ftp->cwd($directory) 
    or die "\n\tCan't change directory!\n\n";
print "Directory is $directory. \n\n";

foreach $file (@files) {
    if ($gp eq "g") {
	print "  Getting $directory/$file ... " ;
	if (! $ftp->get($file)) { print "ERROR\n"; }
	else { print "done\n";}
    } elsif ($gp eq "p") {
	$ftp->put($file);
	print "Put $directory/$file \n";
    }
}
$ftp->quit;   
print "\n";