[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 |%
!!!!!!