2 * Copyright 2008 Hans Leidekker for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 #include "winhttp_private.h"
21 static const WCHAR scheme_http
[] = {'h','t','t','p',0};
22 static const WCHAR scheme_https
[] = {'h','t','t','p','s',0};
24 static BOOL
set_component( WCHAR
**str
, DWORD
*str_len
, WCHAR
*value
, DWORD len
, DWORD flags
)
28 if (len
&& *str_len
&& (flags
& (ICU_DECODE
|ICU_ESCAPE
)))
30 set_last_error( ERROR_INVALID_PARAMETER
);
38 if (len
> (*str_len
) - 1)
41 set_last_error( ERROR_INSUFFICIENT_BUFFER
);
44 memcpy( *str
, value
, len
* sizeof(WCHAR
) );
51 static WCHAR
*decode_url( LPCWSTR url
, DWORD
*len
)
54 WCHAR hex
[3], *q
, *ret
;
56 if (!(ret
= heap_alloc( *len
* sizeof(WCHAR
) ))) return NULL
;
60 if (p
[0] == '%' && isxdigitW( p
[1] ) && isxdigitW( p
[2] ))
65 *q
++ = strtolW( hex
, NULL
, 16 );
79 static BOOL
need_escape( WCHAR c
)
81 if (isalnumW( c
)) return FALSE
;
83 if (c
<= 31 || c
>= 127) return TRUE
;
110 static DWORD
copy_escape( WCHAR
*dst
, const WCHAR
*src
, DWORD len
)
112 static const WCHAR hex
[] = {'0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'};
117 for (i
= 0; i
< len
; i
++, p
++)
119 if (need_escape( src
[i
] ))
122 p
[1] = hex
[(src
[i
] >> 4) & 0xf];
123 p
[2] = hex
[src
[i
] & 0xf];
133 static WCHAR
*escape_url( LPCWSTR url
, DWORD
*len
)
138 if ((p
= q
= strrchrW( url
, '/' )))
142 if (need_escape( *q
)) *len
+= 2;
146 if (!(ret
= heap_alloc( (*len
+ 1) * sizeof(WCHAR
) ))) return NULL
;
147 if (!p
) strcpyW( ret
, url
);
150 memcpy( ret
, url
, (p
- url
) * sizeof(WCHAR
) );
151 copy_escape( ret
+ (p
- url
), p
, q
- p
);
156 /***********************************************************************
157 * WinHttpCrackUrl (winhttp.@)
159 BOOL WINAPI
WinHttpCrackUrl( LPCWSTR url
, DWORD len
, DWORD flags
, LPURL_COMPONENTSW uc
)
162 WCHAR
*p
, *q
, *r
, *url_decoded
= NULL
, *url_escaped
= NULL
;
164 TRACE("%s, %d, %x, %p\n", debugstr_w(url
), len
, flags
, uc
);
166 if (!url
|| !uc
|| uc
->dwStructSize
!= sizeof(URL_COMPONENTS
))
168 set_last_error( ERROR_INVALID_PARAMETER
);
171 if (!len
) len
= strlenW( url
);
173 if (flags
& ICU_ESCAPE
)
175 if (!(url_escaped
= escape_url( url
, &len
)))
177 set_last_error( ERROR_OUTOFMEMORY
);
182 else if (flags
& ICU_DECODE
)
184 if (!(url_decoded
= decode_url( url
, &len
)))
186 set_last_error( ERROR_OUTOFMEMORY
);
191 if (!(p
= strchrW( url
, ':' )))
193 set_last_error( ERROR_WINHTTP_UNRECOGNIZED_SCHEME
);
196 if (p
- url
== 4 && !strncmpiW( url
, scheme_http
, 4 )) uc
->nScheme
= INTERNET_SCHEME_HTTP
;
197 else if (p
- url
== 5 && !strncmpiW( url
, scheme_https
, 5 )) uc
->nScheme
= INTERNET_SCHEME_HTTPS
;
200 set_last_error( ERROR_WINHTTP_UNRECOGNIZED_SCHEME
);
203 if (!(set_component( &uc
->lpszScheme
, &uc
->dwSchemeLength
, (WCHAR
*)url
, p
- url
, flags
))) goto exit
;
206 if (!p
[0] || p
[0] != '/' || p
[1] != '/') goto exit
;
209 if (!p
[0]) goto exit
;
210 if ((q
= memchrW( p
, '@', len
- (p
- url
) )) && !(memchrW( p
, '/', q
- p
)))
212 if ((r
= memchrW( p
, ':', q
- p
)))
214 if (!(set_component( &uc
->lpszUserName
, &uc
->dwUserNameLength
, p
, r
- p
, flags
))) goto exit
;
216 if (!(set_component( &uc
->lpszPassword
, &uc
->dwPasswordLength
, r
, q
- r
, flags
))) goto exit
;
220 if (!(set_component( &uc
->lpszUserName
, &uc
->dwUserNameLength
, p
, q
- p
, flags
))) goto exit
;
221 if (!(set_component( &uc
->lpszPassword
, &uc
->dwPasswordLength
, NULL
, 0, flags
))) goto exit
;
227 if (!(set_component( &uc
->lpszUserName
, &uc
->dwUserNameLength
, NULL
, 0, flags
))) goto exit
;
228 if (!(set_component( &uc
->lpszPassword
, &uc
->dwPasswordLength
, NULL
, 0, flags
))) goto exit
;
230 if ((q
= memchrW( p
, '/', len
- (p
- url
) )))
232 if ((r
= memchrW( p
, ':', q
- p
)))
234 if (!(set_component( &uc
->lpszHostName
, &uc
->dwHostNameLength
, p
, r
- p
, flags
))) goto exit
;
236 uc
->nPort
= atoiW( r
);
240 if (!(set_component( &uc
->lpszHostName
, &uc
->dwHostNameLength
, p
, q
- p
, flags
))) goto exit
;
241 if (uc
->nScheme
== INTERNET_SCHEME_HTTP
) uc
->nPort
= INTERNET_DEFAULT_HTTP_PORT
;
242 if (uc
->nScheme
== INTERNET_SCHEME_HTTPS
) uc
->nPort
= INTERNET_DEFAULT_HTTPS_PORT
;
245 if ((r
= memchrW( q
, '?', len
- (q
- url
) )))
247 if (!(set_component( &uc
->lpszUrlPath
, &uc
->dwUrlPathLength
, q
, r
- q
, flags
))) goto exit
;
248 if (!(set_component( &uc
->lpszExtraInfo
, &uc
->dwExtraInfoLength
, r
, len
- (r
- url
), flags
))) goto exit
;
252 if (!(set_component( &uc
->lpszUrlPath
, &uc
->dwUrlPathLength
, q
, len
- (q
- url
), flags
))) goto exit
;
253 if (!(set_component( &uc
->lpszExtraInfo
, &uc
->dwExtraInfoLength
, (WCHAR
*)url
+ len
, 0, flags
))) goto exit
;
258 if ((r
= memchrW( p
, ':', len
- (p
- url
) )))
260 if (!(set_component( &uc
->lpszHostName
, &uc
->dwHostNameLength
, p
, r
- p
, flags
))) goto exit
;
262 uc
->nPort
= atoiW( r
);
266 if (!(set_component( &uc
->lpszHostName
, &uc
->dwHostNameLength
, p
, len
- (p
- url
), flags
))) goto exit
;
267 if (uc
->nScheme
== INTERNET_SCHEME_HTTP
) uc
->nPort
= INTERNET_DEFAULT_HTTP_PORT
;
268 if (uc
->nScheme
== INTERNET_SCHEME_HTTPS
) uc
->nPort
= INTERNET_DEFAULT_HTTPS_PORT
;
270 if (!(set_component( &uc
->lpszUrlPath
, &uc
->dwUrlPathLength
, (WCHAR
*)url
+ len
, 0, flags
))) goto exit
;
271 if (!(set_component( &uc
->lpszExtraInfo
, &uc
->dwExtraInfoLength
, (WCHAR
*)url
+ len
, 0, flags
))) goto exit
;
276 TRACE("scheme(%s) host(%s) port(%d) path(%s) extra(%s)\n",
277 debugstr_wn( uc
->lpszScheme
, uc
->dwSchemeLength
),
278 debugstr_wn( uc
->lpszHostName
, uc
->dwHostNameLength
),
280 debugstr_wn( uc
->lpszUrlPath
, uc
->dwUrlPathLength
),
281 debugstr_wn( uc
->lpszExtraInfo
, uc
->dwExtraInfoLength
));
284 heap_free( url_decoded
);
285 heap_free( url_escaped
);
289 static INTERNET_SCHEME
get_scheme( const WCHAR
*scheme
, DWORD len
)
291 if (!strncmpW( scheme
, scheme_http
, len
)) return INTERNET_SCHEME_HTTP
;
292 if (!strncmpW( scheme
, scheme_https
, len
)) return INTERNET_SCHEME_HTTPS
;
296 static const WCHAR
*get_scheme_string( INTERNET_SCHEME scheme
)
298 if (scheme
== INTERNET_SCHEME_HTTP
) return scheme_http
;
299 if (scheme
== INTERNET_SCHEME_HTTPS
) return scheme_https
;
303 static BOOL
uses_default_port( INTERNET_SCHEME scheme
, INTERNET_PORT port
)
305 if ((scheme
== INTERNET_SCHEME_HTTP
) && (port
== INTERNET_DEFAULT_HTTP_PORT
)) return TRUE
;
306 if ((scheme
== INTERNET_SCHEME_HTTPS
) && (port
== INTERNET_DEFAULT_HTTPS_PORT
)) return TRUE
;
310 static DWORD
comp_length( DWORD len
, DWORD flags
, WCHAR
*comp
)
315 ret
= len
? len
: strlenW( comp
);
316 if (!(flags
& ICU_ESCAPE
)) return ret
;
317 for (i
= 0; i
< len
; i
++) if (need_escape( comp
[i
] )) ret
+= 2;
321 static BOOL
calc_length( URL_COMPONENTS
*uc
, DWORD flags
, LPDWORD len
)
323 static const WCHAR formatW
[] = {'%','u',0};
324 INTERNET_SCHEME scheme
;
329 DWORD scheme_len
= comp_length( uc
->dwSchemeLength
, 0, uc
->lpszScheme
);
331 scheme
= get_scheme( uc
->lpszScheme
, scheme_len
);
335 scheme
= uc
->nScheme
;
336 if (!scheme
) scheme
= INTERNET_SCHEME_HTTP
;
337 *len
+= strlenW( get_scheme_string( scheme
) );
340 if (uc
->lpszHostName
) *len
+= 2; /* "//" */
342 if (uc
->lpszUserName
)
344 *len
+= comp_length( uc
->dwUserNameLength
, 0, uc
->lpszUserName
);
349 if (uc
->lpszPassword
)
351 set_last_error( ERROR_INVALID_PARAMETER
);
355 if (uc
->lpszPassword
)
358 *len
+= comp_length( uc
->dwPasswordLength
, 0, uc
->lpszPassword
);
360 if (uc
->lpszHostName
)
362 *len
+= comp_length( uc
->dwHostNameLength
, 0, uc
->lpszHostName
);
364 if (!uses_default_port( scheme
, uc
->nPort
))
366 WCHAR port
[sizeof("65535")];
368 sprintfW( port
, formatW
, uc
->nPort
);
369 *len
+= strlenW( port
);
372 if (uc
->lpszUrlPath
&& *uc
->lpszUrlPath
!= '/') *len
+= 1; /* '/' */
374 if (uc
->lpszUrlPath
) *len
+= comp_length( uc
->dwUrlPathLength
, flags
, uc
->lpszUrlPath
);
375 if (uc
->lpszExtraInfo
) *len
+= comp_length( uc
->dwExtraInfoLength
, flags
, uc
->lpszExtraInfo
);
379 /***********************************************************************
380 * WinHttpCreateUrl (winhttp.@)
382 BOOL WINAPI
WinHttpCreateUrl( LPURL_COMPONENTS uc
, DWORD flags
, LPWSTR url
, LPDWORD required
)
384 static const WCHAR formatW
[] = {'%','u',0};
385 static const WCHAR twoslashW
[] = {'/','/'};
388 INTERNET_SCHEME scheme
;
390 TRACE("%p, 0x%08x, %p, %p\n", uc
, flags
, url
, required
);
392 if (!uc
|| uc
->dwStructSize
!= sizeof(URL_COMPONENTS
) || !required
|| !url
)
394 set_last_error( ERROR_INVALID_PARAMETER
);
398 if (!calc_length( uc
, flags
, &len
)) return FALSE
;
403 set_last_error( ERROR_INSUFFICIENT_BUFFER
);
411 len
= comp_length( uc
->dwSchemeLength
, 0, uc
->lpszScheme
);
412 memcpy( url
, uc
->lpszScheme
, len
* sizeof(WCHAR
) );
415 scheme
= get_scheme( uc
->lpszScheme
, len
);
419 const WCHAR
*schemeW
;
420 scheme
= uc
->nScheme
;
422 if (!scheme
) scheme
= INTERNET_SCHEME_HTTP
;
424 schemeW
= get_scheme_string( scheme
);
425 len
= strlenW( schemeW
);
426 memcpy( url
, schemeW
, len
* sizeof(WCHAR
) );
430 /* all schemes are followed by at least a colon */
434 if (uc
->lpszHostName
)
436 memcpy( url
, twoslashW
, sizeof(twoslashW
) );
437 url
+= sizeof(twoslashW
) / sizeof(twoslashW
[0]);
439 if (uc
->lpszUserName
)
441 len
= comp_length( uc
->dwUserNameLength
, 0, uc
->lpszUserName
);
442 memcpy( url
, uc
->lpszUserName
, len
* sizeof(WCHAR
) );
445 if (uc
->lpszPassword
)
450 len
= comp_length( uc
->dwPasswordLength
, 0, uc
->lpszPassword
);
451 memcpy( url
, uc
->lpszPassword
, len
* sizeof(WCHAR
) );
457 if (uc
->lpszHostName
)
459 len
= comp_length( uc
->dwHostNameLength
, 0, uc
->lpszHostName
);
460 memcpy( url
, uc
->lpszHostName
, len
* sizeof(WCHAR
) );
463 if (!uses_default_port( scheme
, uc
->nPort
))
465 WCHAR port
[sizeof("65535")];
467 sprintfW( port
, formatW
, uc
->nPort
);
471 len
= strlenW( port
);
472 memcpy( url
, port
, len
* sizeof(WCHAR
) );
476 /* add slash between hostname and path if necessary */
477 if (uc
->lpszUrlPath
&& *uc
->lpszUrlPath
!= '/')
485 len
= comp_length( uc
->dwUrlPathLength
, 0, uc
->lpszUrlPath
);
486 if (flags
& ICU_ESCAPE
) url
+= copy_escape( url
, uc
->lpszUrlPath
, len
);
489 memcpy( url
, uc
->lpszUrlPath
, len
* sizeof(WCHAR
) );
493 if (uc
->lpszExtraInfo
)
495 len
= comp_length( uc
->dwExtraInfoLength
, 0, uc
->lpszExtraInfo
);
496 if (flags
& ICU_ESCAPE
) url
+= copy_escape( url
, uc
->lpszExtraInfo
, len
);
499 memcpy( url
, uc
->lpszExtraInfo
, len
* sizeof(WCHAR
) );