dlls/jsproxy/main.c

   1 /*
   2  * Copyright 2014 Hans Leidekker for CodeWeavers
   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 "config.h"
  20 #include "wine/port.h"
  21
  22 #include <stdarg.h>
  23 #include <sys/types.h>
  24 #ifdef HAVE_SYS_SOCKET_H
  25 # include <sys/socket.h>
  26 #endif
  27 #ifdef HAVE_NETINET_IN_H
  28 # include <netinet/in.h>
  29 #endif
  30 #ifdef HAVE_NETDB_H
  31 # include <netdb.h>
  32 #endif
  33 #if defined(__MINGW32__) || defined (_MSC_VER)
  34 # include <ws2tcpip.h>
  35 #else
  36 # define closesocket close
  37 # define ioctlsocket ioctl
  38 #endif
  39
  40 #include "windef.h"
  41 #include "winbase.h"
  42 #ifndef __MINGW32__
  43 #define USE_WS_PREFIX
  44 #endif
  45 #include "winsock2.h"
  46 #include "ws2ipdef.h"
  47 #include "winnls.h"
  48 #include "wininet.h"
  49 #define COBJMACROS
  50 #include "ole2.h"
  51 #include "dispex.h"
  52 #include "activscp.h"
  53 #include "wine/debug.h"
  54 #include "wine/heap.h"
  55 #include "wine/unicode.h"
  56
  57 static HINSTANCE instance;
  58
  59 WINE_DEFAULT_DEBUG_CHANNEL(jsproxy);
  60
  61 static CRITICAL_SECTION cs_jsproxy;
  62 static CRITICAL_SECTION_DEBUG critsect_debug =
  63 {
  64     0, 0, &cs_jsproxy,
  65     { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
  66       0, 0, { (DWORD_PTR)(__FILE__ ": cs_jsproxy") }
  67 };
  68 static CRITICAL_SECTION cs_jsproxy = { &critsect_debug, -1, 0, 0, 0, 0 };
  69
  70 static const WCHAR global_funcsW[] = {'g','l','o','b','a','l','_','f','u','n','c','s',0};
  71 static const WCHAR dns_resolveW[] = {'d','n','s','_','r','e','s','o','l','v','e',0};
  72
  73 /******************************************************************
  74  *      DllMain (jsproxy.@)
  75  */
  76 BOOL WINAPI DllMain( HINSTANCE hinst, DWORD reason, LPVOID reserved )
  77 {
  78     switch (reason)
  79     {
  80     case DLL_PROCESS_ATTACH:
  81         instance = hinst;
  82         DisableThreadLibraryCalls( hinst );
  83         break;
  84
  85     case DLL_PROCESS_DETACH:
  86         break;
  87     }
  88     return TRUE;
  89 }
  90
  91 static inline WCHAR *strdupAW( const char *src, int len )
  92 {
  93     WCHAR *dst = NULL;
  94     if (src)
  95     {
  96         int dst_len = MultiByteToWideChar( CP_ACP, 0, src, len, NULL, 0 );
  97         if ((dst = heap_alloc( (dst_len + 1) * sizeof(WCHAR) )))
  98         {
  99             len = MultiByteToWideChar( CP_ACP, 0, src, len, dst, dst_len );
 100             dst[dst_len] = 0;
 101         }
 102     }
 103     return dst;
 104 }
 105
 106 static inline char *strdupWA( const WCHAR *src )
 107 {
 108     char *dst = NULL;
 109     if (src)
 110     {
 111         int len = WideCharToMultiByte( CP_ACP, 0, src, -1, NULL, 0, NULL, NULL );
 112         if ((dst = heap_alloc( len ))) WideCharToMultiByte( CP_ACP, 0, src, -1, dst, len, NULL, NULL );
 113     }
 114     return dst;
 115 }
 116
 117 static struct pac_script
 118 {
 119     WCHAR *text;
 120 } pac_script;
 121 static struct pac_script *global_script = &pac_script;
 122
 123 /******************************************************************
 124  *      InternetDeInitializeAutoProxyDll (jsproxy.@)
 125  */
 126 BOOL WINAPI InternetDeInitializeAutoProxyDll( LPSTR mime, DWORD reserved )
 127 {
 128     TRACE( "%s, %u\n", debugstr_a(mime), reserved );
 129
 130     EnterCriticalSection( &cs_jsproxy );
 131
 132     heap_free( global_script->text );
 133     global_script->text = NULL;
 134
 135     LeaveCriticalSection( &cs_jsproxy );
 136     return TRUE;
 137 }
 138
 139 static WCHAR *load_script( const char *filename )
 140 {
 141     HANDLE handle;
 142     DWORD size, bytes_read;
 143     char *buffer;
 144     int len;
 145     WCHAR *script = NULL;
 146
 147     handle = CreateFileA( filename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, 0 );
 148     if (handle == INVALID_HANDLE_VALUE) return NULL;
 149
 150     size = GetFileSize( handle, NULL );
 151     if (!(buffer = heap_alloc( size ))) goto done;
 152     if (!ReadFile( handle, buffer, size, &bytes_read, NULL ) || bytes_read != size) goto done;
 153
 154     len = MultiByteToWideChar( CP_ACP, 0, buffer, size, NULL, 0 );
 155     if (!(script = heap_alloc( (len + 1) * sizeof(WCHAR) ))) goto done;
 156     MultiByteToWideChar( CP_ACP, 0, buffer, size, script, len );
 157     script[len] = 0;
 158
 159 done:
 160     CloseHandle( handle );
 161     heap_free( buffer );
 162     return script;
 163 }
 164
 165 /******************************************************************
 166  *      InternetInitializeAutoProxyDll (jsproxy.@)
 167  */
 168 BOOL WINAPI JSPROXY_InternetInitializeAutoProxyDll( DWORD version, LPSTR tmpfile, LPSTR mime,
 169                                                     AutoProxyHelperFunctions *callbacks,
 170                                                     LPAUTO_PROXY_SCRIPT_BUFFER buffer )
 171 {
 172     BOOL ret = FALSE;
 173
 174     TRACE( "%u, %s, %s, %p, %p\n", version, debugstr_a(tmpfile), debugstr_a(mime), callbacks, buffer );
 175
 176     if (callbacks) FIXME( "callbacks not supported\n" );
 177
 178     EnterCriticalSection( &cs_jsproxy );
 179
 180     if (buffer && buffer->dwStructSize == sizeof(*buffer) && buffer->lpszScriptBuffer)
 181     {
 182         DWORD i, len = 0;
 183         for (i = 0; i < buffer->dwScriptBufferSize; i++)
 184         {
 185             if (!buffer->lpszScriptBuffer[i]) break;
 186             len++;
 187         }
 188         if (len == buffer->dwScriptBufferSize)
 189         {
 190             SetLastError( ERROR_INVALID_PARAMETER );
 191             LeaveCriticalSection( &cs_jsproxy );
 192             return FALSE;
 193         }
 194         heap_free( global_script->text );
 195         if ((global_script->text = strdupAW( buffer->lpszScriptBuffer, len ))) ret = TRUE;
 196     }
 197     else
 198     {
 199         heap_free( global_script->text );
 200         if ((global_script->text = load_script( tmpfile ))) ret = TRUE;
 201     }
 202
 203     LeaveCriticalSection( &cs_jsproxy );
 204     return ret;
 205 }
 206
 207 static HRESULT WINAPI dispex_QueryInterface(
 208     IDispatchEx *iface, REFIID riid, void **ppv )
 209 {
 210     *ppv = NULL;
 211
 212     if (IsEqualGUID( riid, &IID_IUnknown )  ||
 213         IsEqualGUID( riid, &IID_IDispatch ) ||
 214         IsEqualGUID( riid, &IID_IDispatchEx ))
 215         *ppv = iface;
 216     else
 217         return E_NOINTERFACE;
 218
 219     return S_OK;
 220 }
 221
 222 static ULONG WINAPI dispex_AddRef(
 223     IDispatchEx *iface )
 224 {
 225     return 2;
 226 }
 227
 228 static ULONG WINAPI dispex_Release(
 229     IDispatchEx *iface )
 230 {
 231     return 1;
 232 }
 233
 234 static HRESULT WINAPI dispex_GetTypeInfoCount(
 235     IDispatchEx *iface, UINT *info )
 236 {
 237     return E_NOTIMPL;
 238 }
 239
 240 static HRESULT WINAPI dispex_GetTypeInfo(
 241     IDispatchEx *iface, UINT info, LCID lcid, ITypeInfo **type_info )
 242 {
 243     return E_NOTIMPL;
 244 }
 245
 246 static HRESULT WINAPI dispex_GetIDsOfNames(
 247     IDispatchEx *iface, REFIID riid, LPOLESTR *names, UINT count, LCID lcid, DISPID *id )
 248 {
 249     return E_NOTIMPL;
 250 }
 251
 252 static HRESULT WINAPI dispex_Invoke(
 253     IDispatchEx *iface, DISPID member, REFIID riid, LCID lcid, WORD flags,
 254     DISPPARAMS *params, VARIANT *result, EXCEPINFO *excep, UINT *err )
 255 {
 256     return E_NOTIMPL;
 257 }
 258
 259 static HRESULT WINAPI dispex_DeleteMemberByName(
 260     IDispatchEx *iface, BSTR name, DWORD flags )
 261 {
 262     return E_NOTIMPL;
 263 }
 264
 265 static HRESULT WINAPI dispex_DeleteMemberByDispID(
 266     IDispatchEx *iface, DISPID id )
 267 {
 268     return E_NOTIMPL;
 269 }
 270
 271 static HRESULT WINAPI dispex_GetMemberProperties(
 272     IDispatchEx *iface, DISPID id, DWORD flags_fetch, DWORD *flags )
 273 {
 274     return E_NOTIMPL;
 275 }
 276
 277 static HRESULT WINAPI dispex_GetMemberName(
 278     IDispatchEx *iface, DISPID id, BSTR *name )
 279 {
 280     return E_NOTIMPL;
 281 }
 282
 283 static HRESULT WINAPI dispex_GetNextDispID(
 284     IDispatchEx *iface, DWORD flags, DISPID id, DISPID *next )
 285 {
 286     return E_NOTIMPL;
 287 }
 288
 289 static HRESULT WINAPI dispex_GetNameSpaceParent(
 290     IDispatchEx *iface, IUnknown **unk )
 291 {
 292     return E_NOTIMPL;
 293 }
 294
 295 #define DISPID_GLOBAL_DNSRESOLVE  0x1000
 296
 297 static HRESULT WINAPI dispex_GetDispID(
 298     IDispatchEx *iface, BSTR name, DWORD flags, DISPID *id )
 299 {
 300     if (!strcmpW( name, dns_resolveW ))
 301     {
 302         *id = DISPID_GLOBAL_DNSRESOLVE;
 303         return S_OK;
 304     }
 305     return DISP_E_UNKNOWNNAME;
 306 }
 307
 308 static char *get_computer_name( COMPUTER_NAME_FORMAT format )
 309 {
 310     char *ret;
 311     DWORD size = 0;
 312
 313     GetComputerNameExA( format, NULL, &size );
 314     if (GetLastError() != ERROR_MORE_DATA) return NULL;
 315     if (!(ret = heap_alloc( size ))) return NULL;
 316     if (!GetComputerNameExA( format, ret, &size ))
 317     {
 318         heap_free( ret );
 319         return NULL;
 320     }
 321     return ret;
 322 }
 323
 324 static void printf_addr( const WCHAR *fmt, WCHAR *buf, struct sockaddr_in *addr )
 325 {
 326     sprintfW( buf, fmt,
 327               (unsigned int)(ntohl( addr->sin_addr.s_addr ) >> 24 & 0xff),
 328               (unsigned int)(ntohl( addr->sin_addr.s_addr ) >> 16 & 0xff),
 329               (unsigned int)(ntohl( addr->sin_addr.s_addr ) >> 8 & 0xff),
 330               (unsigned int)(ntohl( addr->sin_addr.s_addr ) & 0xff) );
 331 }
 332
 333 static HRESULT dns_resolve( const WCHAR *hostname, VARIANT *result )
 334 {
 335 #ifdef HAVE_GETADDRINFO
 336         static const WCHAR fmtW[] = {'%','u','.','%','u','.','%','u','.','%','u',0};
 337         WCHAR addr[16];
 338         struct addrinfo *ai, *elem;
 339         char *hostnameA;
 340         int res;
 341
 342         if (hostname[0])
 343             hostnameA = strdupWA( hostname );
 344         else
 345             hostnameA = get_computer_name( ComputerNamePhysicalDnsFullyQualified );
 346
 347         if (!hostnameA) return E_OUTOFMEMORY;
 348         res = getaddrinfo( hostnameA, NULL, NULL, &ai );
 349         heap_free( hostnameA );
 350         if (res) return S_FALSE;
 351
 352         elem = ai;
 353         while (elem && elem->ai_family != AF_INET) elem = elem->ai_next;
 354         if (!elem)
 355         {
 356             freeaddrinfo( ai );
 357             return S_FALSE;
 358         }
 359         printf_addr( fmtW, addr, (struct sockaddr_in *)elem->ai_addr );
 360         freeaddrinfo( ai );
 361         V_VT( result ) = VT_BSTR;
 362         V_BSTR( result ) = SysAllocString( addr );
 363         return S_OK;
 364 #else
 365         FIXME("getaddrinfo not found at build time\n");
 366         return S_FALSE;
 367 #endif
 368 }
 369
 370 static HRESULT WINAPI dispex_InvokeEx(
 371     IDispatchEx *iface, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
 372     VARIANT *result, EXCEPINFO *exep, IServiceProvider *caller )
 373 {
 374     if (id == DISPID_GLOBAL_DNSRESOLVE)
 375     {
 376         if (params->cArgs != 1) return DISP_E_BADPARAMCOUNT;
 377         if (V_VT(&params->rgvarg[0]) != VT_BSTR) return DISP_E_BADVARTYPE;
 378         return dns_resolve( V_BSTR(&params->rgvarg[0]), result );
 379     }
 380     return DISP_E_MEMBERNOTFOUND;
 381 }
 382
 383 static const IDispatchExVtbl dispex_vtbl =
 384 {
 385     dispex_QueryInterface,
 386     dispex_AddRef,
 387     dispex_Release,
 388     dispex_GetTypeInfoCount,
 389     dispex_GetTypeInfo,
 390     dispex_GetIDsOfNames,
 391     dispex_Invoke,
 392     dispex_GetDispID,
 393     dispex_InvokeEx,
 394     dispex_DeleteMemberByName,
 395     dispex_DeleteMemberByDispID,
 396     dispex_GetMemberProperties,
 397     dispex_GetMemberName,
 398     dispex_GetNextDispID,
 399     dispex_GetNameSpaceParent
 400 };
 401
 402 static IDispatchEx global_dispex = { &dispex_vtbl };
 403
 404 static HRESULT WINAPI site_QueryInterface(
 405     IActiveScriptSite *iface, REFIID riid, void **ppv )
 406 {
 407     *ppv = NULL;
 408
 409     if (IsEqualGUID( &IID_IUnknown, riid ))
 410         *ppv = iface;
 411     else if (IsEqualGUID( &IID_IActiveScriptSite, riid ))
 412         *ppv = iface;
 413     else
 414         return E_NOINTERFACE;
 415
 416     IUnknown_AddRef( (IUnknown *)*ppv );
 417     return S_OK;
 418 }
 419
 420 static ULONG WINAPI site_AddRef(
 421     IActiveScriptSite *iface )
 422 {
 423     return 2;
 424 }
 425
 426 static ULONG WINAPI site_Release(
 427     IActiveScriptSite *iface )
 428 {
 429     return 1;
 430 }
 431
 432 static HRESULT WINAPI site_GetLCID(
 433     IActiveScriptSite *iface, LCID *lcid )
 434 {
 435     return E_NOTIMPL;
 436 }
 437
 438 static HRESULT WINAPI site_GetItemInfo(
 439     IActiveScriptSite *iface, LPCOLESTR name, DWORD mask,
 440     IUnknown **item, ITypeInfo **type_info )
 441 {
 442     if (!strcmpW( name, global_funcsW ) && mask == SCRIPTINFO_IUNKNOWN)
 443     {
 444         *item = (IUnknown *)&global_dispex;
 445         return S_OK;
 446     }
 447     return E_NOTIMPL;
 448 }
 449
 450 static HRESULT WINAPI site_GetDocVersionString(
 451     IActiveScriptSite *iface, BSTR *version )
 452 {
 453     return E_NOTIMPL;
 454 }
 455
 456 static HRESULT WINAPI site_OnScriptTerminate(
 457     IActiveScriptSite *iface, const VARIANT *result, const EXCEPINFO *info )
 458 {
 459     return E_NOTIMPL;
 460 }
 461
 462 static HRESULT WINAPI site_OnStateChange(
 463     IActiveScriptSite *iface, SCRIPTSTATE state )
 464 {
 465     return E_NOTIMPL;
 466 }
 467
 468 static HRESULT WINAPI site_OnScriptError(
 469     IActiveScriptSite *iface, IActiveScriptError *error )
 470 {
 471     return E_NOTIMPL;
 472 }
 473
 474 static HRESULT WINAPI site_OnEnterScript(
 475     IActiveScriptSite *iface )
 476 {
 477     return E_NOTIMPL;
 478 }
 479
 480 static HRESULT WINAPI site_OnLeaveScript(
 481     IActiveScriptSite *iface )
 482 {
 483     return E_NOTIMPL;
 484 }
 485
 486 static const IActiveScriptSiteVtbl site_vtbl =
 487 {
 488     site_QueryInterface,
 489     site_AddRef,
 490     site_Release,
 491     site_GetLCID,
 492     site_GetItemInfo,
 493     site_GetDocVersionString,
 494     site_OnScriptTerminate,
 495     site_OnStateChange,
 496     site_OnScriptError,
 497     site_OnEnterScript,
 498     site_OnLeaveScript
 499 };
 500
 501 static IActiveScriptSite script_site = { &site_vtbl };
 502
 503 static BSTR include_pac_utils( const WCHAR *script )
 504 {
 505     static const WCHAR pacjsW[] = {'p','a','c','.','j','s',0};
 506     HMODULE hmod = GetModuleHandleA( "jsproxy.dll" );
 507     HRSRC rsrc;
 508     DWORD size;
 509     const char *data;
 510     BSTR ret;
 511     int len;
 512
 513     if (!(rsrc = FindResourceW( hmod, pacjsW, (LPCWSTR)40 ))) return NULL;
 514     size = SizeofResource( hmod, rsrc );
 515     data = LoadResource( hmod, rsrc );
 516
 517     len = MultiByteToWideChar( CP_ACP, 0, data, size, NULL, 0 );
 518     if (!(ret = SysAllocStringLen( NULL, len + strlenW( script ) + 1 ))) return NULL;
 519     MultiByteToWideChar( CP_ACP, 0, data, size, ret, len );
 520     strcpyW( ret + len, script );
 521     return ret;
 522 }
 523
 524 #ifdef _WIN64
 525 #define IActiveScriptParse_Release IActiveScriptParse64_Release
 526 #define IActiveScriptParse_InitNew IActiveScriptParse64_InitNew
 527 #define IActiveScriptParse_ParseScriptText IActiveScriptParse64_ParseScriptText
 528 #else
 529 #define IActiveScriptParse_Release IActiveScriptParse32_Release
 530 #define IActiveScriptParse_InitNew IActiveScriptParse32_InitNew
 531 #define IActiveScriptParse_ParseScriptText IActiveScriptParse32_ParseScriptText
 532 #endif
 533
 534 static BOOL run_script( const WCHAR *script, const WCHAR *url, const WCHAR *hostname, char **result_str, DWORD *result_len )
 535 {
 536     static const WCHAR jscriptW[] = {'J','S','c','r','i','p','t',0};
 537     static const WCHAR findproxyW[] = {'F','i','n','d','P','r','o','x','y','F','o','r','U','R','L',0};
 538     IActiveScriptParse *parser = NULL;
 539     IActiveScript *engine = NULL;
 540     IDispatch *dispatch = NULL;
 541     BOOL ret = FALSE;
 542     CLSID clsid;
 543     DISPID dispid;
 544     BSTR func = NULL, full_script = NULL;
 545     VARIANT args[2], retval;
 546     DISPPARAMS params;
 547     HRESULT hr, init;
 548
 549     init = CoInitialize( NULL );
 550     hr = CLSIDFromProgID( jscriptW, &clsid );
 551     if (hr != S_OK) goto done;
 552
 553     hr = CoCreateInstance( &clsid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 554                            &IID_IActiveScript, (void **)&engine );
 555     if (hr != S_OK) goto done;
 556
 557     hr = IActiveScript_QueryInterface( engine, &IID_IActiveScriptParse, (void **)&parser );
 558     if (hr != S_OK) goto done;
 559
 560     hr = IActiveScriptParse_InitNew( parser );
 561     if (hr != S_OK) goto done;
 562
 563     hr = IActiveScript_SetScriptSite( engine, &script_site );
 564     if (hr != S_OK) goto done;
 565
 566     hr = IActiveScript_AddNamedItem( engine, global_funcsW, SCRIPTITEM_GLOBALMEMBERS );
 567     if (hr != S_OK) goto done;
 568
 569     if (!(full_script = include_pac_utils( script ))) goto done;
 570
 571     hr = IActiveScriptParse_ParseScriptText( parser, full_script, NULL, NULL, NULL, 0, 0, 0, NULL, NULL );
 572     if (hr != S_OK) goto done;
 573
 574     hr = IActiveScript_SetScriptState( engine, SCRIPTSTATE_STARTED );
 575     if (hr != S_OK) goto done;
 576
 577     hr = IActiveScript_GetScriptDispatch( engine, NULL, &dispatch );
 578     if (hr != S_OK) goto done;
 579
 580     if (!(func = SysAllocString( findproxyW ))) goto done;
 581     hr = IDispatch_GetIDsOfNames( dispatch, &IID_NULL, &func, 1, LOCALE_SYSTEM_DEFAULT, &dispid );
 582     if (hr != S_OK) goto done;
 583
 584     V_VT( &args[0] ) = VT_BSTR;
 585     V_BSTR( &args[0] ) = SysAllocString( hostname );
 586     V_VT( &args[1] ) = VT_BSTR;
 587     V_BSTR( &args[1] ) = SysAllocString( url );
 588
 589     params.rgvarg = args;
 590     params.rgdispidNamedArgs = NULL;
 591     params.cArgs = 2;
 592     params.cNamedArgs = 0;
 593     hr = IDispatch_Invoke( dispatch, dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_METHOD,
 594                            &params, &retval, NULL, NULL );
 595     VariantClear( &args[0] );
 596     VariantClear( &args[1] );
 597     if (hr != S_OK)
 598     {
 599         WARN("script failed 0x%08x\n", hr);
 600         goto done;
 601     }
 602     if ((*result_str = strdupWA( V_BSTR( &retval ) )))
 603     {
 604         TRACE( "result: %s\n", debugstr_a(*result_str) );
 605         *result_len = strlen( *result_str ) + 1;
 606         ret = TRUE;
 607     }
 608     VariantClear( &retval );
 609
 610 done:
 611     SysFreeString( full_script );
 612     SysFreeString( func );
 613     if (dispatch) IDispatch_Release( dispatch );
 614     if (parser) IActiveScriptParse_Release( parser );
 615     if (engine) IActiveScript_Release( engine );
 616     if (SUCCEEDED( init )) CoUninitialize();
 617     return ret;
 618 }
 619
 620 /******************************************************************
 621  *      InternetGetProxyInfo (jsproxy.@)
 622  */
 623 BOOL WINAPI InternetGetProxyInfo( LPCSTR url, DWORD len_url, LPCSTR hostname, DWORD len_hostname, LPSTR *proxy,
 624                                   LPDWORD len_proxy )
 625 {
 626     WCHAR *urlW = NULL, *hostnameW = NULL;
 627     BOOL ret = FALSE;
 628
 629     TRACE( "%s, %u, %s, %u, %p, %p\n", debugstr_a(url), len_url, hostname, len_hostname, proxy, len_proxy );
 630
 631     EnterCriticalSection( &cs_jsproxy );
 632
 633     if (!global_script->text)
 634     {
 635         SetLastError( ERROR_CAN_NOT_COMPLETE );
 636         goto done;
 637     }
 638     if (hostname && len_hostname < strlen( hostname ))
 639     {
 640         SetLastError( ERROR_INSUFFICIENT_BUFFER );
 641         goto done;
 642     }
 643     if (!(urlW = strdupAW( url, -1 ))) goto done;
 644     if (hostname && !(hostnameW = strdupAW( hostname, -1 ))) goto done;
 645
 646     TRACE( "%s\n", debugstr_w(global_script->text) );
 647     ret = run_script( global_script->text, urlW, hostnameW, proxy, len_proxy );
 648
 649 done:
 650     heap_free( hostnameW );
 651     heap_free( urlW );
 652     LeaveCriticalSection( &cs_jsproxy );
 653     return ret;
 654 }