Can you generate an executable? As far as I know you are able to include other modules in the *.exe without installing anything on the server.
-----Original Message----- From: Glenn Meyer [mailto:[EMAIL PROTECTED]] Sent: Tuesday, April 09, 2002 11:03 AM To: tripix Cc: [EMAIL PROTECTED]; [EMAIL PROTECTED]; Wheldon,M Subject: Re: System("ftp 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. 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 _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
