jdp - An 8 line server. Serves text files out of the current directory.
proc s {c a p} {
set o [lindex [split [gets $c] " "] 1]
puts $c [read [set f [open ".$o"]]]
close $f
close $c
}
set s [socket -server s 3210]
vwait forever| enter categories here |
|---|