Artifact
d7e22b5f32726fec93f6fc3223d71e94e017cd20:
0000: 23 21 2f 62 69 6e 2f 73 68 0d 0a 23 20 54 68 65 #!/bin/sh..# The
0010: 20 6e 65 78 74 20 6c 69 6e 65 20 69 73 20 65 78 next line is ex
0020: 65 63 75 74 65 64 20 62 79 20 2f 62 69 6e 2f 73 ecuted by /bin/s
0030: 68 2c 20 62 75 74 20 6e 6f 74 20 74 63 6c 20 5c h, but not tcl \
0040: 0d 0a 65 78 65 63 20 74 63 6c 73 68 20 22 24 30 ..exec tclsh "$0
0050: 22 20 24 7b 31 2b 22 24 40 22 7d 0d 0a 0d 0a 70 " ${1+"$@"}....p
0060: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 ackage require t
0070: 6c 73 0d 0a 0d 0a 70 72 6f 63 20 63 72 65 61 64 ls....proc cread
0080: 61 62 6c 65 20 7b 73 7d 20 7b 0d 0a 20 20 20 20 able {s} {..
0090: 70 75 74 73 20 22 4c 49 4e 45 3d 5b 67 65 74 73 puts "LINE=[gets
00a0: 20 24 73 5d 22 0d 0a 20 20 20 20 61 66 74 65 72 $s]".. after
00b0: 20 32 30 30 30 0d 0a 20 20 20 20 65 78 69 74 0d 2000.. exit.
00c0: 0a 7d 0d 0a 0d 0a 70 72 6f 63 20 6d 79 73 65 72 .}....proc myser
00d0: 76 20 7b 73 20 61 72 67 73 7d 20 7b 0d 0a 20 20 v {s args} {..
00e0: 20 20 66 69 6c 65 65 76 65 6e 74 20 24 73 20 72 fileevent $s r
00f0: 65 61 64 61 62 6c 65 20 5b 6c 69 73 74 20 63 72 eadable [list cr
0100: 65 61 64 61 62 6c 65 20 24 73 5d 0d 0a 7d 0d 0a eadable $s]..}..
0110: 0d 0a 74 6c 73 3a 3a 6d 69 73 63 20 72 65 71 20 ..tls::misc req
0120: 31 30 32 34 20 24 6b 65 79 66 69 6c 65 20 24 63 1024 $keyfile $c
0130: 65 72 74 66 69 6c 65 20 5b 6c 69 73 74 20 43 20 ertfile [list C
0140: 43 43 43 20 53 54 20 53 54 54 54 20 4c 20 4c 4c CCC ST STTT L LL
0150: 4c 4c 20 4f 20 4f 4f 4f 4f 20 4f 55 20 4f 55 55 LL O OOOO OU OUU
0160: 55 55 20 43 4e 20 43 4e 4e 4e 4e 20 45 6d 61 69 UU CN CNNNN Emai
0170: 6c 20 73 6f 6d 65 40 65 6d 61 69 6c 2e 63 6f 6d l some@email.com
0180: 20 64 61 79 73 20 37 33 30 20 73 65 72 69 61 6c days 730 serial
0190: 20 31 32 5d 0d 0a 0d 0a 74 6c 73 3a 3a 73 6f 63 12]....tls::soc
01a0: 6b 65 74 20 2d 6b 65 79 66 69 6c 65 20 24 6b 65 ket -keyfile $ke
01b0: 79 66 69 6c 65 20 2d 63 65 72 74 66 69 6c 65 20 yfile -certfile
01c0: 24 63 65 72 74 66 69 6c 65 20 2d 73 65 72 76 65 $certfile -serve
01d0: 72 20 6d 79 73 65 72 76 20 31 32 33 30 30 0d 0a r myserv 12300..
01e0: 0d 0a 70 75 74 73 20 22 4e 6f 77 20 72 75 6e 20 ..puts "Now run
01f0: 6b 65 79 74 65 73 74 32 2e 74 63 6c 22 0d 0a 76 keytest2.tcl"..v
0200: 77 61 69 74 20 66 6f 72 65 76 65 72 0d 0a 0d 0a wait forever....