September 2008 - bknr-cvs@common-lisp.net

[bknr-cvs] hans changed trunk/projects/quickhoney/
by BKNR Commits 17 Sep '08

17 Sep '08

Revision: 3914 Author: hans URL: http://bknr.net/trac/changeset/3914 Always show same button home page and category. Add 'quickhoney' application to twitter message. Use more images to create buttons on home page. U trunk/projects/quickhoney/src/handlers.lisp U trunk/projects/quickhoney/src/twitter.lisp U trunk/projects/quickhoney/website/static/javascript.js Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2008-09-17 13:31:04 UTC (rev 3913) +++ trunk/projects/quickhoney/src/handlers.lisp 2008-09-17 20:20:54 UTC (rev 3914) @@ -236,7 +236,12 @@ (images-in-all-subcategories-sorted-by-time subcategory) (images-in-category-sorted-by-time (list category subcategory))))) (when images - (cons :images images)))) + (cons :images (loop with since = (- (get-universal-time) (* 60 60 24 14)) + for i from 0 + for image in images + when (or (< i 10) + (> (blob-timestamp image) since)) + collect image))))) (defmethod handle ((handler json-buttons-handler)) (with-json-response () @@ -256,8 +261,7 @@ ;; format and come with the caption rendered into ;; them. (let ((category (make-keyword-from-string category)) - (subcategory (make-keyword-from-string subcategory)) - (count 10)) + (subcategory (make-keyword-from-string subcategory))) (destructuring-bind (&optional type &rest images) (or (preproduced-buttons category subcategory) (newest-images category subcategory) @@ -265,9 +269,7 @@ (encode-array-element type) (dolist (image (or images (list (store-image-with-name "button-dummy")))) - (encode-array-element (store-object-id image)) - (when (zerop (decf count)) - (return))))))))))))) + (encode-array-element (store-object-id image))))))))))))) (defclass upload-image-handler (admin-only-handler prefix-handler) ()) Modified: trunk/projects/quickhoney/src/twitter.lisp =================================================================== --- trunk/projects/quickhoney/src/twitter.lisp 2008-09-17 13:31:04 UTC (rev 3913) +++ trunk/projects/quickhoney/src/twitter.lisp 2008-09-17 20:20:54 UTC (rev 3914) @@ -19,7 +19,8 @@ (let ((result (babel:octets-to-string (drakma:http-request "http://twitter.com/statuses/update.xml" :method :post - :content (format nil "status=~A" status-string) + :content (format nil "status=~A&source=quickhoney" + (hunchentoot:url-encode status-string)) :content-type "application/x-www-form-urlencoded" :basic-authorization (account-authorization account))))) (when (cl-ppcre:scan "<error>" result) Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-17 13:31:04 UTC (rev 3913) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-17 20:20:54 UTC (rev 3914) @@ -645,13 +645,28 @@ /* directory - first level category */ var button_images = []; +var last_category_buttons = {}; function random_button_image(category, subcategory, width, height, cut_category) { + + /* We want the last used button for a category used on the home + * page to also appear on that categories page next. For that, we + * save the previously displayed home image button here. Not pretty. + */ + var key = category + '/' + subcategory; var image_ids = button_images[key]; if (image_ids && image_ids.length) { var type = image_ids[0]; - var image_id = image_ids[1 + Math.floor(Math.random() * (image_ids.length - 1))]; + var ids = image_ids.slice(1); + var image_id = ids[Math.floor(Math.random() * ids.length)]; + if (last_category_buttons[category] && findValue(ids, last_category_buttons[category]) != -1) { + image_id = last_category_buttons[category]; + last_category_buttons[category] = null; + } + if (category == 'home') { + last_category_buttons[subcategory] = image_id; + } if (type == 'buttons') { return '/image/' + image_id; } else { @@ -1582,7 +1597,10 @@ TBODY(null, TR(null, TD({ 'class': 't-shirt-sample', valign: 'top' }, - IMG({ id: 't-shirt-sample', src: '/image/' + encodeURI(current_image.name) + '/cell,ffffff,100,100,10'})), + IMG({ id: 't-shirt-sample', + src: ('/image/' + + encodeURI(current_image.name) + + '/cell,ffffff,100,100,10')})), TD(null, "Color:", BR(), "Tee - white", BR(),

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/src/handlers.lisp
by BKNR Commits 17 Sep '08

17 Sep '08

Revision: 3913 Author: hans URL: http://bknr.net/trac/changeset/3913 Make URLs tiny instead of relying on Twitter to do so, as that won't always work. U trunk/projects/quickhoney/src/handlers.lisp Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2008-09-17 11:47:43 UTC (rev 3912) +++ trunk/projects/quickhoney/src/handlers.lisp 2008-09-17 13:31:04 UTC (rev 3913) @@ -305,9 +305,13 @@ :spider-keywords spider-keywords)))) (with-http-response () (with-http-body () - (twitter:update-status (bknr-session-user) - (format nil "Uploaded new image ~A: http://quickhoney.com~A/~A" - image-name (handler-path handler) image-name)) + (let ((tinyurl (drakma:http-request + (format nil "http://tinyurl.com/api-create.php?url=~A" + (hunchentoot:url-encode (format nil "http://quickhoney.com~A/~A" + (handler-path handler) image-name)))))) + (twitter:update-status (bknr-session-user) + (format nil "Uploaded new image ~A: ~A" + image-name tinyurl))) (html (:html (:head (:title "Upload successful")

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/
by BKNR Commits 17 Sep '08

17 Sep '08

Revision: 3912 Author: hans URL: http://bknr.net/trac/changeset/3912 Add automatic Twitter status updates when uploading. Remove upgrade stuff, we're live! U trunk/projects/quickhoney/src/handlers.lisp U trunk/projects/quickhoney/src/packages.lisp U trunk/projects/quickhoney/src/quickhoney.asd U trunk/projects/quickhoney/src/twitter.lisp D trunk/projects/quickhoney/upgrade-stuff/ U trunk/projects/quickhoney/website/static/javascript.js Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2008-09-17 09:26:32 UTC (rev 3911) +++ trunk/projects/quickhoney/src/handlers.lisp 2008-09-17 11:47:43 UTC (rev 3912) @@ -293,9 +293,10 @@ (with-image-from-upload* (uploaded-file) (let* ((width (cl-gd:image-width)) (height (cl-gd:image-height)) - (ratio (/ 1 (max (/ width 300) (/ height 200))))) + (ratio (/ 1 (max (/ width 300) (/ height 200)))) + (image-name (pathname-name (upload-original-filename uploaded-file)))) (maybe-convert-to-palette) - (let* ((image (make-store-image :name (pathname-name (upload-original-filename uploaded-file)) + (let* ((image (make-store-image :name image-name :class-name 'quickhoney-image :keywords (cons :upload (image-keywords-from-request-parameters)) :initargs (list :owner (bknr-session-user) @@ -304,6 +305,9 @@ :spider-keywords spider-keywords)))) (with-http-response () (with-http-body () + (twitter:update-status (bknr-session-user) + (format nil "Uploaded new image ~A: http://quickhoney.com~A/~A" + image-name (handler-path handler) image-name)) (html (:html (:head (:title "Upload successful") @@ -355,16 +359,19 @@ :dest-width +news-image-width+ :dest-height scaled-height) (cl-gd:destroy-image uploaded-image) (setf uploaded-image scaled-image))) - (let ((item (make-store-image :name (normalize-news-title title) - :image uploaded-image - :type (if (cl-gd:true-color-p uploaded-image) :jpg :png) - :class-name 'quickhoney-news-item - :keywords (list :upload) - :initargs (list :cat-sub (list :news) - :title title - :text text - :owner (bknr-session-user))))) + (let* ((title (normalize-news-title title)) + (item (make-store-image :name title + :image uploaded-image + :type (if (cl-gd:true-color-p uploaded-image) :jpg :png) + :class-name 'quickhoney-news-item + :keywords (list :upload) + :initargs (list :cat-sub (list :news) + :title title + :text text + :owner (bknr-session-user))))) (declare (ignore item)) ; for now + (twitter:update-status (bknr-session-user) + (format nil "Posted news item: http://quickhoney.com/news/~A" title)) (with-http-response () (with-http-body () (html (:html Modified: trunk/projects/quickhoney/src/packages.lisp =================================================================== --- trunk/projects/quickhoney/src/packages.lisp 2008-09-17 09:26:32 UTC (rev 3911) +++ trunk/projects/quickhoney/src/packages.lisp 2008-09-17 11:47:43 UTC (rev 3912) @@ -77,5 +77,5 @@ (:use :cl)) (defpackage :twitter - (:use :cl) + (:use :cl :bknr.datastore) (:export #:update-status)) \ No newline at end of file Modified: trunk/projects/quickhoney/src/quickhoney.asd =================================================================== --- trunk/projects/quickhoney/src/quickhoney.asd 2008-09-17 09:26:32 UTC (rev 3911) +++ trunk/projects/quickhoney/src/quickhoney.asd 2008-09-17 11:47:43 UTC (rev 3912) @@ -33,6 +33,7 @@ (:file "layout" :depends-on ("config")) (:file "imageproc" :depends-on ("config")) (:file "json" :depends-on ("packages")) + (:file "twitter" :depends-on ("packages")) (:file "handlers" :depends-on ("json" "layout" "config" "image" "news")) (:file "tags" :depends-on ("image")) (:file "webserver" :depends-on ("handlers")) Modified: trunk/projects/quickhoney/src/twitter.lisp =================================================================== --- trunk/projects/quickhoney/src/twitter.lisp 2008-09-17 09:26:32 UTC (rev 3911) +++ trunk/projects/quickhoney/src/twitter.lisp 2008-09-17 11:47:43 UTC (rev 3912) @@ -1,12 +1,33 @@ (in-package :twitter) -(defparameter *authorization* '("QuickHoneyTest" "autotwitter") - "Authorization (USER PASSWORD) to use to identify to twitter") +(define-persistent-class account () + ((user :read + :type bknr.user:user + :documentation "USER that this Twitter account belongs to") + (authorization :update + :documentation "List of username and password for this account"))) -(defun update-status (status-string) - (babel:octets-to-string - (drakma:http-request "http://twitter.com/statuses/update.xml" - :method :post - :content (format nil "status=~A" status-string) - :content-type "application/x-www-form-urlencoded" - :basic-authorization *authorization*))) \ No newline at end of file +(define-condition cannot-update-status (error) + ((result :initarg :result :reader result))) + +(define-condition no-account-for-user (error) + ((user :initarg :user :reader user))) + +(defgeneric update-status (who status-string &key) + + (:method ((account account) status-string &key) + (let ((result (babel:octets-to-string + (drakma:http-request "http://twitter.com/statuses/update.xml" + :method :post + :content (format nil "status=~A" status-string) + :content-type "application/x-www-form-urlencoded" + :basic-authorization (account-authorization account))))) + (when (cl-ppcre:scan "<error>" result) + (error 'cannot-update-status :result result)))) + + (:method ((user bknr.user:user) status-string &key errorp) + (let ((account (find user (class-instances 'account) :key #'account-user))) + (if account + (update-status account status-string) + (when errorp + (error 'no-account-for-user :user user)))))) \ No newline at end of file Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-17 09:26:32 UTC (rev 3911) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-17 11:47:43 UTC (rev 3912) @@ -1,5 +1,8 @@ -// -*- Java -*- +// This may look like -*- Java -*-, but it really is JavaScript +// Copyright 2005-2008 Hans Huebner, hans.huebner(a)gmail.com +// All rights reserved. + /* configuration */ var max_news_items = 50; /* maximum number of news items to display */

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/website/static/javascript.js
by BKNR Commits 17 Sep '08

