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