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