17 Sep '08

Revision: 3911 Author: hans URL: http://bknr.net/trac/changeset/3911 tweak last change U trunk/projects/quickhoney/website/static/javascript.js Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-17 09:24:51 UTC (rev 3910) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-17 09:26:32 UTC (rev 3911) @@ -561,7 +561,7 @@ if (!pages[pagename]) { document.location.href = '/'; - return; + return false; } var page = pages[pagename];

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/website/static/javascript.js
by BKNR Commits 17 Sep '08

17 Sep '08

Revision: 3910 Author: hans URL: http://bknr.net/trac/changeset/3910 Handle unknown paths by redirecting to the home page. U trunk/projects/quickhoney/website/static/javascript.js Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-16 19:02:57 UTC (rev 3909) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-17 09:24:51 UTC (rev 3910) @@ -472,7 +472,11 @@ } log('got ', query_result.length.toString(), ' images'); - display_query_result(); + if (query_result.length) { + display_query_result(); + } else { + document.location.href = '/#home'; + } } function query_imagedb(directory, subdirectory, force) { @@ -554,6 +558,12 @@ } function show_page(pagename, subpath) { + + if (!pages[pagename]) { + document.location.href = '/'; + return; + } + var page = pages[pagename]; log('show_page ' + pagename + ' subpath ' + subpath + ' current_directory ' + current_directory);

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/
by BKNR Commits 16 Sep '08

16 Sep '08

Revision: 3909 Author: hans URL: http://bknr.net/trac/changeset/3909 Fix handling of pictures with ampersand in names. Handle invalid paths better (a little). import.lisp latest additions. U trunk/projects/quickhoney/upgrade-stuff/import.lisp U trunk/projects/quickhoney/website/static/javascript.js Modified: trunk/projects/quickhoney/upgrade-stuff/import.lisp =================================================================== --- trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-16 19:00:31 UTC (rev 3908) +++ trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-16 19:02:57 UTC (rev 3909) @@ -71,6 +71,11 @@ (dolist (image (images-in-category '(:shop))) (setf (slot-value image 'cat-sub) '(:shop :shop)))) +(with-transaction (:make-explicit) + (dolist (image (union (images-in-category '(:vector :nudes)) + (images-in-category '(:pen :nudes)))) + (pushnew :explicit (store-image-keywords image)))) + (with-transaction (:initialize-news) (setf (slot-value (find-rss-channel "quickhoney") 'bknr.rss::items) (sort (remove-if (lambda (image) @@ -79,6 +84,10 @@ #'> :key #'blob-timestamp))) +(with-transaction (:delete-pixel-buttons) + (dolist (keyword '(:parts :icons :editorial :birdview)) + (mapc #'delete-object (get-keywords-intersection-store-images (list :pixel :button keyword))))) + (with-transaction (:initialize-animation-mime-types) (dolist (animation (mapcar #'quickhoney-animation-image-animation (class-instances 'quickhoney-animation-image))) Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-16 19:00:31 UTC (rev 3908) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-16 19:02:57 UTC (rev 3909) @@ -418,10 +418,15 @@ for (var i = 0; i < query_result.length; i++) { if (query_result[i].name == document.show_picture) { display_image(i); + document.show_picture = null; break; } } - document.show_picture = null; + if (document.show_picture) { + /* not found */ + document.show_picture = null; + document.location.href = '#' + current_directory + '/' + current_subdirectory; + } } else { if (document.show_page) { goto_results_page(document.show_page); @@ -730,7 +735,7 @@ function directory(directory_name, subpath) { - log('directory: ', directory_name, ' subpath: ', subpath, ' current_directory: ', current_directory); + log('directory: ' + directory_name + ' subpath: ' + subpath + ' current_directory: ' + current_directory); replaceChildNodes("thumbnails", " "); @@ -1187,7 +1192,7 @@ log('jump_to - path is ', path); - path = decodeURI(path.replace(/[&#].*/, "")); + path = decodeURI(path.replace(/[?#].*/, "")); var components = path.split("/"); show_page(components[0], path.replace(/.*?($|\/(.*))/, "$2")); }

1 0

[bknr-cvs] hans changed trunk/bknr/web/src/images/image.lisp
by BKNR Commits 16 Sep '08

16 Sep '08

Revision: 3908 Author: hans URL: http://bknr.net/trac/changeset/3908 Fix recursive directory search to use wildcarded pathname. U trunk/bknr/web/src/images/image.lisp Modified: trunk/bknr/web/src/images/image.lisp =================================================================== --- trunk/bknr/web/src/images/image.lisp 2008-09-16 18:33:54 UTC (rev 3907) +++ trunk/bknr/web/src/images/image.lisp 2008-09-16 19:00:31 UTC (rev 3908) @@ -152,18 +152,9 @@ :type (bknr.utils:image-type-symbol (cdr (assoc :content-type headers))) args))))) -(defun directory-recursive (pathname &key list-directories) - (loop for file in (directory (merge-pathnames #P"**/*.*" pathname)) - when (pathname-name file) - collect file - unless (pathname-name file) - nconc (directory-recursive file) - and when list-directories - collect file)) - -(defun image-directory-recursive (pathname &key list-directories) +(defun image-directory-recursive (pathname) (remove-if-not #'pathname-content-type - (directory-recursive pathname :list-directories list-directories))) + (directory (merge-pathnames #P"**/*.*" pathname)))) (defun import-directory (pathname &key user keywords (spool *user-spool-directory-root*) keywords-from-dir (class-name 'store-image) (delete-files t)) @@ -172,7 +163,7 @@ (unless (subdir-p pathname spool) (error "imported directory ~a is not a subdir of spool ~a~%" pathname spool)) - (loop for file in (image-directory-recursive pathname :list-directories t) + (loop for file in (image-directory-recursive pathname) when (pathname-name file) collect (handler-case (let ((image (import-image

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/website/templates/index.xml
by BKNR Commits 16 Sep '08

16 Sep '08

Revision: 3907 Author: hans URL: http://bknr.net/trac/changeset/3907 HTML compliance fix U trunk/projects/quickhoney/website/templates/index.xml Modified: trunk/projects/quickhoney/website/templates/index.xml =================================================================== --- trunk/projects/quickhoney/website/templates/index.xml 2008-09-16 14:42:04 UTC (rev 3906) +++ trunk/projects/quickhoney/website/templates/index.xml 2008-09-16 18:33:54 UTC (rev 3907) @@ -213,7 +213,7 @@ <p class="cms"> Category: <select name="subdirectory" size="1"> - <option selected="selected"></option> + <option selected="selected"> </option> <option>birdview</option> <option>parts</option> <option>icons</option>

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/website/templates/index.xml
by BKNR Commits 16 Sep '08

16 Sep '08

Revision: 3906 Author: hans URL: http://bknr.net/trac/changeset/3906 Change GA tracking code. U trunk/projects/quickhoney/website/templates/index.xml Modified: trunk/projects/quickhoney/website/templates/index.xml =================================================================== --- trunk/projects/quickhoney/website/templates/index.xml 2008-09-16 14:30:16 UTC (rev 3905) +++ trunk/projects/quickhoney/website/templates/index.xml 2008-09-16 14:42:04 UTC (rev 3906) @@ -338,7 +338,7 @@ document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E")); </script> <script type="text/javascript"> -var pageTracker = _gat._getTracker("UA-3432041-4"); +var pageTracker = _gat._getTracker("UA-3432041-5"); pageTracker._trackPageview(); </script> <script language="javascript" type="text/javascript">

1 0

[bknr-cvs] hans changed trunk/
by BKNR Commits 16 Sep '08

16 Sep '08

Revision: 3905 Author: hans URL: http://bknr.net/trac/changeset/3905 Last minute deployment changes for Quickhoney. U trunk/bknr/web/src/images/image.lisp U trunk/projects/quickhoney/src/handlers.lisp U trunk/projects/quickhoney/src/init.lisp U trunk/projects/quickhoney/src/webserver.lisp U trunk/projects/quickhoney/upgrade-stuff/import.lisp Modified: trunk/bknr/web/src/images/image.lisp =================================================================== --- trunk/bknr/web/src/images/image.lisp 2008-09-16 14:27:23 UTC (rev 3904) +++ trunk/bknr/web/src/images/image.lisp 2008-09-16 14:30:16 UTC (rev 3905) @@ -166,7 +166,7 @@ (directory-recursive pathname :list-directories list-directories))) (defun import-directory (pathname &key user keywords (spool *user-spool-directory-root*) - keywords-from-dir (class-name 'store-image)) + keywords-from-dir (class-name 'store-image) (delete-files t)) "Import all files from directory by giving them relative names" (let ((path-spool (cdr (pathname-directory spool)))) (unless (subdir-p pathname spool) Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2008-09-16 14:27:23 UTC (rev 3904) +++ trunk/projects/quickhoney/src/handlers.lisp 2008-09-16 14:30:16 UTC (rev 3905) @@ -551,3 +551,9 @@ (encode-array-element (first month)) (encode-array-element (second month)))))))) +(defclass shutdown-handler (admin-only-handler page-handler) + ()) + +(defmethod handle ((handler shutdown-handler)) + (hunchentoot:stop-server hunchentoot:*server*) + "Shutting down HTTP server") \ No newline at end of file Modified: trunk/projects/quickhoney/src/init.lisp =================================================================== --- trunk/projects/quickhoney/src/init.lisp 2008-09-16 14:27:23 UTC (rev 3904) +++ trunk/projects/quickhoney/src/init.lisp 2008-09-16 14:30:16 UTC (rev 3905) @@ -30,11 +30,14 @@ (cl-gd::load-gd-glue))) (ensure-directories-exist (setf tbnl:*tmp-directory* (merge-pathnames "hunchentoot-tmp/" *store-directory*))) - #+cmu (actor-start (make-instance 'cron-actor)) (publish-quickhoney) (when (probe-file "site-config.lisp") (format t "; loading site configuration file~%") (let ((*package* (find-package :quickhoney.config))) (load "site-config.lisp"))) - (hunchentoot:start-server :port *webserver-port*)) + (bt:make-thread (curry #'hunchentoot:start-server + :port *webserver-port* + :threaded nil + :persistent-connections-p nil) + :name (format nil "HTTP server on port ~A" *webserver-port*))) Modified: trunk/projects/quickhoney/src/webserver.lisp =================================================================== --- trunk/projects/quickhoney/src/webserver.lisp 2008-09-16 14:27:23 UTC (rev 3904) +++ trunk/projects/quickhoney/src/webserver.lisp 2008-09-16 14:30:16 UTC (rev 3905) @@ -37,6 +37,7 @@ ("/digg-image" digg-image-handler) ("/json-news-archive" json-news-archive-handler) ("/json-news" json-news-handler) + ("/shutdown" shutdown-handler) user images ("/static" directory-handler Modified: trunk/projects/quickhoney/upgrade-stuff/import.lisp =================================================================== --- trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-16 14:27:23 UTC (rev 3904) +++ trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-16 14:30:16 UTC (rev 3905) @@ -118,4 +118,8 @@ (dolist (pathname (directory (merge-pathnames #P"**/*.*" directory-pathname))) (if (member (pathname-type pathname) '(:png :gif :jpg) :test #'string-equal) (import-or-update-image pathname) - (warn "Ignoring file ~A with unknown extension" pathname)))) \ No newline at end of file + (warn "Ignoring file ~A with unknown extension" pathname)))) + +(defun clean-pixel-images () + (mapc #'delete-object (images-in-category '(:pixel :editorial))) + (mapc #'delete-object (images-in-category '(:pixel :parts)))) \ No newline at end of file

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/website/static/
by BKNR Commits 16 Sep '08

