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"
;


MentDB © 2012 - 2020 - Legal Notice