dlls/wininet/cookie.c

   1 /*
   2  * Wininet - cookie handling stuff
   3  *
   4  * Copyright 2002 TransGaming Technologies Inc.
   5  *
   6  * David Hammerton
   7  *
   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.
  12  *
  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.
  17  *
  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
  21  */
  22
  23 #include "config.h"
  24 #include "wine/port.h"
  25
  26 #include <stdarg.h>
  27 #include <stdio.h>
  28 #include <stdlib.h>
  29 #include <string.h>
  30 #ifdef HAVE_UNISTD_H
  31 # include <unistd.h>
  32 #endif
  33
  34 #include "windef.h"
  35 #include "winbase.h"
  36 #include "wininet.h"
  37 #include "winerror.h"
  38
  39 #include "wine/debug.h"
  40 #include "internet.h"
  41
  42 #define RESPONSE_TIMEOUT        30            /* FROM internet.c */
  43
  44
  45 WINE_DEFAULT_DEBUG_CHANNEL(wininet);
  46
  47 /* FIXME
  48  *     Cookies are currently memory only.
  49  *     Cookies are NOT THREAD SAFE
  50  *     Cookies could use A LOT OF MEMORY. We need some kind of memory management here!
  51  *     Cookies should care about the expiry time
  52  */
  53
  54 typedef struct _cookie_domain cookie_domain;
  55 typedef struct _cookie cookie;
  56
  57 struct _cookie
  58 {
  59     struct list entry;
  60
  61     struct _cookie_domain *parent;
  62
  63     LPWSTR lpCookieName;
  64     LPWSTR lpCookieData;
  65     time_t expiry; /* FIXME: not used */
  66 };
  67
  68 struct _cookie_domain
  69 {
  70     struct list entry;
  71
  72     LPWSTR lpCookieDomain;
  73     LPWSTR lpCookiePath;
  74     struct list cookie_list;
  75 };
  76
  77 static struct list domain_list = LIST_INIT(domain_list);
  78
  79 static cookie *COOKIE_addCookie(cookie_domain *domain, LPCWSTR name, LPCWSTR data);
  80 static cookie *COOKIE_findCookie(cookie_domain *domain, LPCWSTR lpszCookieName);
  81 static void COOKIE_deleteCookie(cookie *deadCookie, BOOL deleteDomain);
  82 static cookie_domain *COOKIE_addDomain(LPCWSTR domain, LPCWSTR path);
  83 static void COOKIE_deleteDomain(cookie_domain *deadDomain);
  84
  85
  86 /* adds a cookie to the domain */
  87 static cookie *COOKIE_addCookie(cookie_domain *domain, LPCWSTR name, LPCWSTR data)
  88 {
  89     cookie *newCookie = HeapAlloc(GetProcessHeap(), 0, sizeof(cookie));
  90
  91     list_init(&newCookie->entry);
  92     newCookie->lpCookieName = NULL;
  93     newCookie->lpCookieData = NULL;
  94
  95     if (name)
  96     {
  97         newCookie->lpCookieName = HeapAlloc(GetProcessHeap(), 0, (strlenW(name) + 1)*sizeof(WCHAR));
  98         lstrcpyW(newCookie->lpCookieName, name);
  99     }
 100     if (data)
 101     {
 102         newCookie->lpCookieData = HeapAlloc(GetProcessHeap(), 0, (strlenW(data) + 1)*sizeof(WCHAR));
 103         lstrcpyW(newCookie->lpCookieData, data);
 104     }
 105
 106     TRACE("added cookie %p (data is %s)\n", newCookie, debugstr_w(data) );
 107
 108     list_add_tail(&domain->cookie_list, &newCookie->entry);
 109     newCookie->parent = domain;
 110     return newCookie;
 111 }
 112
 113
 114 /* finds a cookie in the domain matching the cookie name */
 115 static cookie *COOKIE_findCookie(cookie_domain *domain, LPCWSTR lpszCookieName)
 116 {
 117     struct list * cursor;
 118     TRACE("(%p, %s)\n", domain, debugstr_w(lpszCookieName));
 119
 120     LIST_FOR_EACH(cursor, &domain->cookie_list)
 121     {
 122         cookie *searchCookie = LIST_ENTRY(cursor, cookie, entry);
 123         BOOL candidate = TRUE;
 124         if (candidate && lpszCookieName)
 125         {
 126             if (candidate && !searchCookie->lpCookieName)
 127                 candidate = FALSE;
 128             if (candidate && strcmpW(lpszCookieName, searchCookie->lpCookieName) != 0)
 129                 candidate = FALSE;
 130         }
 131         if (candidate)
 132             return searchCookie;
 133     }
 134     return NULL;
 135 }
 136
 137 /* removes a cookie from the list, if its the last cookie we also remove the domain */
 138 static void COOKIE_deleteCookie(cookie *deadCookie, BOOL deleteDomain)
 139 {
 140     HeapFree(GetProcessHeap(), 0, deadCookie->lpCookieName);
 141     HeapFree(GetProcessHeap(), 0, deadCookie->lpCookieData);
 142     list_remove(&deadCookie->entry);
 143
 144     /* special case: last cookie, lets remove the domain to save memory */
 145     if (list_empty(&deadCookie->parent->cookie_list) && deleteDomain)
 146         COOKIE_deleteDomain(deadCookie->parent);
 147     HeapFree(GetProcessHeap(), 0, deadCookie);
 148 }
 149
 150 /* allocates a domain and adds it to the end */
 151 static cookie_domain *COOKIE_addDomain(LPCWSTR domain, LPCWSTR path)
 152 {
 153     cookie_domain *newDomain = HeapAlloc(GetProcessHeap(), 0, sizeof(cookie_domain));
 154
 155     list_init(&newDomain->entry);
 156     list_init(&newDomain->cookie_list);
 157     newDomain->lpCookieDomain = NULL;
 158     newDomain->lpCookiePath = NULL;
 159
 160     if (domain)
 161     {
 162         newDomain->lpCookieDomain = HeapAlloc(GetProcessHeap(), 0, (strlenW(domain) + 1)*sizeof(WCHAR));
 163         strcpyW(newDomain->lpCookieDomain, domain);
 164     }
 165     if (path)
 166     {
 167         newDomain->lpCookiePath = HeapAlloc(GetProcessHeap(), 0, (strlenW(path) + 1)*sizeof(WCHAR));
 168         lstrcpyW(newDomain->lpCookiePath, path);
 169     }
 170
 171     list_add_tail(&domain_list, &newDomain->entry);
 172
 173     TRACE("Adding domain: %p\n", newDomain);
 174     return newDomain;
 175 }
 176
 177 static BOOL COOKIE_crackUrlSimple(LPCWSTR lpszUrl, LPWSTR hostName, int hostNameLen, LPWSTR path, int pathLen)
 178 {
 179     URL_COMPONENTSW UrlComponents;
 180
 181     UrlComponents.lpszExtraInfo = NULL;
 182     UrlComponents.lpszPassword = NULL;
 183     UrlComponents.lpszScheme = NULL;
 184     UrlComponents.lpszUrlPath = path;
 185     UrlComponents.lpszUserName = NULL;
 186     UrlComponents.lpszHostName = hostName;
 187     UrlComponents.dwExtraInfoLength = 0;
 188     UrlComponents.dwPasswordLength = 0;
 189     UrlComponents.dwSchemeLength = 0;
 190     UrlComponents.dwUserNameLength = 0;
 191     UrlComponents.dwHostNameLength = hostNameLen;
 192     UrlComponents.dwUrlPathLength = pathLen;
 193
 194     return InternetCrackUrlW(lpszUrl, 0, 0, &UrlComponents);
 195 }
 196
 197 /* match a domain. domain must match if the domain is not NULL. path must match if the path is not NULL */
 198 static BOOL COOKIE_matchDomain(LPCWSTR lpszCookieDomain, LPCWSTR lpszCookiePath,
 199                                cookie_domain *searchDomain, BOOL allow_partial)
 200 {
 201     TRACE("searching on domain %p\n", searchDomain);
 202         if (lpszCookieDomain)
 203         {
 204             if (!searchDomain->lpCookieDomain)
 205             return FALSE;
 206
 207             TRACE("comparing domain %s with %s\n",
 208             debugstr_w(lpszCookieDomain),
 209             debugstr_w(searchDomain->lpCookieDomain));
 210
 211         if (allow_partial && !strstrW(lpszCookieDomain, searchDomain->lpCookieDomain))
 212             return FALSE;
 213         else if (!allow_partial && lstrcmpW(lpszCookieDomain, searchDomain->lpCookieDomain) != 0)
 214             return FALSE;
 215         }
 216     if (lpszCookiePath)
 217     {
 218         TRACE("comparing paths: %s with %s\n", debugstr_w(lpszCookiePath), debugstr_w(searchDomain->lpCookiePath));
 219         if (!searchDomain->lpCookiePath)
 220             return FALSE;
 221         if (strcmpW(lpszCookiePath, searchDomain->lpCookiePath))
 222             return FALSE;
 223         }
 224         return TRUE;
 225 }
 226
 227 /* remove a domain from the list and delete it */
 228 static void COOKIE_deleteDomain(cookie_domain *deadDomain)
 229 {
 230     struct list * cursor;
 231     while ((cursor = list_tail(&deadDomain->cookie_list)))
 232     {
 233         COOKIE_deleteCookie(LIST_ENTRY(cursor, cookie, entry), FALSE);
 234         list_remove(cursor);
 235     }
 236
 237     HeapFree(GetProcessHeap(), 0, deadDomain->lpCookieDomain);
 238     HeapFree(GetProcessHeap(), 0, deadDomain->lpCookiePath);
 239
 240     list_remove(&deadDomain->entry);
 241
 242     HeapFree(GetProcessHeap(), 0, deadDomain);
 243 }
 244
 245 /***********************************************************************
 246  *           InternetGetCookieW (WININET.@)
 247  *
 248  * Retrieve cookie from the specified url
 249  *
 250  *  It should be noted that on windows the lpszCookieName parameter is "not implemented".
 251  *    So it won't be implemented here.
 252  *
 253  * RETURNS
 254  *    TRUE  on success
 255  *    FALSE on failure
 256  *
 257  */
 258 BOOL WINAPI InternetGetCookieW(LPCWSTR lpszUrl, LPCWSTR lpszCookieName,
 259     LPWSTR lpCookieData, LPDWORD lpdwSize)
 260 {
 261     struct list * cursor;
 262     int cnt = 0, domain_count = 0;
 263     int cookie_count = 0;
 264     WCHAR hostName[2048], path[2048];
 265
 266     TRACE("(%s, %s, %p, %p)\n", debugstr_w(lpszUrl),debugstr_w(lpszCookieName),
 267           lpCookieData, lpdwSize);
 268
 269     if (!lpszUrl)
 270     {
 271         SetLastError(ERROR_INTERNET_UNRECOGNIZED_SCHEME);
 272         return FALSE;
 273     }
 274
 275     COOKIE_crackUrlSimple(lpszUrl, hostName, sizeof(hostName)/sizeof(hostName[0]), path, sizeof(path)/sizeof(path[0]));
 276
 277     LIST_FOR_EACH(cursor, &domain_list)
 278     {
 279         cookie_domain *cookiesDomain = LIST_ENTRY(cursor, cookie_domain, entry);
 280         if (COOKIE_matchDomain(hostName, NULL /* FIXME: path */, cookiesDomain, TRUE))
 281         {
 282             struct list * cursor;
 283             domain_count++;
 284             TRACE("found domain %p\n", cookiesDomain);
 285
 286             LIST_FOR_EACH(cursor, &cookiesDomain->cookie_list)
 287             {
 288                 cookie *thisCookie = LIST_ENTRY(cursor, cookie, entry);
 289                 if (lpCookieData == NULL) /* return the size of the buffer required to lpdwSize */
 290                 {
 291                     if (cookie_count != 0)
 292                         cnt += 2; /* '; ' */
 293                     cnt += strlenW(thisCookie->lpCookieName);
 294                     cnt += 1; /* = */
 295                     cnt += strlenW(thisCookie->lpCookieData);
 296                 }
 297                 else
 298                 {
 299                     static const WCHAR szsc[] = { ';',' ',0 };
 300                     static const WCHAR szpseq[] = { '%','s','=','%','s',0 };
 301                     if (cookie_count != 0)
 302                         cnt += snprintfW(lpCookieData + cnt, *lpdwSize - cnt, szsc);
 303                     cnt += snprintfW(lpCookieData + cnt, *lpdwSize - cnt, szpseq,
 304                                     thisCookie->lpCookieName,
 305                                     thisCookie->lpCookieData);
 306                     TRACE("Cookie: %s=%s\n", debugstr_w(thisCookie->lpCookieName), debugstr_w(thisCookie->lpCookieData));
 307                 }
 308                 cookie_count++;
 309             }
 310         }
 311     }
 312
 313     if (!domain_count)
 314     {
 315         TRACE("no cookies found for %s\n", debugstr_w(hostName));
 316         SetLastError(ERROR_NO_MORE_ITEMS);
 317         return FALSE;
 318     }
 319
 320     if (lpCookieData == NULL)
 321     {
 322         cnt += 1; /* NULL */
 323         *lpdwSize = cnt*sizeof(WCHAR);
 324         TRACE("returning\n");
 325         return TRUE;
 326     }
 327
 328     *lpdwSize = (cnt + 1)*sizeof(WCHAR);
 329
 330     TRACE("Returning %i (from %i domains): %s\n", cnt, domain_count,
 331            debugstr_w(lpCookieData));
 332
 333     return (cnt ? TRUE : FALSE);
 334 }
 335
 336
 337 /***********************************************************************
 338  *           InternetGetCookieA (WININET.@)
 339  *
 340  * Retrieve cookie from the specified url
 341  *
 342  * RETURNS
 343  *    TRUE  on success
 344  *    FALSE on failure
 345  *
 346  */
 347 BOOL WINAPI InternetGetCookieA(LPCSTR lpszUrl, LPCSTR lpszCookieName,
 348     LPSTR lpCookieData, LPDWORD lpdwSize)
 349 {
 350     DWORD len;
 351     LPWSTR szCookieData = NULL, szUrl = NULL, szCookieName = NULL;
 352     BOOL r;
 353
 354     TRACE("(%s,%s,%p)\n", debugstr_a(lpszUrl), debugstr_a(lpszCookieName),
 355         lpCookieData);
 356
 357     if( lpszUrl )
 358     {
 359         len = MultiByteToWideChar( CP_ACP, 0, lpszUrl, -1, NULL, 0 );
 360         szUrl = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 361         MultiByteToWideChar( CP_ACP, 0, lpszUrl, -1, szUrl, len );
 362     }
 363
 364     if( lpszCookieName )
 365     {
 366         len = MultiByteToWideChar( CP_ACP, 0, lpszCookieName, -1, NULL, 0 );
 367         szCookieName = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 368         MultiByteToWideChar( CP_ACP, 0, lpszCookieName, -1, szCookieName, len );
 369     }
 370
 371     r = InternetGetCookieW( szUrl, szCookieName, NULL, &len );
 372     if( r )
 373     {
 374         szCookieData = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 375         if( !szCookieData )
 376         {
 377             r = FALSE;
 378         }
 379         else
 380         {
 381             r = InternetGetCookieW( szUrl, szCookieName, szCookieData, &len );
 382
 383             *lpdwSize = WideCharToMultiByte( CP_ACP, 0, szCookieData, len,
 384                                     lpCookieData, *lpdwSize, NULL, NULL );
 385         }
 386     }
 387
 388     HeapFree( GetProcessHeap(), 0, szCookieData );
 389     HeapFree( GetProcessHeap(), 0, szCookieName );
 390     HeapFree( GetProcessHeap(), 0, szUrl );
 391
 392     return r;
 393 }
 394
 395 static BOOL set_cookie(LPCWSTR domain, LPCWSTR path, LPCWSTR cookie_name, LPCWSTR cookie_data)
 396 {
 397     cookie_domain *thisCookieDomain = NULL;
 398     cookie *thisCookie;
 399     struct list *cursor;
 400
 401     LIST_FOR_EACH(cursor, &domain_list)
 402     {
 403         thisCookieDomain = LIST_ENTRY(cursor, cookie_domain, entry);
 404         if (COOKIE_matchDomain(domain, NULL /* FIXME: path */, thisCookieDomain, FALSE))
 405             break;
 406         thisCookieDomain = NULL;
 407     }
 408
 409     if (!thisCookieDomain)
 410         thisCookieDomain = COOKIE_addDomain(domain, path);
 411
 412     if ((thisCookie = COOKIE_findCookie(thisCookieDomain, cookie_name)))
 413         COOKIE_deleteCookie(thisCookie, FALSE);
 414
 415     TRACE("setting cookie %s=%s for domain %s\n", debugstr_w(cookie_name),
 416           debugstr_w(cookie_data), debugstr_w(thisCookieDomain->lpCookieDomain));
 417
 418     if (!COOKIE_addCookie(thisCookieDomain, cookie_name, cookie_data))
 419         return FALSE;
 420
 421     return TRUE;
 422 }
 423
 424 /***********************************************************************
 425  *           InternetSetCookieW (WININET.@)
 426  *
 427  * Sets cookie for the specified url
 428  *
 429  * RETURNS
 430  *    TRUE  on success
 431  *    FALSE on failure
 432  *
 433  */
 434 BOOL WINAPI InternetSetCookieW(LPCWSTR lpszUrl, LPCWSTR lpszCookieName,
 435     LPCWSTR lpCookieData)
 436 {
 437     BOOL ret;
 438     WCHAR hostName[2048], path[2048];
 439
 440     TRACE("(%s,%s,%s)\n", debugstr_w(lpszUrl),
 441         debugstr_w(lpszCookieName), debugstr_w(lpCookieData));
 442
 443     if (!lpszUrl || !lpCookieData)
 444     {
 445         SetLastError(ERROR_INVALID_PARAMETER);
 446         return FALSE;
 447     }
 448
 449     hostName[0] = 0;
 450     ret = COOKIE_crackUrlSimple(lpszUrl, hostName, sizeof(hostName)/sizeof(hostName[0]), path, sizeof(path)/sizeof(path[0]));
 451     if (!ret || !hostName[0]) return FALSE;
 452
 453     if (!lpszCookieName)
 454     {
 455         unsigned int len;
 456         WCHAR *cookie, *data;
 457
 458         len = strlenW(lpCookieData);
 459         if (!(cookie = HeapAlloc(GetProcessHeap(), 0, (len + 1) * sizeof(WCHAR))))
 460         {
 461             SetLastError(ERROR_OUTOFMEMORY);
 462             return FALSE;
 463         }
 464         strcpyW(cookie, lpCookieData);
 465
 466         /* some apps (or is it us??) try to add a cookie with no cookie name, but
 467          * the cookie data in the form of name[=data].
 468          */
 469         if (!(data = strchrW(cookie, '='))) data = cookie + len;
 470         else data++;
 471
 472         ret = set_cookie(hostName, path, cookie, data);
 473
 474         HeapFree(GetProcessHeap(), 0, cookie);
 475         return ret;
 476     }
 477     return set_cookie(hostName, path, lpszCookieName, lpCookieData);
 478 }
 479
 480
 481 /***********************************************************************
 482  *           InternetSetCookieA (WININET.@)
 483  *
 484  * Sets cookie for the specified url
 485  *
 486  * RETURNS
 487  *    TRUE  on success
 488  *    FALSE on failure
 489  *
 490  */
 491 BOOL WINAPI InternetSetCookieA(LPCSTR lpszUrl, LPCSTR lpszCookieName,
 492     LPCSTR lpCookieData)
 493 {
 494     DWORD len;
 495     LPWSTR szCookieData = NULL, szUrl = NULL, szCookieName = NULL;
 496     BOOL r;
 497
 498     TRACE("(%s,%s,%s)\n", debugstr_a(lpszUrl),
 499         debugstr_a(lpszCookieName), debugstr_a(lpCookieData));
 500
 501     if( lpszUrl )
 502     {
 503         len = MultiByteToWideChar( CP_ACP, 0, lpszUrl, -1, NULL, 0 );
 504         szUrl = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 505         MultiByteToWideChar( CP_ACP, 0, lpszUrl, -1, szUrl, len );
 506     }
 507
 508     if( lpszCookieName )
 509     {
 510         len = MultiByteToWideChar( CP_ACP, 0, lpszCookieName, -1, NULL, 0 );
 511         szCookieName = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 512         MultiByteToWideChar( CP_ACP, 0, lpszCookieName, -1, szCookieName, len );
 513     }
 514
 515     if( lpCookieData )
 516     {
 517         len = MultiByteToWideChar( CP_ACP, 0, lpCookieData, -1, NULL, 0 );
 518         szCookieData = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
 519         MultiByteToWideChar( CP_ACP, 0, lpCookieData, -1, szCookieData, len );
 520     }
 521
 522     r = InternetSetCookieW( szUrl, szCookieName, szCookieData );
 523
 524     HeapFree( GetProcessHeap(), 0, szCookieData );
 525     HeapFree( GetProcessHeap(), 0, szCookieName );
 526     HeapFree( GetProcessHeap(), 0, szUrl );
 527
 528     return r;
 529 }
 530
 531 /***********************************************************************
 532  *           InternetSetCookieExA (WININET.@)
 533  *
 534  * See InternetSetCookieExW.
 535  */
 536 DWORD WINAPI InternetSetCookieExA( LPCSTR lpszURL, LPCSTR lpszCookieName, LPCSTR lpszCookieData,
 537                                    DWORD dwFlags, DWORD_PTR dwReserved)
 538 {
 539     FIXME("(%s, %s, %s, 0x%08x, 0x%08lx) stub\n",
 540           debugstr_a(lpszURL), debugstr_a(lpszCookieName), debugstr_a(lpszCookieData),
 541           dwFlags, dwReserved);
 542     return TRUE;
 543 }
 544
 545 /***********************************************************************
 546  *           InternetSetCookieExW (WININET.@)
 547  *
 548  * Sets a cookie for the specified URL.
 549  *
 550  * RETURNS
 551  *    TRUE  on success
 552  *    FALSE on failure
 553  *
 554  */
 555 DWORD WINAPI InternetSetCookieExW( LPCWSTR lpszURL, LPCWSTR lpszCookieName, LPCWSTR lpszCookieData,
 556                                    DWORD dwFlags, DWORD_PTR dwReserved)
 557 {
 558     FIXME("(%s, %s, %s, 0x%08x, 0x%08lx) stub\n",
 559           debugstr_w(lpszURL), debugstr_w(lpszCookieName), debugstr_w(lpszCookieData),
 560           dwFlags, dwReserved);
 561     return TRUE;
 562 }
 563
 564 /***********************************************************************
 565  *           InternetGetCookieExA (WININET.@)
 566  *
 567  * See InternetGetCookieExW.
 568  */
 569 BOOL WINAPI InternetGetCookieExA( LPCSTR pchURL, LPCSTR pchCookieName, LPSTR pchCookieData,
 570                                   LPDWORD pcchCookieData, DWORD dwFlags, LPVOID lpReserved)
 571 {
 572     FIXME("(%s, %s, %s, %p, 0x%08x, %p) stub\n",
 573           debugstr_a(pchURL), debugstr_a(pchCookieName), debugstr_a(pchCookieData),
 574           pcchCookieData, dwFlags, lpReserved);
 575     return FALSE;
 576 }
 577
 578 /***********************************************************************
 579  *           InternetGetCookieExW (WININET.@)
 580  *
 581  * Retrieve cookie for the specified URL.
 582  *
 583  * RETURNS
 584  *    TRUE  on success
 585  *    FALSE on failure
 586  *
 587  */
 588 BOOL WINAPI InternetGetCookieExW( LPCWSTR pchURL, LPCWSTR pchCookieName, LPWSTR pchCookieData,
 589                                   LPDWORD pcchCookieData, DWORD dwFlags, LPVOID lpReserved)
 590 {
 591     FIXME("(%s, %s, %s, %p, 0x%08x, %p) stub\n",
 592           debugstr_w(pchURL), debugstr_w(pchCookieName), debugstr_w(pchCookieData),
 593           pcchCookieData, dwFlags, lpReserved);
 594     return FALSE;
 595 }
 596
 597 /***********************************************************************
 598  *           InternetClearAllPerSiteCookieDecisions (WININET.@)
 599  *
 600  * Clears all per-site decisions about cookies.
 601  *
 602  * RETURNS
 603  *    TRUE  on success
 604  *    FALSE on failure
 605  *
 606  */
 607 BOOL WINAPI InternetClearAllPerSiteCookieDecisions( VOID )
 608 {
 609     FIXME("stub\n");
 610     return TRUE;
 611 }
 612
 613 /***********************************************************************
 614  *           InternetEnumPerSiteCookieDecisionA (WININET.@)
 615  *
 616  * See InternetEnumPerSiteCookieDecisionW.
 617  */
 618 BOOL WINAPI InternetEnumPerSiteCookieDecisionA( LPSTR pszSiteName, unsigned long *pcSiteNameSize,
 619                                                 unsigned long *pdwDecision, unsigned long dwIndex )
 620 {
 621     FIXME("(%s, %p, %p, 0x%08lx) stub\n",
 622           debugstr_a(pszSiteName), pcSiteNameSize, pdwDecision, dwIndex);
 623     return FALSE;
 624 }
 625
 626 /***********************************************************************
 627  *           InternetEnumPerSiteCookieDecisionW (WININET.@)
 628  *
 629  * Enumerates all per-site decisions about cookies.
 630  *
 631  * RETURNS
 632  *    TRUE  on success
 633  *    FALSE on failure
 634  *
 635  */
 636 BOOL WINAPI InternetEnumPerSiteCookieDecisionW( LPWSTR pszSiteName, unsigned long *pcSiteNameSize,
 637                                                 unsigned long *pdwDecision, unsigned long dwIndex )
 638 {
 639     FIXME("(%s, %p, %p, 0x%08lx) stub\n",
 640           debugstr_w(pszSiteName), pcSiteNameSize, pdwDecision, dwIndex);
 641     return FALSE;
 642 }
 643
 644 /***********************************************************************
 645  *           InternetGetPerSiteCookieDecisionA (WININET.@)
 646  */
 647 BOOL WINAPI InternetGetPerSiteCookieDecisionA( LPCSTR pwchHostName, unsigned long *pResult )
 648 {
 649     FIXME("(%s, %p) stub\n", debugstr_a(pwchHostName), pResult);
 650     return FALSE;
 651 }
 652
 653 /***********************************************************************
 654  *           InternetGetPerSiteCookieDecisionW (WININET.@)
 655  */
 656 BOOL WINAPI InternetGetPerSiteCookieDecisionW( LPCWSTR pwchHostName, unsigned long *pResult )
 657 {
 658     FIXME("(%s, %p) stub\n", debugstr_w(pwchHostName), pResult);
 659     return FALSE;
 660 }
 661
 662 /***********************************************************************
 663  *           InternetSetPerSiteCookieDecisionA (WININET.@)
 664  */
 665 BOOL WINAPI InternetSetPerSiteCookieDecisionA( LPCSTR pchHostName, DWORD dwDecision )
 666 {
 667     FIXME("(%s, 0x%08x) stub\n", debugstr_a(pchHostName), dwDecision);
 668     return FALSE;
 669 }
 670
 671 /***********************************************************************
 672  *           InternetSetPerSiteCookieDecisionW (WININET.@)
 673  */
 674 BOOL WINAPI InternetSetPerSiteCookieDecisionW( LPCWSTR pchHostName, DWORD dwDecision )
 675 {
 676     FIXME("(%s, 0x%08x) stub\n", debugstr_w(pchHostName), dwDecision);
 677     return FALSE;
 678 }