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