0000: 2f 2a 0a 2a 2a 20 43 6f 70 79 72 69 67 68 74 20 /*.** Copyright
0010: 28 63 29 20 32 30 30 37 20 44 2e 20 52 69 63 68 (c) 2007 D. Rich
0020: 61 72 64 20 48 69 70 70 0a 2a 2a 0a 2a 2a 20 54 ard Hipp.**.** T
0030: 68 69 73 20 70 72 6f 67 72 61 6d 20 69 73 20 66 his program is f
0040: 72 65 65 20 73 6f 66 74 77 61 72 65 3b 20 79 6f ree software; yo
0050: 75 20 63 61 6e 20 72 65 64 69 73 74 72 69 62 75 u can redistribu
0060: 74 65 20 69 74 20 61 6e 64 2f 6f 72 0a 2a 2a 20 te it and/or.**
0070: 6d 6f 64 69 66 79 20 69 74 20 75 6e 64 65 72 20 modify it under
0080: 74 68 65 20 74 65 72 6d 73 20 6f 66 20 74 68 65 the terms of the
0090: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 GNU General Pub
00a0: 6c 69 63 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 76 lic.** License v
00b0: 65 72 73 69 6f 6e 20 32 20 61 73 20 70 75 62 6c ersion 2 as publ
00c0: 69 73 68 65 64 20 62 79 20 74 68 65 20 46 72 65 ished by the Fre
00d0: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
00e0: 61 74 69 6f 6e 2e 0a 2a 2a 0a 2a 2a 20 54 68 69 ation..**.** Thi
00f0: 73 20 70 72 6f 67 72 61 6d 20 69 73 20 64 69 73 s program is dis
0100: 74 72 69 62 75 74 65 64 20 69 6e 20 74 68 65 20 tributed in the
0110: 68 6f 70 65 20 74 68 61 74 20 69 74 20 77 69 6c hope that it wil
0120: 6c 20 62 65 20 75 73 65 66 75 6c 2c 0a 2a 2a 20 l be useful,.**
0130: 62 75 74 20 57 49 54 48 4f 55 54 20 41 4e 59 20 but WITHOUT ANY
0140: 57 41 52 52 41 4e 54 59 3b 20 77 69 74 68 6f 75 WARRANTY; withou
0150: 74 20 65 76 65 6e 20 74 68 65 20 69 6d 70 6c 69 t even the impli
0160: 65 64 20 77 61 72 72 61 6e 74 79 20 6f 66 0a 2a ed warranty of.*
0170: 2a 20 4d 45 52 43 48 41 4e 54 41 42 49 4c 49 54 * MERCHANTABILIT
0180: 59 20 6f 72 20 46 49 54 4e 45 53 53 20 46 4f 52 Y or FITNESS FOR
0190: 20 41 20 50 41 52 54 49 43 55 4c 41 52 20 50 55 A PARTICULAR PU
01a0: 52 50 4f 53 45 2e 20 20 53 65 65 20 74 68 65 20 RPOSE. See the
01b0: 47 4e 55 0a 2a 2a 20 47 65 6e 65 72 61 6c 20 50 GNU.** General P
01c0: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f ublic License fo
01d0: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a r more details..
01e0: 2a 2a 20 0a 2a 2a 20 59 6f 75 20 73 68 6f 75 6c ** .** You shoul
01f0: 64 20 68 61 76 65 20 72 65 63 65 69 76 65 64 20 d have received
0200: 61 20 63 6f 70 79 20 6f 66 20 74 68 65 20 47 4e a copy of the GN
0210: 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c 69 63 U General Public
0220: 0a 2a 2a 20 4c 69 63 65 6e 73 65 20 61 6c 6f 6e .** License alon
0230: 67 20 77 69 74 68 20 74 68 69 73 20 6c 69 62 72 g with this libr
0240: 61 72 79 3b 20 69 66 20 6e 6f 74 2c 20 77 72 69 ary; if not, wri
0250: 74 65 20 74 6f 20 74 68 65 0a 2a 2a 20 46 72 65 te to the.** Fre
0260: 65 20 53 6f 66 74 77 61 72 65 20 46 6f 75 6e 64 e Software Found
0270: 61 74 69 6f 6e 2c 20 49 6e 63 2e 2c 20 35 39 20 ation, Inc., 59
0280: 54 65 6d 70 6c 65 20 50 6c 61 63 65 20 2d 20 53 Temple Place - S
0290: 75 69 74 65 20 33 33 30 2c 0a 2a 2a 20 42 6f 73 uite 330,.** Bos
02a0: 74 6f 6e 2c 20 4d 41 20 20 30 32 31 31 31 2d 31 ton, MA 02111-1
02b0: 33 30 37 2c 20 55 53 41 2e 0a 2a 2a 0a 2a 2a 20 307, USA..**.**
02c0: 41 75 74 68 6f 72 20 63 6f 6e 74 61 63 74 20 69 Author contact i
02d0: 6e 66 6f 72 6d 61 74 69 6f 6e 3a 0a 2a 2a 20 20 nformation:.**
02e0: 20 64 72 68 40 68 77 61 63 69 2e 63 6f 6d 0a 2a drh@hwaci.com.*
02f0: 2a 20 20 20 68 74 74 70 3a 2f 2f 77 77 77 2e 68 * http://www.h
0300: 77 61 63 69 2e 63 6f 6d 2f 64 72 68 2f 0a 2a 2a waci.com/drh/.**
0310: 0a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a .***************
0320: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0330: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0340: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0350: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ****************
0360: 0a 2a 2a 0a 2a 2a 20 54 68 69 73 20 66 69 6c 65 .**.** This file
0370: 20 63 6f 6e 74 61 69 6e 73 20 63 6f 64 65 20 66 contains code f
0380: 6f 72 20 70 61 72 73 69 6e 67 20 55 52 4c 73 20 or parsing URLs
0390: 74 68 61 74 20 61 70 70 65 61 72 20 6f 6e 20 74 that appear on t
03a0: 68 65 20 63 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 0a he command-line.
03b0: 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 63 6f 6e */.#include "con
03c0: 66 69 67 2e 68 22 0a 23 69 6e 63 6c 75 64 65 20 fig.h".#include
03d0: 22 75 72 6c 2e 68 22 0a 0a 2f 2a 0a 2a 2a 20 50 "url.h"../*.** P
03e0: 61 72 73 65 20 74 68 65 20 67 69 76 65 6e 20 55 arse the given U
03f0: 52 4c 2e 20 20 50 6f 70 75 6c 61 74 65 20 76 61 RL. Populate va
0400: 72 69 61 62 6c 65 73 20 69 6e 20 74 68 65 20 67 riables in the g
0410: 6c 6f 62 61 6c 20 22 67 22 20 73 74 72 75 63 74 lobal "g" struct
0420: 75 72 65 2e 0a 2a 2a 0a 2a 2a 20 20 20 20 20 20 ure..**.**
0430: 67 2e 75 72 6c 49 73 46 69 6c 65 20 20 20 20 20 g.urlIsFile
0440: 20 54 72 75 65 20 69 66 20 46 49 4c 45 3a 0a 2a True if FILE:.*
0450: 2a 20 20 20 20 20 20 67 2e 75 72 6c 49 73 48 74 * g.urlIsHt
0460: 74 70 73 20 20 20 20 20 54 72 75 65 20 69 66 20 tps True if
0470: 48 54 54 50 53 3a 20 0a 2a 2a 20 20 20 20 20 20 HTTPS: .**
0480: 67 2e 75 72 6c 50 72 6f 74 6f 63 6f 6c 20 20 20 g.urlProtocol
0490: 20 22 68 74 74 70 22 20 6f 72 20 22 68 74 74 70 "http" or "http
04a0: 73 22 20 6f 72 20 22 66 69 6c 65 22 0a 2a 2a 20 s" or "file".**
04b0: 20 20 20 20 20 67 2e 75 72 6c 4e 61 6d 65 20 20 g.urlName
04c0: 20 20 20 20 20 20 48 6f 73 74 6e 61 6d 65 20 66 Hostname f
04d0: 6f 72 20 48 54 54 50 3a 20 6f 72 20 48 54 54 50 or HTTP: or HTTP
04e0: 53 3a 2e 20 20 46 69 6c 65 6e 61 6d 65 20 66 6f S:. Filename fo
04f0: 72 20 46 49 4c 45 3a 0a 2a 2a 20 20 20 20 20 20 r FILE:.**
0500: 67 2e 75 72 6c 50 6f 72 74 20 20 20 20 20 20 20 g.urlPort
0510: 20 54 43 50 20 70 6f 72 74 20 6e 75 6d 62 65 72 TCP port number
0520: 20 66 6f 72 20 48 54 54 50 20 6f 72 20 48 54 54 for HTTP or HTT
0530: 50 53 2e 0a 2a 2a 20 20 20 20 20 20 67 2e 75 72 PS..** g.ur
0540: 6c 44 66 6c 74 50 6f 72 74 20 20 20 20 44 65 66 lDfltPort Def
0550: 61 75 6c 74 20 54 43 50 20 70 6f 72 74 20 6e 75 ault TCP port nu
0560: 6d 62 65 72 20 28 38 30 20 6f 72 20 34 34 33 29 mber (80 or 443)
0570: 2e 0a 2a 2a 20 20 20 20 20 20 67 2e 75 72 6c 50 ..** g.urlP
0580: 61 74 68 20 20 20 20 20 20 20 20 50 61 74 68 20 ath Path
0590: 6e 61 6d 65 20 66 6f 72 20 48 54 54 50 20 6f 72 name for HTTP or
05a0: 20 48 54 54 50 53 2e 0a 2a 2a 20 20 20 20 20 20 HTTPS..**
05b0: 67 2e 75 72 6c 55 73 65 72 20 20 20 20 20 20 20 g.urlUser
05c0: 20 55 73 65 72 69 64 2e 0a 2a 2a 20 20 20 20 20 Userid..**
05d0: 20 67 2e 75 72 6c 50 61 73 73 77 64 20 20 20 20 g.urlPasswd
05e0: 20 20 50 61 73 73 77 6f 72 64 2e 0a 2a 2a 20 20 Password..**
05f0: 20 20 20 20 67 2e 75 72 6c 48 6f 73 74 6e 61 6d g.urlHostnam
0600: 65 20 20 20 20 48 4f 53 54 3a 50 4f 52 54 20 6f e HOST:PORT o
0610: 72 20 6a 75 73 74 20 48 4f 53 54 20 69 66 20 70 r just HOST if p
0620: 6f 72 74 20 69 73 20 74 68 65 20 64 65 66 61 75 ort is the defau
0630: 6c 74 2e 0a 2a 2a 20 20 20 20 20 20 67 2e 75 72 lt..** g.ur
0640: 6c 43 61 6e 6f 6e 69 63 61 6c 20 20 20 54 68 65 lCanonical The
0650: 20 55 52 4c 20 69 6e 20 63 61 6e 6f 6e 69 63 61 URL in canonica
0660: 6c 20 66 6f 72 6d 2c 20 6f 6d 69 74 74 69 6e 67 l form, omitting
0670: 20 75 73 65 72 69 64 2f 70 61 73 73 77 6f 72 64 userid/password
0680: 0a 2a 2a 0a 2a 2a 20 48 54 54 50 20 75 72 6c 20 .**.** HTTP url
0690: 66 6f 72 6d 61 74 20 69 73 3a 0a 2a 2a 0a 2a 2a format is:.**.**
06a0: 20 20 20 20 20 68 74 74 70 3a 2f 2f 75 73 65 72 http://user
06b0: 69 64 3a 70 61 73 73 77 6f 72 64 40 68 6f 73 74 id:password@host
06c0: 3a 70 6f 72 74 2f 70 61 74 68 3f 71 75 65 72 79 :port/path?query
06d0: 23 66 72 61 67 6d 65 6e 74 0a 2a 2a 0a 2a 2f 0a #fragment.**.*/.
06e0: 76 6f 69 64 20 75 72 6c 5f 70 61 72 73 65 28 63 void url_parse(c
06f0: 6f 6e 73 74 20 63 68 61 72 20 2a 7a 55 72 6c 29 onst char *zUrl)
0700: 7b 0a 20 20 69 6e 74 20 69 2c 20 6a 2c 20 63 3b {. int i, j, c;
0710: 0a 20 20 63 68 61 72 20 2a 7a 46 69 6c 65 20 3d . char *zFile =
0720: 20 30 3b 0a 20 20 69 66 28 20 73 74 72 6e 63 6d 0;. if( strncm
0730: 70 28 7a 55 72 6c 2c 20 22 68 74 74 70 3a 2f 2f p(zUrl, "http://
0740: 22 2c 20 37 29 3d 3d 30 20 7c 7c 20 73 74 72 6e ", 7)==0 || strn
0750: 63 6d 70 28 7a 55 72 6c 2c 20 22 68 74 74 70 73 cmp(zUrl, "https
0760: 3a 2f 2f 22 2c 20 38 29 3d 3d 30 20 29 7b 0a 20 ://", 8)==0 ){.
0770: 20 20 20 69 6e 74 20 69 53 74 61 72 74 3b 0a 20 int iStart;.
0780: 20 20 20 67 2e 75 72 6c 49 73 46 69 6c 65 20 3d g.urlIsFile =
0790: 20 30 3b 0a 20 20 20 20 69 66 28 20 7a 55 72 6c 0;. if( zUrl
07a0: 5b 34 5d 3d 3d 27 73 27 20 29 7b 0a 20 20 20 20 [4]=='s' ){.
07b0: 20 20 67 2e 75 72 6c 49 73 48 74 74 70 73 20 3d g.urlIsHttps =
07c0: 20 31 3b 0a 20 20 20 20 20 20 67 2e 75 72 6c 50 1;. g.urlP
07d0: 72 6f 74 6f 63 6f 6c 20 3d 20 22 68 74 74 70 73 rotocol = "https
07e0: 22 3b 0a 20 20 20 20 20 20 67 2e 75 72 6c 44 66 ";. g.urlDf
07f0: 6c 74 50 6f 72 74 20 3d 20 34 34 33 3b 0a 20 20 ltPort = 443;.
0800: 20 20 20 20 69 53 74 61 72 74 20 3d 20 38 3b 0a iStart = 8;.
0810: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
0820: 20 67 2e 75 72 6c 49 73 48 74 74 70 73 20 3d 20 g.urlIsHttps =
0830: 30 3b 0a 20 20 20 20 20 20 67 2e 75 72 6c 50 72 0;. g.urlPr
0840: 6f 74 6f 63 6f 6c 20 3d 20 22 68 74 74 70 22 3b otocol = "http";
0850: 0a 20 20 20 20 20 20 67 2e 75 72 6c 44 66 6c 74 . g.urlDflt
0860: 50 6f 72 74 20 3d 20 38 30 3b 0a 20 20 20 20 20 Port = 80;.
0870: 20 69 53 74 61 72 74 20 3d 20 37 3b 0a 20 20 20 iStart = 7;.
0880: 20 7d 0a 20 20 20 20 66 6f 72 28 69 3d 69 53 74 }. for(i=iSt
0890: 61 72 74 3b 20 28 63 3d 7a 55 72 6c 5b 69 5d 29 art; (c=zUrl[i])
08a0: 21 3d 30 20 26 26 20 63 21 3d 27 2f 27 20 26 26 !=0 && c!='/' &&
08b0: 20 63 21 3d 27 40 27 3b 20 69 2b 2b 29 7b 7d 0a c!='@'; i++){}.
08c0: 20 20 20 20 69 66 28 20 63 3d 3d 27 40 27 20 29 if( c=='@' )
08d0: 7b 0a 20 20 20 20 20 20 66 6f 72 28 6a 3d 69 53 {. for(j=iS
08e0: 74 61 72 74 3b 20 6a 3c 69 20 26 26 20 7a 55 72 tart; j<i && zUr
08f0: 6c 5b 6a 5d 21 3d 27 3a 27 3b 20 6a 2b 2b 29 7b l[j]!=':'; j++){
0900: 7d 0a 20 20 20 20 20 20 67 2e 75 72 6c 55 73 65 }. g.urlUse
0910: 72 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 2e 2a r = mprintf("%.*
0920: 73 22 2c 20 6a 2d 69 53 74 61 72 74 2c 20 26 7a s", j-iStart, &z
0930: 55 72 6c 5b 69 53 74 61 72 74 5d 29 3b 0a 20 20 Url[iStart]);.
0940: 20 20 20 20 69 66 28 20 6a 3c 69 20 29 7b 0a 20 if( j<i ){.
0950: 20 20 20 20 20 20 20 67 2e 75 72 6c 50 61 73 73 g.urlPass
0960: 77 64 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 2e wd = mprintf("%.
0970: 2a 73 22 2c 20 69 2d 6a 2d 31 2c 20 26 7a 55 72 *s", i-j-1, &zUr
0980: 6c 5b 6a 2b 31 5d 29 3b 0a 20 20 20 20 20 20 7d l[j+1]);. }
0990: 0a 20 20 20 20 20 20 66 6f 72 28 6a 3d 69 2b 31 . for(j=i+1
09a0: 3b 20 28 63 3d 7a 55 72 6c 5b 6a 5d 29 21 3d 30 ; (c=zUrl[j])!=0
09b0: 20 26 26 20 63 21 3d 27 2f 27 20 26 26 20 63 21 && c!='/' && c!
09c0: 3d 27 3a 27 3b 20 6a 2b 2b 29 7b 7d 0a 20 20 20 =':'; j++){}.
09d0: 20 20 20 67 2e 75 72 6c 4e 61 6d 65 20 3d 20 6d g.urlName = m
09e0: 70 72 69 6e 74 66 28 22 25 2e 2a 73 22 2c 20 6a printf("%.*s", j
09f0: 2d 69 2d 31 2c 20 26 7a 55 72 6c 5b 69 2b 31 5d -i-1, &zUrl[i+1]
0a00: 29 3b 0a 20 20 20 20 20 20 69 20 3d 20 6a 3b 0a );. i = j;.
0a10: 20 20 20 20 7d 65 6c 73 65 7b 0a 20 20 20 20 20 }else{.
0a20: 20 66 6f 72 28 69 3d 69 53 74 61 72 74 3b 20 28 for(i=iStart; (
0a30: 63 3d 7a 55 72 6c 5b 69 5d 29 21 3d 30 20 26 26 c=zUrl[i])!=0 &&
0a40: 20 63 21 3d 27 2f 27 20 26 26 20 63 21 3d 27 3a c!='/' && c!=':
0a50: 27 3b 20 69 2b 2b 29 7b 7d 0a 20 20 20 20 20 20 '; i++){}.
0a60: 67 2e 75 72 6c 4e 61 6d 65 20 3d 20 6d 70 72 69 g.urlName = mpri
0a70: 6e 74 66 28 22 25 2e 2a 73 22 2c 20 69 2d 69 53 ntf("%.*s", i-iS
0a80: 74 61 72 74 2c 20 26 7a 55 72 6c 5b 69 53 74 61 tart, &zUrl[iSta
0a90: 72 74 5d 29 3b 0a 20 20 20 20 7d 0a 20 20 20 20 rt]);. }.
0aa0: 66 6f 72 28 6a 3d 30 3b 20 67 2e 75 72 6c 4e 61 for(j=0; g.urlNa
0ab0: 6d 65 5b 6a 5d 3b 20 6a 2b 2b 29 7b 20 67 2e 75 me[j]; j++){ g.u
0ac0: 72 6c 4e 61 6d 65 5b 6a 5d 20 3d 20 74 6f 6c 6f rlName[j] = tolo
0ad0: 77 65 72 28 67 2e 75 72 6c 4e 61 6d 65 5b 6a 5d wer(g.urlName[j]
0ae0: 29 3b 20 7d 0a 20 20 20 20 69 66 28 20 63 3d 3d ); }. if( c==
0af0: 27 3a 27 20 29 7b 0a 20 20 20 20 20 20 67 2e 75 ':' ){. g.u
0b00: 72 6c 50 6f 72 74 20 3d 20 30 3b 0a 20 20 20 20 rlPort = 0;.
0b10: 20 20 69 2b 2b 3b 0a 20 20 20 20 20 20 77 68 69 i++;. whi
0b20: 6c 65 28 20 28 63 20 3d 20 7a 55 72 6c 5b 69 5d le( (c = zUrl[i]
0b30: 29 21 3d 30 20 26 26 20 69 73 64 69 67 69 74 28 )!=0 && isdigit(
0b40: 63 29 20 29 7b 0a 20 20 20 20 20 20 20 20 67 2e c) ){. g.
0b50: 75 72 6c 50 6f 72 74 20 3d 20 67 2e 75 72 6c 50 urlPort = g.urlP
0b60: 6f 72 74 2a 31 30 20 2b 20 63 20 2d 20 27 30 27 ort*10 + c - '0'
0b70: 3b 0a 20 20 20 20 20 20 20 20 69 2b 2b 3b 0a 20 ;. i++;.
0b80: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 67 2e 75 }. g.u
0b90: 72 6c 48 6f 73 74 6e 61 6d 65 20 3d 20 6d 70 72 rlHostname = mpr
0ba0: 69 6e 74 66 28 22 25 73 3a 25 64 22 2c 20 67 2e intf("%s:%d", g.
0bb0: 75 72 6c 4e 61 6d 65 2c 20 67 2e 75 72 6c 50 6f urlName, g.urlPo
0bc0: 72 74 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a rt);. }else{.
0bd0: 20 20 20 20 20 20 67 2e 75 72 6c 50 6f 72 74 20 g.urlPort
0be0: 3d 20 67 2e 75 72 6c 44 66 6c 74 50 6f 72 74 3b = g.urlDfltPort;
0bf0: 0a 20 20 20 20 20 20 67 2e 75 72 6c 48 6f 73 74 . g.urlHost
0c00: 6e 61 6d 65 20 3d 20 67 2e 75 72 6c 4e 61 6d 65 name = g.urlName
0c10: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 67 2e 75 72 ;. }. g.ur
0c20: 6c 50 61 74 68 20 3d 20 6d 70 72 69 6e 74 66 28 lPath = mprintf(
0c30: 26 7a 55 72 6c 5b 69 5d 29 3b 0a 20 20 20 20 64 &zUrl[i]);. d
0c40: 65 68 74 74 70 69 7a 65 28 67 2e 75 72 6c 4e 61 ehttpize(g.urlNa
0c50: 6d 65 29 3b 0a 20 20 20 20 64 65 68 74 74 70 69 me);. dehttpi
0c60: 7a 65 28 67 2e 75 72 6c 50 61 74 68 29 3b 0a 20 ze(g.urlPath);.
0c70: 20 20 20 69 66 28 20 67 2e 75 72 6c 44 66 6c 74 if( g.urlDflt
0c80: 50 6f 72 74 3d 3d 67 2e 75 72 6c 50 6f 72 74 20 Port==g.urlPort
0c90: 29 7b 0a 20 20 20 20 20 20 67 2e 75 72 6c 43 61 ){. g.urlCa
0ca0: 6e 6f 6e 69 63 61 6c 20 3d 20 6d 70 72 69 6e 74 nonical = mprint
0cb0: 66 28 22 25 73 3a 2f 2f 25 54 25 54 22 2c 0a 20 f("%s://%T%T",.
0cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 2e g.
0ce0: 75 72 6c 50 72 6f 74 6f 63 6f 6c 2c 20 67 2e 75 urlProtocol, g.u
0cf0: 72 6c 4e 61 6d 65 2c 20 67 2e 75 72 6c 50 61 74 rlName, g.urlPat
0d00: 68 29 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 h);. }else{.
0d10: 20 20 20 20 20 67 2e 75 72 6c 43 61 6e 6f 6e 69 g.urlCanoni
0d20: 63 61 6c 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 cal = mprintf("%
0d30: 73 3a 2f 2f 25 54 3a 25 64 25 54 22 2c 0a 20 20 s://%T:%d%T",.
0d40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 67 2e 75 g.u
0d60: 72 6c 50 72 6f 74 6f 63 6f 6c 2c 20 67 2e 75 72 rlProtocol, g.ur
0d70: 6c 4e 61 6d 65 2c 20 67 2e 75 72 6c 50 6f 72 74 lName, g.urlPort
0d80: 2c 20 67 2e 75 72 6c 50 61 74 68 29 3b 0a 20 20 , g.urlPath);.
0d90: 20 20 7d 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 }. }else if(
0da0: 73 74 72 6e 63 6d 70 28 7a 55 72 6c 2c 20 22 66 strncmp(zUrl, "f
0db0: 69 6c 65 3a 22 2c 20 35 29 3d 3d 30 20 29 7b 0a ile:", 5)==0 ){.
0dc0: 20 20 20 20 67 2e 75 72 6c 49 73 46 69 6c 65 20 g.urlIsFile
0dd0: 3d 20 31 3b 0a 20 20 20 20 69 66 28 20 7a 55 72 = 1;. if( zUr
0de0: 6c 5b 35 5d 3d 3d 27 2f 27 20 26 26 20 7a 55 72 l[5]=='/' && zUr
0df0: 6c 5b 36 5d 3d 3d 27 2f 27 20 29 7b 0a 20 20 20 l[6]=='/' ){.
0e00: 20 20 20 69 20 3d 20 37 3b 0a 20 20 20 20 7d 65 i = 7;. }e
0e10: 6c 73 65 7b 0a 20 20 20 20 20 20 69 20 3d 20 35 lse{. i = 5
0e20: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 7a 46 69 6c ;. }. zFil
0e30: 65 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 22 e = mprintf("%s"
0e40: 2c 20 26 7a 55 72 6c 5b 69 5d 29 3b 0a 20 20 7d , &zUrl[i]);. }
0e50: 65 6c 73 65 20 69 66 28 20 66 69 6c 65 5f 69 73 else if( file_is
0e60: 66 69 6c 65 28 7a 55 72 6c 29 20 29 7b 0a 20 20 file(zUrl) ){.
0e70: 20 20 67 2e 75 72 6c 49 73 46 69 6c 65 20 3d 20 g.urlIsFile =
0e80: 31 3b 0a 20 20 20 20 7a 46 69 6c 65 20 3d 20 6d 1;. zFile = m
0e90: 70 72 69 6e 74 66 28 22 25 73 22 2c 20 7a 55 72 printf("%s", zUr
0ea0: 6c 29 3b 0a 20 20 7d 65 6c 73 65 20 69 66 28 20 l);. }else if(
0eb0: 66 69 6c 65 5f 69 73 64 69 72 28 7a 55 72 6c 29 file_isdir(zUrl)
0ec0: 3d 3d 31 20 29 7b 0a 20 20 20 20 7a 46 69 6c 65 ==1 ){. zFile
0ed0: 20 3d 20 6d 70 72 69 6e 74 66 28 22 25 73 2f 46 = mprintf("%s/F
0ee0: 4f 53 53 49 4c 22 2c 20 7a 55 72 6c 29 3b 0a 20 OSSIL", zUrl);.
0ef0: 20 20 20 69 66 28 20 66 69 6c 65 5f 69 73 66 69 if( file_isfi
0f00: 6c 65 28 7a 46 69 6c 65 29 20 29 7b 0a 20 20 20 le(zFile) ){.
0f10: 20 20 20 67 2e 75 72 6c 49 73 46 69 6c 65 20 3d g.urlIsFile =
0f20: 20 31 3b 0a 20 20 20 20 7d 65 6c 73 65 7b 0a 20 1;. }else{.
0f30: 20 20 20 20 20 66 72 65 65 28 7a 46 69 6c 65 29 free(zFile)
0f40: 3b 0a 20 20 20 20 20 20 66 6f 73 73 69 6c 5f 70 ;. fossil_p
0f50: 61 6e 69 63 28 22 75 6e 6b 6e 6f 77 6e 20 72 65 anic("unknown re
0f60: 70 6f 73 69 74 6f 72 79 3a 20 25 73 22 2c 20 7a pository: %s", z
0f70: 55 72 6c 29 3b 0a 20 20 20 20 7d 0a 20 20 7d 65 Url);. }. }e
0f80: 6c 73 65 7b 0a 20 20 20 20 66 6f 73 73 69 6c 5f lse{. fossil_
0f90: 70 61 6e 69 63 28 22 75 6e 6b 6e 6f 77 6e 20 72 panic("unknown r
0fa0: 65 70 6f 73 69 74 6f 72 79 3a 20 25 73 22 2c 20 epository: %s",
0fb0: 7a 55 72 6c 29 3b 0a 20 20 7d 0a 20 20 69 66 28 zUrl);. }. if(
0fc0: 20 67 2e 75 72 6c 49 73 46 69 6c 65 20 29 7b 0a g.urlIsFile ){.
0fd0: 20 20 20 20 42 6c 6f 62 20 63 66 69 6c 65 3b 0a Blob cfile;.
0fe0: 20 20 20 20 64 65 68 74 74 70 69 7a 65 28 7a 46 dehttpize(zF
0ff0: 69 6c 65 29 3b 20 20 0a 20 20 20 20 66 69 6c 65 ile); . file
1000: 5f 63 61 6e 6f 6e 69 63 61 6c 5f 6e 61 6d 65 28 _canonical_name(
1010: 7a 46 69 6c 65 2c 20 26 63 66 69 6c 65 29 3b 0a zFile, &cfile);.
1020: 20 20 20 20 66 72 65 65 28 7a 46 69 6c 65 29 3b free(zFile);
1030: 0a 20 20 20 20 67 2e 75 72 6c 50 72 6f 74 6f 63 . g.urlProtoc
1040: 6f 6c 20 3d 20 22 66 69 6c 65 22 3b 0a 20 20 20 ol = "file";.
1050: 20 67 2e 75 72 6c 50 61 74 68 20 3d 20 22 22 3b g.urlPath = "";
1060: 0a 20 20 20 20 67 2e 75 72 6c 4e 61 6d 65 20 3d . g.urlName =
1070: 20 6d 70 72 69 6e 74 66 28 22 25 62 22 2c 20 26 mprintf("%b", &
1080: 63 66 69 6c 65 29 3b 0a 20 20 20 20 67 2e 75 72 cfile);. g.ur
1090: 6c 43 61 6e 6f 6e 69 63 61 6c 20 3d 20 6d 70 72 lCanonical = mpr
10a0: 69 6e 74 66 28 22 66 69 6c 65 3a 2f 2f 25 54 22 intf("file://%T"
10b0: 2c 20 67 2e 75 72 6c 4e 61 6d 65 29 3b 0a 20 20 , g.urlName);.
10c0: 20 20 62 6c 6f 62 5f 72 65 73 65 74 28 26 63 66 blob_reset(&cf
10d0: 69 6c 65 29 3b 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a ile);. }.}../*.
10e0: 2a 2a 20 43 4f 4d 4d 41 4e 44 3a 20 74 65 73 74 ** COMMAND: test
10f0: 2d 75 72 6c 70 61 72 73 65 72 0a 2a 2f 0a 76 6f -urlparser.*/.vo
1100: 69 64 20 63 6d 64 5f 74 65 73 74 5f 75 72 6c 70 id cmd_test_urlp
1110: 61 72 73 65 72 28 76 6f 69 64 29 7b 0a 20 20 69 arser(void){. i
1120: 6e 74 20 69 3b 0a 20 20 75 72 6c 5f 70 72 6f 78 nt i;. url_prox
1130: 79 5f 6f 70 74 69 6f 6e 73 28 29 3b 0a 20 20 69 y_options();. i
1140: 66 28 20 67 2e 61 72 67 63 21 3d 33 20 26 26 20 f( g.argc!=3 &&
1150: 67 2e 61 72 67 63 21 3d 34 20 29 7b 0a 20 20 20 g.argc!=4 ){.
1160: 20 75 73 61 67 65 28 22 55 52 4c 22 29 3b 0a 20 usage("URL");.
1170: 20 7d 0a 20 20 75 72 6c 5f 70 61 72 73 65 28 67 }. url_parse(g
1180: 2e 61 72 67 76 5b 32 5d 29 3b 0a 20 20 66 6f 72 .argv[2]);. for
1190: 28 69 3d 30 3b 20 69 3c 32 3b 20 69 2b 2b 29 7b (i=0; i<2; i++){
11a0: 0a 20 20 20 20 70 72 69 6e 74 66 28 22 67 2e 75 . printf("g.u
11b0: 72 6c 49 73 46 69 6c 65 20 20 20 20 3d 20 25 64 rlIsFile = %d
11c0: 5c 6e 22 2c 20 67 2e 75 72 6c 49 73 46 69 6c 65 \n", g.urlIsFile
11d0: 29 3b 0a 20 20 20 20 70 72 69 6e 74 66 28 22 67 );. printf("g
11e0: 2e 75 72 6c 49 73 48 74 74 70 73 20 20 20 3d 20 .urlIsHttps =
11f0: 25 64 5c 6e 22 2c 20 67 2e 75 72 6c 49 73 48 74 %d\n", g.urlIsHt
1200: 74 70 73 29 3b 0a 20 20 20 20 70 72 69 6e 74 66 tps);. printf
1210: 28 22 67 2e 75 72 6c 50 72 6f 74 6f 63 6f 6c 20 ("g.urlProtocol
1220: 20 3d 20 25 73 5c 6e 22 2c 20 67 2e 75 72 6c 50 = %s\n", g.urlP
1230: 72 6f 74 6f 63 6f 6c 29 3b 0a 20 20 20 20 70 72 rotocol);. pr
1240: 69 6e 74 66 28 22 67 2e 75 72 6c 4e 61 6d 65 20 intf("g.urlName
1250: 20 20 20 20 20 3d 20 25 73 5c 6e 22 2c 20 67 2e = %s\n", g.
1260: 75 72 6c 4e 61 6d 65 29 3b 0a 20 20 20 20 70 72 urlName);. pr
1270: 69 6e 74 66 28 22 67 2e 75 72 6c 50 6f 72 74 20 intf("g.urlPort
1280: 20 20 20 20 20 3d 20 25 64 5c 6e 22 2c 20 67 2e = %d\n", g.
1290: 75 72 6c 50 6f 72 74 29 3b 0a 20 20 20 20 70 72 urlPort);. pr
12a0: 69 6e 74 66 28 22 67 2e 75 72 6c 44 66 6c 74 50 intf("g.urlDfltP
12b0: 6f 72 74 20 20 3d 20 25 64 5c 6e 22 2c 20 67 2e ort = %d\n", g.
12c0: 75 72 6c 44 66 6c 74 50 6f 72 74 29 3b 0a 20 20 urlDfltPort);.
12d0: 20 20 70 72 69 6e 74 66 28 22 67 2e 75 72 6c 48 printf("g.urlH
12e0: 6f 73 74 6e 61 6d 65 20 20 3d 20 25 73 5c 6e 22 ostname = %s\n"
12f0: 2c 20 67 2e 75 72 6c 48 6f 73 74 6e 61 6d 65 29 , g.urlHostname)
1300: 3b 0a 20 20 20 20 70 72 69 6e 74 66 28 22 67 2e ;. printf("g.
1310: 75 72 6c 50 61 74 68 20 20 20 20 20 20 3d 20 25 urlPath = %
1320: 73 5c 6e 22 2c 20 67 2e 75 72 6c 50 61 74 68 29 s\n", g.urlPath)
1330: 3b 0a 20 20 20 20 70 72 69 6e 74 66 28 22 67 2e ;. printf("g.
1340: 75 72 6c 55 73 65 72 20 20 20 20 20 20 3d 20 25 urlUser = %
1350: 73 5c 6e 22 2c 20 67 2e 75 72 6c 55 73 65 72 29 s\n", g.urlUser)
1360: 3b 0a 20 20 20 20 70 72 69 6e 74 66 28 22 67 2e ;. printf("g.
1370: 75 72 6c 50 61 73 73 77 64 20 20 20 20 3d 20 25 urlPasswd = %
1380: 73 5c 6e 22 2c 20 67 2e 75 72 6c 50 61 73 73 77 s\n", g.urlPassw
1390: 64 29 3b 0a 20 20 20 20 70 72 69 6e 74 66 28 22 d);. printf("
13a0: 67 2e 75 72 6c 43 61 6e 6f 6e 69 63 61 6c 20 3d g.urlCanonical =
13b0: 20 25 73 5c 6e 22 2c 20 67 2e 75 72 6c 43 61 6e %s\n", g.urlCan
13c0: 6f 6e 69 63 61 6c 29 3b 0a 20 20 20 20 69 66 28 onical);. if(
13d0: 20 69 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 70 i==0 ){. p
13e0: 72 69 6e 74 66 28 22 2a 2a 2a 2a 2a 2a 2a 2a 5c rintf("********\
13f0: 6e 22 29 3b 0a 20 20 20 20 20 20 75 72 6c 5f 65 n");. url_e
1400: 6e 61 62 6c 65 5f 70 72 6f 78 79 28 22 55 73 69 nable_proxy("Usi
1410: 6e 67 20 70 72 6f 78 79 3a 20 22 29 3b 0a 20 20 ng proxy: ");.
1420: 20 20 7d 0a 20 20 7d 0a 7d 0a 0a 2f 2a 0a 2a 2a }. }.}../*.**
1430: 20 50 72 6f 78 79 20 73 70 65 63 69 66 69 65 64 Proxy specified
1440: 20 6f 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2d on the command-
1450: 6c 69 6e 65 20 75 73 69 6e 67 20 74 68 65 20 2d line using the -
1460: 2d 70 72 6f 78 79 20 6f 70 74 69 6f 6e 2e 0a 2a -proxy option..*
1470: 2a 20 49 66 20 74 68 65 72 65 20 69 73 20 6e 6f * If there is no
1480: 20 2d 2d 70 72 6f 78 79 20 6f 70 74 69 6f 6e 20 --proxy option
1490: 6f 6e 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2d 6c on the command-l
14a0: 69 6e 65 20 74 68 65 6e 20 74 68 69 73 0a 2a 2a ine then this.**
14b0: 20 76 61 72 69 61 62 6c 65 20 68 6f 6c 64 73 20 variable holds
14c0: 61 20 4e 55 4c 4c 20 70 6f 69 6e 74 65 72 2e 0a a NULL pointer..
14d0: 2a 2f 0a 73 74 61 74 69 63 20 63 6f 6e 73 74 20 */.static const
14e0: 63 68 61 72 20 2a 7a 50 72 6f 78 79 4f 70 74 20 char *zProxyOpt
14f0: 3d 20 30 3b 0a 0a 2f 2a 0a 2a 2a 20 45 78 74 72 = 0;../*.** Extr
1500: 61 63 74 20 61 6e 79 20 70 72 6f 78 79 20 6f 70 act any proxy op
1510: 74 69 6f 6e 73 20 66 72 6f 6d 20 74 68 65 20 63 tions from the c
1520: 6f 6d 6d 61 6e 64 2d 6c 69 6e 65 2e 0a 2a 2a 0a ommand-line..**.
1530: 2a 2a 20 20 20 20 2d 2d 70 72 6f 78 79 20 55 52 ** --proxy UR
1540: 4c 7c 6f 66 66 0a 2a 2a 0a 2a 2a 20 54 68 69 73 L|off.**.** This
1550: 20 61 6c 73 6f 20 68 61 70 70 65 6e 73 20 74 6f also happens to
1560: 20 62 65 20 61 20 63 6f 6e 76 65 6e 69 65 6e 74 be a convenient
1570: 20 66 75 6e 63 74 69 6f 6e 20 74 6f 20 75 73 65 function to use
1580: 20 74 6f 20 6c 6f 6f 6b 20 66 6f 72 0a 2a 2a 20 to look for.**
1590: 74 68 65 20 2d 2d 6e 6f 73 79 6e 63 20 6f 70 74 the --nosync opt
15a0: 69 6f 6e 20 74 68 61 74 20 77 69 6c 6c 20 74 65 ion that will te
15b0: 6d 70 6f 72 61 72 69 6c 79 20 64 69 73 61 62 6c mporarily disabl
15c0: 65 20 74 68 65 20 22 61 75 74 6f 73 79 6e 63 22 e the "autosync"
15d0: 0a 2a 2a 20 66 65 61 74 75 72 65 2e 0a 2a 2f 0a .** feature..*/.
15e0: 76 6f 69 64 20 75 72 6c 5f 70 72 6f 78 79 5f 6f void url_proxy_o
15f0: 70 74 69 6f 6e 73 28 76 6f 69 64 29 7b 0a 20 20 ptions(void){.
1600: 7a 50 72 6f 78 79 4f 70 74 20 3d 20 66 69 6e 64 zProxyOpt = find
1610: 5f 6f 70 74 69 6f 6e 28 22 70 72 6f 78 79 22 2c _option("proxy",
1620: 20 30 2c 20 31 29 3b 0a 20 20 69 66 28 20 66 69 0, 1);. if( fi
1630: 6e 64 5f 6f 70 74 69 6f 6e 28 22 6e 6f 73 79 6e nd_option("nosyn
1640: 63 22 2c 30 2c 30 29 20 29 20 67 2e 66 4e 6f 53 c",0,0) ) g.fNoS
1650: 79 6e 63 20 3d 20 31 3b 0a 7d 0a 0a 2f 2a 0a 2a ync = 1;.}../*.*
1660: 2a 20 49 66 20 74 68 65 20 22 70 72 6f 78 79 22 * If the "proxy"
1670: 20 73 65 74 74 69 6e 67 20 69 73 20 64 65 66 69 setting is defi
1680: 6e 65 64 2c 20 74 68 65 6e 20 63 68 61 6e 67 65 ned, then change
1690: 20 74 68 65 20 55 52 4c 20 73 65 74 74 69 6e 67 the URL setting
16a0: 73 0a 2a 2a 20 28 69 6e 69 74 69 61 6c 69 7a 65 s.** (initialize
16b0: 64 20 62 79 20 61 20 70 72 69 6f 72 20 63 61 6c d by a prior cal
16c0: 6c 20 74 6f 20 75 72 6c 5f 70 61 72 73 65 28 29 l to url_parse()
16d0: 29 20 73 6f 20 74 68 61 74 20 74 68 65 20 48 54 ) so that the HT
16e0: 54 50 0a 2a 2a 20 68 65 61 64 65 72 20 77 69 6c TP.** header wil
16f0: 6c 20 62 65 20 61 70 70 72 6f 70 72 69 61 74 65 l be appropriate
1700: 20 66 6f 72 20 74 68 65 20 70 72 6f 78 79 20 61 for the proxy a
1710: 6e 64 20 73 6f 20 74 68 61 74 20 74 68 65 20 54 nd so that the T
1720: 43 50 2f 49 50 0a 2a 2a 20 63 6f 6e 6e 65 63 74 CP/IP.** connect
1730: 69 6f 6e 20 77 69 6c 6c 20 62 65 20 6f 70 65 6e ion will be open
1740: 65 64 20 74 6f 20 74 68 65 20 70 72 6f 78 79 20 ed to the proxy
1750: 72 61 74 68 65 72 20 74 68 61 6e 20 74 6f 20 74 rather than to t
1760: 68 65 20 73 65 72 76 65 72 2e 0a 2a 2a 0a 2a 2a he server..**.**
1770: 20 49 66 20 7a 4d 73 67 20 69 73 20 6e 6f 74 20 If zMsg is not
1780: 4e 55 4c 4c 20 61 6e 64 20 61 20 70 72 6f 78 79 NULL and a proxy
1790: 20 69 73 20 75 73 65 64 2c 20 74 68 65 6e 20 70 is used, then p
17a0: 72 69 6e 74 20 7a 4d 73 67 20 66 6f 6c 6c 6f 77 rint zMsg follow
17b0: 65 64 0a 2a 2a 20 62 79 20 74 68 65 20 63 61 6e ed.** by the can
17c0: 6f 6e 69 63 61 6c 20 6e 61 6d 65 20 6f 66 20 74 onical name of t
17d0: 68 65 20 70 72 6f 78 79 20 28 77 69 74 68 20 75 he proxy (with u
17e0: 73 65 72 69 64 20 61 6e 64 20 70 61 73 73 77 6f serid and passwo
17f0: 72 64 20 73 75 70 70 72 65 73 73 65 64 29 2e 0a rd suppressed)..
1800: 2a 2f 0a 76 6f 69 64 20 75 72 6c 5f 65 6e 61 62 */.void url_enab
1810: 6c 65 5f 70 72 6f 78 79 28 63 6f 6e 73 74 20 63 le_proxy(const c
1820: 68 61 72 20 2a 7a 4d 73 67 29 7b 0a 20 20 63 6f har *zMsg){. co
1830: 6e 73 74 20 63 68 61 72 20 2a 7a 50 72 6f 78 79 nst char *zProxy
1840: 3b 0a 20 20 7a 50 72 6f 78 79 20 3d 20 7a 50 72 ;. zProxy = zPr
1850: 6f 78 79 4f 70 74 3b 0a 20 20 69 66 28 20 7a 50 oxyOpt;. if( zP
1860: 72 6f 78 79 3d 3d 30 20 29 7b 0a 20 20 20 20 7a roxy==0 ){. z
1870: 50 72 6f 78 79 20 3d 20 64 62 5f 67 65 74 28 22 Proxy = db_get("
1880: 70 72 6f 78 79 22 2c 20 30 29 3b 0a 20 20 20 20 proxy", 0);.
1890: 69 66 28 20 7a 50 72 6f 78 79 3d 3d 30 20 7c 7c if( zProxy==0 ||
18a0: 20 7a 50 72 6f 78 79 5b 30 5d 3d 3d 30 20 7c 7c zProxy[0]==0 ||
18b0: 20 69 73 5f 74 72 75 74 68 28 7a 50 72 6f 78 79 is_truth(zProxy
18c0: 29 20 29 7b 0a 20 20 20 20 20 20 7a 50 72 6f 78 ) ){. zProx
18d0: 79 20 3d 20 67 65 74 65 6e 76 28 22 68 74 74 70 y = getenv("http
18e0: 5f 70 72 6f 78 79 22 29 3b 0a 20 20 20 20 7d 0a _proxy");. }.
18f0: 20 20 7d 0a 20 20 69 66 28 20 7a 50 72 6f 78 79 }. if( zProxy
1900: 20 26 26 20 7a 50 72 6f 78 79 5b 30 5d 20 26 26 && zProxy[0] &&
1910: 20 21 69 73 5f 66 61 6c 73 65 28 7a 50 72 6f 78 !is_false(zProx
1920: 79 29 20 29 7b 0a 20 20 20 20 63 68 61 72 20 2a y) ){. char *
1930: 7a 4f 72 69 67 69 6e 61 6c 55 72 6c 20 3d 20 67 zOriginalUrl = g
1940: 2e 75 72 6c 43 61 6e 6f 6e 69 63 61 6c 3b 0a 20 .urlCanonical;.
1950: 20 20 20 63 68 61 72 20 2a 7a 4f 72 69 67 69 6e char *zOrigin
1960: 61 6c 48 6f 73 74 20 3d 20 67 2e 75 72 6c 48 6f alHost = g.urlHo
1970: 73 74 6e 61 6d 65 3b 0a 20 20 20 20 63 68 61 72 stname;. char
1980: 20 2a 7a 4f 72 69 67 69 6e 61 6c 55 73 65 72 20 *zOriginalUser
1990: 3d 20 67 2e 75 72 6c 55 73 65 72 3b 0a 20 20 20 = g.urlUser;.
19a0: 20 63 68 61 72 20 2a 7a 4f 72 69 67 69 6e 61 6c char *zOriginal
19b0: 50 61 73 73 77 64 20 3d 20 67 2e 75 72 6c 50 61 Passwd = g.urlPa
19c0: 73 73 77 64 3b 0a 20 20 20 20 67 2e 75 72 6c 55 sswd;. g.urlU
19d0: 73 65 72 20 3d 20 30 3b 0a 20 20 20 20 67 2e 75 ser = 0;. g.u
19e0: 72 6c 50 61 73 73 77 64 20 3d 20 22 22 3b 0a 20 rlPasswd = "";.
19f0: 20 20 20 75 72 6c 5f 70 61 72 73 65 28 7a 50 72 url_parse(zPr
1a00: 6f 78 79 29 3b 0a 20 20 20 20 69 66 28 20 7a 4d oxy);. if( zM
1a10: 73 67 20 29 20 70 72 69 6e 74 66 28 22 25 73 25 sg ) printf("%s%
1a20: 73 5c 6e 22 2c 20 7a 4d 73 67 2c 20 67 2e 75 72 s\n", zMsg, g.ur
1a30: 6c 43 61 6e 6f 6e 69 63 61 6c 29 3b 0a 20 20 20 lCanonical);.
1a40: 20 67 2e 75 72 6c 50 61 74 68 20 3d 20 7a 4f 72 g.urlPath = zOr
1a50: 69 67 69 6e 61 6c 55 72 6c 3b 0a 20 20 20 20 67 iginalUrl;. g
1a60: 2e 75 72 6c 48 6f 73 74 6e 61 6d 65 20 3d 20 7a .urlHostname = z
1a70: 4f 72 69 67 69 6e 61 6c 48 6f 73 74 3b 0a 20 20 OriginalHost;.
1a80: 20 20 69 66 28 20 67 2e 75 72 6c 55 73 65 72 20 if( g.urlUser
1a90: 29 7b 0a 20 20 20 20 20 20 63 68 61 72 20 2a 7a ){. char *z
1aa0: 43 72 65 64 65 6e 74 69 61 6c 73 31 20 3d 20 6d Credentials1 = m
1ab0: 70 72 69 6e 74 66 28 22 25 73 3a 25 73 22 2c 20 printf("%s:%s",
1ac0: 67 2e 75 72 6c 55 73 65 72 2c 20 67 2e 75 72 6c g.urlUser, g.url
1ad0: 50 61 73 73 77 64 29 3b 0a 20 20 20 20 20 20 63 Passwd);. c
1ae0: 68 61 72 20 2a 7a 43 72 65 64 65 6e 74 69 61 6c har *zCredential
1af0: 73 32 20 3d 20 65 6e 63 6f 64 65 36 34 28 7a 43 s2 = encode64(zC
1b00: 72 65 64 65 6e 74 69 61 6c 73 31 2c 20 2d 31 29 redentials1, -1)
1b10: 3b 0a 20 20 20 20 20 20 67 2e 75 72 6c 50 72 6f ;. g.urlPro
1b20: 78 79 41 75 74 68 20 3d 20 6d 70 72 69 6e 74 66 xyAuth = mprintf
1b30: 28 22 42 61 73 69 63 20 25 7a 22 2c 20 7a 43 72 ("Basic %z", zCr
1b40: 65 64 65 6e 74 69 61 6c 73 32 29 3b 0a 20 20 20 edentials2);.
1b50: 20 20 20 66 72 65 65 28 7a 43 72 65 64 65 6e 74 free(zCredent
1b60: 69 61 6c 73 31 29 3b 0a 20 20 20 20 7d 0a 20 20 ials1);. }.
1b70: 20 20 67 2e 75 72 6c 55 73 65 72 20 3d 20 7a 4f g.urlUser = zO
1b80: 72 69 67 69 6e 61 6c 55 73 65 72 3b 0a 20 20 20 riginalUser;.
1b90: 20 67 2e 75 72 6c 50 61 73 73 77 64 20 3d 20 7a g.urlPasswd = z
1ba0: 4f 72 69 67 69 6e 61 6c 50 61 73 73 77 64 3b 0a OriginalPasswd;.
1bb0: 20 20 7d 0a 7d 0a 0a 23 69 66 20 49 4e 54 45 52 }.}..#if INTER
1bc0: 46 41 43 45 0a 2f 2a 0a 2a 2a 20 41 6e 20 69 6e FACE./*.** An in
1bd0: 73 74 61 6e 63 65 20 6f 66 20 74 68 69 73 20 6f stance of this o
1be0: 62 6a 65 63 74 20 69 73 20 75 73 65 64 20 74 6f bject is used to
1bf0: 20 62 75 69 6c 64 20 61 20 55 52 4c 20 77 69 74 build a URL wit
1c00: 68 20 71 75 65 72 79 20 70 61 72 61 6d 65 74 65 h query paramete
1c10: 72 73 2e 0a 2a 2f 0a 73 74 72 75 63 74 20 48 51 rs..*/.struct HQ
1c20: 75 65 72 79 20 7b 0a 20 20 42 6c 6f 62 20 75 72 uery {. Blob ur
1c30: 6c 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 l;
1c40: 20 20 20 20 2f 2a 20 54 68 65 20 55 52 4c 20 2a /* The URL *
1c50: 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 2a /. const char *
1c60: 7a 42 61 73 65 3b 20 20 20 20 20 20 20 20 20 2f zBase; /
1c70: 2a 20 54 68 65 20 62 61 73 65 20 55 52 4c 20 2a * The base URL *
1c80: 2f 0a 20 20 69 6e 74 20 6e 50 61 72 61 6d 3b 20 /. int nParam;
1c90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f /
1ca0: 2a 20 4e 75 6d 62 65 72 20 6f 66 20 70 61 72 61 * Number of para
1cb0: 6d 65 74 65 72 73 2e 20 20 4d 61 78 20 31 30 20 meters. Max 10
1cc0: 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 61 72 20 */. const char
1cd0: 2a 61 7a 4e 61 6d 65 5b 31 30 5d 3b 20 20 20 20 *azName[10];
1ce0: 2f 2a 20 50 61 72 61 6d 65 74 65 72 20 6e 61 6d /* Parameter nam
1cf0: 65 73 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 68 es */. const ch
1d00: 61 72 20 2a 61 7a 56 61 6c 75 65 5b 31 30 5d 3b ar *azValue[10];
1d10: 20 20 20 2f 2a 20 50 61 72 61 6d 65 74 65 72 20 /* Parameter
1d20: 76 61 6c 75 65 73 20 2a 2f 0a 7d 3b 0a 23 65 6e values */.};.#en
1d30: 64 69 66 0a 0a 2f 2a 0a 2a 2a 20 49 6e 69 74 69 dif../*.** Initi
1d40: 61 6c 69 7a 65 20 74 68 65 20 55 52 4c 20 6f 62 alize the URL ob
1d50: 6a 65 63 74 2e 0a 2a 2f 0a 76 6f 69 64 20 75 72 ject..*/.void ur
1d60: 6c 5f 69 6e 69 74 69 61 6c 69 7a 65 28 48 51 75 l_initialize(HQu
1d70: 65 72 79 20 2a 70 2c 20 63 6f 6e 73 74 20 63 68 ery *p, const ch
1d80: 61 72 20 2a 7a 42 61 73 65 29 7b 0a 20 20 62 6c ar *zBase){. bl
1d90: 6f 62 5f 7a 65 72 6f 28 26 70 2d 3e 75 72 6c 29 ob_zero(&p->url)
1da0: 3b 0a 20 20 70 2d 3e 7a 42 61 73 65 20 3d 20 7a ;. p->zBase = z
1db0: 42 61 73 65 3b 0a 20 20 70 2d 3e 6e 50 61 72 61 Base;. p->nPara
1dc0: 6d 20 3d 20 30 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 m = 0;.}../*.**
1dd0: 41 64 64 20 61 20 66 69 78 65 64 20 70 61 72 61 Add a fixed para
1de0: 6d 65 74 65 72 20 74 6f 20 61 6e 20 48 51 75 65 meter to an HQue
1df0: 72 79 2e 0a 2a 2f 0a 76 6f 69 64 20 75 72 6c 5f ry..*/.void url_
1e00: 61 64 64 5f 70 61 72 61 6d 65 74 65 72 28 48 51 add_parameter(HQ
1e10: 75 65 72 79 20 2a 70 2c 20 63 6f 6e 73 74 20 63 uery *p, const c
1e20: 68 61 72 20 2a 7a 4e 61 6d 65 2c 20 63 6f 6e 73 har *zName, cons
1e30: 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 65 29 7b t char *zValue){
1e40: 0a 20 20 61 73 73 65 72 74 28 20 70 2d 3e 6e 50 . assert( p->nP
1e50: 61 72 61 6d 20 3c 20 63 6f 75 6e 74 28 70 2d 3e aram < count(p->
1e60: 61 7a 4e 61 6d 65 29 20 29 3b 0a 20 20 61 73 73 azName) );. ass
1e70: 65 72 74 28 20 70 2d 3e 6e 50 61 72 61 6d 20 3c ert( p->nParam <
1e80: 20 63 6f 75 6e 74 28 70 2d 3e 61 7a 56 61 6c 75 count(p->azValu
1e90: 65 29 20 29 3b 0a 20 20 70 2d 3e 61 7a 4e 61 6d e) );. p->azNam
1ea0: 65 5b 70 2d 3e 6e 50 61 72 61 6d 5d 20 3d 20 7a e[p->nParam] = z
1eb0: 4e 61 6d 65 3b 0a 20 20 70 2d 3e 61 7a 56 61 6c Name;. p->azVal
1ec0: 75 65 5b 70 2d 3e 6e 50 61 72 61 6d 5d 20 3d 20 ue[p->nParam] =
1ed0: 7a 56 61 6c 75 65 3b 0a 20 20 70 2d 3e 6e 50 61 zValue;. p->nPa
1ee0: 72 61 6d 2b 2b 3b 0a 7d 0a 0a 2f 2a 0a 2a 2a 20 ram++;.}../*.**
1ef0: 52 65 6e 64 65 72 20 74 68 65 20 55 52 4c 20 77 Render the URL w
1f00: 69 74 68 20 61 20 70 61 72 61 6d 65 74 65 72 20 ith a parameter
1f10: 6f 76 65 72 72 69 64 65 2e 0a 2a 2f 0a 63 68 61 override..*/.cha
1f20: 72 20 2a 75 72 6c 5f 72 65 6e 64 65 72 28 0a 20 r *url_render(.
1f30: 20 48 51 75 65 72 79 20 2a 70 2c 20 20 20 20 20 HQuery *p,
1f40: 20 20 20 20 20 20 20 20 20 2f 2a 20 42 61 73 65 /* Base
1f50: 20 55 52 4c 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 URL */. const
1f60: 63 68 61 72 20 2a 7a 4e 61 6d 65 31 2c 20 20 20 char *zName1,
1f70: 20 20 2f 2a 20 46 69 72 73 74 20 6f 76 65 72 72 /* First overr
1f80: 69 64 65 20 2a 2f 0a 20 20 63 6f 6e 73 74 20 63 ide */. const c
1f90: 68 61 72 20 2a 7a 56 61 6c 75 65 31 2c 20 20 20 har *zValue1,
1fa0: 20 2f 2a 20 46 69 72 73 74 20 6f 76 65 72 72 69 /* First overri
1fb0: 64 65 20 76 61 6c 75 65 20 2a 2f 0a 20 20 63 6f de value */. co
1fc0: 6e 73 74 20 63 68 61 72 20 2a 7a 4e 61 6d 65 32 nst char *zName2
1fd0: 2c 20 20 20 20 20 2f 2a 20 53 65 63 6f 6e 64 20 , /* Second
1fe0: 6f 76 65 72 72 69 64 65 20 2a 2f 0a 20 20 63 6f override */. co
1ff0: 6e 73 74 20 63 68 61 72 20 2a 7a 56 61 6c 75 65 nst char *zValue
2000: 32 20 20 20 20 20 2f 2a 20 53 65 63 6f 6e 64 20 2 /* Second
2010: 6f 76 65 72 72 69 64 65 20 76 61 6c 75 65 20 2a override value *
2020: 2f 0a 29 7b 0a 20 20 63 6f 6e 73 74 20 63 68 61 /.){. const cha
2030: 72 20 2a 7a 53 65 70 20 3d 20 22 3f 22 3b 0a 20 r *zSep = "?";.
2040: 20 69 6e 74 20 69 3b 0a 20 20 0a 20 20 62 6c 6f int i;. . blo
2050: 62 5f 72 65 73 65 74 28 26 70 2d 3e 75 72 6c 29 b_reset(&p->url)
2060: 3b 0a 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 ;. blob_appendf
2070: 28 26 70 2d 3e 75 72 6c 2c 20 22 25 73 2f 25 73 (&p->url, "%s/%s
2080: 22 2c 20 67 2e 7a 42 61 73 65 55 52 4c 2c 20 70 ", g.zBaseURL, p
2090: 2d 3e 7a 42 61 73 65 29 3b 0a 20 20 66 6f 72 28 ->zBase);. for(
20a0: 69 3d 30 3b 20 69 3c 70 2d 3e 6e 50 61 72 61 6d i=0; i<p->nParam
20b0: 3b 20 69 2b 2b 29 7b 0a 20 20 20 20 63 6f 6e 73 ; i++){. cons
20c0: 74 20 63 68 61 72 20 2a 7a 20 3d 20 70 2d 3e 61 t char *z = p->a
20d0: 7a 56 61 6c 75 65 5b 69 5d 3b 0a 20 20 20 20 69 zValue[i];. i
20e0: 66 28 20 7a 4e 61 6d 65 31 20 26 26 20 73 74 72 f( zName1 && str
20f0: 63 6d 70 28 7a 4e 61 6d 65 31 2c 70 2d 3e 61 7a cmp(zName1,p->az
2100: 4e 61 6d 65 5b 69 5d 29 3d 3d 30 20 29 7b 0a 20 Name[i])==0 ){.
2110: 20 20 20 20 20 7a 4e 61 6d 65 31 20 3d 20 30 3b zName1 = 0;
2120: 0a 20 20 20 20 20 20 7a 20 3d 20 7a 56 61 6c 75 . z = zValu
2130: 65 31 3b 0a 20 20 20 20 20 20 69 66 28 20 7a 3d e1;. if( z=
2140: 3d 30 20 29 20 63 6f 6e 74 69 6e 75 65 3b 0a 20 =0 ) continue;.
2150: 20 20 20 7d 0a 20 20 20 20 69 66 28 20 7a 4e 61 }. if( zNa
2160: 6d 65 32 20 26 26 20 73 74 72 63 6d 70 28 7a 4e me2 && strcmp(zN
2170: 61 6d 65 32 2c 70 2d 3e 61 7a 4e 61 6d 65 5b 69 ame2,p->azName[i
2180: 5d 29 3d 3d 30 20 29 7b 0a 20 20 20 20 20 20 7a ])==0 ){. z
2190: 4e 61 6d 65 32 20 3d 20 30 3b 0a 20 20 20 20 20 Name2 = 0;.
21a0: 20 7a 20 3d 20 7a 56 61 6c 75 65 32 3b 0a 20 20 z = zValue2;.
21b0: 20 20 20 20 69 66 28 20 7a 3d 3d 30 20 29 20 63 if( z==0 ) c
21c0: 6f 6e 74 69 6e 75 65 3b 0a 20 20 20 20 7d 0a 20 ontinue;. }.
21d0: 20 20 20 62 6c 6f 62 5f 61 70 70 65 6e 64 66 28 blob_appendf(
21e0: 26 70 2d 3e 75 72 6c 2c 20 22 25 73 25 73 3d 25 &p->url, "%s%s=%
21f0: 54 22 2c 20 7a 53 65 70 2c 20 70 2d 3e 61 7a 4e T", zSep, p->azN
2200: 61 6d 65 5b 69 5d 2c 20 7a 29 3b 0a 20 20 20 20 ame[i], z);.
2210: 7a 53 65 70 20 3d 20 22 26 22 3b 0a 20 20 7d 0a zSep = "&";. }.
2220: 20 20 69 66 28 20 7a 4e 61 6d 65 31 20 26 26 20 if( zName1 &&
2230: 7a 56 61 6c 75 65 31 20 29 7b 0a 20 20 20 20 62 zValue1 ){. b
2240: 6c 6f 62 5f 61 70 70 65 6e 64 66 28 26 70 2d 3e lob_appendf(&p->
2250: 75 72 6c 2c 20 22 25 73 25 73 3d 25 54 22 2c 20 url, "%s%s=%T",
2260: 7a 53 65 70 2c 20 7a 4e 61 6d 65 31 2c 20 7a 56 zSep, zName1, zV
2270: 61 6c 75 65 31 29 3b 0a 20 20 7d 0a 20 20 69 66 alue1);. }. if
2280: 28 20 7a 4e 61 6d 65 32 20 26 26 20 7a 56 61 6c ( zName2 && zVal
2290: 75 65 32 20 29 7b 0a 20 20 20 20 62 6c 6f 62 5f ue2 ){. blob_
22a0: 61 70 70 65 6e 64 66 28 26 70 2d 3e 75 72 6c 2c appendf(&p->url,
22b0: 20 22 25 73 25 73 3d 25 54 22 2c 20 7a 53 65 70 "%s%s=%T", zSep
22c0: 2c 20 7a 4e 61 6d 65 32 2c 20 7a 56 61 6c 75 65 , zName2, zValue
22d0: 32 29 3b 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 2);. }. return
22e0: 20 62 6c 6f 62 5f 73 74 72 28 26 70 2d 3e 75 72 blob_str(&p->ur
22f0: 6c 29 3b 0a 7d 0a l);.}.