Handle missing auth.
This commit is contained in:
parent
2625184cd1
commit
61975cce78
1 changed files with 6 additions and 2 deletions
|
@ -35,6 +35,7 @@
|
||||||
(chicken pathname)
|
(chicken pathname)
|
||||||
(chicken io)
|
(chicken io)
|
||||||
(chicken string)
|
(chicken string)
|
||||||
|
(chicken condition)
|
||||||
racket-kwargs
|
racket-kwargs
|
||||||
configuration
|
configuration
|
||||||
util-parser
|
util-parser
|
||||||
|
@ -68,8 +69,11 @@
|
||||||
|
|
||||||
;; Parses all users from given filename
|
;; Parses all users from given filename
|
||||||
(define (load-dokuwiki-users-auth fname)
|
(define (load-dokuwiki-users-auth fname)
|
||||||
|
(handle-exceptions
|
||||||
|
exn
|
||||||
|
'()
|
||||||
(with-input-from-file fname
|
(with-input-from-file fname
|
||||||
parse-dokuwiki-users-auth))
|
parse-dokuwiki-users-auth)))
|
||||||
|
|
||||||
;; Loads all users from default dokuwiki users database
|
;; Loads all users from default dokuwiki users database
|
||||||
(define* (dokuwiki-load-users (doku-base (*doku-base*)))
|
(define* (dokuwiki-load-users (doku-base (*doku-base*)))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue