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

[bknr-cvs] hans changed branches/anon-transaction-fixes-2/
by BKNR Commits 21 Sep '08

21 Sep '08

Revision: 3934 Author: hans URL: http://bknr.net/trac/changeset/3934 Protocol updates U branches/anon-transaction-fixes-2/bknr/datastore/src/data/blob.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/package.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/tests.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/tutorial.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/xml-object.lisp U branches/anon-transaction-fixes-2/bknr/modules/bug/bug-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/comics/comics.lisp U branches/anon-transaction-fixes-2/bknr/modules/feed/edit-feed-handler.lisp U branches/anon-transaction-fixes-2/bknr/modules/feed/feed.lisp U branches/anon-transaction-fixes-2/bknr/modules/imagemap/imagemap.lisp U branches/anon-transaction-fixes-2/bknr/modules/mail/import-yahoo-group.lisp U branches/anon-transaction-fixes-2/bknr/modules/mail/mail.lisp U branches/anon-transaction-fixes-2/bknr/modules/mail/mailinglist-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/mail/mailinglist.lisp U branches/anon-transaction-fixes-2/bknr/modules/mail/register-handler.lisp U branches/anon-transaction-fixes-2/bknr/modules/mail/registration.lisp U branches/anon-transaction-fixes-2/bknr/modules/quizz/edit-quizz-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/stats/stats.lisp U branches/anon-transaction-fixes-2/bknr/modules/text/article-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/text/article.lisp U branches/anon-transaction-fixes-2/bknr/modules/text/billboard-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/text/billboard.lisp U branches/anon-transaction-fixes-2/bknr/modules/text/blog-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/text/paste-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/text/wiki-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/track/track.lisp U branches/anon-transaction-fixes-2/bknr/modules/url/cached-url-handlers.lisp U branches/anon-transaction-fixes-2/bknr/modules/url/edit-url-handlers.lisp U branches/anon-transaction-fixes-2/bknr/web/src/images/image.lisp U branches/anon-transaction-fixes-2/bknr/web/src/rss/rss.lisp U branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/cron.lisp U branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/event.lisp U branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/sysparam.lisp U branches/anon-transaction-fixes-2/bknr/web/src/sysclasses/user.lisp U branches/anon-transaction-fixes-2/bknr/web/src/web/host.lisp U branches/anon-transaction-fixes-2/projects/bknr-website/src/init.lisp U branches/anon-transaction-fixes-2/projects/bos/m2/allocation.lisp U branches/anon-transaction-fixes-2/projects/bos/m2/m2.lisp U branches/anon-transaction-fixes-2/projects/bos/m2/map.lisp U branches/anon-transaction-fixes-2/projects/bos/m2/news.lisp U branches/anon-transaction-fixes-2/projects/bos/m2/poi.lisp U branches/anon-transaction-fixes-2/projects/bos/web/kml-handlers.lisp U branches/anon-transaction-fixes-2/projects/bos/web/languages-handler.lisp U branches/anon-transaction-fixes-2/projects/bos/web/poi-handlers.lisp U branches/anon-transaction-fixes-2/projects/bos/web/sat-tree.lisp U branches/anon-transaction-fixes-2/projects/hello-web/src/news.lisp U branches/anon-transaction-fixes-2/projects/lisp-ecoop/src/handlers.lisp U branches/anon-transaction-fixes-2/projects/lisp-ecoop/src/participant.lisp U branches/anon-transaction-fixes-2/projects/lisp-ecoop/src/tags.lisp U branches/anon-transaction-fixes-2/projects/quickhoney/website/static/javascript.js U branches/anon-transaction-fixes-2/projects/scrabble/src/game.lisp U branches/anon-transaction-fixes-2/projects/scrabble/src/rules.lisp U branches/anon-transaction-fixes-2/projects/scrabble/src/start-webserver.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/eboy/src/dynasite-tags.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/eboy/src/item-handlers.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/gpn/gpn-user.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/gpn/gpn-web.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/gpn/zeitplan-handlers.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/raw-data/mcp/bluetooth.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/raw-data/mcp/isdn-operator.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/raw-data/mcp/sensors.lisp U branches/anon-transaction-fixes-2/projects/unmaintained/saugnapf/src/saugnapf.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed branches/anon-transaction-fixes-2/bknr/datastore/src/data/object
by BKNR Commits 21 Sep '08

