#!/usr/local/bin/perl
use strict;
use Getopt::Std;

$Getopt::Std::STANDARD_HELP_VERSION = 1; # why doesn't this work?!

sub main::HELP_MESSAGE(){
	print <<END;
Deletes remote ftp files.
Usage: ftprm [options] remote-host remote-file

OPTION
-u				ftp user id
-p				ftp user password
-v				version info
-h				prints this help
END
}



# perform ftp task...
sub ftpRemove {
	my $id = shift;
	my $pass = shift;
	my $host = shift;
	my $file = shift;

	open( PIPE, "|ftp -n $host 2>&1 | cat > /dev/null" );
	print PIPE <<END_SC;
user $id $pass
delete $file
quit
END_SC
	close PIPE;
}



###
### main
###
my %options=();
getopts("u:p:hv",\%options); # like the shell getopt, "d:" means d takes an argument

# parsing done. let's jump into action.

if( $options{h} or $#ARGV != 1 ) {
	print "invalid arguments.\n";
	HELP_MESSAGE();
}
else {
	my $host = shift;
	my $file = shift;
	# print "removing $host:$file...\n";
	&ftpRemove( $options{u}, $options{p}, $host, $file );
}