feat: refresh token authentication

Adds support for refresh token based authentication

Author: ikubicki

Config.lua

@@ -53,6 +53,10 @@ function Config:setAccessToken(token)
     self.token = token
 end
 
+function Config:getRefreshToken()
+    return self.rtoken
+end
+
 function Config:getTimeoutInterval()
     return tonumber(self.interval) * 60000
 end
@@ -76,6 +80,7 @@ function Config:init()
     self.type = tostring(self.app:getVariable('Type'))
     self.interval = self.app:getVariable('Interval')
     self.token = self.app:getVariable('AccessToken')
+    self.rtoken = self.app:getVariable('RefreshToken')
 
     local storedClientID = Globals:get('netatmo_client_id')
     local storedClientSecret = Globals:get('netatmo_client_secret')

Netatmo.lua

@@ -14,6 +14,7 @@ function Netatmo:new(config)
     self.module_id = config:getModuleID()
     self.access_token = config:getAccessToken()
     self.token = Globals:get('netatmo_atoken', '')
+    self.refresh_token = config:getRefreshToken()
     self.http = HTTPClient:new({})
     return self
 end
@@ -209,6 +210,13 @@ function Netatmo:auth(callback)
         end
         return
     end
+    if string.len(self.access_token) > 10 then
+        if callback ~= nil then
+            Netatmo:setToken(self.access_token)
+            callback({})
+        end
+        return
+    end
     local data = {
         ["grant_type"] = 'password',
         ["scope"] = 'read_station',
@@ -217,6 +225,14 @@ function Netatmo:auth(callback)
         ["username"] = self.user,
         ["password"] = self.pass,
     }
+    if string.len(self.refresh_token) > 10 then
+        data = {
+            ["grant_type"] = 'refresh_token',
+            ["refresh_token"] = self.refresh_token,
+            ["client_id"] = self.client_id,
+            ["client_secret"] = self.client_secret,
+        }
+    end
     local fail = function(response)
         QuickApp:error('Unable to authenticate')
         if self.access_token == self.token then

Netatmo_Unified_Sensor-CO2.fqa

@@ -11,9 +11,7 @@ Data updates every 5 minutes by default.
 
 `ClientSecret` - Netatmo client secret
 
-`Username` - Netatmo username
-
-`Password` - Netatmo password
+`RefreshToken` - Refresh token
 
 ### Optional values
 
@@ -28,6 +26,16 @@ Other sensors (because they are using generic type - Multilevel sensor type) all
 
 `AccessToken` - Allows to set own access token and bypass credentials authentication.
 
+## Installation
+
+To acquire required parameters, you need to go to Netatmo Connect site and create new application. Once that's done, you will be able to get client ID and client secret. To get refresh token, you need to use a Token generator (section below you get client id and client secret).
+From generated token you need to use a Refresh Token value.
+This should allow you to run quick application in your Fibaro Home Center device.
+
 ## Integration
 
-This quick application integrates with other Netatmo dedicated quick apps for devices. It will automatically populate configuration to new virtual Netatmo devices.
+This quick application integrates with other Netatmo dedicated quick apps for devices. It will automatically populate configuration to new virtual Netatmo devices.
+
+## Support
+
+Due to horrible user experience with Fibaro Marketplace, for better communication I recommend to contact with me through GitHub or create an issue in the repository.

Netatmo_Unified_Sensor-Humidity.fqa

@@ -1,6 +1,7 @@
 --[[
 Netatmo Unified Sensor
 @author ikubicki
+@version 1.1.0
 ]]
 function QuickApp:onInit()
     self.config = Config:new(self)
@@ -56,7 +57,7 @@ function QuickApp:searchEvent()
     self:debug(self.i18n:get('searching-devices'))
     self:updateView("button2_1", "text", self.i18n:get('searching-devices'))
     local searchDevicesCallback = function(stations)
-        QuickApp:debug(json.encode(stations))
+        -- QuickApp:debug(json.encode(stations))
         -- printing results
         for _, station in pairs(stations) do
             QuickApp:trace(string.format(self.i18n:get('search-row-station'), station.name, station.id))