[Lisppaste-cvs] CVS update: lisppaste2/variable.lisp

[Brian Mastenbrook]

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")