Differences From Artifact [0490845ed9]:

• File tests/simpleServer.tcl — part of check-in [899a950204] at 2023-03-04 20:19:45 on branch trunk — Added key and PEM output to variables and updated keytest1 test script. Source: https://www.androwish.org/home/info/80b11e9594532414 and https://www.androwish.org/home/info/56087b886c6c105f and https://core.tcl-lang.org/tcltls/tktview/04d6bb909b ids: [80b11e9594] and [56087b886c] (user: bohagan, size: 2515) [annotate] [blame] [check-ins using] [more...]

To Artifact [fb8deda5e8]:

• File tests/simpleServer.tcl — part of check-in [ea36bcf6c4] at 2024-10-25 05:13:44 on branch tls-1.8 — More TCL9 updates (user: bohagan, size: 2515) [annotate] [blame] [check-ins using] [more...]

38
39
40
41
42
43
44
45

46
47
48
49
50
51
52

38
39
40
41
42
43
44

45
46
47
48
49
50
51
52

-
+

#
proc respond {chan} {
    if {[catch {read $chan} data]} {
	#dputs "EOF $chan ([shortstr $data)"
	catch {close $chan}
	return
    }
    #if {$data != ""} { dputs "got $chan ([shortstr $data])" }
    #if {$data ne ""} { dputs "got $chan ([shortstr $data])" }
    if {[eof $chan]} {
	# client gone or finished
	dputs "EOF $chan"
	close $chan		;#  release the port
	return
    }
    puts -nonewline $chan $data