Bumping version to 0.16.5

Dockerfile

@@ -1,7 +1,7 @@
 FROM microsoft/dotnet:2.2.0-runtime
 COPY /deploy .
-ADD https://yt-dl.org/downloads/latest/youtube-dl youtube-dl
-RUN  chmod a+rx youtube-dl
+ADD https://yt-dl.org/downloads/latest/youtube-dl /usr/local/bin/youtube-dl
+RUN  chmod a+rx /usr/local/bin/youtube-dl
 WORKDIR .
 EXPOSE 8085
 ENTRYPOINT ["dotnet", "Server.dll"]

RELEASE_NOTES.md

@@ -1,6 +1,6 @@
 # Release Notes
 
-## 0.16.4 - 2018-12-15
+## 0.16.5 - 2018-12-15
 * Update to ASP.NET 2.2
 
 ## 0.15.11 - 2018-11-05

src/Client/ReleaseNotes.fs

@@ -1,13 +1,13 @@
 module internal ReleaseNotes
 
-let Version = "0.16.4"
+let Version = "0.16.5"
 
 let IsPrerelease = false
 
 let Notes = """
 # Release Notes
 
-## 0.16.4 - 2018-12-15
+## 0.16.5 - 2018-12-15
 * Update to ASP.NET 2.2
 
 ## 0.15.11 - 2018-11-05

src/Server/Server.fs

@@ -13,6 +13,7 @@ open System.Threading.Tasks
 open Giraffe.WebSocket
 open Microsoft.AspNetCore.Builder
 open Microsoft.AspNetCore.Hosting
+open System.Diagnostics
 
 #if DEBUG
 let publicPath = Path.GetFullPath "../Client/public"
@@ -138,6 +139,40 @@ let firmwareEndpoint =
     }
 
 
+let discoverYoutubeLink (youtubeURL:string) = task {
+    let lines = System.Collections.Generic.List<_>()
+    let proc = new Process ()
+    let startInfo = new ProcessStartInfo()
+    startInfo.FileName <- "sudo"
+    startInfo.Arguments <- sprintf "youtube-dl -g \"%s\"" youtubeURL
+    startInfo.UseShellExecute <- false
+    startInfo.RedirectStandardOutput <- true
+    startInfo.CreateNoWindow <- true
+    proc.StartInfo <- startInfo
+
+    proc.Start() |> ignore
+    while not proc.StandardOutput.EndOfStream do
+        let! line = proc.StandardOutput.ReadLineAsync()
+        lines.Add line
+
+    let lines = Seq.toArray lines
+    let links =
+        lines
+        |> Array.filter (fun x -> x.Contains "&mime=audio")
+
+    return youtubeURL,links
+}
+
+let discoverEndpoint (url) =
+    pipeline {
+        set_header "Content-Type" "application/json"
+        plug (fun next ctx -> task {
+            let! tag = discoverYoutubeLink url
+
+            return! setBodyFromString (sprintf "%A" tag) next ctx
+        })
+    }
+
 let tagHistoryBroadcaster = ConnectionManager()
 
 let t = task {
@@ -154,6 +189,7 @@ let webApp =
         postf "/api/upload/%s" uploadEndpoint
         get "/api/startup" startupEndpoint
         get "/api/firmware" firmwareEndpoint
+        get "/api/discover" (discoverEndpoint "https://www.youtube.com/watch?v=kfSlg3HtaSw")
         get "/api/latestfirmware" getLatestFirmware
         getf "/api/taghistorysocket/%s" (TagHistorySocket.openSocket tagHistoryBroadcaster)
     }