21 Sep '08

Revision: 3933 Author: hans URL: http://bknr.net/trac/changeset/3933 Serialize make-instance transaction before calling initialize-instance in order to make sure that the object exists early enough during restore. Stress test with two threads. Change defdstest macro so that after each test has run, it is verified that the "same" set of objects exists when restoring from the tx log and a snapshot. U branches/anon-transaction-fixes-2/bknr/datastore/src/data/object-tests.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/object.lisp Modified: branches/anon-transaction-fixes-2/bknr/datastore/src/data/object-tests.lisp =================================================================== --- branches/anon-transaction-fixes-2/bknr/datastore/src/data/object-tests.lisp 2008-09-21 12:51:48 UTC (rev 3932) +++ branches/anon-transaction-fixes-2/bknr/datastore/src/data/object-tests.lisp 2008-09-21 16:51:58 UTC (rev 3933) @@ -52,6 +52,17 @@ (delete-directory directory)))) (defvar *tests* (make-hash-table)) + +(defun do-run-test (thunk) + (let ((bknr.datastore::*store-verbose* nil) + initial-objects) + (funcall thunk) + (setf initial-objects (object-classes-and-ids)) + (restore) + (test-equal initial-objects (object-classes-and-ids)) + (snapshot) + (restore) + (test-equal initial-objects (object-classes-and-ids)))) (defmacro defdstest (name args &body body) (when args @@ -60,9 +71,7 @@ (make-instance 'datastore-test-class :unit :datastore :name ',name - :body (lambda () - (let ((bknr.datastore::*store-verbose* nil)) - ,@body))))) + :body (lambda () (do-run-test (lambda () ,@body)))))) (defdstest store-setup () (test-assert *store*)) @@ -121,16 +130,26 @@ (defconstant +stress-size+ 10000) (defdstest stress-test () - (format t "Creating ~a objects~%" +stress-size+) + (format t "Creating ~A objects in two threads~%" +stress-size+) (time (bknr.datastore::without-sync () - (dotimes (i +stress-size+) - (make-instance 'store-object)))) - (test-equal (length (all-store-objects)) +stress-size+) - (format t "Delete ~A objects~%" +stress-size+) - (time (bknr.datastore::without-sync () - (map-store-objects #'delete-object))) - (test-equal (all-store-objects) nil)) + (labels ((stress () + (dotimes (i +stress-size+) + (make-instance 'store-object)))) + (let ((threads (list (bt:make-thread #'stress) + (bt:make-thread #'stress)))) + (loop while (some #'bt:thread-alive-p threads) + do (sleep 1)))))) + (test-equal (length (all-store-objects)) (* 2 +stress-size+))) +(defdstest stress-test-2 () + (bknr.datastore::without-sync () + (format t "Creating ~A objects~%" +stress-size+) + (dotimes (i +stress-size+) + (make-instance 'store-object)) + (format t "Deleting ~A objects~%" (length (all-store-objects))) + (time (map-store-objects #'delete-object)) + (test-equal (all-store-objects) nil))) + (defdstest make-instance-in-anon-txn () (with-transaction () (make-instance 'store-object)) @@ -142,11 +161,23 @@ (test-assert (make-instance 'store-object)))) (define-persistent-class parent () - ((child :update :initform nil))) + ((child :update :initform nil :initarg nil))) (define-persistent-class child () ()) +(defun object-classes-and-ids () + "Return a list of conses with the car being a class name and the cdr + being the object id for all persistent objects in the store" + (mapcar (lambda (object) + (cons (class-name (class-of object)) + (store-object-id object))) + (all-store-objects))) + +(defdstest make-referenced-object-in-anon-tx () + (with-transaction (:make) + (make-instance 'parent :child (make-instance 'child)))) + (defdstest serialize-circular-in-anon-txn () (let ((parent (make-instance 'parent))) (with-transaction (:circular) @@ -227,7 +258,19 @@ (test-equal 0 (class-with-transient-slot-slot (find-store-object object-id))) (snapshot) (restore) - (test-equal 0 (class-with-transient-slot-slot (find-store-object object-id))))) + (test-equal 0 (class-with-transient-slot-slot (find-store-object object-id))))) +(define-persistent-class persistent-mixin () + ((mixin-slot :update + :initform 2))) + +(define-persistent-class inherit-multiple (persistent-mixin parent) + ()) + +(defdstest multiple-inheritance-test () + (let* ((o1 (make-instance 'inherit-multiple :child (make-instance 'child))) + (o2 (make-instance 'inherit-multiple :child o1))) + (test-equal o1 (parent-child o2)))) + (defun run-datastore-test (name) - (unit-test:run-test (gethash name *tests*))) \ No newline at end of file + (unit-test:run-test (gethash name *tests*))) Modified: branches/anon-transaction-fixes-2/bknr/datastore/src/data/object.lisp =================================================================== --- branches/anon-transaction-fixes-2/bknr/datastore/src/data/object.lisp 2008-09-21 12:51:48 UTC (rev 3932) +++ branches/anon-transaction-fixes-2/bknr/datastore/src/data/object.lisp 2008-09-21 16:51:58 UTC (rev 3933) @@ -39,7 +39,7 @@ (defun store-object-subsystem () (let ((subsystem (find-if (alexandria:rcurry #'typep 'store-object-subsystem) - (store-subsystems *store*)))) + (store-subsystems *store*)))) (unless subsystem (error 'object-subsystem-not-found-in-store :store *store*)) subsystem)) @@ -47,17 +47,8 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (finalize-inheritance (defclass persistent-class (indexed-class) - ((transient-slot-initargs :initform nil - :accessor persistent-class-transient-slot-initargs))))) + ()))) -(defmethod determine-transient-slot-initargs ((class persistent-class)) - (with-slots (transient-slot-initargs) class - (setf transient-slot-initargs nil) - (dolist (slotd (class-slots class)) - (when (and (transient-slot-p slotd) - (slot-definition-initargs slotd)) - (pushnew (car (slot-definition-initargs slotd)) transient-slot-initargs))))) - (defmethod validate-superclass ((sub persistent-class) (super indexed-class)) t) @@ -68,22 +59,16 @@ (when (plusp instance-count) (unless *suppress-schema-warnings* (report-progress "~&; updating ~A instances of ~A for class changes~%" - instance-count class)) + instance-count class)) (mapc #'reinitialize-instance (class-instances class))))) -(defmethod instance :after ((class persistent-class) &rest args) - (declare (ignore args)) - (determine-transient-slot-initargs class)) - -(defmethod reinitialize-instance :after ((class persistent-class) &rest args) - (declare (ignore args)) - (determine-transient-slot-initargs class) +(defmethod reinitialize-instance :after ((class persistent-class) &key) (when (and (boundp '*store*) *store*) (update-instances-for-changed-class (class-name class)) (unless *suppress-schema-warnings* (report-progress "~&; class ~A has been changed. To ensure correct schema ~ evolution, please snapshot your datastore.~%" - (class-name class))))) + (class-name class))))) (defclass persistent-direct-slot-definition (index-direct-slot-definition) ((relaxed-object-reference :initarg :relaxed-object-reference @@ -194,7 +179,7 @@ :slots (id)))) (defun class-instances (class) - (find-class class) ; make sure that the class exists + (find-class class) ; make sure that the class exists (store-objects-with-class class)) (deftransaction store-object-touch (object) @@ -237,21 +222,23 @@ (defmethod initialize-instance :around ((object store-object) &rest initargs &key) (cond ((not (in-transaction-p)) - (let ((transaction (make-instance 'transaction - :function-symbol 'make-instance - :timestamp (get-universal-time) - :args (cons (class-name (class-of object)) initargs)))) - (with-statistics-log (*transaction-statistics* (transaction-function-symbol transaction)) - (with-transaction-log (transaction) - (call-next-method))))) + (with-store-guard () + (let ((transaction (make-instance 'transaction + :function-symbol 'make-instance + :timestamp (get-universal-time) + :args (cons (class-name (class-of object)) + (append (list :id (slot-value object 'id)) + initargs))))) + (with-statistics-log (*transaction-statistics* (transaction-function-symbol transaction)) + (with-transaction-log (transaction) + (call-next-method)))))) ((in-anonymous-transaction-p) - (prog1 - (call-next-method) - (encode (make-instance 'transaction - :function-symbol 'make-instance - :timestamp (transaction-timestamp *current-transaction*) - :args (cons (class-name (class-of object)) initargs)) - (anonymous-transaction-log-buffer *current-transaction*)))) + (encode (make-instance 'transaction + :function-symbol 'make-instance + :timestamp (transaction-timestamp *current-transaction*) + :args (cons (class-name (class-of object)) initargs)) + (anonymous-transaction-log-buffer *current-transaction*)) + (call-next-method)) (t (call-next-method)))) @@ -272,12 +259,12 @@ (funcall (slot-definition-initfunction slotd)))))) (defmethod initialize-instance :after ((object store-object) &key) - ;; This is called only when initially creating the (persistent) - ;; instance, not during restore. During restore, the - ;; INITIALIZE-TRANSIENT-INSTANCE function is called for all - ;; persistent objects after the snapshot has been read, but before - ;; running the transaction log. - (initialize-transient-instance object)) + ;; This is called only when initially creating the (persistent) + ;; instance, not during restore. During restore, the + ;; INITIALIZE-TRANSIENT-INSTANCE function is called for all + ;; persistent objects after the snapshot has been read, but before + ;; running the transaction log. + (initialize-transient-instance object)) (defmethod print-object ((object store-object) stream) (print-unreadable-object (object stream :type t) @@ -345,22 +332,6 @@ ,@(unless metaclass '((:metaclass persistent-class))) ,@class-options)))) -#+nil -(define-persistent-class foo () - ((a :read))) -#+nil -(let ((foo (make-object 'foo :a 2))) - (foo-a foo)) - -;;; test fuer multiple inheritance -#+nil -(progn - (define-persistent-class bar () - ((b :read))) - (define-persistent-class blorg (foo bar) - ((c :read))) - (make-object 'blorg :a 2 :b 3 :c 4)) - ;;; binary snapshot (defvar *current-object-slot* nil) @@ -580,6 +551,12 @@ (let ((*current-object-slot* nil)) (%decode-store-object stream))) +(define-condition invalid-reference (warning) + ((id :initarg :id)) + (:report (lambda (e stream) + (format stream "internal inconsistency during restore - store object with ID ~A could not be found" + (slot-value e 'id))))) + (defun %decode-store-object (stream) ;; This is actually called in two contexts, when a slot-value is to ;; be filled with a reference to a store object and when a list of @@ -595,8 +572,7 @@ ;; lists in slots). (let* ((id (%decode-integer stream)) (object (or (store-object-with-id id) - (warn "internal inconsistency during restore: can't find store object ~A in loaded store" - id))) + (warn 'invalid-reference :id id))) (container (first *current-object-slot*)) (slot-name (second *current-object-slot*))) (cond (object object) @@ -689,13 +665,6 @@ (clear-class-indices class-name))) class-layouts)))))))) -(defun make-object (class-name &rest initargs) - "Make a persistent object of class named CLASS-NAME. Calls MAKE-INSTANCE with INITARGS." - (if (in-transaction-p) - (apply #'make-instance class-name initargs) - (with-store-guard () - (apply #'make-instance class-name initargs)))) - (defun tx-delete-object (id) (destroy-object (store-object-with-id id)))

