/* Adobe Flash updates retriever */

Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
Call SysLoadFuncs

vSRV_Path = 'D:\var\www\flashupdate\pub\flashplayer\update\current\sau\'
Version = '11'
Src_Path = 'fpdownload2.macromedia.com/pub/flashplayer/update/current/sau/'

update.1 = Src_Path||Version||'/xml/version.xml'
update.2 = Src_Path||Version||'/install/install_all_win_ax_sgn.z'
update.3 = Src_Path||Version||'/install/install_all_win_pl_sgn.z'
update.4 = Src_Path||Version||'/install/install_all_win_64_ax_sgn.z'
update.5 = Src_Path||Version||'/install/install_all_win_64_pl_sgn.z'

destination.1 = vSRV_Path||Version||'\xml\'
destination.2 = vSRV_Path||Version||'\install\'

Do count = 1 to 2
	If Directory(destination.count) \= destination.count Then Call MkTreeDir destination.count
End	
space = ' '
dstPath = destination.1
Wget_Param = "call wget.cmd -nv -P "
Do count = 1 to 5
	WGet_cmdl = Wget_Param||dstPath||space||update.count
	WGet_cmdl
	dstpath = destination.2
End
Exit

MkTreeDir: Procedure
Parse arg path
chroot = Directory()
Path.Drive = FileSpec('Drive', path)
If Path.Drive = '' Then Path.Drive = chroot
Path.Path = FileSpec('Path', path)
path = Path.Drive||Path.Path
curDir = ''
Do While path \= ''
	Parse value path with curSubDir '\' path
	curDir = curDir||curSubDir
	Call SysMkDir(curDir)
	curDir = curDir||'\'
End
Return 0