Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv24566
Modified Files: cgi.lisp ChangeLog Log Message: * tests/cgi-test.lisp (output-function-test-data): Designed a class to test functions which print to *standard-output*. These test classes will be reused for clhp.lisp, and eventually moved into their own package.
Date: Thu Oct 2 20:38:18 2003 Author: aventimiglia
Index: clhp/cgi.lisp diff -u clhp/cgi.lisp:1.4 clhp/cgi.lisp:1.5 --- clhp/cgi.lisp:1.4 Thu Oct 2 13:43:06 2003 +++ clhp/cgi.lisp Thu Oct 2 20:38:18 2003 @@ -1,5 +1,4 @@ -(ext:file-comment - "$Id: cgi.lisp,v 1.4 2003/10/02 17:43:06 aventimiglia Exp $") +#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.5 2003/10/03 00:38:18 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -137,7 +136,7 @@
;; !!!!!!!!! This should most likely be tested and improved , because ;; if the CGI program is given a bogus Content-Length header, this -;; will choke +;; will choke -- In other words, it's prone to attacks (defun read-n-chars (count &optional (stream *standard-input*)) "Reads N chars from STREAM, returning a list of chars. Be careful, there is no check for EOF. This is specifically designed for POST @@ -170,7 +169,8 @@ post-char-list)))
(defun query-to-a-list (get/post-data) - "Translates the char list from GET-DATA or POST-DATA into a (:KEYWORD . "Value" ) a-list." + "Translates the char list from GET-DATA or POST-DATA into a (:KEYWORD +. "Value" ) a-list." (mapcar #'(lambda (key/val-list) (let ((key/val-strings (mapcar #'implode-string
Index: clhp/ChangeLog diff -u clhp/ChangeLog:1.6 clhp/ChangeLog:1.7 --- clhp/ChangeLog:1.6 Thu Oct 2 13:43:06 2003 +++ clhp/ChangeLog Thu Oct 2 20:38:18 2003 @@ -1,5 +1,10 @@ 2003-10-02 ant@afghan.dogpound
+ * tests/cgi-test.lisp (output-function-test-data): Designed a + class to test functions which print to *standard-output*. These + test classes will be reused for clhp.lisp, and eventually moved + into their own package. + * cgi.lisp (a-list-value): Convenience macro for getting the values of a-lists