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

[Erick J. B. <er...@e-...>]

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");
    }
}