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)
43 #include "wine/debug.h"
46 #define RESPONSE_TIMEOUT 30 /* FROM internet.c */
49 WINE_DEFAULT_DEBUG_CHANNEL(wininet);
52 * Cookies are currently memory only.
53 * Cookies are NOT THREAD SAFE
54 * Cookies could use A LOT OF MEMORY. We need some kind of memory management here!
57 typedef struct _cookie_domain cookie_domain;
58 typedef struct _cookie cookie;
64 struct _cookie_domain *parent;
75 LPWSTR lpCookieDomain;
77 struct list cookie_list;
80 static struct list domain_list = LIST_INIT(domain_list);
82 static cookie *COOKIE_addCookie(cookie_domain *domain, LPCWSTR name, LPCWSTR data, FILETIME expiry);
83 static cookie *COOKIE_findCookie(cookie_domain *domain, LPCWSTR lpszCookieName);
84 static void COOKIE_deleteCookie(cookie *deadCookie, BOOL deleteDomain);
85 static cookie_domain *COOKIE_addDomain(LPCWSTR domain, LPCWSTR path);
86 static void COOKIE_deleteDomain(cookie_domain *deadDomain);
89 /* adds a cookie to the domain */
90 static cookie *COOKIE_addCookie(cookie_domain *domain, LPCWSTR name, LPCWSTR data, FILETIME expiry)
92 cookie *newCookie = HeapAlloc(GetProcessHeap(), 0, sizeof(cookie));
94 list_init(&newCookie->entry);
95 newCookie->lpCookieName = NULL;
96 newCookie->lpCookieData = NULL;
97 newCookie->expiry = expiry;
98 newCookie->lpCookieName = heap_strdupW(name);
99 newCookie->lpCookieData = heap_strdupW(data);
101 TRACE("added cookie %p (data is %s)\n", newCookie, debugstr_w(data) );
103 list_add_tail(&domain->cookie_list, &newCookie->entry);
104 newCookie->parent = domain;
109 /* finds a cookie in the domain matching the cookie name */
110 static cookie *COOKIE_findCookie(cookie_domain *domain, LPCWSTR lpszCookieName)
112 struct list * cursor;
113 TRACE("(%p, %s)\n", domain, debugstr_w(lpszCookieName));
115 LIST_FOR_EACH(cursor, &domain->cookie_list)
117 cookie *searchCookie = LIST_ENTRY(cursor, cookie, entry);
118 BOOL candidate = TRUE;
119 if (candidate && lpszCookieName)
121 if (candidate && !searchCookie->lpCookieName)
123 if (candidate && strcmpW(lpszCookieName, searchCookie->lpCookieName) != 0)
132 /* removes a cookie from the list, if its the last cookie we also remove the domain */
133 static void COOKIE_deleteCookie(cookie *deadCookie, BOOL deleteDomain)
135 HeapFree(GetProcessHeap(), 0, deadCookie->lpCookieName);
136 HeapFree(GetProcessHeap(), 0, deadCookie->lpCookieData);
137 list_remove(&deadCookie->entry);
139 /* special case: last cookie, lets remove the domain to save memory */
140 if (list_empty(&deadCookie->parent->cookie_list) && deleteDomain)
141 COOKIE_deleteDomain(deadCookie->parent);
142 HeapFree(GetProcessHeap(), 0, deadCookie);
145 /* allocates a domain and adds it to the end */
146 static cookie_domain *COOKIE_addDomain(LPCWSTR domain, LPCWSTR path)
148 cookie_domain *newDomain = HeapAlloc(GetProcessHeap(), 0, sizeof(cookie_domain));
150 list_init(&newDomain->entry);
151 list_init(&newDomain->cookie_list);
152 newDomain->lpCookieDomain = NULL;
153 newDomain->lpCookiePath = NULL;
154 newDomain->lpCookieDomain = heap_strdupW(domain);
155 newDomain->lpCookiePath = heap_strdupW(path);
157 list_add_tail(&domain_list, &newDomain->entry);
159 TRACE("Adding domain: %p\n", newDomain);
163 static BOOL COOKIE_crackUrlSimple(LPCWSTR lpszUrl, LPWSTR hostName, int hostNameLen, LPWSTR path, int pathLen)
165 URL_COMPONENTSW UrlComponents;
168 UrlComponents.lpszExtraInfo = NULL;
169 UrlComponents.lpszPassword = NULL;
170 UrlComponents.lpszScheme = NULL;
171 UrlComponents.lpszUrlPath = path;
172 UrlComponents.lpszUserName = NULL;
173 UrlComponents.lpszHostName = hostName;
174 UrlComponents.dwExtraInfoLength = 0;
175 UrlComponents.dwPasswordLength = 0;
176 UrlComponents.dwSchemeLength = 0;
177 UrlComponents.dwUserNameLength = 0;
178 UrlComponents.dwHostNameLength = hostNameLen;
179 UrlComponents.dwUrlPathLength = pathLen;
181 rc = InternetCrackUrlW(lpszUrl, 0, 0, &UrlComponents);
183 /* discard the webpage off the end of the path */
184 if (pathLen > 0 && path[pathLen-1] != '/')
187 ptr = strrchrW(path,'/');
199 /* match a domain. domain must match if the domain is not NULL. path must match if the path is not NULL */
200 static BOOL COOKIE_matchDomain(LPCWSTR lpszCookieDomain, LPCWSTR lpszCookiePath,
201 cookie_domain *searchDomain, BOOL allow_partial)
203 TRACE("searching on domain %p\n", searchDomain);
204 if (lpszCookieDomain)
206 if (!searchDomain->lpCookieDomain)
209 TRACE("comparing domain %s with %s\n",
210 debugstr_w(lpszCookieDomain),
211 debugstr_w(searchDomain->lpCookieDomain));
213 if (allow_partial && !strstrW(lpszCookieDomain, searchDomain->lpCookieDomain))
215 else if (!allow_partial && lstrcmpW(lpszCookieDomain, searchDomain->lpCookieDomain) != 0)
221 TRACE("comparing paths: %s with %s\n", debugstr_w(lpszCookiePath), debugstr_w(searchDomain->lpCookiePath));
222 /* paths match at the beginning. so a path of /foo would match
223 * /foobar and /foo/bar
225 if (!searchDomain->lpCookiePath)
229 len = lstrlenW(searchDomain->lpCookiePath);
230 if (strncmpiW(searchDomain->lpCookiePath, lpszCookiePath, len)!=0)
233 else if (strcmpW(lpszCookiePath, searchDomain->lpCookiePath))
240 /* remove a domain from the list and delete it */
241 static void COOKIE_deleteDomain(cookie_domain *deadDomain)
243 struct list * cursor;
244 while ((cursor = list_tail(&deadDomain->cookie_list)))
246 COOKIE_deleteCookie(LIST_ENTRY(cursor, cookie, entry), FALSE);
250 HeapFree(GetProcessHeap(), 0, deadDomain->lpCookieDomain);
251 HeapFree(GetProcessHeap(), 0, deadDomain->lpCookiePath);
253 list_remove(&deadDomain->entry);
255 HeapFree(GetProcessHeap(), 0, deadDomain);
258 /***********************************************************************
259 * InternetGetCookieW (WININET.@)
261 * Retrieve cookie from the specified url
263 * It should be noted that on windows the lpszCookieName parameter is "not implemented".
264 * So it won't be implemented here.
271 BOOL WINAPI InternetGetCookieW(LPCWSTR lpszUrl, LPCWSTR lpszCookieName,
272 LPWSTR lpCookieData, LPDWORD lpdwSize)
275 struct list * cursor;
276 unsigned int cnt = 0, domain_count = 0, cookie_count = 0;
277 WCHAR hostName[2048], path[2048];
280 TRACE("(%s, %s, %p, %p)\n", debugstr_w(lpszUrl),debugstr_w(lpszCookieName),
281 lpCookieData, lpdwSize);
285 SetLastError(ERROR_INVALID_PARAMETER);
290 ret = COOKIE_crackUrlSimple(lpszUrl, hostName, sizeof(hostName)/sizeof(hostName[0]), path, sizeof(path)/sizeof(path[0]));
291 if (!ret || !hostName[0]) return FALSE;
293 GetSystemTimeAsFileTime(&tm);
295 LIST_FOR_EACH(cursor, &domain_list)
297 cookie_domain *cookiesDomain = LIST_ENTRY(cursor, cookie_domain, entry);
298 if (COOKIE_matchDomain(hostName, path, cookiesDomain, TRUE))
300 struct list * cursor;
302 TRACE("found domain %p\n", cookiesDomain);
304 LIST_FOR_EACH(cursor, &cookiesDomain->cookie_list)
306 cookie *thisCookie = LIST_ENTRY(cursor, cookie, entry);
307 /* check for expiry */
308 if ((thisCookie->expiry.dwLowDateTime != 0 || thisCookie->expiry.dwHighDateTime != 0) && CompareFileTime(&tm,&thisCookie->expiry) > 0)
310 TRACE("Found expired cookie. deleting\n");
311 COOKIE_deleteCookie(thisCookie, FALSE);
315 if (lpCookieData == NULL) /* return the size of the buffer required to lpdwSize */
319 if (cookie_count) cnt += 2; /* '; ' */
320 cnt += strlenW(thisCookie->lpCookieName);
321 if ((len = strlenW(thisCookie->lpCookieData)))
329 static const WCHAR szsc[] = { ';',' ',0 };
330 static const WCHAR szname[] = { '%','s',0 };
331 static const WCHAR szdata[] = { '=','%','s',0 };
333 if (cookie_count) cnt += snprintfW(lpCookieData + cnt, *lpdwSize - cnt, szsc);
334 cnt += snprintfW(lpCookieData + cnt, *lpdwSize - cnt, szname, thisCookie->lpCookieName);
336 if (thisCookie->lpCookieData[0])
337 cnt += snprintfW(lpCookieData + cnt, *lpdwSize - cnt, szdata, thisCookie->lpCookieData);
339 TRACE("Cookie: %s\n", debugstr_w(lpCookieData));
348 TRACE("no cookies found for %s\n", debugstr_w(hostName));
349 SetLastError(ERROR_NO_MORE_ITEMS);
353 if (lpCookieData == NULL)
355 *lpdwSize = (cnt + 1) * sizeof(WCHAR);
356 TRACE("returning %u\n", *lpdwSize);
362 TRACE("Returning %u (from %u domains): %s\n", cnt, domain_count,
363 debugstr_w(lpCookieData));
365 return (cnt ? TRUE : FALSE);
369 /***********************************************************************
370 * InternetGetCookieA (WININET.@)
372 * Retrieve cookie from the specified url
379 BOOL WINAPI InternetGetCookieA(LPCSTR lpszUrl, LPCSTR lpszCookieName,
380 LPSTR lpCookieData, LPDWORD lpdwSize)
383 LPWSTR szCookieData = NULL, url, name;
386 TRACE("(%s,%s,%p)\n", debugstr_a(lpszUrl), debugstr_a(lpszCookieName),
389 url = heap_strdupAtoW(lpszUrl);
390 name = heap_strdupAtoW(lpszCookieName);
392 r = InternetGetCookieW( url, name, NULL, &len );
395 szCookieData = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR) );
402 r = InternetGetCookieW( url, name, szCookieData, &len );
404 *lpdwSize = WideCharToMultiByte( CP_ACP, 0, szCookieData, len,
405 lpCookieData, *lpdwSize, NULL, NULL );
409 HeapFree( GetProcessHeap(), 0, szCookieData );
410 HeapFree( GetProcessHeap(), 0, name );
411 HeapFree( GetProcessHeap(), 0, url );
416 static BOOL set_cookie(LPCWSTR domain, LPCWSTR path, LPCWSTR cookie_name, LPCWSTR cookie_data)
418 cookie_domain *thisCookieDomain = NULL;
424 BOOL expired = FALSE;
426 value = data = heap_strdupW(cookie_data);
429 ERR("could not allocate %zu bytes for the cookie data buffer\n", (strlenW(cookie_data) + 1) * sizeof(WCHAR));
433 memset(&expiry,0,sizeof(expiry));
435 /* lots of information can be parsed out of the cookie value */
440 static const WCHAR szDomain[] = {'d','o','m','a','i','n','=',0};
441 static const WCHAR szPath[] = {'p','a','t','h','=',0};
442 static const WCHAR szExpires[] = {'e','x','p','i','r','e','s','=',0};
443 static const WCHAR szSecure[] = {'s','e','c','u','r','e',0};
444 static const WCHAR szHttpOnly[] = {'h','t','t','p','o','n','l','y',0};
446 if (!(ptr = strchrW(ptr,';'))) break;
450 HeapFree(GetProcessHeap(), 0, value);
451 value = HeapAlloc(GetProcessHeap(), 0, (ptr - data) * sizeof(WCHAR));
454 HeapFree(GetProcessHeap(), 0, data);
455 ERR("could not allocate %zu bytes for the cookie value buffer\n", (ptr - data) * sizeof(WCHAR));
458 strcpyW(value, data);
460 while (*ptr == ' ') ptr++; /* whitespace */
462 if (strncmpiW(ptr, szDomain, 7) == 0)
464 ptr+=strlenW(szDomain);
466 TRACE("Parsing new domain %s\n",debugstr_w(domain));
468 else if (strncmpiW(ptr, szPath, 5) == 0)
470 ptr+=strlenW(szPath);
472 TRACE("Parsing new path %s\n",debugstr_w(path));
474 else if (strncmpiW(ptr, szExpires, 8) == 0)
478 FIXME("persistent cookies not handled (%s)\n",debugstr_w(ptr));
479 ptr+=strlenW(szExpires);
480 if (InternetTimeToSystemTimeW(ptr, &st, 0))
482 SystemTimeToFileTime(&st, &expiry);
483 GetSystemTimeAsFileTime(&ft);
485 if (CompareFileTime(&ft,&expiry) > 0)
487 TRACE("Cookie already expired.\n");
492 else if (strncmpiW(ptr, szSecure, 6) == 0)
494 FIXME("secure not handled (%s)\n",debugstr_w(ptr));
495 ptr += strlenW(szSecure);
497 else if (strncmpiW(ptr, szHttpOnly, 8) == 0)
499 FIXME("httponly not handled (%s)\n",debugstr_w(ptr));
500 ptr += strlenW(szHttpOnly);
504 FIXME("Unknown additional option %s\n",debugstr_w(ptr));
509 LIST_FOR_EACH(cursor, &domain_list)
511 thisCookieDomain = LIST_ENTRY(cursor, cookie_domain, entry);
512 if (COOKIE_matchDomain(domain, path, thisCookieDomain, FALSE))
514 thisCookieDomain = NULL;
517 if (!thisCookieDomain)
520 thisCookieDomain = COOKIE_addDomain(domain, path);
523 HeapFree(GetProcessHeap(),0,data);
524 if (value != data) HeapFree(GetProcessHeap(), 0, value);
529 if ((thisCookie = COOKIE_findCookie(thisCookieDomain, cookie_name)))
530 COOKIE_deleteCookie(thisCookie, FALSE);
532 TRACE("setting cookie %s=%s for domain %s path %s\n", debugstr_w(cookie_name),
533 debugstr_w(value), debugstr_w(thisCookieDomain->lpCookieDomain),debugstr_w(thisCookieDomain->lpCookiePath));
535 if (!expired && !COOKIE_addCookie(thisCookieDomain, cookie_name, value, expiry))
537 HeapFree(GetProcessHeap(),0,data);
538 if (value != data) HeapFree(GetProcessHeap(), 0, value);
542 HeapFree(GetProcessHeap(),0,data);
543 if (value != data) HeapFree(GetProcessHeap(), 0, value);
547 /***********************************************************************
548 * InternetSetCookieW (WININET.@)
550 * Sets cookie for the specified url
557 BOOL WINAPI InternetSetCookieW(LPCWSTR lpszUrl, LPCWSTR lpszCookieName,
558 LPCWSTR lpCookieData)
561 WCHAR hostName[2048], path[2048];
563 TRACE("(%s,%s,%s)\n", debugstr_w(lpszUrl),
564 debugstr_w(lpszCookieName), debugstr_w(lpCookieData));
566 if (!lpszUrl || !lpCookieData)
568 SetLastError(ERROR_INVALID_PARAMETER);
572 hostName[0] = path[0] = 0;
573 ret = COOKIE_crackUrlSimple(lpszUrl, hostName, sizeof(hostName)/sizeof(hostName[0]), path, sizeof(path)/sizeof(path[0]));
574 if (!ret || !hostName[0]) return FALSE;
578 WCHAR *cookie, *data;
580 cookie = heap_strdupW(lpCookieData);
583 SetLastError(ERROR_OUTOFMEMORY);
587 /* some apps (or is it us??) try to add a cookie with no cookie name, but
588 * the cookie data in the form of name[=data].
590 if (!(data = strchrW(cookie, '='))) data = cookie + strlenW(cookie);
593 ret = set_cookie(hostName, path, cookie, data);
595 HeapFree(GetProcessHeap(), 0, cookie);
598 return set_cookie(hostName, path, lpszCookieName, lpCookieData);
602 /***********************************************************************
603 * InternetSetCookieA (WININET.@)
605 * Sets cookie for the specified url
612 BOOL WINAPI InternetSetCookieA(LPCSTR lpszUrl, LPCSTR lpszCookieName,
615 LPWSTR data, url, name;
618 TRACE("(%s,%s,%s)\n", debugstr_a(lpszUrl),
619 debugstr_a(lpszCookieName), debugstr_a(lpCookieData));
621 url = heap_strdupAtoW(lpszUrl);
622 name = heap_strdupAtoW(lpszCookieName);
623 data = heap_strdupAtoW(lpCookieData);
625 r = InternetSetCookieW( url, name, data );
627 HeapFree( GetProcessHeap(), 0, data );
628 HeapFree( GetProcessHeap(), 0, name );
629 HeapFree( GetProcessHeap(), 0, url );
634 /***********************************************************************
635 * InternetSetCookieExA (WININET.@)
637 * See InternetSetCookieExW.
639 DWORD WINAPI InternetSetCookieExA( LPCSTR lpszURL, LPCSTR lpszCookieName, LPCSTR lpszCookieData,
640 DWORD dwFlags, DWORD_PTR dwReserved)
642 TRACE("(%s, %s, %s, 0x%08x, 0x%08lx)\n",
643 debugstr_a(lpszURL), debugstr_a(lpszCookieName), debugstr_a(lpszCookieData),
644 dwFlags, dwReserved);
646 if (dwFlags) FIXME("flags 0x%08x not supported\n", dwFlags);
647 return InternetSetCookieA(lpszURL, lpszCookieName, lpszCookieData);
650 /***********************************************************************
651 * InternetSetCookieExW (WININET.@)
653 * Sets a cookie for the specified URL.
660 DWORD WINAPI InternetSetCookieExW( LPCWSTR lpszURL, LPCWSTR lpszCookieName, LPCWSTR lpszCookieData,
661 DWORD dwFlags, DWORD_PTR dwReserved)
663 TRACE("(%s, %s, %s, 0x%08x, 0x%08lx)\n",
664 debugstr_w(lpszURL), debugstr_w(lpszCookieName), debugstr_w(lpszCookieData),
665 dwFlags, dwReserved);
667 if (dwFlags) FIXME("flags 0x%08x not supported\n", dwFlags);
668 return InternetSetCookieW(lpszURL, lpszCookieName, lpszCookieData);
671 /***********************************************************************
672 * InternetGetCookieExA (WININET.@)
674 * See InternetGetCookieExW.
676 BOOL WINAPI InternetGetCookieExA( LPCSTR pchURL, LPCSTR pchCookieName, LPSTR pchCookieData,
677 LPDWORD pcchCookieData, DWORD dwFlags, LPVOID lpReserved)
679 TRACE("(%s, %s, %s, %p, 0x%08x, %p)\n",
680 debugstr_a(pchURL), debugstr_a(pchCookieName), debugstr_a(pchCookieData),
681 pcchCookieData, dwFlags, lpReserved);
683 if (dwFlags) FIXME("flags 0x%08x not supported\n", dwFlags);
684 return InternetGetCookieA(pchURL, pchCookieName, pchCookieData, pcchCookieData);
687 /***********************************************************************
688 * InternetGetCookieExW (WININET.@)
690 * Retrieve cookie for the specified URL.
697 BOOL WINAPI InternetGetCookieExW( LPCWSTR pchURL, LPCWSTR pchCookieName, LPWSTR pchCookieData,
698 LPDWORD pcchCookieData, DWORD dwFlags, LPVOID lpReserved)
700 TRACE("(%s, %s, %s, %p, 0x%08x, %p)\n",
701 debugstr_w(pchURL), debugstr_w(pchCookieName), debugstr_w(pchCookieData),
702 pcchCookieData, dwFlags, lpReserved);
704 if (dwFlags) FIXME("flags 0x%08x not supported\n", dwFlags);
705 return InternetGetCookieW(pchURL, pchCookieName, pchCookieData, pcchCookieData);
708 /***********************************************************************
709 * InternetClearAllPerSiteCookieDecisions (WININET.@)
711 * Clears all per-site decisions about cookies.
718 BOOL WINAPI InternetClearAllPerSiteCookieDecisions( VOID )
724 /***********************************************************************
725 * InternetEnumPerSiteCookieDecisionA (WININET.@)
727 * See InternetEnumPerSiteCookieDecisionW.
729 BOOL WINAPI InternetEnumPerSiteCookieDecisionA( LPSTR pszSiteName, ULONG *pcSiteNameSize,
730 ULONG *pdwDecision, ULONG dwIndex )
732 FIXME("(%s, %p, %p, 0x%08x) stub\n",
733 debugstr_a(pszSiteName), pcSiteNameSize, pdwDecision, dwIndex);
737 /***********************************************************************
738 * InternetEnumPerSiteCookieDecisionW (WININET.@)
740 * Enumerates all per-site decisions about cookies.
747 BOOL WINAPI InternetEnumPerSiteCookieDecisionW( LPWSTR pszSiteName, ULONG *pcSiteNameSize,
748 ULONG *pdwDecision, ULONG dwIndex )
750 FIXME("(%s, %p, %p, 0x%08x) stub\n",
751 debugstr_w(pszSiteName), pcSiteNameSize, pdwDecision, dwIndex);
755 /***********************************************************************
756 * InternetGetPerSiteCookieDecisionA (WININET.@)
758 BOOL WINAPI InternetGetPerSiteCookieDecisionA( LPCSTR pwchHostName, ULONG *pResult )
760 FIXME("(%s, %p) stub\n", debugstr_a(pwchHostName), pResult);
764 /***********************************************************************
765 * InternetGetPerSiteCookieDecisionW (WININET.@)
767 BOOL WINAPI InternetGetPerSiteCookieDecisionW( LPCWSTR pwchHostName, ULONG *pResult )
769 FIXME("(%s, %p) stub\n", debugstr_w(pwchHostName), pResult);
773 /***********************************************************************
774 * InternetSetPerSiteCookieDecisionA (WININET.@)
776 BOOL WINAPI InternetSetPerSiteCookieDecisionA( LPCSTR pchHostName, DWORD dwDecision )
778 FIXME("(%s, 0x%08x) stub\n", debugstr_a(pchHostName), dwDecision);
782 /***********************************************************************
783 * InternetSetPerSiteCookieDecisionW (WININET.@)
785 BOOL WINAPI InternetSetPerSiteCookieDecisionW( LPCWSTR pchHostName, DWORD dwDecision )
787 FIXME("(%s, 0x%08x) stub\n", debugstr_w(pchHostName), dwDecision);
791 /***********************************************************************
792 * IsDomainLegalCookieDomainW (WININET.@)
794 BOOL WINAPI IsDomainLegalCookieDomainW( LPCWSTR s1, LPCWSTR s2 )
798 FIXME("(%s, %s)\n", debugstr_w(s1), debugstr_w(s2));
802 SetLastError(ERROR_INVALID_PARAMETER);
805 if (s1[0] == '.' || !s1[0] || s2[0] == '.' || !s2[0])
807 SetLastError(ERROR_INVALID_NAME);
810 if (!(p = strchrW(s2, '.'))) return FALSE;
811 if (strchrW(p + 1, '.') && !strcmpW(p + 1, s1)) return TRUE;
812 else if (!strcmpW(s1, s2)) return TRUE;