Overview
Comment:removed unnecessary logging output
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 3e61eb47cb6b07e4f4e272477a97de0a91dce850
User & Date: matt on 2012-07-27 21:20:22
Other Links: manifest | tags
Context
2012-08-02
15:48
Added manual, tweaked session.scm to use dbi check-in: 19d7e34d29 user: matt tags: trunk
2012-07-27
21:20
removed unnecessary logging output check-in: 3e61eb47cb user: matt tags: trunk
18:41
Fixed stupid cookie bug check-in: f1f4d8b2de user: matt tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified session.scm from [2551ba7b15] to [d30d52ed8a].

︙
360
361
362
363
364
365
366
367

368
369
370
371
372
373
374
375

376
377
378
379
380
381
382

360
361
362
363
364
365
366

367
368
369
370
371
372
373
374

375
376
377
378
379
380
381
382








-
+







-
+









(define (session:extract-key self key)
  (let ((params (sdat-get-params self)))
    (session:extract-key-from-param self params key)))

(define (session:extract-key-from-param self params key)
  (let ((r1     (regexp (string-append "^" key "=([^=]+)$"))))
    (err:log "INFO: Looking for " key " in " params)
    ;; (err:log "INFO: Looking for " key " in " params)
    (if (< (length params) 1) #f
	(let loop ((head   (car params))
		   (tail   (cdr params)))
	  (let ((match (string-match r1 head)))
	    (cond
	     (match
	      (let ((session-key (list-ref match 1)))
		(err:log "INFO: Found session key=" session-key)
		;; (err:log "INFO: Found session key=" session-key)
		(sdat-set-session-key! self (list-ref match 1))
		session-key))
	     ((null? tail)
	      #f)
	     (else
	      (loop (car tail)
		    (cdr tail)))))))))
︙