16 Sep '08

Revision: 3904 Author: hans URL: http://bknr.net/trac/changeset/3904 Add a bunch of social bookmarking sites to the "Shoot" popup. A trunk/projects/quickhoney/website/static/icons/ A trunk/projects/quickhoney/website/static/icons/blinkbits.gif A trunk/projects/quickhoney/website/static/icons/blinklists.gif A trunk/projects/quickhoney/website/static/icons/blogdigger.gif A trunk/projects/quickhoney/website/static/icons/blogmarks.gif A trunk/projects/quickhoney/website/static/icons/buzznet.gif A trunk/projects/quickhoney/website/static/icons/citeulike.gif A trunk/projects/quickhoney/website/static/icons/comments.gif A trunk/projects/quickhoney/website/static/icons/connotea.gif A trunk/projects/quickhoney/website/static/icons/delicious.png A trunk/projects/quickhoney/website/static/icons/digg.png A trunk/projects/quickhoney/website/static/icons/fark.gif A trunk/projects/quickhoney/website/static/icons/feedmelinks.gif A trunk/projects/quickhoney/website/static/icons/feedster-icon.gif A trunk/projects/quickhoney/website/static/icons/findory.gif A trunk/projects/quickhoney/website/static/icons/flickr.gif A trunk/projects/quickhoney/website/static/icons/furl.png A trunk/projects/quickhoney/website/static/icons/google.gif A trunk/projects/quickhoney/website/static/icons/icerocket.gif A trunk/projects/quickhoney/website/static/icons/linkagogo.gif A trunk/projects/quickhoney/website/static/icons/magnolia.gif A trunk/projects/quickhoney/website/static/icons/mister-wong.gif A trunk/projects/quickhoney/website/static/icons/netscape.gif A trunk/projects/quickhoney/website/static/icons/newsvine.gif A trunk/projects/quickhoney/website/static/icons/nowpublic.gif A trunk/projects/quickhoney/website/static/icons/onlywire.gif A trunk/projects/quickhoney/website/static/icons/paypal.gif A trunk/projects/quickhoney/website/static/icons/reddit.gif A trunk/projects/quickhoney/website/static/icons/rocketnews.gif A trunk/projects/quickhoney/website/static/icons/scoopt.gif A trunk/projects/quickhoney/website/static/icons/scuttle.gif A trunk/projects/quickhoney/website/static/icons/shadows.gif A trunk/projects/quickhoney/website/static/icons/simpy.gif A trunk/projects/quickhoney/website/static/icons/slashdot.gif A trunk/projects/quickhoney/website/static/icons/smarking.gif A trunk/projects/quickhoney/website/static/icons/sphere.gif A trunk/projects/quickhoney/website/static/icons/spurl.gif A trunk/projects/quickhoney/website/static/icons/stumbleupon.gif A trunk/projects/quickhoney/website/static/icons/technorati.gif A trunk/projects/quickhoney/website/static/icons/webride.gif A trunk/projects/quickhoney/website/static/icons/wists.gif A trunk/projects/quickhoney/website/static/icons/yahoo.png U trunk/projects/quickhoney/website/static/index.css U trunk/projects/quickhoney/website/static/javascript.js Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/upgrade-stuff/
by BKNR Commits 16 Sep '08

16 Sep '08

Revision: 3903 Author: hans URL: http://bknr.net/trac/changeset/3903 Add more images, update import script. A trunk/projects/quickhoney/upgrade-stuff/delicious.gif U trunk/projects/quickhoney/upgrade-stuff/import.lisp A trunk/projects/quickhoney/upgrade-stuff/type-animation.png A trunk/projects/quickhoney/upgrade-stuff/type-birdview.png A trunk/projects/quickhoney/upgrade-stuff/type-headon.png A trunk/projects/quickhoney/upgrade-stuff/type-icons.png A trunk/projects/quickhoney/upgrade-stuff/type-smallworld.png A trunk/projects/quickhoney/upgrade-stuff/type-spot.png Added: trunk/projects/quickhoney/upgrade-stuff/delicious.gif =================================================================== (Binary files differ) Property changes on: trunk/projects/quickhoney/upgrade-stuff/delicious.gif ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Modified: trunk/projects/quickhoney/upgrade-stuff/import.lisp =================================================================== --- trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-15 19:22:05 UTC (rev 3902) +++ trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-16 11:54:39 UTC (rev 3903) @@ -10,8 +10,7 @@ (error (e) (format t "~&; error importing ~S: ~A~%" pathname e)))) -(dolist (name '(#p"type-news.png" #p"type-pixel.png" #p"type-shop.png" - #p"type-vector.png" #p"type-stuff.png" #p"type-pen.png")) +(dolist (name (directory #P"type-*.png")) (replace-image name :keywords '(:type))) (dolist (pathname '(#P"overlay-close.gif" @@ -72,10 +71,6 @@ (dolist (image (images-in-category '(:shop))) (setf (slot-value image 'cat-sub) '(:shop :shop)))) -(with-transaction (:categorize-pen-imports) - (dolist (image (get-keyword-store-images :pen-imports)) - (setf (slot-value image 'cat-sub) (mapcar #'make-keyword-from-string (bknr.images::store-image-directory image))))) - (with-transaction (:initialize-news) (setf (slot-value (find-rss-channel "quickhoney") 'bknr.rss::items) (sort (remove-if (lambda (image) @@ -85,6 +80,42 @@ :key #'blob-timestamp))) (with-transaction (:initialize-animation-mime-types) - (dolist (animation (mapcar #'quickhoney-animation-image-animation (class-instances 'quickhoney-animation-image))) + (dolist (animation (mapcar #'quickhoney-animation-image-animation + (class-instances 'quickhoney-animation-image))) (unless (slot-boundp animation 'bknr.datastore::type) - (setf (slot-value animation 'bknr.datastore::type) "application/x-shockwave-flash")))) \ No newline at end of file + (setf (slot-value animation 'bknr.datastore::type) "application/x-shockwave-flash")))) + +(with-transaction (:delete-obsolete-buttons) + (dolist (subcategory '(:birdview :parts :editorial :icons)) + (dolist (image (get-keywords-intersection-store-images (list :button :pixel subcategory))) + (delete-object image)))) + +(defun import-or-update-image (pathname) + (destructuring-bind (cat sub &rest name) + (mapcar #'make-keyword-from-string (last (split "/" (namestring (truename pathname))) 3)) + (declare (ignore name)) + (let* ((pathname-name (pathname-name pathname)) + (name (if (scan "^[0-9][0-9]" pathname-name) + (format nil "smallworld-~A" pathname-name) + pathname-name)) + (existing-image (store-image-with-name name))) + (cond + (existing-image + (format t "updating existing image ~A from new file~%" name) + (copy-file pathname (blob-pathname existing-image)) + (with-transaction (:update-cat-sub) + (setf (slot-value existing-image 'cat-sub) (list cat sub)))) + (t + (format t "importing new image ~A~%" name) + (import-image pathname + :name name + :user (find-user (if (eq :pixel cat) "n" "p")) + :keywords-from-dir nil + :class-name 'quickhoney-image + :initargs (list :cat-sub (list cat sub)))))))) + +(defun import-directory (directory-pathname) + (dolist (pathname (directory (merge-pathnames #P"**/*.*" directory-pathname))) + (if (member (pathname-type pathname) '(:png :gif :jpg) :test #'string-equal) + (import-or-update-image pathname) + (warn "Ignoring file ~A with unknown extension" pathname)))) \ No newline at end of file Added: trunk/projects/quickhoney/upgrade-stuff/type-animation.png =================================================================== (Binary files differ) Property changes on: trunk/projects/quickhoney/upgrade-stuff/type-animation.png ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/projects/quickhoney/upgrade-stuff/type-birdview.png =================================================================== (Binary files differ) Property changes on: trunk/projects/quickhoney/upgrade-stuff/type-birdview.png ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/projects/quickhoney/upgrade-stuff/type-headon.png =================================================================== (Binary files differ) Property changes on: trunk/projects/quickhoney/upgrade-stuff/type-headon.png ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/projects/quickhoney/upgrade-stuff/type-icons.png =================================================================== (Binary files differ) Property changes on: trunk/projects/quickhoney/upgrade-stuff/type-icons.png ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/projects/quickhoney/upgrade-stuff/type-smallworld.png =================================================================== (Binary files differ) Property changes on: trunk/projects/quickhoney/upgrade-stuff/type-smallworld.png ___________________________________________________________________ Name: svn:mime-type + application/octet-stream Added: trunk/projects/quickhoney/upgrade-stuff/type-spot.png =================================================================== (Binary files differ) Property changes on: trunk/projects/quickhoney/upgrade-stuff/type-spot.png ___________________________________________________________________ Name: svn:mime-type + application/octet-stream

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/payment-website/infosystem/
by BKNR Commits 15 Sep '08

15 Sep '08

