dlls/urlmon/internet.c

   1 /*
   2  * Copyright 2005 Jacek Caban
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "urlmon_main.h"
  20 #include "winreg.h"
  21 #include "shlwapi.h"
  22
  23 #include "wine/debug.h"
  24
  25 WINE_DEFAULT_DEBUG_CHANNEL(urlmon);
  26
  27 static HRESULT parse_schema(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
  28 {
  29     WCHAR *ptr;
  30     DWORD len = 0;
  31
  32     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
  33
  34     if(flags)
  35         ERR("wrong flags\n");
  36
  37     ptr = strchrW(url, ':');
  38     if(ptr)
  39         len = ptr-url;
  40
  41     if(len >= size)
  42         return E_POINTER;
  43
  44     if(len)
  45         memcpy(result, url, len*sizeof(WCHAR));
  46     result[len] = 0;
  47
  48     if(rsize)
  49         *rsize = len;
  50
  51     return S_OK;
  52 }
  53
  54 static HRESULT parse_canonicalize_url(LPCWSTR url, DWORD flags, LPWSTR result,
  55         DWORD size, DWORD *rsize)
  56 {
  57     IInternetProtocolInfo *protocol_info;
  58     DWORD prsize = size;
  59     HRESULT hres;
  60
  61     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
  62
  63     protocol_info = get_protocol_info(url);
  64
  65     if(protocol_info) {
  66         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_CANONICALIZE,
  67                 flags, result, size, rsize, 0);
  68         IInternetProtocolInfo_Release(protocol_info);
  69         if(SUCCEEDED(hres))
  70             return hres;
  71     }
  72
  73     hres = UrlCanonicalizeW(url, result, &prsize, flags);
  74
  75     if(rsize)
  76         *rsize = prsize;
  77     return hres;
  78 }
  79
  80 static HRESULT parse_security_url(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
  81 {
  82     IInternetProtocolInfo *protocol_info;
  83     HRESULT hres;
  84
  85     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
  86
  87     protocol_info = get_protocol_info(url);
  88
  89     if(protocol_info) {
  90         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_SECURITY_URL,
  91                 flags, result, size, rsize, 0);
  92         IInternetProtocolInfo_Release(protocol_info);
  93         return hres;
  94     }
  95
  96     return E_FAIL;
  97 }
  98
  99 static HRESULT parse_encode(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
 100 {
 101     IInternetProtocolInfo *protocol_info;
 102     DWORD prsize;
 103     HRESULT hres;
 104
 105     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
 106
 107     protocol_info = get_protocol_info(url);
 108
 109     if(protocol_info) {
 110         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_ENCODE,
 111                 flags, result, size, rsize, 0);
 112         IInternetProtocolInfo_Release(protocol_info);
 113         if(SUCCEEDED(hres))
 114             return hres;
 115     }
 116
 117     prsize = size;
 118     hres = UrlUnescapeW((LPWSTR)url, result, &prsize, flags);
 119
 120     if(rsize)
 121         *rsize = prsize;
 122
 123     return hres;
 124 }
 125
 126 static HRESULT parse_path_from_url(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
 127 {
 128     IInternetProtocolInfo *protocol_info;
 129     DWORD prsize;
 130     HRESULT hres;
 131
 132     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
 133
 134     protocol_info = get_protocol_info(url);
 135
 136     if(protocol_info) {
 137         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_PATH_FROM_URL,
 138                 flags, result, size, rsize, 0);
 139         IInternetProtocolInfo_Release(protocol_info);
 140         if(SUCCEEDED(hres))
 141             return hres;
 142     }
 143
 144     prsize = size;
 145     hres = PathCreateFromUrlW(url, result, &prsize, 0);
 146
 147     if(rsize)
 148         *rsize = prsize;
 149     return hres;
 150 }
 151
 152 static HRESULT parse_security_domain(LPCWSTR url, DWORD flags, LPWSTR result,
 153         DWORD size, DWORD *rsize)
 154 {
 155     IInternetProtocolInfo *protocol_info;
 156     HRESULT hres;
 157
 158     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
 159
 160     protocol_info = get_protocol_info(url);
 161
 162     if(protocol_info) {
 163         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_SECURITY_DOMAIN,
 164                 flags, result, size, rsize, 0);
 165         IInternetProtocolInfo_Release(protocol_info);
 166         if(SUCCEEDED(hres))
 167             return hres;
 168     }
 169
 170     return E_FAIL;
 171 }
 172
 173 /**************************************************************************
 174  *          CoInternetParseUrl    (URLMON.@)
 175  */
 176 HRESULT WINAPI CoInternetParseUrl(LPCWSTR pwzUrl, PARSEACTION ParseAction, DWORD dwFlags,
 177         LPWSTR pszResult, DWORD cchResult, DWORD *pcchResult, DWORD dwReserved)
 178 {
 179     if(dwReserved)
 180         WARN("dwReserved = %d\n", dwReserved);
 181
 182     switch(ParseAction) {
 183     case PARSE_CANONICALIZE:
 184         return parse_canonicalize_url(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
 185     case PARSE_SECURITY_URL:
 186         return parse_security_url(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
 187     case PARSE_ENCODE:
 188         return parse_encode(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
 189     case PARSE_PATH_FROM_URL:
 190         return parse_path_from_url(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
 191     case PARSE_SCHEMA:
 192         return parse_schema(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
 193     case PARSE_SECURITY_DOMAIN:
 194         return parse_security_domain(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
 195     default:
 196         FIXME("not supported action %d\n", ParseAction);
 197     }
 198
 199     return E_NOTIMPL;
 200 }
 201
 202 /**************************************************************************
 203  *          CoInternetCombineUrl    (URLMON.@)
 204  */
 205 HRESULT WINAPI CoInternetCombineUrl(LPCWSTR pwzBaseUrl, LPCWSTR pwzRelativeUrl,
 206         DWORD dwCombineFlags, LPWSTR pwzResult, DWORD cchResult, DWORD *pcchResult,
 207         DWORD dwReserved)
 208 {
 209     IInternetProtocolInfo *protocol_info;
 210     DWORD size = cchResult;
 211     HRESULT hres;
 212
 213     TRACE("(%s,%s,0x%08x,%p,%d,%p,%d)\n", debugstr_w(pwzBaseUrl),
 214           debugstr_w(pwzRelativeUrl), dwCombineFlags, pwzResult, cchResult, pcchResult,
 215           dwReserved);
 216
 217     protocol_info = get_protocol_info(pwzBaseUrl);
 218
 219     if(protocol_info) {
 220         hres = IInternetProtocolInfo_CombineUrl(protocol_info, pwzBaseUrl, pwzRelativeUrl,
 221                 dwCombineFlags, pwzResult, cchResult, pcchResult, dwReserved);
 222         IInternetProtocolInfo_Release(protocol_info);
 223         if(SUCCEEDED(hres))
 224             return hres;
 225     }
 226
 227
 228     hres = UrlCombineW(pwzBaseUrl, pwzRelativeUrl, pwzResult, &size, dwCombineFlags);
 229
 230     if(pcchResult)
 231         *pcchResult = size;
 232
 233     return hres;
 234 }
 235
 236 /**************************************************************************
 237  *          CoInternetCompareUrl    (URLMON.@)
 238  */
 239 HRESULT WINAPI CoInternetCompareUrl(LPCWSTR pwzUrl1, LPCWSTR pwzUrl2, DWORD dwCompareFlags)
 240 {
 241     IInternetProtocolInfo *protocol_info;
 242     HRESULT hres;
 243
 244     TRACE("(%s,%s,%08x)\n", debugstr_w(pwzUrl1), debugstr_w(pwzUrl2), dwCompareFlags);
 245
 246     protocol_info = get_protocol_info(pwzUrl1);
 247
 248     if(protocol_info) {
 249         hres = IInternetProtocolInfo_CompareUrl(protocol_info, pwzUrl1, pwzUrl2, dwCompareFlags);
 250         IInternetProtocolInfo_Release(protocol_info);
 251         if(SUCCEEDED(hres))
 252             return hres;
 253     }
 254
 255     return UrlCompareW(pwzUrl1, pwzUrl2, dwCompareFlags) ? S_FALSE : S_OK;
 256 }
 257
 258 /***********************************************************************
 259  *           CoInternetQueryInfo (URLMON.@)
 260  *
 261  * Retrieves information relevant to a specified URL
 262  *
 263  */
 264 HRESULT WINAPI CoInternetQueryInfo(LPCWSTR pwzUrl, QUERYOPTION QueryOption,
 265         DWORD dwQueryFlags, LPVOID pvBuffer, DWORD cbBuffer, DWORD *pcbBuffer,
 266         DWORD dwReserved)
 267 {
 268     IInternetProtocolInfo *protocol_info;
 269     HRESULT hres;
 270
 271     TRACE("(%s, %x, %x, %p, %x, %p, %x): stub\n", debugstr_w(pwzUrl),
 272           QueryOption, dwQueryFlags, pvBuffer, cbBuffer, pcbBuffer, dwReserved);
 273
 274     protocol_info = get_protocol_info(pwzUrl);
 275
 276     if(protocol_info) {
 277         hres = IInternetProtocolInfo_QueryInfo(protocol_info, pwzUrl, QueryOption, dwQueryFlags,
 278                 pvBuffer, cbBuffer, pcbBuffer, dwReserved);
 279         IInternetProtocolInfo_Release(protocol_info);
 280
 281         return SUCCEEDED(hres) ? hres : E_FAIL;
 282     }
 283
 284     switch(QueryOption) {
 285     case QUERY_USES_NETWORK:
 286         if(!pvBuffer || cbBuffer < sizeof(DWORD))
 287             return E_FAIL;
 288
 289         *(DWORD*)pvBuffer = 0;
 290         if(pcbBuffer)
 291             *pcbBuffer = sizeof(DWORD);
 292         break;
 293
 294     default:
 295         FIXME("Not supported option %d\n", QueryOption);
 296         return E_NOTIMPL;
 297     }
 298
 299     return S_OK;
 300 }
 301
 302 /***********************************************************************
 303  *             CoInternetSetFeatureEnabled (URLMON.@)
 304  */
 305 HRESULT WINAPI CoInternetSetFeatureEnabled(INTERNETFEATURELIST feature, DWORD flags, BOOL enable)
 306 {
 307     FIXME("%d, 0x%08x, %x, stub\n", feature, flags, enable);
 308     return E_NOTIMPL;
 309 }