Lines Matching defs:ftpd
0 # ftpd.tcl -- Worlds Smallest FTPD?
8 namespace eval ftpd {
17 package provide ftpd ${::ftpd::version}
22 proc ftpd::absolute {file} {
47 set ret [eval [list file join ${ftpd::root}] $np]
49 set ret ${ftpd::root}
54 proc ftpd::relative {file} {
56 set rp [file split ${ftpd::root}]
60 proc ftpd::ls {path {short 0}} {
74 proc ftpd::ls1 {path {short 0}} {
87 proc ftpd::fmode arr { # From Richard Suchenwirth
99 proc ftpd::type {chan} {
100 upvar #0 ftpd::$chan cb
104 proc ftpd::log {msg} {
111 proc ftpd::reply {chan code data {cont ""}} {
112 upvar #0 ftpd::$chan cb
122 set cb(timer) [after [expr {$cb(timeout) * 1000}] [list ftpd::timeout $chan]]
124 proc ftpd::timeout {chan} {
125 upvar #0 ftpd::$chan cb
129 proc ftpd::CopyDone {chan fd bytes {error ""}} {
130 upvar #0 ftpd::$chan cb
139 proc ftpd::finish {chan {msg EOF}} {
140 upvar #0 ftpd::$chan cb
150 proc ftpd::close-data {chan} {
151 upvar #0 ftpd::$chan cb
160 proc ftpd::accept {chan ip port} {
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}
183 fileevent $chan readable [list ftpd::handler $chan]
185 reply $chan 220 "${ftpd::ident} ([info hostname])"
187 proc ftpd::accept/data {chan data ip port} {
188 upvar #0 ftpd::$chan cb
195 proc ftpd::handler {chan} {
196 upvar #0 ftpd::$chan cb
255 set cb(pasv) [socket -server [list ftpd::accept/data $chan] \
401 fcopy $fd $cb(data) -command [list ftpd::CopyDone $chan $fd]
419 fcopy $cb(data) $fd -command [list ftpd::CopyDone $chan $fd]
445 proc ftpd::server {args} {
451 [list -debug -int ${::ftpd::debug} {Enable Debug Tracing}] \
452 [list -email -any ${::ftpd::email} {FTP Support Email}] \
453 [list -port -int ${::ftpd::port} {TCP/IP Port}] \
454 [list -root -any ${::ftpd::root} {FTP Root Directory}] \
455 [list -timeout -int ${::ftpd::timeout} {FTP Idle TImeout}] \
458 set ::ftpd::$var [set $var]
464 file stat ${::ftpd::root} sb
466 socket -server ftpd::accept ${::ftpd::port}
468 tclLog "Accepting connections on ftp://[info hostname]:${ftpd::port}/"
469 tclLog "FTP Root = ${::ftpd::root}"
472 set fd [open ftpd.log w]
475 ftpd::server $argv