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

[Brian Mastenbrook]

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

Modified Files:
	variable.lisp 
Log Message:
Oops: put correct variable.lisp back

Date: Wed Oct 20 22:39:21 2004
Author: bmastenbrook

Index: lisppaste2/variable.lisp
diff -u lisppaste2/variable.lisp:1.33 lisppaste2/variable.lisp:1.34
--- lisppaste2/variable.lisp:1.33	Wed Oct 20 22:37:50 2004
+++ lisppaste2/variable.lisp	Wed Oct 20 22:39:21 2004
@@ -1,4 +1,4 @@
-;;;; $Id: variable.lisp,v 1.33 2004/10/20 20:37:50 bmastenbrook Exp $
+;;;; $Id: variable.lisp,v 1.34 2004/10/20 20:39:21 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* 8080
   "Port lisppaste's araneida will listen on for requests from Apache.")
-(defparameter *external-http-port* 8081
+(defparameter *external-http-port* 80
   "Port lisppaste's araneida will listen on for requests from remote clients.")
 
-(defparameter *paste-site-name* "www.unmutual.info"
+(defparameter *paste-site-name* "paste.lisp.org"
   "Website we are running on (used for creating links).")
 
 (defparameter *paste-external-url*
@@ -37,7 +37,7 @@
                       :host *paste-site-name*
                       ;;; comment out this next line when running
                       ;;; behind a proxying apache
-		      :port *external-http-port*
+		      #| :port *external-http-port* |#
                       ) "/"))
 
 (defparameter *old-url* (araneida:merge-url