Revision: 3902 Author: ksprotte URL: http://bknr.net/trac/changeset/3902 layout fix in infosystem/*/satellitenkarte.htm U trunk/projects/bos/payment-website/infosystem/da/satellitenkarte.htm U trunk/projects/bos/payment-website/infosystem/de/satellitenkarte.htm U trunk/projects/bos/payment-website/infosystem/en/satellitenkarte.htm Modified: trunk/projects/bos/payment-website/infosystem/da/satellitenkarte.htm =================================================================== --- trunk/projects/bos/payment-website/infosystem/da/satellitenkarte.htm 2008-09-15 18:40:38 UTC (rev 3901) +++ trunk/projects/bos/payment-website/infosystem/da/satellitenkarte.htm 2008-09-15 19:22:05 UTC (rev 3902) @@ -34,9 +34,10 @@ </style> </head> <body> + <img style="position: absolute;" src="../bilder/infosystem_header-en.gif" width="740" height="76"/> <table width="740" height="500" border="0" cellpadding="0" cellspacing="0"> <tr> - <td height="50" colspan="3"><img src="../bilder/infosystem_header-en.gif" width="740" height="76"/></td> + <td height="50" colspan="3"><img src="../bilder/spacer.gif" width="740" height="50"/></td> </tr> <tr> <td height="20" class="BreadCrumbs"><img src="../bilder/spacer.gif" width="1" height="1"/></td> Modified: trunk/projects/bos/payment-website/infosystem/de/satellitenkarte.htm =================================================================== --- trunk/projects/bos/payment-website/infosystem/de/satellitenkarte.htm 2008-09-15 18:40:38 UTC (rev 3901) +++ trunk/projects/bos/payment-website/infosystem/de/satellitenkarte.htm 2008-09-15 19:22:05 UTC (rev 3902) @@ -34,9 +34,10 @@ </style> </head> <body> + <img style="position: absolute;" src="../bilder/infosystem_header-de.gif" width="740" height="76"/> <table width="740" height="500" border="0" cellpadding="0" cellspacing="0"> <tr> - <td height="50" colspan="3"><img src="../bilder/infosystem_header-de.gif" width="740" height="76"/></td> + <td height="50" colspan="3"><img src="../bilder/spacer.gif" width="740" height="50"/></td> </tr> <tr> <td height="20" class="BreadCrumbs"><img src="../bilder/spacer.gif" width="1" height="1"/></td> Modified: trunk/projects/bos/payment-website/infosystem/en/satellitenkarte.htm =================================================================== --- trunk/projects/bos/payment-website/infosystem/en/satellitenkarte.htm 2008-09-15 18:40:38 UTC (rev 3901) +++ trunk/projects/bos/payment-website/infosystem/en/satellitenkarte.htm 2008-09-15 19:22:05 UTC (rev 3902) @@ -34,10 +34,11 @@ </style> </head> <body> + <img style="position: absolute;" src="../bilder/infosystem_header-en.gif" width="740" height="76"/> <table width="740" height="500" border="0" cellpadding="0" cellspacing="0"> <tr> - <td height="50" colspan="3"><img src="../bilder/infosystem_header-en.gif" width="740" height="76"/></td> + <td height="50" colspan="3"><img src="../bilder/spacer.gif" width="740" height="50"/></td> </tr> <tr> <td height="20" class="BreadCrumbs"><img src="../bilder/spacer.gif" width="1" height="1"/></td>

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/payment-website/infosystem/
by BKNR Commits 15 Sep '08

15 Sep '08

Revision: 3901 Author: ksprotte URL: http://bknr.net/trac/changeset/3901 indentation U trunk/projects/bos/payment-website/infosystem/da/satellitenkarte.htm U trunk/projects/bos/payment-website/infosystem/de/satellitenkarte.htm U trunk/projects/bos/payment-website/infosystem/en/satellitenkarte.htm Change set too large, please see URL above

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/m2/
by BKNR Commits 15 Sep '08

15 Sep '08

Revision: 3900 Author: ksprotte URL: http://bknr.net/trac/changeset/3900 free-m2s again persistent There have been problems with the transient approach (as proven by the failing test). In order to fix this fast and cleanly, it seems to be the best solution to make it persistent again. U trunk/projects/bos/m2/allocation.lisp U trunk/projects/bos/m2/m2.lisp Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-09-15 13:14:44 UTC (rev 3899) +++ trunk/projects/bos/m2/allocation.lisp 2008-09-15 14:46:00 UTC (rev 3900) @@ -8,7 +8,7 @@ (height :reader allocation-area-height :initarg :height) (vertices :reader allocation-area-vertices :initarg :vertices) (total-m2s :reader allocation-area-total-m2s) - (free-m2s :transient t :writer (setf allocation-area-free-m2s)) ;free-m2s reader defined below + (free-m2s :accessor allocation-area-free-m2s) (bounding-box :transient t :reader allocation-area-bounding-box)) (:documentation "A polygon in which to allocate meters. LEFT, TOP, WIDTH, and @@ -27,20 +27,13 @@ (format stream "~a x ~a ~:[inactive~;active~] ID: ~a" (allocation-area-width allocation-area) (allocation-area-height allocation-area) - (allocation-area-active-p allocation-area) + (allocation-area-active-p allocation-area) (store-object-id allocation-area)))) -(defmethod allocation-area-free-m2s ((area allocation-area)) - (flet ((compute-free-m2s () - (with-slots (total-m2s free-m2s) area - (setf free-m2s (- total-m2s (calculate-allocated-m2-count area)))))) - (if (slot-boundp area 'free-m2s) - (slot-value area 'free-m2s) - (compute-free-m2s)))) - (defmethod initialize-persistent-instance :after ((allocation-area allocation-area) &key) - (with-slots (total-m2s) allocation-area - (setf total-m2s (calculate-total-m2-count allocation-area))) + (with-slots (total-m2s free-m2s) allocation-area + (setf total-m2s (calculate-total-m2-count allocation-area)) + (setf free-m2s (- total-m2s (calculate-allocated-m2-count allocation-area)))) ;; FIXME probably we dont need this and should rely on *rect-publisher* (dolist (tile (allocation-area-tiles allocation-area)) (image-tile-changed tile))) @@ -51,7 +44,7 @@ (defmethod destroy-object :before ((allocation-area allocation-area)) (notify-tiles allocation-area)) -(defmethod initialize-transient-instance :after ((allocation-area allocation-area)) +(defmethod initialize-transient-instance :after ((allocation-area allocation-area)) (notify-tiles allocation-area)) (defun compute-bounding-box (vertices) @@ -351,7 +344,7 @@ (result (search-adjacent n m2 #'allocatable-p))) (when result (assert (alexandria:setp result :test #'equal)) - (assert (= n (length result))) + (assert (= n (length result))) (return result)) (when (> (get-internal-real-time) deadline) (return nil))))))) Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-09-15 13:14:44 UTC (rev 3899) +++ trunk/projects/bos/m2/m2.lisp 2008-09-15 14:46:00 UTC (rev 3900) @@ -34,9 +34,9 @@ :slots (x y) :index-reader m2-at :index-initargs (:width +width+ - :height +width+ - :tile-size +m2tile-width+ - :tile-class 'image-tile)))) + :height +width+ + :tile-size +m2tile-width+ + :tile-class 'image-tile)))) (defmethod print-object ((m2 m2) stream) (if (and (slot-boundp m2 'x) @@ -55,7 +55,7 @@ (defun ensure-m2 (&rest coords) (or (m2-at coords) - (destructuring-bind (x y) coords + (destructuring-bind (x y) coords (make-object 'm2 :x x :y y)))) (defmethod get-m2-with-num ((num integer)) @@ -264,7 +264,7 @@ (worldpay-trans-id :update :initform nil) (expires :read :documentation "universal time which specifies the time the contract expires (is deleted) when it has not been paid for" - :initform nil) + :initform nil) (largest-rectangle :update)) (:default-initargs :m2s nil @@ -283,10 +283,11 @@ (defun contract-p (object) (equal (class-of object) (find-class 'contract))) -(defmethod initialize-persistent-instance :after ((contract contract) &key) +(defmethod initialize-persistent-instance :after ((contract contract) &key area) (pushnew contract (sponsor-contracts (contract-sponsor contract))) (dolist (m2 (contract-m2s contract)) - (setf (m2-contract m2) contract)) + (setf (m2-contract m2) contract) + (decf (allocation-area-free-m2s area))) (setf (contract-largest-rectangle contract) (contract-compute-largest-rectangle contract)) (publish-contract-change contract)) @@ -528,14 +529,12 @@ Sponsor-ID: ~A " m2-count (store-object-id sponsor))) - (error 'allocation-areas-exhausted :numsqm m2-count)) - ;; FREE-M2S might be lazily computed at his point, before it is - ;; decremented. If this happens, the m2s must still be free. - (decf (allocation-area-free-m2s area) m2-count) + (error 'allocation-areas-exhausted :numsqm m2-count)) (make-object 'contract :sponsor sponsor :date date :m2s m2s + :area area :expires expires :download-only download-only :paidp paidp))))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/m2/allocation.lisp
by BKNR Commits 15 Sep '08

15 Sep '08

Revision: 3899 Author: ksprotte URL: http://bknr.net/trac/changeset/3899 print-object allocation-area: life is easier if we dont print free-m2s U trunk/projects/bos/m2/allocation.lisp Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-09-12 15:14:56 UTC (rev 3898) +++ trunk/projects/bos/m2/allocation.lisp 2008-09-15 13:14:44 UTC (rev 3899) @@ -24,13 +24,10 @@ (defmethod print-object ((allocation-area allocation-area) stream) (print-unreadable-object (allocation-area stream :type t) - (format stream "~a x ~a ~:[inactive~;active~] free: ~s ID: ~a" + (format stream "~a x ~a ~:[inactive~;active~] ID: ~a" (allocation-area-width allocation-area) (allocation-area-height allocation-area) - (allocation-area-active-p allocation-area) - (if (slot-boundp allocation-area 'free-m2s) - (allocation-area-free-m2s allocation-area) - :unbound) + (allocation-area-active-p allocation-area) (store-object-id allocation-area)))) (defmethod allocation-area-free-m2s ((area allocation-area))

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung3.xml
by BKNR Commits 12 Sep '08

12 Sep '08

Revision: 3898 Author: ksprotte URL: http://bknr.net/trac/changeset/3898 tsung more load U trunk/projects/bos/test/tsung3.xml Modified: trunk/projects/bos/test/tsung3.xml =================================================================== --- trunk/projects/bos/test/tsung3.xml 2008-09-12 15:06:47 UTC (rev 3897) +++ trunk/projects/bos/test/tsung3.xml 2008-09-12 15:14:56 UTC (rev 3898) @@ -36,6 +36,50 @@ <arrivalphase phase="3" duration="2" unit="minute"> <users interarrival="0.1" unit="second" maxnumber="500"></users> </arrivalphase> + + <arrivalphase phase="4" duration="7" unit="minute"> + <users interarrival="2" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="5" duration="5" unit="minute"> + <users interarrival="0.5" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="6" duration="2" unit="minute"> + <users interarrival="0.1" unit="second" maxnumber="500"></users> + </arrivalphase> + + <arrivalphase phase="7" duration="7" unit="minute"> + <users interarrival="2" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="8" duration="5" unit="minute"> + <users interarrival="0.5" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="9" duration="2" unit="minute"> + <users interarrival="0.1" unit="second" maxnumber="500"></users> + </arrivalphase> + + <arrivalphase phase="10" duration="7" unit="minute"> + <users interarrival="2" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="11" duration="5" unit="minute"> + <users interarrival="0.5" unit="second" maxnumber="500"></users> + </arrivalphase> + + + <arrivalphase phase="12" duration="2" unit="minute"> + <users interarrival="0.1" unit="second" maxnumber="500"></users> + </arrivalphase> + + </load> <options>

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/
by BKNR Commits 12 Sep '08

