gdlinit.cl 862 Bytes
Newer Older
Dave Cooper's avatar
Dave Cooper committed
1
2
3
4
5

(in-package :gwl-user)

(net.aserve:shutdown)

Dave Cooper's avatar
Dave Cooper committed
6
(net.aserve:start :port 80 :listeners 50 :setuid 1002 :setgid 1002)
Dave Cooper's avatar
Dave Cooper committed
7
8

(dolist (host (list "cl-foundation.com" "cl-foundation.org"
Dave Cooper's avatar
Dave Cooper committed
9
		    "www.cl-foundation.com" "www.cl-foundation.org"))
10
11
12
13
14
15
16
17
18
19
20
21

			      (net.aserve:publish-directory 		
			       :prefix "/aclu_files/"
			       :host host
			       :destination (format nil "~a" 
						    (merge-pathnames "static-old/aclu_files/" 
								     glisp:*gdl-home*)))
			      (net.aserve:publish-file 
			       :path "/"
			       :host host
			       :file (format nil "~a" (merge-pathnames "static-old/aclu.html"
								       glisp:*gdl-home*))))
Dave Cooper's avatar
Dave Cooper committed
22

Dave Cooper's avatar
Dave Cooper committed
23
(net.aserve:publish-directory :prefix "/downloads/" 
24
			      :destination (format nil "~a" (merge-pathnames "downloads/" glisp:*gdl-home*)))
Dave Cooper's avatar
Dave Cooper committed
25

Dave Cooper's avatar
Dave Cooper committed
26

Dave Cooper's avatar
Dave Cooper committed
27
28
29
;;
;; Initialize SMLib here if available. 
;;
Dave Cooper's avatar
Dave Cooper committed
30

31
;;(smlib::initialize-smlib)