archie/tcl-dp/examples/ftp/server.tcl
2024-05-27 16:13:40 +02:00

24 lines
389 B
Tcl

#########################################
#
# This is the file transfer server
#
# (Not too impressive, huh?)
#
# mperham 3/97
#
package forget dp
package require dp 4.0
# set dataPort 19742
proc fserver {{port 19743}} {
dp_MakeRPCServer $port
}
# call procedure fserver
# You'll need a vwait here if you want to run this in a tclsh.
# vwait forever