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

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.

Note: This example includes a new file access method introduced in Chilkat v9.5.0.66.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

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

$ftp->put_Hostname("www.authtls-ftps-server.com");
$ftp->put_Username("FTP_LOGIN");
$ftp->put_Password("FTP_PASSWORD");
$ftp->put_AuthTls(1);
$ftp->put_Port(21);

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

# Authenticate.
$success = $ftp->LoginAfterConnectOnly();
if ($success != 1) {
    print $ftp->lastErrorText() . "\r\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.
$fac = chilkat::CkFileAccess->new();
# dt is a CkDateTime
$dt = $fac->GetLastModified("qa_data/hamlet.xml");
if ($fac->get_LastMethodSuccess() != 1) {
    print $fac->lastErrorText() . "\r\n";
    exit;
}

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

    exit;
}

$ftp->Disconnect();

print "Success." . "\r\n";