From bknr at bknr.net Wed Aug 19 17:36:34 2009 From: bknr at bknr.net (BKNR Commits) Date: Wed, 19 Aug 2009 19:36:34 +0200 Subject: [bknr-cvs] hans changed trunk/projects/planetwit/ Message-ID: Revision: 4440 Author: hans URL: http://bknr.net/trac/changeset/4440 update twitter status once for every posting, include tiny url U trunk/projects/planetwit/http-client.clj U trunk/projects/planetwit/planetwit.clj Modified: trunk/projects/planetwit/http-client.clj =================================================================== --- trunk/projects/planetwit/http-client.clj 2009-07-22 18:21:41 UTC (rev 4439) +++ trunk/projects/planetwit/http-client.clj 2009-08-19 17:36:33 UTC (rev 4440) @@ -31,5 +31,5 @@ (String. (. (Base64.) (encode (. basic-authorization getBytes)))))))) (let [response (. client call request)] {:status (. response getStatus) - :content-type (. response getContentType) + :content-type (. response getHeader "Content-Type") :body (. (. response getBlockingBody) readString)}))) \ No newline at end of file Modified: trunk/projects/planetwit/planetwit.clj =================================================================== --- trunk/projects/planetwit/planetwit.clj 2009-07-22 18:21:41 UTC (rev 4439) +++ trunk/projects/planetwit/planetwit.clj 2009-08-19 17:36:33 UTC (rev 4440) @@ -29,39 +29,42 @@ (defn feed-to-zip [url] (zip/xml-zip (xml/parse url))) -(defn update-twitter-status [auth-file status] - (http/simple-http-request +twitter-url+ - {:method :post - :basic-authorization (read-file auth-file) - :content-type "application/x-www-form-urlencoded" - :content (format "status=%s&source=planetlisp" (java.net.URLEncoder/encode status))})) +(defn update-twitter-status [status] + (try + (http/simple-http-request +twitter-url+ + {:method :post + :basic-authorization (read-file +twitter-auth-file+) + :content-type "application/x-www-form-urlencoded" + :content (format "status=%s&source=planetlisp" (java.net.URLEncoder/encode status))}) + (catch java.io.FileNotFoundException _ + (println (format "could not update twitter status (no auth file):\n%s\n" status))))) -(defn maybe-post-twit [items] - (let [twitter-status (cond - (< 1 (count items)) - (format "%d new items posted" (count items)) - (= 1 (count items)) - (format "new: %s" (first items)))] - (when twitter-status - (update-twitter-status +twitter-auth-file+ twitter-status)))) +(defn post-twits [urls titles] + (when titles + (update-twitter-status (format "%s %s" (first titles) + (:body (http/simple-http-request + (format "http://tinyurl.com/api-create.php?url=%s" + (first urls)) + nil)))) + (recur (rest urls) (rest titles)))) (defn poll "Poll planet lisp, check for new postings, update Twitter status when new postings have appeared" [] (save-data - (let [old-data (load-data) + (let [old-urls (load-data) process - (fn [items new-data new-items] + (fn [items new-urls new-titles] (if items (let [item (first items) guid (first (xml-> item :guid text)) ] (recur (rest items) - (conj new-data guid) - (if (old-data guid) - new-items - (conj new-items (first (xml-> item :title text)))))) + (conj new-urls guid) + (if (old-urls guid) + new-titles + (conj new-titles (first (xml-> item :title text)))))) (do - (maybe-post-twit new-items) - new-data)))] + (post-twits new-urls new-titles) + new-urls)))] (process (xml-> (feed-to-zip "http://planet.lisp.org/rss20.xml") :channel :item) #{} [])))) From bknr at bknr.net Wed Aug 19 18:11:37 2009 From: bknr at bknr.net (BKNR Commits) Date: Wed, 19 Aug 2009 20:11:37 +0200 Subject: [bknr-cvs] hans changed trunk/projects/planetwit/planetwit.clj Message-ID: Revision: 4441 Author: hans URL: http://bknr.net/trac/changeset/4441 store guid/url and title in a hash instead of in separate lists U trunk/projects/planetwit/planetwit.clj Modified: trunk/projects/planetwit/planetwit.clj =================================================================== --- trunk/projects/planetwit/planetwit.clj 2009-08-19 17:36:33 UTC (rev 4440) +++ trunk/projects/planetwit/planetwit.clj 2009-08-19 18:11:37 UTC (rev 4441) @@ -39,14 +39,14 @@ (catch java.io.FileNotFoundException _ (println (format "could not update twitter status (no auth file):\n%s\n" status))))) -(defn post-twits [urls titles] - (when titles - (update-twitter-status (format "%s %s" (first titles) +(defn post-twits [items] + (when items + (update-twitter-status (format "%s %s" (:title (first items)) (:body (http/simple-http-request (format "http://tinyurl.com/api-create.php?url=%s" - (first urls)) + (:guid (first items))) nil)))) - (recur (rest urls) (rest titles)))) + (recur (rest items)))) (defn poll "Poll planet lisp, check for new postings, update Twitter status when new postings have appeared" @@ -54,17 +54,17 @@ (save-data (let [old-urls (load-data) process - (fn [items new-urls new-titles] + (fn [items new-items] (if items (let [item (first items) - guid (first (xml-> item :guid text)) ] + guid (first (xml-> item :guid text)) + title (first (xml-> item :title text))] (recur (rest items) - (conj new-urls guid) (if (old-urls guid) - new-titles - (conj new-titles (first (xml-> item :title text)))))) + new-items + (conj new-items { :guid guid :title title })))) (do - (post-twits new-urls new-titles) - new-urls)))] + (post-twits new-items) + (map #((:guid %)) new-items))))] (process (xml-> (feed-to-zip "http://planet.lisp.org/rss20.xml") :channel :item) - #{} [])))) + [])))) From bknr at bknr.net Wed Aug 19 19:50:49 2009 From: bknr at bknr.net (BKNR Commits) Date: Wed, 19 Aug 2009 21:50:49 +0200 Subject: [bknr-cvs] hans changed trunk/projects/planetwit/planetwit.clj Message-ID: Revision: 4442 Author: hans URL: http://bknr.net/trac/changeset/4442 [] is not nil U trunk/projects/planetwit/planetwit.clj Modified: trunk/projects/planetwit/planetwit.clj =================================================================== --- trunk/projects/planetwit/planetwit.clj 2009-08-19 18:11:37 UTC (rev 4441) +++ trunk/projects/planetwit/planetwit.clj 2009-08-19 19:50:49 UTC (rev 4442) @@ -4,9 +4,12 @@ (:use clojure.contrib.duck-streams clojure.contrib.zip-filter.xml)) -(def +state-file+ "/home/hans/clojure/planetwit/planetwit.dat") +(defn absolute-pathname [filename] + (. (java.io.File. filename) getAbsolutePath)) + +(def +state-file+ (absolute-pathname "planetwit.dat")) (def +twitter-url+ "http://twitter.com/statuses/update.xml") -(def +twitter-auth-file+ "/home/hans/clojure/planetwit/planetwit-auth.dat") +(def +twitter-auth-file+ (absolute-pathname "planetwit-auth.dat")) (defn read-file [file-name & defaults] (try @@ -41,30 +44,37 @@ (defn post-twits [items] (when items - (update-twitter-status (format "%s %s" (:title (first items)) - (:body (http/simple-http-request - (format "http://tinyurl.com/api-create.php?url=%s" - (:guid (first items))) - nil)))) - (recur (rest items)))) + (let [item (first items)] + (update-twitter-status + (format "%s %s" + (:title item) + (:body (http/simple-http-request + (format "http://tinyurl.com/api-create.php?url=%s" + (:guid item)) + nil)))) + (recur (rest items))))) (defn poll "Poll planet lisp, check for new postings, update Twitter status when new postings have appeared" [] (save-data (let [old-urls (load-data) - process - (fn [items new-items] - (if items - (let [item (first items) - guid (first (xml-> item :guid text)) - title (first (xml-> item :title text))] - (recur (rest items) - (if (old-urls guid) - new-items - (conj new-items { :guid guid :title title })))) - (do - (post-twits new-items) - (map #((:guid %)) new-items))))] - (process (xml-> (feed-to-zip "http://planet.lisp.org/rss20.xml") :channel :item) - [])))) + process (fn [items all-items new-items] + (if items + (let [item (first items) + guid (:guid item) + title (:title item)] + (recur (rest items) + (conj all-items item) + (if (old-urls guid) + new-items + (conj new-items item)))) + (do + (post-twits new-items) + (into #{} (map #(:guid %) all-items)))))] + (process (map (fn [item] + {:guid (first (xml-> item :guid text)) + :title (first (xml-> item :title text))}) + (xml-> (feed-to-zip "http://planet.lisp.org/rss20.xml") + :channel :item)) + nil nil)))) From bknr at bknr.net Thu Aug 20 00:56:02 2009 From: bknr at bknr.net (BKNR Commits) Date: Thu, 20 Aug 2009 02:56:02 +0200 Subject: [bknr-cvs] hans changed trunk/projects/planetwit/planetwit.clj Message-ID: Revision: 4443 Author: hans URL: http://bknr.net/trac/changeset/4443 clarify code by using filter instead of hand-written recursive loop U trunk/projects/planetwit/planetwit.clj Modified: trunk/projects/planetwit/planetwit.clj =================================================================== --- trunk/projects/planetwit/planetwit.clj 2009-08-19 19:50:49 UTC (rev 4442) +++ trunk/projects/planetwit/planetwit.clj 2009-08-20 00:56:01 UTC (rev 4443) @@ -57,24 +57,13 @@ (defn poll "Poll planet lisp, check for new postings, update Twitter status when new postings have appeared" [] - (save-data (let [old-urls (load-data) - process (fn [items all-items new-items] - (if items - (let [item (first items) - guid (:guid item) - title (:title item)] - (recur (rest items) - (conj all-items item) - (if (old-urls guid) - new-items - (conj new-items item)))) - (do - (post-twits new-items) - (into #{} (map #(:guid %) all-items)))))] - (process (map (fn [item] - {:guid (first (xml-> item :guid text)) - :title (first (xml-> item :title text))}) - (xml-> (feed-to-zip "http://planet.lisp.org/rss20.xml") - :channel :item)) - nil nil)))) + all-items (map (fn [item] + {:guid (first (xml-> item :guid text)) + :title (first (xml-> item :title text))}) + (xml-> (feed-to-zip "http://planet.lisp.org/rss20.xml") + :channel :item)) + new-items (filter (complement #(old-urls (:guid %))) all-items)] + (post-twits new-items) + (save-data (into #{} (map #(:guid %) all-items))))) + From bknr at bknr.net Thu Aug 20 11:44:49 2009 From: bknr at bknr.net (BKNR Commits) Date: Thu, 20 Aug 2009 13:44:49 +0200 Subject: [bknr-cvs] hans changed trunk/projects/planetwit/planetwit.clj Message-ID: Revision: 4444 Author: hans URL: http://bknr.net/trac/changeset/4444 comments, rename some functions U trunk/projects/planetwit/planetwit.clj Modified: trunk/projects/planetwit/planetwit.clj =================================================================== --- trunk/projects/planetwit/planetwit.clj 2009-08-20 00:56:01 UTC (rev 4443) +++ trunk/projects/planetwit/planetwit.clj 2009-08-20 11:44:49 UTC (rev 4444) @@ -1,3 +1,14 @@ +;;; planet.lisp.org -> twitter gateway +;;; +;;; Copyright 2008/2009 Hans Huebner + +;;; Generate a twitter status update with the item title and the +;;; permalink URL shortened by tinyurl.com for each new item posted to +;;; planet.lisp.org. + +;;; The guids of all items that has been forwarded to twitter are +;;; stored as a literal set in the text file +state-file+. + (ns planetwit (:require [clojure.zip :as zip] [clojure.xml :as xml]) @@ -23,10 +34,10 @@ (defn write-file [data file-name] (spit file-name (with-out-str (pr data)))) -(defn load-data [] +(defn load-data-from-file [] (read-file +state-file+ #{})) -(defn save-data [data] +(defn save-data-to-file [data] (write-file data +state-file+)) (defn feed-to-zip [url] @@ -42,7 +53,11 @@ (catch java.io.FileNotFoundException _ (println (format "could not update twitter status (no auth file):\n%s\n" status))))) -(defn post-twits [items] +(defn post-twits + "Given a list of new item hashes in ITEMS, send a twitter status + update for each of them consisting of the :title string and a tiny + URL pointing to the item itself." + [items] (when items (let [item (first items)] (update-twitter-status @@ -54,16 +69,23 @@ nil)))) (recur (rest items))))) +(defn load-feed + "Load planet.lisp.org feed, return a hash for every item containing + the item permalink under the :guid key and the item's title under + the :title key" + [] + (map (fn [item] + {:guid (first (xml-> item :guid text)) + :title (first (xml-> item :title text))}) + (xml-> (feed-to-zip "http://planet.lisp.org/rss20.xml") + :channel :item))) + (defn poll "Poll planet lisp, check for new postings, update Twitter status when new postings have appeared" [] - (let [old-urls (load-data) - all-items (map (fn [item] - {:guid (first (xml-> item :guid text)) - :title (first (xml-> item :title text))}) - (xml-> (feed-to-zip "http://planet.lisp.org/rss20.xml") - :channel :item)) + (let [old-urls (load-data-from-file) + all-items (load-feed) new-items (filter (complement #(old-urls (:guid %))) all-items)] (post-twits new-items) - (save-data (into #{} (map #(:guid %) all-items))))) + (save-data-to-file (into #{} (map #(:guid %) all-items))))) From bknr at bknr.net Thu Aug 20 12:21:41 2009 From: bknr at bknr.net (BKNR Commits) Date: Thu, 20 Aug 2009 14:21:41 +0200 Subject: [bknr-cvs] hans changed trunk/projects/planetwit/ Message-ID: Revision: 4445 Author: hans URL: http://bknr.net/trac/changeset/4445 improve console output U trunk/projects/planetwit/load.clj U trunk/projects/planetwit/planetwit.clj Modified: trunk/projects/planetwit/load.clj =================================================================== --- trunk/projects/planetwit/load.clj 2009-08-20 11:44:49 UTC (rev 4444) +++ trunk/projects/planetwit/load.clj 2009-08-20 12:21:41 UTC (rev 4445) @@ -1,8 +1,6 @@ (load-file "http-client.clj") (load-file "planetwit.clj") (loop [] - (println "polling") (planetwit/poll) - (println "sleeping") (. java.lang.Thread (sleep 300000)) (recur)) Modified: trunk/projects/planetwit/planetwit.clj =================================================================== --- trunk/projects/planetwit/planetwit.clj 2009-08-20 11:44:49 UTC (rev 4444) +++ trunk/projects/planetwit/planetwit.clj 2009-08-20 12:21:41 UTC (rev 4445) @@ -60,6 +60,7 @@ [items] (when items (let [item (first items)] + (println (:title item)) (update-twitter-status (format "%s %s" (:title item) From bknr at bknr.net Thu Aug 20 12:42:30 2009 From: bknr at bknr.net (BKNR Commits) Date: Thu, 20 Aug 2009 14:42:30 +0200 Subject: [bknr-cvs] hans changed trunk/projects/planetwit/ Message-ID: Revision: 4446 Author: hans URL: http://bknr.net/trac/changeset/4446 factor out make-tiny-url function U trunk/projects/planetwit/http-client.clj U trunk/projects/planetwit/planetwit.clj Modified: trunk/projects/planetwit/http-client.clj =================================================================== --- trunk/projects/planetwit/http-client.clj 2009-08-20 12:21:41 UTC (rev 4445) +++ trunk/projects/planetwit/http-client.clj 2009-08-20 12:42:30 UTC (rev 4446) @@ -21,7 +21,7 @@ (HttpRequest. (method-string method) url))) (defn simple-http-request - [url attributes] + [url & attributes] (let [{:keys [method content-type content client basic-authorization], :or {method :get}} attributes client (or client (HttpClient.)) request (make-request url method content-type content)] Modified: trunk/projects/planetwit/planetwit.clj =================================================================== --- trunk/projects/planetwit/planetwit.clj 2009-08-20 12:21:41 UTC (rev 4445) +++ trunk/projects/planetwit/planetwit.clj 2009-08-20 12:42:30 UTC (rev 4446) @@ -53,6 +53,11 @@ (catch java.io.FileNotFoundException _ (println (format "could not update twitter status (no auth file):\n%s\n" status))))) +(defn make-tiny-url + "Make a tiny url from URL using the tinyurl.com service" + [url] + (:body (http/simple-http-request (format "http://tinyurl.com/api-create.php?url=%s" url)))) + (defn post-twits "Given a list of new item hashes in ITEMS, send a twitter status update for each of them consisting of the :title string and a tiny @@ -61,13 +66,9 @@ (when items (let [item (first items)] (println (:title item)) - (update-twitter-status - (format "%s %s" - (:title item) - (:body (http/simple-http-request - (format "http://tinyurl.com/api-create.php?url=%s" - (:guid item)) - nil)))) + (update-twitter-status (format "%s %s" + (:title item) + (make-tiny-url (:guid item)))) (recur (rest items))))) (defn load-feed From bknr at bknr.net Fri Aug 21 12:40:28 2009 From: bknr at bknr.net (BKNR Commits) Date: Fri, 21 Aug 2009 14:40:28 +0200 Subject: [bknr-cvs] hans changed trunk/thirdparty/hunchentoot/request.lisp Message-ID: Revision: 4447 Author: hans URL: http://bknr.net/trac/changeset/4447 Stephen P. Compall's patch to fix problems with multipart/form-data request bodies: As of r4438 (Peter's patch), I believe this wipes out post-parameters of multipart/form-data POST requests and causes the relevant requests to time out. Specifically, on a multipart/form-data request, the first call to `post-parameters` yields a sensible result, whereas future calls yield NIL after timing out. The solution proper is in the first hunk of the patch below, which removes the ability to FORCE maybe-read-post-parameters to reread a multipart/form-data request, because it can't do that, having emptied the stream of the necessary data. The second hunk, which incidentally fixes the problem as well (only by avoiding the confusing behavior of maybe-read-post-parameters in the common case of POSTing a non-empty set of parameters, rather than solving it), is a specific followup to r4438, which in combination with the first hunk merely prevents post-parameters from recalculating the alist from the raw data on every call. Were the first hunk to be changed to warn in the specific case it avoids, the second hunk would also serve to eliminate spurious warnings about being unable to reread multipart posts. U trunk/thirdparty/hunchentoot/request.lisp Modified: trunk/thirdparty/hunchentoot/request.lisp =================================================================== --- trunk/thirdparty/hunchentoot/request.lisp 2009-08-20 12:42:30 UTC (rev 4446) +++ trunk/thirdparty/hunchentoot/request.lisp 2009-08-21 12:40:26 UTC (rev 4447) @@ -289,7 +289,9 @@ (when (and (header-in :content-type request) (member (request-method request) *methods-for-post-parameters* :test #'eq) (or force - (not (slot-value request 'raw-post-data)))) + (not (slot-value request 'raw-post-data))) + ;; can't reparse multipart posts, even when FORCEd + (not (eq t (slot-value request 'raw-post-data)))) (unless (or (header-in :content-length request) (input-chunking-p)) (log-message :warning "Can't read request body because there's ~ @@ -357,7 +359,8 @@ ;; in. (For instance, if SEND-HEADERS has been called, filling in ;; RAW-POST-DATA, and then subsequent code calls POST-PARAMETERS, ;; without the :FORCE flag POST-PARAMETERS would return NIL.) - (maybe-read-post-parameters :request request :force t)) + (maybe-read-post-parameters + :request request :force (not (slot-value request 'post-parameters)))) (defun post-parameters* (&optional (request *request*)) "Returns an alist of the POST parameters associated with the REQUEST From bknr at bknr.net Thu Aug 27 10:08:29 2009 From: bknr at bknr.net (BKNR Commits) Date: Thu, 27 Aug 2009 12:08:29 +0200 Subject: [bknr-cvs] hans changed deployed/bos/projects/bos/payment-website/templates/de/ Message-ID: Revision: 4448 Author: hans URL: http://bknr.net/trac/changeset/4448 textaenderungen von martin und joscha U deployed/bos/projects/bos/payment-website/templates/de/bos.xml U deployed/bos/projects/bos/payment-website/templates/de/certificat.xml U deployed/bos/projects/bos/payment-website/templates/de/contact.xml U deployed/bos/projects/bos/payment-website/templates/de/disclaimer.xml U deployed/bos/projects/bos/payment-website/templates/de/headline2.xml U deployed/bos/projects/bos/payment-website/templates/de/headline3.xml U deployed/bos/projects/bos/payment-website/templates/de/idea.xml U deployed/bos/projects/bos/payment-website/templates/de/idea_subtitle1.xml U deployed/bos/projects/bos/payment-website/templates/de/idea_subtitle2.xml U deployed/bos/projects/bos/payment-website/templates/de/impressum.xml U deployed/bos/projects/bos/payment-website/templates/de/index.xml U deployed/bos/projects/bos/payment-website/templates/de/infosys-help-uebersicht.xml U deployed/bos/projects/bos/payment-website/templates/de/privacy.xml Modified: deployed/bos/projects/bos/payment-website/templates/de/bos.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/bos.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/bos.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +??? - Dort finden Sie auch Links zu unseren BOS- Schwesterorganisationen weltweit. + Dort finden Sie auch Links zu den BOS- Unterst??tzerorganisationen weltweit. Modified: deployed/bos/projects/bos/payment-website/templates/de/certificat.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/certificat.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/certificat.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +??? -

