Artifact
9ac8651bfa7f3db3110919d011e12993a2b04f4a4e767f2c785fcf6b479e67f2:
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 70 61 vadigm.com>.#.pa
0040: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 62 61 ckage require ba
0050: 73 65 36 34 0a 0a 73 65 74 20 64 69 72 20 5b 66 se64..set dir [f
0060: 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 6e 66 ile dirname [inf
0070: 6f 20 73 63 72 69 70 74 5d 5d 0a 63 64 20 24 64 o script]].cd $d
0080: 69 72 0a 73 6f 75 72 63 65 20 74 6c 73 2e 74 63 ir.source tls.tc
0090: 6c 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 l.package requir
00a0: 65 20 68 74 74 70 0a 0a 23 0a 23 20 49 6e 69 74 e http..#.# Init
00b0: 69 61 6c 69 7a 65 20 63 6f 6e 74 65 78 74 0a 23 ialize context.#
00c0: 0a 23 74 6c 73 3a 3a 69 6e 69 74 20 2d 63 65 72 .#tls::init -cer
00d0: 74 66 69 6c 65 20 63 6c 69 65 6e 74 2e 70 65 6d tfile client.pem
00e0: 20 2d 63 61 66 69 6c 65 20 73 65 72 76 65 72 2e -cafile server.
00f0: 70 65 6d 20 2d 73 73 6c 32 20 31 20 2d 73 73 6c pem -ssl2 1 -ssl
0100: 33 20 31 20 2d 74 6c 73 31 20 30 20 3b 23 2d 63 3 1 -tls1 0 ;#-c
0110: 69 70 68 65 72 20 52 43 34 2d 4d 44 35 0a 74 6c ipher RC4-MD5.tl
0120: 73 3a 3a 69 6e 69 74 20 2d 63 61 66 69 6c 65 20 s::init -cafile
0130: 73 65 72 76 65 72 2e 70 65 6d 0a 23 0a 23 20 52 server.pem.#.# R
0140: 65 67 69 73 74 65 72 20 77 69 74 68 20 68 74 74 egister with htt
0150: 70 20 6d 6f 64 75 6c 65 0a 23 0a 68 74 74 70 3a p module.#.http:
0160: 3a 72 65 67 69 73 74 65 72 20 68 74 74 70 73 20 :register https
0170: 34 34 33 20 5b 6c 69 73 74 20 3a 3a 74 6c 73 3a 443 [list ::tls:
0180: 3a 73 6f 63 6b 65 74 20 2d 72 65 71 75 69 72 65 :socket -require
0190: 20 31 5d 0a 0a 73 65 74 20 75 73 65 72 20 6e 6f 1]..set user no
01a0: 76 61 64 69 67 6d 5c 5c 6d 61 74 74 0a 73 65 74 vadigm\\matt.set
01b0: 20 70 61 73 73 20 73 65 6e 73 75 73 0a 0a 73 65 pass sensus..se
01c0: 74 20 61 75 74 68 20 5b 42 61 73 65 36 34 5f 45 t auth [Base64_E
01d0: 6e 63 6f 64 65 20 22 24 7b 75 73 65 72 7d 3a 24 ncode "${user}:$
01e0: 70 61 73 73 22 5d 0a 73 65 74 20 68 64 72 73 20 pass"].set hdrs
01f0: 5b 6c 69 73 74 20 41 75 74 68 6f 72 69 7a 61 74 [list Authorizat
0200: 69 6f 6e 20 5b 6c 69 73 74 20 42 61 73 69 63 20 ion [list Basic
0210: 24 61 75 74 68 5d 5d 0a 23 73 65 74 20 68 64 72 $auth]].#set hdr
0220: 73 20 7b 7d 0a 0a 73 65 74 20 75 72 6c 20 68 74 s {}..set url ht
0230: 74 70 3a 2f 2f 6c 6f 63 61 6c 68 6f 73 74 3a 33 tp://localhost:3
0240: 34 36 36 2f 0a 73 65 74 20 75 72 6c 20 68 74 74 466/.set url htt
0250: 70 73 3a 2f 2f 69 6e 74 72 61 6e 65 74 2e 6e 6f ps://intranet.no
0260: 76 61 64 69 67 6d 2e 63 6f 6d 2f 0a 73 65 74 20 vadigm.com/.set
0270: 75 72 6c 20 68 74 74 70 73 3a 2f 2f 6c 6f 63 61 url https://loca
0280: 6c 68 6f 73 74 2f 0a 73 65 74 20 75 72 6c 20 68 lhost/.set url h
0290: 74 74 70 73 3a 2f 2f 64 65 76 65 6c 6f 70 65 72 ttps://developer
02a0: 2e 6e 65 74 73 63 61 70 65 2e 63 6f 6d 2f 0a 0a .netscape.com/..
02b0: 73 65 74 20 74 6f 6b 20 5b 68 74 74 70 3a 3a 67 set tok [http::g
02c0: 65 74 75 72 6c 20 24 75 72 6c 20 2d 68 65 61 64 eturl $url -head
02d0: 65 72 73 20 24 68 64 72 73 5d 0a 0a 70 61 72 72 ers $hdrs]..parr
02e0: 61 79 20 24 74 6f 6b 0a 65 78 69 74 0a ay $tok.exit.