Artifact
0d2519d08dba064a0e707aa131daf3877344de6e:
0000: 23 0a 23 20 43 6f 70 79 72 69 67 68 74 20 28 43 #.# Copyright (C
0010: 29 20 31 39 39 37 2d 32 30 30 30 20 4d 61 74 74 ) 1997-2000 Matt
0020: 20 4e 65 77 6d 61 6e 20 3c 6d 61 74 74 40 6e 6f Newman <matt@no
0030: 76 61 64 69 67 6d 2e 63 6f 6d 3e 0a 23 0a 23 20 vadigm.com>.#.#
0040: 24 48 65 61 64 65 72 3a 20 2f 68 6f 6d 65 2f 72 $Header: /home/r
0050: 6b 65 65 6e 65 2f 74 6d 70 2f 63 76 73 32 66 6f keene/tmp/cvs2fo
0060: 73 73 69 6c 2f 2e 2e 2f 74 63 6c 74 6c 73 2f 74 ssil/../tcltls/t
0070: 6c 73 2f 74 6c 73 2f 74 65 73 74 73 2f 41 74 74 ls/tls/tests/Att
0080: 69 63 2f 74 6c 73 48 74 74 70 2e 74 63 6c 2c 76 ic/tlsHttp.tcl,v
0090: 20 31 2e 32 20 32 30 30 30 2f 30 31 2f 32 30 20 1.2 2000/01/20
00a0: 30 31 3a 35 36 3a 34 34 20 61 62 6f 72 72 20 45 01:56:44 aborr E
00b0: 78 70 20 24 0a 23 0a 70 61 63 6b 61 67 65 20 72 xp $.#.package r
00c0: 65 71 75 69 72 65 20 62 61 73 65 36 34 0a 0a 73 equire base64..s
00d0: 65 74 20 64 69 72 20 5b 66 69 6c 65 20 64 69 72 et dir [file dir
00e0: 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 63 72 69 70 name [info scrip
00f0: 74 5d 5d 0a 63 64 20 24 64 69 72 0a 73 6f 75 72 t]].cd $dir.sour
0100: 63 65 20 74 6c 73 2e 74 63 6c 0a 70 61 63 6b 61 ce tls.tcl.packa
0110: 67 65 20 72 65 71 75 69 72 65 20 68 74 74 70 0a ge require http.
0120: 0a 23 0a 23 20 49 6e 69 74 69 61 6c 69 7a 65 20 .#.# Initialize
0130: 63 6f 6e 74 65 78 74 0a 23 0a 23 74 6c 73 3a 3a context.#.#tls::
0140: 69 6e 69 74 20 2d 63 65 72 74 66 69 6c 65 20 63 init -certfile c
0150: 6c 69 65 6e 74 2e 70 65 6d 20 2d 63 61 66 69 6c lient.pem -cafil
0160: 65 20 73 65 72 76 65 72 2e 70 65 6d 20 2d 73 73 e server.pem -ss
0170: 6c 32 20 31 20 2d 73 73 6c 33 20 31 20 2d 74 6c l2 1 -ssl3 1 -tl
0180: 73 31 20 30 20 3b 23 2d 63 69 70 68 65 72 20 52 s1 0 ;#-cipher R
0190: 43 34 2d 4d 44 35 0a 74 6c 73 3a 3a 69 6e 69 74 C4-MD5.tls::init
01a0: 20 2d 63 61 66 69 6c 65 20 73 65 72 76 65 72 2e -cafile server.
01b0: 70 65 6d 20 0a 23 0a 23 20 52 65 67 69 73 74 65 pem .#.# Registe
01c0: 72 20 77 69 74 68 20 68 74 74 70 20 6d 6f 64 75 r with http modu
01d0: 6c 65 0a 23 0a 68 74 74 70 3a 3a 72 65 67 69 73 le.#.http::regis
01e0: 74 65 72 20 68 74 74 70 73 20 34 34 33 20 5b 6c ter https 443 [l
01f0: 69 73 74 20 3a 3a 74 6c 73 3a 3a 73 6f 63 6b 65 ist ::tls::socke
0200: 74 20 2d 72 65 71 75 69 72 65 20 31 5d 0a 0a 73 t -require 1]..s
0210: 65 74 20 75 73 65 72 20 6e 6f 76 61 64 69 67 6d et user novadigm
0220: 5c 5c 6d 61 74 74 0a 73 65 74 20 70 61 73 73 20 \\matt.set pass
0230: 73 65 6e 73 75 73 0a 0a 73 65 74 20 61 75 74 68 sensus..set auth
0240: 20 5b 42 61 73 65 36 34 5f 45 6e 63 6f 64 65 20 [Base64_Encode
0250: 22 24 7b 75 73 65 72 7d 3a 24 70 61 73 73 22 5d "${user}:$pass"]
0260: 0a 73 65 74 20 68 64 72 73 20 5b 6c 69 73 74 20 .set hdrs [list
0270: 41 75 74 68 6f 72 69 7a 61 74 69 6f 6e 20 5b 6c Authorization [l
0280: 69 73 74 20 42 61 73 69 63 20 24 61 75 74 68 5d ist Basic $auth]
0290: 5d 0a 23 73 65 74 20 68 64 72 73 20 7b 7d 0a 0a ].#set hdrs {}..
02a0: 73 65 74 20 75 72 6c 20 68 74 74 70 3a 2f 2f 6c set url http://l
02b0: 6f 63 61 6c 68 6f 73 74 3a 33 34 36 36 2f 0a 73 ocalhost:3466/.s
02c0: 65 74 20 75 72 6c 20 68 74 74 70 73 3a 2f 2f 69 et url https://i
02d0: 6e 74 72 61 6e 65 74 2e 6e 6f 76 61 64 69 67 6d ntranet.novadigm
02e0: 2e 63 6f 6d 2f 0a 73 65 74 20 75 72 6c 20 68 74 .com/.set url ht
02f0: 74 70 73 3a 2f 2f 6c 6f 63 61 6c 68 6f 73 74 2f tps://localhost/
0300: 0a 73 65 74 20 75 72 6c 20 68 74 74 70 73 3a 2f .set url https:/
0310: 2f 64 65 76 65 6c 6f 70 65 72 2e 6e 65 74 73 63 /developer.netsc
0320: 61 70 65 2e 63 6f 6d 2f 0a 0a 73 65 74 20 74 6f ape.com/..set to
0330: 6b 20 5b 68 74 74 70 3a 3a 67 65 74 75 72 6c 20 k [http::geturl
0340: 24 75 72 6c 20 2d 68 65 61 64 65 72 73 20 24 68 $url -headers $h
0350: 64 72 73 5d 0a 0a 70 61 72 72 61 79 20 24 74 6f drs]..parray $to
0360: 6b 0a 65 78 69 74 0a k.exit.