dlls/wininet/utility.c - wine - Git at Google

 /*
  * Wininet - Utility functions
  *
  * Copyright 1999 Corel Corporation
  * Copyright 2002 CodeWeavers Inc.
  *
  * Ulrich Czekalla
  * Aric Stewart
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * This library is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with this library; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  */

 #include "ws2tcpip.h"

 #include <stdarg.h>
 #include <stdlib.h>
 #include <string.h>
 #include <time.h>

 #include "windef.h"
 #include "winbase.h"
 #include "wininet.h"
 #include "winnls.h"

 #include "wine/debug.h"
 #include "internet.h"

 WINE_DEFAULT_DEBUG_CHANNEL(wininet);

 #define TIME_STRING_LEN  30

 time_t ConvertTimeString(LPCWSTR asctime)
 {
     WCHAR tmpChar[TIME_STRING_LEN];
     WCHAR *tmpChar2;
     struct tm t;
     int timelen = strlenW(asctime);

     if(!timelen)
         return 0;

     /* FIXME: the atoiWs below rely on that tmpChar is \0 padded */
     memset( tmpChar, 0, sizeof(tmpChar) );
     lstrcpynW(tmpChar, asctime, TIME_STRING_LEN);

     /* Assert that the string is the expected length */
     if (strlenW(asctime) >= TIME_STRING_LEN) FIXME("\n");

     /* Convert a time such as 'Mon, 15 Nov 1999 16:09:35 GMT' into a SYSTEMTIME structure
      * We assume the time is in this format
      * and divide it into easy to swallow chunks
      */
     tmpChar[3]='\0';
     tmpChar[7]='\0';
     tmpChar[11]='\0';
     tmpChar[16]='\0';
     tmpChar[19]='\0';
     tmpChar[22]='\0';
     tmpChar[25]='\0';

     memset( &t, 0, sizeof(t) );
     t.tm_year = atoiW(tmpChar+12) - 1900;
     t.tm_mday = atoiW(tmpChar+5);
     t.tm_hour = atoiW(tmpChar+17);
     t.tm_min = atoiW(tmpChar+20);
     t.tm_sec = atoiW(tmpChar+23);

     /* and month */
     tmpChar2 = tmpChar + 8;
     switch(tmpChar2[2])
     {
         case 'n':
             if(tmpChar2[1]=='a')
                 t.tm_mon = 0;
             else
                 t.tm_mon = 5;
             break;
         case 'b':
             t.tm_mon = 1;
             break;
         case 'r':
             if(tmpChar2[1]=='a')
                 t.tm_mon = 2;
             else
                 t.tm_mon = 3;
             break;
         case 'y':
             t.tm_mon = 4;
             break;
         case 'l':
             t.tm_mon = 6;
             break;
         case 'g':
             t.tm_mon = 7;
             break;
         case 'p':
             t.tm_mon = 8;
             break;
         case 't':
             t.tm_mon = 9;
             break;
         case 'v':
             t.tm_mon = 10;
             break;
         case 'c':
             t.tm_mon = 11;
             break;
         default:
             FIXME("\n");
     }

     return mktime(&t);
 }


 BOOL GetAddress(const WCHAR *name, INTERNET_PORT port, struct sockaddr *psa, int *sa_len, char *addr_str)
 {
     ADDRINFOW *res, hints;
     void *addr = NULL;
     int ret;

     TRACE("%s\n", debugstr_w(name));

     memset( &hints, 0, sizeof(hints) );
     /* Prefer IPv4 to IPv6 addresses, since some servers do not listen on
      * their IPv6 addresses even though they have IPv6 addresses in the DNS.
      */
     hints.ai_family = AF_INET;

     ret = GetAddrInfoW(name, NULL, &hints, &res);
     if (ret != 0)
     {
         TRACE("failed to get IPv4 address of %s, retrying with IPv6\n", debugstr_w(name));
         hints.ai_family = AF_INET6;
         ret = GetAddrInfoW(name, NULL, &hints, &res);
     }
     if (ret != 0)
     {
         TRACE("failed to get address of %s\n", debugstr_w(name));
         return FALSE;
     }
     if (*sa_len < res->ai_addrlen)
     {
         WARN("address too small\n");
         FreeAddrInfoW(res);
         return FALSE;
     }
     *sa_len = res->ai_addrlen;
     memcpy( psa, res->ai_addr, res->ai_addrlen );
     /* Copy port */
     switch (res->ai_family)
     {
     case AF_INET:
         addr = &((struct sockaddr_in *)psa)->sin_addr;
         ((struct sockaddr_in *)psa)->sin_port = htons(port);
         break;
     case AF_INET6:
         addr = &((struct sockaddr_in6 *)psa)->sin6_addr;
         ((struct sockaddr_in6 *)psa)->sin6_port = htons(port);
         break;
     }

     if(addr_str)
         inet_ntop(res->ai_family, addr, addr_str, INET6_ADDRSTRLEN);
     FreeAddrInfoW(res);
     return TRUE;
 }

 /*
  * Helper function for sending async Callbacks
  */

 static const char *get_callback_name(DWORD dwInternetStatus) {
     static const wininet_flag_info internet_status[] = {
 #define FE(x) { x, #x }
 	FE(INTERNET_STATUS_RESOLVING_NAME),
 	FE(INTERNET_STATUS_NAME_RESOLVED),
 	FE(INTERNET_STATUS_CONNECTING_TO_SERVER),
 	FE(INTERNET_STATUS_CONNECTED_TO_SERVER),
 	FE(INTERNET_STATUS_SENDING_REQUEST),
 	FE(INTERNET_STATUS_REQUEST_SENT),
 	FE(INTERNET_STATUS_RECEIVING_RESPONSE),
 	FE(INTERNET_STATUS_RESPONSE_RECEIVED),
 	FE(INTERNET_STATUS_CTL_RESPONSE_RECEIVED),
 	FE(INTERNET_STATUS_PREFETCH),
 	FE(INTERNET_STATUS_CLOSING_CONNECTION),
 	FE(INTERNET_STATUS_CONNECTION_CLOSED),
 	FE(INTERNET_STATUS_HANDLE_CREATED),
 	FE(INTERNET_STATUS_HANDLE_CLOSING),
 	FE(INTERNET_STATUS_REQUEST_COMPLETE),
 	FE(INTERNET_STATUS_REDIRECT),
 	FE(INTERNET_STATUS_INTERMEDIATE_RESPONSE),
 	FE(INTERNET_STATUS_USER_INPUT_REQUIRED),
 	FE(INTERNET_STATUS_STATE_CHANGE),
 	FE(INTERNET_STATUS_COOKIE_SENT),
 	FE(INTERNET_STATUS_COOKIE_RECEIVED),
 	FE(INTERNET_STATUS_PRIVACY_IMPACTED),
 	FE(INTERNET_STATUS_P3P_HEADER),
 	FE(INTERNET_STATUS_P3P_POLICYREF),
 	FE(INTERNET_STATUS_COOKIE_HISTORY)
 #undef FE
     };
     DWORD i;

     for (i = 0; i < (sizeof(internet_status) / sizeof(internet_status[0])); i++) {
 	if (internet_status[i].val == dwInternetStatus) return internet_status[i].name;
     }
     return "Unknown";
 }

 static const char *debugstr_status_info(DWORD status, void *info)
 {
     switch(status) {
     case INTERNET_STATUS_REQUEST_COMPLETE: {
         INTERNET_ASYNC_RESULT *iar = info;
         return wine_dbg_sprintf("{%s, %d}", wine_dbgstr_longlong(iar->dwResult), iar->dwError);
     }
     default:
         return wine_dbg_sprintf("%p", info);
     }
 }

 void INTERNET_SendCallback(object_header_t *hdr, DWORD_PTR context, DWORD status, void *info, DWORD info_len)
 {
     void *new_info = info;

     if( !hdr->lpfnStatusCB )
         return;

     /* the IE5 version of wininet does not
        send callbacks if dwContext is zero */
     if(!context)
         return;

     switch(status) {
     case INTERNET_STATUS_NAME_RESOLVED:
     case INTERNET_STATUS_CONNECTING_TO_SERVER:
     case INTERNET_STATUS_CONNECTED_TO_SERVER:
         new_info = heap_alloc(info_len);
         if(new_info)
             memcpy(new_info, info, info_len);
         break;
     case INTERNET_STATUS_RESOLVING_NAME:
     case INTERNET_STATUS_REDIRECT:
         if(hdr->dwInternalFlags & INET_CALLBACKW) {
             new_info = heap_strdupW(info);
             break;
         }else {
             new_info = heap_strdupWtoA(info);
             info_len = strlen(new_info)+1;
             break;
         }
     }

     TRACE(" callback(%p) (%p (%p), %08lx, %d (%s), %s, %d)\n",
 	  hdr->lpfnStatusCB, hdr->hInternet, hdr, context, status, get_callback_name(status),
 	  debugstr_status_info(status, new_info), info_len);

     hdr->lpfnStatusCB(hdr->hInternet, context, status, new_info, info_len);

     TRACE(" end callback().\n");

     if(new_info != info)
         heap_free(new_info);
 }
	/*
	* Wininet - Utility functions
	*
	* Copyright 1999 Corel Corporation
	* Copyright 2002 CodeWeavers Inc.
	*
	* Ulrich Czekalla
	* Aric Stewart
	*
	* This library is free software; you can redistribute it and/or
	* modify it under the terms of the GNU Lesser General Public
	* License as published by the Free Software Foundation; either
	* version 2.1 of the License, or (at your option) any later version.
	*
	* This library is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	* Lesser General Public License for more details.
	*
	* You should have received a copy of the GNU Lesser General Public
	* License along with this library; if not, write to the Free Software
	* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
	*/

	#include "ws2tcpip.h"

	#include <stdarg.h>
	#include <stdlib.h>
	#include <string.h>
	#include <time.h>

	#include "windef.h"
	#include "winbase.h"
	#include "wininet.h"
	#include "winnls.h"

	#include "wine/debug.h"
	#include "internet.h"

	WINE_DEFAULT_DEBUG_CHANNEL(wininet);

	#define TIME_STRING_LEN 30

	time_t ConvertTimeString(LPCWSTR asctime)
	{
	WCHAR tmpChar[TIME_STRING_LEN];
	WCHAR *tmpChar2;
	struct tm t;
	int timelen = strlenW(asctime);

	if(!timelen)
	return 0;

	/* FIXME: the atoiWs below rely on that tmpChar is \0 padded */
	memset( tmpChar, 0, sizeof(tmpChar) );
	lstrcpynW(tmpChar, asctime, TIME_STRING_LEN);

	/* Assert that the string is the expected length */
	if (strlenW(asctime) >= TIME_STRING_LEN) FIXME("\n");

	/* Convert a time such as 'Mon, 15 Nov 1999 16:09:35 GMT' into a SYSTEMTIME structure
	* We assume the time is in this format
	* and divide it into easy to swallow chunks
	*/
	tmpChar[3]='\0';
	tmpChar[7]='\0';
	tmpChar[11]='\0';
	tmpChar[16]='\0';
	tmpChar[19]='\0';
	tmpChar[22]='\0';
	tmpChar[25]='\0';

	memset( &t, 0, sizeof(t) );
	t.tm_year = atoiW(tmpChar+12) - 1900;
	t.tm_mday = atoiW(tmpChar+5);
	t.tm_hour = atoiW(tmpChar+17);
	t.tm_min = atoiW(tmpChar+20);
	t.tm_sec = atoiW(tmpChar+23);

	/* and month */
	tmpChar2 = tmpChar + 8;
	switch(tmpChar2[2])
	{
	case 'n':
	if(tmpChar2[1]=='a')
	t.tm_mon = 0;
	else
	t.tm_mon = 5;
	break;
	case 'b':
	t.tm_mon = 1;
	break;
	case 'r':
	if(tmpChar2[1]=='a')
	t.tm_mon = 2;
	else
	t.tm_mon = 3;
	break;
	case 'y':
	t.tm_mon = 4;
	break;
	case 'l':
	t.tm_mon = 6;
	break;
	case 'g':
	t.tm_mon = 7;
	break;
	case 'p':
	t.tm_mon = 8;
	break;
	case 't':
	t.tm_mon = 9;
	break;
	case 'v':
	t.tm_mon = 10;
	break;
	case 'c':
	t.tm_mon = 11;
	break;
	default:
	FIXME("\n");
	}

	return mktime(&t);
	}


	BOOL GetAddress(const WCHAR name, INTERNET_PORT port, struct sockaddr psa, int sa_len, char addr_str)
	{
	ADDRINFOW *res, hints;
	void *addr = NULL;
	int ret;

	TRACE("%s\n", debugstr_w(name));

	memset( &hints, 0, sizeof(hints) );
	/* Prefer IPv4 to IPv6 addresses, since some servers do not listen on
	* their IPv6 addresses even though they have IPv6 addresses in the DNS.
	*/
	hints.ai_family = AF_INET;

	ret = GetAddrInfoW(name, NULL, &hints, &res);
	if (ret != 0)
	{
	TRACE("failed to get IPv4 address of %s, retrying with IPv6\n", debugstr_w(name));
	hints.ai_family = AF_INET6;
	ret = GetAddrInfoW(name, NULL, &hints, &res);
	}
	if (ret != 0)
	{
	TRACE("failed to get address of %s\n", debugstr_w(name));
	return FALSE;
	}
	if (*sa_len < res->ai_addrlen)
	{
	WARN("address too small\n");
	FreeAddrInfoW(res);
	return FALSE;
	}
	*sa_len = res->ai_addrlen;
	memcpy( psa, res->ai_addr, res->ai_addrlen );
	/* Copy port */
	switch (res->ai_family)
	{
	case AF_INET:
	addr = &((struct sockaddr_in *)psa)->sin_addr;
	((struct sockaddr_in *)psa)->sin_port = htons(port);
	break;
	case AF_INET6:
	addr = &((struct sockaddr_in6 *)psa)->sin6_addr;
	((struct sockaddr_in6 *)psa)->sin6_port = htons(port);
	break;
	}

	if(addr_str)
	inet_ntop(res->ai_family, addr, addr_str, INET6_ADDRSTRLEN);
	FreeAddrInfoW(res);
	return TRUE;
	}

	/*
	* Helper function for sending async Callbacks
	*/

	static const char *get_callback_name(DWORD dwInternetStatus) {
	static const wininet_flag_info internet_status[] = {
	#define FE(x) { x, #x }
	FE(INTERNET_STATUS_RESOLVING_NAME),
	FE(INTERNET_STATUS_NAME_RESOLVED),
	FE(INTERNET_STATUS_CONNECTING_TO_SERVER),
	FE(INTERNET_STATUS_CONNECTED_TO_SERVER),
	FE(INTERNET_STATUS_SENDING_REQUEST),
	FE(INTERNET_STATUS_REQUEST_SENT),
	FE(INTERNET_STATUS_RECEIVING_RESPONSE),
	FE(INTERNET_STATUS_RESPONSE_RECEIVED),
	FE(INTERNET_STATUS_CTL_RESPONSE_RECEIVED),
	FE(INTERNET_STATUS_PREFETCH),
	FE(INTERNET_STATUS_CLOSING_CONNECTION),
	FE(INTERNET_STATUS_CONNECTION_CLOSED),
	FE(INTERNET_STATUS_HANDLE_CREATED),
	FE(INTERNET_STATUS_HANDLE_CLOSING),
	FE(INTERNET_STATUS_REQUEST_COMPLETE),
	FE(INTERNET_STATUS_REDIRECT),
	FE(INTERNET_STATUS_INTERMEDIATE_RESPONSE),
	FE(INTERNET_STATUS_USER_INPUT_REQUIRED),
	FE(INTERNET_STATUS_STATE_CHANGE),
	FE(INTERNET_STATUS_COOKIE_SENT),
	FE(INTERNET_STATUS_COOKIE_RECEIVED),
	FE(INTERNET_STATUS_PRIVACY_IMPACTED),
	FE(INTERNET_STATUS_P3P_HEADER),
	FE(INTERNET_STATUS_P3P_POLICYREF),
	FE(INTERNET_STATUS_COOKIE_HISTORY)
	#undef FE
	};
	DWORD i;

	for (i = 0; i < (sizeof(internet_status) / sizeof(internet_status[0])); i++) {
	if (internet_status[i].val == dwInternetStatus) return internet_status[i].name;
	}
	return "Unknown";
	}

	static const char debugstr_status_info(DWORD status, void info)
	{
	switch(status) {
	case INTERNET_STATUS_REQUEST_COMPLETE: {
	INTERNET_ASYNC_RESULT *iar = info;
	return wine_dbg_sprintf("{%s, %d}", wine_dbgstr_longlong(iar->dwResult), iar->dwError);
	}
	default:
	return wine_dbg_sprintf("%p", info);
	}
	}

	void INTERNET_SendCallback(object_header_t hdr, DWORD_PTR context, DWORD status, void info, DWORD info_len)
	{
	void *new_info = info;

	if( !hdr->lpfnStatusCB )
	return;

	/* the IE5 version of wininet does not
	send callbacks if dwContext is zero */
	if(!context)
	return;

	switch(status) {
	case INTERNET_STATUS_NAME_RESOLVED:
	case INTERNET_STATUS_CONNECTING_TO_SERVER:
	case INTERNET_STATUS_CONNECTED_TO_SERVER:
	new_info = heap_alloc(info_len);
	if(new_info)
	memcpy(new_info, info, info_len);
	break;
	case INTERNET_STATUS_RESOLVING_NAME:
	case INTERNET_STATUS_REDIRECT:
	if(hdr->dwInternalFlags & INET_CALLBACKW) {
	new_info = heap_strdupW(info);
	break;
	}else {
	new_info = heap_strdupWtoA(info);
	info_len = strlen(new_info)+1;
	break;
	}
	}

	TRACE(" callback(%p) (%p (%p), %08lx, %d (%s), %s, %d)\n",
	hdr->lpfnStatusCB, hdr->hInternet, hdr, context, status, get_callback_name(status),
	debugstr_status_info(status, new_info), info_len);

	hdr->lpfnStatusCB(hdr->hInternet, context, status, new_info, info_len);

	TRACE(" end callback().\n");

	if(new_info != info)
	heap_free(new_info);
	}