So sieht Ihre Regenwald-Urkunde aus:

+

So sieht Ihre Lebenswald-Urkunde aus:

Modified: deployed/bos/projects/bos/payment-website/templates/de/contact.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/contact.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/contact.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +??? - Dort finden Sie auch Links zu unseren BOS- Schwesterorganisationen weltweit. + Dort finden Sie auch Links zu den BOS- Unterst??tzerorganisationen weltweit. Modified: deployed/bos/projects/bos/payment-website/templates/de/disclaimer.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/disclaimer.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/disclaimer.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +??? Verzichtserkl??rung

-Jeder Sponsor eines oder mehrerer Quadratmeter wiederentstehenden -Regenwaldes im Aufforstungs- und Naturschutzprojekt Samboja Lestari / Borneo -/ Indonesien hat keinerlei Besitzanrechte oder sonstige Anspr??che auf das -entsprechende Land. Niemand wird berechtigt das Land weiter zu verkaufen. -Kein Sponsor geht Pflichten ein. Es handelt sich hierbei um eine rein -symbolische Handlung mit informativem Charakter. BOS garantiert, dass das -Land f??r ewig dem Nutzen des nachhaltigen Natur- und Tierschutzes reserviert -bleibt. +JedeR SpenderIn eines oder mehrerer Quadratmeter wiederentstehenden Lebenswaldes im Aufforstungs- und Naturschutzprojekt Samboja Lestari / Borneo / Indonesien hat keinerlei Besitzanspr??che oder sonstige Anspr??che auf das entsprechende Land. Sie finanzieren die Pacht bzw. Konzessionen f??r das Land, ??kologische Aufforstung, eine Baumschule, ??kologische Landwirtschaft, Zuckerpalmplantagen als Feuerschutz und Einkommensquelle, L??hne f??r indonesische MitarbeiterInnen, ??berwachung und Schutz des Gebietes, Feuerbek??mpfung, Umweltbildung, Infrastruktur, Forschung und Arboretum, Orang-Utan-Inseln und das Malaienb??rareal. +Mit Ihrer Spende gehen Sie keinerlei Verpflichtung ein. Es handelt sich hierbei um eine rein +symbolische Handlung mit informativem Charakter. Die BOS Foundation garantiert, dass sie das Land ausschlie??lich f??r den nachhaltigen Natur- und Tierschutz nutzt.

