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

[Erik Enge]

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