Distinguish between Azure and Local RAFT RESTler runs (#187)

Co-authored-by: stas <statis@microsoft.com>

Author: stishkin

src/Agent/RESTlerAgent/AgentMain.fs

@@ -581,7 +581,13 @@ let main argv =
             match agentConfiguration.SiteHash with
             | None -> "NotSet"
             | Some h -> h
-        use telemetryClient = new Restler.Telemetry.TelemetryClient(siteHash, if agentConfiguration.TelemetryOptOut then "" else Restler.Telemetry.InstrumentationKey)
+
+
+        let telemetryTag = 
+            match System.Environment.GetEnvironmentVariable("RAFT_LOCAL") |> Option.ofObj with
+            | None -> "RAFT"
+            | Some _ -> "RAFT-LOCAL"
+        use telemetryClient = new Restler.Telemetry.TelemetryClient(siteHash, (if agentConfiguration.TelemetryOptOut then "" else Restler.Telemetry.InstrumentationKey), telemetryTag)
 
         if not <| IO.Directory.Exists workDirectory then
             appInsights.TrackTrace((sprintf "Workd directory does not exist: %s" workDirectory),

src/Agent/RESTlerAgent/Telemetry.fs

@@ -9,14 +9,14 @@ module Restler.Telemetry
 //Instrumentation key is from app insights resource in Azure Portal
 let [<Literal>] InstrumentationKey = "6a4d265f-98cd-432f-bfb9-18ced4cd43a9"
 
-type TelemetryClient(machineId: string, instrumentationKey: string) =
+type TelemetryClient(machineId: string, instrumentationKey: string, tag: string) =
     let client =
         let c = Microsoft.ApplicationInsights.TelemetryClient(
                     new Microsoft.ApplicationInsights.Extensibility.TelemetryConfiguration(instrumentationKey))
         // Make sure to not send any instance names or IP addresses
         // These must be non-empty strings to override sending the values obtained by the framework
         c.Context.Cloud.RoleName <- "none"
-        c.Context.Cloud.RoleInstance <- "RAFT"
+        c.Context.Cloud.RoleInstance <- tag
         c.Context.Location.Ip <- "0.0.0.0"
         c