1#!/bin/sh 2# 3# ftpd.tcl -- Worlds Smallest FTPD? 4# 5# Copyright (c) 1999 Matt Newman, Jean-Claude Wippler and Equi4 Software. 6# \ 7exec tclkitsh "`cygpath -w "$0"`" ${1+"$@"} 8 9package require ftpd 10 11proc bgerror msg { tclLog ${::errorInfo} } 12 13ftpd::server $argv 14 15tclLog "Accepting connections on ftp://${ftpd::ipaddr}:${ftpd::port}/" 16tclLog "FTP Root: ${ftpd::root}" 17 18if {![info exists tcl_service]} { 19 vwait foreever 20} 21