Modified: deployed/bos/projects/bos/payment-website/templates/de/headline2.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/headline2.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/headline2.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +???
Das Naturreservat Samboja Lestari bietet der lokalen Bev??lkerung ein - gesichertes Einkommen, Gesundheit und Bildung. Die - Menschen werden in alle Phasen des Projektes mit - einbezogen. Landwirtschaft, Baumschule, Kompostproduktion, + gesichertes Einkommen, Gesundheit und Bildung. Landwirtschaft, Baumschule, Kompostproduktion, Aufforstung, Anpflanzung, Forschung und Aufbau der Infrastruktur bieten sichere Arbeitspl??tze.
@@ -81,8 +79,7 @@ - Die Sicherheit des Naturschutzreservates ist durch die - Akzeptanz der indonesischen Bev??lkerung gew??hrleistet. + Die Sicherheit des Naturschutzreservates kann langfristig nur durch die Akzeptanz der lokalen Bev??lkerung gew??hrleistet werden. Der Erfolg des Projektes garantiert einen besseren Lebensstandard und umgekehrt. Modified: deployed/bos/projects/bos/payment-website/templates/de/headline3.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/headline3.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/headline3.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +???
Orang-Utans geh??ren nicht nur zu unseren nahen Verwandten im Tierreich, sie sind als Samenverbreiter auch unentbehrlich - f??r die Vielfalt des Regenwaldes - sie sind die so genannte Schirmspezies. Somit dient der Schutz dieser faszinierenden + f??r die Vielfalt des Regenwaldes - sie sind eine so genannte Schirmspezies. Somit dient der Schutz dieser faszinierenden Menschenaffen gleichzeitig auch dem Erhalt des Wald??kosystems.

