ebus-racket: rename db.plt->db.rkt

1 files changed, 0 insertions, 22 deletions

diff --git a/ebus-racket/db.plt b/ebus-racket/db.plt
deleted file mode 100644
index 050eafe..0000000
--- a/ebus-racket/db.plt
+++ /dev/null
@@ -1,22 +0,0 @@
-#lang racket/base
-(require (prefix-in db: (planet ryanc/db:1:5)))
-
-(define pgc
-  (db:postgresql-connect #:user "ebus"
-                         #:database "ebus"
-                         #:password "ebus"
-                         #:server "10.2.2.26"))
-
-
-(define (query-sensor-id sensor-name)
-  (db:query-value pgc "select id from sensor where name = $1" sensor-name))
-
-(define (insert sensor-name value-float value-int value-string)
-  (let ([sensor-id (query-sensor-id sensor-name)]
-        [type (cond ((not (void? value-string)) "string")
-                    ((not (void? value-float)) "float")
-                    ((not (void? value-int)) "int"))])
-    (db:query-exec (string-append "INSERT INTO value(timestamp, sensor_id, type, value_float, value_int, value_string) "
-                                  "VALUES (now(), $1, $2, $3, $4, $5)")
-                   sensor-id type value-float value-int value-string)))
-  ;(db:query-exec pgc "select 
\ No newline at end of file