(Perl) chmod (Setting File Permissions)

This example assumes your FTP server supports the "chmod" command, which typically means it must be a server running on a Linux or Unix system. The SendCommand method may be called to send arbitrary commands to the FTP server. This example sends a "chmod" command to set the file permissions.

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

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

$ftp->put_Hostname("ftp.cknotes.com");
$ftp->put_Username("myLogin");
$ftp->put_Password("myPassword");

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

# Send a chmod command to the FTP server to set
# the permissions of a file to 0644:
$resp = $ftp->sendCommand("chmod 0644 hamlet.xml");

if ($ftp->get_LastMethodSuccess() != 1) {
    # Failed.
    print $ftp->lastErrorText() . "\r\n";
}
else {
    # You should write code to examine the response to
    # the SendCommand.  As an example, the FTP server
    # used for testing responds with this for success:
    # 200 Permissions changed on hamlet.xml
    print $resp . "\r\n";
}

$success = $ftp->Disconnect();