1#! /bin/sh
2# -*- tcl -*- \
3exec tclsh "$0" ${1+"$@"}
4
5# FTP daemon
6
7package require Tcl 8.3
8if {[catch {package require ftpd}]} {
9    set here [file dirname [info script]]
10    source [file join .. $here ftpd.tcl]
11}
12
13proc bgerror {args} {
14    global errorInfo
15    puts stderr "bgerror: [join $args]"
16    puts stderr $errorInfo
17}
18
19::ftpd::server
20vwait forever
21