1 0

[bknr-cvs] hans changed branches/anon-transaction-fixes-2/thirdparty/emacs/js2.el
by BKNR Commits 21 Sep '08

21 Sep '08

Revision: 3932 Author: hans URL: http://bknr.net/trac/changeset/3932 add js2-mode version 2008016a A branches/anon-transaction-fixes-2/thirdparty/emacs/js2.el Change set too large, please see URL above

1 0

[bknr-cvs] hans changed branches/anon-transaction-fixes-2/
by BKNR Commits 21 Sep '08

21 Sep '08

Revision: 3931 Author: hans URL: http://bknr.net/trac/changeset/3931 Initialized merge tracking via "svnmerge" with revisions "1-3928" from svn+ssh://bknr.net/svn/trunk _U branches/anon-transaction-fixes-2/ Property changes on: branches/anon-transaction-fixes-2 ___________________________________________________________________ Name: svnmerge-integrated + /trunk:1-3928

1 0

[bknr-cvs] hans changed branches/anon-transaction-fixes-2/
by BKNR Commits 21 Sep '08

21 Sep '08

Revision: 3930 Author: hans URL: http://bknr.net/trac/changeset/3930 Fixes for anonymous transactions. Objects can be deleted in anonymous transactions now. Generalized and fixed transient slot handling. Added more test cases. U branches/anon-transaction-fixes-2/bknr/datastore/src/bknr.datastore.asd U branches/anon-transaction-fixes-2/bknr/datastore/src/data/blob.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/object-tests.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/object.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/package.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/tutorial.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/data/txn.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/indices/indexed-class.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/indices/indices.lisp U branches/anon-transaction-fixes-2/bknr/datastore/src/utils/class.lisp U branches/anon-transaction-fixes-2/bknr/modules/bknr.modules.asd U branches/anon-transaction-fixes-2/bknr/modules/stats/stats.lisp U branches/anon-transaction-fixes-2/projects/quickhoney/src/daily.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed branches/anon-transaction-fixes-2/
by BKNR Commits 21 Sep '08