12 Sep '08

Revision: 3897 Author: hans URL: http://bknr.net/trac/changeset/3897 Support QuickTime movie uploads. Small other tweaks. U trunk/projects/quickhoney/src/handlers.lisp U trunk/projects/quickhoney/src/init.lisp U trunk/projects/quickhoney/src/tags.lisp U trunk/projects/quickhoney/upgrade-stuff/import.lisp U trunk/projects/quickhoney/website/static/javascript.js U trunk/projects/quickhoney/website/templates/index.xml U trunk/projects/quickhoney/website/templates/login.xml Modified: trunk/projects/quickhoney/src/handlers.lisp =================================================================== --- trunk/projects/quickhoney/src/handlers.lisp 2008-09-12 14:54:52 UTC (rev 3896) +++ trunk/projects/quickhoney/src/handlers.lisp 2008-09-12 15:06:47 UTC (rev 3897) @@ -399,14 +399,17 @@ (progn (unless (and uploaded-image uploaded-animation) (error "files not uploaded")) - (unless (find (upload-content-type uploaded-animation) '("application/x-shockwave-flash" "video/quicktime" "application/x-director") + (unless (find (upload-content-type uploaded-animation) + '("application/x-shockwave-flash" "video/quicktime" "application/x-director") :test #'equal) - (error "Invalid content type ~A - Please upload a Flash, Shockwave or Quicktime file" (upload-content-type uploaded-animation))) + (error "Invalid content type ~A - Please upload a Flash, Shockwave or Quicktime file" + (upload-content-type uploaded-animation))) (with-image-from-upload* (uploaded-image) (let* ((animation-blob (make-blob-from-file (upload-pathname uploaded-animation) 'blob :type (upload-content-type uploaded-animation))) (image (make-store-image :name (pathname-name (upload-original-filename uploaded-image)) - :type (make-keyword-from-string (pathname-type (upload-original-filename uploaded-image))) + :type (make-keyword-from-string (pathname-type + (upload-original-filename uploaded-image))) :class-name 'quickhoney-animation-image :keywords (list :upload) :initargs (list :cat-sub (list :pixel :animation) Modified: trunk/projects/quickhoney/src/init.lisp =================================================================== --- trunk/projects/quickhoney/src/init.lisp 2008-09-12 14:54:52 UTC (rev 3896) +++ trunk/projects/quickhoney/src/init.lisp 2008-09-12 15:06:47 UTC (rev 3897) @@ -28,6 +28,8 @@ (make-rss-channel "quickhoney" "QuickHoney" "QuickHoney Illustrations" "rss/quickhoney" :items (class-instances 'quickhoney-image))) (cl-gd::load-gd-glue))) + (ensure-directories-exist + (setf tbnl:*tmp-directory* (merge-pathnames "hunchentoot-tmp/" *store-directory*))) #+cmu (actor-start (make-instance 'cron-actor)) (publish-quickhoney) Modified: trunk/projects/quickhoney/src/tags.lisp =================================================================== --- trunk/projects/quickhoney/src/tags.lisp 2008-09-12 14:54:52 UTC (rev 3896) +++ trunk/projects/quickhoney/src/tags.lisp 2008-09-12 15:06:47 UTC (rev 3897) @@ -104,12 +104,13 @@ (emit-tag-children))))) (define-bknr-tag login-status () - (cond - ((bknr.web::admin-p (bknr-session-user)) - (redirect "/index")) - ((and (bknr.web::anonymous-p (bknr-session-user)) - (query-param "__username")) - (html (:h1 "Login failed, please try again"))) - (t - (html (:h1 "Please login"))))) + (with-query-params (login) + (cond + ((bknr.web::admin-p (bknr-session-user)) + (redirect (or login "/"))) + ((and (bknr.web::anonymous-p (bknr-session-user)) + (query-param "__username")) + (html (:h1 "Login failed, please try again"))) + (t + (html (:h1 "Please login")))))) Modified: trunk/projects/quickhoney/upgrade-stuff/import.lisp =================================================================== --- trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-12 14:54:52 UTC (rev 3896) +++ trunk/projects/quickhoney/upgrade-stuff/import.lisp 2008-09-12 15:06:47 UTC (rev 3897) @@ -84,3 +84,7 @@ #'> :key #'blob-timestamp))) +(with-transaction (:initialize-animation-mime-types) + (dolist (animation (mapcar #'quickhoney-animation-image-animation (class-instances 'quickhoney-animation-image))) + (unless (slot-boundp animation 'bknr.datastore::type) + (setf (slot-value animation 'bknr.datastore::type) "application/x-shockwave-flash")))) \ No newline at end of file Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-12 14:54:52 UTC (rev 3896) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-12 15:06:47 UTC (rev 3897) @@ -1162,6 +1162,8 @@ } document.location.href = "/#" + path; + log('init_applicaton done'); + poll_path(); application_initialized = true; Modified: trunk/projects/quickhoney/website/templates/index.xml =================================================================== --- trunk/projects/quickhoney/website/templates/index.xml 2008-09-12 14:54:52 UTC (rev 3896) +++ trunk/projects/quickhoney/website/templates/index.xml 2008-09-12 15:06:47 UTC (rev 3897) @@ -233,11 +233,11 @@ <div id="upload_animation_form" class="cms_form"> <form id="upload_animation_form_element" action="/upload-animation" method="post" enctype="multipart/form-data" target="upload_result" onsubmit="do_upload(this.target);"> - <div class="cms_title">Upload new animatoin</div> + <div class="cms_title">Upload new animation</div> <p class="cms"> Image:<br /> <input type="file" name="image-file" /><br /> - Animation (Flash File):<br /> + Animation (Flash file or QuickTime movie):<br /> <input type="file" name="animation-file" /><br /> </p> <p class="cms"> Modified: trunk/projects/quickhoney/website/templates/login.xml =================================================================== --- trunk/projects/quickhoney/website/templates/login.xml 2008-09-12 14:54:52 UTC (rev 3896) +++ trunk/projects/quickhoney/website/templates/login.xml 2008-09-12 15:06:47 UTC (rev 3897) @@ -34,7 +34,8 @@ </tr> </tbody> </table> - <button name="login" type="submit">login</button> + <button name="login" type="submit" value="/">login</button> + <button name="login" type="submit" value="/admin">login to admin area</button> </form> <h1 id="logging-in" style="display: none">Logging in...</h1>

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung3.xml
by BKNR Commits 12 Sep '08

12 Sep '08

