RE: [perl-win32-gui-users] Net::FTP with AddStatusBar()

[<Chr...@ti...>]

Try $FTPInfo = $ftp->message();  

-----Original Message-----
From: Erick J. Bourgeois [mailto:er...@e-...]
Sent: Friday, January 19, 2001 4:15 PM
To: per...@li...
Subject: [perl-win32-gui-users] Net::FTP with AddStatusBar()


Sorry, here is the sub for connecting to an FTP server

sub CmdConnect_Click {
    my $FTPInfo;
    $Textbox->Text("Connecting to     $Host");
    if ($ftp = Net::FTP->new($Host, Timeout => 45, Debug =>
1)) {
        $FTPInfo = Net::Cmd::message();           #Problem
lies here, it just stops
        $StatusBar->Text("$FTPInfo");
        if ($ftp->login($User, $Pass)) {
            $StatusBar->Text("Logged on to      $Host ...");
        } else {
            $StatusBar->Text("Connect not authenticated.");
        }
    } else {
        $StatusBar->Text("Can't connect to     $Host");
    }
}



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users