<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="content-type" content="text/html; charset=utf-8" />
<title>[Freeswitch-trunk][14406] </title>
</head>
<body>

<style type="text/css"><!--
#msg dl.meta { border: 1px #006 solid; background: #369; padding: 6px; color: #fff; }
#msg dl.meta dt { float: left; width: 6em; font-weight: bold; }
#msg dt:after { content:':';}
#msg dl, #msg dt, #msg ul, #msg li, #header, #footer, #logmsg { font-family: verdana,arial,helvetica,sans-serif; font-size: 10pt;  }
#msg dl a { font-weight: bold}
#msg dl a:link    { color:#fc3; }
#msg dl a:active  { color:#ff0; }
#msg dl a:visited { color:#cc6; }
h3 { font-family: verdana,arial,helvetica,sans-serif; font-size: 10pt; font-weight: bold; }
#msg pre { overflow: auto; background: #ffc; border: 1px #fa0 solid; padding: 6px; }
#logmsg { background: #ffc; border: 1px #fa0 solid; padding: 1em 1em 0 1em; }
#logmsg p, #logmsg pre, #logmsg blockquote { margin: 0 0 1em 0; }
#logmsg p, #logmsg li, #logmsg dt, #logmsg dd { line-height: 14pt; }
#logmsg h1, #logmsg h2, #logmsg h3, #logmsg h4, #logmsg h5, #logmsg h6 { margin: .5em 0; }
#logmsg h1:first-child, #logmsg h2:first-child, #logmsg h3:first-child, #logmsg h4:first-child, #logmsg h5:first-child, #logmsg h6:first-child { margin-top: 0; }
#logmsg ul, #logmsg ol { padding: 0; list-style-position: inside; margin: 0 0 0 1em; }
#logmsg ul { text-indent: -1em; padding-left: 1em; }#logmsg ol { text-indent: -1.5em; padding-left: 1.5em; }
#logmsg > ul, #logmsg > ol { margin: 0 0 1em 0; }
#logmsg pre { background: #eee; padding: 1em; }
#logmsg blockquote { border: 1px solid #fa0; border-left-width: 10px; padding: 1em 1em 0 1em; background: white;}
#logmsg dl { margin: 0; }
#logmsg dt { font-weight: bold; }
#logmsg dd { margin: 0; padding: 0 0 0.5em 0; }
#logmsg dd:before { content:'\00bb';}
#logmsg table { border-spacing: 0px; border-collapse: collapse; border-top: 4px solid #fa0; border-bottom: 1px solid #fa0; background: #fff; }
#logmsg table th { text-align: left; font-weight: normal; padding: 0.2em 0.5em; border-top: 1px dotted #fa0; }
#logmsg table td { text-align: right; border-top: 1px dotted #fa0; padding: 0.2em 0.5em; }
#logmsg table thead th { text-align: center; border-bottom: 1px solid #fa0; }
#logmsg table th.Corner { text-align: left; }
#logmsg hr { border: none 0; border-top: 2px dashed #fa0; height: 1px; }
#header, #footer { color: #fff; background: #636; border: 1px #300 solid; padding: 6px; }
#patch { width: 100%; }
#patch h4 {font-family: verdana,arial,helvetica,sans-serif;font-size:10pt;padding:8px;background:#369;color:#fff;margin:0;}
#patch .propset h4, #patch .binary h4 {margin:0;}
#patch pre {padding:0;line-height:1.2em;margin:0;}
#patch .diff {width:100%;background:#eee;padding: 0 0 10px 0;overflow:auto;}
#patch .propset .diff, #patch .binary .diff  {padding:10px 0;}
#patch span {display:block;padding:0 10px;}
#patch .modfile, #patch .addfile, #patch .delfile, #patch .propset, #patch .binary, #patch .copfile {border:1px solid #ccc;margin:10px 0;}
#patch ins {background:#dfd;text-decoration:none;display:block;padding:0 10px;}
#patch del {background:#fdd;text-decoration:none;display:block;padding:0 10px;}
#patch .lines, .info {color:#888;background:#fff;}
--></style>
<div id="msg">
<div id="header">FreeSWITCH Subversion</div>
<dl class="meta">
<dt>Revision</dt> <dd><a href="http://fisheye.freeswitch.org/changelog/FreeSWITCH?cs=14406">14406</a></dd>
<dt>Author</dt> <dd>michaelgg</dd>
<dt>Date</dt> <dd>2009-07-28 21:18:57 -0500 (Tue, 28 Jul 2009)</dd>
</dl>

