S030 ftps - Upload a file throught FTPS
###############################;
# Upload a file throught FTPS #;
###############################;
#Create a script to upload;
script create post "demo.file.ftps.upload" false 1
(param
(var "[localDirectory]" {true} "The local directory" is_null:false is_empty:false "/Users/jimmitry/Desktop/ftp")
(var "[filter]" {true} "The file filter from the remote directory" is_null:false is_empty:false ".*png")
(var "[remoteDirectory]" {true} "The remote directory" is_null:false is_empty:false "/Users/jimmitry/Desktop")
;)
"Upload file through FTPS"
{
try {
#Connect to the FTPS server;
ftps connect "session1" {cm get "demo_cm_ftps";};
ftps set type "session1" "BINARY";
#Move to the remote directory;
ftps cd "session1" [remoteDirectory];
#Get all local files;
json load "files" (file dir_list_regex [localDirectory] [filter] true true);
#Put all files;
-> "[nbFiles]" (json count "files" "/");
for (-> "[i]" 0) (< [i] [nbFiles]) (++ "[i]") {
-> "[filename]" (json select "files" (concat "/[" [i] "]"));
ftps put "session1" (concat [localDirectory] "/" [filename]) (concat [localDirectory] "/" [filename]) "RESUME";
};
ftps disconnect "session1";
} {
#Close objects;
try {ftps disconnect "session1";} {} "[sub_err]";
#Generate an error;
exception (1) ([err]);
} "[err]";
} "Return nothing";
#Execute the script;
execute "demo.file.ftps.upload.post"
"[localDirectory]" "/Users/jimmitry/Desktop/ftp"
"[filter]" ".*png"
"[remoteDirectory]" "/Users/jimmitry/Desktop"
;