#This script syncs two FTP servers every hour.
#It does an infinite loop, no scheduling needed.

master_server="ftp.scriptftp.com"
master_server_user="myuser"
master_server_passwd="mypass"

slave_server="172.16.0.4"
slave_server_user="carl"
slave_server_passwd="123456"



:START

result=OPENHOST(master_server,master_server_user,master_server_passwd)
if(not(isequal(result,"OK")))
	print("Cannot connect to master server, aborting")
	Sleep("2")
	exit("1")
end if



LOCALMKDIR("C:\TEMP")
result=LOCALCHDIR("C:\TEMP")



if(not(isequal(result,"OK")))
	print("Cannot access local TEMP dir, aborting")
	Sleep("2")
	exit("1")
end if

GETFILE("*.html",SUBDIRS)
CLOSEHOST

#Go to slave server, where a copy of master server resides

result=OPENHOST(slave_server,slave_server_user,slave_server_passwd)

if(not(isequal(result,"OK")))
	print("Cannot connect to slave server, aborting")
	Sleep("2")
	exit("1")
end if
PUTFILE("*.*",SUBDIRS)

CLOSEHOST

#Now it's time to remove C:\temp.
#Warning: Dangerous code.
#EXEC("del /S *.*")
#localchdir("..")
#localrmdir("TEMP")

#Wait for an hour and sync the servers again
Sleep("3600")
goto START