Use AccessToken from DB

Author: forki

src/Server/AzureTable.fs

@@ -154,6 +154,8 @@ let mapTag (entity: DynamicTableEntity) : Tag =
 let mapUser (entity: DynamicTableEntity) : User =
     { UserID = entity.RowKey
       SonosID = getStringProperty "SonosID" entity
+      SonosAccessToken = getStringProperty "SonosAccessToken" entity
+      SonosRefreshToken = getStringProperty "SonosRefreshToken" entity
       SpeakerType =
         match Decode.fromString SpeakerType.Decoder (getStringProperty "SpeakerType" entity) with
         | Error msg -> failwith msg

src/Server/Server.fs

@@ -123,7 +123,6 @@ let uploadEndpoint (userID:string) =
         })
     }
 
-let accessToken = "0df1e468-cd6f-4038-9734-9bcf4777925b"
 let group = "RINCON_347E5CF009E001400:3169659583"
 
 open System.Net
@@ -246,8 +245,8 @@ let previousFileEndpoint (userID,token) =
                     return! setBodyFromString txt next ctx
                 | SpeakerType.Sonos ->
                     let logger = ctx.GetLogger "PreviousFile"
-                    let! session = createOrJoinSession logger accessToken group
-                    do! playStream logger accessToken session tag
+                    let! session = createOrJoinSession logger user.SonosAccessToken group
+                    do! playStream logger user.SonosAccessToken session tag
 
                     let tag : TagForBox = {
                         Token = tag.Token
@@ -304,8 +303,8 @@ let nextFileEndpoint (userID,token) =
                     return! setBodyFromString txt next ctx
                 | SpeakerType.Sonos ->
                     let logger = ctx.GetLogger "NextFile"
-                    let! session = createOrJoinSession logger accessToken group
-                    do! playStream logger accessToken session tag
+                    let! session = createOrJoinSession logger user.SonosAccessToken group
+                    do! playStream logger user.SonosAccessToken session tag
 
                     let tag : TagForBox = {
                         Token = tag.Token

src/Shared/Shared.fs

@@ -175,18 +175,24 @@ type SpeakerType =
 type User =
     { UserID : string
       SpeakerType : SpeakerType
+      SonosAccessToken : string
+      SonosRefreshToken : string
       SonosID : string }
 
     static member Encoder (user : User) =
         Encode.object [
             "UserID", Encode.string user.UserID
             "SpeakerType", SpeakerType.Encoder user.SpeakerType
+            "SonosAccessToken", Encode.string user.SonosAccessToken
+            "SonosRefreshToken", Encode.string user.SonosRefreshToken
             "SonosID", Encode.string user.SonosID
         ]
     static member Decoder =
         Decode.object (fun get ->
             { UserID = get.Required.Field "UserID" Decode.string
               SpeakerType = get.Required.Field "SpeakerType" SpeakerType.Decoder
+              SonosAccessToken = get.Required.Field "SonosAccessToken" Decode.string
+              SonosRefreshToken = get.Required.Field "SonosRefreshToken" Decode.string
               SonosID = get.Required.Field "SonosID" Decode.string }
         )