You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
1.2 KiB
28 lines
1.2 KiB
;; ISS3 config template
|
|
(progn
|
|
(native cfg)
|
|
(native perm)
|
|
|
|
(defparameter *all* '(listing images encrypted-listing encrypted-images add edit super))
|
|
|
|
(defconf
|
|
(database (prompt "Enter (pathname" :string))
|
|
(port (prompt "Enter port" :integer))
|
|
(allow
|
|
'("127.0.0.1"
|
|
"127.0.0.0/8"
|
|
"0.0.0.0/0"))
|
|
(deny
|
|
'("123.123.123.0/24"))
|
|
(password nil)
|
|
(welcome "ISS v3 server.")
|
|
(key 123456789ABCDEFF)
|
|
(permissions ;;You can also set file like (permissions "file.lisp")
|
|
(defperm
|
|
(:default '(listing images)) ;;default
|
|
(permission-entry :name "entry 1" :public-key 123456789ABCDEFF :level *all*)
|
|
(permission-entry :name "entry 2" :password (sha1 "this is password") :level '(listing images encrypted-listing encrypted-images))
|
|
(permission-entry :name "entry 2.5" :password 123456789ABCDEFF :level '(listing images encrypted-listing encrypted-images))
|
|
(permission-entry :name "entry 3" :public-key (keyfile "filename") :level *all*)
|
|
(permission-entry :name "entry 3.5" :public-key (keyfile "filename" base64) :level *all*) ;;call base64() on file
|
|
(permission-entry :name "entry 4" :public-key (base64 "insert thing here") :level *all*))))) |