Heute leben Orang-Utans nur noch auf Sumatra und Borneo. Massive Regenwaldzerst??rung und skrupelloser Tierhandel k??nnten bald das Ende ihrer Art bedeuten. Auch die Malaienb??ren verlieren ihren Lebensraum. Das Naturreservat Samboja Lestari - bietet zahlreichen Tieren eine letzte Zuflucht - eine Chance zum ??berleben. Bereits heute leben Malaienb??ren dort in - einem abgegrenzten Areal und in wenigen Jahren k??nnen auch Orang-Utans ein Leben in Freiheit genie??en. + bietet zahlreichen Tieren eine Zuflucht - eine Chance zum ??berleben. Bereits heute leben dort 52 Malaienb??ren in abgegrenzten Arealen. +Auf k??nstlichen Inseln leben kranke Orang-Utans, die nicht mehr ausgewildert werden k??nnen. In der Waldschule trainieren Orang-Utan-Jungtiere f??r ihre sp??tere Auswilderung.

Seltene Arten wie z.B. Nashornvogel, Zwerghirsch und K??nigskobra k??nnen heute schon wieder in Samboja Lestari beobachtet werden. Modified: deployed/bos/projects/bos/payment-website/templates/de/idea.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/idea.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/idea.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +??? - Samboja Lestari - kreative Aufforstung. + Samboja Lestari - kreative Aufforstung
- Eine Zufluchtst??tte f??r Borneo + und Zufluchtst??tte f??r bedrohte Tierarten. @@ -29,20 +29,20 @@ - BOS schafft durch ein einzigartiges Aufforstungskonzept die vielleicht letzte Zufluchtst??tte f??r Orang-Utans, - Malaienb??ren und andere bedrohte Arten in Borneo. Die Fortschritte k??nnen Sie anhand von Satellitenbildern hier - im Internet beobachten. -

