[clhp-cvs] CVS update: clhp/cgi.lisp clhp/ChangeLog

[Anthony Ventimiglia]

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 at 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