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)