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

[Brian Mastenbrook]

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

Modified Files:
	variable.lisp 
Log Message:
A somewhat sane starting configuration

Date: Thu Jun 17 06:26:12 2004
Author: bmastenbrook

Index: lisppaste2/variable.lisp
diff -u lisppaste2/variable.lisp:1.21 lisppaste2/variable.lisp:1.22
--- lisppaste2/variable.lisp:1.21	Wed Jun  9 12:48:46 2004
+++ lisppaste2/variable.lisp	Thu Jun 17 06:26:12 2004
@@ -1,13 +1,13 @@
-;;;; $Id: variable.lisp,v 1.21 2004/06/09 19:48:46 bmastenbrook Exp $
+;;;; $Id: variable.lisp,v 1.22 2004/06/17 13:26:12 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
 
 (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* "localhost"
@@ -23,7 +23,7 @@
   (araneida:merge-url
    (araneida:make-url :scheme "http"
                       :host *paste-site-name*
-		      #|:port *external-http-port*|#
+		      :port *external-http-port*
                       ) "/paste/"))
 
 (defvar *meme-links* nil) ; whether to link to meme IRC logs