21 lines
681 B
Racket
21 lines
681 B
Racket
#lang racket/base
|
|
(require racket/dict
|
|
net/url
|
|
web-server/http
|
|
"application-globals.rkt"
|
|
"data.rkt"
|
|
"log.rkt"
|
|
"../lib/url-utils.rkt"
|
|
"../lib/xexpr-utils.rkt")
|
|
|
|
(provide
|
|
page-set-user-settings)
|
|
|
|
(define (page-set-user-settings req)
|
|
(response-handler
|
|
(define next-location (dict-ref (url-query (request-uri req)) 'next_location))
|
|
(define new-settings (read (open-input-string (dict-ref (url-query (request-uri req)) 'new_settings))))
|
|
(log-set-settings-request (user-cookies^-theme new-settings))
|
|
(define headers (user-cookies-setter new-settings))
|
|
(generate-redirect next-location #:headers headers)))
|