Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv32009

Modified Files: variable.lisp Log Message: trying to revert

Date: Wed Feb 4 08:23:52 2004 Author: bmastenbrook

Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.10 lisppaste2/variable.lisp:1.11 --- lisppaste2/variable.lisp:1.10 Wed Feb 4 08:11:22 2004 +++ lisppaste2/variable.lisp Wed Feb 4 08:23:52 2004 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.10 2004/02/04 13:11:22 bmastenbrook Exp $ +;;;; $Id: variable.lisp,v 1.11 2004/02/04 13:23:52 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -7,10 +7,10 @@

(defparameter *internal-http-port* 8081 "Port lisppaste's araneida will listen on for requests from Apache.") -(defparameter *external-http-port* 80 +(defparameter *external-http-port* 8081 "Port lisppaste's araneida will listen on for requests from remote clients.")

-(defparameter *paste-site-name* "www.common-lisp.net" +(defparameter *paste-site-name* "localhost" "Website we are running on (used for creating links).")

(defparameter *paste-url* @@ -23,11 +23,11 @@ (araneida:merge-url (araneida:make-url :scheme "http" :host *paste-site-name* - ) "/paste/")) + :port *external-http-port*) "/paste/"))

-(defvar *meme-links* t) ; whether meme links are enabled +(defvar *meme-links* t) ; whether to link to meme IRC logs

-;; You should not have to edit below this line +;; You shouldn't need to edit below this line. ;; LINE

(defparameter *display-paste-url* @@ -50,7 +50,7 @@ (setf (araneida:url-port fwd-url) *internal-http-port*) (make-instance 'araneida:serve-event-reverse-proxy-listener :translations - `((,(araneida:urlstring *paste-external-url*) + `((,(araneida:urlstring *paste-url*) ,(araneida:urlstring fwd-url))) :address #(0 0 0 0) :port (araneida:url-port fwd-url)))) @@ -65,4 +65,4 @@ (defvar *connection* nil) (defvar *channels* nil)

-(defvar *paste-file* "pastes.lisp-expr") \ No newline at end of file +(defvar *paste-file* "pastes.lisp-expr")