Lines Matching refs:cb
23 upvar 1 cb cb
27 set nfile [eval [list file join $cb(cwd)] $sp]
100 upvar #0 ftpd::$chan cb
102 if {$cb(type) == "I"} { return ASCII } else { return BINARY }
105 upvar 1 cb cb
107 if {[info exists cb(debug)] && $cb(debug)} {
108 tclLog "FTPD: $cb(rhost):$cb(rport): $msg"
112 upvar #0 ftpd::$chan cb
121 after cancel $cb(timer)
122 set cb(timer) [after [expr {$cb(timeout) * 1000}] [list ftpd::timeout $chan]]
125 upvar #0 ftpd::$chan cb
126 reply $chan 421 "No Transfer Timeout ($cb(timeout)) closing control channel"
130 upvar #0 ftpd::$chan cb
140 upvar #0 ftpd::$chan cb
143 catch {after cancel $cb(timer)}
148 catch {unset cb}
151 upvar #0 ftpd::$chan cb
152 catch {flush $cb(data)}
153 catch {close $cb(data)}
154 tclLog "CLOSE data $cb(data)"
155 catch {close $cb(pasv)}
156 tclLog "CLOSE pasv $cb(pasv)"
157 set cb(pasv) ""
158 set cb(data) ""
161 upvar #0 ftpd::$chan cb
164 set cb(debug) ${ftpd::debug}
165 set cb(root) ${ftpd::root}
166 set cb(email) ${ftpd::email}
167 set cb(timeout) ${ftpd::timeout}
169 set cb(cwd) /
170 set cb(offset) 0
171 set cb(type) binary
172 set cb(last) ""
173 set cb(pasv) ""
174 set cb(data) ""
175 set cb(rhost) $ip
176 set cb(rport) $port
177 set cb(chan) $chan
178 set cb(timer) ""
188 upvar #0 ftpd::$chan cb
192 set cb(data) $data
193 fconfigure $cb(data) -translation $cb(type)
196 upvar #0 ftpd::$chan cb
216 set cb(user) $arg
217 reply $chan 331 "Password required for $cb(user)."
220 reply $chan 230 "User $cb(user) logged in."
224 set cb(type) {auto crlf}
226 set cb(type) binary
228 if {$cb(data) != ""} {
229 fconfigure $cb(data) -translation $cb(type)
231 reply $chan 200 "Type set to $cb(type)."
241 set cb(data) [socket -async $ip $port]
242 tclLog "OPEN data $cb(data)"
243 fconfigure $cb(data) -translation $cb(type)
251 if {$cb(pasv) != ""} {
255 set cb(pasv) [socket -server [list ftpd::accept/data $chan] \
257 tclLog "OPEN pasv $cb(pasv)"
259 set c [fconfigure $cb(pasv) -sockname]
269 set cb(offset) $arg
270 reply $chan 350 "Restarting at $cb(offset). Send STORE or RETRIEVE to initiate transfer."
280 cd [absolute [file join $cb(cwd) $arg]]
284 set cb(cwd) [relative [pwd]]
346 set cb(from) $arg
351 if {$cb(last) != "RNFR"} {
354 file rename [absolute $cb(from)] [absolute $arg]
362 LIST {if {$arg == ""} {set arg $cb(cwd)}
372 puts $cb(data) $ret
392 if {$cb(offset) > 0} {
393 seek $fd $cb(offset)
401 fcopy $fd $cb(data) -command [list ftpd::CopyDone $chan $fd]
419 fcopy $cb(data) $fd -command [list ftpd::CopyDone $chan $fd]
424 reply $chan 257 "\"$cb(cwd)\" is current directory."
437 reply $chan 214 "Direct comments to $cb(email)."
443 set cb(last) $op