55 lines
1.7 KiB
Scheme
55 lines
1.7 KiB
Scheme
|
|
||
|
|
;; interface to the pachube API
|
||
|
|
;; http://community.pachube.com/?q=node/127
|
||
|
|
;; http://community.pachube.com/api
|
||
|
|
|
||
|
|
|
||
|
|
;<?xml version="1.0" encoding="UTF-8"?>
|
||
|
|
;<eeml xmlns="http://www.eeml.org/xsd/005">
|
||
|
|
; <environment>
|
||
|
|
; <data id="0">
|
||
|
|
; <value>36.2</value>
|
||
|
|
; </data>
|
||
|
|
; </environment>
|
||
|
|
;</eeml>
|
||
|
|
|
||
|
|
(module pachube scheme
|
||
|
|
|
||
|
|
(require net/url)
|
||
|
|
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(define source (string->url "http://www.pachube.com/api/1951.xml"))
|
||
|
|
(define api-key "")
|
||
|
|
|
||
|
|
(define (format-data l m) (string-append "<?xml version='1.0' encoding='UTF-8'?><eeml xmlns='http://www.eeml.org/xsd/005'>
|
||
|
|
<environment><data id='0'><value>" l "</value></data><data id='1'><value>" m "</value></data></environment></eeml>"))
|
||
|
|
|
||
|
|
(define serial (open-input-file "/dev/cu.usbserial-A6004bp0"))
|
||
|
|
|
||
|
|
(define (read-serial)
|
||
|
|
(process (read-line serial))
|
||
|
|
(read-serial))
|
||
|
|
|
||
|
|
(define (process str)
|
||
|
|
(let ([data (regexp-split #rx"," str)])
|
||
|
|
(printf "light: ~a, moisture: ~a~n" (list-ref data 1) (list-ref data 2))
|
||
|
|
(send-data (list-ref data 1) (list-ref data 2))))
|
||
|
|
|
||
|
|
;; retrive data
|
||
|
|
;; curl --request GET --header "X-PachubeApiKey: YOUR_API_KEY" "http://www.pachube.com/api/504.csv"
|
||
|
|
|
||
|
|
(define (get-test)
|
||
|
|
(get-pure-port source (list (string-append "X-PachubeApiKey: " api-key))))
|
||
|
|
|
||
|
|
;; update the values from a feed
|
||
|
|
;; curl --request PUT --header "X-PachubeApiKey: YOUR_API_KEY" --data "test" "http://www.pachube.com/api/504.csv"
|
||
|
|
|
||
|
|
(define (send-data l m)
|
||
|
|
(display-pure-port (put-impure-port
|
||
|
|
source
|
||
|
|
(string->bytes/utf-8 (format-data l m))
|
||
|
|
(list (string-append "X-PachubeApiKey: " api-key)))))
|
||
|
|
|
||
|
|
|
||
|
|
)
|