Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv5713
Modified Files: variable.lisp Log Message: renaming and removing some urls
Date: Mon Nov 10 11:18:39 2003 Author: eenge
Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.2 lisppaste2/variable.lisp:1.3 --- lisppaste2/variable.lisp:1.2 Mon Nov 3 12:35:51 2003 +++ lisppaste2/variable.lisp Mon Nov 10 11:18:39 2003 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.2 2003/11/03 17:35:51 eenge Exp $ +;;;; $Id: variable.lisp,v 1.3 2003/11/10 16:18:39 eenge Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -7,23 +7,22 @@
(defparameter *internal-http-port* 8081 "Port lisppaste will listen on for WWW requests.") +(defparameter *external-http-port* 80 + "Port lisppaste will listen on for WWW requests.")
(defparameter *paste-site-name* "localhost" "Website we are running on (used for creating links).")
(defparameter *paste-url* (araneida:merge-url - (make-instance 'araneida:http-url - :host *paste-site-name* - :port *internal-http-port*) "/paste/")) + (araneida:make-url :scheme "http" + :host *paste-site-name* + :port *external-http-port*) "/paste/"))
(defparameter *paste-external-url* (araneida:merge-url - (make-instance 'araneida:http-url - :host *paste-site-name*) "/paste/")) - -(defparameter *say-url* - (araneida:merge-url *paste-external-url* "say/")) + (araneida:make-url :scheme "http" + :host *paste-site-name*) "/paste/"))
(defparameter *display-paste-url* (araneida:merge-url *paste-external-url* "display/")) @@ -31,11 +30,18 @@ (defparameter *new-paste-url* (araneida:merge-url *paste-external-url* "new"))
-(defparameter *paste-server* - (make-instance 'araneida:server - :name *paste-site-name* - :base-url *paste-url* - :port *internal-http-port*)) +(defparameter *submit-paste-url* + (araneida:merge-url *paste-external-url* "submit")) + +(defparameter *paste-listener* + (let ((fwd-url (araneida:copy-url *paste-url*))) + (setf (araneida:url-port fwd-url) *internal-http-port*) + (make-instance 'araneida:serve-event-reverse-proxy-listener + :translations + `((,(araneida:urlstring *paste-url*) + ,(araneida:urlstring fwd-url))) + :address #(0 0 0 0) + :port (araneida:url-port fwd-url))))
(defvar *default-nickname* "devpaste") (defvar *default-irc-server* "irc.freenode.net") @@ -43,7 +49,6 @@ (defvar *default-channel* "#lisppaste")
(defvar *pastes* nil) - (defvar *paste-counter* 0) - -(defvar *connection* nil) \ No newline at end of file +(defvar *connection* nil) +(defvar *channel* "") \ No newline at end of file