- Der ehemals artenreiche Regenwald von + BOS regeneriert durch ein einzigartiges Aufforstungskonzept nicht nur den Regenwald, +sondern schafft gleichzeitig auch eine Zufluchtst??tte f??r Orang-Utans, Malaienb??ren und andere bedrohte Arten auf Borneo. Die Fortschritte +k??nnen Sie anhand von Satellitenbildern auf dieser Webseite und ??ber google earth beobachten. + +
Der ehemals artenreiche Regenwald von Samboja Lestari wurde in den letzten Jahrzehnten r??cksichtslos gerodet und abgebrannt. N??hrstoffzehrendes Alang-Alang-Gras breitete sich fl??chendeckend aus. Zur??ck blieb eine ??kologische W??ste. Doch schon heute kann man deutlich erkennen, dass - dies nicht so bleiben muss - denn BOS schafft seit 2001 neuen Regenwald. Das Gebiet von ??ber 17 Millionen m?? wird - durch ein innovatives Aufforstungs- und Schutzkonzept wieder in nat??rlichen Lebensraum verwandelt. Im tropischen - Borneo wachsen Pflanzen um ein Vielfaches schneller als in Europa. Schon in wenigen Jahren k??nnen die ersten - Orang-Utans im neuen Regenwald ausgewildert werden und die Freiheit mit anderen Tieren teilen. In Samboja Lestari + dies nicht so bleiben muss - denn BOS schafft seit 2001 neuen Regenwald. Das Gebiet von rund 18,5 Millionen m?? wird +durch ein innovatives Aufforstungs- und Schutzkonzept langfristig wieder in naturnahen Lebensraum verwandelt. Im tropischen + Borneo wachsen Pflanzen um ein Vielfaches schneller als in Europa. Schon nach wenigen Jahren konnten die ersten +Orang-Utans auf k??nstlichen Inseln ihre neue Freiheit genie??en. Orang-Utan-Jungtiere trainieren in der Waldschule in Samboja Lestari f??r ihre sp??tere Auswilderung. In Samboja Lestari ("ewiges Samboja") entsteht ein Naturschutzgebiet zum dauerhaften Nutzen f??r Menschen, Tiere und Pflanzen. Modified: deployed/bos/projects/bos/payment-website/templates/de/idea_subtitle1.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/idea_subtitle1.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/idea_subtitle1.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +???
Agrarprodukte sch??tzen die jungen Tropenb??ume vor dem ??berwuchern mit Alang-Alang-Gras. B??ume verbessern die Boden- qualit??t und spenden Schatten.

