(Classic ASP) SCP Sync Tree Upload

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Ssh")
set ssh = Server.CreateObject("Chilkat.Ssh")

' Hostname may be an IP address or hostname:
hostname = "www.some-ssh-server.com"
port = 22

' Connect to an SSH server:
success = ssh.Connect(hostname,port)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>"
    Response.End
End If

' Wait a max of 5 seconds when reading responses..
ssh.IdleTimeoutMs = 5000

' Authenticate using login/password:
success = ssh.AuthenticatePw("myLogin","myPassword")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ssh.LastErrorText) & "</pre>"
    Response.End
End If

' Once the SSH object is connected and authenticated, we use it
' in our SCP object.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Scp")
set scp = Server.CreateObject("Chilkat.Scp")

success = scp.UseSsh(ssh)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( scp.LastErrorText) & "</pre>"
    Response.End
End If

' The remoteRoot is relative to the HOME directory of the SSH user account.
remoteRoot = "workspace/projectB"
localRoot = "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.
' 
scp.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.
scp.SyncMustMatch = "*.cpp; *.h"

' Do the recursive sync to upload newer or non-existant files:
bRecurse = 1
mode = 2
success = scp.SyncTreeUpload(localRoot,remoteRoot,mode,bRecurse)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( scp.LastErrorText) & "</pre>"
    Response.End
End If

' 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.
Response.Write "<pre>" & Server.HTMLEncode( "Files uploaded: ") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( scp.SyncedFiles) & "</pre>"

Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "SCP sync upload success.") & "</pre>"

' Disconnect
ssh.Disconnect 

%>
</body>
</html>