Why not just call message() ?
my $ftp = NET::FTP->new($host);
my $welcome = $ftp->message();
$ftp->close();
Floyd R.
----- Original Message -----
From: "$Bill Luebkert" <[EMAIL PROTECTED]>
To: "Perl-Win32-Users Mailing List"
<[EMAIL PROTECTED]>
Cc: "Perl-Win32-Users Mailing List"
<[EMAIL PROTECTED]>
Sent: Wednesday, May 24, 2000 10:42 PM
Subject: Re: Net::FTP - Is there a way to get the login message?
| [EMAIL PROTECTED] wrote:
| >
| > The server that I am ftp'ing to provides a message enclosed by
"230"
| > (which I'm assuming is part of the FPT standard) that I would like
to
| > capture and parse. Does anybody know if this is possible?
| >
| > Here's an example of what I get when I ftp from the MSDOS window:
| >
| > ftp> open 192.168.14.100
| > Connected to 192.168.14.100.
| > 220 FTP server ready.
| > User (192.168.14.100:(none)):
| > 331 User allowed.
| > Password:
| > 230-Welcome!
| > File uploading is DISABLED.
| > The current list mode is UNIX.
| > 230
| > ftp> quit
| >
| > I need to parse this text to know what state the server is in. Any
ideas
| > how I can get access to the text? $ftp->login only provides me
with the
| > success/failure status.
|
| Not easy to get at, but try (assuming $ftp is your object):
|
| @{${*$ftp}{'net_cmd_resp'}}
|
| --
| ,-/- __ _ _ $Bill Luebkert ICQ=14439852
| (_/ / ) // // DBE Collectibles
http://www.wgn.net/~dbe/
| / ) /--< o // // Mailto:[EMAIL PROTECTED]
http://dbecoll.webjump.com/
| -/-' /___/_<_</_</_ http://www.freeyellow.com/members/dbecoll/
|
| ---
| You are currently subscribed to perl-win32-users as:
[EMAIL PROTECTED]
| To unsubscribe, forward this message to
| [EMAIL PROTECTED]
| For non-automated Mailing List support, send email to
| [EMAIL PROTECTED]
|
|
---
You are currently subscribed to perl-win32-users as: [archive@jab.org]
To unsubscribe, forward this message to
[EMAIL PROTECTED]
For non-automated Mailing List support, send email to
[EMAIL PROTECTED]