Artifact
7f42afdb2760ef45c6251cc21d2c8e6366bbab09:
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 31 39 39 39 20 4d 61 74 74 ) 1997-1999 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 31 2e 31 2e 31 20 32 30 30 30 2f 30 31 1.1.1.1 2000/01
00a0: 2f 31 39 20 32 32 3a 31 30 3a 35 39 20 61 62 6f /19 22:10:59 abo
00b0: 72 72 20 45 78 70 20 24 0a 23 0a 70 61 63 6b 61 rr Exp $.#.packa
00c0: 67 65 20 72 65 71 75 69 72 65 20 62 61 73 65 36 ge require base6
00d0: 34 0a 0a 73 65 74 20 64 69 72 20 5b 66 69 6c 65 4..set dir [file
00e0: 20 64 69 72 6e 61 6d 65 20 5b 69 6e 66 6f 20 73 dirname [info s
00f0: 63 72 69 70 74 5d 5d 0a 63 64 20 24 64 69 72 0a cript]].cd $dir.
0100: 73 6f 75 72 63 65 20 74 6c 73 2e 74 63 6c 0a 70 source tls.tcl.p
0110: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 68 ackage require h
0120: 74 74 70 0a 0a 23 0a 23 20 49 6e 69 74 69 61 6c ttp..#.# Initial
0130: 69 7a 65 20 63 6f 6e 74 65 78 74 0a 23 0a 23 74 ize context.#.#t
0140: 6c 73 3a 3a 69 6e 69 74 20 2d 63 65 72 74 66 69 ls::init -certfi
0150: 6c 65 20 63 6c 69 65 6e 74 2e 70 65 6d 20 2d 63 le client.pem -c
0160: 61 66 69 6c 65 20 73 65 72 76 65 72 2e 70 65 6d afile server.pem
0170: 20 2d 73 73 6c 32 20 31 20 2d 73 73 6c 33 20 31 -ssl2 1 -ssl3 1
0180: 20 2d 74 6c 73 31 20 30 20 3b 23 2d 63 69 70 68 -tls1 0 ;#-ciph
0190: 65 72 20 52 43 34 2d 4d 44 35 0a 74 6c 73 3a 3a er RC4-MD5.tls::
01a0: 69 6e 69 74 20 2d 63 61 66 69 6c 65 20 73 65 72 init -cafile ser
01b0: 76 65 72 2e 70 65 6d 20 0a 23 0a 23 20 52 65 67 ver.pem .#.# Reg
01c0: 69 73 74 65 72 20 77 69 74 68 20 68 74 74 70 20 ister with http
01d0: 6d 6f 64 75 6c 65 0a 23 0a 68 74 74 70 3a 3a 72 module.#.http::r
01e0: 65 67 69 73 74 65 72 20 68 74 74 70 73 20 34 34 egister https 44
01f0: 33 20 5b 6c 69 73 74 20 3a 3a 74 6c 73 3a 3a 73 3 [list ::tls::s
0200: 6f 63 6b 65 74 20 2d 72 65 71 75 69 72 65 20 31 ocket -require 1
0210: 5d 0a 0a 73 65 74 20 75 73 65 72 20 6e 6f 76 61 ]..set user nova
0220: 64 69 67 6d 5c 5c 6d 61 74 74 0a 73 65 74 20 70 digm\\matt.set p
0230: 61 73 73 20 73 65 6e 73 75 73 0a 0a 73 65 74 20 ass sensus..set
0240: 61 75 74 68 20 5b 42 61 73 65 36 34 5f 45 6e 63 auth [Base64_Enc
0250: 6f 64 65 20 22 24 7b 75 73 65 72 7d 3a 24 70 61 ode "${user}:$pa
0260: 73 73 22 5d 0a 73 65 74 20 68 64 72 73 20 5b 6c ss"].set hdrs [l
0270: 69 73 74 20 41 75 74 68 6f 72 69 7a 61 74 69 6f ist Authorizatio
0280: 6e 20 5b 6c 69 73 74 20 42 61 73 69 63 20 24 61 n [list Basic $a
0290: 75 74 68 5d 5d 0a 23 73 65 74 20 68 64 72 73 20 uth]].#set hdrs
02a0: 7b 7d 0a 0a 73 65 74 20 75 72 6c 20 68 74 74 70 {}..set url http
02b0: 3a 2f 2f 6c 6f 63 61 6c 68 6f 73 74 3a 33 34 36 ://localhost:346
02c0: 36 2f 0a 73 65 74 20 75 72 6c 20 68 74 74 70 73 6/.set url https
02d0: 3a 2f 2f 69 6e 74 72 61 6e 65 74 2e 6e 6f 76 61 ://intranet.nova
02e0: 64 69 67 6d 2e 63 6f 6d 2f 0a 73 65 74 20 75 72 digm.com/.set ur
02f0: 6c 20 68 74 74 70 73 3a 2f 2f 6c 6f 63 61 6c 68 l https://localh
0300: 6f 73 74 2f 0a 73 65 74 20 75 72 6c 20 68 74 74 ost/.set url htt
0310: 70 73 3a 2f 2f 64 65 76 65 6c 6f 70 65 72 2e 6e ps://developer.n
0320: 65 74 73 63 61 70 65 2e 63 6f 6d 2f 0a 0a 73 65 etscape.com/..se
0330: 74 20 74 6f 6b 20 5b 68 74 74 70 3a 3a 67 65 74 t tok [http::get
0340: 75 72 6c 20 24 75 72 6c 20 2d 68 65 61 64 65 72 url $url -header
0350: 73 20 24 68 64 72 73 5d 0a 0a 70 61 72 72 61 79 s $hdrs]..parray
0360: 20 24 74 6f 6b 0a 65 78 69 74 0a $tok.exit.