Finished up scheme cgi

2 files changed, 29 insertions, 184 deletions

diff --git a/cgi-bin/guest_book.cgi b/cgi-bin/guest_book.cgi
index d527d2d..f8caccf 100755
--- a/cgi-bin/guest_book.cgi
+++ b/cgi-bin/guest_book.cgi
@@ -62,7 +62,9 @@
         (guest `(("name" . ,name)
                  ("url" . ,url)
                  ("message" . ,message)
-                 ("date" . ,(date->string (current-date) "~B, ~d ~Y")))))
+                 ("date" . ,(date->string (current-date) "~B, ~d ~Y"))))
+        (not-already-added #t))
+    
     (if (file-exists? guest-book-json-file)
         (call-with-input-file guest-book-json-file
           (lambda (fp)
@@ -76,28 +78,35 @@
     (letrec ((check-if-already-added
               (lambda (guests)
                 (unless (eq? guests '())
-                  (unless (letrec ((guest-item-compare
-                                    (lambda (index)
-                                      (if (< index (- (length guest) 1))
-                                          (and (cdr (list-ref (car guests)
-                                                              index))
-                                               (cdr (list-ref guest index))
-                                               (guest-item-compare
-                                                (+ index 1))) ;; Unholyness
-                                           
-                  (check-if-already-added (cdr guests))))))
+                  (cond ((compare-guests 0 (car guests) guest)
+                         (set! not-already-added #f))
+                        (else
+                         (check-if-already-added (cdr guests)))))))
+             (compare-guests
+              (lambda (index guest1 guest2)
+                (and (string= (cdr (list-ref guest1 index))
+                              (cdr (list-ref guest2 index)))
+                     (cond ((< index 3)
+                            (compare-guests (+ index 1) guest1 guest2))
+                           (else #t))))))
       (check-if-already-added guest-book))
 
     ;; Add guest to guest-book
-    (cond ((eq? guest-book '())
-           (set! guest-book (list guest)))
-          (else
-           (append! guest-book (list guest))))
-
-    ;; Write guest book to json
-    (call-with-output-file guest-book-json-file
-      (lambda (fp)
-        (scm->json (list->vector guest-book) fp)))))
+    (cond (not-already-added
+           (cond ((eq? guest-book '())
+                  (set! guest-book (list guest)))
+                 (else
+                  (append! guest-book (list guest))))
+
+           ;; Write guest book to json
+           (call-with-output-file guest-book-json-file
+             (lambda (fp)
+               (scm->json (list->vector guest-book) fp)))
+
+           (display "<p>You been added to the guest book yippe (:</p>\
+<img src=\"../images/yippee.gif\" alt=\"yippee!\"/>\n"))
+           (else
+            (display "You already been added\n")))))
 
 (define (handle-fields)
   (let ((form (get-form)))
diff --git a/cgi-bin/guest_book.py b/cgi-bin/guest_book.py
deleted file mode 100755
index 97a7403..0000000
--- a/cgi-bin/guest_book.py
+++ /dev/null
@@ -1,164 +0,0 @@
-#! /usr/bin/env python3
-
-import cgi
-import json
-import datetime
-import html
-
-def handle_fields():
-    form = cgi.FieldStorage()
-
-    name = form.getvalue("name")
-    url = form.getvalue("url")
-    message = form.getvalue("message")
-
-    # Nothign was submitted.
-    if name is None and url is None and message is None:
-        return ""
-
-    if name is None:
-        return "<p>name is required</p>"
-    elif message is None:
-        return "<p>please write a silly something (:</p>"
-
-    url = "" if url is None else url
-
-    # Make the names safe.
-    name = html.escape(name)
-    url = html.escape(url)
-    message = html.escape(message)
-
-    guest_book = []
-
-    # Open data if already there.
-    try:
-        with open("guest_book.json", "r")  as fp:
-            guest_book = json.load(fp)
-    except FileNotFoundError:
-        pass
-
-    # Already in list.
-    for guest in guest_book:
-        if guest["name"] == name and guest["url"] == url and guest["message"] == message:
-            return "<p>You already been added</p>"
-
-    date = datetime.datetime.now()
-    guest_entry = {"name": name, "url": url, "message": message, "date": date.strftime("%B, %d %Y")}
-
-    # Dump guest to file.
-    with open("guest_book.json", "w") as fp:
-        guest_book.append(guest_entry)
-        json.dump(guest_book, fp, indent=4)
-
-    return "<p>You been added to the guest book yippe (:</p><img src=\"../images/yippee.gif\" alt=\"yippee!\"/>"
-
-def get_guest_html_from_list():
-    guest_html = ""
-
-    try:
-        with open("guest_book.json", "r")  as fp:
-            for guest in json.load(fp)[::-1]:
-                guest_table = """
-                    <table border="1" width="60%">
-                        <tr>
-                            <td>
-                                <b>{name}</b> <a href="{url}" target="_blank">{url}</a> --- signed {date}
-                            </td> 
-                        </tr>
-
-                        <tr>
-                            <td><p>{message}</p></td>
-                        </tr>
-                    </table>
-                """
-
-                guest_table = guest_table.format(name=guest["name"], url=guest["url"],
-                    date=guest["date"], message=guest["message"])
-                guest_html += guest_table
-    except FileNotFoundError:
-        guest_html =  """
-            <table border="1" width="60%">
-                <tr>
-                    <td>
-                        <p>No guest have been added ): But you can be the first!</p>
-                    </td>
-                </tr>
-            </table>
-        """
-
-    return guest_html
-
-def display_html(fields_reponse):
-    print("Content-Type: text/html")
-    
-    html_text = """
-        <!DOCTYPE html>
-        <html>
-        
-        <head>
-            <title>Guest Book</title>
-
-        <style>
-            
-        body {{
-            color: black;
-            background-image: url('../images/guest_book_background.png');
-        }}
-
-        table {{
-            color: black;
-            background-color: #bebebe;
-            margin-top: 10px;
-            margin-bottom: 10px;
-            margin-left: 10px;
-            margin-right: 10px;
-        }}
-
-        </style>
-        </head>
-
-        <body>
-            <a href="../index.html"><img src="../images/back_home.png" alt="Back to home page"/></a>
-            
-            <center>
-                <table border="1" width="60%">
-                    <tr>
-                        <td>
-                            <h3>Sign my fucking guest book</h3>
-                            <form action = "guest_book.cgi" method = "get">
-                                <lable for = "name" maxlength="100">Name</lable>
-                                <input type = "text" name = "name"/>
-                                <br/>
-                                <lable for = "url" maxlength="256">Website (Optional)</lable>
-                                <input type = "text" name = "url"/>
-                                <br/><br/>
-                                <lable for = "message">Write a little silly something</lable>
-                                <br/>
-                                <textarea type = "text" name = "message" rows = "4" cols = "40" maxlength="512"></textarea>
-                                <br/>
-                                <input type = "submit" value = "Fucking submit"> <b>You can't delete/edit it afterwards</b>
-                            </form>
-                            <p>
-                                <b>Be nice! Dont be a fucking ass.</b>
-                            </p>
-                            {fields_reponse}
-                        </td>
-                    </tr>
-                </table>
-
-            {guest_html}
-            </center>
-        </body>
-        </html>
-    """
-    
-    html_text = html_text.format(
-        fields_reponse=fields_reponse,
-        guest_html=get_guest_html_from_list()
-    )
-
-    print(html_text)
-
-fields_reponse = handle_fields()
-display_html(fields_reponse)
-