Changeset 25298 in project


Ignore:
Timestamp:
10/04/11 12:56:03 (9 years ago)
Author:
Mario Domenech Goulart
Message:

awful: added `session-cookie-setter' (thanks to Thomas Hintz)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/awful/trunk/awful.scm

    r25072 r25298  
    8989(define enable-session-cookie (make-parameter #t))
    9090(define session-cookie-name (make-parameter "awful-cookie"))
     91(define session-cookie-setter (make-parameter
     92                               (lambda (sid)
     93                                 (set-cookie! (session-cookie-name) sid))))
    9194(define javascript-position (make-parameter 'top))
    9295
     
    529532                              (begin
    530533                                (sid (session-create))
    531                                 (set-cookie! (session-cookie-name) (sid)))))
     534                                ((session-cookie-setter) (sid)))))
    532535                        (let* ((ajax? (cond (no-ajax #f)
    533536                                            ((not (ajax-library)) #f)
     
    758761        (sid new-sid)
    759762        (when (enable-session-cookie)
    760           (set-cookie! (session-cookie-name) new-sid))
     763          ((session-cookie-setter) new-sid))
    761764        (when hook (hook user))
    762765        (html-page
Note: See TracChangeset for help on using the changeset viewer.