# ftpd-test.tcl - Copyright (C) 2001 Pat Thoyts <Pat.Thoyts@bigfoot.com>
#
# 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
