From 54ab3a3740794733db0bbfd72de6e87757eb3352 Mon Sep 17 00:00:00 2001
From: Bart Van Der Meerssche <bart.vandermeerssche@flukso.net>
Date: Wed, 30 Mar 2011 16:20:03 +0200
Subject: [PATCH] [fluksod] POST measurements to the new RESTful API

---
 .../package/flukso/luasrc/flukso/data.lua     | 10 +++
 .../openwrt/package/flukso/luasrc/fluksod.lua | 71 +++++++++++++++++--
 2 files changed, 74 insertions(+), 7 deletions(-)

diff --git a/mote/v2/openwrt/package/flukso/luasrc/flukso/data.lua b/mote/v2/openwrt/package/flukso/luasrc/flukso/data.lua
index cec85e0..d864b0e 100644
--- a/mote/v2/openwrt/package/flukso/luasrc/flukso/data.lua
+++ b/mote/v2/openwrt/package/flukso/luasrc/flukso/data.lua
@@ -53,6 +53,16 @@ function add(M, sensor, timestamp, value)
 	M[sensor][timestamp] = value
 end
 
+function get_sensors(M)
+	local S = {}
+
+	for sensor in pairs(M) do
+		S[#S+1] = sensor
+	end
+
+	return S
+end
+
 function clear(M, sensor)
 	if sensor then
 		M[sensor] = nil
diff --git a/mote/v2/openwrt/package/flukso/luasrc/fluksod.lua b/mote/v2/openwrt/package/flukso/luasrc/fluksod.lua
index 9c59b54..2660090 100755
--- a/mote/v2/openwrt/package/flukso/luasrc/fluksod.lua
+++ b/mote/v2/openwrt/package/flukso/luasrc/fluksod.lua
@@ -22,11 +22,13 @@
 ]]--
 
 
-local dbg   = require 'dbg'
-local nixio = require 'nixio'
-nixio.fs    = require 'nixio.fs'
-local uci   = require 'luci.model.uci'.cursor()
-local data  = require 'flukso.data'
+local dbg        = require 'dbg'
+local nixio      = require 'nixio'
+nixio.fs         = require 'nixio.fs'
+local uci        = require 'luci.model.uci'.cursor()
+local httpclient = require 'luci.httpclient'
+local opkg       = require 'luci.model.ipkg'
+local data       = require 'flukso.data'
 
 local arg = arg or {} -- needed when this code is not loaded via the interpreter
 
@@ -52,6 +54,7 @@ local WAN_INTERVAL	= 300
 local LAN_ENABLED	= true
 local TIMESTAMP_MIN	= 1234567890
 
+-- set WAN parameters
 local WAN_FILTER = { [1] = {}, [2] = {}, [3] = {} }
 WAN_FILTER[1].span	= 60
 WAN_FILTER[1].offset	= 0
@@ -60,6 +63,18 @@ WAN_FILTER[2].offset	= 7200
 WAN_FILTER[3].span	= 86400
 WAN_FILTER[3].offset	= 172800
 
+local WAN_BASE_URL	= 'https://api.flukso.net/sensor/'
+local WAN_KEY		= '0123456789abcdef0123456789abcdef'
+uci:foreach('system', 'system', function(x) WAN_KEY = x.key end) -- quirky but it works
+
+-- https headers
+local FLUKSO_OPKG_INFO  = opkg.info('flukso')
+local FLUKSO_VERSION    = FLUKSO_OPKG_INFO.flukso.Version
+
+local USER_AGENT        = 'Fluksometer v' .. FLUKSO_VERSION
+local CACERT		= '/etc/ssl/certs/flukso.ca.crt'
+
+-- set LAN parameters
 local LAN_POLISH_CUTOFF	= 60
 local LAN_PUBLISH_PATH	= DAEMON_PATH .. '/sensor'
 
@@ -100,6 +115,7 @@ function dispatch(wan_child, lan_child)
 
 				-- resume both branches
 				if WAN_ENABLED then
+					-- TODO send incoming pulses to syslog
 					coroutine.resume(wan_child, sensor_id, timestamp, counter)
 				end
 
@@ -128,6 +144,9 @@ function wan_buffer(child)
 		while true do
 			if not previous[sensor_id] then
 				previous[sensor_id] = {}
+				-- use the first received counter value as guard
+				previous[sensor_id].timestamp = timestamp
+				previous[sensor_id].counter = counter
 			end
 
 			if timestamp > TIMESTAMP_MIN
@@ -161,10 +180,48 @@ function filter(child, span, offset)
 end
 
 
-function send(child)  -- TODO fill in dummy send
+function send(child)
 	return coroutine.create(function(measurements)
+		local headers = {}
+  		headers['Content-Type'] = 'application/json'
+		headers['X-Version'] = '1.0'
+		headers['User-Agent'] = USER_AGENT
+
+		local options = {}
+		options.sndtimeo = 5
+		options.rcvtimeo = 5
+		options.method  = 'POST'
+		options.tls_context_set_verify = 'peer'
+		options.cacert = CACERT
+		options.headers = headers
+
 		while true do
-			-- measurements:clear()
+			local sensors = measurements:get_sensors()
+			local measurements_json = measurements:json_encode()
+			local http_persist = httpclient.create_persistent()
+
+			for i, sensor_id in ipairs(sensors) do
+				if i ~= #sensors then
+					options.headers['Connection'] = 'keep-alive'
+				else
+					options.headers['Connection'] = 'close'
+				end
+
+				options.body = '{"measurements":' .. measurements_json[sensor_id] .. '}'
+				options.headers["Content-Length"] = tostring(#options.body)
+				
+				local hash = nixio.crypto.hmac('sha1', WAN_KEY)
+				hash:update(options.body)
+				options.headers['X-Digest'] = hash:final()
+
+				local response, code, msg = http_persist(WAN_BASE_URL .. sensor_id,  options)
+
+				if response then
+					-- TODO send response string to syslog
+					measurements:clear(sensor_id)
+				end
+			end
+
 			coroutine.resume(child, measurements)
 			measurements = coroutine.yield()
 		end