; set username and password here and also in the Managed Site record SET username = "" SET password = "" SET uploadRecieverID = "LOOPTEST" SET uploadFileType = "LOOPBACK" SET uploadFilename = "Readme.txt" WORKINGDIR %installdir FTPLOGON "ebmx" /trust=all ;do login PREPAREPOST "application/x-www-form-urlencoded" POSTVALUE "function" "login" POSTVALUE "username" username POSTVALUE "password" password SET ErrorMsg = "Could not login as " & username HTTPPOST "/servlet/ebmxcontroller" "" result /intype=prepared /outtype=string IFNSUBSTR result "Success!" GOTO FAILED ;do upload PREPAREPOST "multipart/form-data" POSTVALUE "ReceiverId" uploadRecieverID POSTVALUE "FileType" uploadFileType POSTVALUE "filename" uploadFilename /file SET ErrorMsg = "Could not upload " & uploadFilename HTTPPOST "/servlet/ebmxcontroller?function=submitfile" "" result /intype=prepared /outtype=string IFNSUBSTR result "Success!" GOTO FAILED ;extract returned tracking id SETSUBSTR depth = result " " SETNUM depth = depth + 1 SETEXTRACT uploadedId = result " " depth DISPLAY uploadedId ;get list of files that need to be downloaded PREPAREPOST "application/x-www-form-urlencoded" POSTVALUE "function" "listfiles" POSTVALUE "newdocsonly" "true" SET ErrorMsg = "Could not get file listing" HTTPPOST "/servlet/ebmxcontroller" "" "tmpfile.txt" /intype=prepared IFERROR GOTO FAILED ;discard header line READFILE "tmpfile.txt" discard /termchr=lf ;get next record from file list READFILE "tmpfile.txt" record /record=next /termchr=lf /allowall IFERROR GOTO FAILED ;No Records ;extract tracking id from record (first item, space delimited) SETEXTRACT trackingID = record " " 1 SET filelist = trackingID :ADDFILE READFILE "tmpfile.txt" record /record=next /termchr=lf /allowall IFERROR GOTO ALLFILES ;No more Records ;extract tracking id from record (first item, space delimited) SETEXTRACT trackingID = record " " 1 SET filelist = filelist & "," & trackingID GOTO ADDFILE :ALLFILES ;download zip file PREPAREPOST "application/x-www-form-urlencoded" POSTVALUE "function" "downloadfiles" POSTVALUE "filelist" filelist SET ErrorMsg = "Could not download " & filelist HTTPPOST "/servlet/ebmxcontroller" "" "download.zip" /intype=prepared IFERROR GOTO FAILED ;confirm download of zip file PREPAREPOST "application/x-www-form-urlencoded" POSTVALUE "function" "confirmdownload" POSTVALUE "filelist" filelist SET ErrorMsg = "Could not confirm download of " & filelist HTTPPOST "/servlet/ebmxcontroller" "" result /intype=prepared /outtype=string IFERROR GOTO FAILED GOTO DONE :FAILED DISPLAY ErrorMsg DISPLAY %lasterrormsg DISPLAY result :DONE FTPLOGOFF