diff options
author | nathansmith <nathansmith@posteo.com> | 2025-05-14 08:25:50 -0600 |
---|---|---|
committer | nathansmith <nathansmith@posteo.com> | 2025-05-14 08:25:50 -0600 |
commit | 3828d27cc8dde7064f83cbd8815e365984a331c6 (patch) | |
tree | bd03679868187cb690115b12fefe104d981d8880 /cgi-bin | |
parent | b1b9df6726332f1d2b635fe63019df10029e6c77 (diff) |
Freebsd shit
Diffstat (limited to 'cgi-bin')
-rwxr-xr-x | cgi-bin/guest_book.cgi | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/cgi-bin/guest_book.cgi b/cgi-bin/guest_book.cgi index f8caccf..8c0057b 100755 --- a/cgi-bin/guest_book.cgi +++ b/cgi-bin/guest_book.cgi @@ -1,4 +1,4 @@ -#! /usr/bin/guile \ +#! /usr/local/bin/guile3 \ -e main -s !# @@ -7,7 +7,7 @@ (use-modules (sxml simple)) (use-modules (json)) -(define guest-book-json-file "cgi-bin/guest_book.json") +(define guest-book-json-file "guest_book.json") (define (decode-hex hex) (string (integer->char @@ -195,7 +195,7 @@ table {\n\ (lambda (error) (display " <table border=\"1\" width=\"60%\">\n\ <tr><td>\n\ - <p>No guest have been added ): But you can be the first!</p>\n\ + <p>No guest(s) have been added ): But you can be the first!</p>\n\ </td></tr>\n\ </table>\n")) (lambda () @@ -216,4 +216,3 @@ table {\n\ (define (main args) (display-guest-book)) - |