Artifact
a53b6ea2faad86b9236786c8e9708cbc4e72afff:
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 20 0a 23 0a 23 20 server.pem .#.#
0140: 52 65 67 69 73 74 65 72 20 77 69 74 68 20 68 74 Register with ht
0150: 74 70 20 6d 6f 64 75 6c 65 0a 23 0a 68 74 74 70 tp module.#.http
0160: 3a 3a 72 65 67 69 73 74 65 72 20 68 74 74 70 73 ::register https
0170: 20 34 34 33 20 5b 6c 69 73 74 20 3a 3a 74 6c 73 443 [list ::tls
0180: 3a 3a 73 6f 63 6b 65 74 20 2d 72 65 71 75 69 72 ::socket -requir
0190: 65 20 31 5d 0a 0a 73 65 74 20 75 73 65 72 20 6e e 1]..set user n
01a0: 6f 76 61 64 69 67 6d 5c 5c 6d 61 74 74 0a 73 65 ovadigm\\matt.se
01b0: 74 20 70 61 73 73 20 73 65 6e 73 75 73 0a 0a 73 t pass sensus..s
01c0: 65 74 20 61 75 74 68 20 5b 42 61 73 65 36 34 5f et auth [Base64_
01d0: 45 6e 63 6f 64 65 20 22 24 7b 75 73 65 72 7d 3a Encode "${user}:
01e0: 24 70 61 73 73 22 5d 0a 73 65 74 20 68 64 72 73 $pass"].set hdrs
01f0: 20 5b 6c 69 73 74 20 41 75 74 68 6f 72 69 7a 61 [list Authoriza
0200: 74 69 6f 6e 20 5b 6c 69 73 74 20 42 61 73 69 63 tion [list Basic
0210: 20 24 61 75 74 68 5d 5d 0a 23 73 65 74 20 68 64 $auth]].#set hd
0220: 72 73 20 7b 7d 0a 0a 73 65 74 20 75 72 6c 20 68 rs {}..set url h
0230: 74 74 70 3a 2f 2f 6c 6f 63 61 6c 68 6f 73 74 3a ttp://localhost:
0240: 33 34 36 36 2f 0a 73 65 74 20 75 72 6c 20 68 74 3466/.set url ht
0250: 74 70 73 3a 2f 2f 69 6e 74 72 61 6e 65 74 2e 6e tps://intranet.n
0260: 6f 76 61 64 69 67 6d 2e 63 6f 6d 2f 0a 73 65 74 ovadigm.com/.set
0270: 20 75 72 6c 20 68 74 74 70 73 3a 2f 2f 6c 6f 63 url https://loc
0280: 61 6c 68 6f 73 74 2f 0a 73 65 74 20 75 72 6c 20 alhost/.set url
0290: 68 74 74 70 73 3a 2f 2f 64 65 76 65 6c 6f 70 65 https://develope
02a0: 72 2e 6e 65 74 73 63 61 70 65 2e 63 6f 6d 2f 0a r.netscape.com/.
02b0: 0a 73 65 74 20 74 6f 6b 20 5b 68 74 74 70 3a 3a .set tok [http::
02c0: 67 65 74 75 72 6c 20 24 75 72 6c 20 2d 68 65 61 geturl $url -hea
02d0: 64 65 72 73 20 24 68 64 72 73 5d 0a 0a 70 61 72 ders $hdrs]..par
02e0: 72 61 79 20 24 74 6f 6b 0a 65 78 69 74 0a ray $tok.exit.