Perl

Check FTP Connection and Login Status

Demonstrates the connection-status properties ConnectVerified, LoginVerified, ConnectFailReason, and Greeting.

Background: When Connect fails, these properties separate the possible causes: ConnectVerified shows whether the TCP connection was established at all, LoginVerified whether authentication then succeeded, and ConnectFailReason gives a numeric code pinpointing the failure — far more actionable than a generic error for distinguishing, say, an unreachable host from a bad password. The Greeting captures the server's opening banner, sometimes useful for identifying the server or its policies.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

$ftp = chilkat::CkFtp2->new();

$ftp->put_Hostname("ftp.example.com");
$ftp->put_Username("myFtpLogin");

#  Normally you would not hard-code the password in source.  You should instead obtain it
#  from an interactive prompt, environment variable, or a secrets vault.
$ftp->put_Password("myPassword");

$success = $ftp->Connect();
if ($success != 1) {
    #  ConnectFailReason gives a numeric code describing why Connect failed.
    print "Connect failed, reason code: " . $ftp->get_ConnectFailReason() . "\r\n";
    print $ftp->lastErrorText() . "\r\n";
    exit;
}

#  After a successful connect, these flags report what succeeded.
print "TCP connection verified: " . $ftp->get_ConnectVerified() . "\r\n";
print "Login verified: " . $ftp->get_LoginVerified() . "\r\n";

#  The Greeting property holds the server's initial greeting banner.
print "Server greeting: " . $ftp->greeting() . "\r\n";

$success = $ftp->Disconnect();
if ($success == 0) {
    print $ftp->lastErrorText() . "\r\n";
    exit;
}