Xbase++

SCP Sync Tree Download

See more SCP Examples

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

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

nSuccess := 0

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

oSsh := CreateObject("Chilkat.Ssh")

//  Connect to an SSH server:

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

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

cRemoteRoot := "workspace/php"
cLocalRoot := "c:/aaworkarea/scp/workspace/php"

//  Download synchronization modes:
//  mode=0: Download all files
//  mode=1: Download all files that do not exist on the local filesystem.
//  mode=2: Download newer or non-existant files.
//  mode=3: Download only newer files.  
//          If a file does not already exist on the local filesystem, it is not downloaded from the server.
//  mode=5: Download only missing files or files with size differences.
//  mode=6: Same as mode 5, but also download newer files.
nMode := 2

//  Sync the entire tree by using recursion.
nBRecurse := 1

nSuccess := oScp:SyncTreeDownload(cRemoteRoot, cLocalRoot, nMode, nBRecurse)
IF (nSuccess != 1)
    ? oScp:LastErrorText
    oSsh:destroy()
    oScp:destroy()
    RETURN
ENDIF

? "SCP sync download success."

//  Disconnect
oSsh:Disconnect()

oSsh:destroy()
oScp:destroy()