Guest Book

From 1cdfd93e1f02739a685d1cdb131b3efe13adc06b Mon Sep 17 00:00:00 2001 From: nathansmith Date: Sat, 24 May 2025 11:52:12 -0600 Subject: No more tables in guest book --- org/cgi-bin/guest-book.cgi | 92 +++++++++++++++++----------------------------- 1 file changed, 34 insertions(+), 58 deletions(-) (limited to 'org/cgi-bin') diff --git a/org/cgi-bin/guest-book.cgi b/org/cgi-bin/guest-book.cgi index bfad47b..4c4d4fd 100755 --- a/org/cgi-bin/guest-book.cgi +++ b/org/cgi-bin/guest-book.cgi @@ -127,77 +127,55 @@ (message (cdr (list-ref guest 1))) (url (cdr (list-ref guest 2))) (name (cdr (list-ref guest 3)))) - (format #t " \n\ - \n\ -

\n\ - ~a ~a --- signed ~a\n\ -

\n\ -

\n\n" name url url date message))) + (format #t "

+ ~a ~a --- signed ~a\n\ +

\n\ +

\n
\n" name url url date message))) ;; Display pretty much everything (define (display-guest-book) (display "Content-Type: text/html\n\n\ -\n\ -\n\ +\n\ +\n\ \n\ Guest Book\n\ - \n\ + + \n\ \n\ \n\ $\"Back$ \n\ - \n\ - \n\ - \n\ - \n\ - \n\ -

\n\ -

Sign my fucking guest book

\n\ - \n\ -

\n\ - Be nice! Dont be a fucking ass.\n\ -

\n") +

\n\ +

Sign my fucking guest book

\n\ + \n\ +

\n\ + Be nice! Dont be a fucking ass.\n\ +

\n") (handle-fields) - (display "

\n\n") + (display " \n
\n") ;; Try to read the guest book json (with-exception-handler (lambda (error) - (display " \n\ - \n\ -

\n\ + (display "

\n\

No guest(s) have been added ): But you can be the first!

\n\ -

\n")) + \n")) (lambda () (call-with-input-file guest-book-json-file (lambda (fp) @@ -210,9 +188,7 @@ table {\n\ (guest-loop (- (vector-length guest-book) 1)))))) #:unwind? #t) - (display " \n\ -\n\ -\n")) + (display "\n\n")) (define (main args) (display-guest-book)) -- cgit v1.2.3