21 Sep '08

Revision: 3929 Author: hans URL: http://bknr.net/trac/changeset/3929 New branch with fixes for problems in anonymous transactions. A branches/anon-transaction-fixes-2/ Copied: branches/anon-transaction-fixes-2 (from rev 3928, trunk)

1 0

[bknr-cvs] hans changed trunk/projects/pch/src/pch
by BKNR Commits 21 Sep '08

21 Sep '08

Revision: 3928 Author: hans URL: http://bknr.net/trac/changeset/3928 Checkpoint some old changes from weeks ago. U trunk/projects/pch/src/pch.erl U trunk/projects/pch/src/pch_cache_mgr.erl U trunk/projects/pch/src/pch_front.erl Modified: trunk/projects/pch/src/pch.erl =================================================================== --- trunk/projects/pch/src/pch.erl 2008-09-19 06:24:57 UTC (rev 3927) +++ trunk/projects/pch/src/pch.erl 2008-09-21 05:13:44 UTC (rev 3928) @@ -2,16 +2,16 @@ %%% http://www.rsaccon.com/2007/09/mochiweb-erlang-based-webserver-toolkit.html -module(pch). --export([start/0, loop/2, stop/0]). +-export([start/0, stop/0]). -define(HTTP_PORT, 9888). -define(MANAGEMENT_PORT, 9889). start() -> Cache = ets:new(table, [set, public]), - pch_cache_mgr:start(?MANAGEMENT_PORT, Cache), +%% pch_cache_mgr:start(?MANAGEMENT_PORT, Cache), pch_front:start(?HTTP_PORT, Cache). stop() -> - pch_front:stop(), - pch_cache_mgr:stop(). + pch_front:stop(). +%% pch_cache_mgr:stop(). Modified: trunk/projects/pch/src/pch_cache_mgr.erl =================================================================== --- trunk/projects/pch/src/pch_cache_mgr.erl 2008-09-19 06:24:57 UTC (rev 3927) +++ trunk/projects/pch/src/pch_cache_mgr.erl 2008-09-21 05:13:44 UTC (rev 3928) @@ -1,5 +1,5 @@ -module(pch_cache_mgr). --export([start/1, loop/2, stop/0]). +-export([start/2, loop/2, stop/0]). start(Port, Cache) -> mochiweb_http:start([{loop, fun (Req) -> @@ -10,10 +10,30 @@ stop() -> mochiweb_http:stop(?MODULE). +fetch_from_backend(Path) -> + io:format("Fetching ~p~n", [Path]), + {ok, {{_Version, 200, _ReasonPhrase}, Headers, Body}} = + http:request("http://127.0.0.1:8080" ++ Path), + io:format("Got ~p~n", [Headers]), + {ok, Headers, Body}. + +backend_request(Req, Cache) -> + Path = Req:get(path), + case ets:lookup(Cache, Path) of + [{Path, Headers, Body}] -> + io:format("cache HIT for ~p~n", [Path]), + Req:respond({200, Headers, Body}); + _ -> + io:format("cache MISS for ~p~n", [Path]), + {ok, Headers, Body} = fetch_from_backend(Path), + ets:insert(Cache, {Path, Headers, Body}), + Req:respond({200, Headers, Body}) + end. + loop(Req, Cache) -> case Req:get(method) of - M when M =:= 'GET' -> - backend_request(Req, Cache); +%% M when M =:= 'GET' -> +%% backend_request(Req, Cache); _ -> Req:respond({501, [], ""}) end. Modified: trunk/projects/pch/src/pch_front.erl =================================================================== --- trunk/projects/pch/src/pch_front.erl 2008-09-19 06:24:57 UTC (rev 3927) +++ trunk/projects/pch/src/pch_front.erl 2008-09-21 05:13:44 UTC (rev 3928) @@ -1,5 +1,5 @@ -module(pch_front). --export([start/0, loop/2, stop/0]). +-export([start/2, loop/2, stop/0]). start(Port, Cache) -> mochiweb_http:start([{loop, fun (Req) -> @@ -8,26 +8,8 @@ {name, ?MODULE}]). stop() -> - mochiweb_http:stop(?MODULE), + mochiweb_http:stop(?MODULE). -fetch_from_backend(Path) -> - {ok, {{_Version, 200, _ReasonPhrase}, Headers, Body}} = - http:request("http://test.createrainforest.org" ++ Path), - {ok, Headers, Body}. - -backend_request(Req, Cache) -> - Path = Req:get(path), - case ets:lookup(Cache, Path) of - [{Path, Headers, Body}] -> - io:format("cache HIT for ~p~n", [Path]), - Req:respond({200, Headers, Body}); - _ -> - io:format("cache MISS for ~p~n", [Path]), - {ok, Headers, Body} = fetch_from_backend(Path), - ets:insert(Cache, {Path, Headers, Body}), - Req:respond({200, Headers, Body}) - end. - loop(Req, Cache) -> case Req:get(method) of M when M =:= 'GET' ->

