157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
+
|
(formdat:load-all-port (current-input-port)))))
;; (s:process-cgi-input (caaar dat))
(define (formdat:load-all-port inp)
(let* ((formdat (make-formdat:formdat)))
;; (debugp (open-output-file (conc (slot-ref s:session 'sroot) "/delme-" (current-user-id) ".log"))))
;; (write-string (read-string #f inp) #f debugp)
(formdat:initialize formdat)
(let ((alldats (formdat:dat->list inp 10e6)))
;; (format debugp "formdat : alldats: ~A\n" alldats)
(let ((firstitem (car alldats))
(multipass #f))
(if (not (null? firstitem))
(if (string-match formdat:delim-patt-rex (caar firstitem))
|