Revision: 3896 Author: ksprotte URL: http://bknr.net/trac/changeset/3896 enriched tsung3.xml with more sessions U trunk/projects/bos/test/tsung3.xml Modified: trunk/projects/bos/test/tsung3.xml =================================================================== --- trunk/projects/bos/test/tsung3.xml 2008-09-12 14:05:52 UTC (rev 3895) +++ trunk/projects/bos/test/tsung3.xml 2008-09-12 14:54:52 UTC (rev 3896) @@ -50,7 +50,7 @@ probabilities must be 100 --> <sessions> - <session name='GE-rec20080715-11:58' probability='97' type='ts_http'> + <session name='GE-rec20080715-11:58' probability='5' type='ts_http'> <request><http url='/kml-root?lang=de' version='1.1' method='GET'></http></request> <request><http url='/country-stats?lang=de' version='1.1' method='GET'></http></request> <request><http url='/poi-kml-all?lang=de' version='1.1' method='GET'></http></request> @@ -2145,7 +2145,7 @@ <request><http url='/image/3024985' version='1.1' method='GET'></http></request> </session> - <session name='buy-sqm' probability='3' type='ts_http'> + <session name='buy-sqm' probability='5' type='ts_http'> <request><http url='/' version='1.1' method='GET'></http></request> <request><http url='/index' version='1.1' method='GET'></http></request> <request><http url='/en/index' version='1.1' method='GET'></http></request> @@ -2248,6 +2248,432 @@ </session> + <session name='front-site-without-sat-app' probability='81' type='ts_http'> + <request><http url='/' version='1.1' method='GET'></http></request> + <request><http url='/index' version='1.1' method='GET'></http></request> + <request><http url='/en/index' version='1.1' method='GET'></http></request> + <request><http url='/static/toplevel_style.css' version='1.1' method='GET'></http></request> + <request><http url='/static/content_style.css' version='1.1' method='GET'></http></request> + <request><http url='/static/bos.js' version='1.1' method='GET'></http></request> + <request><http url='/favicon.ico' version='1.1' method='GET'></http></request> + <request><http url='/images/header_ganzneu.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/pfeil_link_on.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/spenden.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/trans.gif' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/submit.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline1.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline2b.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline3.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/bg_content_right.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/satellite_ganzneu2.gif' version='1.1' method='GET'></http></request> + <thinktime random='true' value='7'/> + + <request><http url='/en/headline2' version='1.1' method='GET'></http></request> + <request><http url='/images/pfeil_back.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/pic_headline2_big.jpg' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='10'/> + + <request><http url='/en/headline3' version='1.1' method='GET'></http></request> + <request><http url='/images/pic_h3_orangutan.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/pic_h3_baer.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/pic_h3_vogel.jpg' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='18'/> + + <request><http url='/en/idea' version='1.1' method='GET'></http></request> + <request><http url='/images/projekt_pic_headline1b.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/projekt_pic_headline1c.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='12'/> + + <request><http url='/en/idea_subtitle1' version='1.1' method='GET'></http></request> + <request><http url='/images/pic_headline1b_big.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/ring_en.jpg' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='6'/> + + <request><http url='/en/idea_subtitle2' version='1.1' method='GET'></http></request> + <request><http url='/images/projekt_pic_en.jpg' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='9'/> + + <request><http url='/en/bos' version='1.1' method='GET'></http></request> + <request><http url='/images/bos-logo.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='3'/> + + <request><http url='/en/bestellung' version='1.1' method='GET'></http></request> + <request><http url='/static/bos_en.js' version='1.1' method='GET'></http></request> + <request><http url='/images/step1.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='4'/> + + <request><http url='/en/contact' version='1.1' method='GET'></http></request> + </session> + + + + <session name='sat-app' probability='9' type='ts_http'> + <request><http url='/' version='1.1' method='GET'></http></request> + <request><http url='/index' version='1.1' method='GET'></http></request> + <request><http url='/en/index' version='1.1' method='GET'></http></request> + <request><http url='/static/toplevel_style.css' version='1.1' method='GET'></http></request> + <request><http url='/static/content_style.css' version='1.1' method='GET'></http></request> + <request><http url='/static/bos.js' version='1.1' method='GET'></http></request> + <request><http url='/favicon.ico' version='1.1' method='GET'></http></request> + <request><http url='/images/header_ganzneu.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/pfeil_link_on.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/spenden.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/trans.gif' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/submit.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline1.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline2b.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/start_pic_headline3.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/satellite_ganzneu2.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/bg_content_right.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='4'/> + + <request><http url='/en/idea' version='1.1' method='GET'></http></request> + <request><http url='/images/pfeil_back.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/projekt_pic_headline1b.jpg' version='1.1' method='GET'></http></request> + <request><http url='/images/projekt_pic_headline1c.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='4'/> + + <request><http url='/en/bestellung' version='1.1' method='GET'></http></request> + <request><http url='/static/bos_en.js' version='1.1' method='GET'></http></request> + <request><http url='/images/step1.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='3'/> + + <request><http url='/infosystem' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/de/satellitenkarte.htm' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/satellitenkarte_style.css' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/de/messages.js' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/MochiKit.js' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='2'/> + + <request><http url='/infosystem/javascript.js' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/head.gif' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/spacer.gif' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/uebersichtskarte_klein.gif' version='1.1' method='GET'></http></request> + <request><http url='/sponsor-login' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/karte_uebersicht.jpg' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/uebersicht_info1.gif' version='1.1' method='GET'></http></request> + <request><http url='/m2-javascript/' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/lupe.gif' version='1.1' method='GET'></http></request> + <request><http url='/poi-javascript' version='1.1' method='GET'></http></request> + <request><http url='/infosystem/bilder/uebersicht_info2.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/palme.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/punkt.gif' version='1.1' method='GET'></http></request> + <request><http url='/images/sale.gif' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='4'/> + + <request><http url='/overview/6120/6930' version='1.1' method='GET'></http></request> + <request><http url='/overview/6120/7020' version='1.1' method='GET'></http></request> + <request><http url='/overview/6120/7110' version='1.1' method='GET'></http></request> + <request><http url='/overview/6120/7200' version='1.1' method='GET'></http></request> + <request><http url='/overview/6210/6930' version='1.1' method='GET'></http></request> + <request><http url='/overview/6210/7020' version='1.1' method='GET'></http></request> + <request><http url='/overview/6210/7110' version='1.1' method='GET'></http></request> + <request><http url='/overview/6210/7200' version='1.1' method='GET'></http></request> + <request><http url='/overview/6300/6930' version='1.1' method='GET'></http></request> + <request><http url='/overview/6300/7020' version='1.1' method='GET'></http></request> + <request><http url='/overview/6300/7110' version='1.1' method='GET'></http></request> + <request><http url='/overview/6300/7200' version='1.1' method='GET'></http></request> + <request><http url='/overview/6390/6930' version='1.1' method='GET'></http></request> + <request><http url='/overview/6390/7020' version='1.1' method='GET'></http></request> + <request><http url='/overview/6390/7110' version='1.1' method='GET'></http></request> + <request><http url='/overview/6390/7200' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/agroforestry/1/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/agroforestry/3/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/agroforestry/2/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/172442/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/agroforestry/4/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/agroforestry/5/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/172497/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/agroforestry/6/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/172468/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2435348/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/172488/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2435374/thumbnail,,55,55' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='3'/> + + <request><http url='/poi-image/agroforestry/1' version='1.1' method='GET'></http></request> + <request><http url='/image/172442' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='2'/> + + <request><http url='/poi-image/agroforestry/5' version='1.1' method='GET'></http></request> + <request><http url='/image/2435348' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='4'/> + + <request><http url='/overview/5400/8280' version='1.1' method='GET'></http></request> + <request><http url='/overview/5400/8370' version='1.1' method='GET'></http></request> + <request><http url='/overview/5400/8460' version='1.1' method='GET'></http></request> + <request><http url='/overview/5400/8550' version='1.1' method='GET'></http></request> + <request><http url='/overview/5490/8280' version='1.1' method='GET'></http></request> + <request><http url='/overview/5490/8370' version='1.1' method='GET'></http></request> + <request><http url='/overview/5490/8460' version='1.1' method='GET'></http></request> + <request><http url='/overview/5490/8550' version='1.1' method='GET'></http></request> + <request><http url='/overview/5580/8280' version='1.1' method='GET'></http></request> + <request><http url='/overview/5580/8370' version='1.1' method='GET'></http></request> + <request><http url='/overview/5580/8460' version='1.1' method='GET'></http></request> + <request><http url='/overview/5580/8550' version='1.1' method='GET'></http></request> + <request><http url='/overview/5670/8280' version='1.1' method='GET'></http></request> + <request><http url='/overview/5670/8370' version='1.1' method='GET'></http></request> + <request><http url='/overview/5670/8460' version='1.1' method='GET'></http></request> + <request><http url='/overview/5670/8550' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/amphibians/1/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/amphibians/2/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2463444/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/amphibians/3/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2463456/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2463467/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/amphibians/4/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/amphibians/5/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/amphibians/6/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2463483/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2463508/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2463520/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/overview/5850/6840' version='1.1' method='GET'></http></request> + <request><http url='/overview/5850/6930' version='1.1' method='GET'></http></request> + <request><http url='/overview/5850/7020' version='1.1' method='GET'></http></request> + <request><http url='/overview/5850/7110' version='1.1' method='GET'></http></request> + <request><http url='/overview/5940/6840' version='1.1' method='GET'></http></request> + <request><http url='/overview/5940/6930' version='1.1' method='GET'></http></request> + <request><http url='/overview/5940/7020' version='1.1' method='GET'></http></request> + <request><http url='/overview/5940/7110' version='1.1' method='GET'></http></request> + <request><http url='/overview/6030/6840' version='1.1' method='GET'></http></request> + <request><http url='/overview/6030/6930' version='1.1' method='GET'></http></request> + <request><http url='/overview/6030/7020' version='1.1' method='GET'></http></request> + <request><http url='/overview/6030/7110' version='1.1' method='GET'></http></request> + <request><http url='/overview/6120/6840' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/arboretum/1/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/arboretum/2/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/464128/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/464137/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/arboretum/3/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/arboretum/4/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/arboretum/5/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/464147/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/arboretum/6/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/500539/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/500550/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/508066/thumbnail,,55,55' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='2'/> + + <request><http url='/overview/7470/4590' version='1.1' method='GET'></http></request> + <request><http url='/overview/7470/4680' version='1.1' method='GET'></http></request> + <request><http url='/overview/7470/4770' version='1.1' method='GET'></http></request> + <request><http url='/overview/7470/4860' version='1.1' method='GET'></http></request> + <request><http url='/overview/7560/4590' version='1.1' method='GET'></http></request> + <request><http url='/overview/7560/4680' version='1.1' method='GET'></http></request> + <request><http url='/overview/7560/4770' version='1.1' method='GET'></http></request> + <request><http url='/overview/7560/4860' version='1.1' method='GET'></http></request> + <request><http url='/overview/7650/4590' version='1.1' method='GET'></http></request> + <request><http url='/overview/7650/4680' version='1.1' method='GET'></http></request> + <request><http url='/overview/7650/4770' version='1.1' method='GET'></http></request> + <request><http url='/overview/7650/4860' version='1.1' method='GET'></http></request> + <request><http url='/overview/7740/4590' version='1.1' method='GET'></http></request> + <request><http url='/overview/7740/4680' version='1.1' method='GET'></http></request> + <request><http url='/overview/7740/4770' version='1.1' method='GET'></http></request> + <request><http url='/overview/7740/4860' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/biodiversity/1/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/biodiversity/2/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/biodiversity/3/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/biodiversity/5/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/biodiversity/4/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2093327/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2093342/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2093355/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2093388/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2093375/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/biodiversity/6/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2093411/thumbnail,,55,55' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='1'/> + + <request><http url='/poi-image/biodiversity/1' version='1.1' method='GET'></http></request> + <request><http url='/image/2093327' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='2'/> + + <request><http url='/poi-image/biodiversity/3' version='1.1' method='GET'></http></request> + <request><http url='/image/2093355' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='4'/> + + <request><http url='/poi-image/biodiversity/6' version='1.1' method='GET'></http></request> + <request><http url='/image/2093411' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='6'/> + + <request><http url='/image/545876' version='1.1' method='GET'></http></request> + <request><http url='/overview/4770/8100' version='1.1' method='GET'></http></request> + <request><http url='/overview/4770/8190' version='1.1' method='GET'></http></request> + <request><http url='/overview/4770/8280' version='1.1' method='GET'></http></request> + <request><http url='/overview/4770/8370' version='1.1' method='GET'></http></request> + <request><http url='/overview/4860/8100' version='1.1' method='GET'></http></request> + <request><http url='/overview/4860/8190' version='1.1' method='GET'></http></request> + <request><http url='/overview/4860/8280' version='1.1' method='GET'></http></request> + <request><http url='/overview/4860/8370' version='1.1' method='GET'></http></request> + <request><http url='/overview/4950/8100' version='1.1' method='GET'></http></request> + <request><http url='/overview/4950/8190' version='1.1' method='GET'></http></request> + <request><http url='/overview/4950/8280' version='1.1' method='GET'></http></request> + <request><http url='/overview/4950/8370' version='1.1' method='GET'></http></request> + <request><http url='/overview/5040/8100' version='1.1' method='GET'></http></request> + <request><http url='/overview/5040/8190' version='1.1' method='GET'></http></request> + <request><http url='/overview/5040/8280' version='1.1' method='GET'></http></request> + <request><http url='/overview/5040/8370' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/fireprotection/1/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/fireprotection/2/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/fireprotection/3/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/116975/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/fireprotection/4/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/116966/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/116957/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/116948/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/fireprotection/5/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/poi-image/fireprotection/6/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/116939/thumbnail,,55,55' version='1.1' method='GET'></http></request> + <request><http url='/image/2418751/thumbnail,,55,55' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='3'/> + + <request><http url='/poi-image/fireprotection/6' version='1.1' method='GET'></http></request> + <request><http url='/image/2418751' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='7'/> + + <request><http url='/overview/6480/6120/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6210/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6300/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6390/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6120/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6210/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6300/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6390/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6120/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6210/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6300/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6390/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6120/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6210/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6300/background/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6390/background/areas/contracts' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='7'/> + + <request><http url='/overview/6480/6120/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6210/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6300/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6390/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6120/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6210/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6300/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6390/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6120/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6210/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6300/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6390/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6120/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6210/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6300/areas/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6390/areas/contracts' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='5'/> + + <request><http url='/overview/6480/6120/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6210/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6300/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6390/background/contracts' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='1'/> + + <request><http url='/overview/6570/6120/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6210/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6300/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6390/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6120/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6210/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6300/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6390/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6120/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6210/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6300/background/contracts' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6390/background/contracts' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='5'/> + + <request><http url='/overview/6480/6120/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6210/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6300/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6480/6390/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6120/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6210/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6300/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6570/6390/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6120/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6210/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6300/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6660/6390/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6120/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6210/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6300/background' version='1.1' method='GET'></http></request> + <request><http url='/overview/6750/6390/background' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='6'/> + + <request><http url='/m2-javascript/6610/6232' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037429/ffff00' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='2'/> + + <request><http url='/m2-javascript/6621/6227' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037427/ffff00' version='1.1' method='GET'></http></request> + <request><http url='/m2-javascript/6625/6222' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037425/ffff00' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='1'/> + + <request><http url='/m2-javascript/6635/6228' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037423/ffff00' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='2'/> + + <request><http url='/m2-javascript/6627/6237' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037421/ffff00' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='3'/> + + <request><http url='/m2-javascript/6662/6226' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037419/ffff00' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='1'/> + + <request><http url='/m2-javascript/6663/6228' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037417/ffff00' version='1.1' method='GET'></http></request> + + <thinktime random='true' value='2'/> + + <request><http url='/m2-javascript/6662/6236' version='1.1' method='GET'></http></request> + <request><http url='/contract-image/3037407/ffff00' version='1.1' method='GET'></http></request> + </session> + + + + + + + </sessions> </tsung>

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/m2/
by BKNR Commits 12 Sep '08

