[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:
Bring it up to date with the running lisppaste, then edit out what I don't need

Date: Tue Jul  6 09:57:56 2004
Author: bmastenbrook

Index: lisppaste2/variable.lisp
diff -u lisppaste2/variable.lisp:1.24 lisppaste2/variable.lisp:1.25
--- lisppaste2/variable.lisp:1.24	Thu Jun 24 12:52:25 2004
+++ lisppaste2/variable.lisp	Tue Jul  6 09:57:56 2004
@@ -1,4 +1,4 @@
-;;;; $Id: variable.lisp,v 1.24 2004/06/24 19:52:25 bmastenbrook Exp $
+;;;; $Id: variable.lisp,v 1.25 2004/07/06 16:57:56 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* 8000
+(defparameter *internal-http-port* 8081
   "Port lisppaste's araneida will listen on for requests from Apache.")
-(defparameter *external-http-port* 8000
+(defparameter *external-http-port* 80
   "Port lisppaste's araneida will listen on for requests from remote clients.")
 
-(defparameter *paste-site-name* "localhost"
+(defparameter *paste-site-name* "paste.lisp.org"
   "Website we are running on (used for creating links).")
 
 (defparameter *paste-external-url*
@@ -37,10 +37,15 @@
                       :host *paste-site-name*
                       ;;; comment out this next line when running
                       ;;; behind a proxying apache
-		      :port *external-http-port*
-                      ) "/paste/"))
+		      #| :port *external-http-port* |#
+                      ) "/"))
 
-(defvar *meme-links* nil) ; whether to link to meme IRC logs, probably
+(defparameter *old-url* (araneida:merge-url
+                         (araneida:make-url :scheme "http"
+                                            :host "www.common-lisp.net")
+                         "/paste/"))
+
+(defvar *meme-links* t) ; whether to link to meme IRC logs, probably
 			  ; only useful for freenode's lisppaste
 
 (defvar *paste-maximum-size* 51200) ; in bytes
@@ -53,12 +58,26 @@
 					; freenode's lisppaste
 
 (defparameter *ban-log-file*
-  "ban-log") ; where logs of attempts by banned users to paste go
+  (merge-pathnames "ban-log"
+                   (make-pathname
+                    :directory
+                    (pathname-directory
+                     (or *load-truename*
+                         *default-pathname-defaults*)))))
+                                        ; where logs of attempts by
+                                        ; banned users to paste go
 
 (defparameter *event-log-file*
-  "event-log") ; where normal events are logged
+  (merge-pathnames "event-log"
+                   (make-pathname
+                    :directory
+                    (pathname-directory
+                     (or *load-truename*
+                         *default-pathname-defaults*)))))
+                                        ; where normal events are
+                                        ; logged
 
-(defparameter *no-channel-pastes* nil) ; whether to allow pastes that
+(defparameter *no-channel-pastes* t) ; whether to allow pastes that
 				       ; don't get announced on a
 				       ; channel
 
@@ -93,22 +112,20 @@
   (araneida:merge-url *paste-external-url* "lisppaste.css"))
 
 (defvar *paste-listener*
-  (let ((fwd-url (araneida:copy-url *paste-external-url*)))
+  (let ((fwd-url (araneida:copy-url *paste-external-url*))
+        (fwd-old-url (araneida:copy-url *old-url*)))
     (setf (araneida:url-port fwd-url) *internal-http-port*)
-    (make-instance 'araneida:serve-event-reverse-proxy-listener
+    (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 fwd-url))
+                     (,(araneida:urlstring *old-url*)
+                      ,(araneida:urlstring fwd-old-url)))
                    :address #(0 0 0 0)
                    :port (araneida:url-port fwd-url))))
 
-(defvar *paste-listener*
-  (make-instance #+sbcl #+sb-thread 'threaded-http-listener
-                 #+sbcl #-sb-thread 'araneida:serve-event-http-listener
-                 #-sbcl 'threaded-http-listener
-                 :address #(127 0 0 1)
-                 :port *internal-http-port*))
-
 (defvar *default-nickname* "devpaste")
 (defvar *default-irc-server* "irc.freenode.net")
 (defvar *default-irc-server-port* 6667)
@@ -117,8 +134,21 @@
 (defvar *pastes* nil)
 (defvar *paste-counter* 0)
 (defvar *connection* nil)
-(defvar *channels* nil)
+(defvar *channels* '("None"))
 
-(defvar *paste-file* "pastes.lisp-expr")
+(defvar *paste-file*
+  (merge-pathnames "pastes.lisp-expr"
+                   (make-pathname
+                    :directory
+                    (pathname-directory
+                     (or *load-truename*
+                         *default-pathname-defaults*)))))
+
+(defparameter *times-file-root*
+  (make-pathname
+   :directory
+   (pathname-directory
+    (or *load-truename*
+        *default-pathname-defaults*))))
 
 (defvar *boot-time* 0)