Hi! Have you tried using $ftp->site()?
"site (ARGS) Send a SITE command to the remote server and wait for a response. Returns most significant digit of the response code." (Net::FTP perldoc) If that doesn't work, you may be able to get it working as $ftp->quot(): "quot (CMD [,ARGS]) Send a command, that Net::FTP does not directly support, to the remote server and wait for a response. Returns most significant digit of the response code. WARNING This call should only be used on commands that do not require data connections. Misuse of this method can hang the connection. " (Net::FTP perldoc) hth, -Leah -----Original Message----- From: Conor Lillis [mailto:[EMAIL PROTECTED]] Sent: Tuesday, August 13, 2002 10:19 AM To: [EMAIL PROTECTED]; Perl-Unix-Users (E-mail) Subject: [Perl-unix-users] FTP to AS400, issue sending command Hi, I need to send the command "quote site namefmt 1" to the FTP server on an AS400 as part of a file transfer script. Is it possible to send non-standard commands using the Net::FTP module ? Here's my code, I'm stuck. $host="ftpserver"; $ftp = Net::FTP->new("$host", Debug => 1); $ftp->login("$username","$password") || die logger ("Could not login to FTP server\n"); logger("Successfully logged into FTP Server"); $ftp->"quote site namefmt 1"; The information in this email is confidential and may be legally privileged. It is intended solely for the addressee. Access to this email by anyone else is unauthorised.if you are not the intended recipient, any disclosure, copying, distribution, or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. Please note that any views, opinions or advice contained in this email are those of the sending individual and not necessarily those of the firm. It is possible for data transmitted by e-mail to be deliberately or accidentally corrupted or intercepted. For this reason, where the communication is by e-mail, J&E Davy does not accept any responsibility for any breach of confidence which may arise from the use of this medium. If you have received this e-mail in error please notify us immediately at mailto:[EMAIL PROTECTED] and delete this e-mail from your system. _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
