Xbase++

SCP Sync Tree Upload

See more SCP Examples

Synchronize local and remote directory trees by uploading newer or missing files to the remote server. Xbase++

LOCAL nSuccess
LOCAL oSsh
LOCAL cHostname
LOCAL nPort
LOCAL oScp
LOCAL cRemoteRoot
LOCAL cLocalRoot
LOCAL nBRecurse
LOCAL nMode

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oSsh := CreateObject("Chilkat.Ssh")

//  Hostname may be an IP address or hostname:
cHostname := "www.some-ssh-server.com"
nPort := 22

//  Connect to an SSH server:
nSuccess := oSsh:Connect(cHostname, nPort)
IF (nSuccess != 1)
    ? oSsh:LastErrorText
    oSsh:destroy()
    RETURN
ENDIF

//  Wait a max of 5 seconds when reading responses..
oSsh:IdleTimeoutMs := 5000

//  Authenticate using login/password:
nSuccess := oSsh:AuthenticatePw("myLogin", "myPassword")
IF (nSuccess != 1)
    ? oSsh:LastErrorText
    oSsh:destroy()
    RETURN
ENDIF

//  Once the SSH object is connected and authenticated, we use it
//  in our SCP object.
oScp := CreateObject("Chilkat.Scp")

nSuccess := oScp:UseSsh(oSsh)
IF (nSuccess != 1)
    ? oScp:LastErrorText
    oSsh:destroy()
    oScp:destroy()
    RETURN
ENDIF

//  The remoteRoot is relative to the HOME directory of the SSH user account.
cRemoteRoot := "workspace/projectB"
cLocalRoot := "c:/aaworkarea/scp/workspace/projectB"

//  Upload synchronization modes:
//  mode=0: Upload all files
//  mode=1: Upload all files that do not exist on the FTP server.
//  mode=2: Upload newer or non-existant files.
//  mode=3: Upload only newer files.  If a file does not already exist on the FTP server, it is not uploaded.
//  mode=4: transfer missing files or files with size differences.
//  mode=5: same as mode 4, but also newer files.

//  Additional files and directores can be excluded by setting the SyncMustNotMatch property.
//  The SyncMustNotMatch patterns apply only to the final filename or directory part of a path.
//  If a directory matches, then it will not be traversed in a recursive traversal.
//  
oScp:SyncMustNotMatch := "*.o;*.obj;*.log; temp"

//  The SyncMustMatch property can be set to restrict the files uploaded to only those
//  matching at least one pattern in a set.
oScp:SyncMustMatch := "*.cpp; *.h"

//  Do the recursive sync to upload newer or non-existant files:
nBRecurse := 1
nMode := 2
nSuccess := oScp:SyncTreeUpload(cLocalRoot, cRemoteRoot, nMode, nBRecurse)
IF (nSuccess != 1)
    ? oScp:LastErrorText
    oSsh:destroy()
    oScp:destroy()
    RETURN
ENDIF

//  The files actually uploaded can be examined in the SyncedFiles property.
//  It is a string property that contains the relative path, one per line, of each
//  file uploaded.
? "Files uploaded: "
? oScp:SyncedFiles

? "----"
? "SCP sync upload success."

//  Disconnect
oSsh:Disconnect()

oSsh:destroy()
oScp:destroy()