TFC/tfcconnection
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

updates to include drakma

Browse source
This commit is contained in:
Chris Cochrun 2023-05-26 09:24:07 -05:00
parent 9acb2b309a
commit 465b2de7f2
2 changed files with 10 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
shell.nix
View file

@ -14,6 +14,7 @@ mkShell rec {
clojure-lsp clojure-lsp
clj-kondo clj-kondo
sbcl sbcl
openssl
]; ];
shellHook = '' shellHook = ''

45
src/server/main.lisp
View file

@ -1,13 +1,12 @@
(load "~/quicklisp/setup.lisp") (load "~/quicklisp/setup.lisp")
(ql:quickload :hunchentoot) (ql:quickload :hunchentoot)
(ql:quickload :caveman2) (ql:quickload :drakma)
(ql:quickload :jsown) (ql:quickload :com.inuoe.jzon)
(ql:quickload :cl-json)
(defpackage tfc-server (uiop:define-package tfc-server
(:use #:hunchentoot #:jsown #:caveman2 #:com.inuoe.jzon)) (:use :cl :hunchentoot :com.inuoe.jzon))
(in-package :tfcconnection) (in-package :tfc-server)
(defun handle-post-request (request) (defun handle-post-request (request)
(let ((form-data (hunchentoot:req request))) (let ((form-data (hunchentoot:req request)))
@ -36,6 +35,7 @@
data))))) data)))))
(defvar last) (defvar last)
(defvar *token* "boFFRM68vvXbO-DO7S9YDg86lHX027-hd07mn0dh")
(defun print-hash-entry (key value) (defun print-hash-entry (key value)
(format t "~S: ~S~%" key value)) (format t "~S: ~S~%" key value))
@ -72,36 +72,9 @@
(medication-schedule (gethash "medication-schedule" form)) (medication-schedule (gethash "medication-schedule" form))
(other-notes (gethash "other-notes" form)) (other-notes (gethash "other-notes" form))
(age (gethash "age" form))) (age (gethash "age" form)))
(uiop:println firstname) (uiop:println "---")
(uiop:println lastname) (maphash 'print-hash-entry form)
(uiop:println parentfirstname) (uiop:println "---")))
(uiop:println parentlastname)
(uiop:println street)
(uiop:println city)
(uiop:println state)
(uiop:println zip)
(uiop:println cellphone)
(uiop:println homephone)
(uiop:println add-emergency-contact)
(uiop:println add-emergency-contact-phone)
(uiop:println doctorname)
(uiop:println doctorcity)
(uiop:println doctorphone)
(uiop:println medical-coverage)
(uiop:println insurance-name)
(uiop:println policy-number)
(uiop:println image)
(uiop:println agreement)
(uiop:println allergies)
(uiop:println allergies-other)
(uiop:println specific-allergies)
(uiop:println allergic-treatment)
(uiop:println conditions)
(uiop:println tetanus-shot)
(uiop:println swimming-ability)
(uiop:println medication-schedule)
(uiop:println other-notes)
(uiop:println age)))
(defun render-json (object) (defun render-json (object)