head	1.2;
access;
symbols
	tcllib-1-1-0:1.1
	tcllib-1-0-0:1.1
	tclpro-1-5-0:1.1
	tcllib-0-8-0:1.1;
locks; strict;
comment	@# @;


1.2
date	2001.11.12.23.21.25;	author andreas_kupries;	state dead;
branches;
next	1.1;

1.1
date	2000.10.28.03.46.04;	author kuchler;	state Exp;
branches;
next	;


desc
@@


1.2
log
@
	* examples/ftpd: Moved example applications out of the ftpd module
	  into the example space.
@
text
@#!/bin/sh 
# FTP daemon
# \
exec tclsh8.3 "$0" ${1+"$@@"}

if {[catch {package require ftpd}]} {
    set here [file dirname [info script]]
    source [file join .. $here ftpd.tcl]
}

proc bgerror {args} {
    global errorInfo
    puts stderr "bgerror: [join $args]"
    puts stderr $errorInfo
}

::ftpd::server
vwait forever
@


1.1
log
@Added the ftpd package, a package for creating a ftp server
@
text
@@