1 0

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

19 Sep '08

Revision: 3927 Author: hans URL: http://bknr.net/trac/changeset/3927 Revert action button box CSS change as it did no good for IE U trunk/projects/quickhoney/website/static/index.css U trunk/projects/quickhoney/website/static/javascript.js Modified: trunk/projects/quickhoney/website/static/index.css =================================================================== --- trunk/projects/quickhoney/website/static/index.css 2008-09-19 06:24:24 UTC (rev 3926) +++ trunk/projects/quickhoney/website/static/index.css 2008-09-19 06:24:57 UTC (rev 3927) @@ -592,9 +592,6 @@ .buttonbox .button-section-items a { padding: 0px 5px 0px 27px; color: black; -} - -.buttonbox .button-section-items span { vertical-align: -3px; } Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-19 06:24:24 UTC (rev 3926) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-19 06:24:57 UTC (rev 3927) @@ -1675,7 +1675,7 @@ function make_image_action_button(keyword, title, action) { var item = LI({ style: 'background-image: url(' + recolored_image_path(keyword) + ')' }, - A({ href: '#' }, SPAN(null, title))); + A({ href: '#' }, title)); item.onclick = function() { action(); return false; }; return item; }

1 0

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

19 Sep '08

Revision: 3926 Author: hans URL: http://bknr.net/trac/changeset/3926 Commit google admin meta tag 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-19 06:23:38 UTC (rev 3925) +++ trunk/projects/quickhoney/website/templates/index.xml 2008-09-19 06:24:24 UTC (rev 3926) @@ -6,6 +6,7 @@ xmlns:bknr="http://bknr.net/" xmlns:quickhoney="http://quickhoney.com/"> <head> + <meta name="verify-v1" content="0lfE42KxaTLpCzUEkuTA7V2a9Ojdwk9BG2XSaZGPaoA=" /> <link rel="stylesheet" href="/static/yui/reset-fonts/reset-fonts.css" /> <link rel="stylesheet" href="/static/quickhoney.css" /> <link rel="stylesheet" href="/static/index.css" />

1 0

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

19 Sep '08

Revision: 3925 Author: hans URL: http://bknr.net/trac/changeset/3925 Remove quickhoney-image-handler, we don't need it. U trunk/projects/quickhoney/src/webserver.lisp Modified: trunk/projects/quickhoney/src/webserver.lisp =================================================================== --- trunk/projects/quickhoney/src/webserver.lisp 2008-09-19 06:16:37 UTC (rev 3924) +++ trunk/projects/quickhoney/src/webserver.lisp 2008-09-19 06:23:38 UTC (rev 3925) @@ -38,7 +38,6 @@ ("/json-news-archive" json-news-archive-handler) ("/json-news" json-news-handler) ("/shutdown" shutdown-handler) - ("/image" quickhoney-image-handler) user images ("/static" directory-handler

1 0