Overview
| Comment: | removed unnecessary logging output |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3e61eb47cb6b07e4f4e272477a97de0a |
| 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
Modified session.scm from [2551ba7b15] to [d30d52ed8a].
| ︙ | ︙ | |||
360 361 362 363 364 365 366 |
(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 "=([^=]+)$"))))
| | | | 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)
(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)
(sdat-set-session-key! self (list-ref match 1))
session-key))
((null? tail)
#f)
(else
(loop (car tail)
(cdr tail)))))))))
|
| ︙ | ︙ |