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

updating flake to make shell.nix work and updating server

Browse source
This commit is contained in:
Chris Cochrun 2023-06-01 09:45:35 -05:00
parent d6d809d5d4
commit 78eb9da780
5 changed files with 70 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

54
src/server/main.lisp
View file

@ -1,5 +1,12 @@
(load "~/quicklisp/setup.lisp")
(ql:quickload '(hunchentoot clack dexador com.inuoe.jzon serapeum))
(require :asdf)
(require :hunchentoot)
(require :dexador)
(require :serapeum)
(require :clack)
(require :com.inuoe.jzon)
;; (load "~/quicklisp/setup.lisp")
;; (ql:quickload :cffi :silent t)
;; (ql:quickload '(hunchentoot clack dexador com.inuoe.jzon serapeum))
(uiop:define-package tfc-server
(:use :cl :uiop :com.inuoe.jzon :clack))
@ -10,16 +17,10 @@
(defvar *last-data*)
(defvar *last-list-data*)
(defvar *stream*)
(defvar *token* "boFFRM68vvXbO-DO7S9YDg86lHX027-hd07mn0dh")
(setf hunchentoot:*default-connection-timeout* 240)
(defvar *auth-token* "boFFRM68vvXbO-DO7S9YDg86lHX027-hd07mn0dh")
(defvar *server* (hunchentoot:start (make-instance 'hunchentoot:easy-acceptor :port 4242)))
(hunchentoot:define-easy-handler (say-yo :uri "/yo") (name)
(setf (hunchentoot:content-type*) "text/plain")
(format nil "Hey~@[ ~A~]!" name))
(hunchentoot:define-easy-handler (respond :uri "/health-form") ()
(setf (hunchentoot:content-type*) "application/json")
(let ((request-type (hunchentoot:request-method hunchentoot:*request*)))
@ -28,8 +29,7 @@
(uiop:println hunchentoot:*request*)
(setq *last* hunchentoot:*request*)
(setq *stream* (hunchentoot::content-stream hunchentoot:*request*))
(let* ((stream (hunchentoot::content-stream hunchentoot:*request*))
(data (hunchentoot::get-post-data :request *last*))
(let* ((data (hunchentoot::get-post-data :request *last*))
(content-type (hunchentoot:header-in "content-type" hunchentoot:*request*))
(boundary (let ((position (position #\= content-type)))
(when position
@ -61,26 +61,42 @@
(image-file-name (if (string= name "image")
(subseq content-disposition
(1+ file-start) file-end) nil))
(form-list '()))
(form-list nil))
;; This gets rid of beginning and ending NIL values
(if name (if (string/= name "image") (progn
(format t "~&~A: ~A" name content)
(setq form-list (list (cons name content))))) nil)
(setq form-list (acons name content form-list)))) nil)
(if (string= name "image") (setq content (butlast content)))
(if (string= "image" name)
(progn (format t "~&~A: ~A" name image-file-name)
(setq form-list (list name image-file-name))
(setq form-list (acons name image-file-name form-list))
(save-string-file
(apply #'concatenate 'string content) image-file-name)))
(setq *last-list-data* (append *last-list-data* form-list)))))))))
(defun post-health-form (data-list)
"Takes the health form as an alist and posts it to nocodb"
(let* ((student-name (concatenate 'string (cdr (assoc "firstname" data-list :test 'string=)) " " (cdr (assoc "lastname" data-list :test 'string=))))
(parent-name (concatenate 'string (cdr (assoc "parentfirstname" data-list :test 'string=)) " " (cdr (assoc "parentlastname" data-list :test 'string=))))
(agreement t)
(medical-coverage (string= (cdr (assoc "medical-coverage" data-list :test 'string=)) "yes"))
(data nil))
(setf (assoc "firstname" data-list :test 'string=) '("Student Name" . student-name))
(setf (assoc "lastname" data-list :test 'string=) nil)
(setf (assoc "parentfirstname" data-list :test 'string=) '("Parent Name" . parent-name))
(setf (assoc "parentlastname" data-list :test 'string=) nil)
(format t "~&~A" data-list)
(dex:post "https://tbl.tfcconnection.org/api/v1/db/data/v1/TFC/Health%20Forms/"
:headers '(("xc-auth" . *auth-token*))
:content data-list)))
(defun display-stream (stream)
(loop for line = (read-line stream nil)
while line do (format t "~A~%" line)))
(defun test-car-inner (item alist)
"Looks inside the inner car and tests to see if it is equal to item"
(format t "~&~A" (car alist))
(eql (car alist) item))
(defun print-hash-entry (key value)
(format t "~S: ~S~%" key (if (hash-table-p value) (maphash 'print-hash-entry value) value)))
@ -91,10 +107,6 @@
(maphash 'print-hash-entry form)
(uiop:println "---"))
(defun render-json (object)
(uiop:println (format nil "Json: ~A" (com.inuoe.jzon:stringify object))))
(defun save-string-file (string file-path)
"save a file that is represented as a string to disk that came from a multipart/form-data"
(serapeum/bundle:write-string-into-file string file-path