- Fr??chte wie Papaya und Ananas werden den Bauern garantiert von BOS abgekauft, regional vermarktet oder dienen der Eigenversorgung. Allein f??r die Versorgung der Orang-Utans in der nahe gelegenen Rehabilitationsstation Wanariset werden rund 1000 kg Fr??chte t??glich ben??tigt. + Fr??chte wie Papaya und Ananas werden den Bauern garantiert von BOS abgekauft, regional vermarktet oder dienen der Eigenversorgung. Allein f??r die Versorgung von 200 Orang-Utans in der Rehabilitationsstation Wanariset-Samboja werden ??ber 1000 kg Fr??chte t??glich ben??tigt. @@ -55,17 +55,16 @@ src="/images/pfeil_link_on.gif" width="10" height="9" alt="" /> Ring aus Zuckerpalmplantagen angelegt. ??ber -650 Familien werden vom Zucker als Hauptprodukt profitieren. Der Ring +Hunderte Familien sollen in Zukunft vom Zucker als Hauptprodukt profitieren. Der Ring sch??tzt das Naturreservat vor den gef??rchteten Waldbr??nden als -Feuerbarriere.

Ein innerer Schutzring aus dicht wachsenden, -stacheligen Salakpalmen verhindert das Eindringen von Menschen in das -Schutzgebiet und das Ausbrechen von Orang-Utans. Die Fr??chte der +Feuerbarriere.

