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

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $ftp = Chilkat2::Ftp2->new;

$ftp->Hostname('ftp.example.com');
$ftp->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->Password('myPassword');

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

# After a successful connect, these flags report what succeeded.
print 'TCP connection verified: ', ($ftp->ConnectVerified ? 1 : 0), "\n";
print 'Login verified: ', ($ftp->LoginVerified ? 1 : 0), "\n";

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

$success = $ftp->Disconnect();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}