Artifact
b33729fd2624c203c172d360b3a9d3c54459f2d8:
Attachment "ftpd-test.tcl" to
ticket [412932ffff]
added by
patthoyts
2001-10-31 20:29:18.
# ftpd-test.tcl - Copyright (C) 2001 Pat Thoyts <[email protected]>
#
# Test Tcllib ftpd on windows2000 re bug 412932 at
# http://sourceforge.net/tracker/index.php?func=details&aid=412932&group_id=12883&atid=112883
#
# $Id$
package require ftpd 1.1.1
# Authorisation code.
proc auth {user pass} {
return 1
}
# set the ftpd root
set root {/}
set ftpd::cwd $root
# create a test file to use.
set f [open [file join $root test.file] w]
puts $f [array get tcl_platform]
close $f
# configure the server
ftpd::config -authUsrCmd ::auth
# start the server
ftpd::server
