.I'm quite new to TCL so i've proably made an obvious mistake.. so could anyone point it out from this portion of code I have edited?
Code: Select all
if {$ullist != ""} {
switch -exact $cs(ulmethod) {
1 {foreach e $ullist {
if {[file exists $e]} {
file copy -force $e $cs(localfolder)
file delete -force $e
puts "cd /home/electro/chatstats"
set ftpid [open "|$cs(ftpclient)" w]
puts $ftpid "open -u $cs(username) -p $cs(password) $cs(ftpname)"
puts $ftpid "cd $cs(ftpfolder) end]"
puts $ftpid "put * end]"
puts $ftpid "quit"
} else {putlog "CHATstats: Skipped moving $e, file not found."}
}
}