<h3>Log Message</h3>
<pre>First pass at F# easyroute; appears to work on Windows and Linux</pre>

<h3>Added Paths</h3>
<ul>
<li>freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/</li>
<li>freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/</li>
<li><a href="#freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteAppconfig">freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/App.config</a></li>
<li><a href="#freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteEasyRoutefsproj">freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.fsproj</a></li>
<li><a href="#freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteEasyRoutesln">freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.sln</a></li>
<li><a href="#freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteEasyRoutesuo">freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.suo</a></li>
<li><a href="#freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteeasyroutedll">freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.dll</a></li>
<li><a href="#freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteeasyroutedllconfig">freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.dll.config</a></li>
<li><a href="#freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteeasyroutefs">freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.fs</a></li>
<li><a href="#freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteeasyroutepdb">freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.pdb</a></li>
</ul>

</div>
<div id="patch">
<h3>Diff</h3>
<a id="freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteAppconfig"></a>
<div class="addfile"><h4>Added: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/App.config (0 => 14406)</h4>
<pre class="diff"><span>
<span class="info">--- freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/App.config                                (rev 0)
+++ freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/App.config        2009-07-29 02:18:57 UTC (rev 14406)
</span><span class="lines">@@ -0,0 +1,10 @@
</span><ins>+&lt;?xml version=&quot;1.0&quot;?&gt;
+&lt;configuration&gt;
+  &lt;appSettings&gt;
+    &lt;add key=&quot;connectionString&quot; value=&quot;DSN=easyroute;User=root;Password=;&quot; /&gt;
+    &lt;add key=&quot;defaultProfile&quot; value=&quot;sofia/default&quot;/&gt;
+    &lt;add key=&quot;defaultGateway&quot; value=&quot;192.168.1.1&quot;/&gt;
+    &lt;!-- customQuery can be defined. Fields must be in the same order, and the number parameter must be %number% --&gt;
+    &lt;!-- &lt;add key=&quot;customQuery&quot; value=&quot;SELECT gateways.gateway_ip, gateways.group, gateways.limit, gateways.techprofile, numbers.acctcode, numbers.translated from gateways, numbers where numbers.number = %number% and numbers.gateway_id = gateways.gateway_id;&quot; /&gt; --&gt;
+  &lt;/appSettings&gt;
+&lt;/configuration&gt;
</ins><span class="cx">\ No newline at end of file
</span></span></pre></div>
<a id="freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteEasyRoutefsproj"></a>
<div class="addfile"><h4>Added: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.fsproj (0 => 14406)</h4>
<pre class="diff"><span>
<span class="info">--- freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.fsproj                                (rev 0)
+++ freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.fsproj        2009-07-29 02:18:57 UTC (rev 14406)
</span><span class="lines">@@ -0,0 +1,87 @@
</span><ins>+&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot;?&gt;
+&lt;Project ToolsVersion=&quot;3.5&quot; DefaultTargets=&quot;Build&quot; xmlns=&quot;http://schemas.microsoft.com/developer/msbuild/2003&quot;&gt;
+  &lt;PropertyGroup&gt;
+    &lt;Configuration Condition=&quot; '$(Configuration)' == '' &quot;&gt;Debug&lt;/Configuration&gt;
+    &lt;Platform Condition=&quot; '$(Platform)' == '' &quot;&gt;AnyCPU&lt;/Platform&gt;
+    &lt;ProductVersion&gt;8.0.30703&lt;/ProductVersion&gt;
+    &lt;SchemaVersion&gt;2.0&lt;/SchemaVersion&gt;
+    &lt;ProjectGuid&gt;{7b5259d4-eaa0-4bcc-9eac-8dc054a4a092}&lt;/ProjectGuid&gt;
+    &lt;OutputType&gt;Library&lt;/OutputType&gt;
+    &lt;RootNamespace&gt;fs_easyroute&lt;/RootNamespace&gt;
+    &lt;AssemblyName&gt;easyroute&lt;/AssemblyName&gt;
+    &lt;TargetFrameworkVersion&gt;v3.5&lt;/TargetFrameworkVersion&gt;
+    &lt;Name&gt;EasyRoute&lt;/Name&gt;
+  &lt;/PropertyGroup&gt;
+  &lt;PropertyGroup Condition=&quot; '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' &quot;&gt;
+    &lt;DebugSymbols&gt;true&lt;/DebugSymbols&gt;
+    &lt;DebugType&gt;full&lt;/DebugType&gt;
+    &lt;Optimize&gt;false&lt;/Optimize&gt;
+    &lt;Tailcalls&gt;false&lt;/Tailcalls&gt;
+    &lt;OutputPath&gt;bin\Debug\&lt;/OutputPath&gt;
+    &lt;DefineConstants&gt;DEBUG;TRACE&lt;/DefineConstants&gt;
+    &lt;WarningLevel&gt;3&lt;/WarningLevel&gt;
+  &lt;/PropertyGroup&gt;
+  &lt;PropertyGroup Condition=&quot; '$(Configuration)|$(Platform)' == 'Release|AnyCPU' &quot;&gt;
+    &lt;DebugType&gt;pdbonly&lt;/DebugType&gt;
+    &lt;Optimize&gt;true&lt;/Optimize&gt;
+    &lt;Tailcalls&gt;true&lt;/Tailcalls&gt;
+    &lt;OutputPath&gt;bin\Release\&lt;/OutputPath&gt;
+    &lt;DefineConstants&gt;TRACE&lt;/DefineConstants&gt;
+    &lt;WarningLevel&gt;3&lt;/WarningLevel&gt;
+  &lt;/PropertyGroup&gt;
+  &lt;PropertyGroup Condition=&quot; '$(Configuration)' == 'Debug' &quot;&gt;
+    &lt;Tailcalls&gt;false&lt;/Tailcalls&gt;
+  &lt;/PropertyGroup&gt;
+  &lt;PropertyGroup Condition=&quot; '$(Configuration)' == 'Release' &quot;&gt;
+    &lt;OtherFlags&gt;
+    &lt;/OtherFlags&gt;
+    &lt;WarningLevel&gt;4&lt;/WarningLevel&gt;
+  &lt;/PropertyGroup&gt;
+  &lt;ItemGroup&gt;
+    &lt;Compile Include=&quot;easyroute.fs&quot; /&gt;
+    &lt;Content Include=&quot;App.config&quot; /&gt;
+  &lt;/ItemGroup&gt;
+  &lt;ItemGroup&gt;
+    &lt;Reference Include=&quot;FreeSWITCH.Managed, Version=1.0.4.0, Culture=neutral, PublicKeyToken=null&quot;&gt;
+      &lt;Name&gt;FreeSWITCH.Managed&lt;/Name&gt;
+      &lt;AssemblyName&gt;FreeSWITCH.Managed.dll&lt;/AssemblyName&gt;
+      &lt;SpecificVersion&gt;False&lt;/SpecificVersion&gt;
+      &lt;HintPath&gt;..\..\FreeSWITCH.Managed.dll&lt;/HintPath&gt;
+      &lt;Private&gt;True&lt;/Private&gt;
+    &lt;/Reference&gt;
+    &lt;Reference Include=&quot;FSharp.PowerPack, Version=1.9.6.16, Culture=neutral, PublicKeyToken=a19089b1c74d0809&quot;&gt;
+      &lt;Name&gt;FSharp.PowerPack&lt;/Name&gt;
+      &lt;AssemblyName&gt;FSharp.PowerPack.dll&lt;/AssemblyName&gt;
+      &lt;SpecificVersion&gt;False&lt;/SpecificVersion&gt;
+    &lt;/Reference&gt;
+    &lt;Reference Include=&quot;mscorlib&quot; /&gt;
+    &lt;Reference Include=&quot;FSharp.Core&quot; /&gt;
+    &lt;Reference Include=&quot;System&quot; /&gt;
+    &lt;Reference Include=&quot;System.Configuration, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a&quot;&gt;
+      &lt;Name&gt;System.Configuration&lt;/Name&gt;
+      &lt;AssemblyName&gt;System.configuration.dll&lt;/AssemblyName&gt;
+      &lt;SpecificVersion&gt;False&lt;/SpecificVersion&gt;
+    &lt;/Reference&gt;
+    &lt;Reference Include=&quot;System.Core&quot;&gt;
+      &lt;RequiredTargetFramework&gt;3.5&lt;/RequiredTargetFramework&gt;
+    &lt;/Reference&gt;
+    &lt;Reference Include=&quot;System.Data, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089&quot;&gt;
+      &lt;Name&gt;System.Data&lt;/Name&gt;
+      &lt;AssemblyName&gt;System.Data.dll&lt;/AssemblyName&gt;
+      &lt;SpecificVersion&gt;False&lt;/SpecificVersion&gt;
+    &lt;/Reference&gt;
+    &lt;Reference Include=&quot;System.Transactions, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089&quot;&gt;
+      &lt;Name&gt;System.Transactions&lt;/Name&gt;
+      &lt;AssemblyName&gt;System.Transactions.dll&lt;/AssemblyName&gt;
+      &lt;SpecificVersion&gt;False&lt;/SpecificVersion&gt;
+    &lt;/Reference&gt;
+  &lt;/ItemGroup&gt;
+  &lt;Import Project=&quot;$(MSBuildExtensionsPath)\FSharp\1.0\Microsoft.FSharp.Targets&quot; /&gt;
+  &lt;!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+             Other similar extension points exist, see Microsoft.Common.targets.
+        &lt;Target Name=&quot;BeforeBuild&quot;&gt;
+        &lt;/Target&gt;
+        &lt;Target Name=&quot;AfterBuild&quot;&gt;
+        &lt;/Target&gt;
+        --&gt;
+&lt;/Project&gt;
</ins><span class="cx">\ No newline at end of file
</span></span></pre></div>
<a id="freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteEasyRoutesln"></a>
<div class="addfile"><h4>Added: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.sln (0 => 14406)</h4>
<pre class="diff"><span>
<span class="info">--- freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.sln                                (rev 0)
+++ freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.sln        2009-07-29 02:18:57 UTC (rev 14406)
</span><span class="lines">@@ -0,0 +1,20 @@
</span><ins>+
+Microsoft Visual Studio Solution File, Format Version 10.00
+# Visual Studio 2008
+Project(&quot;{F2A71F9B-5D33-465A-A702-920D77279786}&quot;) = &quot;EasyRoute&quot;, &quot;EasyRoute.fsproj&quot;, &quot;{7B5259D4-EAA0-4BCC-9EAC-8DC054A4A092}&quot;
+EndProject
+Global
+        GlobalSection(SolutionConfigurationPlatforms) = preSolution
+                Debug|Any CPU = Debug|Any CPU
+                Release|Any CPU = Release|Any CPU
+        EndGlobalSection
+        GlobalSection(ProjectConfigurationPlatforms) = postSolution
+                {7B5259D4-EAA0-4BCC-9EAC-8DC054A4A092}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+                {7B5259D4-EAA0-4BCC-9EAC-8DC054A4A092}.Debug|Any CPU.Build.0 = Debug|Any CPU
+                {7B5259D4-EAA0-4BCC-9EAC-8DC054A4A092}.Release|Any CPU.ActiveCfg = Release|Any CPU
+                {7B5259D4-EAA0-4BCC-9EAC-8DC054A4A092}.Release|Any CPU.Build.0 = Release|Any CPU
+        EndGlobalSection
+        GlobalSection(SolutionProperties) = preSolution
+                HideSolutionNode = FALSE
+        EndGlobalSection
+EndGlobal
</ins></span></pre></div>
<a id="freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteEasyRoutesuo"></a>
<div class="binary"><h4>Added: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.suo</h4>
<pre class="diff"><span>
<span class="cx">(Binary files differ)
</span></span></pre></div>
<span class="cx">Property changes on: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/EasyRoute.suo
</span><span class="cx">___________________________________________________________________
</span><span class="cx">Name: svn:mime-type
</span><span class="cx">   + application/octet-stream
</span><a id="freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteeasyroutedll"></a>
<div class="binary"><h4>Added: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.dll</h4>
<pre class="diff"><span>
<span class="cx">(Binary files differ)
</span></span></pre></div>
<span class="cx">Property changes on: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.dll
</span><span class="cx">___________________________________________________________________
</span><span class="cx">Name: svn:mime-type
</span><span class="cx">   + application/octet-stream
</span><a id="freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteeasyroutedllconfig"></a>
<div class="addfile"><h4>Added: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.dll.config (0 => 14406)</h4>
<pre class="diff"><span>
<span class="info">--- freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.dll.config                                (rev 0)
+++ freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.dll.config        2009-07-29 02:18:57 UTC (rev 14406)
</span><span class="lines">@@ -0,0 +1,10 @@
</span><ins>+&lt;?xml version=&quot;1.0&quot;?&gt;
+&lt;configuration&gt;
+  &lt;appSettings&gt;
+    &lt;add key=&quot;connectionString&quot; value=&quot;DSN=easyroute;User=root;Password=;&quot; /&gt;
+    &lt;add key=&quot;defaultProfile&quot; value=&quot;sofia/default&quot;/&gt;
+    &lt;add key=&quot;defaultGateway&quot; value=&quot;192.168.1.1&quot;/&gt;
+    &lt;!-- customQuery can be defined. Fields must be in the same order, and the number parameter must be %number% --&gt;
+    &lt;!-- &lt;add key=&quot;customQuery&quot; value=&quot;SELECT gateways.gateway_ip, gateways.group, gateways.limit, gateways.techprofile, numbers.acctcode, numbers.translated from gateways, numbers where numbers.number = %number% and numbers.gateway_id = gateways.gateway_id;&quot; /&gt; --&gt;
+  &lt;/appSettings&gt;
+&lt;/configuration&gt;
</ins><span class="cx">\ No newline at end of file
</span></span></pre></div>
<a id="freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteeasyroutefs"></a>
<div class="addfile"><h4>Added: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.fs (0 => 14406)</h4>
<pre class="diff"><span>
<span class="info">--- freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.fs                                (rev 0)
+++ freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.fs        2009-07-29 02:18:57 UTC (rev 14406)
</span><span class="lines">@@ -0,0 +1,91 @@
</span><ins>+// To get unixodbc to work on Mono Linux, you may need to create an odbc32.dll link: ln -s /lib64/libodbc.so /lib64/odbc32.dll
+open System
+open System.Data
+open FreeSWITCH
+
+type QueryResult = { dialstring: string; group: string; acctcode: string; limit: int; translated: string }
+
+module easyroute =
+    let getAppSetting (name:string) = match Configuration.ConfigurationManager.AppSettings.Get name with null -&gt; &quot;&quot; | x -&gt; x
+    let connString      = getAppSetting &quot;connectionString&quot;
+    let defaultProfile  = getAppSetting &quot;defaultProfile&quot;
+    let defaultGateway  = getAppSetting &quot;defaultGateway&quot;
+    let query = match getAppSetting &quot;customQuery&quot; with
+                | &quot;&quot; -&gt; &quot;SELECT gateways.gateway_ip, gateways.group, gateways.limit, gateways.techprofile, numbers.acctcode, numbers.translated from gateways, numbers where numbers.number = %number% and numbers.gateway_id = gateways.gateway_id;&quot;
+                | x  -&gt; x            
+    let configOk = [ connString; defaultProfile; defaultGateway; query; ] |&gt; List.forall (String.IsNullOrEmpty &gt;&gt; not)
+                
+    let formatDialstring number gateway profile separator = 
+        match separator with 
+        | None   -&gt; sprintf &quot;%s/%s%s&quot;   profile number gateway
+        | Some s -&gt; sprintf &quot;%s/%s%s%s&quot; profile number s gateway
+
+    let getDefaultResult number sep = { 
+        dialstring = formatDialstring number defaultGateway defaultProfile sep;
+        limit = 9999; group = &quot;&quot;; acctcode = &quot;&quot;; translated = number; }
+        
+    let readResult (r: IDataReader) number sep =
+        let defString def = function null | &quot;&quot; -&gt; def | s -&gt; s
+        let gw          = defString defaultGateway &lt;| r.GetString(0)
+        let group       = r.GetString(1)
+        let limit       = match r.GetInt32(2) with 0 -&gt; 9999 | x -&gt; x
+        let profile     = defString defaultProfile &lt;| r.GetString(3)
+        let acctcode    = r.GetString(4)
+        let translated  = r.GetString(5)
+        let dialstring = formatDialstring number gw profile sep
+        { dialstring = dialstring; limit = limit; group = group; acctcode = acctcode; translated = translated; }
+
+    let lookup (number: string) sep =
+        try
+            let query = query.Replace(&quot;%number%&quot;, sprintf &quot;'%s'&quot; (number.Replace(@&quot;\'&quot;, &quot;'&quot;).Replace(&quot;'&quot;, &quot;''&quot;))) // Don't use params cause some odbc drivers are awesome
+            Log.WriteLine(LogLevel.Debug, &quot;EasyRoute query prepared: {0}&quot;, query)
+            use conn = new Odbc.OdbcConnection(connString)
+            use comm = new Odbc.OdbcCommand(query, conn)
+            conn.Open()
+            use reader = comm.ExecuteReader CommandBehavior.SingleRow
+            match reader.Read() with
+            | true  -&gt; readResult reader number sep
+            | false -&gt; Log.WriteLine(LogLevel.Error, &quot;No records for {0}; setting default route.&quot;, number)
+                       getDefaultResult number sep
+        with ex -&gt; Log.WriteLine(LogLevel.Error, &quot;Exception getting route for {0}. Setting default route. Exception: {1}&quot;, number, ex.ToString())
+                   getDefaultResult number sep
+
+    // Returns tuple: number * separator option * field option
+    let parseArgs args = 
+        let args = String.split [' '] args
+        let num = List.hd args
+        let opt = Map.of_list (List.tl args |&gt; List.map (fun x -&gt; match x.Split([|'='|], 2) with 
+                                                                  | [|n;v|] -&gt; n, Some v 
+                                                                  | arr     -&gt; arr.[0], None))
+        (num, defaultArg (opt.TryFind &quot;separator&quot;) (Some &quot;@&quot;), defaultArg (opt.TryFind &quot;field&quot;) (None))
+open easyroute
+
+type EasyRoute() =
+    interface ILoadNotificationPlugin with
+        member x.Load() = 
+            if not configOk then Log.WriteLine(LogLevel.Alert, &quot;EasyRoute configuration is missing values.&quot;)
+            configOk
+        
+    interface IApiPlugin with
+        member x.ExecuteBackground ctx = 
+            Log.WriteLine(LogLevel.Error, &quot;Background execution not supported for EasyRoute.&quot;)
+        member x.Execute ctx = 
+            let num, sep, field = parseArgs ctx.Arguments
+            let res = lookup num sep
+            let sw = ctx.Stream.Write 
+            match field with
+            | None              -&gt; sw &quot;Number    \tLimit     \tGroup    \tAcctCode  \tDialstring\n&quot;
+                                   sw (sprintf &quot;%-10s\t%-10d\t%-10s\t%-10s\t%s\n&quot; res.translated res.limit res.group res.acctcode res.dialstring)
+            | Some &quot;dialstring&quot; -&gt; sw res.dialstring
+            | Some &quot;translated&quot; -&gt; sw res.translated
+            | Some &quot;limit&quot;      -&gt; sw (string res.limit)
+            | Some &quot;group&quot;      -&gt; sw res.group
+            | Some &quot;acctcode&quot;   -&gt; sw res.acctcode 
+            | _                 -&gt; sw &quot;Invalid input!\n&quot;
+        
+    interface IAppPlugin with
+        member x.Run ctx = 
+            let num, sep, field = parseArgs ctx.Arguments
+            let res = lookup num sep
+            [ &quot;easy_destnum&quot;, res.translated; &quot;easy_dialstring&quot;, res.dialstring; &quot;easy_group&quot;, res.group; &quot;easy_limit&quot;, string res.limit; &quot;easy_acctcode&quot;, res.acctcode]
+                |&gt; List.iter ctx.Session.SetVariable
</ins></span></pre></div>
<a id="freeswitchtrunksrcmodlanguagesmod_managedmanagedexampleseasyrouteeasyroutepdb"></a>
<div class="binary"><h4>Added: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.pdb</h4>
<pre class="diff"><span>
<span class="cx">(Binary files differ)
</span></span></pre></div>
<span class="cx">Property changes on: freeswitch/trunk/src/mod/languages/mod_managed/managed/examples/easyroute/easyroute.pdb
</span><span class="cx">___________________________________________________________________
</span><span class="cx">Name: svn:mime-type
</span><span class="cx">   + application/octet-stream
</span></div>
<div id="footer">See you at ClueCon</div>

</body>
</html>