We need you! We're working hard on the next version of Developer Fusion - Let us know what you think we should be up to!

The Labs \ Source Viewer \ SSCLI \ System.Net \ AutoWebProxyScriptWrapper

SSCLI
  1. //------------------------------------------------------------------------------
  2. // <copyright fieldInfole="_AutoWebProxyScriptWrapper.cs" company="Microsoft">
  3. //
  4. // Copyright (c) 2006 Microsoft Corporation. All rights reserved.
  5. //
  6. // The use and distribution terms for this software are contained in the file
  7. // named license.txt, which can be found in the root of this distribution.
  8. // By using this software in any fashion, you are agreeing to be bound by the
  9. // terms of this license.
  10. //
  11. // You must not remove this notice, or any other, from this software.
  12. //
  13. // </copyright>
  14. //------------------------------------------------------------------------------
  17. // Two implementations of AutoWebProxyScriptWrapper live in this file. The first uses jscript.dll via COM, the second
  18. // uses Microsoft.JScript using an external AppDomain.
  20. #pragma warning disable 618
  22. #define AUTOPROXY_MANAGED_JSCRIPT
  23. #if !AUTOPROXY_MANAGED_JSCRIPT
  25. namespace System.Net
  26. {
  27.     using System.Net.ComImports;
  28.     using System.Runtime.InteropServices;
  29.     using EXCEPINFO = System.Runtime.InteropServices.ComTypes.EXCEPINFO;
  30.     using System.Threading;
  31.     using System.Reflection;
  32.     using System.Net.Configuration;
  33.     using System.Globalization;
  34.    
  35.     internal class AutoWebProxyScriptWrapper
  36.     {
  37.         const string c_ScriptHelperName = "__AutoWebProxyScriptHelper";
  38.        
  39.         private static TimerThread.Queue s_TimerQueue = TimerThread.CreateQueue(SettingsSectionInternal.Section.ExecutionTimeout);
  40.         private static TimerThread.Callback s_InterruptCallback = new TimerThread.Callback(InterruptCallback);
  41.        
  42.        
  43.         //
  44.         // Methods called by the AutoWebProxyScriptEngine
  45.         //
  46.        
  47.         static internal AutoWebProxyScriptWrapper CreateInstance()
  48.         {
  49.             return new AutoWebProxyScriptWrapper();
  50.         }
  51.        
  52.         internal void Close()
  53.         {
  54.             if (Interlocked.Increment(ref closed) != 1) {
  55.                 return;
  56.             }
  57.            
  58.             GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::Close() Closing engine.");
  59.            
  60.             // Time out any running thread.
  61.             TimerThread.Timer timer = activeTimer;
  62.             if (timer != null) {
  63.                 if (timer.Cancel()) {
  64.                     InterruptCallback(timer, 0, this);
  65.                 }
  66.                 activeTimer = null;
  67.             }
  68.            
  69.             jscript.Close();
  70.             jscriptObject = null;
  71.             jscript = null;
  72.             host = null;
  73.             jscriptParser = null;
  74.             dispatch = null;
  75.             script = null;
  76.             scriptText = null;
  77.             lastModified = DateTime.MinValue;
  78.         }
  79.        
  80.         internal string FindProxyForURL(string url, string host)
  81.         {
  82.             if (url == null || host == null) {
  83.                 throw new ArgumentNullException(url == null ? "url" : "host");
  84.             }
  85.             if (closed != 0) {
  86.                 throw new ObjectDisposedException(GetType().Name);
  87.             }
  88.            
  89.             EXCEPINFO exceptionInfo = new EXCEPINFO();
  90.             object result = null;
  91.             jscript.GetCurrentScriptThreadID(out interruptThreadId);
  92.             TimerThread.Timer timer = s_TimerQueue.CreateTimer(s_InterruptCallback, this);
  93.             activeTimer = timer;
  94.             try {
  95.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::FindProxyForURL() Calling url:" + url + " host:" + host);
  96.                 result = script.FindProxyForURL(url, host);
  97.             }
  98.             catch (Exception exception) {
  99.                 if (NclUtilities.IsFatal(exception))
  100.                     throw;
  101.                 if (exception is TargetInvocationException) {
  102.                     exception = exception.InnerException;
  103.                 }
  104.                 COMException comException = exception as COMException;
  105.                 if (comException == null || comException.ErrorCode != (int)HRESULT.SCRIPT_E_REPORTED) {
  106.                     throw;
  107.                 }
  108.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::FindProxyForURL() Script error:[" + this.host.ExceptionMessage == null ? "" : this.host.ExceptionMessage + "]");
  109.             }
  110.             catch {
  111.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::FindProxyForURL() Script error:[Non-CLS Compliant Exception]");
  112.                 throw;
  113.             }
  114.             finally {
  115.                 activeTimer = null;
  116.                 timer.Cancel();
  117.             }
  118.            
  119.             string proxy = result as string;
  120.             if (proxy != null) {
  121.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::FindProxyForURL() found:" + proxy);
  122.                 return proxy;
  123.             }
  124.            
  125.             GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::FindProxyForURL() Returning null. result:" + ValidationHelper.ToString(exceptionInfo.bstrDescription) + " result:" + ValidationHelper.ToString(result) + " error:" + ValidationHelper.ToString(exceptionInfo.bstrDescription));
  126.             return null;
  127.         }
  128.        
  129.         internal AutoWebProxyState Compile(Uri engineScriptLocation, string scriptBody, byte[] buffer)
  130.         {
  131.             if (closed != 0) {
  132.                 throw new ObjectDisposedException(GetType().Name);
  133.             }
  134.            
  135.             if (jscriptObject != null) {
  136.                 jscript.Close();
  137.             }
  138.            
  139.             scriptText = null;
  140.             scriptBytes = null;
  141.             jscriptObject = new JScriptEngine();
  142.             jscript = (IActiveScript)jscriptObject;
  143.             host = new ScriptHost();
  144.            
  145.             GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::Compile() Binding to ScriptHost#" + ValidationHelper.HashString(this));
  146.            
  147.             jscriptParser = new ActiveScriptParseWrapper(jscriptObject);
  148.             jscriptParser.InitNew();
  149.            
  150.             jscript.SetScriptSite(host);
  151.             jscript.SetScriptState(ScriptState.Initialized);
  152.            
  153.             //
  154.             // Inform the script engine that this host implements the IInternetHostSecurityManager interface, which
  155.             // is used to prevent the script code from using any ActiveX objects.
  156.             //
  157.             IObjectSafety objSafety = jscript as IObjectSafety;
  158.             if (objSafety != null) {
  159.                 Guid guid = Guid.Empty;
  160.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::Compile() Setting up IInternetHostSecurityManager");
  161.                 objSafety.SetInterfaceSafetyOptions(ref guid, ComConstants.INTERFACE_USES_SECURITY_MANAGER, ComConstants.INTERFACE_USES_SECURITY_MANAGER);
  162.                 objSafety = null;
  163.             }
  164.            
  165.             EXCEPINFO exceptionInfo = new EXCEPINFO();
  166.             object result = null;
  167.             try {
  168.                 jscriptParser.ParseScriptText(scriptBody, null, null, null, IntPtr.Zero, 0, ScriptText.IsPersistent | ScriptText.IsVisible, out result, out exceptionInfo);
  169.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::Compile() ParseScriptText() success:" + ValidationHelper.ToString(exceptionInfo.bstrDescription) + " result:" + ValidationHelper.ToString(result));
  170.             }
  171.             catch (Exception exception) {
  172.                 if (NclUtilities.IsFatal(exception))
  173.                     throw;
  174.                 if (exception is TargetInvocationException) {
  175.                     exception = exception.InnerException;
  176.                 }
  177.                 COMException comException = exception as COMException;
  178.                 if (comException == null || comException.ErrorCode != (int)HRESULT.SCRIPT_E_REPORTED) {
  179.                     throw;
  180.                 }
  181.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::Compile() Script load error:[" + host.ExceptionMessage == null ? "" : host.ExceptionMessage + "]");
  182.                 throw new COMException(SR.GetString(SR.net_jscript_load, host.ExceptionMessage), comException.ErrorCode);
  183.             }
  184.             catch {
  185.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::Compile() Script load error:[Non-CLS Compliant Exception]");
  186.                 throw;
  187.             }
  188.            
  189.             jscript.AddNamedItem(c_ScriptHelperName, ScriptItem.GlobalMembers | ScriptItem.IsPersistent | ScriptItem.IsVisible);
  190.            
  191.             // This part can run global code - time it out if necessary.
  192.             jscript.GetCurrentScriptThreadID(out interruptThreadId);
  193.             TimerThread.Timer timer = s_TimerQueue.CreateTimer(s_InterruptCallback, this);
  194.             activeTimer = timer;
  195.             try {
  196.                 jscript.SetScriptState(ScriptState.Started);
  197.                 jscript.SetScriptState(ScriptState.Connected);
  198.             }
  199.             finally {
  200.                 activeTimer = null;
  201.                 timer.Cancel();
  202.             }
  203.            
  204.             jscript.GetScriptDispatch(null, out script);
  205.             GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(this) + "::Compile() Got IDispatch:" + ValidationHelper.ToString(dispatch));
  206.            
  207.             scriptText = scriptBody;
  208.             scriptBytes = buffer;
  209.            
  210.             return AutoWebProxyState.CompilationSuccess;
  211.         }
  212.        
  213.         internal string ScriptBody {
  214.             get { return scriptText; }
  215.         }
  216.        
  217.         internal byte[] Buffer {
  218.             get { return scriptBytes; }
  219.            
  220.             set { scriptBytes = value; }
  221.         }
  222.        
  223.         internal DateTime LastModified {
  224.             get { return lastModified; }
  225.            
  226.             set { lastModified = value; }
  227.         }
  228.        
  229.         private static void InterruptCallback(TimerThread.Timer timer, int timeNoticed, object context)
  230.         {
  231.             AutoWebProxyScriptWrapper pThis = (AutoWebProxyScriptWrapper)context;
  232.             GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(pThis) + "::InterruptCallback()");
  233.            
  234.             if (!object.ReferenceEquals(timer, pThis.activeTimer)) {
  235.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(pThis) + "::InterruptCallback() Spurious - returning.");
  236.                 return;
  237.             }
  238.            
  239.             EXCEPINFO exceptionInfo;
  240.             try {
  241.                 pThis.jscript.InterruptScriptThread(pThis.interruptThreadId, out exceptionInfo, 0);
  242.             }
  243.             catch (Exception ex) {
  244.                 if (NclUtilities.IsFatal(ex))
  245.                     throw;
  246.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(pThis) + "::InterruptCallback() InterruptScriptThread() threw:" + ValidationHelper.ToString(ex));
  247.             }
  248.             catch {
  249.                 GlobalLog.Print("AutoWebProxyScriptWrapper#" + ValidationHelper.HashString(pThis) + "::InterruptCallback() InterruptScriptThread() threw: Non-CLS Compliant Exception");
  250.             }
  251.         }
  252.        
  253.        
  254.         //
  255.         // Privates
  256.         //
  257.        
  258.         private JScriptEngine jscriptObject;
  259.         private IActiveScript jscript;
  260.         private ActiveScriptParseWrapper jscriptParser;
  261.         private ScriptHost host;
  262.         private object dispatch;
  263.         private IScript script;
  264.         private string scriptText;
  265.         private byte[] scriptBytes;
  266.         private DateTime lastModified;
  267.        
  268.         // 'activeTimer' is used to protect the engine from spurious callbacks and when the engine is closed.
  269.         private TimerThread.Timer activeTimer;
  270.         private uint interruptThreadId;
  271.        
  272.         private int closed;
  273.        
  274.        
  275.         // IActiveScriptSite implementation
  276.         private class ScriptHost : IActiveScriptSite, IInternetHostSecurityManager, IOleServiceProvider
  277.         {
  278.             private WebProxyScriptHelper helper = new WebProxyScriptHelper();
  279.             private string exceptionMessage;
  280.            
  281.             internal string ExceptionMessage {
  282.                 get { return exceptionMessage; }
  283.             }
  284.            
  285.             //
  286.             // IActiveScriptSite
  287.             //
  288.            
  289.             public void GetLCID(out int lcid)
  290.             {
  291.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::GetLCID()");
  292.                 lcid = Thread.CurrentThread.CurrentCulture.LCID;
  293.             }
  294.            
  295.             public void GetItemInfo(string name, ScriptInfo returnMask,             [Out()]
  296.             [MarshalAs(UnmanagedType.LPArray, ArraySubType = UnmanagedType.IUnknown)]
  297. object[] item,             [Out()]
  298.             [MarshalAs(UnmanagedType.LPArray)]
  299. IntPtr[] typeInfo)
  300.             {
  301.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::GetItemInfo() name:" + ValidationHelper.ToString(name));
  302.                 if (name == null) {
  303.                     throw new ArgumentNullException("name");
  304.                 }
  305.                
  306.                 if (name != c_ScriptHelperName) {
  307.                     throw new COMException(null, (int)HRESULT.TYPE_E_ELEMENTNOTFOUND);
  308.                 }
  309.                
  310.                 if ((returnMask & ScriptInfo.IUnknown) != 0) {
  311.                     if (item == null) {
  312.                         throw new ArgumentNullException("item");
  313.                     }
  314.                    
  315.                     GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::GetItemInfo() Setting item.");
  316.                     item[0] = helper;
  317.                 }
  318.                
  319.                 if ((returnMask & ScriptInfo.ITypeInfo) != 0) {
  320.                     if (typeInfo == null) {
  321.                         throw new ArgumentNullException("typeInfo");
  322.                     }
  323.                    
  324.                     typeInfo[0] = IntPtr.Zero;
  325.                 }
  326.                
  327.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::GetItemInfo() Done.");
  328.             }
  329.            
  330.             public void GetDocVersionString(out string version)
  331.             {
  332.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::GetDocVersionString()");
  333.                 throw new NotImplementedException();
  334.             }
  335.            
  336.             public void OnScriptTerminate(object result, EXCEPINFO exceptionInfo)
  337.             {
  338.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::OnScriptTerminate() result:" + ValidationHelper.ToString(result) + " error:" + ValidationHelper.ToString(exceptionInfo.bstrDescription));
  339.             }
  340.            
  341.             public void OnStateChange(ScriptState scriptState)
  342.             {
  343.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::OnStateChange() state:" + ValidationHelper.ToString(scriptState));
  344.                 if (scriptState == ScriptState.Closed) {
  345.                     helper = null;
  346.                 }
  347.             }
  348.            
  349.             public void OnScriptError(IActiveScriptError scriptError)
  350.             {
  351.                 EXCEPINFO exceptionInfo;
  352.                 uint dummy;
  353.                 uint line;
  354.                 int pos;
  355.                 scriptError.GetExceptionInfo(out exceptionInfo);
  356.                 scriptError.GetSourcePosition(out dummy, out line, out pos);
  357.                 exceptionMessage = exceptionInfo.bstrDescription + " (" + line + "," + pos + ")";
  358.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::OnScriptError() error:" + ValidationHelper.ToString(exceptionInfo.bstrDescription) + " line:" + line + " pos:" + pos);
  359.             }
  360.            
  361.             public void OnEnterScript()
  362.             {
  363.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::OnEnterScript()");
  364.             }
  365.            
  366.             public void OnLeaveScript()
  367.             {
  368.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::OnLeaveScript()");
  369.             }
  370.            
  371.             // IOleServiceProvider methods
  372.            
  373.             public int QueryService(ref Guid guidService, ref Guid riid, out IntPtr ppvObject)
  374.             {
  375.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::QueryService(" + guidService.ToString() + ")");
  376.                
  377.                 int hr = (int)HRESULT.E_NOINTERFACE;
  378.                 ppvObject = IntPtr.Zero;
  379.                
  380.                 if (guidService == typeof(IInternetHostSecurityManager).GUID) {
  381.                     IntPtr ppObj = Marshal.GetIUnknownForObject(this);
  382.                     try {
  383.                         hr = Marshal.QueryInterface(ppObj, ref riid, out ppvObject);
  384.                     }
  385.                     finally {
  386.                         Marshal.Release(ppObj);
  387.                     }
  388.                 }
  389.                
  390.                 return hr;
  391.             }
  392.            
  393.             // IInternetHostSecurityManager methods.
  394.             // Implementation based on inetcore\wininet\autoconf\cscpsite.cpp
  395.             // The current implementation disallows all ActiveX control activation from script.
  396.            
  397.             public int GetSecurityId(byte[] pbSecurityId, ref IntPtr pcbSecurityId, IntPtr dwReserved)
  398.             {
  399.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::GetSecurityId()");
  400.                 return (int)HRESULT.E_NOTIMPL;
  401.             }
  402.            
  403.             public int ProcessUrlAction(int dwAction, int[] pPolicy, int cbPolicy, byte[] pContext, int cbContext, int dwFlags, int dwReserved)
  404.             {
  405.                 GlobalLog.Print("AutoWebProxyScriptWrapper.ScriptHost#" + ValidationHelper.HashString(this) + "::ProcessUrlAction()");
  406.                 if (pPolicy != null && cbPolicy >= Marshal.SizeOf(typeof(int))) {
  407.                     pPolicy[0] = (int)UrlPolicy.DisAllow;
  408.                 }
  409.                
  410.                 return (int)HRESULT.S_FALSE;
  411.                 // S_FALSE means the policy != URLPOLICY_ALLOW.
  412.             }
  413.            
  414.             public int QueryCustomPolicy(Guid guidKey, out byte[] ppPolicy, out int pcbPolicy, byte[] pContext, int cbContext, int dwReserved)
  415.         &nb