43 lines
978 B
PostScript
43 lines
978 B
PostScript
#####################################################################
|
|
# FTP
|
|
#
|
|
# $Revision: 1.2 $ $Date: 2007-06-04 12:12:49-04 $
|
|
#####################################################################
|
|
|
|
sub Usage()
|
|
{
|
|
echo "-------------------------------------------------------";
|
|
echo "Usage: ftp <script_file> [FTP_Address]";
|
|
echo "";
|
|
echo "Address may be specified or set environment variable:";
|
|
echo " lpsetenv -option FTP_ADDRESS -value <FTP_ADDRESS>";
|
|
echo "-------------------------------------------------------";
|
|
return (FALSE);
|
|
}
|
|
|
|
int $i = 1;
|
|
string $script_file;
|
|
string $ip = GetEnv("FTP_ADDRESS");
|
|
|
|
while (defined ($ARGV[$i]) )
|
|
{
|
|
if ($i == 1) {
|
|
$script_file = $ARGV[$i];
|
|
} else if ($i ==2) {
|
|
$ip = $ARGV[$i];
|
|
} else {
|
|
Usage();
|
|
return (FALSE);
|
|
}
|
|
$i++;
|
|
}
|
|
|
|
if (($script_file == "") || ($ip == ""))
|
|
{
|
|
Usage();
|
|
return (FALSE);
|
|
}
|
|
|
|
return (`run -redirect x -command "ftp -n -d -s:$script_file $ip"`);
|
|
|
|
|