2 * Wininet - cookie handling stuff
4 * Copyright 2002 TransGaming Technologies Inc.
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 #include "wine/port.h"
26 #if defined(__MINGW32__) || defined (_MSC_VER)
44 #include "wine/debug.h"
47 #define RESPONSE_TIMEOUT 30 /* FROM internet.c */
50 WINE_DEFAULT_DEBUG_CHANNEL(wininet);
53 * Cookies could use A LOT OF MEMORY. We need some kind of memory management here!
56 typedef struct _cookie_domain cookie_domain;
57 typedef struct _cookie cookie;
63 struct _cookie_domain *parent;
76 LPWSTR lpCookieDomain;
78 struct list cookie_list;
81 static CRITICAL_SECTION cookie_cs;
82 static CRITICAL_SECTION_DEBUG cookie_cs_debug =
85 { &cookie_cs_debug.ProcessLocksList, &cookie_cs_debug.ProcessLocksList },
86 0, 0, { (DWORD_PTR)(__FILE__ ": cookie_cs") }
88 static CRITICAL_SECTION cookie_cs = { &cookie_cs_debug, -1, 0, 0, 0, 0 };
89 static struct list domain_list = LIST_INIT(domain_list);
91 static cookie *COOKIE_addCookie(cookie_domain *domain, LPCWSTR name, LPCWSTR data,
92 FILETIME expiry, FILETIME create, DWORD flags);
93 static cookie *COOKIE_findCookie(cookie_domain *domain, LPCWSTR lpszCookieName);
94 static void COOKIE_deleteCookie(cookie *deadCookie, BOOL deleteDomain);
95 static cookie_domain *COOKIE_addDomain(LPCWSTR domain, LPCWSTR path);
96 static void COOKIE_deleteDomain(cookie_domain *deadDomain);
97 static BOOL COOKIE_matchDomain(LPCWSTR lpszCookieDomain, LPCWSTR lpszCookiePath,
98 cookie_domain *searchDomain, BOOL allow_partial);
100 static BOOL create_cookie_url(LPCWSTR domain, LPCWSTR path, WCHAR *buf, DWORD buf_len)
102 static const WCHAR cookie_prefix[] = {'C','o','o','k','i','e',':'};
107 if(buf_len < sizeof(cookie_prefix)/sizeof(WCHAR))
109 memcpy(buf, cookie_prefix, sizeof(cookie_prefix));
110 buf += sizeof(cookie_prefix)/sizeof(WCHAR);
111 buf_len -= sizeof(cookie_prefix)/sizeof(WCHAR);
115 if(!GetUserNameW(buf, &len))
125 len = strlenW(domain);
128 memcpy(buf, domain, len*sizeof(WCHAR));
135 memcpy(buf, path, len*sizeof(WCHAR));
145 static BOOL load_persistent_cookie(LPCWSTR domain, LPCWSTR path)
147 INTERNET_CACHE_ENTRY_INFOW *info;
148 cookie_domain *domain_container = NULL;
151 WCHAR cookie_url[MAX_PATH];
153 char *str = NULL, *pbeg, *pend;
156 FILETIME expiry, create, time;
158 if (!create_cookie_url(domain, path, cookie_url, sizeof(cookie_url)/sizeof(cookie_url[0])))
162 RetrieveUrlCacheEntryStreamW(cookie_url, NULL, &size, FALSE, 0);
163 if(GetLastError() != ERROR_INSUFFICIENT_BUFFER)
165 info = heap_alloc(size);
168 cookie = RetrieveUrlCacheEntryStreamW(cookie_url, info, &size, FALSE, 0);
169 size = info->dwSizeLow;
174 if(!(str = heap_alloc(size+1)) || !ReadUrlCacheEntryStream(cookie, 0, str, &size, 0)) {
175 UnlockUrlCacheEntryStream(cookie, 0);
180 UnlockUrlCacheEntryStream(cookie, 0);
182 LIST_FOR_EACH(iter, &domain_list)
184 domain_container = LIST_ENTRY(iter, cookie_domain, entry);
185 if(COOKIE_matchDomain(domain, path, domain_container, FALSE))
187 domain_container = NULL;
189 if(!domain_container)
190 domain_container = COOKIE_addDomain(domain, path);
191 if(!domain_container) {
196 GetSystemTimeAsFileTime(&time);
197 for(pbeg=str; pbeg && *pbeg; name=data=NULL) {
198 pend = strchr(pbeg, '\n');
202 name = heap_strdupAtoW(pbeg);
205 pend = strchr(pbeg, '\n');
209 data = heap_strdupAtoW(pbeg);
212 pbeg = strchr(pend+1, '\n');
215 sscanf(pbeg, "%u %u %u %u %u", &flags, &expiry.dwLowDateTime, &expiry.dwHighDateTime,
216 &create.dwLowDateTime, &create.dwHighDateTime);
219 pbeg = strchr(pbeg, '*');
229 if(CompareFileTime(&time, &expiry) <= 0) {
230 if((old_cookie = COOKIE_findCookie(domain_container, name)))
231 COOKIE_deleteCookie(old_cookie, FALSE);
232 COOKIE_addCookie(domain_container, name, data, expiry, create, flags);
244 static BOOL save_persistent_cookie(cookie_domain *domain)
246 static const WCHAR txtW[] = {'t','x','t',0};
248 WCHAR cookie_url[MAX_PATH], cookie_file[MAX_PATH];
249 HANDLE cookie_handle;
250 cookie *cookie_container = NULL, *cookie_iter;
251 BOOL do_save = FALSE;
252 char buf[64], *dyn_buf;
255 if (!create_cookie_url(domain->lpCookieDomain, domain->lpCookiePath, cookie_url, sizeof(cookie_url)/sizeof(cookie_url[0])))
258 /* check if there's anything to save */
259 GetSystemTimeAsFileTime(&time);
260 LIST_FOR_EACH_ENTRY_SAFE(cookie_container, cookie_iter, &domain->cookie_list, cookie, entry)
262 if((cookie_container->expiry.dwLowDateTime || cookie_container->expiry.dwHighDateTime)
263 && CompareFileTime(&time, &cookie_container->expiry) > 0) {
264 COOKIE_deleteCookie(cookie_container, FALSE);
268 if(!(cookie_container->flags & INTERNET_COOKIE_IS_SESSION)) {
274 DeleteUrlCacheEntryW(cookie_url);
278 if(!CreateUrlCacheEntryW(cookie_url, 0, txtW, cookie_file, 0))
280 cookie_handle = CreateFileW(cookie_file, GENERIC_WRITE, 0, NULL, OPEN_EXISTING, 0, NULL);
281 if(cookie_handle == INVALID_HANDLE_VALUE) {
282 DeleteFileW(cookie_file);
286 LIST_FOR_EACH_ENTRY(cookie_container, &domain->cookie_list, cookie, entry)
288 if(cookie_container->flags & INTERNET_COOKIE_IS_SESSION)
291 dyn_buf = heap_strdupWtoA(cookie_container->lpCookieName);
292 if(!dyn_buf || !WriteFile(cookie_handle, dyn_buf, strlen(dyn_buf), NULL, NULL)) {
298 if(!WriteFile(cookie_handle, "\n", 1, NULL, NULL)) {
303 dyn_buf = heap_strdupWtoA(cookie_container->lpCookieData);
304 if(!dyn_buf || !WriteFile(cookie_handle, dyn_buf, strlen(dyn_buf), NULL, NULL)) {
310 if(!WriteFile(cookie_handle, "\n", 1, NULL, NULL)) {
315 dyn_buf = heap_strdupWtoA(domain->lpCookieDomain);
316 if(!dyn_buf || !WriteFile(cookie_handle, dyn_buf, strlen(dyn_buf), NULL, NULL)) {
323 dyn_buf = heap_strdupWtoA(domain->lpCookiePath);
324 if(!dyn_buf || !WriteFile(cookie_handle, dyn_buf, strlen(dyn_buf), NULL, NULL)) {
331 sprintf(buf, "\n%u\n%u\n%u\n%u\n%u\n*\n", cookie_container->flags,
332 cookie_container->expiry.dwLowDateTime, cookie_container->expiry.dwHighDateTime,
333 cookie_container->create.dwLowDateTime, cookie_container->create.dwHighDateTime);
334 if(!WriteFile(cookie_handle, buf, strlen(buf), NULL, NULL)) {
340 CloseHandle(cookie_handle);
342 ERR("error saving cookie file\n");
343 DeleteFileW(cookie_file);
347 memset(&time, 0, sizeof(time));
348 return CommitUrlCacheEntryW(cookie_url, cookie_file, time, time, 0, NULL, 0, txtW, 0);
351 /* adds a cookie to the domain */
352 static cookie *COOKIE_addCookie(cookie_domain *domain, LPCWSTR name, LPCWSTR data,
353 FILETIME expiry, FILETIME create, DWORD flags)
355 cookie *newCookie = heap_alloc(sizeof(cookie));
359 newCookie->lpCookieName = heap_strdupW(name);
360 newCookie->lpCookieData = heap_strdupW(data);
362 if (!newCookie->lpCookieName || !newCookie->lpCookieData)
364 heap_free(newCookie->lpCookieName);
365 heap_free(newCookie->lpCookieData);
366 heap_free(newCookie);
371 newCookie->flags = flags;
372 newCookie->expiry = expiry;
373 newCookie->create = create;
375 TRACE("added cookie %p (data is %s)\n", newCookie, debugstr_w(data) );
377 list_add_tail(&domain->cookie_list, &newCookie->entry);
378 newCookie->parent = domain;
383 /* finds a cookie in the domain matching the cookie name */
384 static cookie *COOKIE_findCookie(cookie_domain *domain, LPCWSTR lpszCookieName)
386 struct list * cursor;
387 TRACE("(%p, %s)\n", domain, debugstr_w(lpszCookieName));
389 LIST_FOR_EACH(cursor, &domain->cookie_list)
391 cookie *searchCookie = LIST_ENTRY(cursor, cookie, entry);
392 BOOL candidate = TRUE;
393 if (candidate && lpszCookieName)
395 if (candidate && !searchCookie->lpCookieName)
397 if (candidate && strcmpW(lpszCookieName, searchCookie->lpCookieName) != 0)
406 /* removes a cookie from the list, if its the last cookie we also remove the domain */
407 static void COOKIE_deleteCookie(cookie *deadCookie, BOOL deleteDomain)
409 heap_free(deadCookie->lpCookieName);
410 heap_free(deadCookie->lpCookieData);
411 list_remove(&deadCookie->entry);
413 /* special case: last cookie, lets remove the domain to save memory */
414 if (list_empty(&deadCookie->parent->cookie_list) && deleteDomain)
415 COOKIE_deleteDomain(deadCookie->parent);
416 heap_free(deadCookie);
419 /* allocates a domain and adds it to the end */
420 static cookie_domain *COOKIE_addDomain(LPCWSTR domain, LPCWSTR path)
422 cookie_domain *newDomain = heap_alloc(sizeof(cookie_domain));
424 list_init(&newDomain->entry);
425 list_init(&newDomain->cookie_list);
426 newDomain->lpCookieDomain = heap_strdupW(domain);
427 newDomain->lpCookiePath = heap_strdupW(path);
429 list_add_tail(&domain_list, &newDomain->entry);
431 TRACE("Adding domain: %p\n", newDomain);
435 static BOOL COOKIE_crackUrlSimple(LPCWSTR lpszUrl, LPWSTR hostName, int hostNameLen, LPWSTR path, int pathLen)
437 URL_COMPONENTSW UrlComponents;
439 UrlComponents.lpszExtraInfo = NULL;
440 UrlComponents.lpszPassword = NULL;
441 UrlComponents.lpszScheme = NULL;
442 UrlComponents.lpszUrlPath = path;
443 UrlComponents.lpszUserName = NULL;
444 UrlComponents.lpszHostName = hostName;
445 UrlComponents.dwExtraInfoLength = 0;
446 UrlComponents.dwPasswordLength = 0;
447 UrlComponents.dwSchemeLength = 0;
448 UrlComponents.dwUserNameLength = 0;
449 UrlComponents.dwHostNameLength = hostNameLen;
450 UrlComponents.dwUrlPathLength = pathLen;
452 if (!InternetCrackUrlW(lpszUrl, 0, 0, &UrlComponents)) return FALSE;
454 /* discard the webpage off the end of the path */
455 if (UrlComponents.dwUrlPathLength)
457 if (path[UrlComponents.dwUrlPathLength - 1] != '/')
460 if ((ptr = strrchrW(path, '/'))) *(++ptr) = 0;
468 else if (pathLen >= 2)
476 /* match a domain. domain must match if the domain is not NULL. path must match if the path is not NULL */
477 static BOOL COOKIE_matchDomain(LPCWSTR lpszCookieDomain, LPCWSTR lpszCookiePath,
478 cookie_domain *searchDomain, BOOL allow_partial)
480 TRACE("searching on domain %p\n", searchDomain);
481 if (lpszCookieDomain)
483 if (!searchDomain->lpCookieDomain)
486 TRACE("comparing domain %s with %s\n",
487 debugstr_w(lpszCookieDomain),
488 debugstr_w(searchDomain->lpCookieDomain));
490 if (allow_partial && !strstrW(lpszCookieDomain, searchDomain->lpCookieDomain))
492 else if (!allow_partial && lstrcmpW(lpszCookieDomain, searchDomain->lpCookieDomain) != 0)
498 TRACE("comparing paths: %s with %s\n", debugstr_w(lpszCookiePath), debugstr_w(searchDomain->lpCookiePath));
499 /* paths match at the beginning. so a path of /foo would match
500 * /foobar and /foo/bar
502 if (!searchDomain->lpCookiePath)
506 len = lstrlenW(searchDomain->lpCookiePath);
507 if (strncmpiW(searchDomain->lpCookiePath, lpszCookiePath, len)!=0)
510 else if (strcmpW(lpszCookiePath, searchDomain->lpCookiePath))
517 /* remove a domain from the list and delete it */
518 static void COOKIE_deleteDomain(cookie_domain *deadDomain)
520 struct list * cursor;
521 while ((cursor = list_tail(&deadDomain->cookie_list)))
523 COOKIE_deleteCookie(LIST_ENTRY(cursor, cookie, entry), FALSE);
526 heap_free(deadDomain->lpCookieDomain);
527 heap_free(deadDomain->lpCookiePath);
529 list_remove(&deadDomain->entry);
531 heap_free(deadDomain);
534 DWORD get_cookie(const WCHAR *host, const WCHAR *path, WCHAR *cookie_data, DWORD *size)
536 unsigned cnt = 0, len, name_len, domain_count = 0, cookie_count = 0;
537 WCHAR *ptr = cookie_data;
538 cookie_domain *domain;
541 GetSystemTimeAsFileTime(&tm);
543 EnterCriticalSection(&cookie_cs);
545 load_persistent_cookie(host, path);
547 LIST_FOR_EACH_ENTRY(domain, &domain_list, cookie_domain, entry) {
548 struct list *cursor, *cursor2;
550 if(!COOKIE_matchDomain(host, path, domain, TRUE))
554 TRACE("found domain %p\n", domain);
556 LIST_FOR_EACH_SAFE(cursor, cursor2, &domain->cookie_list) {
557 cookie *cookie_iter = LIST_ENTRY(cursor, cookie, entry);
559 /* check for expiry */
560 if((cookie_iter->expiry.dwLowDateTime != 0 || cookie_iter->expiry.dwHighDateTime != 0)
561 && CompareFileTime(&tm, &cookie_iter->expiry) > 0)
563 TRACE("Found expired cookie. deleting\n");
564 COOKIE_deleteCookie(cookie_iter, FALSE);
570 cnt += name_len = strlenW(cookie_iter->lpCookieName);
571 if ((len = strlenW(cookie_iter->lpCookieData))) {
583 memcpy(ptr, cookie_iter->lpCookieName, name_len*sizeof(WCHAR));
588 memcpy(ptr, cookie_iter->lpCookieData, len*sizeof(WCHAR));
592 assert(cookie_data+cnt == ptr);
593 TRACE("Cookie: %s\n", debugstr_wn(cookie_data, cnt));
595 /* Stop writing data, just compute the size */
604 LeaveCriticalSection(&cookie_cs);
610 TRACE("no cookies found for %s\n", debugstr_w(host));
611 return ERROR_NO_MORE_ITEMS;
614 if(!cookie_data || !ptr) {
615 *size = (cnt + 1) * sizeof(WCHAR);
616 TRACE("returning %u\n", *size);
617 return cookie_data ? ERROR_INSUFFICIENT_BUFFER : ERROR_SUCCESS;
622 TRACE("Returning %u (from %u domains): %s\n", cnt, domain_count, debugstr_w(cookie_data));
623 return ERROR_SUCCESS;
626 /***********************************************************************
627 * InternetGetCookieW (WININET.@)
629 * Retrieve cookie from the specified url
631 * It should be noted that on windows the lpszCookieName parameter is "not implemented".
632 * So it won't be implemented here.
639 BOOL WINAPI InternetGetCookieW(LPCWSTR lpszUrl, LPCWSTR lpszCookieName,
640 LPWSTR lpCookieData, LPDWORD lpdwSize)
642 WCHAR host[INTERNET_MAX_HOST_NAME_LENGTH], path[INTERNET_MAX_PATH_LENGTH];
646 TRACE("(%s, %s, %p, %p)\n", debugstr_w(lpszUrl),debugstr_w(lpszCookieName), lpCookieData, lpdwSize);
650 SetLastError(ERROR_INVALID_PARAMETER);
655 ret = COOKIE_crackUrlSimple(lpszUrl, host, sizeof(host)/sizeof(host[0]), path, sizeof(path)/sizeof(path[0]));
656 if (!ret || !host[0]) {
657 SetLastError(ERROR_INVALID_PARAMETER);
661 res = get_cookie(host, path, lpCookieData, lpdwSize);
662 if(res != ERROR_SUCCESS)
664 return res == ERROR_SUCCESS;
668 /***********************************************************************
669 * InternetGetCookieA (WININET.@)
671 * Retrieve cookie from the specified url
678 BOOL WINAPI InternetGetCookieA(LPCSTR lpszUrl, LPCSTR lpszCookieName,
679 LPSTR lpCookieData, LPDWORD lpdwSize)
685 TRACE("(%s %s %p %p(%u))\n", debugstr_a(lpszUrl), debugstr_a(lpszCookieName),
686 lpCookieData, lpdwSize, lpdwSize ? *lpdwSize : 0);
688 url = heap_strdupAtoW(lpszUrl);
689 name = heap_strdupAtoW(lpszCookieName);
691 r = InternetGetCookieW( url, name, NULL, &len );
696 szCookieData = heap_alloc(len * sizeof(WCHAR));
703 r = InternetGetCookieW( url, name, szCookieData, &len );
706 size = WideCharToMultiByte( CP_ACP, 0, szCookieData, len, NULL, 0, NULL, NULL);
708 if(*lpdwSize >= size) {
709 WideCharToMultiByte( CP_ACP, 0, szCookieData, len, lpCookieData, *lpdwSize, NULL, NULL);
711 SetLastError(ERROR_INSUFFICIENT_BUFFER);
718 heap_free( szCookieData );
727 /***********************************************************************
728 * IsDomainLegalCookieDomainW (WININET.@)
730 BOOL WINAPI IsDomainLegalCookieDomainW( LPCWSTR s1, LPCWSTR s2 )
732 DWORD s1_len, s2_len;
734 FIXME("(%s, %s) semi-stub\n", debugstr_w(s1), debugstr_w(s2));
738 SetLastError(ERROR_INVALID_PARAMETER);
741 if (s1[0] == '.' || !s1[0] || s2[0] == '.' || !s2[0])
743 SetLastError(ERROR_INVALID_NAME);
746 if(!strchrW(s1, '.') || !strchrW(s2, '.'))
749 s1_len = strlenW(s1);
750 s2_len = strlenW(s2);
754 if (strncmpiW(s1, s2+s2_len-s1_len, s1_len) || (s2_len>s1_len && s2[s2_len-s1_len-1]!='.'))
756 SetLastError(ERROR_INVALID_PARAMETER);
763 BOOL set_cookie(LPCWSTR domain, LPCWSTR path, LPCWSTR cookie_name, LPCWSTR cookie_data)
765 cookie_domain *thisCookieDomain = NULL;
770 FILETIME expiry, create;
771 BOOL expired = FALSE, update_persistent = FALSE;
774 value = data = heap_strdupW(cookie_data);
777 ERR("could not allocate the cookie data buffer\n");
781 memset(&expiry,0,sizeof(expiry));
782 GetSystemTimeAsFileTime(&create);
784 /* lots of information can be parsed out of the cookie value */
789 static const WCHAR szDomain[] = {'d','o','m','a','i','n','=',0};
790 static const WCHAR szPath[] = {'p','a','t','h','=',0};
791 static const WCHAR szExpires[] = {'e','x','p','i','r','e','s','=',0};
792 static const WCHAR szSecure[] = {'s','e','c','u','r','e',0};
793 static const WCHAR szHttpOnly[] = {'h','t','t','p','o','n','l','y',0};
795 if (!(ptr = strchrW(ptr,';'))) break;
798 if (value != data) heap_free(value);
799 value = heap_alloc((ptr - data) * sizeof(WCHAR));
803 ERR("could not allocate the cookie value buffer\n");
806 strcpyW(value, data);
808 while (*ptr == ' ') ptr++; /* whitespace */
810 if (strncmpiW(ptr, szDomain, 7) == 0)
814 ptr += sizeof(szDomain)/sizeof(szDomain[0])-1;
817 end_ptr = strchrW(ptr, ';');
821 if(!IsDomainLegalCookieDomainW(ptr, domain))
833 TRACE("Parsing new domain %s\n",debugstr_w(domain));
835 else if (strncmpiW(ptr, szPath, 5) == 0)
837 ptr+=strlenW(szPath);
839 TRACE("Parsing new path %s\n",debugstr_w(path));
841 else if (strncmpiW(ptr, szExpires, 8) == 0)
844 ptr+=strlenW(szExpires);
845 if (InternetTimeToSystemTimeW(ptr, &st, 0))
847 SystemTimeToFileTime(&st, &expiry);
849 if (CompareFileTime(&create,&expiry) > 0)
851 TRACE("Cookie already expired.\n");
856 else if (strncmpiW(ptr, szSecure, 6) == 0)
858 FIXME("secure not handled (%s)\n",debugstr_w(ptr));
859 ptr += strlenW(szSecure);
861 else if (strncmpiW(ptr, szHttpOnly, 8) == 0)
863 FIXME("httponly not handled (%s)\n",debugstr_w(ptr));
864 ptr += strlenW(szHttpOnly);
868 FIXME("Unknown additional option %s\n",debugstr_w(ptr));
873 EnterCriticalSection(&cookie_cs);
875 load_persistent_cookie(domain, path);
877 LIST_FOR_EACH(cursor, &domain_list)
879 thisCookieDomain = LIST_ENTRY(cursor, cookie_domain, entry);
880 if (COOKIE_matchDomain(domain, path, thisCookieDomain, FALSE))
882 thisCookieDomain = NULL;
885 if (!thisCookieDomain)
888 thisCookieDomain = COOKIE_addDomain(domain, path);
892 if (value != data) heap_free(value);
893 LeaveCriticalSection(&cookie_cs);
898 if(!expiry.dwLowDateTime && !expiry.dwHighDateTime)
899 flags |= INTERNET_COOKIE_IS_SESSION;
901 update_persistent = TRUE;
903 if ((thisCookie = COOKIE_findCookie(thisCookieDomain, cookie_name)))
905 if (!(thisCookie->flags & INTERNET_COOKIE_IS_SESSION))
906 update_persistent = TRUE;
907 COOKIE_deleteCookie(thisCookie, FALSE);
910 TRACE("setting cookie %s=%s for domain %s path %s\n", debugstr_w(cookie_name),
911 debugstr_w(value), debugstr_w(thisCookieDomain->lpCookieDomain),debugstr_w(thisCookieDomain->lpCookiePath));
913 if (!expired && !COOKIE_addCookie(thisCookieDomain, cookie_name, value, expiry, create, flags))
916 if (value != data) heap_free(value);
917 LeaveCriticalSection(&cookie_cs);
921 if (value != data) heap_free(value);
923 if (!update_persistent || save_persistent_cookie(thisCookieDomain))
925 LeaveCriticalSection(&cookie_cs);
928 LeaveCriticalSection(&cookie_cs);
932 /***********************************************************************
933 * InternetSetCookieW (WININET.@)
935 * Sets cookie for the specified url
942 BOOL WINAPI InternetSetCookieW(LPCWSTR lpszUrl, LPCWSTR lpszCookieName,
943 LPCWSTR lpCookieData)
946 WCHAR hostName[INTERNET_MAX_HOST_NAME_LENGTH], path[INTERNET_MAX_PATH_LENGTH];
948 TRACE("(%s,%s,%s)\n", debugstr_w(lpszUrl),
949 debugstr_w(lpszCookieName), debugstr_w(lpCookieData));
951 if (!lpszUrl || !lpCookieData)
953 SetLastError(ERROR_INVALID_PARAMETER);
958 ret = COOKIE_crackUrlSimple(lpszUrl, hostName, sizeof(hostName)/sizeof(hostName[0]), path, sizeof(path)/sizeof(path[0]));
959 if (!ret || !hostName[0]) return FALSE;
963 WCHAR *cookie, *data;
965 cookie = heap_strdupW(lpCookieData);
968 SetLastError(ERROR_OUTOFMEMORY);
972 /* some apps (or is it us??) try to add a cookie with no cookie name, but
973 * the cookie data in the form of name[=data].
975 if (!(data = strchrW(cookie, '='))) data = cookie + strlenW(cookie);
978 ret = set_cookie(hostName, path, cookie, data);
983 return set_cookie(hostName, path, lpszCookieName, lpCookieData);
987 /***********************************************************************
988 * InternetSetCookieA (WININET.@)
990 * Sets cookie for the specified url
997 BOOL WINAPI InternetSetCookieA(LPCSTR lpszUrl, LPCSTR lpszCookieName,
1000 LPWSTR data, url, name;
1003 TRACE("(%s,%s,%s)\n", debugstr_a(lpszUrl),
1004 debugstr_a(lpszCookieName), debugstr_a(lpCookieData));
1006 url = heap_strdupAtoW(lpszUrl);
1007 name = heap_strdupAtoW(lpszCookieName);
1008 data = heap_strdupAtoW(lpCookieData);
1010 r = InternetSetCookieW( url, name, data );
1018 /***********************************************************************
1019 * InternetSetCookieExA (WININET.@)
1021 * See InternetSetCookieExW.
1023 DWORD WINAPI InternetSetCookieExA( LPCSTR lpszURL, LPCSTR lpszCookieName, LPCSTR lpszCookieData,
1024 DWORD dwFlags, DWORD_PTR dwReserved)
1026 TRACE("(%s, %s, %s, 0x%08x, 0x%08lx)\n",
1027 debugstr_a(lpszURL), debugstr_a(lpszCookieName), debugstr_a(lpszCookieData),
1028 dwFlags, dwReserved);
1030 if (dwFlags) FIXME("flags 0x%08x not supported\n", dwFlags);
1031 return InternetSetCookieA(lpszURL, lpszCookieName, lpszCookieData);
1034 /***********************************************************************
1035 * InternetSetCookieExW (WININET.@)
1037 * Sets a cookie for the specified URL.
1044 DWORD WINAPI InternetSetCookieExW( LPCWSTR lpszURL, LPCWSTR lpszCookieName, LPCWSTR lpszCookieData,
1045 DWORD dwFlags, DWORD_PTR dwReserved)
1047 TRACE("(%s, %s, %s, 0x%08x, 0x%08lx)\n",
1048 debugstr_w(lpszURL), debugstr_w(lpszCookieName), debugstr_w(lpszCookieData),
1049 dwFlags, dwReserved);
1051 if (dwFlags) FIXME("flags 0x%08x not supported\n", dwFlags);
1052 return InternetSetCookieW(lpszURL, lpszCookieName, lpszCookieData);
1055 /***********************************************************************
1056 * InternetGetCookieExA (WININET.@)
1058 * See InternetGetCookieExW.
1060 BOOL WINAPI InternetGetCookieExA( LPCSTR pchURL, LPCSTR pchCookieName, LPSTR pchCookieData,
1061 LPDWORD pcchCookieData, DWORD dwFlags, LPVOID lpReserved)
1063 TRACE("(%s, %s, %s, %p, 0x%08x, %p)\n",
1064 debugstr_a(pchURL), debugstr_a(pchCookieName), debugstr_a(pchCookieData),
1065 pcchCookieData, dwFlags, lpReserved);
1067 if (dwFlags) FIXME("flags 0x%08x not supported\n", dwFlags);
1068 return InternetGetCookieA(pchURL, pchCookieName, pchCookieData, pcchCookieData);
1071 /***********************************************************************
1072 * InternetGetCookieExW (WININET.@)
1074 * Retrieve cookie for the specified URL.
1081 BOOL WINAPI InternetGetCookieExW( LPCWSTR pchURL, LPCWSTR pchCookieName, LPWSTR pchCookieData,
1082 LPDWORD pcchCookieData, DWORD dwFlags, LPVOID lpReserved)
1084 TRACE("(%s, %s, %s, %p, 0x%08x, %p)\n",
1085 debugstr_w(pchURL), debugstr_w(pchCookieName), debugstr_w(pchCookieData),
1086 pcchCookieData, dwFlags, lpReserved);
1088 if (dwFlags) FIXME("flags 0x%08x not supported\n", dwFlags);
1089 return InternetGetCookieW(pchURL, pchCookieName, pchCookieData, pcchCookieData);
1092 /***********************************************************************
1093 * InternetClearAllPerSiteCookieDecisions (WININET.@)
1095 * Clears all per-site decisions about cookies.
1102 BOOL WINAPI InternetClearAllPerSiteCookieDecisions( VOID )
1108 /***********************************************************************
1109 * InternetEnumPerSiteCookieDecisionA (WININET.@)
1111 * See InternetEnumPerSiteCookieDecisionW.
1113 BOOL WINAPI InternetEnumPerSiteCookieDecisionA( LPSTR pszSiteName, ULONG *pcSiteNameSize,
1114 ULONG *pdwDecision, ULONG dwIndex )
1116 FIXME("(%s, %p, %p, 0x%08x) stub\n",
1117 debugstr_a(pszSiteName), pcSiteNameSize, pdwDecision, dwIndex);
1121 /***********************************************************************
1122 * InternetEnumPerSiteCookieDecisionW (WININET.@)
1124 * Enumerates all per-site decisions about cookies.
1131 BOOL WINAPI InternetEnumPerSiteCookieDecisionW( LPWSTR pszSiteName, ULONG *pcSiteNameSize,
1132 ULONG *pdwDecision, ULONG dwIndex )
1134 FIXME("(%s, %p, %p, 0x%08x) stub\n",
1135 debugstr_w(pszSiteName), pcSiteNameSize, pdwDecision, dwIndex);
1139 /***********************************************************************
1140 * InternetGetPerSiteCookieDecisionA (WININET.@)
1142 BOOL WINAPI InternetGetPerSiteCookieDecisionA( LPCSTR pwchHostName, ULONG *pResult )
1144 FIXME("(%s, %p) stub\n", debugstr_a(pwchHostName), pResult);
1148 /***********************************************************************
1149 * InternetGetPerSiteCookieDecisionW (WININET.@)
1151 BOOL WINAPI InternetGetPerSiteCookieDecisionW( LPCWSTR pwchHostName, ULONG *pResult )
1153 FIXME("(%s, %p) stub\n", debugstr_w(pwchHostName), pResult);
1157 /***********************************************************************
1158 * InternetSetPerSiteCookieDecisionA (WININET.@)
1160 BOOL WINAPI InternetSetPerSiteCookieDecisionA( LPCSTR pchHostName, DWORD dwDecision )
1162 FIXME("(%s, 0x%08x) stub\n", debugstr_a(pchHostName), dwDecision);
1166 /***********************************************************************
1167 * InternetSetPerSiteCookieDecisionW (WININET.@)
1169 BOOL WINAPI InternetSetPerSiteCookieDecisionW( LPCWSTR pchHostName, DWORD dwDecision )
1171 FIXME("(%s, 0x%08x) stub\n", debugstr_w(pchHostName), dwDecision);
1175 void free_cookie(void)
1177 DeleteCriticalSection(&cookie_cs);