+# callback(err, sk)
+login_cached = (callback) ->
+ if auth.sk
+ callback null, auth.sk
+ login callback
+
+
+# callback(err)
+tune = (tag, callback) ->
+ login_cached (err, sk) ->
+ return callback(err) if err?
+
+ args = "method=radio.tune&station=librefm://#{tag}&sk=#{sk}"
+ headers = { 'Content-Type': 'application/x-www-form-urlencoded', 'Content-Length': args.length }
+ req = http.request { host: 'alpha.libre.fm', port: 80, method: 'POST', path: "/2.0/", headers: headers }, (res) ->
+ if res.statusCode != 200
+ # libre.fm always returns 200, even for authentication failures
+ console.log "radio.tune response code: #{res.statusCode}"
+ callback "radio.tune response code: #{res.statusCode}"
+ return
+ else
+ res.setEncoding 'utf8'
+ response_text = ''
+ res.on 'data', (chunk) ->
+ response_text += chunk
+ res.on 'end', ->
+ parse_lfm_xml response_text, (err, lfm) ->
+ if err
+ # parse error
+ callback "Error while parsing server reply while tuning into \"#{tag}\" station: #{err}"
+ return
+ if lfm[1].status is 'ok'
+ console.log "Tuned to #{tag}"
+ callback()
+ return
+ for element in lfm[2]
+ if element[0] is 'error'
+ code = element[1].code
+ if code is 4 # invalid authentication token
+ delay = 0
+ sk_age = now_ms() - auth.sk_date
+ if sk_age < 30000
+ console.log "Server said our auth token was invalid only #{sk_age}ms after we got it."
+ delay = 30000 - sk_age
+ console.log "Waiting another #{delay}ms before requesting another one."
+ # get new auth token
+ timeout delay, ->
+ login (err, sk) ->
+ if err
+ callback err
+ return
+ tune tag, callback
+ return
+ else
+ if typeof element[2][0]?[2] is 'string'
+ message = JSON.stringify element[2][0][2]
+ console.log "server response from tune: code #{code} message: #{message}"
+ callback "Error during tune: code #{code} message: #{message}"
+ return
+ # looked through all elements, and didn't find one with name "error"
+ callback "Error during tune: server responded without success or error message"
+
+ req.on 'error', (err) ->
+ console.log "tune post http error: #{err}"
+ callback "tune post http error: #{err}"
+
+ req.write args
+ req.end()
+
+# FIXME call tune automatically or remove "tag" argument
+get_playlist = (tag, callback) ->
+ login_cached (err, sk) ->
+ return callback(err) if err?
+
+ tune tag, (err)->
+ return callback(err) if err?
+
+ console.log "getting playlist with sk=#{sk}"
+ http.get { host: 'alpha.libre.fm', port: 80, path: "/2.0/?method=radio.getPlaylist&sk=#{sk}"}, (res) ->
+ if res.statusCode != 200
+ callback "getPlaylist http response code: #{res.statusCode}"
+ return
+
+ res.setEncoding 'utf8'
+ response_text = ''
+ res.on 'data', (chunk) ->
+ response_text += chunk
+ res.on 'end', ->
+ # while testing, got response_text === "BADSESSION"
+ console.log "server responded"
+ # console.log "server said: #{response_text}"
+ parse_xml response_text, (err, response) ->
+ if err?
+ return callback "Error while parsing server reply while requesting playlist: #{err}"
+ for element in response
+ if element[0] is 'playlist'
+ # FIXME write this bit
+ console.log 'Yay we got a playlist!'
+ console.log JSON.stringify element[0]
+ else if element[0] is 'lfm'
+ if element[1].status isnt 'failed'
+ callback "Server responded to our playlist request with #{JSON.stringify response}"
+ return
+
+ # FIXME search for "error" element instead of assuming it's first
+ code = element[2][0]?.code
+ if code is 4 # invalid authentication token
+ delay = 0
+ sk_age = now_ms() - auth.sk_date
+ if sk_age < 30000
+ console.log "Server said our auth token was invalid only #{sk_age}ms after we got it."
+ delay = 30000 - sk_age
+ console.log "Waiting another #{delay}ms before requesting another one."
+ # get new auth token
+ timeout delay, ->
+ login (err, sk) ->
+ if err
+ callback err
+ return
+ get_playlist tag, callback
+ return
+ else
+ if typeof element[2][0]?[2] is 'string'
+ message = JSON.stringify element[2][0][2]
+ console.log "server response from tune: code #{code} message: #{message}"
+ callback "Error during tune: code #{code} message: #{message}"
+ return
+ # looked through all elements, and didn't find one with name "error"
+ callback "Error during tune: server responded without success or error message"
+
+test = (tag, callback) ->
+ get_playlist tag, ->
+ if err?
+ console.log err
+ callback err
+ return
+ console.log 'yay'
+ callback()