From 98343e325c0d38c4e2ad1695c9aa02e3586ea794 Mon Sep 17 00:00:00 2001
From: Marcus Meissner <marcus@jet.franken.de>
Date: Mon, 10 Sep 2001 23:12:42 +0000
Subject: [PATCH] More debug output for InternetGetCookie, added stub for
 InternetSetCookie.

---
 dlls/wininet/internet.c   | 23 ++++++++++++++++++++---
 dlls/wininet/wininet.spec |  4 ++--
 2 files changed, 22 insertions(+), 5 deletions(-)

diff --git a/dlls/wininet/internet.c b/dlls/wininet/internet.c
index d33e15bd21..6a5b8c9192 100644
--- a/dlls/wininet/internet.c
+++ b/dlls/wininet/internet.c
@@ -932,10 +932,27 @@ BOOL WINAPI InternetQueryOptionA(HINTERNET hInternet, DWORD dwOption,
 BOOL WINAPI InternetGetCookieA(LPCSTR lpszUrl, LPCSTR lpszCookieName, 
 		LPSTR lpCookieData, LPDWORD lpdwSize)
 {
-    FIXME("Stub\n");
-	return FALSE;
+    FIXME("(%s,%s,%p), stub!\n",debugstr_a(lpszUrl),debugstr_a(lpszCookieName),
+	    lpCookieData
+    );
+    return FALSE;
+}
+/***********************************************************************
+ *           InternetSetCookieA (WININET.@)
+ *
+ * Sets cookie for the specified url
+ *
+ * RETURNS
+ *    TRUE  on success
+ *    FALSE on failure
+ *
+ */
+BOOL WINAPI InternetSetCookieA(
+	LPCSTR lpszUrl, LPCSTR lpszCookieName, LPCSTR lpCookieData
+) {
+    FIXME("(%s,%s,%s), stub!\n",debugstr_a(lpszUrl),debugstr_a(lpszCookieName),debugstr_a(lpCookieData));
+    return FALSE;
 }
-
 
 /***********************************************************************
  *           GetInternetScheme (internal)
diff --git a/dlls/wininet/wininet.spec b/dlls/wininet/wininet.spec
index 1afa8ec8a4..f43a565b6e 100644
--- a/dlls/wininet/wininet.spec
+++ b/dlls/wininet/wininet.spec
@@ -114,7 +114,7 @@ debug_channels (wininet)
 @ stub InternetFindNextFileW
 @ stub InternetGetCertByURL
 @ stdcall InternetGetConnectedState(ptr long) InternetGetConnectedState
-@ stdcall InternetGetCookieA(str str str long) InternetGetCookieA
+@ stdcall InternetGetCookieA(str str ptr long) InternetGetCookieA
 @ stub InternetGetCookieW
 @ stdcall InternetGetLastResponseInfoA(ptr str ptr) InternetGetLastResponseInfoA
 @ stub InternetGetLastResponseInfoW
@@ -133,7 +133,7 @@ debug_channels (wininet)
 @ stub InternetReadFileExA
 @ stub InternetReadFileExW
 @ stub InternetServerPushParse
-@ stub InternetSetCookieA
+@ stdcall InternetSetCookieA(str str str) InternetSetCookieA
 @ stub InternetSetCookieW
 @ stub InternetSetDialState
 @ stub InternetSetFilePointer