I am using the following subroutine to ftp log files to a central log
server.
my $ftphost = "10.xx.xx.xxx";
my $ftpuser = "weblog";
my $ftppasswd = "weblog";
&ftpzips($ftphost,$ftpuser,$ftppasswd);
sub ftpzips {
open(FTPCOMMANDS, ">ftp_commands.txt");
print FTPCOMMANDS "user $_[1] $_[2]\nbin\nprompt\nmput *.zip\nbye\n";
close(FTPCOMMANDS);
system("ftp -n $_[0] < ftp_commands.txt");
}
This is working well right now, but I need to add in some error checking
and/or retry feature. Problem, I cannot add other packages to these boxes
- I must use built in Perl functions and operators. These are NT4 servers
with ActiveState Perl 5.6.0.
Any thoughts as to how I can get either confirmation that the FTP was
successful or that it failed? Thank you!!
Glenn Meyer
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