Ein innerer Schutzring aus dicht wachsenden, stacheligen Salakpalmen soll das Eindringen von Rindern der +lokalen Landwirte in das Aufforstungsgebiet und das Ausbrechen von Orang-Utans erschweren. Die Fr??chte der Salakpalme sind zudem wohlschmeckende Nahrung f??r Mensch und Tier. -Ultraleichtflugzeuge und moderne Satellitentechnik unterst??tzen die st??ndige ??berwachung der BOS-Projekte aus Luft und Weltraum. Illegaler Holzeinschlag sowie Brandrodung k??nnen so auch in Samboja Lestari sehr viel effektiver verfolgt werden. + Modified: deployed/bos/projects/bos/payment-website/templates/de/idea_subtitle2.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/idea_subtitle2.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/idea_subtitle2.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +??? - Sie finanzieren den Landkauf, ??kologische Aufforstung, eine Baumschule, ??kologische Landwirtschaft, - Zuckerpalmplantagen, L??hne f??r indonesische Mitarbeiter, ??berwachung und Schutz des Gebietes, - Feuerbek??mpfung, Umweltbildung, Infrastruktur, Forschung und Arboretum, Orang-Utan-Inseln und das - Malaienb??rareal. + Sie finanzieren die Pacht bzw. Konzessionen f??r das Land, ??kologische Aufforstung, eine Baumschule, ??kologische Landwirtschaft, Zuckerpalmplantagen +als Feuerschutz und Einkommensquelle, +L??hne f??r indonesische MitarbeiterInnen, ??berwachung und Schutz des Gebietes, Feuerbek??mpfung, Umweltbildung, Infrastruktur, Forschung und Arboretum, Orang-Utan-Inseln und das Malaienb??rareal. @@ -44,18 +43,17 @@ Leisten Sie einen Beitrag f??r eine bessere Zukunft und beobachten Sie den Projektverlauf von Samboja Lestari im Internet. Jeder m??, den Sie symbolisch erwerben, wird Ihnen durch ein pers??nliches Profil zugeordnet. ??ber ein Kennwort k??nnen Sie diese m?? jederzeit leicht wieder finden. - Es k??nnen auch kurze Infotexte "auf" den jeweiligen m?? hinterlassen werden, um sich mit anderen - Regenwaldsponsoren auszutauschen. Besucher dieser Internetseite d??rfen in alle m?? und deren - pers??nliche Profile einblicken. + Es k??nnen auch kurze Infotexte "auf" den jeweiligen m?? hinterlassen werden, um sich mit anderen Lebenswaldunterst??tzerInnen auszutauschen. +BesucherInnen dieser Internetseite k??nnen in alle m?? und deren pers??nliche Profile einblicken.

Beobachten Sie "Ihre" Fl??che aus unterschiedlichen Perspektiven bei der Entwicklung. BOS bietet Ihnen einen transparenten Einblick u.a. ??ber Satellitenbilder und berichtet regelm????ig ??ber die Fortschritte vor Ort.

- Unterst??tzen Sie das Projekt und Sie erhalten eine Regenwald-Urkunde. Sie k??nnen m?? auch an Ihre + Unterst??tzen Sie das Projekt und Sie erhalten eine Lebenswald-Urkunde. Sie k??nnen m?? auch an Ihre Freunde, Verwandten und Bekannten verschenken.

- Machen Sie mit und sehen Sie Regenwald wachsen! + Machen Sie mit und schaffen auch Sie Lebenswald! Modified: deployed/bos/projects/bos/payment-website/templates/de/impressum.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/impressum.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/impressum.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -9,12 +9,11 @@ xmlns:bos="http://headcraft.de/bos" > -