12 Sep '08

Revision: 3895 Author: ksprotte URL: http://bknr.net/trac/changeset/3895 bos big changes for allocation mechanics - ensure-m2 now uses (make-object 'm2 ...) instead of make-instance - make-contract has been restructured: - allocate-m2s-for-sale is called first - outside a transactional context - free m2s are then passed to (make-object 'contract ...) - allocation-area-free-m2s is now transient and computed lazily the first time when it is read U trunk/projects/bos/m2/allocation-cache.lisp U trunk/projects/bos/m2/allocation.lisp U trunk/projects/bos/m2/m2.lisp Modified: trunk/projects/bos/m2/allocation-cache.lisp =================================================================== --- trunk/projects/bos/m2/allocation-cache.lisp 2008-09-12 13:42:55 UTC (rev 3894) +++ trunk/projects/bos/m2/allocation-cache.lisp 2008-09-12 14:05:52 UTC (rev 3895) @@ -177,25 +177,27 @@ (<= 1 n +threshold+)) (defun find-exact-match (n &key remove) - "Will return a free contiguous region of size N -as a list of m2 instances. If no such region exactly -matching N can be found, simply returns NIL. + "Will return a free contiguous region of size N as a list of m2 +instances and as a second value the corresponding allocation-area. If +no such region exactly matching N can be found, simply returns NIL. If REMOVE is T then the returned region is removed from -the cache and FREE-M2S of the affected allocation-area -is decremented." - (let ((region (cond - ((not (size-indexed-p n)) nil) - (remove (awhen (index-pop n) - (with-slots (area region) it - (decf (allocation-area-free-m2s area) n) - region))) - (t (awhen (index-lookup n) - (cache-entry-region it)))))) - (if region - (incf (hit-count *allocation-cache*)) - (incf (miss-count *allocation-cache*))) - region)) +the cache." + (flet ((hit (cache-entry) + (incf (hit-count *allocation-cache*)) + (values (cache-entry-region cache-entry) + (cache-entry-area cache-entry))) + (miss () + (incf (miss-count *allocation-cache*)) + nil)) + (cond + ((not (size-indexed-p n)) (miss)) + (remove (aif (index-pop n) + (hit it) + (miss))) + (t (aif (index-lookup n) + (hit it) + (miss)))))) (defun add-area (allocation-area) (dolist (region (free-regions allocation-area) Modified: trunk/projects/bos/m2/allocation.lisp =================================================================== --- trunk/projects/bos/m2/allocation.lisp 2008-09-12 13:42:55 UTC (rev 3894) +++ trunk/projects/bos/m2/allocation.lisp 2008-09-12 14:05:52 UTC (rev 3895) @@ -1,16 +1,15 @@ (in-package :bos.m2) -(define-persistent-class allocation-area () - ((active-p :update) - (left :update) - (top :update) - (width :update) - (height :update) - (vertices :update) - (y :update) - (total-m2s :read) - (free-m2s :update) - (bounding-box :update :transient t)) +(defpersistent-class allocation-area () + ((active-p :accessor allocation-area-active-p :initarg :active-p) + (left :reader allocation-area-left :initarg :left) + (top :reader allocation-area-top :initarg :top) + (width :reader allocation-area-width :initarg :width) + (height :reader allocation-area-height :initarg :height) + (vertices :reader allocation-area-vertices :initarg :vertices) + (total-m2s :reader allocation-area-total-m2s) + (free-m2s :transient t :writer (setf allocation-area-free-m2s)) ;free-m2s reader defined below + (bounding-box :transient t :reader allocation-area-bounding-box)) (:documentation "A polygon in which to allocate meters. LEFT, TOP, WIDTH, and HEIGHT designate the bounding rectangle of the polygon. @@ -34,10 +33,17 @@ :unbound) (store-object-id allocation-area)))) +(defmethod allocation-area-free-m2s ((area allocation-area)) + (flet ((compute-free-m2s () + (with-slots (total-m2s free-m2s) area + (setf free-m2s (- total-m2s (calculate-allocated-m2-count area)))))) + (if (slot-boundp area 'free-m2s) + (slot-value area 'free-m2s) + (compute-free-m2s)))) + (defmethod initialize-persistent-instance :after ((allocation-area allocation-area) &key) - (with-slots (total-m2s free-m2s) allocation-area - (setf total-m2s (calculate-total-m2-count allocation-area)) - (setf free-m2s (- total-m2s (calculate-allocated-m2-count allocation-area)))) + (with-slots (total-m2s) allocation-area + (setf total-m2s (calculate-total-m2-count allocation-area))) ;; FIXME probably we dont need this and should rely on *rect-publisher* (dolist (tile (allocation-area-tiles allocation-area)) (image-tile-changed tile))) @@ -48,7 +54,7 @@ (defmethod destroy-object :before ((allocation-area allocation-area)) (notify-tiles allocation-area)) -(defmethod initialize-transient-instance :after ((allocation-area allocation-area)) +(defmethod initialize-transient-instance :after ((allocation-area allocation-area)) (notify-tiles allocation-area)) (defun compute-bounding-box (vertices) @@ -348,29 +354,33 @@ (result (search-adjacent n m2 #'allocatable-p))) (when result (assert (alexandria:setp result :test #'equal)) - (assert (= n (length result))) - (decf (allocation-area-free-m2s area) n) + (assert (= n (length result))) (return result)) (when (> (get-internal-real-time) deadline) (return nil))))))) (defun allocate-m2s-for-sale (n) "The main entry point to the allocation machinery. Will return a - list of N m2 instances or NIL if the requested amount cannot be - allocated." - (or (bos.m2.allocation-cache:find-exact-match n :remove t) - (dolist (area (active-allocation-areas)) - (when (<= n (allocation-area-free-m2s area)) - (let ((m2s (allocate-in-area area n))) - (when m2s - (return m2s))))) - (dolist (area (inactive-nonempty-allocation-areas)) - (when (<= n (allocation-area-free-m2s area)) - (let ((m2s (allocate-in-area area n))) - (when m2s - (activate-allocation-area area) - (return m2s))))))) +list of N m2 instances or NIL if the requested amount cannot be +allocated. As a second value, returns the corresponding +allocation-area. +The returned m2s are still free and (decf (allocation-area-free-m2s +area) n) has not yet happened." + (alexandria:nth-value-or 0 + (bos.m2.allocation-cache:find-exact-match n :remove t) + (dolist (area (active-allocation-areas)) + (when (<= n (allocation-area-free-m2s area)) + (let ((m2s (allocate-in-area area n))) + (when m2s + (return (values m2s area)))))) + (dolist (area (inactive-nonempty-allocation-areas)) + (when (<= n (allocation-area-free-m2s area)) + (let ((m2s (allocate-in-area area n))) + (when m2s + (activate-allocation-area area) + (return (values m2s area)))))))) + (defgeneric return-contract-m2s (m2s) (:documentation "Mark the given square meters as free, so that they can be re-allocated.")) Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-09-12 13:42:55 UTC (rev 3894) +++ trunk/projects/bos/m2/m2.lisp 2008-09-12 14:05:52 UTC (rev 3895) @@ -55,8 +55,8 @@ (defun ensure-m2 (&rest coords) (or (m2-at coords) - (destructuring-bind (x y) coords - (make-instance 'm2 :x x :y y)))) + (destructuring-bind (x y) coords + (make-object 'm2 :x x :y y)))) (defmethod get-m2-with-num ((num integer)) (multiple-value-bind (y x) (truncate num +width+) @@ -296,9 +296,9 @@ (when sponsor (setf (sponsor-contracts sponsor) (remove contract (sponsor-contracts sponsor))))) (publish-contract-change contract :type 'delete) + (return-contract-m2s (contract-m2s contract)) (dolist (m2 (contract-m2s contract)) - (setf (m2-contract m2) nil)) - (return-contract-m2s (contract-m2s contract))) + (setf (m2-contract m2) nil))) (defun get-contract (id) (let ((contract (store-object-with-id id))) @@ -499,26 +499,14 @@ (warn "Old tx-make-contract transaction used, contract dates may be wrong") (tx-do-make-contract sponsor m2-count :date date :paidp paidp :expires expires)) -(deftransaction do-make-contract (sponsor m2-count &key date paidp expires download-only) - (let ((m2s (allocate-m2s-for-sale m2-count))) - (if m2s - (let ((contract (make-object 'contract - :sponsor sponsor - :date date - :m2s m2s - :expires expires - :download-only download-only))) - (when paidp - (contract-set-paidp contract paidp)) - contract) - (warn "can't create contract, ~A square meters for ~A could not be allocated" m2-count sponsor)))) - (define-condition allocation-areas-exhausted (simple-error) ((numsqm :initarg :numsqm :reader numsqm)) (:report (lambda (condition stream) (format stream "Could not satisfy your request for ~A sqms, please contact the BOS office" (numsqm condition))))) +(defvar *make-contract-lock* (bt:make-lock "make-contract-lock")) + (defun make-contract (sponsor m2-count &key (date (get-universal-time)) paidp @@ -527,22 +515,30 @@ (unless (and (integerp m2-count) (plusp m2-count)) (error "number of square meters must be a positive integer")) - (let ((contract (do-make-contract sponsor m2-count - :date date - :paidp paidp - :expires expires - :download-only download-only))) - (unless contract - (send-system-mail :subject "Contact creation failed - Allocation areas exhaused" - :text (format nil "A contract for ~A square meters could not be created, presumably because no + (bt:with-lock-held (*make-contract-lock*) + (multiple-value-bind (m2s area) + (allocate-m2s-for-sale m2-count) + (unless m2s + (warn "can't create contract, ~A square meters for ~A could not be allocated" m2-count sponsor) + (send-system-mail :subject "Contact creation failed - Allocation areas exhaused" + :text (format nil "A contract for ~A square meters could not be created, presumably because no suitable allocation area was found. Please check the free allocation areas and add more space. Sponsor-ID: ~A " - m2-count (store-object-id sponsor))) - (error 'allocation-areas-exhausted :numsqm m2-count)) - contract)) + m2-count (store-object-id sponsor))) + (error 'allocation-areas-exhausted :numsqm m2-count)) + ;; FREE-M2S might be lazily computed at his point, before it is + ;; decremented. If this happens, the m2s must still be free. + (decf (allocation-area-free-m2s area) m2-count) + (make-object 'contract + :sponsor sponsor + :date date + :m2s m2s + :expires expires + :download-only download-only + :paidp paidp)))) (deftransaction recolorize-contracts (&optional colors) "Assigns a new color to each contract choosing from COLORS, so

