namespace eval ::ftpd {
    variable welcome "tcllib FTP server on [info hostname] ready."
}
package require ftpd

proc myAuthUsrCmd {user pass} {
    puts "accepting everything: $user/$pass"
    return 1
}
proc myLogCmd {lvl msg} {
    if {$lvl eq "note"} {
        puts stderr $msg
    } else {
        puts stderr "\[$lvl\] $msg"
    }
}
::ftpd::config -authUsrCmd myAuthUsrCmd -logCmd myLogCmd
::ftpd::fsFile::docRoot c:/myFtpRoot
::ftpd::server

if {! [info exists tk_version]} {
    vwait forever
}
return