Imprint

+

Impressum

- www.create-rainforest.org ist eine Webseite von:

+ www.schafft-lebenswald.de ist eine Webseite von:

- The Borneo Orangutan Survival Foundation (BOS) in Zusammenarbeit mit der - Schwesterorganisation BOS Deutschland e.V..

+ BOS Deutschland e.V. in Zusammenarbeit mit The Borneo Orangutan Survival Foundation (BOS)

Postanschrift:

BOS Deutschland e.V.

@@ -37,7 +36,7 @@

1. Vorsitzender: Boris Thiemig
2. Vorsitzender: Maik Schaffer

- BOS Deutschland e.V. ist im Vereinsregister des Amtsgerichtes Berlin-Charlottenburg unter Nr. 24216 Nz. eingetragen.

+ BOS Deutschland e.V. ist im Vereinsregister des Amtsgerichtes Berlin-Charlottenburg unter VR 24216 B eingetragen.

Die Fotos auf der Webseite sind copyrightgesch??tzt und stehen f??r kommerzielle Zwecke nicht frei zur Verf??gung. Wenn Sie Fotos von BOS nutzen m??chten, wenden Sie sich bitte an die oben genannte Kontaktadresse.

Wenn Sie Fragen haben sollten, schreiben Sie eine E-Mail oder rufen Sie uns an.

Modified: deployed/bos/projects/bos/payment-website/templates/de/index.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/index.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/index.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +??? -BOS schafft durch ein einzigartiges Aufforstungskonzept die vielleicht -letzte Zufluchtst??tte f??r Orang-Utans, Malaienb??ren und andere -bedrohte Arten in Borneo. Die Fortschritte k??nnen Sie direkt hier im -Internet beobachten. +BOS regeneriert durch ein einzigartiges Aufforstungskonzept nicht nur den Regenwald, +sondern schafft gleichzeitig auch eine Zufluchtst??tte f??r Orang-Utans, Malaienb??ren und andere bedrohte Arten auf Borneo. +Die Fortschritte k??nnen Sie auf dieser Webseite und ??ber google earth beobachten.
... Modified: deployed/bos/projects/bos/payment-website/templates/de/infosys-help-uebersicht.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/infosys-help-uebersicht.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/infosys-help-uebersicht.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +???

- Auf der ??bersichtskarte sehen Sie verschiedene Icons, die Sie anklicken k??nnen und die sie zu weiteren Bildern + Auf der ??bersichtskarte sehen Sie verschiedene Symbole, die Sie anklicken k??nnen und die sie zu weiteren Bildern f??hren:

@@ -34,7 +34,7 @@ @@ -44,7 +44,7 @@ @@ -55,20 +55,20 @@
- Dieses Icon markiert einen sehensw??rdigen Punkt auf dem Projektgel??nde. + Dieses Symbol markiert einen sehensw??rdigen Punkt auf dem Projektgel??nde.
- Verkaufsgebiet f??r Quadratmeter, hier k??nnen die Profile der + Verkaufsgebiet f??r Quadratmeter, hier k??nnen Sie die Profile der Quadratmetersponsoren einsehen. - Hier sind "Ihre" Quadratmeter. Dieses Icon wird nur angezeigt, wenn + Hier sind "Ihre" Quadratmeter. Dieses Symbol wird nur angezeigt, wenn Sie sich angemeldet haben.
-

??ber die Liste unter "Points of Interest" links gelangen Sie direkt zum von Ihnen angeklickten +

??ber die Liste "Points of Interest" gelangen Sie direkt zum von Ihnen angeklickten sehensw??rdigen Punkt.

Um aus einer der Unterebenen wieder zur ??bersicht zu gelangen, klicken Sie bitte auf die links oben angezeigte ??bersichtskarte.

Falls Sie bereits Quadratmeter gesponsort haben, k??nnen Sie sich durch Eingabe Ihrer Sponsor-ID - und Ihres Kennworts oder Ihres Mastercodes in des Login-Feld links unten anmelden. Sie haben - dann Zugriff auf Ihr Sponsoren-Profil und k??nnen Ihren Sponsoren-Status sowie ggf. Ihre Regenwald-Urkunde + und Ihres Kennworts oder Ihres Mastercodes in das Login-Feld links unten anmelden. Sie haben + dann Zugriff auf Ihr Sponsoren-Profil und k??nnen Ihren Sponsoren-Status sowie ggf. Ihre Lebenswald-Urkunde im PDF-Format abrufen.

Wir w??nschen Ihnen viel Spa?? bei Ihrer virtuellen Entdeckungsreise nach Samboja Lestari!

Modified: deployed/bos/projects/bos/payment-website/templates/de/privacy.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/de/privacy.xml 2009-08-21 12:40:26 UTC (rev 4447) +++ deployed/bos/projects/bos/payment-website/templates/de/privacy.xml 2009-08-27 10:08:27 UTC (rev 4448) @@ -1,4 +1,4 @@ - +???