LiveCode Forums.

Code: Select all

revCloseDatabase gDBid --closes newsapp.sqlite
   
put "binfile:" & g_sfp_docs & "/airnews/sqlite/test.sqlite" into tTestDB  
put g_ftp_sqlite & "test.copy" into g_ftp_sqlulpath

--copies test.sqlite to test.copy on server
put url tTestDB into url g_ftp_sqlulpath 
   
put "binfile:" & g_sfp_docs & "/airnews/sqlite/newsapp.sqlite" into tRealDB   
put g_ftp_sqlite & "newsapp.copy" into g_ftp_sqlulpath

--creates empty file newsapp.copy on server
put url tRealDB into url g_ftp_sqlulpath 

Code: Select all

constant FTPHOST = "ftp.someserver.com"
constant FTPUSER = "someuser"
constant FTPPASS = "987654321"

on mouseUp
    # Start by getting the file to upload
    local tFileForUpload, tFileName
    answer file "Select a file to upload"
    put it into tFileForUpload
    
    # Get the name of the file for upload
    set the itemdel to "/"
    put the last item of tFileForUpload into tFileName
    put empty into field 1
    
    # Connect the start the upload
    local tDestination
    put "ftp://" & FTPUSER & ":" & FTPPASS & "@" & FTPHOST & "/public_html/" & tFileName into tDestination
    libURLSetStatusCallback "uploadProgress", the long ID of me
    libURLftpUploadFile tFileForUpload, tDestination, "uploadComplete"
end mouseUp

on uploadComplete pURL, pStatus
    put "Status Update:" && pStatus && return after field 1
end uploadComplete

on uploadProgress pURL, pStatus
    put "Status Update:" && pStatus && return before field 1
end uploadProgress