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

beginning to post data to nextcloud tables

Browse source
This commit is contained in:
Chris Cochrun 2024-04-25 22:54:35 -05:00
parent 5b988b14ae
commit f6eebe56dd
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/main.lisp
View file

@ -54,7 +54,7 @@
(headers (list (cons "Authorization" *auth-token*) (headers (list (cons "Authorization" *auth-token*)
(cons "Content-Type" "application/json"))) (cons "Content-Type" "application/json")))
(rows (parse (dex:get (rows (parse (dex:get
"https://staff.tfcconnection.org/apps/tables/api/1/tables/4/rows" "https://staff.tfcconnection.org/apps/tables/api/1/tables/5/rows"
:basic-auth '("chris" . "2VHeGxeC^Zf9KqFK^G@Pt!zu2q^6@b") :basic-auth '("chris" . "2VHeGxeC^Zf9KqFK^G@Pt!zu2q^6@b")
:verbose t))) :verbose t)))
(lowid 0) (lowid 0)
@ -242,6 +242,15 @@
:verbose t) :verbose t)
)) ))
(defun post-camp-data (data)
"Takes the camp data as an alist and sends it to nextcloud tables to be input"
(let ((new-data '((63 . "Frodo Braggins") (64 . "Bilbo Braggins"))))
(log:info new-data)
(dex:post "https://staff.tfcconnection.org/apps/tables/api/1/tables/5/rows"
:basic-auth '("chris" . "2VHeGxeC^Zf9KqFK^G@Pt!zu2q^6@b")
:content `(("data" . ,(stringify new-data)))
:verbose t)))
(defun mail-mt-form (form attachment) (defun mail-mt-form (form attachment)
"Takes the form as an alist and sends a table formatted email "Takes the form as an alist and sends a table formatted email
with the image attached to us" with the image attached to us"