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

[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

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

19 Sep '08

Revision: 3924 Author: hans URL: http://bknr.net/trac/changeset/3924 fix news styles U trunk/projects/quickhoney/website/static/index.css Modified: trunk/projects/quickhoney/website/static/index.css =================================================================== --- trunk/projects/quickhoney/website/static/index.css 2008-09-18 17:33:21 UTC (rev 3923) +++ trunk/projects/quickhoney/website/static/index.css 2008-09-19 06:16:37 UTC (rev 3924) @@ -346,7 +346,7 @@ } .newsentry h1 { - margin: 10px 0px 5px 0px; + margin: 10px 0px 10px 0px; font-size: 120%; font-weight: normal; color: #30be01 @@ -356,10 +356,6 @@ margin: 10px 0px 5px 0px; } -.newsentry .item-text { - margin-top: 1em; -} - .autonews { height: 106px; color: #000; border-width: 1px; border-style: solid

1 0

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

18 Sep '08

Revision: 3923 Author: hans URL: http://bknr.net/trac/changeset/3923 Fix for Opera and (hopefully) 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-18 16:57:54 UTC (rev 3922) +++ trunk/projects/quickhoney/website/static/index.css 2008-09-18 17:33:21 UTC (rev 3923) @@ -595,11 +595,13 @@ .buttonbox .button-section-items a { padding: 0px 5px 0px 27px; - vertical-align: -3px; color: black; - line-height: 0; } +.buttonbox .button-section-items span { + vertical-align: -3px; +} + .buttonbox .button-section-items.last { border-bottom-width: 1px; } Modified: trunk/projects/quickhoney/website/static/javascript.js =================================================================== --- trunk/projects/quickhoney/website/static/javascript.js 2008-09-18 16:57:54 UTC (rev 3922) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-18 17:33:21 UTC (rev 3923) @@ -1675,8 +1675,7 @@ function make_image_action_button(keyword, title, action) { var item = LI({ style: 'background-image: url(' + recolored_image_path(keyword) + ')' }, - A({ href: '#' }, - title)); + A({ href: '#' }, SPAN(null, title))); item.onclick = function() { action(); return false; }; return item; }

1 0

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

18 Sep '08

Revision: 3922 Author: hans URL: http://bknr.net/trac/changeset/3922 update page title to reflect current navigational position. 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-18 15:38:02 UTC (rev 3921) +++ trunk/projects/quickhoney/website/static/javascript.js 2008-09-18 16:57:54 UTC (rev 3922) @@ -562,6 +562,8 @@ function show_page(pagename, subpath) { + document.title = "QuickHoney " + pagename + (subpath ? "/" + subpath : ''); + if (!pages[pagename]) { document.location.href = '/'; return false; @@ -1009,7 +1011,7 @@ index = index - 0; // ensure integer query_position = index; current_image = query_result[index]; - + log('display_image index ' + index); overlay_remove();

1 0

[bknr-cvs] ksprotte changed trunk/projects/bos/payment-website/templates/da/satmap.xml
by BKNR Commits 18 Sep '08

18 Sep '08

Revision: 3921 Author: ksprotte URL: http://bknr.net/trac/changeset/3921 /da/satmap.xml new text in danish U trunk/projects/bos/payment-website/templates/da/satmap.xml Modified: trunk/projects/bos/payment-website/templates/da/satmap.xml =================================================================== --- trunk/projects/bos/payment-website/templates/da/satmap.xml 2008-09-18 11:56:35 UTC (rev 3920) +++ trunk/projects/bos/payment-website/templates/da/satmap.xml 2008-09-18 15:38:02 UTC (rev 3921) @@ -16,7 +16,7 @@ <tr> <td colspan="2"> <span class="headline"> - Satellite Map + Satellit kort </span> </td> <td align="center" valign="top"> @@ -32,9 +32,9 @@ </tr> <tr> <td colspan="3"> - Take a look at our + Se vores <a shape="rect" title="Satellitenkarte" class="titlegreen" href="javascript:window_infosys()"> - Satellite Map</a>. + Satellit kort</a>. </td> </tr>  @@ -46,7 +46,7 @@ <tr> <td colspan="3"> <span class="headline"> - Visit Samboja Lestari in Google Earth + Besøg Samboja Lestari via Google Earth </span> </td> </tr> @@ -56,12 +56,13 @@ </tr> <tr> <td colspan="3"> - If the Google Earth Software + Når du har installeret Google Earths software <a href='http://earth.google.de/' target='_blank' shape='rect' class='titlegreen'>http://earth.google.de/</a> - is installed on your computer, you can view the project area with - satellite images from 2002 and 2007 plus a lot of additional - information. For an optimal viewing experience, you can also use the - above link to upgrade your Google Earth installation if needed. + på din computer, kan du se et + udvalg af satellitbilleder fra projektområdet fra perioden + 2000 til 2007 plus en masse ekstra information. For + optimale oplevelse kan du, om nødtvendigt, bruge + ovenstående link til at opgradere din Google Earth. </td> </tr> <tr> @@ -70,7 +71,8 @@ </tr> <tr> <td colspan="3"> - Your Google Earth application will be started via the following link: + Din Google Earth applikation vil starte ved hjælp af + flg. link: </td> </tr> <tr>

1 0