1 0

[bknr-cvs] hans changed trunk/bknr/web/src/web/template-handler.lisp
by BKNR Commits 12 Sep '08

12 Sep '08

Revision: 3894 Author: hans URL: http://bknr.net/trac/changeset/3894 Kill template-not-found condition as it was neither used nor useful and made *BREAK-ON-SIGNALS* painful to use. U trunk/bknr/web/src/web/template-handler.lisp Modified: trunk/bknr/web/src/web/template-handler.lisp =================================================================== --- trunk/bknr/web/src/web/template-handler.lisp 2008-09-12 04:34:21 UTC (rev 3893) +++ trunk/bknr/web/src/web/template-handler.lisp 2008-09-12 13:42:55 UTC (rev 3894) @@ -23,14 +23,6 @@ (defun user-error (str &rest args) (error 'user-error :format-control str :format-arguments args)) -;; template-not-found is raised when a template could not be found - -(define-condition template-not-found (simple-error) - ()) - -(defun template-not-found (&rest path) - (error 'template-not-found :format-control "Template ~S not found" :format-arguments path)) - (defclass template-expander () ((command-packages :initarg :command-packages :initform nil @@ -239,15 +231,14 @@ (template-expander-catch-all expander)) (multiple-value-setq (pathname ret-components) (find-template (template-expander-destination expander) default-template-components))) - (unless pathname - (template-not-found template-name)) - (values pathname - ret-components - (with-output-to-string (s) - (dolist (component (subseq components 0 (- (length components) - (length ret-components)))) - (write-char #\/ s) - (write-string component s))))))) + (when pathname + (values pathname + ret-components + (with-output-to-string (s) + (dolist (component (subseq components 0 (- (length components) + (length ret-components)))) + (write-char #\/ s) + (write-string component s)))))))) (defun get-cached-template (pathname expander) (let* ((table (template-expander-cached-templates expander)) @@ -296,23 +287,22 @@ env)) (incf i))) (setf env (acons :*path-arg* (first args) env)) - (if (probe-file template-pathname) - ;; Wir koennten hier direkt auf *html-stream* schreiben ohne - ;; den Umweg ueber einen String zu gehen. Aber: Wir moechten - ;; im Allgemeinen erst waehrend des Expandierens noch merken - ;; koennen, dass z.B. ein Fehler vorliegt oder ein Redirect - ;; geschickt werden muss. Daher waere es keine gute Idee, sich - ;; zu diesem Zeitpunkt schon auf einen HTTP response code - ;; festgelegt zu haben. - (let ((*default-pathname-defaults* (make-pathname :host (pathname-host template-pathname) - :device (pathname-device template-pathname) - :directory (pathname-directory template-pathname)))) - (with-output-to-string (stream) - (emit-template handler - stream - (get-cached-template template-pathname handler) - env))) - (template-not-found template-pathname)))) + (when (probe-file template-pathname) + ;; Wir koennten hier direkt auf *html-stream* schreiben ohne + ;; den Umweg ueber einen String zu gehen. Aber: Wir moechten + ;; im Allgemeinen erst waehrend des Expandierens noch merken + ;; koennen, dass z.B. ein Fehler vorliegt oder ein Redirect + ;; geschickt werden muss. Daher waere es keine gute Idee, sich + ;; zu diesem Zeitpunkt schon auf einen HTTP response code + ;; festgelegt zu haben. + (let ((*default-pathname-defaults* (make-pathname :host (pathname-host template-pathname) + :device (pathname-device template-pathname) + :directory (pathname-directory template-pathname)))) + (with-output-to-string (stream) + (emit-template handler + stream + (get-cached-template template-pathname handler) + env)))))) (defmethod error-template-pathname (handler &optional (error-type "user-error")) (find-template-pathname handler error-type)) @@ -337,12 +327,6 @@ (simple-condition-format-control c) (simple-condition-format-arguments c)) :response-code +http-ok+)) - (template-not-found (c) - (send-error-response handler (apply #'format - nil - (simple-condition-format-control c) - (simple-condition-format-arguments c)) - :response-code +http-not-found+)) (serious-condition (c) (warn "unexpected failure: ~A" c) (send-error-response handler (format nil "Internal Error:~%~%~A~%" c))))) @@ -351,11 +335,8 @@ `(invoke-with-error-handlers (lambda () ,@body) ,handler)) (defmethod handler-matches-p ((handler template-handler)) - (handler-case - (find-template-pathname handler (subseq (script-name*) 1)) - (template-not-found (c) - (declare (ignore c)) - nil))) + (or (template-expander-catch-all handler) + (find-template-pathname handler (subseq (script-name*) 1)))) (defmethod handle ((handler template-handler)) (with-error-handlers (handler)

1 0

[bknr-cvs] hans changed trunk/projects/quickhoney/website/static/javascript.js
by BKNR Commits 12 Sep '08

12 Sep '08

Revision: 3893 Author: hans URL: http://bknr.net/trac/changeset/3893 permalink am image detail U trunk/projects/quickhoney/website/static/javascript.js Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-11 18:11:33 UTC (rev 3892) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-12 04:34:21 UTC (rev 3893) @@ -249,6 +249,10 @@ } } +function permalink(path) { + return A({ href: '/' + path, onclick: function () { document.location.href = '#' + path; return false; } }, 'permalink'); +} + function make_upload_item(item) { var color = pages[item.category] ? pages[item.category].link_color : '000000'; @@ -260,7 +264,7 @@ DIV(null, H1(null, item.name), item.date, ' by ', item.owner, ' | ', - A({ href: '/' + path, onclick: function () { jump_to(path) } }, 'permalink'), + permalink(path), BR(), item.description)); } @@ -284,7 +288,7 @@ DIV(null, H1(null, item.title), item.date, ' by ', item.owner, ' | ', - A({ href: 'news/' + item.name }, 'permalink'), + permalink('news/' + item.name), BR(), DIV({ 'class': 'item-text' }, item.text), delete_button)); @@ -1004,15 +1008,18 @@ var image_info = []; - replaceChildNodes("metadata", "Image name: ", current_image.name, BR()); + var link = current_directory + '/' + current_subdirectory + '/' + encodeURI(query_result[query_position].name); + + replaceChildNodes("metadata", "Image name: ", current_image.name, " ", permalink(link), BR()); if (current_image.client != "") { appendChildNodes("metadata", "Client: ", current_image.client, BR()); } - appendChildNodes("metadata", current_image.width + "x" + current_image.height + "px | " + percent + "%"); + appendChildNodes("metadata", current_image.width + "x" + current_image.height + + "px | " + percent + "%"); + if (may_enlarge) { - replaceChildNodes("full_click", A({ href: '#' + current_directory + '/' + current_subdirectory + '/' - + encodeURI(query_result[query_position].name), onclick: enlarge }, + replaceChildNodes("full_click", A({ href: '#' + link, onclick: enlarge }, "full size")); } else { replaceChildNodes("full_click");

1 0

[bknr-cvs] hans changed trunk/projects/lisp-ecoop/src/
by BKNR Commits 11 Sep '08

11 Sep '08

Revision: 3892 Author: hans URL: http://bknr.net/trac/changeset/3892 Minor production server changes. U trunk/projects/lisp-ecoop/src/handlers.lisp U trunk/projects/lisp-ecoop/src/tags.lisp Modified: trunk/projects/lisp-ecoop/src/handlers.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/handlers.lisp 2008-09-11 18:10:02 UTC (rev 3891) +++ trunk/projects/lisp-ecoop/src/handlers.lisp 2008-09-11 18:11:33 UTC (rev 3892) @@ -49,7 +49,6 @@ (defmethod handle ((handler make-submission-handler)) (with-query-params (type title abstract) - (format t "type: ~A symbol: ~A~%" type (find-symbol (string-upcase type) :lisp-ecoop)) (let ((submission (make-object (find-symbol (string-upcase type) :lisp-ecoop) :title title :abstract abstract))) Modified: trunk/projects/lisp-ecoop/src/tags.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/tags.lisp 2008-09-11 18:10:02 UTC (rev 3891) +++ trunk/projects/lisp-ecoop/src/tags.lisp 2008-09-11 18:11:33 UTC (rev 3892) @@ -60,7 +60,7 @@ (let ((file-name (upload-pathname (request-uploaded-file "document")))) (with-open-file (pdf file-name) (if (cl-ppcre:scan "^%PDF-" (read-line pdf)) - (let* ((submission (make-object (find-symbol (string-upcase type) :lisp-ecoop) + (let* ((submission (make-object (find-symbol (string-upcase type) :lisp-ecoop) :submitters (list participant) :title title :abstract abstract)) (document (make-object 'document :info info :submission submission))) (blob-from-file document file-name) @@ -393,4 +393,4 @@ (pathname (find-template-pathname expander "toplevel")) (toplevel (bknr.web::get-cached-template pathname expander)) (bknr.web::*toplevel-children* bknr.web::*tag-children*)) - (emit-template-node expander (bknr.web::parsed-template-dom toplevel)))) \ No newline at end of file + (emit-template-node expander (bknr.web::parsed-template-dom toplevel))))

1 0

[bknr-cvs] hans changed trunk/projects/lisp-ecoop/src/tags.lisp
by BKNR Commits 11 Sep '08

11 Sep '08

Revision: 3891 Author: hans URL: http://bknr.net/trac/changeset/3891 Fix PAGE tag U trunk/projects/lisp-ecoop/src/tags.lisp Modified: trunk/projects/lisp-ecoop/src/tags.lisp =================================================================== --- trunk/projects/lisp-ecoop/src/tags.lisp 2008-09-11 10:42:16 UTC (rev 3890) +++ trunk/projects/lisp-ecoop/src/tags.lisp 2008-09-11 18:10:02 UTC (rev 3891) @@ -393,4 +393,4 @@ (pathname (find-template-pathname expander "toplevel")) (toplevel (bknr.web::get-cached-template pathname expander)) (bknr.web::*toplevel-children* bknr.web::*tag-children*)) - (emit-template-node expander toplevel))) \ No newline at end of file + (emit-template-node expander (bknr.web::parsed-template-dom toplevel)))) \ No newline at end of file

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/test/tsung3.xml
by BKNR Commits 11 Sep '08

11 Sep '08

Revision: 3890 Author: ksprotte URL: http://bknr.net/trac/changeset/3890 new tsung script A trunk/projects/bos/test/tsung3.xml Change set too large, please see URL above

1 0