- lisppaste-cvs@common-lisp.net - mailman3.common-lisp.net

[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp
by Brian Mastenbrook 26 Apr '04

26 Apr '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2 Modified Files: web-server.lisp Log Message: Commit whatever's lying around on disk Date: Mon Apr 26 12:45:08 2004 Author: bmastenbrook Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.44 lisppaste2/web-server.lisp:1.45 --- lisppaste2/web-server.lisp:1.44 Wed Mar 31 16:33:07 2004 +++ lisppaste2/web-server.lisp Mon Apr 26 12:45:02 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.44 2004/03/31 21:33:07 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.45 2004/04/26 16:45:02 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -31,7 +31,6 @@ (defclass syndication-handler (araneida:handler) ()) (defmethod araneida:handle-request-response ((handler new-paste-handler) method request) - (araneida:request-send-headers request :expires 0) (let* ((annotate-string (araneida:body-param "annotate" (araneida:request-body request))) (annotate-number (if annotate-string (parse-integer annotate-string :junk-allowed t))) (annotate (if annotate-number (find annotate-number *pastes* :key #'paste-number))) @@ -39,8 +38,32 @@ (list (substitute #\# #\/ (araneida::request-unhandled-part request) :test #'char=) (concatenate 'string "#" - (araneida:request-cookie request "CHANNEL")))))) - (new-paste-form request :annotate annotate :default-channel default-channel))) + (araneida:request-cookie request "CHANNEL")) + (and (eql method :post) + (araneida:body-param "channel" + (araneida:request-body request))))))) + (cond + ((and default-channel (find default-channel *channels* :test #'string=)) + (araneida:request-send-headers request :expires 0 :set-cookie (format nil "CHANNEL=~A; path=/" (subseq default-channel 1))) + (new-paste-form request :annotate annotate :default-channel default-channel)) + (t (araneida:request-send-headers request :expires 0) + (araneida:html-stream + (araneida:request-stream request) + `(html + (head + (title "Select a channel") + ,(rss-link-header)) + (body + (h2 "Select a channel") + ((form :method post :action ,(araneida:urlstring *new-paste-url*)) + "Please select a channel to lisppaste to: " + ((select :name "channel") + ((option :value "")) + ,@(mapcar #'(lambda (e) + `((option :value ,e) + ,(encode-for-pre e))) *channels*)) + ((input :type submit :value "Submit"))) + ,@(bottom-links)))))))) (defun bottom-links () `((hr) @@ -205,7 +228,7 @@ ,@(bottom-links)))))) (defun handle-rss-request (request &key full) - (araneida:request-send-headers request :expires 0) + (araneida:request-send-headers request :expires 0 :content-type "application/rss+xml") (format (araneida:request-stream request) "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>~C~C" #\Return #\Linefeed) (let ((discriminate-channel (if (not (string= (araneida::request-unhandled-part request) "")) (substitute #\# #\? (araneida::request-unhandled-part request) @@ -242,10 +265,13 @@ (paste-annotations paste)))))) (format nil "Paste to channel ~A with ~A annotations." (encode-for-pre (paste-channel paste)) (length (paste-annotations paste)))) #\Return #\Linefeed)) - (if discriminate-channel - (remove discriminate-channel *pastes* :test-not #'string-equal - :key #'paste-channel) - *pastes*)) + (loop + for paste in + (if discriminate-channel + (remove discriminate-channel *pastes* :test-not #'string-equal + :key #'paste-channel) + *pastes*) for j from 1 to 20 + collect paste)) #\Return #\Linefeed))))) (defmethod araneida:handle-request-response ((handler rss-handler) method request) @@ -278,10 +304,11 @@ `((tr (th "Select a channel:") (td ((select :name "channel") - ,@(mapcar #'(lambda (e) - `((option :value ,e ,@(if (string-equal e default-channel) - '(:selected))) - ,(encode-for-pre e))) *channels*)))))) + (option :value "") + ,@(mapcar #'(lambda (e) + `((option :value ,e ,@(if (string-equal e default-channel) + '(:selected))) + ,(encode-for-pre e))) *channels*)))))) (tr (th "Enter your username:") (td ((input :type text :name "username")))) @@ -302,10 +329,13 @@ (text (araneida:body-param "text" (araneida:request-body request))) (annotate (araneida:body-param "annotate" (araneida:request-body request))) (channel (araneida:body-param "channel" (araneida:request-body request)))) - (araneida:request-send-headers request :expires 0 - :set-cookie (format nil "CHANNEL=~A; path=/" (subseq channel 1))) - + (if (> (length channel) 1) + (araneida:request-send-headers request :expires 0 + :set-cookie (format nil "CHANNEL=~A; path=/" (subseq channel 1))) + (araneida:request-send-headers request :expires 0)) (cond + ((zerop (length channel)) + (new-paste-form request :message "Please select a channel." :default-channel channel)) ((zerop (length username)) (new-paste-form request :message "Please enter your username." :default-channel channel)) ((zerop (length title)) @@ -315,7 +345,7 @@ ((and annotate (not (parse-integer annotate :junk-allowed t))) (new-paste-form request :message "Malformed annotation request." :default-channel channel)) ((not (member channel *channels* :test #'string-equal)) - (new-paste-form request :message "Whatever channel that is, I don't know about it." :default channel)) + (new-paste-form request :message "Whatever channel that is, I don't know about it." :default-channel channel)) (t (let* ((paste-number (if annotate (parse-integer annotate :junk-allowed t) (incf *paste-counter*))) (paste-to-annotate (if annotate (find paste-number *pastes* :key #'paste-number)))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp lisppaste2/encode-for-pre.lisp
by Brian Mastenbrook 31 Mar '04

31 Mar '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2 Modified Files: web-server.lisp encode-for-pre.lisp Log Message: recent fixes and new features Date: Wed Mar 31 16:33:07 2004 Author: bmastenbrook Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.43 lisppaste2/web-server.lisp:1.44 --- lisppaste2/web-server.lisp:1.43 Thu Mar 11 09:21:34 2004 +++ lisppaste2/web-server.lisp Wed Mar 31 16:33:07 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.43 2004/03/11 14:21:34 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.44 2004/03/31 21:33:07 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -35,7 +35,11 @@ (let* ((annotate-string (araneida:body-param "annotate" (araneida:request-body request))) (annotate-number (if annotate-string (parse-integer annotate-string :junk-allowed t))) (annotate (if annotate-number (find annotate-number *pastes* :key #'paste-number))) - (default-channel (substitute #\# #\/ (araneida::request-unhandled-part request) :test #'char=))) + (default-channel (find-if #'(lambda (e) (> (length e) 1)) + (list + (substitute #\# #\/ (araneida::request-unhandled-part request) :test #'char=) + (concatenate 'string "#" + (araneida:request-cookie request "CHANNEL")))))) (new-paste-form request :annotate annotate :default-channel default-channel))) (defun bottom-links () @@ -298,7 +302,8 @@ (text (araneida:body-param "text" (araneida:request-body request))) (annotate (araneida:body-param "annotate" (araneida:request-body request))) (channel (araneida:body-param "channel" (araneida:request-body request)))) - (araneida:request-send-headers request) + (araneida:request-send-headers request :expires 0 + :set-cookie (format nil "CHANNEL=~A; path=/" (subseq channel 1))) (cond ((zerop (length username)) @@ -336,12 +341,15 @@ (araneida:html-stream (araneida:request-stream request) `(html - (head (title "Paste number " ,*paste-counter*) + (head (title "Paste number " ,paste-number) ,(rss-link-header)) (body (h2 "Pasted!") (p ,(if annotate "Your annotation should be available at " "Your paste should be available at ") ((a :href ,url) ,url) ", and was also sent to " ,channel " @ " ,(irc:server-name *connection*)) - (p "If you wish to paste a correction or addendum to this paste, you can annotate the paste using the submission button on the " ((a :href ,url) "paste's page.")) + (h3 "Don't paste more junk; annotate!") + ((form :method post :action ,(araneida:urlstring *new-paste-url*)) + ((input :type hidden :name "annotate" :value ,(prin1-to-string paste-number))) + (center ((input :type submit :value "Annotate this paste")))) ,@(bottom-links)))))))))) (defun ends-with (str end) @@ -354,7 +362,7 @@ `((table :width "100%" :cellpadding 2) (tr ((td :align "left" :width "0%" :nowrap "nowrap") ,(if annotation - "Annotation number " + `((a :name ,(prin1-to-string paste-number)) "Annotation number ") "Paste number ") ,paste-number ": ") ((td :align "left" :width "100%") (b ,(encode-for-pre (paste-title paste))))) (tr ((td :align "left" :nowrap "nowrap") "Pasted by: ") Index: lisppaste2/encode-for-pre.lisp diff -u lisppaste2/encode-for-pre.lisp:1.12 lisppaste2/encode-for-pre.lisp:1.13 --- lisppaste2/encode-for-pre.lisp:1.12 Wed Mar 31 16:25:14 2004 +++ lisppaste2/encode-for-pre.lisp Wed Mar 31 16:33:07 2004 @@ -1,4 +1,4 @@ -;;;; $Id: encode-for-pre.lisp,v 1.12 2004/03/31 21:25:14 bmastenbrook Exp $ +;;;; $Id: encode-for-pre.lisp,v 1.13 2004/03/31 21:33:07 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/encode-for-pre.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -10,7 +10,7 @@ summing (if (not only-in-dup) (if (char= (elt str i) char) (length repstr) 1) - (if (> i 1) + (if (> i 0) (if (and (member (elt str (1- i)) only-in-dup :test #'char=) (char= (elt str i) char)) (length repstr) 1) 1)))) @@ -18,7 +18,7 @@ (loop for i from 0 to (1- (length str)) with j = 0 do (if (if only-in-dup - (and (> i 1) (char= (elt str i) char) + (and (> i 0) (char= (elt str i) char) (member (elt str (1- i)) only-in-dup :test #'char=)) (char= (elt str i) char)) @@ -47,7 +47,7 @@ str)) (defun encode-for-tt (str) - (replace-in-string-1 (replace-in-string str '(#\& #\< #\> #\newline #\return #\linefeed #\tab) '("&" "<" ">" " " "" "" "    ")) #\space " " '(#\space #\>))) + (replace-first-space (replace-in-string-1 (replace-in-string str '(#\& #\< #\> #\newline #\return #\linefeed #\tab) '("&" "<" ">" " " "" "" "    ")) #\space " " '(#\space #\>)))) (defun encode-for-http (str) (replace-in-string-1 str #\> (format nil ">~%") nil))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/encode-for-pre.lisp
by Brian Mastenbrook 31 Mar '04

31 Mar '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/lisppaste2 Modified Files: encode-for-pre.lisp Log Message: aaaaargh! the bug from hell is still not fixed! Date: Wed Mar 31 16:25:14 2004 Author: bmastenbrook Index: lisppaste2/encode-for-pre.lisp diff -u lisppaste2/encode-for-pre.lisp:1.11 lisppaste2/encode-for-pre.lisp:1.12 --- lisppaste2/encode-for-pre.lisp:1.11 Sun Mar 7 15:40:20 2004 +++ lisppaste2/encode-for-pre.lisp Wed Mar 31 16:25:14 2004 @@ -1,4 +1,4 @@ -;;;; $Id: encode-for-pre.lisp,v 1.11 2004/03/07 20:40:20 bmastenbrook Exp $ +;;;; $Id: encode-for-pre.lisp,v 1.12 2004/03/31 21:25:14 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/encode-for-pre.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -10,16 +10,17 @@ summing (if (not only-in-dup) (if (char= (elt str i) char) (length repstr) 1) - (if ( i 1) + (if (and (member (elt str (1- i)) only-in-dup :test #'char=) + (char= (elt str i) char)) (length repstr) 1) 1)))) (new-array (make-array `(,new-length) :element-type 'character))) (loop for i from 0 to (1- (length str)) with j = 0 do (if (if only-in-dup - (and ( i 1) (char= (elt str i) char) + (member (elt str (1- i)) + only-in-dup :test #'char=)) (char= (elt str i) char)) (progn (loop for k from 0 to (1- (length repstr)) @@ -40,8 +41,13 @@ (defun encode-for-pre (str) (replace-in-string str '(#\& #\< #\>) '("&" "<" ">"))) +(defun replace-first-space (str) + (if (char= (elt str 0) #\space) + (concatenate 'string " " (subseq str 1)) + str)) + (defun encode-for-tt (str) - (replace-in-string-1 (replace-in-string str '(#\& #\< #\> #\newline #\return #\linefeed #\tab) '("&" "<" ">" " " "" "" "    ")) #\space " " t)) + (replace-in-string-1 (replace-in-string str '(#\& #\< #\> #\newline #\return #\linefeed #\tab) '("&" "<" ">" " " "" "" "    ")) #\space " " '(#\space #\>))) (defun encode-for-http (str) (replace-in-string-1 str #\> (format nil ">~%") nil))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.lisp lisppaste2/variable.lisp lisppaste2/web-server.lisp
by Brian Mastenbrook 11 Mar '04

11 Mar '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv23876 Modified Files: lisppaste.lisp variable.lisp web-server.lisp Log Message: uptime, syndication options Date: Thu Mar 11 09:21:34 2004 Author: bmastenbrook Index: lisppaste2/lisppaste.lisp diff -u lisppaste2/lisppaste.lisp:1.12 lisppaste2/lisppaste.lisp:1.13 --- lisppaste2/lisppaste.lisp:1.12 Sun Mar 7 13:16:27 2004 +++ lisppaste2/lisppaste.lisp Thu Mar 11 09:21:33 2004 @@ -1,4 +1,4 @@ -;;;; $Id: lisppaste.lisp,v 1.12 2004/03/07 18:16:27 bmastenbrook Exp $ +;;;; $Id: lisppaste.lisp,v 1.13 2004/03/11 14:21:33 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -32,6 +32,7 @@ (mapcar #'(lambda (channel) (irc:join connection channel)) channels) (araneida:start-listening *paste-listener*) (add-hook nickname) + (setf *boot-time* (get-universal-time)) (irc:start-background-message-handler connection))) (defun join-new-channel (channel) Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.12 lisppaste2/variable.lisp:1.13 --- lisppaste2/variable.lisp:1.12 Sun Mar 7 14:52:57 2004 +++ lisppaste2/variable.lisp Thu Mar 11 09:21:34 2004 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.12 2004/03/07 19:52:57 bmastenbrook Exp $ +;;;; $Id: variable.lisp,v 1.13 2004/03/11 14:21:34 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -48,6 +48,9 @@ (defparameter *rss-full-url* (araneida:merge-url *paste-external-url* "list-full.rss")) +(defparameter *syndication-url* + (araneida:merge-url *paste-external-url* "syndication")) + (defvar *paste-listener* (let ((fwd-url (araneida:copy-url *paste-url*))) (setf (araneida:url-port fwd-url) *internal-http-port*) @@ -69,3 +72,5 @@ (defvar *channels* nil) (defvar *paste-file* "pastes.lisp-expr") + +(defvar *boot-time* 0) Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.42 lisppaste2/web-server.lisp:1.43 --- lisppaste2/web-server.lisp:1.42 Tue Mar 9 01:52:27 2004 +++ lisppaste2/web-server.lisp Thu Mar 11 09:21:34 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.42 2004/03/09 06:52:27 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.43 2004/03/11 14:21:34 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -28,6 +28,8 @@ (defclass rss-full-handler (araneida:handler) ()) +(defclass syndication-handler (araneida:handler) ()) + (defmethod araneida:handle-request-response ((handler new-paste-handler) method request) (araneida:request-send-headers request :expires 0) (let* ((annotate-string (araneida:body-param "annotate" (araneida:request-body request))) @@ -42,13 +44,13 @@ " | " ((a :href ,(araneida:urlstring *list-paste-url*)) "List all pastes") " | " - ((a :href ,(araneida:urlstring *rss-url*)) "Syndicate (Basic RSS)") - " | " - ((a :href ,(araneida:urlstring *rss-full-url*)) "Syndicate (Full RSS)") + ((a :href ,(araneida:urlstring *syndication-url*)) "Syndication") " | " ((a :href "http://common-lisp.net/project/lisppaste/xml-rpc.html") "XML-RPC") " | " - ((a :href "http://common-lisp.net/project/lisppaste") "lisppaste home page"))) + ((a :href "http://common-lisp.net/project/lisppaste") "lisppaste home page") + " | " + "Uptime: " ,(time-delta *boot-time* :ago-p nil))) (defun time-delta (time &key (level 2) (ago-p t)) (let ((delta (- (get-universal-time) time))) @@ -97,6 +99,40 @@ (concatenate 'string (subseq str 0 (1- n)) "...") str)) +(defmethod araneida:handle-request-response ((handler syndication-handler) method request) + (araneida:request-send-headers request :expires 0) + (format (araneida:request-stream request) "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">") + (araneida:html-stream + (araneida:request-stream request) + `(html + (head (title "Syndication options") + ,(rss-link-header)) + (body + (h2 "Syndication options") + "Lisppaste can be syndicated in a variety of RSS formats for use +with your favorite RSS reader." + (p) + (table + (tr + ((th :align left) "All channels") + ((td :width 30)) + (td ((a :href ,(araneida:urlstring *rss-url*)) "Basic")) + ((td :width 10)) + (td ((a :href ,(araneida:urlstring *rss-full-url*)) "Full"))) + ,@(mapcar #'(lambda (channel) + `(tr + ((th :align left) ,channel) + ((td :width 30)) + (td ((a :href ,(concatenate 'string + (araneida:urlstring *rss-url*) + (substitute #\? #\# channel))) "Basic")) + ((td :width 10)) + (td ((a :href ,(concatenate 'string + (araneida:urlstring *rss-full-url*) + (substitute #\? #\# channel))) "Full")))) + *channels*)) + ,@(bottom-links))))) + (defmethod araneida:handle-request-response ((handler list-paste-handler) method request) (araneida:request-send-headers request :expires 0) (format (araneida:request-stream request) "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">") @@ -222,7 +258,7 @@ (head (title ,(if annotate "Annotate" "Paste")) ,(rss-link-header)) (body - (h1 ,(if annotate "Enter your annotation" "Enter your paste")) + (h2 ,(if annotate "Enter your annotation" "Enter your paste")) ((font :color red) (h2 ,message)) ((form :method post :action ,(araneida:urlstring *submit-paste-url*)) (p "Enter a username, title, and paste contents into the fields below. The @@ -303,7 +339,7 @@ (head (title "Paste number " ,*paste-counter*) ,(rss-link-header)) (body - (h1 "Pasted!") + (h2 "Pasted!") (p ,(if annotate "Your annotation should be available at " "Your paste should be available at ") ((a :href ,url) ,url) ", and was also sent to " ,channel " @ " ,(irc:server-name *connection*)) (p "If you wish to paste a correction or addendum to this paste, you can annotate the paste using the submission button on the " ((a :href ,url) "paste's page.")) ,@(bottom-links)))))))))) @@ -433,3 +469,8 @@ (araneida:http-listener-handler *paste-listener*) (make-instance 'rss-full-handler) (araneida:urlstring *rss-full-url*) nil) + +(araneida:install-handler + (araneida:http-listener-handler *paste-listener*) + (make-instance 'syndication-handler) + (araneida:urlstring *syndication-url*) nil)

1 0

[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.asd
by Brian Mastenbrook 09 Mar '04

09 Mar '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv16480 Modified Files: lisppaste.asd Log Message: gah, stupid dependencies Date: Tue Mar 9 09:16:22 2004 Author: bmastenbrook Index: lisppaste2/lisppaste.asd diff -u lisppaste2/lisppaste.asd:1.7 lisppaste2/lisppaste.asd:1.8 --- lisppaste2/lisppaste.asd:1.7 Sun Mar 7 13:16:27 2004 +++ lisppaste2/lisppaste.asd Tue Mar 9 09:16:21 2004 @@ -1,5 +1,5 @@ ;;;; Silly emacs, this is -*- Lisp -*- -;;;; $Id: lisppaste.asd,v 1.7 2004/03/07 18:16:27 bmastenbrook Exp $ +;;;; $Id: lisppaste.asd,v 1.8 2004/03/09 14:16:21 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.asd,v $ ;;;; See the LICENSE file for licensing information. @@ -30,6 +30,6 @@ (:file "lisppaste" :depends-on ("variable")) (:file "web-server" - :depends-on ("encode-for-pre" "web-server")) + :depends-on ("encode-for-pre" "lisppaste")) (:file "persistent-pastes" :depends-on ("web-server"))))

1 0

[Lisppaste-cvs] CVS update: lisppaste2/web-server.lisp
by Brian Mastenbrook 09 Mar '04

09 Mar '04

Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/tmp/cvs-serv2592 Modified Files: web-server.lisp Log Message: argh, the post-initial-release change Date: Tue Mar 9 01:52:27 2004 Author: bmastenbrook Index: lisppaste2/web-server.lisp diff -u lisppaste2/web-server.lisp:1.41 lisppaste2/web-server.lisp:1.42 --- lisppaste2/web-server.lisp:1.41 Sun Mar 7 15:40:20 2004 +++ lisppaste2/web-server.lisp Tue Mar 9 01:52:27 2004 @@ -1,4 +1,4 @@ -;;;; $Id: web-server.lisp,v 1.41 2004/03/07 20:40:20 bmastenbrook Exp $ +;;;; $Id: web-server.lisp,v 1.42 2004/03/09 06:52:27 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -45,6 +45,8 @@ ((a :href ,(araneida:urlstring *rss-url*)) "Syndicate (Basic RSS)") " | " ((a :href ,(araneida:urlstring *rss-full-url*)) "Syndicate (Full RSS)") + " | " + ((a :href "http://common-lisp.net/project/lisppaste/xml-rpc.html") "XML-RPC") " | " ((a :href "http://common-lisp.net/project/lisppaste") "lisppaste home page")))

1 0

[Lisppaste-cvs] CVS update: public_html/xml-rpc.html
by Brian Mastenbrook 09 Mar '04

09 Mar '04

Update of /project/lisppaste/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv21161 Modified Files: xml-rpc.html Log Message: EVEN MORE FIXES Date: Tue Mar 9 01:50:36 2004 Author: bmastenbrook Index: public_html/xml-rpc.html diff -u public_html/xml-rpc.html:1.2 public_html/xml-rpc.html:1.3 --- public_html/xml-rpc.html:1.2 Tue Mar 9 01:45:52 2004 +++ public_html/xml-rpc.html Tue Mar 9 01:50:36 2004 @@ -7,17 +7,9 @@ <body> <h1>Lisppaste XML-RPC support</h1> - As of version 2.2, Lisppaste now supports XML-RPC. You will need - Sven Van Caekenberghe's <a - href="http://homepage.mac.com/svc/xml-rpc/readme.html">XML-RPC</a> - package installed server-side; there is a xml-rpc-sbcl.patch file - in the Lisppaste 2.2 distribution which allows it to run on - SBCL. To enable XML-RPC, start the pastebot as normal and then - load the xml-paste.lisp file, and start your XML-RPC server on - your choice of port. - - The <a href="http://www.freenode.net/">irc.freenode.net</a> - pastebot serves XML-RPC on port 8185 of <a + As of version 2.2, Lisppaste now supports XML-RPC. The <a + href="http://www.freenode.net/">irc.freenode.net</a> pastebot + serves XML-RPC on port 8185 of <a href="http://www.common-lisp.net/">common-lisp.net</a>. There is a <a href="lisppaste.el">snippet of elisp</a> that enables lisppasting directly from emacs. @@ -41,12 +33,21 @@ contents of the paste with number number, or of the annotation with supplied number of that paste. + If you are planning on running a lisppaste with XML-RPC + support, you will need Sven Van Caekenberghe's <a + href="http://homepage.mac.com/svc/xml-rpc/readme.html">XML-RPC</a> + package installed server-side; there is a xml-rpc-sbcl.patch file + in the Lisppaste 2.2 distribution which allows it to run on + SBCL. To enable XML-RPC, start the pastebot as normal and then + load the xml-paste.lisp file, and start your XML-RPC server on + your choice of port. + <hr> <address><a href="mailto:Erik Enge <erik-lisppaste(a)nittin.net>">Erik Enge</a></address> <address><a href="http://www.cs.indiana.edu/~bmastenb/">Brian Mastenbrook</a></address>   -Last modified: Tue Mar 9 01:23:36 2004 EST +Last modified: Tue Mar 9 01:49:48 2004 EST  </body> </html>

1 0

[Lisppaste-cvs] CVS update: public_html/index.html
by Brian Mastenbrook 09 Mar '04

09 Mar '04

Update of /project/lisppaste/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv2190 Modified Files: index.html Log Message: MORE FIXES Date: Tue Mar 9 01:48:14 2004 Author: bmastenbrook Index: public_html/index.html diff -u public_html/index.html:1.7 public_html/index.html:1.8 --- public_html/index.html:1.7 Tue Mar 9 01:39:22 2004 +++ public_html/index.html Tue Mar 9 01:48:14 2004 @@ -21,10 +21,11 @@ annotations (to group multiple pastes on a topic), a list of all pastes in the system, and persistent pastes between runs of the bot. But lisppaste offers more than basic pastebot functionality - - it truly is buzzword-enabled, offering RSS and XML-RPC support, - and direct linking to <a href="http://meme.b9.com">meme</a> - logs. In this sense Lisppaste has grown to be more of a community - collaboration tool, as corny as that sounds. + it truly is buzzword-enabled, offering RSS and <a + href="xml-rpc.html">XML-RPC support</a>, and direct linking to <a + href="http://meme.b9.com">meme</a> logs. In this sense Lisppaste + has grown to be more of a community collaboration tool, as corny + as that sounds. Lisppaste 2 can be downloaded from here: <a href="ftp://common-lisp.net/pub/project/lisppaste/lisppaste2-latest.tar.gz">lisppaste2-latest.tar.gz</a>. The @@ -63,7 +64,7 @@ <address><a href="http://www.cs.indiana.edu/~bmastenb/">Brian Mastenbrook</a></address>   -Last modified: Tue Mar 9 01:37:24 2004 EST +Last modified: Tue Mar 9 01:48:05 2004 EST  </body> </html>

1 0

[Lisppaste-cvs] CVS update: public_html/lisppaste.el public_html/xml-rpc.html
by Brian Mastenbrook 09 Mar '04

09 Mar '04

Update of /project/lisppaste/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv18434 Modified Files: xml-rpc.html Added Files: lisppaste.el Log Message: note emacs lisp Date: Tue Mar 9 01:45:52 2004 Author: bmastenbrook Index: public_html/xml-rpc.html diff -u public_html/xml-rpc.html:1.1 public_html/xml-rpc.html:1.2 --- public_html/xml-rpc.html:1.1 Tue Mar 9 01:39:22 2004 +++ public_html/xml-rpc.html Tue Mar 9 01:45:52 2004 @@ -18,7 +18,9 @@ The <a href="http://www.freenode.net/">irc.freenode.net</a> pastebot serves XML-RPC on port 8185 of <a - href="http://www.common-lisp.net/">common-lisp.net</a>. + href="http://www.common-lisp.net/">common-lisp.net</a>. There is a + <a href="lisppaste.el">snippet of elisp</a> that enables + lisppasting directly from emacs. The following methods are implemented:

1 0

[Lisppaste-cvs] CVS update: public_html/xml-rpc.html public_html/index.html
by Brian Mastenbrook 09 Mar '04

09 Mar '04

Update of /project/lisppaste/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv4000 Modified Files: index.html Added Files: xml-rpc.html Log Message: RELEASE! RELEASE! Date: Tue Mar 9 01:39:22 2004 Author: bmastenbrook Index: public_html/index.html diff -u public_html/index.html:1.6 public_html/index.html:1.7 --- public_html/index.html:1.6 Mon Feb 23 09:56:32 2004 +++ public_html/index.html Tue Mar 9 01:39:22 2004 @@ -1,4 +1,4 @@ -<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> +<!DOCTYPE html PUBLIC "-//IETF//DTD HTML 2.0//EN"> <html> <head> <title>Lisppaste, a paste bot in CL</title> @@ -7,21 +7,32 @@ <body> <h1>Lisppaste, a paste bot in CL</h1> - For those of you who frequent #lisp, you should be well aware - of 'lisppaste' - you'll find the sources for that program here. - 'lisppaste' is a small CL program that listens for connection - through HTTP (users pasting text) and prints a link to the paste - on IRC. 'lisppaste' on #lisp is available through common-lisp.net - <a href="/paste/new">here</a>. - - Compared to the <a - href="http://sourceforge.net/projects/pastebot/">perl version</a> - a lot of people use, lisppaste features paste annotations, useful - paste timestamps, and a listing page for all pastes in the system. + For those of you who frequent #lisp (and many other channels on + freenode), you should be well aware of 'lisppaste' - you'll find + the sources for that program here. 'lisppaste' is a small CL + program that listens for connection through HTTP (users pasting + text) and prints a link to the paste on IRC. 'lisppaste' on #lisp + is available through common-lisp.net <a + href="/paste/new/lisp">here</a>. + + Lisppaste is the buzzword-enabled pastebot. Compared to the + generic <a href="http://sourceforge.net/projects/pastebot/">perl + version</a>, Lisppaste offers basic amenities like paste + annotations (to group multiple pastes on a topic), a list of all + pastes in the system, and persistent pastes between runs of the + bot. But lisppaste offers more than basic pastebot functionality - + it truly is buzzword-enabled, offering RSS and XML-RPC support, + and direct linking to <a href="http://meme.b9.com">meme</a> + logs. In this sense Lisppaste has grown to be more of a community + collaboration tool, as corny as that sounds. Lisppaste 2 can be downloaded from here: <a href="ftp://common-lisp.net/pub/project/lisppaste/lisppaste2-latest.tar.gz">lisppaste2-latest.tar.gz</a>. The - latest version is 2.1.3, released February 23, 2004. + latest version is 2.2, released March 9, 2004. + + New in lisppaste 2.2 is greater RSS flexibility, + channel-specific URLs for new pastes and paste listing, much + faster paste serialization, and XML-RPC support. New in lisppaste 2.1 is support for RSS and linking to IRC log context at <a href="http://meme.b9.com/">meme.b9.com</a>. @@ -31,7 +42,7 @@ need <a href="http://araneida.telent.net">araneida</a> and <a href="http://www.sbcl.org"> SBCL</a>. If you do install it, read the <a - href="/cgi-bin/viewcvs.cgi/lisppaste2/README.lisp?rev=HEAD&cvsroot=lisppaste&content-type=text/vnd.viewcvs-markup">README.lisp</a> + href="/cgi-bin/viewcvs.cgi/lisppaste2/README.lisp?rev=HEAD&cvsroot=lisppaste&content-type=text/vnd.viewcvs-markup">README.lisp</a> file which contains all the information you need to run a lisppaste on your own. @@ -52,7 +63,7 @@ <address><a href="http://www.cs.indiana.edu/~bmastenb/">Brian Mastenbrook</a></address>   -Last modified: Mon Feb 23 09:56:16 EST 2004 +Last modified: Tue Mar 9 01:37:24 2004 EST  </body> </html>

1 0