#################################################
# FTP Cloudscape DB to remote server - Recursive.
#################################################
puts "\n executing [info script]\n"
# make script drive independent.
set drive [lindex [file split [info nameofexecutable]] 0 ]
package require ftp
package require Tclx
######################################
# Get FTP Connection.
######################################
proc getFtp { host logon password transferType} {
set ftp::VERBOSE 1
set ftp::DEBUG 1
puts "\n **** getFtp_proc **** \n"
set ftphandle [ ftp::Open $host $logon $password ]
ftp::Type $ftphandle $transferType
return $ftphandle
}
##################################################################
# List the directories and files in the local nested directories.
##################################################################
proc getFiles { baseDir } {
puts "\n **** getFiles proc **** \n"
# extract the sub directories from the base directory
set fileList [ recursive_glob $baseDir * ]
foreach e $fileList {
if { [ file isdirectory $e ] } {
lappend dList $e
} else {
lappend fList $e
}
}
return [ list $dList $fList ]
}
###############################################################
# Create the local directory structure on the remote server.
###############################################################
proc ftpDirsFiles { ftphandle files } {
puts "\n **** ftpDirsFiles proc **** \n"
# create the remote directories.
# paths must be relative.
foreach i [ lindex $files 0 ] {
set rd [ eval file join [ join [ lrange [ file split $i ] 1 end ] ] ]
puts "\n local dir: $i"
puts "\n remotedir: $rd"
::ftp::MkDir $ftphandle $rd
}
# ftp the files.
# paths must be absolute on local server and relative on remote server.
unset i
foreach i [ lindex $files 1 ] {
set rf [ eval file join [ join [ lrange [ file split $i ] 1 end ] ] ]
puts "\n local file: $i"
puts "\n remote file $rf"
::ftp::Put $ftphandle $i $rf
}
}
######################################
# Main Control.
######################################
set localDir [ file join $drive CloudScapeDatabasesBackups ]
set host ftphost
set logon yourlogon
set password yourpassword
set transferType binary
puts "\n localDir = $localDir"
# get FTP connection
if { [ catch { getFtp $host $logon $password $transferType } r ] == 0 } {
puts "\n Connected to $host as $logon \n"
set ftpHandle $r
} else {
puts "\n Failed to connect to $host as $logon \n"
exit 1
}
ftpDirsFiles $ftpHandle [ getFiles $localDir ]
