Differences From Artifact [38bd23a6f6]:

• File tests/simpleClient.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: 2948) [annotate] [blame] [check-ins using] [more...]

To Artifact [0aeefa628c]:

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

59
60
61
62
63
64
65
66

67
68
69
70
71
72
73

59
60
61
62
63
64
65

66
67
68
69
70
71
72
73

-
+

    global OPTS
    if {[catch {read $chan} data]} {
	#dputs "EOF $chan ([shortstr $data])"
	incr OPTS(openports) -1
	catch {close $chan}
	return
    }
    #if {$data != ""} { dputs "got $chan ([shortstr $data])" }
    #if {$data ne ""} { dputs "got $chan ([shortstr $data])" }
    if {[string match *CLOSE\n $data]} {
	dputs "CLOSE $chan"
	incr OPTS(openports) -1
	close $chan
	return
    } elseif {[eof $chan]} {
	# client gone or finished