;; 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*)))))