Browse code

Added actual CGI scripts

Jaidyn Lev authored on 2018-06-14 06:18:23
Showing 2 changed files
1 1
new file mode 100755
... ...
@@ -0,0 +1,6 @@
1
+(format t "Content-Type: text/html~%~%")
2
+
3
+(load "init.lisp")
4
+
5
+(doormat:increment-visitors cl-cgi:*query-string*)
6
+(format t "~A" (doormat:fetch-visitors cl-cgi:*query-string*))
0 7
new file mode 100755
... ...
@@ -0,0 +1,7 @@
1
+
2
+(let ((*standard-output* (make-broadcast-stream)))
3
+  (load "/var/lighttpd/.sbclrc"))
4
+(let ((*standard-output* (make-broadcast-stream)))
5
+  (ql:quickload "doormat"))
6
+
7
+(cl-cgi:populate-environment)