Perl Requires Chilkat v11.0.0+

FTP Set Remote File Date/Time Equal to Local File's Last-Modified Date/Time

See more FTP Examples

Demonstrates how to set a remote file's date/time to be equal to a local file's date/time.

Important: Not all FTP servers support the ability to set a file's date/time.

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# This example assumes Chilkat Ftp2 to have been previously unlocked.
# See Unlock Ftp2 for sample code.

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

$ftp->Hostname('www.authtls-ftps-server.com');
$ftp->Username('FTP_LOGIN');
$ftp->Password('FTP_PASSWORD');
$ftp->AuthTls(1);
$ftp->Port(21);

# Connect to the FTP server using explicit TLS (AUTH TLS).
my $success = $ftp->ConnectOnly();
if (!$success) {
    print $ftp->LastErrorText, "\n";
    exit;
}

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

# We're going to get the last-mod date/time for the local file
# "qa_data/hamlet.xml", and then set the remote "hamlet.xml" to this date/time.
my $fac = Chilkat2::FileAccess->new;
my $dt = Chilkat2::DateTime->new;
my $lastModTimestamp = $fac->GetFileTimeStr('qa_data/hamlet.xml', 0);
$dt->SetFromTimestamp($lastModTimestamp);

$success = $ftp->SetRemoteFileDt($dt, 'hamlet.xml');
if (!$success) {
    print $ftp->LastErrorText, "\n";

    exit;
}

$ftp->Disconnect();

print "Success.\n";