>
> Yes, I have used that module in past projects, however, I cannot add any
> modules to these particular servers. I must do this with native Perl
> command/functions/operators.
but you are making a system call to an external binary, so it's not native
perl anyway.
However, does this mean, that you could, (albeit rather strange), cut and
past
the Net::FTP module into your script?
alternatively, (not knowing the restriction too well), use could install it
'near' your scripts (say same dir), and:
use lib "path/to/dir"
or
export PERL5LIB=path/to/dir
regards
Wayne
>
> Glenn Meyer t/l 631-9100 - [EMAIL PROTECTED]
> Content Hosting Systems Administrator Service Delivery Center - South
>
>
>
>
> "tripix"
> <[EMAIL PROTECTED]> To:
"Wheldon,M" <[EMAIL PROTECTED]>, Glenn
> Sent by:
Meyer/Tampa/IBM@IBMUS
> [EMAIL PROTECTED] cc:
<[EMAIL PROTECTED]>
> veState.com Subject:
Re: System("ftp
>
>
> 04/09/2002 07:10 AM
>
>
>
>
>
> HI,
> have you come across the Net::FTP module?
> (new joiner, half-converstaion, sorry if you have been here!)
>
> Wayne
> ----- Original Message -----
> From: "Glenn Meyer" <[EMAIL PROTECTED]>
> To: "Wheldon,M" <[EMAIL PROTECTED]>
> Cc: <[EMAIL PROTECTED]>
> Sent: Tuesday, April 09, 2002 2:19 PM
> Subject: RE: System("ftp
>
>
> >
> > This made a lot of sense, but I am finding the system() is returning "0"
> > all the time:
> > $sys = system("ftp -n $_[0] < ftp_commands.txt");
> > if successful connecting and performing commands - returns "0"
> > if login to ftp server fails - still returns "0"
> > if I put in a bad ip and the connection is refused - still returns "0"
> >
> > Am I possibly checking this value incorrectly?
> >
> > Glenn Meyer t/l 631-9100 - [EMAIL PROTECTED]
> > Content Hosting Systems Administrator Service Delivery Center - South
> >
> >
> >
> >
> > "Wheldon,M"
> > <wheldom01@leedsle To: Glenn
> Meyer/Tampa/IBM@IBMUS
> > arning.net> cc:
> "'[EMAIL PROTECTED]'"
> >
> <[EMAIL PROTECTED]>
> > 04/09/2002 02:29 Subject: RE:
System("ftp
> > AM
> >
> >
> >
> >
> >
> > You will find that the system call will return an integer depending on
> > success or failure I believe.
> >
> > Try somthing like this
> >
> > if (system("ftp -n $_[0] < ftp_commands.txt") == 0)
> >
> > You would have to check the return values though.
> >
> > Hope this helps
> >
> > Martin Wheldon
> > Senior Technical Consultant
> > Leeds Learning Network
> > Tel: 0113-214-4441
> > E-mail: [EMAIL PROTECTED]
> >
> >
> > The information in this email (and any attachments) may be for the
> intended
> > recipient only.If you know you are not the intended recipient, please do
> > not
> > use or disclose the information in any way and please delete this email
(
> > and any attachment) from your system.
> >
> >
> >
> > -----Original Message-----
> > From: Glenn Meyer [mailto:[EMAIL PROTECTED]]
> > Sent: 08 April 2002 19:31
> > To: [EMAIL PROTECTED]
> > Subject: System("ftp
> >
> >
> > 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
> >
> >
> >
> >
> > _______________________________________________
> > Perl-Win32-Admin mailing list
> > [EMAIL PROTECTED]
> > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> >
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
>
>
>
>
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
