Add username and password support for indexing benchmark results.

Author: codebrain

build/scripts/Benchmarking.fsx

@@ -167,7 +167,7 @@ module Benchmarker =
         if indexResponse.IsValid = false then
                 raise (Exception("Unable to index report into Elasticsearch: " + indexResponse.ServerError.Error.ToString()))
 
-    let IndexResults url =
+    let IndexResults (url, username, password) =
         if (String.IsNullOrEmpty url = false) then
             trace "Indexing benchmark results into Elasticsearch"
 
@@ -179,7 +179,12 @@ module Benchmarker =
                 |> Seq.toList
 
             let uri = new Uri(url)
-            let client = new ElasticClient(uri)
+            let connectionSettings = new ConnectionSettings(uri);
+
+            if (String.IsNullOrEmpty username = false && String.IsNullOrEmpty password = false) then
+                connectionSettings.BasicAuthentication(username, password) |> ignore
+
+            let client = new ElasticClient(connectionSettings)
 
             let indexExists = client.IndexExists(Indices.op_Implicit(indexName)).Exists
 

build/scripts/Commandline.fsx

@@ -77,6 +77,12 @@ module Commandline =
 
         | ["test"; testFilter] -> setBuildParam "testfilter" testFilter
 
+        | ["benchmark"; IsUrl elasticsearch; username; password] ->
+            setBuildParam "elasticsearch" elasticsearch
+            setBuildParam "nonInteractive" "0"
+            setBuildParam "username" username
+            setBuildParam "password" password
+
         | ["benchmark"; IsUrl elasticsearch] ->
             setBuildParam "elasticsearch" elasticsearch
             setBuildParam "nonInteractive" "0"

build/scripts/Targets.fsx

@@ -52,7 +52,9 @@ Target "Benchmark" <| fun _ ->
     let runInteractive = ((getBuildParam "nonInteractive") <> "1")
     Benchmarker.Run(runInteractive)
     let url = getBuildParam "elasticsearch"
-    Benchmarker.IndexResults url
+    let username = getBuildParam "username"
+    let password = getBuildParam "password"
+    Benchmarker.IndexResults (url, username, password)
 
 Target "InheritDoc"  InheritDoc.PatchInheritDocs