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

[bknr-cvs] hans changed deployed/bos/projects/bos/payment-website/templates/de/
by BKNR Commits 27 Aug '09

27 Aug '09

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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -90,7 +90,7 @@ </td> </tr> <tr> - <td colspan="2">Dort finden Sie auch Links zu unseren BOS- Schwesterorganisationen weltweit.</td> + <td colspan="2">Dort finden Sie auch Links zu den BOS- Unterstützerorganisationen weltweit.</td> </tr> </table> </div> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -8,7 +8,7 @@ xmlns:bknr="http://bknr.net" xmlns:bos="http://headcraft.de/bos" > - <h1 class="extra">So sieht Ihre Regenwald-Urkunde aus:</h1> + <h1 class="extra">So sieht Ihre Lebenswald-Urkunde aus:</h1> <center> <img src="/images/certificat.jpg" width="300" height="424" alt="" border="0" /> </center> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -77,7 +77,7 @@ </td> </tr> <tr> - <td>Dort finden Sie auch Links zu unseren BOS- Schwesterorganisationen weltweit. + <td>Dort finden Sie auch Links zu den BOS- Unterstützerorganisationen weltweit. </td> </tr> </table> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -13,14 +13,9 @@ 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. </bknr:toplevel> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -38,9 +38,7 @@ Der Naturschutz und die Bedürfnisse der Bevölkerung dürfen sich nicht im Wege stehen. 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. </td> @@ -81,8 +79,7 @@ </tr> <tr> <td colspan="3"> - 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. </td> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -36,13 +36,13 @@ Orang-Utans, auch Menschen des Waldes genannt, gehören zu den unmittelbar vom Aussterben bedrohten Menschenaffen. 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. </td> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -15,9 +15,9 @@ <tr> <td colspan="3"> - Samboja Lestari - kreative Aufforstung. + Samboja Lestari - kreative Aufforstung - Eine Zufluchtstätte für Borneo + und Zufluchtstätte für bedrohte Tierarten. </td> </tr> @@ -29,20 +29,20 @@ <tr><td height="6"></td></tr> <tr> <td colspan="3"> - 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 <a href="/de/satmap" class="titlegreen"> Samboja Lestari </a> 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. </td> <td></td> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -31,7 +31,7 @@ Während der frühen Aufforstungsphase bauen die indonesischen Landwirte gewinnbringende Agrarprodukte zwischen den neu gepflanzten Bäumen an. Landwirtschaft und Aufforstung beeinflussen sich positiv durch viele Faktoren. 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.</td> + 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. </td> <td></td> </tr> <tr><td height="6"></td></tr> @@ -55,17 +55,16 @@ src="/images/pfeil_link_on.gif" width="10" height="9" alt="" /> <a href="javascript:javascript:window_ringdetail();" class="content_green">Ring</a> 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. </td> </tr> <tr><td colspan="3"> -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. + </td> </tr> </table> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -29,10 +29,9 @@ </tr> <tr> <td colspan="2"> - 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. </td> <td> <img src="/images/projekt_pic.jpg" width="240" height="120" /> @@ -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! </td> </tr> 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" > <bos:set-cachable/> - <h1 class="extra">Imprint</h1> + <h1 class="extra">Impressum</h1> - 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -35,10 +35,9 @@ <tr><td height="6"></td></tr> <tr> <td colspan="3"> -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. ... <a href="idea" class="more"> 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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -14,7 +14,7 @@ Hier können Sie sich selbst ein Bild über das Projektgelände in Samboja Lestari machen, sowie nachsehen, wo sich die von Ihnen gesponsorten Quadratmeter auf dem Gelände befinden. - 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: <table border="0"> @@ -34,7 +34,7 @@ <img src="/images/palme.gif" border="0" /> </td> <td> - Dieses Icon markiert einen sehenswürdigen Punkt auf dem Projektgelände. + Dieses Symbol markiert einen sehenswürdigen Punkt auf dem Projektgelände. </td> <td width="20"> </td> </tr> @@ -44,7 +44,7 @@ <img src="/images/sale.gif" border="0" /> </td> <td> - Verkaufsgebiet für Quadratmeter, hier können die Profile der + Verkaufsgebiet für Quadratmeter, hier können Sie die Profile der Quadratmetersponsoren einsehen. </td> <td width="20"> </td> @@ -55,20 +55,20 @@ <img src="/images/qm.gif" border="0" /> </td> <td> - Hier sind "Ihre" Quadratmeter. Dieses Icon wird nur angezeigt, wenn + Hier sind "Ihre" Quadratmeter. Dieses Symbol wird nur angezeigt, wenn Sie sich angemeldet haben. </td> <td width="20"> </td> </tr> </table> - Ü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 @@ -<?xml version="1.0" encoding="UTF-8"?> +<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <bknr:toplevel @@ -15,10 +15,10 @@ Der Schutz Ihrer persönlichen Daten durch elektronische Verarbeitung ist BOS Deutschland e.V. ein wichtiges Anliegen und streng -reglementiert. BOS Deutschland e.V. ist ein gemeinnützig anerkannter -Verein und unterliegt dem Bundesdatenschutzgesetz (BDSG). Eingetragen -in das Vereinsregister: Amtsgericht Charlottenburg, Berlin, Nr. 24216 -Nz; Freistellungsbescheid: Finanzamt für Körperschaften I Berlin, +reglementiert. BOS Deutschland e.V. ist als gemeinnütziger und besonders förderungswürdiger +Verein anerkannt und unterliegt dem Bundesdatenschutzgesetz (BDSG). Eingetragen +in das Vereinsregister: Amtsgericht Charlottenburg, Berlin, VR 24216 +B Freistellungsbescheid: Finanzamt für Körperschaften I Berlin, St.Nr.: 27/661/56139. Spenden und Mitgliedsbeiträge sind steuerabzugsfähig. @@ -42,7 +42,7 @@ persönlichen Grußtext. Alle Profilinformationen (ausschließlich E-Mail-Adresse und Postadresse) sind für jeden Besucher unserer Webseite einsehbar. Hierdurch soll eine größtmögliche Transparenz und -Interaktion zwischen den Sponsoren gefördert +Interaktion zwischen den SpenderInnen gefördert werden. Profilinformationen können von der betreffenden Person durch Kennwortzugang jederzeit geändert werden. Hierüber ist es ist Ihnen auch möglich, anonym zu bleiben.

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/request.lisp
by BKNR Commits 21 Aug '09

21 Aug '09

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

1 0

[bknr-cvs] hans changed trunk/projects/planetwit/
by BKNR Commits 20 Aug '09

20 Aug '09

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

1 0

[bknr-cvs] hans changed trunk/projects/planetwit/
by BKNR Commits 20 Aug '09

20 Aug '09

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)

1 0

[bknr-cvs] hans changed trunk/projects/planetwit/planetwit.clj
by BKNR Commits 20 Aug '09

20 Aug '09

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)))))

1 0

[bknr-cvs] hans changed trunk/projects/planetwit/planetwit.clj
by BKNR Commits 20 Aug '09

20 Aug '09

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))))) +

1 0

[bknr-cvs] hans changed trunk/projects/planetwit/planetwit.clj
by BKNR Commits 19 Aug '09

19 Aug '09

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))))

1 0

[bknr-cvs] hans changed trunk/projects/planetwit/planetwit.clj
by BKNR Commits 19 Aug '09

19 Aug '09

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) - #{} [])))) + []))))

1 0

[bknr-cvs] hans changed trunk/projects/planetwit/
by BKNR Commits 19 Aug '09

19 Aug '09

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) #{} []))))

1 0