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

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/test/lisppaste2

Modified Files:
	variable.lisp 
Log Message:
New variable.lisp

Date: Tue Jul  6 09:59:59 2004
Author: bmastenbrook

Index: lisppaste2/variable.lisp
diff -u lisppaste2/variable.lisp:1.25 lisppaste2/variable.lisp:1.26
--- lisppaste2/variable.lisp:1.25	Tue Jul  6 09:57:56 2004
+++ lisppaste2/variable.lisp	Tue Jul  6 09:59:59 2004
@@ -1,4 +1,4 @@
-;;;; $Id: variable.lisp,v 1.25 2004/07/06 16:57:56 bmastenbrook Exp $
+;;;; $Id: variable.lisp,v 1.26 2004/07/06 16:59:59 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -23,12 +23,12 @@
 
 (in-package :lisppaste)
 
-(defparameter *internal-http-port* 8081
+(defparameter *internal-http-port* 8000
   "Port lisppaste's araneida will listen on for requests from Apache.")
-(defparameter *external-http-port* 80
+(defparameter *external-http-port* 8000
   "Port lisppaste's araneida will listen on for requests from remote clients.")
 
-(defparameter *paste-site-name* "paste.lisp.org"
+(defparameter *paste-site-name* "localhost"
   "Website we are running on (used for creating links).")
 
 (defparameter *paste-external-url*
@@ -37,13 +37,8 @@
                       :host *paste-site-name*
                       ;;; comment out this next line when running
                       ;;; behind a proxying apache
-		      #| :port *external-http-port* |#
-                      ) "/"))
-
-(defparameter *old-url* (araneida:merge-url
-                         (araneida:make-url :scheme "http"
-                                            :host "www.common-lisp.net")
-                         "/paste/"))
+                      :port *external-http-port*
+                      ) "/paste/"))
 
 (defvar *meme-links* t) ; whether to link to meme IRC logs, probably
 			  ; only useful for freenode's lisppaste
@@ -112,17 +107,13 @@
   (araneida:merge-url *paste-external-url* "lisppaste.css"))
 
 (defvar *paste-listener*
-  (let ((fwd-url (araneida:copy-url *paste-external-url*))
-        (fwd-old-url (araneida:copy-url *old-url*)))
+  (let ((fwd-url (araneida:copy-url *paste-external-url*)))
     (setf (araneida:url-port fwd-url) *internal-http-port*)
-    (setf (araneida:url-port fwd-old-url) *internal-http-port*)
     (make-instance #+sbcl 'araneida:serve-event-reverse-proxy-listener
                    #-sbcl 'araneida:threaded-reverse-proxy-listener
                    :translations
                    `((,(araneida:urlstring *paste-external-url*)
-                      ,(araneida:urlstring fwd-url))
-                     (,(araneida:urlstring *old-url*)
-                      ,(araneida:urlstring fwd-old-url)))
+                      ,(araneida:urlstring fwd-url)))
                    :address #(0 0 0 0)
                    :port (araneida:url-port fwd-url))))