Artifact
b3210d97a2ac10054da8aa19a2f8d62daca256c6199fe28b3e864e42c124b918:
0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 20 54 68 65 20 #!/bin/sh.# The
0010: 6e 65 78 74 20 6c 69 6e 65 20 69 73 20 65 78 65 next line is exe
0020: 63 75 74 65 64 20 62 79 20 2f 62 69 6e 2f 73 68 cuted by /bin/sh
0030: 2c 20 62 75 74 20 6e 6f 74 20 74 63 6c 20 5c 0a , but not tcl \.
0040: 65 78 65 63 20 74 63 6c 73 68 20 22 24 30 22 20 exec tclsh "$0"
0050: 24 7b 31 2b 22 24 40 22 7d 0a 0a 73 65 74 20 61 ${1+"$@"}..set a
0060: 75 74 6f 5f 70 61 74 68 20 5b 6c 69 6e 73 65 72 uto_path [linser
0070: 74 20 24 61 75 74 6f 5f 70 61 74 68 20 30 20 5b t $auto_path 0 [
0080: 66 69 6c 65 20 6e 6f 72 6d 61 6c 69 7a 65 20 5b file normalize [
0090: 66 69 6c 65 20 6a 6f 69 6e 20 5b 66 69 6c 65 20 file join [file
00a0: 64 69 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 dirname [info sc
00b0: 72 69 70 74 5d 5d 20 2e 2e 5d 5d 5d 0a 70 61 63 ript]] ..]]].pac
00c0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 kage require tls
00d0: 0a 0a 73 65 74 20 73 20 5b 74 6c 73 3a 3a 73 6f ..set s [tls::so
00e0: 63 6b 65 74 20 31 32 37 2e 30 2e 30 2e 31 20 31 cket 127.0.0.1 1
00f0: 32 33 30 30 5d 0a 70 75 74 73 20 24 73 20 22 41 2300].puts $s "A
0100: 20 6c 69 6e 65 22 0a 66 6c 75 73 68 20 24 73 0a line".flush $s.
0110: 70 75 74 73 20 5b 6a 6f 69 6e 20 5b 74 6c 73 3a puts [join [tls:
0120: 3a 73 74 61 74 75 73 20 24 73 5d 20 5c 6e 5d 0a :status $s] \n].
0130: 65 78 69 74 0a exit.