VV-WSV 1102 - Benutzerbeiträge [de]

Hauptseite

2025-06-10T13:02:23Z

ArxioWikiSysop:

Dieses Wiki enthält die Begriffsbestimmungen der VV-WSV 1102, Teil 2.

Die VV-WSV 1102 ist eine Verwaltungsvorschrift des Bundesministeriums für Verkehr für den Geschäftsbereich der WSV. Die im Objektkatalog definierten Begriffe werden insbesondere bei der Identifikation der baulichen und sonstigen technischen Anlagen an den Bundeswasserstraßen verwendet. Der Teil 2 der Vorschrift enthält das für den Verwaltungsgebrauch bestimmte Begriffsglossar.

* [[:Kategorie:Begriff|Begriffe]]

VV-WSV 1102:Impressum

2024-10-01T07:48:01Z

ArxioWikiSysop: Jan Kayser

==Impressum==

Das Internetangebot wird herausgegeben von:

'''Bundesanstalt für Wasserbau'''<br />
Kußmaulstraße 17 <br />
76187 Karlsruhe <br />

Postanschrift: <br />
Postfach 21 03 53 <br />
76152 Karlsruhe <br />

Telefon: 07 21/97 26-0 <br />
Fax: 07 21/97 26-4540 <br />
E-Mail: [mailto:info@baw.de info@baw.de] <br />

'''Vertretungsbefugte Person''' <br />
Dr.-Ing. Jan Kayser <br />
Telefon: +49 (721) 9726-3000 <br />
[mailto:jan.kayser@baw.de jan.kayser@baw.de] <br />

'''Verantwortlich''' <br />
Peter Weinmann <br />
[mailto:peter.weinmann@baw.de peter.weinmann@baw.de] <br />

'''Redaktionelle Leitung''' <br />
Jennifer Pfrommer <br />
[mailto:jennifer.pfrommer@baw.de jennifer.pfrommer@baw.de] <br />

'''Gestaltung, Realisierung''' <br />
arxio GmbH (Programmierung, Umsetzung) <br />
http://www.arxio.de <br />

===Hinweis===

Für Vollständigkeit, Fehler redaktioneller und technischer Art, Auslassungen usw. sowie die Richtigkeit der Eintragungen kann keine Haftung übernommen werden.

Insbesondere kann keine Gewähr für die Vollständigkeit und Richtigkeit von Informationen übernommen werden, die über weiterführende Links erreicht werden. Anbieter sind für die eigenen Inhalte, die sie zur Nutzung bereithalten, nach den allgemeinen Gesetzen verantwortlich. Von diesen eigenen Inhalten sind Querverweise auf die von anderen Anbietern bereitgehaltenen Inhalte zu unterscheiden.

Die Verweise durch Hyperlinks auf Inhalte fremder Webseiten dienen lediglich der Information.
Die Verantwortlichkeit für diese fremden Inhalte liegt alleine bei dem Anbieter, der die Inhalte bereithält. Vor dem Einrichten des entsprechenden Verweises sind die Web-Seiten der anderen Anbieter mit großer Sorgfalt und nach bestem Wissen und Gewissen überprüft worden. Es kann jedoch keine Gewähr für die Vollständigkeit und Richtigkeit von Informationen übernommen werden, die über weiterführende Hyperlinks erreicht werden. Der Inhalt der anderen Web-Seiten kann jederzeit ohne Wissen der Bundesanstalt für Wasserbau geändert werden. Für sämtliche Links auf diesen Seiten gilt: Wir betonen, dass wir keinen Einfluss auf die Gestaltung und die Inhalte der durch Link von unserer Homepage aus erreichbaren Seiten anderer Anbieter haben und uns deren Inhalt nicht zu eigen machen. Diese Erklärung gilt für alle Seiten dieser Homepage und die dort angebrachten Links.

Falls die Bundesanstalt für Wasserbau auf Seiten verweist, deren Inhalt Anlass zur Beanstandung gibt, bitten wir um Mitteilung.
Die Bundesanstalt für Wasserbau behält sich das Recht vor, ohne vorherige Ankündigung die bereitgestellten Informationen zu ändern, zu ergänzen oder zu entfernen.
===Urheberrecht===

Das Copyright für Texte liegt, soweit nicht anders vermerkt, bei der Bundesanstalt für Wasserbau.

Das Copyright für Bilder liegt, soweit nicht anders vermerkt, bei der Bundesanstalt für Wasserbau oder bei der Wasser- und Schifffahrtsverwaltung des Bundes.

Auf diesen Webseiten zur Verfügung gestellte Texte, Textteile, Grafiken, Tabellen oder Bildmaterialien dürfen ohne vorherige Zustimmung der Bundesanstalt für Wasserbau nicht vervielfältigt, nicht verbreitet und nicht ausgestellt werden.

===Nutzungsbedingungen für Bilder===

# Die Bundesansalt für Wasserbau hat alle Nutzungsrechte von den Urhebern der digitalen Bilder erworben, soweit nichts Gegenteiliges, z.B. in den begleitenden Bildinformationen, angegeben ist.
# Die Bildinformationen und die darin enthaltenen Nutzungs- und Verwendungsbeschränkungen sind zu beachten. Für die aus der Nichtbeachtung resultierenden Schäden haftet der Nutzer. Er hat die Bundesanstalt für Wasserbau insoweit von Ansprüchen Dritter freizustellen. Für die Nutzung des Bildmaterials im historischen Bildarchiv der Bundeswasserstraßen gelten gesonderte Nutzungsbedingungen.
# Die Bilder können grundsätzlich kostenfrei heruntergeladen und im Rahmen der Berichterstattung für folgende Zwecke genutzt werden:
#* Presseveröffentlichungen
#* Veröffentlichungen durch Film und Fernsehen
#:Eine darüber hinausgehende Nutzung für kommerzielle Zwecke, insbesondere für Werbezwecke, ist nicht zulässig.
# Jegliche Bearbeitung, Umgestaltung oder Manipulation der digitalen Bilder, die über Farbkorrekturen, Ausschnitte und Verkleinerungen hinausgehen, ist unzulässig und nur mit vorheriger schriftlicher Zustimmung seitens der Bundesanstalt für Wasserbau erlaubt. Ebenso darf das digitale Bild nicht in einem sinnentstellten Zusammenhang wiedergegeben werden.
# Eine Entstellung des urheberrechtlichen geschützten Werks in Bild, Wort bzw. jeglicher anderen Form, z.B. durch Nachfotografieren, zeichnerische Verfälschung, Fotocomposing oder elektronische Hilfsmittel ist nicht zulässig. Der Nutzer trägt die Verantwortung für die Betextung.
# Die Presse ist insbesondere zur Beachtung der publizistischen Grundsätze des Deutschen Presserates (Pressecodex) verpflichtet. Die Zustimmung zur Nutzung des Bildmaterials umfasst nicht die Zusicherung, dass die abgebildeten Personen, die Inhaber der Rechte an abgebildeten Werken oder die Inhaber von Marken- und sonstigen Schutzrechten die Einwilligung zu einer öffentlichen Wiedergabe erteilt haben. Die Einholung der im Einzelfall notwendigen Einwilligungen Dritter obliegt dem Nutzer. Er hat die Persönlichkeits-, Urheber-, Marken- und sonstigen Schutzrechte von abgebildeten Personen, Werken, Gegenständen oder Zeichen selbst zu beachten. Bei Missachtung solcher Rechte ist allein der Nutzer etwaigen Dritten gegenüber schadenersatzpflichtig.
# Die Bundesanstalt für Wasserbau behält sich vor, dem Verdacht einer missbräuchlichen Nutzung oder einer wesentlichen Nutzungsverletzung nachzugehen.
# Bei Verwendung des digitalen Bildes ist die Quelle "Vor- und Nachname des Fotografen/BAW" anzugeben. Dies gilt auch für elektronische Publikationen (z.B. Webseiten). Von jeder Veröffentlichung im Druck ist der Bundesanstalt für Wasserbau ein Belegexemplar unaufgefordert und kostenfrei zuzusenden.

VV-WSV 1102:Datenschutz

2024-05-28T14:47:12Z

ArxioWikiSysop:

==Datenschutzerklärung==

Die Bundesanstalt für Wasserbau nimmt den Schutz Ihrer personenbezogenen Daten sehr ernst. Wir möchten, dass Sie wissen, wann wir welche Daten erheben und wie wir sie verwenden. Wir haben technische und organisatorische Maßnahmen getroffen, die sicherstellen, dass die Vorschriften über den Datenschutz sowohl von uns als auch von externen Dienstleistern beachtet werden.

Für die Nutzung des Webangebots der Bundesanstalt für Wasserbau müssen grundsätzlich keine personenbezogenen Daten angegeben werden.

=== Zugriff auf das Internetangebot ===
Beim Besuch unserer Webseite zu Informationszwecken speichern unsere in Deutschland liegenden Server nur die personenbeziehbaren Daten, die ihr Browser an unsere Server übermittelt. In der Protokolldatei werden folgende Daten maximal 90 Tage gespeichert:

* IP-Adresse des Clients
* Identität des Client-PCs
* Zeitpunkt des Requests
* URL
* HTTP-Status-Code
* Größe des angefragten Objektes
* Referer
* Browsertyp und Version
Die gespeicherten Daten werden nur zur Optimierung des Internetangebotes ausgewertet.

=== Informationsmaterial, Newsletter, Kontaktformular ===
Wenn Sie Informationsmaterial oder Newsletter bestellen, fragen wir Sie nach Ihrem Namen und nach anderen persönlichen Informationen. Es unterliegt Ihrer freien Entscheidung, ob Sie diese Daten eingeben. Ihre Angaben speichern wir auf besonders geschützten Servern in Deutschland. Der Zugriff darauf ist nur wenigen besonders befugten Personen möglich, die mit der technischen oder redaktionellen Betreuung der Server befasst sind.
Über die auf unserer Webseite bereitgestellten Kontaktformulare können Sie direkt mit uns in Verbindung zu treten. Wir erheben, verarbeiten und nutzen die von Ihnen über ein Formular mitgeteilten Informationen ausschließlich für die Bearbeitung Ihres konkreten Anliegens und nur mit Ihrer Einwilligung.

=== Weitergabe personenbezogener Daten an Dritte ===
Wir verwenden Ihre personenbezogenen Informationen im Falle von Infobestellungen nur innerhalb der Bundesanstalt für Wasserbau und der mit dem Versand von Informationsmaterial beauftragten Unternehmen. Wir geben sie nicht ohne Ihre ausdrückliche Einwilligung an Dritte weiter. Soweit wir gesetzlich oder per Gerichtsbeschluss dazu verpflichtet sind, werden wir Ihre Daten an auskunftsberechtigte Stellen übermitteln.

=== Einsatz von Cookies ===
Bei einem Besuch unserer Website werden Informationen in Form eines Cookies auf Ihrem Rechner abgelegt. Cookies helfen unter vielen Aspekten, Ihren Besuch auf unserer Webseite einfacher, angenehmer und sinnvoller zu gestalten. Cookies sind Textdateien, die Ihr Webbrowser automatisch auf der Festplatte Ihres Computers speichert, wenn Sie unsere Internetseite besuchen.

Sie können Ihren Browser jederzeit mittels entsprechender Einstellung so konfigurieren, dass keine Cookies auf Ihrem Computer gespeichert werden und dadurch der Setzung von Cookies widersprechen. Zudem können Sie bereits gesetzte Cookies jederzeit über einen Internetbrowser oder andere Softwareprogramme löschen. Dies ist in allen gängigen Internetbrowsern möglich. Sofern Sie die Setzung von Cookies in dem genutzten Internetbrowser deaktivieren, sind unter Umständen nicht alle Funktionen unserer Internetseite nutzbar.

Wir nutzen nur technisch notwendige Cookies.

=== Statistik ===
Zur Optimierung unseres Angebots werten wir die Zugriffe auf unsere Seiten statistisch aus. Wir setzen dafür die Open-Source-Anwendung "AWStats" ein. AWStats nutzt für die Auswertung die Protokolldatei unseres Webservers. Die Informationen über Ihre Benutzung dieser Webseite werden nicht an Dritte weitergegeben.
Mit "AWStats" werden keine Daten an Server übermittelt, die außerhalb der Kontrolle der Bundesanstalt für Wasserbau liegen.
Aus den Daten erstellen wir keine Nutzerprofile und nutzen sie auch nicht für andere Zwecke.

===Links ===
Diese Datenschutzerklärung erstreckt sich nicht auf von unserer Webseite aus verlinkte Webseiten Dritter.
Für den Inhalt der verlinkten Seiten sind ausschließlich deren Anbieter verantwortlich. Offensichtlich rechtswidrige Inhalte waren zum Zeitpunkt der Verlinkung unter Anwendung eines zumutbaren Prüfungsmaßstabs nicht erkennbar. Bei Kenntnis von Rechtsverletzungen werden derartige Links unverzüglich entfernt.

=== Minderjährigenschutz ===
Personen unter 18 Jahren sollten ohne Zustimmung der Eltern oder Erziehungsberechtigten keine personenbezogenen Daten an uns übermitteln. Wir fordern keine personenbezogenen Daten von Kindern und Jugendlichen an. Wissentlich sammeln wir solche Daten nicht und geben sie auch nicht an Dritte weiter.

=== Auskunftsrecht, Berichtigung, Löschung ===
Sie haben jederzeit das Recht auf
* Auskunft,
* Berichtigung,
* Löschung,
* Einschränkung der Verarbeitung,
* Widerspruch gegen die Verarbeitung
* Datenübertragbarkeit
hinsichtlich der bezüglich Ihrer Person gespeicherten Daten, deren Herkunft und Empfänger sowie den Zweck der Speicherung, sofern nicht folgendes gilt:

Die Aufbewahrung von Bürgeranfragen in elektronischer Form erfolgt - wie auch in Papierform - gemäß den für die Aufbewahrung von Schriftgut geltenden Fristen der Registraturrichtlinie, welche die Gemeinsame Geschäftsordnung der Bundesministerien (GGO) ergänzt.

Sie können sich mit Fragen und Beschwerden an den Datenschutzbeauftragten der Bundesanstalt für Wasserbau wenden.

=== Behördlicher Datenschutzbeauftragter ===
Sigfrid Knapp<br/>
Telefon: +49 (0) 721 9726-4550<br/>
E-Mail: datenschutz@baw.de

Test123

2023-12-15T09:30:48Z

ArxioWikiSysop:

== Spielwiese ==
'''A<sub>T</sub> / 0,5 A<sub>S</sub>'''
{{#expr: 1 + 1 }}
[[Datei:Sed.png|mini|alternativtext=??|Titelbild FOX]]
== Test Extensions ==

=== Math ===
<math>E=mc^2</math>

<math><\frac{2+dc}{9}</math>

=== ReplaceText ===
Bernhardstraße

=== ImageMap ===
<imagemap>
Datei:Sed.png|150px|alternativtext=Fluss mit Schiff
default [[Hauptseite|zur Hauptseite]]
</imagemap>

=== PdfHandler ===
[[Datei:Testdatei.pdf|page=2|600px]]

=== LinkTitles ===
[[Absperrdamm]]

=== Cite ===
Siehe <ref>Müller-Hagedorn</ref>

== Literatur ==
<references />

Hauptseite

2023-12-15T09:30:28Z

ArxioWikiSysop:

Dieses Wiki enthält die Begriffsbestimmungen der VV-WSV 1102, Teil 2.

Die VV-WSV 1102 ist eine Verwaltungsvorschrift des Bundesministerium für Verkehr und digitale Infrastruktur für den Geschäftsbereich der WSV. Die im Objektkatalog definierten Begriffe werden insbesondere bei der Identifikation der baulichen und sonstigen technischen Anlagen an den Bundeswasserstraßen verwendet. Der Teil 2 der Vorschrift enthält das für den Verwaltungsgebrauch bestimmte Begriffsglossar.

* [[:Kategorie:Begriff|Begriffe]]

Test123

2023-12-15T09:30:06Z

ArxioWikiSysop:

== Spielwiese ==
'''A<sub>T</sub> / 0,5 A<sub>S</sub>'''
{{#expr: 1 + 1 }}
[[Datei:Sed.png|mini|alternativtext=??|Titelbild FOX]]
== Test Extensions ==

=== Math ===
<math>E=mc^2</math>

<math><\frac{2+dc}{9}</math>

=== ReplaceText ===
Bernhardstraße

=== ImageMap ===
<imagemap>
Datei:Sed.png|150px|alternativtext=Fluss mit Schiff
default [[Hauptseite|zur Hauptseite]]
</imagemap>

=== PdfHandler ===
[[Datei:Testdatei.pdf|page=2|600px]]

=== LinkTitles ===
[[Aalleiter]]

=== Cite ===
Siehe <ref>Müller-Hagedorn</ref>

== Literatur ==
<references />

Datei:Testdatei.pdf

2023-12-15T09:28:35Z

ArxioWikiSysop:

Test123

2023-12-15T09:27:34Z

ArxioWikiSysop: Die Seite wurde neu angelegt: „== Spielwiese == '''A<sub>T</sub> / 0,5 A<sub>S</sub>''' {{#expr: 1 + 1 }} Titelbild FOX == Test Extensions == === Math === <math>E=mc^2</math> <math><\frac{2+dc}{9}</math> === ReplaceText === Bernhardstraße === ImageMap === <imagemap> Datei:069 2023 Noss Titelbild.png|150px|alternativtext=Fluss mit Schiff default zur Hauptseite </imagemap> === PdfHandler ===…“

== Spielwiese ==
'''A<sub>T</sub> / 0,5 A<sub>S</sub>'''
{{#expr: 1 + 1 }}
[[Datei:069 2023 Noss Titelbild.png|mini|alternativtext=Fluss mit Schiff|Titelbild FOX]]
== Test Extensions ==

=== Math ===
<math>E=mc^2</math>

<math><\frac{2+dc}{9}</math>

=== ReplaceText ===
Bernhardstraße

=== ImageMap ===
<imagemap>
Datei:069 2023 Noss Titelbild.png|150px|alternativtext=Fluss mit Schiff
default [[Hauptseite|zur Hauptseite]]
</imagemap>

=== PdfHandler ===
[[Datei:Testdatei.pdf|page=2|600px]]

=== LinkTitles ===
[[Aalleiter]]

=== Cite ===
Siehe <ref>Müller-Hagedorn</ref>

== Literatur ==
<references />

Hauptseite

2023-12-15T09:27:07Z

ArxioWikiSysop:

VV-WSV 1102:Impressum

2022-04-04T06:35:22Z

ArxioWikiSysop:

==Impressum==

Das Internetangebot wird herausgegeben von:

'''Bundesanstalt für Wasserbau'''<br />
Kußmaulstraße 17 <br />
76187 Karlsruhe <br />

Postanschrift: <br />
Postfach 21 03 53 <br />
76152 Karlsruhe <br />

Telefon: 07 21/97 26-0 <br />
Fax: 07 21/97 26-4540 <br />
E-Mail: [mailto:info@baw.de info@baw.de] <br />

'''Verantwortlich''' <br />
Peter Weinmann <br />
[mailto:peter.weinmann@baw.de peter.weinmann@baw.de] <br />

'''Redaktionelle Leitung''' <br />
Jennifer Pfrommer <br />
[mailto:jennifer.pfrommer@baw.de jennifer.pfrommer@baw.de] <br />

'''Gestaltung, Realisierung''' <br />
arxio GmbH (Programmierung, Umsetzung) <br />
http://www.arxio.de <br />

===Hinweis===

Für Vollständigkeit, Fehler redaktioneller und technischer Art, Auslassungen usw. sowie die Richtigkeit der Eintragungen kann keine Haftung übernommen werden.

Insbesondere kann keine Gewähr für die Vollständigkeit und Richtigkeit von Informationen übernommen werden, die über weiterführende Links erreicht werden. Anbieter sind für die eigenen Inhalte, die sie zur Nutzung bereithalten, nach den allgemeinen Gesetzen verantwortlich. Von diesen eigenen Inhalten sind Querverweise auf die von anderen Anbietern bereitgehaltenen Inhalte zu unterscheiden.

Die Verweise durch Hyperlinks auf Inhalte fremder Webseiten dienen lediglich der Information.
Die Verantwortlichkeit für diese fremden Inhalte liegt alleine bei dem Anbieter, der die Inhalte bereithält. Vor dem Einrichten des entsprechenden Verweises sind die Web-Seiten der anderen Anbieter mit großer Sorgfalt und nach bestem Wissen und Gewissen überprüft worden. Es kann jedoch keine Gewähr für die Vollständigkeit und Richtigkeit von Informationen übernommen werden, die über weiterführende Hyperlinks erreicht werden. Der Inhalt der anderen Web-Seiten kann jederzeit ohne Wissen der Bundesanstalt für Wasserbau geändert werden. Für sämtliche Links auf diesen Seiten gilt: Wir betonen, dass wir keinen Einfluss auf die Gestaltung und die Inhalte der durch Link von unserer Homepage aus erreichbaren Seiten anderer Anbieter haben und uns deren Inhalt nicht zu eigen machen. Diese Erklärung gilt für alle Seiten dieser Homepage und die dort angebrachten Links.

Falls die Bundesanstalt für Wasserbau auf Seiten verweist, deren Inhalt Anlass zur Beanstandung gibt, bitten wir um Mitteilung.
Die Bundesanstalt für Wasserbau behält sich das Recht vor, ohne vorherige Ankündigung die bereitgestellten Informationen zu ändern, zu ergänzen oder zu entfernen.
===Urheberrecht===

Das Copyright für Texte liegt, soweit nicht anders vermerkt, bei der Bundesanstalt für Wasserbau.

Das Copyright für Bilder liegt, soweit nicht anders vermerkt, bei der Bundesanstalt für Wasserbau oder bei der Wasser- und Schifffahrtsverwaltung des Bundes.

Auf diesen Webseiten zur Verfügung gestellte Texte, Textteile, Grafiken, Tabellen oder Bildmaterialien dürfen ohne vorherige Zustimmung der Bundesanstalt für Wasserbau nicht vervielfältigt, nicht verbreitet und nicht ausgestellt werden.

===Nutzungsbedingungen für Bilder===

# Die Bundesansalt für Wasserbau hat alle Nutzungsrechte von den Urhebern der digitalen Bilder erworben, soweit nichts Gegenteiliges, z.B. in den begleitenden Bildinformationen, angegeben ist.
# Die Bildinformationen und die darin enthaltenen Nutzungs- und Verwendungsbeschränkungen sind zu beachten. Für die aus der Nichtbeachtung resultierenden Schäden haftet der Nutzer. Er hat die Bundesanstalt für Wasserbau insoweit von Ansprüchen Dritter freizustellen. Für die Nutzung des Bildmaterials im historischen Bildarchiv der Bundeswasserstraßen gelten gesonderte Nutzungsbedingungen.
# Die Bilder können grundsätzlich kostenfrei heruntergeladen und im Rahmen der Berichterstattung für folgende Zwecke genutzt werden:
#* Presseveröffentlichungen
#* Veröffentlichungen durch Film und Fernsehen
#:Eine darüber hinausgehende Nutzung für kommerzielle Zwecke, insbesondere für Werbezwecke, ist nicht zulässig.
# Jegliche Bearbeitung, Umgestaltung oder Manipulation der digitalen Bilder, die über Farbkorrekturen, Ausschnitte und Verkleinerungen hinausgehen, ist unzulässig und nur mit vorheriger schriftlicher Zustimmung seitens der Bundesanstalt für Wasserbau erlaubt. Ebenso darf das digitale Bild nicht in einem sinnentstellten Zusammenhang wiedergegeben werden.
# Eine Entstellung des urheberrechtlichen geschützten Werks in Bild, Wort bzw. jeglicher anderen Form, z.B. durch Nachfotografieren, zeichnerische Verfälschung, Fotocomposing oder elektronische Hilfsmittel ist nicht zulässig. Der Nutzer trägt die Verantwortung für die Betextung.
# Die Presse ist insbesondere zur Beachtung der publizistischen Grundsätze des Deutschen Presserates (Pressecodex) verpflichtet. Die Zustimmung zur Nutzung des Bildmaterials umfasst nicht die Zusicherung, dass die abgebildeten Personen, die Inhaber der Rechte an abgebildeten Werken oder die Inhaber von Marken- und sonstigen Schutzrechten die Einwilligung zu einer öffentlichen Wiedergabe erteilt haben. Die Einholung der im Einzelfall notwendigen Einwilligungen Dritter obliegt dem Nutzer. Er hat die Persönlichkeits-, Urheber-, Marken- und sonstigen Schutzrechte von abgebildeten Personen, Werken, Gegenständen oder Zeichen selbst zu beachten. Bei Missachtung solcher Rechte ist allein der Nutzer etwaigen Dritten gegenüber schadenersatzpflichtig.
# Die Bundesanstalt für Wasserbau behält sich vor, dem Verdacht einer missbräuchlichen Nutzung oder einer wesentlichen Nutzungsverletzung nachzugehen.
# Bei Verwendung des digitalen Bildes ist die Quelle "Vor- und Nachname des Fotografen/BAW" anzugeben. Dies gilt auch für elektronische Publikationen (z.B. Webseiten). Von jeder Veröffentlichung im Druck ist der Bundesanstalt für Wasserbau ein Belegexemplar unaufgefordert und kostenfrei zuzusenden.

VV-WSV 1102:Datenschutz

2020-12-01T11:17:28Z

ArxioWikiSysop:

==Datenschutzerklärung==

Die Bundesanstalt für Wasserbau nimmt den Schutz Ihrer personenbezogenen Daten sehr ernst. Wir möchten, dass Sie wissen, wann wir welche Daten erheben und wie wir sie verwenden. Wir haben technische und organisatorische Maßnahmen getroffen, die sicherstellen, dass die Vorschriften über den Datenschutz sowohl von uns als auch von externen Dienstleistern beachtet werden.

Für die Nutzung des Webangebots der Bundesanstalt für Wasserbau müssen grundsätzlich keine personenbezogenen Daten angegeben werden.

=== Zugriff auf das Internetangebot ===
Beim Besuch unserer Webseite zu Informationszwecken speichern unsere in Deutschland liegenden Server nur die personenbeziehbaren Daten, die ihr Browser an unsere Server übermittelt. In der Protokolldatei werden folgende Daten maximal 30 Tage gespeichert:

* IP-Adresse des Clients
* Identität des Client-PCs
* Zeitpunkt des Requests
* URL
* HTTP-Status-Code
* Größe des angefragten Objektes
* Referer
* Browsertyp und Version
Die gespeicherten Daten werden nur zur Optimierung des Internetangebotes ausgewertet.

=== Informationsmaterial, Newsletter, Kontaktformular ===
Wenn Sie Informationsmaterial oder Newsletter bestellen, fragen wir Sie nach Ihrem Namen und nach anderen persönlichen Informationen. Es unterliegt Ihrer freien Entscheidung, ob Sie diese Daten eingeben. Ihre Angaben speichern wir auf besonders geschützten Servern in Deutschland. Der Zugriff darauf ist nur wenigen besonders befugten Personen möglich, die mit der technischen oder redaktionellen Betreuung der Server befasst sind.
Über die auf unserer Webseite bereitgestellten Kontaktformulare können Sie direkt mit uns in Verbindung zu treten. Wir erheben, verarbeiten und nutzen die von Ihnen über ein Formular mitgeteilten Informationen ausschließlich für die Bearbeitung Ihres konkreten Anliegens und nur mit Ihrer Einwilligung.

=== Weitergabe personenbezogener Daten an Dritte ===
Wir verwenden Ihre personenbezogenen Informationen im Falle von Infobestellungen nur innerhalb der Bundesanstalt für Wasserbau und der mit dem Versand von Informationsmaterial beauftragten Unternehmen. Wir geben sie nicht ohne Ihre ausdrückliche Einwilligung an Dritte weiter. Soweit wir gesetzlich oder per Gerichtsbeschluss dazu verpflichtet sind, werden wir Ihre Daten an auskunftsberechtigte Stellen übermitteln.

=== Einsatz von Cookies ===
Bei einem Besuch unserer Website werden Informationen in Form eines Cookies auf Ihrem Rechner abgelegt. Cookies helfen unter vielen Aspekten, Ihren Besuch auf unserer Webseite einfacher, angenehmer und sinnvoller zu gestalten. Cookies sind Textdateien, die Ihr Webbrowser automatisch auf der Festplatte Ihres Computers speichert, wenn Sie unsere Internetseite besuchen.

Sie können Ihren Browser jederzeit mittels entsprechender Einstellung so konfigurieren, dass keine Cookies auf Ihrem Computer gespeichert werden und dadurch der Setzung von Cookies widersprechen. Zudem können Sie bereits gesetzte Cookies jederzeit über einen Internetbrowser oder andere Softwareprogramme löschen. Dies ist in allen gängigen Internetbrowsern möglich. Sofern Sie die Setzung von Cookies in dem genutzten Internetbrowser deaktivieren, sind unter Umständen nicht alle Funktionen unserer Internetseite nutzbar.

Wir nutzen nur technisch notwendige Cookies.

=== Statistik ===
Zur Optimierung unseres Angebots werten wir die Zugriffe auf unsere Seiten statistisch aus. Wir setzen dafür die Open-Source-Anwendung "AWStats" ein. AWStats nutzt für die Auswertung die Protokolldatei unseres Webservers. Die Informationen über Ihre Benutzung dieser Webseite werden nicht an Dritte weitergegeben.
Mit "AWStats" werden keine Daten an Server übermittelt, die außerhalb der Kontrolle der Bundesanstalt für Wasserbau liegen.
Aus den Daten erstellen wir keine Nutzerprofile und nutzen sie auch nicht für andere Zwecke.

===Links ===
Diese Datenschutzerklärung erstreckt sich nicht auf von unserer Webseite aus verlinkte Webseiten Dritter.
Für den Inhalt der verlinkten Seiten sind ausschließlich deren Anbieter verantwortlich. Offensichtlich rechtswidrige Inhalte waren zum Zeitpunkt der Verlinkung unter Anwendung eines zumutbaren Prüfungsmaßstabs nicht erkennbar. Bei Kenntnis von Rechtsverletzungen werden derartige Links unverzüglich entfernt.

=== Minderjährigenschutz ===
Personen unter 18 Jahren sollten ohne Zustimmung der Eltern oder Erziehungsberechtigten keine personenbezogenen Daten an uns übermitteln. Wir fordern keine personenbezogenen Daten von Kindern und Jugendlichen an. Wissentlich sammeln wir solche Daten nicht und geben sie auch nicht an Dritte weiter.

=== Auskunftsrecht, Berichtigung, Löschung ===
Sie haben jederzeit das Recht auf
* Auskunft,
* Berichtigung,
* Löschung,
* Einschränkung der Verarbeitung,
* Widerspruch gegen die Verarbeitung
* Datenübertragbarkeit
hinsichtlich der bezüglich Ihrer Person gespeicherten Daten, deren Herkunft und Empfänger sowie den Zweck der Speicherung, sofern nicht folgendes gilt:

Die Aufbewahrung von Bürgeranfragen in elektronischer Form erfolgt - wie auch in Papierform - gemäß den für die Aufbewahrung von Schriftgut geltenden Fristen der Registraturrichtlinie, welche die Gemeinsame Geschäftsordnung der Bundesministerien (GGO) ergänzt.

Sie können sich mit Fragen und Beschwerden an den Datenschutzbeauftragten der Bundesanstalt für Wasserbau wenden.

=== Behördlicher Datenschutzbeauftragter ===
Sigfrid Knapp<br/>
Telefon: +49 (0) 721 9726-4550<br/>
E-Mail: datenschutz@baw.de

Kategorie:Begriff

2020-10-21T14:31:14Z

ArxioWikiSysop:

Modul:Vorlage:Dokumentation

2020-10-21T14:30:24Z

ArxioWikiSysop: 1 Version importiert

--[=[ 2019-07-29
{{Dokumentation}}
]=]

local Current = mw.title.getCurrentTitle()

local function fake( frame, access )
local s = string.format( "[%s/%s %s]",
"https://de.wikipedia.org/wiki",
mw.uri.encode( access, "WIKI" ),
"Doku in der echten deWP" )
local e = mw.html.create( "div" )
e:css( "border", "#A000A0 2px solid" )
:css( "padding", "1em" )
:wikitext( "[[Datei:Redirectltr.png|#REDIRECT|link=]]" )
:node( mw.html.create( "span" )
:addClass( "redirectText" )
:wikitext( s ) )
return tostring( e )
end -- fake()

local function fatal( amend )
local s = "Wikipedia:Vorlagenfehler/Vorlage:Dokumentation"
if amend then
s = string.format( "%s/%s", s, amend )
end
return string.format( "[[Kategorie:%s]]", s )
end -- fatal()

local function findeSchalter( area )
local i = area:find( "__", 1, true )
local r
if i then
r = area:find( "__TOC__", i, true ) or
area:find( "__NOTOC__", i, true ) or
area:find( "__INHALTSVERZEICHNIS__", i, true ) or
area:find( "__KEIN_INHALTSVERZEICHNIS__", i, true ) or
area:find( "__KEININHALTSVERZEICHNIS__", i, true )
end
return r
end -- findeSchalter()

local function findeTemplateDataTOC( area )
local i = area:find( "emplateData", 3, true )
local r
if i then
if area:find( "TOC", i + 11, true ) then
local k
if i > 100 then
i = i - 100
else
i = 1
end
i, k = area:find( "%{%{%s*[tT]emplateData%s*|", i )
if i then
r = area:find( "|%s*TOC%s*=%s*1%s*[|}]", k - 1 )
end
end
end
return r
end -- findeTemplateDataTOC()

local function furnish( area, frame )
local i = area:find( "==", 1, true )
local r
if i then
local seek = "==[^\n]+==\n"
local init, k, n
if i == 1 then
i, k = area:find( seek, 1 )
if i == 1 then
n = 1
end
end
seek = "\n" .. seek
if i and not n then
i, k = area:find( seek, i - 1 )
end
if i then
n = 1
init = i
i, k = area:find( seek, k - 1 )
if i then
n = 2
end
end
if n == 1 then
r = "__NOTOC__\n" .. area
elseif n == 2 then
local src = "TOC nonum/styles.css"
local toc = mw.html.create( "div" )
:newline()
:addClass( "nonumtoc" )
:wikitext( "__TOC__" )
:newline()
local styles = frame:extensionTag( "templatestyles",
nil,
{ src = src } )
toc = styles .. tostring( toc )
if init == 1 then
r = toc .. area
else
r = string.format( "%s%s%s",
area:sub( 1, init - 1 ),
toc,
area:sub( init ) )
end
end
end
return r or area
end -- furnish()

local function f( frame )
local bottom = { }
local doku = mw.title.makeTitle( Current.namespace,
Current.text .. "/Doku" )
local sub = Current.prefixedText .. "/Doku"
local r
if doku.exists then
r = frame:expandTemplate{ title = sub }
if not findeSchalter( r ) then
if not findeTemplateDataTOC( r ) then
r = furnish( r, frame )
end
end
bottom.lonely = "1"
else
local create = { action = "edit",
preload = "Vorlage:Dokumentation/preload-doku",
summary = "Neu angelegt",
redlink = "1" }
local path = { sub, mw.uri.buildQueryString( create ) }
local setup = frame:callParserFunction( "fullurl", path )
local button = { Typ = "progressive",
["Groß"] = "1",
Link = setup,
Text = "Neue Doku-Unterseite anlegen" }
r = frame:expandTemplate{ title = "MediaWiki-Button",
args = button }
if mw.site.server:match( "%.beta%.wmflabs%.org$" ) then
r = r .. fake( frame, sub )
elseif Current.namespace == 10 then
r = string.format( "%s[[Kategorie:%s]]",
r,
"Vorlage:nicht dokumentiert" )
end
end
r = r .. frame:expandTemplate{ title = "Dokumentation/footer",
args = bottom }
return r
end -- f()

local p = {}

function p.hastemplate( frame )
-- OBSOLETING
local r = Current.text:gsub( "/Doku$", "" )
:gsub( " ", "_" )
:gsub( "\"", """ )
if Current.namespace ~= 10 then
r = string.format( "%s:%s",
mw.site.namespaces[ Current.namespace ].name,
r )
end
return string.format( "hastemplate:%s+", r )
end -- p.hastemplate()

function p.transcludes()
local s = Current.text:gsub( "/Doku$", "" )
:gsub( " ", "_" )
:gsub( "\"", """ )
local t = mw.title.new( "Suche", -1 )
if Current.namespace ~= 10 then
s = string.format( "%s:%s",
mw.site.namespaces[ Current.namespace ].name,
s )
end
s = string.format( "hastemplate:%s ", s )
return t:fullUrl( { search = s } )
end -- p.transcludes()

function p.f( frame )
local lucky, r = pcall( f, frame )
if not lucky then
local e = mw.html.create( "span" )
:attr( "class", "error" )
:wikitext( r )
r = tostring( e ) .. fatal( "Intern" )
end
return r
end -- p.f()

return p

Modul:Text

2020-10-21T14:30:23Z

ArxioWikiSysop: 1 Version importiert

local Text = { serial = "2019-11-12",
suite = "Text",
item = 29387871 }
--[=[
Text utilities
]=]
local Failsafe = Text
local GlobalMod = Text

-- local globals
local PatternCJK = false
local PatternCombined = false
local PatternLatin = false
local PatternTerminated = false
local RangesLatin = false
local SeekQuote = false

local foreignModule = function ( access, advanced, append, alt, alert )
-- Fetch global module
-- Precondition:
-- access -- string, with name of base module
-- advanced -- true, for require(); else mw.loadData()
-- append -- string, with subpage part, if any; or false
-- alt -- number, of wikidata item of root; or false
-- alert -- true, for throwing error on data problem
-- Postcondition:
-- Returns whatever, probably table
-- 2019-10-29
local storage = access
local finer = function ()
if append then
storage = string.format( "%s/%s",
storage,
append )
end
end
local fun, lucky, r, suited
if advanced then
fun = require
else
fun = mw.loadData
end
GlobalMod.globalModules = GlobalMod.globalModules or { }
suited = GlobalMod.globalModules[ access ]
if not suited then
finer()
lucky, r = pcall( fun, "Module:" .. storage )
end
if not lucky then
if not suited and
type( alt ) == "number" and
alt > 0 then
suited = string.format( "Q%d", alt )
suited = mw.wikibase.getSitelink( suited )
GlobalMod.globalModules[ access ] = suited or true
end
if type( suited ) == "string" then
storage = suited
finer()
lucky, r = pcall( fun, storage )
end
if not lucky and alert then
error( "Missing or invalid page: " .. storage, 0 )
end
end
return r
end -- foreignModule()

local function factoryQuote()
-- Create quote definitions
if not Text.quoteLang then
local quoting = foreignModule( "Text",
false,
"quoting",
Text.item )
if type( quoting ) == "table" then
Text.quoteLang = quoting.langs
Text.quoteType = quoting.types
end
if type( Text.quoteLang ) ~= "table" then
Text.quoteLang = { }
end
if type( Text.quoteType ) ~= "table" then
Text.quoteType = { }
end
if type( Text.quoteLang.en ) ~= "string" then
Text.quoteLang.en = "ld"
end
if type( Text.quoteType[ Text.quoteLang.en ] ) ~= "table" then
Text.quoteType[ Text.quoteLang.en ] = { { 8220, 8221 },
{ 8216, 8217 } }
end
end
end -- factoryQuote()

local function fiatQuote( apply, alien, advance )
-- Quote text
-- Parameter:
-- apply -- string, with text
-- alien -- string, with language code
-- advance -- number, with level 1 or 2
local r = apply
local suite
factoryQuote()
suite = Text.quoteLang[ alien ]
if not suite then
local slang = alien:match( "^(%l+)-" )
if slang then
suite = Text.quoteLang[ slang ]
end
if not suite then
suite = Text.quoteLang.en
end
end
if suite then
local quotes = Text.quoteType[ suite ]
if quotes then
local space
if quotes[ 3 ] then
space = " "
else
space = ""
end
quotes = quotes[ advance ]
if quotes then
r = mw.ustring.format( "%s%s%s%s%s",
mw.ustring.char( quotes[ 1 ] ),
space,
apply,
space,
mw.ustring.char( quotes[ 2 ] ) )
end
else
mw.log( "fiatQuote() " .. suite )
end
end
return r
end -- fiatQuote()

Text.char = function ( apply, again, accept )
-- Create string from codepoints
-- Parameter:
-- apply -- table (sequence) with numerical codepoints, or nil
-- again -- number of repetitions, or nil
-- accept -- true, if no error messages to be appended
-- Returns: string
local r
if type( apply ) == "table" then
local bad = { }
local codes = { }
local s
for k, v in pairs( apply ) do
s = type( v )
if s == "number" then
if v < 32 and v ~= 9 and v ~= 10 then
v = tostring( v )
else
v = math.floor( v )
s = false
end
elseif s ~= "string" then
v = tostring( v )
end
if s then
table.insert( bad, v )
else
table.insert( codes, v )
end
end -- for k, v
if #bad == 0 then
if #codes > 0 then
r = mw.ustring.char( unpack( codes ) )
if again then
if type( again ) == "number" then
local n = math.floor( again )
if n > 1 then
r = r:rep( n )
elseif n < 1 then
r = ""
end
else
s = "bad repetitions: " .. tostring( again )
end
end
end
else
s = "bad codepoints: " .. table.concat( bad, " " )
end
if s and not accept then
r = tostring( mw.html.create( "span" )
:addClass( "error" )
:wikitext( s ) )
end
end
return r or ""
end -- Text.char()

Text.concatParams = function ( args, apply, adapt )
-- Concat list items into one string
-- Parameter:
-- args -- table (sequence) with numKey=string
-- apply -- string (optional); separator (default: "|")
-- adapt -- string (optional); format including "%s"
-- Returns: string
local collect = { }
for k, v in pairs( args ) do
if type( k ) == "number" then
v = mw.text.trim( v )
if v ~= "" then
if adapt then
v = mw.ustring.format( adapt, v )
end
table.insert( collect, v )
end
end
end -- for k, v
return table.concat( collect, apply or "|" )
end -- Text.concatParams()

Text.containsCJK = function ( analyse )
-- Is any CJK code within?
-- Parameter:
-- analyse -- string
-- Returns: true, if CJK detected
local r
if not PatternCJK then
PatternCJK = mw.ustring.char( 91,
13312, 45, 40959,
131072, 45, 178207,
93 )
end
if mw.ustring.find( analyse, PatternCJK ) then
r = true
else
r = false
end
return r
end -- Text.containsCJK()

Text.getPlain = function ( adjust )
-- Remove wikisyntax from string, except templates
-- Parameter:
-- adjust -- string
-- Returns: string
local i = adjust:find( "", i + 3, true )
if j then
r = r:sub( 1, i ) .. r:sub( j + 3 )
else
r = r:sub( 1, i )
end
i = r:find( "<!--", i, true )
end -- "<!--"
r = r:gsub( "(</?%l[^>]*>)", "" )
:gsub( "'''(.+)'''", "%1" )
:gsub( "''(.+)''", "%1" )
:gsub( " ", " " )
return mw.text.unstrip( r )
end -- Text.getPlain()

Text.isLatinRange = function ( adjust )
-- Are characters expected to be latin or symbols within latin texts?
-- Precondition:
-- adjust -- string, or nil for initialization
-- Returns: true, if valid for latin only
local r
if not RangesLatin then
RangesLatin = { { 7, 687 },
{ 7531, 7578 },
{ 7680, 7935 },
{ 8194, 8250 } }
end
if not PatternLatin then
local range
PatternLatin = "^["
for i = 1, #RangesLatin do
range = RangesLatin[ i ]
PatternLatin = PatternLatin ..
mw.ustring.char( range[ 1 ], 45, range[ 2 ] )
end -- for i
PatternLatin = PatternLatin .. "]*$"
end
if adjust then
if mw.ustring.match( adjust, PatternLatin ) then
r = true
else
r = false
end
end
return r
end -- Text.isLatinRange()

Text.isQuote = function ( ask )
-- Is this character any quotation mark?
-- Parameter:
-- ask -- string, with single character
-- Returns: true, if ask is quotation mark
local r
if not SeekQuote then
SeekQuote = mw.ustring.char( 34, -- "
39, -- '
171, -- laquo
187, -- raquo
8216, -- lsquo
8217, -- rsquo
8218, -- sbquo
8220, -- ldquo
8221, -- rdquo
8222, -- bdquo
8249, -- lsaquo
8250, -- rsaquo
0x300C, -- CJK
0x300D, -- CJK
0x300E, -- CJK
0x300F ) -- CJK
end
if ask == "" then
r = false
elseif mw.ustring.find( SeekQuote, ask, 1, true ) then
r = true
else
r = false
end
return r
end -- Text.isQuote()

Text.listToText = function ( args, adapt )
-- Format list items similar to mw.text.listToText()
-- Parameter:
-- args -- table (sequence) with numKey=string
-- adapt -- string (optional); format including "%s"
-- Returns: string
local collect = { }
for k, v in pairs( args ) do
if type( k ) == "number" then
v = mw.text.trim( v )
if v ~= "" then
if adapt then
v = mw.ustring.format( adapt, v )
end
table.insert( collect, v )
end
end
end -- for k, v
return mw.text.listToText( collect )
end -- Text.listToText()

Text.quote = function ( apply, alien, advance )
-- Quote text
-- Parameter:
-- apply -- string, with text
-- alien -- string, with language code, or nil
-- advance -- number, with level 1 or 2, or nil
-- Returns: quoted string
local mode, slang
if type( alien ) == "string" then
slang = mw.text.trim( alien ):lower()
else
slang = mw.title.getCurrentTitle().pageLanguage
if not slang then
-- TODO FIXME: Introduction expected 2017-04
slang = mw.language.getContentLanguage():getCode()
end
end
if advance == 2 then
mode = 2
else
mode = 1
end
return fiatQuote( mw.text.trim( apply ), slang, mode )
end -- Text.quote()

Text.quoteUnquoted = function ( apply, alien, advance )
-- Quote text, if not yet quoted and not empty
-- Parameter:
-- apply -- string, with text
-- alien -- string, with language code, or nil
-- advance -- number, with level 1 or 2, or nil
-- Returns: string; possibly quoted
local r = mw.text.trim( apply )
local s = mw.ustring.sub( r, 1, 1 )
if s ~= "" and not Text.isQuote( s, advance ) then
s = mw.ustring.sub( r, -1, 1 )
if not Text.isQuote( s ) then
r = Text.quote( r, alien, advance )
end
end
return r
end -- Text.quoteUnquoted()

Text.removeDiacritics = function ( adjust )
-- Remove all diacritics
-- Parameter:
-- adjust -- string
-- Returns: string; all latin letters should be ASCII
-- or basic greek or cyrillic or symbols etc.
local cleanup, decomposed
if not PatternCombined then
PatternCombined = mw.ustring.char( 91,
0x0300, 45, 0x036F,
0x1AB0, 45, 0x1AFF,
0x1DC0, 45, 0x1DFF,
0xFE20, 45, 0xFE2F,
93 )
end
decomposed = mw.ustring.toNFD( adjust )
cleanup = mw.ustring.gsub( decomposed, PatternCombined, "" )
return mw.ustring.toNFC( cleanup )
end -- Text.removeDiacritics()

Text.sentenceTerminated = function ( analyse )
-- Is string terminated by dot, question or exclamation mark?
-- Quotation, link termination and so on granted
-- Parameter:
-- analyse -- string
-- Returns: true, if sentence terminated
local r = mw.text.trim( analyse )
if not PatternTerminated then
PatternTerminated = mw.ustring.char( 91,
12290,
65281,
65294,
65311 )
.. "!%.%?…][\"'%]‹›«»‘’“”]*$"
end
if mw.ustring.find( r, PatternTerminated ) then
r = true
else
r = false
end
return r
end -- Text.sentenceTerminated()

Text.ucfirstAll = function ( adjust )
-- Capitalize all words
-- Precondition:
-- adjust -- string
-- Returns: string with all first letters in upper case
local r = " " .. adjust
local i = 1
local c, j, m
if adjust:find( "&" ) then
r = r:gsub( "&", "&" )
:gsub( "<", "<" )
:gsub( ">", ">" )
:gsub( " ", " " )
:gsub( " ", " " )
:gsub( "&zwnj;", "‌" )
:gsub( "&zwj;", "‍" )
:gsub( "&lrm;", "‎" )
:gsub( "&rlm;", "‏" )
m = true
end
while i do
i = mw.ustring.find( r, "%W%l", i )
if i then
j = i + 1
c = mw.ustring.upper( mw.ustring.sub( r, j, j ) )
r = string.format( "%s%s%s",
mw.ustring.sub( r, 1, i ),
c,
mw.ustring.sub( r, i + 2 ) )
i = j
end
end -- while i
r = r:sub( 2 )
if m then
r = r:gsub( "&", "&" )
:gsub( "<", "<" )
:gsub( ">", ">" )
:gsub( " ", " " )
:gsub( " ", " " )
:gsub( "‌", "&zwnj;" )
:gsub( "‍", "&zwj;" )
:gsub( "‎", "&lrm;" )
:gsub( "‏", "&rlm;" )
:gsub( "&#X(%x+);", "&#x%1;" )
end
return r
end -- Text.ucfirstAll()

Text.uprightNonlatin = function ( adjust )
-- Ensure non-italics for non-latin text parts
-- One single greek letter might be granted
-- Precondition:
-- adjust -- string
-- Returns: string with non-latin parts enclosed in <span>
local r
Text.isLatinRange()
if mw.ustring.match( adjust, PatternLatin ) then
-- latin only, horizontal dashes, quotes
r = adjust
else
local c
local j = false
local k = 1
local m = false
local n = mw.ustring.len( adjust )
local span = "%s%s<span dir='auto' style='font-style:normal'>%s</span>"
local flat = function ( a )
-- isLatin
local range
for i = 1, #RangesLatin do
range = RangesLatin[ i ]
if a >= range[ 1 ] and a <= range[ 2 ] then
return true
end
end -- for i
end -- flat()
local focus = function ( a )
-- char is not ambivalent
local r = ( a > 64 )
if r then
r = ( a < 8192 or a > 8212 )
else
r = ( a == 38 or a == 60 ) -- '&' '<'
end
return r
end -- focus()
local form = function ( a )
return string.format( span,
r,
mw.ustring.sub( adjust, k, j - 1 ),
mw.ustring.sub( adjust, j, a ) )
end -- form()
r = ""
for i = 1, n do
c = mw.ustring.codepoint( adjust, i, i )
if focus( c ) then
if flat( c ) then
if j then
if m then
if i == m then
-- single greek letter.
j = false
end
m = false
end
if j then
local nx = i - 1
local s = ""
for ix = nx, 1, -1 do
c = mw.ustring.sub( adjust, ix, ix )
if c == " " or c == "(" then
nx = nx - 1
s = c .. s
else
break -- for ix
end
end -- for ix
r = form( nx ) .. s
j = false
k = i
end
end
elseif not j then
j = i
if c >= 880 and c <= 1023 then
-- single greek letter?
m = i + 1
else
m = false
end
end
elseif m then
m = m + 1
end
end -- for i
if j and ( not m or m < n ) then
r = form( n )
else
r = r .. mw.ustring.sub( adjust, k )
end
end
return r
end -- Text.uprightNonlatin()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version or "wikidata" or "~"
-- or false
-- Postcondition:
-- Returns string -- with queried version, also if problem
-- false -- if appropriate
-- 2019-10-15
local last = ( atleast == "~" )
local since = atleast
local r
if last or since == "wikidata" then
local item = Failsafe.item
since = false
if type( item ) == "number" and item > 0 then
local entity = mw.wikibase.getEntity( string.format( "Q%d",
item ) )
if type( entity ) == "table" then
local seek = Failsafe.serialProperty or "P348"
local vsn = entity:formatPropertyValues( seek )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false
else
r = vsn.value
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial
else
r = false
end
end
return r
end -- Failsafe.failsafe()

Text.test = function ( about )
local r
if about == "quote" then
factoryQuote()
r = { QuoteLang = Text.quoteLang,
QuoteType = Text.quoteType }
end
return r
end -- Text.test()

-- Export
local p = { }

function p.char( frame )
local params = frame:getParent().args
local story = params[ 1 ]
local codes, lenient, multiple
if not story then
params = frame.args
story = params[ 1 ]
end
if story then
local items = mw.text.split( story, "%s+" )
if #items > 0 then
local j
lenient = ( params.errors == "0" )
codes = { }
multiple = tonumber( params[ "*" ] )
for k, v in pairs( items ) do
if v:sub( 1, 1 ) == "x" then
j = tonumber( "0" .. v )
elseif v == "" then
v = false
else
j = tonumber( v )
end
if v then
table.insert( codes, j or v )
end
end -- for k, v
end
end
return Text.char( codes, multiple, lenient )
end

function p.concatParams( frame )
local args
local template = frame.args.template
if type( template ) == "string" then
template = mw.text.trim( template )
template = ( template == "1" )
end
if template then
args = frame:getParent().args
else
args = frame.args
end
return Text.concatParams( args,
frame.args.separator,
frame.args.format )
end

function p.containsCJK( frame )
return Text.containsCJK( frame.args[ 1 ] or "" ) and "1" or ""
end

function p.getPlain( frame )
return Text.getPlain( frame.args[ 1 ] or "" )
end

function p.isLatinRange( frame )
return Text.isLatinRange( frame.args[ 1 ] or "" ) and "1" or ""
end

function p.isQuote( frame )
return Text.isQuote( frame.args[ 1 ] or "" ) and "1" or ""
end

function p.listToFormat(frame)
local lists = {}
local pformat = frame.args["format"]
local sep = frame.args["sep"] or ";"

-- Parameter parsen: Listen
for k, v in pairs(frame.args) do
local knum = tonumber(k)
if knum then lists[knum] = v end
end

-- Listen splitten
local maxListLen = 0
for i = 1, #lists do
lists[i] = mw.text.split(lists[i], sep)
if #lists[i] > maxListLen then maxListLen = #lists[i] end
end

-- Ergebnisstring generieren
local result = ""
local result_line = ""
for i = 1, maxListLen do
result_line = pformat
for j = 1, #lists do
result_line = mw.ustring.gsub(result_line, "%%s", lists[j][i], 1)
end
result = result .. result_line
end

return result
end

function p.listToText( frame )
local args
local template = frame.args.template
if type( template ) == "string" then
template = mw.text.trim( template )
template = ( template == "1" )
end
if template then
args = frame:getParent().args
else
args = frame.args
end
return Text.listToText( args, frame.args.format )
end

function p.quote( frame )
local slang = frame.args[2]
if type( slang ) == "string" then
slang = mw.text.trim( slang )
if slang == "" then
slang = false
end
end
return Text.quote( frame.args[ 1 ] or "",
slang,
tonumber( frame.args[3] ) )
end

function p.quoteUnquoted( frame )
local slang = frame.args[2]
if type( slang ) == "string" then
slang = mw.text.trim( slang )
if slang == "" then
slang = false
end
end
return Text.quoteUnquoted( frame.args[ 1 ] or "",
slang,
tonumber( frame.args[3] ) )
end

function p.removeDiacritics( frame )
return Text.removeDiacritics( frame.args[ 1 ] or "" )
end

function p.sentenceTerminated( frame )
return Text.sentenceTerminated( frame.args[ 1 ] or "" ) and "1" or ""
end

function p.ucfirstAll( frame )
return Text.ucfirstAll( frame.args[ 1 ] or "" )
end

function p.unstrip( frame )
return mw.text.trim( mw.text.unstrip( frame.args[ 1 ] or "" ) )
end

function p.uprightNonlatin( frame )
return Text.uprightNonlatin( frame.args[ 1 ] or "" )
end

function p.zip(frame)
local lists = {}
local seps = {}
local defaultsep = frame.args["sep"] or ""
local innersep = frame.args["isep"] or ""
local outersep = frame.args["osep"] or ""

-- Parameter parsen
for k, v in pairs(frame.args) do
local knum = tonumber(k)
if knum then lists[knum] = v else
if string.sub(k, 1, 3) == "sep" then
local sepnum = tonumber(string.sub(k, 4))
if sepnum then seps[sepnum] = v end
end
end
end
-- sofern keine expliziten Separatoren angegeben sind, den Standardseparator verwenden
for i = 1, math.max(#seps, #lists) do
if not seps[i] then seps[i] = defaultsep end
end

-- Listen splitten
local maxListLen = 0
for i = 1, #lists do
lists[i] = mw.text.split(lists[i], seps[i])
if #lists[i] > maxListLen then maxListLen = #lists[i] end
end

local result = ""
for i = 1, maxListLen do
if i ~= 1 then result = result .. outersep end
for j = 1, #lists do
if j ~= 1 then result = result .. innersep end
result = result .. (lists[j][i] or "")
end
end
return result
end

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Failsafe.failsafe( since ) or ""
end -- p.failsafe()

p.Text = function ()
return Text
end -- p.Text

return p

Modul:TemplateData/config

2020-10-21T14:30:23Z

ArxioWikiSysop: 1 Version importiert

local Serial = "2018-09-10"
--[=[
dewiki-Konfiguration {{TemplateData}}
mw.loadData()
]=]

return { catProblem = "Wikipedia:Vorlagenfehler/Vorlage:TemplateData",
classNoNumTOC = "nonumtoc",
cssParWrap = { ["margin-left"] = "-1em",
["margin-right"] = "-1em" },
cssParams = { ["border"] = "#B3B7FF 1px solid",
["margin-left"] = "auto",
["margin-right"] = "auto" },
docpageCreate = "%s/Doku",
docpageDetect = "/Doku$",
helpBoolean = "Hilfe:TemplateData/Anwendung‎#boolean",
helpContent = "Hilfe:TemplateData/Anwendung‎#wikitext",
helpDate = "Hilfe:TemplateData/Anwendung‎#date",
helpFile = "Hilfe:TemplateData/Anwendung‎#file",
helpFormat = "Hilfe:TemplateData/Anwendung‎#layout",
helpLine = "Hilfe:TemplateData/Anwendung‎#line",
helpNumber = "Hilfe:TemplateData/Anwendung‎#number",
helpPage = "Hilfe:TemplateData/Anwendung‎#page",
helpString = "Hilfe:TemplateData/Anwendung‎#string",
helpTemplate = "Hilfe:TemplateData/Anwendung‎#template",
helpURL = "Hilfe:TemplateData/Anwendung‎#url",
helpUser = "Hilfe:TemplateData/Anwendung‎#user",
msgDescMiss = "Beschreibung fehlt",
permit = { },
tStylesTOCnum = "TOC nonum",
serial = Serial }

Modul:TemplateData

2020-10-21T14:30:23Z

ArxioWikiSysop: 1 Version importiert

local TemplateData = { suite = "TemplateData",
serial = "2020-10-11",
item = 46997995 }
--[=[
improve template:TemplateData
]=]
local Failsafe = TemplateData

local Config = {
-- multiple option names mapped into unique internal fields
basicCnf = { catProblem = "strange",
classNoNumTOC = "suppressTOCnum",
cssParWrap = "cssTabWrap",
cssParams = "cssTable",
docpageCreate = "suffix",
docpageDetect = "subpage",
helpBoolean = "support4boolean",
helpContent = "support4content",
helpDate = "support4date",
helpFile = "support4wiki-file-name",
helpFormat = "supportFormat",
helpLine = "support4line",
helpNumber = "support4number",
helpPage = "support4wiki-page-name",
helpString = "support4string",
helpTemplate = "support4wiki-template-name",
helpURL = "support4url",
helpUser = "support4wiki-user-name",
msgDescMiss = "solo",
tStylesTOCnum = "stylesTOCnum" },
-- classParams = "classTable",
-- classTable = false, -- class for params table
debugmultilang = "C0C0C0",
loudly = false, -- show exported element, etc.
solo = false, -- complaint on missing description
strange = false, -- title of maintenance category
cssTable = false, -- styles for params table
cssTabWrap = false, -- styles for params table wrapper
debug = false,
subpage = false, -- pattern to identify subpage
suffix = false, -- subpage creation scheme
suppressTOCnum = false, -- class for TOC number suppression
jsonDebug = "json-code-lint" -- class for jsonDebug tool
}
local Data = {
div = false, -- <div class="mw-templatedata-doc-wrap">
got = false, -- table, initial templatedata object
heirs = false, -- table, params that are inherited
less = false, -- main description missing
lasting = false, -- old syntax encountered
lazy = false, -- doc mode; do not generate effective <templatedata>
leading = false, -- show TOC
-- low = false, -- 1= mode
order = false, -- parameter sequence
params = false, -- table, exported parameters
scream = false, -- error messages
sibling = false, -- TOC juxtaposed
slang = nil, -- project/user language code
slim = false, -- JSON reduced to plain
source = false, -- JSON input
strip = false, -- <templatedata> evaluation
tag = false, -- table, exported root element
title = false, -- page
tree = false -- table, rewritten templatedata object
}
local Permit = {
builder = { after = "block",
align = "block",
block = "block",
compressed = "block",
dense = "block",
grouped = "inline",
half = "inline",
indent = "block",
inline = "inline",
last = "block",
lead = "block",
newlines = "*",
spaced = "inline" },
colors = { tableheadbg = "B3B7FF",
required = "EAF3FF",
suggested = "FFFFFF",
optional = "EAECF0",
deprecated = "FFCBCB" },
params = { aliases = "table",
autovalue = "string",
default = "string table I18N nowiki",
deprecated = "boolean string I18N",
description = "string table I18N",
example = "string table I18N nowiki",
label = "string table I18N",
inherits = "string",
required = "boolean",
style = "string table",
suggested = "boolean",
type = "string" },
root = { description = "string table I18N",
format = "string",
maps = "table",
params = "table",
paramOrder = "table",
sets = "table" },
search = "[{,]%%s*(['\"])%s%%1%%s*:%%s*%%{",
types = { boolean = true,
content = true,
date = true,
line = true,
number = true,
string = true,
unknown = true,
url = true,
["wiki-file-name"] = true,
["wiki-page-name"] = true,
["wiki-template-name"] = true,
["wiki-user-name"] = true,
["unbalanced-wikitext"] = true,
["string/line"] = "line",
["string/wiki-page-name"] = "wiki-page-name",
["string/wiki-user-name"] = "wiki-user-name" }
}

local function Fault( alert )
-- Memorize error message
-- Parameter:
-- alert -- string, error message
if Data.scream then
Data.scream = string.format( "%s *** %s", Data.scream, alert )
else
Data.scream = alert
end
end -- Fault()

local function Fetch( ask, allow )
-- Fetch module
-- Parameter:
-- ask -- string, with name
-- "/global"
-- "JSONutil"
-- "Multilingual"
-- "Text"
-- "WLink"
-- allow -- true: no error if unavailable
-- Returns table of module
-- error: Module not available
local sign = ask
local r, stem
if sign:sub( 1, 1 ) == "/" then
sign = TemplateData.frame:getTitle() .. sign
else
stem = sign
sign = "Module:" .. stem
end
if TemplateData.extern then
r = TemplateData.extern[ sign ]
else
TemplateData.extern = { }
end
if not r then
local lucky, g = pcall( require, sign )
if type( g ) == "table" then
if stem and type( g[ stem ] ) == "function" then
r = g[ stem ]()
else
r = g
end
TemplateData.extern[ sign ] = r
elseif not allow then
error( string.format( "Fetch(%s) %s", sign, g ), 0 )
end
end
return r
end -- Fetch()

local function Foreign()
-- Guess human language
-- Returns slang, or not
if type( Data.slang ) == "nil" then
local Multilingual = Fetch( "Multilingual", true )
if Multilingual and
type( Multilingual.userLangCode ) == "function" then
Data.slang = Multilingual.userLangCode()
else
Data.slang = mw.language.getContentLanguage():getCode()
:lower()
end
end
if Data.slang and
mw.ustring.codepoint( Data.slang, 1, 1 ) > 122 then
Data.slang = false
end
return Data.slang
end -- Foreign()

local function facet( ask, at )
-- Find physical position of parameter definition in JSON
-- Parameter:
-- ask -- string, parameter name
-- at -- number, physical position within definition
-- Returns number, or nil
local seek = string.format( Permit.search,
ask:gsub( "%%", "%%%%" )
:gsub( "([%-.()+*?^$%[%]])",
"%%%1" ) )
local i, k = Data.source:find( seek, at )
local r, slice, source
while i and not r do
source = Data.source:sub( k + 1 )
slice = source:match( "^%s*\"([^\"]+)\"s*:" )
if not slice then
slice = source:match( "^%s*'([^']+)'%s*:" )
end
if ( slice and Permit.params[ slice ] ) or
source:match( "^%s*%}" ) then
r = k
else
i, k = Data.source:find( seek, k )
end
end -- while i
return r
end -- facet()

local function factory( adapt )
-- Retrieve localized text from system message
-- Parameter:
-- adapt -- string, message ID after "templatedata-"
-- Returns string, with localized text
local o = mw.message.new( "templatedata-" .. adapt )
if Foreign() then
o:inLanguage( Data.slang )
end
return o:plain()
end -- factory()

local function faculty( adjust )
-- Test template arg for boolean
-- adjust -- string or nil
-- Returns boolean
local s = type( adjust )
local r
if s == "string" then
r = mw.text.trim( adjust )
r = ( r ~= "" and r ~= "0" )
elseif s == "boolean" then
r = adjust
else
r = false
end
return r
end -- faculty()

local function failures()
-- Retrieve error collection and category
-- Returns string
local r
if Data.scream then
local e = mw.html.create( "span" )
:addClass( "error" )
:wikitext( Data.scream )
r = tostring( e )
mw.addWarning( "'''TemplateData'''<br />" .. Data.scream )
if Config.strange then
r = string.format( "%s[[category:%s]]",
r,
Config.strange )
end
else
r = ""
end
return r
end -- failures()

local function fair( adjust )
-- Reduce text to one line of plain text, or noexport wikitext blocks
-- adjust -- string
-- Returns string, with adjusted text
local f = function ( a )
return a:gsub( "%s*\n%s*", " " )
:gsub( "%s%s+", " " )
end
local r
if adjust:find( "<noexport>", 1, true ) then
local i = 1
local j, k = adjust:find( "<noexport>", i, true )
r = ""
while j do
if j > 1 then
r = r .. f( adjust:sub( i, j - 1 ) )
end
i = k + 1
j, k = adjust:find( "</noexport>", i, true )
if j then
r = r .. adjust:sub( i, j - 1 )
i = k + 1
j, k = adjust:find( "<noexport>", i, true )
else
Fault( "missing </noexport>" )
end
end -- while j
r = r .. adjust:sub( i )
else
r = f( adjust )
end
return r
end -- fair()

local function fancy( advance, alert )
-- Present JSON source
-- Parameter:
-- advance -- true, for nice
-- alert -- true, for visible
-- Returns string
local r
if Data.source then
local support = Config.jsonDebug
local css
if advance then
css = { height = "6em",
resize = "vertical" }
r = { [ 1 ] = "syntaxhighlight",
[ 2 ] = Data.source,
lang = "json",
style = table.concat( css, ";" ) }
if alert then
r.class( support )
end
r = TemplateData.frame:callParserFunction( "#tag", r )
else
css = { [ "font-size" ] = "77%",
[ "line-height" ] = "1.35" }
if alert then
css.resize = "vertical"
else
css.display = "none"
end
r = mw.html.create( "pre" )
:addClass( support )
:css( css )
:wikitext( mw.text.encode( Data.source ) )
r = tostring( r )
end
r = "\n".. r
else
r = ""
end
return r
end -- fancy()

local function faraway( alternatives )
-- Retrieve best language version from multilingual text
-- Parameter:
-- alternatives -- table, to be evaluated
-- Returns
-- 1 -- string, with best match
-- 2 -- table of other versions, if any
local n = 0
local variants = { }
local r1, r2
for k, v in pairs( alternatives ) do
if type( v ) == "string" then
v = mw.text.trim( v )
if v ~= "" and type( k ) == "string" then
k = k:lower()
variants[ k ] = v
n = n + 1
end
end
end -- for k, v
if n > 0 then
local Multilingual = Fetch( "Multilingual", true )
if Multilingual and
type( Multilingual.i18n ) == "function" then
local show, slang = Multilingual.i18n( variants )
if show then
r1 = show
variants[ slang ] = nil
r2 = variants
end
end
if not r1 then
Foreign()
for k, v in pairs( variants ) do
if n == 1 then
r1 = v
elseif Data.slang == k then
variants[ k ] = nil
r1 = v
r2 = variants
end
end -- for k, v
end
if r2 and Multilingual then
for k, v in pairs( r2 ) do
if v and not Multilingual.isLang( k, true ) then
Fault( string.format( "%s <code>lang=%s</code>",
"Invalid",
k ) )
end
end -- for k, v
end
end
return r1, r2
end -- faraway()

local function fashioned( about, asked, assign )
-- Create description head
-- Parameter:
-- about -- table, supposed to contain description
-- asked -- true, if mandatory description
-- assign -- <block>, if to be equipped
-- Returns <block>, with head, or nil
local para = assign or mw.html.create( "div" )
local plus, r
if about and about.description then
if type( about.description ) == "string" then
para:wikitext( about.description )
else
para:wikitext( about.description[ 1 ] )
plus = mw.html.create( "ul" )
plus:css( "text-align", "left" )
for k, v in pairs( about.description[ 2 ] ) do
plus:node( mw.html.create( "li" )
:node( mw.html.create( "code" )
:wikitext( k ) )
:node( mw.html.create( "br" ) )
:wikitext( fair( v ) ) )
end -- for k, v
if Config.loudly then
plus = mw.html.create( "div" )
:css( "background-color",
"#" .. Config.debugmultilang )
:node( plus )
else
plus:addClass( "templatedata-maintain" )
:css( "display", "none" )
end
end
elseif Config.solo and asked then
para:addClass( "error" )
:wikitext( Config.solo )
Data.less = true
else
para = false
end
if para then
if plus then
r = mw.html.create( "div" )
:node( para )
:node( plus )
else
r = para
end
end
return r
end -- fashioned()

local function fatten( access )
-- Create table row for sub-headline
-- Parameter:
-- access -- string, with name
-- Returns <tr>
local param = Data.tree.params[ access ]
local sub, sort = access:match( "(=+)%s*(%S.*)$" )
local headline = mw.html.create( string.format( "h%d", #sub ) )
local r = mw.html.create( "tr" )
local td = mw.html.create( "td" )
:attr( "colspan", "5" )
:attr( "data-sort-value", "!" .. sort )
local s
if param.style then
s = type( param.style )
if s == "table" then
td:css( param.style )
elseif s == "string" then
td:cssText( param.style )
end
end
s = fashioned( param, false, headline )
if s then
headline = s
else
headline:wikitext( sort )
end
td:node( headline )
r:node( td )
return r
end -- fatten()

local function fathers()
-- Merge params with inherited values
local n = 0
local p = Data.params
local t = Data.tree.params
local p2, t2
for k, v in pairs( Data.heirs ) do
n = n + 1
end -- for k, v
for i = 1, n do
if Data.heirs then
for k, v in pairs( Data.heirs ) do
if v and not Data.heirs[ v ] then
n = n - 1
t[ k ].inherits = nil
Data.heirs[ k ] = nil
p2 = { }
t2 = { }
if p[ v ] then
for k2, v2 in pairs( p[ v ] ) do
p2[ k2 ] = v2
end -- for k2, v2
if p[ k ] then
for k2, v2 in pairs( p[ k ] ) do
if type( v2 ) ~= "nil" then
p2[ k2 ] = v2
end
end -- for k2, v2
end
p[ k ] = p2
for k2, v2 in pairs( t[ v ] ) do
t2[ k2 ] = v2
end -- for k2, v2
for k2, v2 in pairs( t[ k ] ) do
if type( v2 ) ~= "nil" then
t2[ k2 ] = v2
end
end -- for k2, v2
t[ k ] = t2
else
Fault( "No params[] inherits " .. v )
end
end
end -- for k, v
end
end -- i = 1, n
if n > 0 then
local s
for k, v in pairs( Data.heirs ) do
if v then
if s then
s = string.format( "%s | %s", s, k )
else
s = "Circular inherits: " .. k
end
end
end -- for k, v
Fault( s )
end
end -- fathers()

local function favorize()
-- Local customization issues
local boole = { ["font-size"] = "125%" }
local l, cx = pcall( mw.loadData,
TemplateData.frame:getTitle() .. "/config" )
local scripting
TemplateData.ltr = not mw.language.getContentLanguage():isRTL()
if TemplateData.ltr then
scripting = "left"
else
scripting = "right"
end
boole[ "margin-" .. scripting ] = "3em"
Permit.boole = { [false] = { css = boole,
lead = true,
show = "☐" },
[true] = { css = boole,
lead = true,
show = "☑" } }
Permit.css = { }
for k, v in pairs( Permit.colors ) do
if k == "tableheadbg" then
k = "tablehead"
end
Permit.css[ k ] = { ["background-color"] = "#" .. v }
end -- for k, v
if type( cx ) == "table" then
local c, s
if type( cx.permit ) == "table" then
if type( cx.permit.boole ) == "table" then
if type( cx.permit.boole[ true ] ) == "table" then
Permit.boole[ false ] = cx.permit.boole[ false ]
end
if type( cx.permit.boole[ true ] ) == "table" then
Permit.boole[ true ] = cx.permit.boole[ true ]
end
end
if type( cx.permit.css ) == "table" then
for k, v in pairs( cx.permit.css ) do
if type( v ) == "table" then
Permit.css[ k ] = v
end
end -- for k, v
end
end
for k, v in pairs( Config.basicCnf ) do
s = type( cx[ k ] )
if s == "string" or s == "table" then
Config[ v ] = cx[ k ]
end
end -- for k, v
end
if type( Config.subpage ) ~= "string" or
type( Config.suffix ) ~= "string" then
local got = mw.message.new( "templatedata-doc-subpage" )
local suffix
if got:isDisabled() then
suffix = "doc"
else
suffix = got:plain()
end
if type( Config.subpage ) ~= "string" then
Config.subpage = string.format( "/%s$", suffix )
end
if type( Config.suffix ) ~= "string" then
Config.suffix = string.format( "%%s/%s", suffix )
end
end
end -- favorize()

local function feat()
-- Check and store parameter sequence
if Data.source then
local i = 0
local s
for k, v in pairs( Data.tree.params ) do
if i == 0 then
Data.order = { }
i = 1
s = k
else
i = 2
break -- for k, v
end
end -- for k, v
if i > 1 then
local pointers = { }
local points = { }
local given = { }
for k, v in pairs( Data.tree.params ) do
i = facet( k, 1 )
if type( v ) == "table" then
if type( v.label ) == "string" then
s = mw.text.trim( v.label )
if s == "" then
s = k
end
else
s = k
end
if given[ s ] then
if given[ s ] == 1 then
local scream = "Parameter label '%s' detected multiple times"
Fault( string.format( scream, s ) )
given[ s ] = 2
end
else
given[ s ] = 1
end
end
if i then
table.insert( points, i )
pointers[ i ] = k
i = facet( k, i )
if i then
s = "Parameter '%s' detected twice"
Fault( string.format( s, k ) )
end
else
s = "Parameter '%s' not detected"
Fault( string.format( s, k ) )
end
end -- for k, v
table.sort( points )
for i = 1, #points do
table.insert( Data.order, pointers[ points[ i ] ] )
end -- i = 1, #points
elseif s then
table.insert( Data.order, s )
end
end
end -- feat()

local function feature( access )
-- Create table row for parameter, check and display violations
-- Parameter:
-- access -- string, with name
-- Returns <tr>
local mode, s, status
local fine = function ( a )
s = mw.text.trim( a )
return a == s and
a ~= "" and
not a:find( "%|=\n" ) and
not a:find( "%s%s" )
end
local begin = mw.html.create( "td" )
local code = mw.html.create( "code" )
local desc = mw.html.create( "td" )
local legal = true
local param = Data.tree.params[ access ]
local ranking = { "required", "suggested", "optional", "deprecated" }
local r = mw.html.create( "tr" )
local sort, typed

for k, v in pairs( param ) do
if v == "" then
param[ k ] = false
end
end -- for k, v

-- label
sort = param.label or access
if sort:match( "^%d+$" ) then
begin:attr( "data-sort-value",
string.format( "%05d", tonumber( sort ) ) )
end
begin:css( "font-weight", "bold" )
:wikitext( sort )

-- name and aliases
code:css( "font-size", "92%" )
:css( "white-space", "nowrap" )
:wikitext( access )
if not fine( access ) then
code:addClass( "error" )
Fault( string.format( "Bad ID params.<code>%s</code>", access ) )
legal = false
begin:attr( "data-sort-value", " " .. sort )
end
code = mw.html.create( "td" )
:node( code )
if access:match( "^%d+$" ) then
code:attr( "data-sort-value",
string.format( "%05d", tonumber( access ) ) )
end
if type( param.aliases ) == "table" then
local lapsus
for k, v in pairs( param.aliases ) do
code:tag( "br" )
if type( v ) == "string" then
if not fine( v ) then
lapsus = true
code:node( mw.html.create( "span" )
:addClass( "error" )
:css( "font-style", "italic" )
:wikitext( "string" ) )
end
code:wikitext( s )
else
lapsus = true
code:node( mw.html.create( "code" )
:addClass( "error" )
:wikitext( type( v ) ) )
end
end -- for k, v
if lapsus then
s = string.format( "params.<code>%s</code>.aliases", access )
Fault( factory( "invalid-value" ):gsub( "$1", s ) )
legal = false
end
end

-- description etc.
s = fashioned( param )
if s then
desc:node( s )
end
if param.style then
s = type( param.style )
if s == "table" then
desc:css( param.style )
elseif s == "string" then
desc:cssText( param.style )
end
end
if param.default or param.example or param.autovalue then
local details = { "default", "example", "autovalue" }
local dl = mw.html.create( "dl" )
local dd, section, show
for i = 1, #details do
s = details[ i ]
show = param[ s ]
if show then
dd = mw.html.create( "dd" )
section = factory( "doc-param-" .. s )
if param.type == "boolean" and
( show == "0" or show == "1" ) then
local boole = Permit.boole[ ( show == "1" ) ]
if boole.lead == true then
dd:node( mw.html.create( "code" )
:wikitext( show ) )
:wikitext( " " )
end
if type( boole.show ) == "string" then
local v = mw.html.create( "span" )
:attr( "aria-hidden", "true" )
:wikitext( boole.show )
if boole.css then
v:css( boole.css )
end
dd:node( v )
end
if type( boole.suffix ) == "string" then
dd:wikitext( boole.suffix )
end
if boole.lead == false then
dd:wikitext( " " )
:node( mw.html.create( "code" )
:wikitext( show ) )
end
else
dd:wikitext( show )
end
dl:node( mw.html.create( "dt" )
:wikitext( section ) )
:node( dd )
end
end -- i = 1, #details
desc:node( dl )
end

-- type
if type( param.type ) == "string" then
param.type = mw.text.trim( param.type )
if param.type == "" then
param.type = false
end
end
if param.type then
s = Permit.types[ param.type ]
typed = mw.html.create( "td" )
if s then
if s == "string" then
Data.params[ access ].type = s
typed:wikitext( factory( "doc-param-type-" .. s ) )
:tag( "br" )
typed:node( mw.html.create( "span" )
:addClass( "error" )
:wikitext( param.type ) )
Data.lasting = true
else
local support = Config[ "support4" .. param.type ]
s = factory( "doc-param-type-" .. param.type )
if support then
s = string.format( "[[%s|%s]]", support, s )
end
typed:wikitext( s )
end
else
Data.params[ access ].type = "unknown"
typed:addClass( "error" )
:wikitext( "INVALID" )
s = string.format( "params.<code>%s</code>.type", access )
Fault( factory( "invalid-value" ):gsub( "$1", s ) )
legal = false
end
else
typed = mw.html.create( "td" )
:wikitext( factory( "doc-param-type-unknown" ) )
Data.params[ access ].type = "unknown"
if param.default then
Data.params[ access ].default = nil
Fault( "Default value requires <code>type</code>" )
legal = false
end
end

-- status
if param.required then
mode = 1
if param.autovalue then
Fault( string.format( "autovalued <code>%s</code> required",
access ) )
legal = false
end
if param.default then
Fault( string.format( "Defaulted <code>%s</code> required",
access ) )
legal = false
end
if param.deprecated then
Fault( string.format( "Required deprecated <code>%s</code>",
access ) )
legal = false
end
elseif param.deprecated then
mode = 4
elseif param.suggested then
mode = 2
else
mode = 3
end
status = ranking[ mode ]
ranking = factory( "doc-param-status-" .. status )
if mode == 1 or mode == 4 then
ranking = mw.html.create( "span" )
:css( "font-weight", "bold" )
:wikitext( ranking )
if type( param.deprecated ) == "string" then
ranking:tag( "br" )
ranking:wikitext( param.deprecated )
end
if param.suggested and mode == 4 then
s = string.format( "Suggesting deprecated <code>%s</code>",
access )
Fault( s )
legal = false
end
end

-- <tr>
r:attr( "id", "templatedata:" .. mw.uri.anchorEncode( access ) )
:css( Permit.css[ status ] )
:node( begin )
:node( code )
:node( desc )
:node( typed )
:node( mw.html.create( "td" )
:attr( "data-sort-value", tostring( mode ) )
:node( ranking ) )
:newline()
if not legal then
r:css( "border", "#FF0000 3px solid" )
end
return r
end -- feature()

local function features()
-- Create <table> for parameters
-- Returns <table>, or nil
local r
if Data.tree and Data.tree.params then
local tbl = mw.html.create( "table" )
:addClass( "wikitable" )
local tr = mw.html.create( "tr" )
feat()
if Data.order and #Data.order > 1 then
tbl:addClass( "sortable" )
end
-- if Config.classTable then
-- tbl:addClass( Config.classTable )
-- end
if Config.cssTable then
if type( Config.cssTable ) == "table" then
tbl:css( Config.cssTable )
elseif type( Config.cssTable ) == "string" then
-- deprecated
tbl:cssText( Config.cssTable )
end
end
tr:node( mw.html.create( "th" )
:attr( "colspan", "2" )
:css( Permit.css.tablehead )
:wikitext( factory( "doc-param-name" ) ) )
:node( mw.html.create( "th" )
:css( Permit.css.tablehead )
:wikitext( factory( "doc-param-desc" ) ) )
:node( mw.html.create( "th" )
:css( Permit.css.tablehead )
:wikitext( factory( "doc-param-type" ) ) )
:node( mw.html.create( "th" )
:css( Permit.css.tablehead )
:wikitext( factory( "doc-param-status" ) ) )
tbl:newline()
-- :node( mw.html.create( "thead" )
:node( tr )
-- )
:newline()
if Data.order then
local leave, s
for i = 1, #Data.order do
s = Data.order[ i ]
if s:sub( 1, 1 ) == "=" then
leave = true
tbl:node( fatten( s ) )
Data.order[ i ] = false
elseif s:match( "[=|]" ) then
Fault( string.format( "Bad param <code>%s</code>",
s ) )
else
tbl:node( feature( s ) )
end
end -- for i = 1, #Data.order
if leave then
for i = #Data.order, 1, -1 do
if not Data.order[ i ] then
table.remove( Data.order, i )
end
end -- for i = #Data.order, 1, -1
end
Data.tag.paramOrder = Data.order
end
if Config.cssTabWrap or Data.scroll then
r = mw.html.create( "div" )
if type( Config.cssTabWrap ) == "table" then
r:css( Config.cssTabWrap )
elseif type( Config.cssTabWrap ) == "string" then
-- deprecated
r:cssText( Config.cssTabWrap )
end
if Data.scroll then
r:css( "height", Data.scroll )
:css( "overflow", "auto" )
end
r:node( tbl )
else
r = tbl
end
end
return r
end -- features()

local function fellow( any, assigned, at )
-- Check sets[] parameter and issue error message, if necessary
-- Parameter:
-- any -- should be number
-- assigned -- parameter name
-- at -- number, of set
local s
if type( any ) ~= "number" then
s = "<code>sets[%d].params[%s]</code>??"
Fault( string.format( s,
at,
mw.text.nowiki( tostring( any ) ) ) )
elseif type( assigned ) == "string" then
if not Data.got.params[ assigned ] then
s = "<code>sets[%d].params %s</code> is undefined"
Fault( string.format( s, at, assigned ) )
end
else
s = "<code>sets[%d].params[%d] = %s</code>??"
Fault( string.format( s, k, type( assigned ) ) )
end
end -- fellow()

local function fellows()
-- Check sets[] and issue error message, if necessary
local s
if type( Data.got.sets ) == "table" then
if type( Data.got.params ) == "table" then
for k, v in pairs( Data.got.sets ) do
if type( k ) == "number" then
if type( v ) == "table" then
for ek, ev in pairs( v ) do
if ek == "label" then
s = type( ev )
if s ~= "string" and
s ~= "table" then
s = "<code>sets[%d].label</code>??"
Fault( string.format( s, k ) )
end
elseif ek == "params" and
type( ev ) == "table" then
for pk, pv in pairs( ev ) do
fellow( pk, pv, k )
end -- for pk, pv
else
ek = mw.text.nowiki( tostring( ek ) )
s = "<code>sets[%d][%s]</code>??"
Fault( string.format( s, k, ek ) )
end
end -- for ek, ev
else
k = mw.text.nowiki( tostring( k ) )
v = mw.text.nowiki( tostring( v ) )
s = string.format( "<code>sets[%s][%s]</code>??",
k, v )
Fault( s )
end
else
k = mw.text.nowiki( tostring( k ) )
s = string.format( "<code>sets[%s]</code> ?????", k )
Fault( s )
end
end -- for k, v
else
s = "<code>params</code> required for <code>sets</code>"
Fault( s )
end
else
s = "<code>sets</code> needs to be of <code>object</code> type"
Fault( s )
end
end -- fellows()

local function finalize( advance )
-- Wrap presentation into frame
-- Parameter:
-- advance -- true, for nice
-- Returns string
local r, lapsus
if Data.div then
r = tostring( Data.div )
elseif Data.strip then
r = Data.strip
else
lapsus = true
r = ""
end
r = r .. failures()
if Data.source then
local live = ( advance or lapsus )
if not live then
live = TemplateData.frame:preprocess( "{{REVISIONID}}" )
live = ( live == "" )
end
if live then
r = r .. fancy( advance, lapsus )
end
end
return r
end -- finalize()

local function find()
-- Find JSON data within page source (title)
-- Returns string, or nil
local s = Data.title:getContent()
local i, j = s:find( "<templatedata>", 1, true )
local r
if i then
local k = s:find( "</templatedata>", j, true )
if k then
r = mw.text.trim( s:sub( j + 1, k - 1 ) )
end
end
return r
end -- find()

local function flat( adjust )
-- Remove formatting from text string
-- Parameter:
-- arglist -- string, to be stripped, or nil
-- Returns string, or nil
local r
if adjust then
r = adjust:gsub( "\n", " " )
if r:find( "<noexport>", 1, true ) then
r = r:gsub( "<noexport>(.*)</noexport>", "" )
end
if r:find( "''", 1, true ) then
r = r:gsub( "'''", "" ):gsub( "''", "" )
end
if r:find( "<", 1, true ) then
local Text = Fetch( "Text" )
r = Text.getPlain( r:gsub( "<br */?>", "\r\n" ) )
end
if r:find( "[", 1, true ) then
local WLink = Fetch( "WLink" )
if WLink.isBracketedURL( r ) then
r = r:gsub( "%[([hf]tt?ps?://%S+) [^%]]+%]", "%1" )
end
r = WLink.getPlain( r )
end
if r:find( "&", 1, true ) then
r = mw.text.decode( r )
end
end
return r
end -- flat()

local function flush()
-- JSON encode narrowed input; obey unnamed (numerical) parameters
-- Returns <templatedata> JSON string
local r
if Data.tag then
r = mw.text.jsonEncode( Data.tag ):gsub( "%}$", "," )
else
r = "{"
end
r = r .. "\n\"params\":{"
if Data.order then
local sep = ""
local s
for i = 1, #Data.order do
s = Data.order[ i ]
r = string.format( "%s%s\n%s:%s",
r,
sep,
mw.text.jsonEncode( s ),
mw.text.jsonEncode( Data.params[ s ] ) )
sep = ",\n"
end -- for i = 1, #Data.order
end
r = r .. "\n}\n}"
return r
end -- flush()

local function focus( access )
-- Check components; focus multilingual description, build trees
-- Parameter:
-- access -- string, name of parameter, nil for root
local f = function ( a, at )
local r
if at then
r = string.format( "<code>params.%s</code>", at )
else
r = "''root''"
end
if a then
r = string.format( "%s<code>.%s</code>", r, a )
end
return r
end
local parent
if access then
parent = Data.got.params[ access ]
else
parent = Data.got
end
if type( parent ) == "table" then
local elem, got, permit, s, scope, slot, tag, target
if access then
permit = Permit.params
if type( access ) == "number" then
slot = tostring( access )
else
slot = access
end
else
permit = Permit.root
end
for k, v in pairs( parent ) do
scope = permit[ k ]
if scope then
s = type( v )
if s == "string" and k ~= "format" then
v = mw.text.trim( v )
end
if scope:find( s, 1, true ) then
if scope:find( "I18N", 1, true ) then
if s == "string" then
elem = fair( v )
elseif s == "table" then
local translated
v, translated = faraway( v )
if v then
if translated and
k == "description" then
elem = { [ 1 ] = fair( v ),
[ 2 ] = translated }
else
elem = fair( v )
end
else
elem = false
end
end
if type( v ) == "string" then
if k == "deprecated" then
if v == "1" then
v = true
elseif v == "0" then
v = false
end
elem = v
elseif scope:find( "nowiki", 1, true ) then
elem = mw.text.nowiki( v )
elem = elem:gsub( "\n", "<br>" )
v = v:gsub( string.char( 13 ), "" )
else
v = flat( v )
end
elseif s == "boolean" then
if scope:find( "boolean", 1, true ) then
elem = v
else
s = "Type <code>boolean</code> bad for "
.. f( k, slot )
Fault( s )
end
end
else
if k == "params" and not access then
v = nil
elem = nil
elseif k == "format" and not access then
elem = mw.text.decode( v )
v = nil
elseif k == "inherits" then
elem = v
if not Data.heirs then
Data.heirs = { }
end
Data.heirs[ slot ] = v
v = nil
elseif k == "style" then
elem = v
v = nil
elseif s == "string" then
v = mw.text.nowiki( v )
elem = v
else
elem = v
end
end
if type( elem ) ~= "nil" then
if not target then
if access then
if not Data.tree.params then
Data.tree.params = { }
end
Data.tree.params[ slot ] = { }
target = Data.tree.params[ slot ]
else
Data.tree = { }
target = Data.tree
end
end
target[ k ] = elem
elem = false
end
if type( v ) ~= "nil" then
if not tag then
if access then
if type( v ) == "string" and
v.sub( 1, 1 ) == "=" then
v = nil
else
if not Data.params then
Data.params = { }
end
Data.params[ slot ] = { }
tag = Data.params[ slot ]
end
else
Data.tag = { }
tag = Data.tag
end
end
if type( v ) ~= "nil" then
tag[ k ] = v
end
end
else
s = string.format( "Type <code>%s</code> bad for %s",
scope, f( k, slot ) )
Fault( s )
end
else
Fault( "Unknown component " .. f( k, slot ) )
end
end -- for k, v
if not access and Data.got.sets then
fellows()
end
else
Fault( f() .. " needs to be of <code>object</code> type" )
end
end -- focus()

local function format()
-- Build formatted element
-- Returns <inline>
local source = Data.tree.format:lower()
local r, s
if source == "inline" or source == "block" then
r = mw.html.create( "i" )
:wikitext( source )
else
local code
if source:find( "|", 1, true ) then
local scan = "^[\n ]*%{%{[\n _]*|[\n _]*=[\n _]*%}%}[\n ]*$"
if source:match( scan ) then
code = source:gsub( "\n", "N" )
else
s = mw.text.nowiki( source ):gsub( "\n", "\n" )
s = tostring( mw.html.create( "code" )
:wikitext( s ) )
Fault( "Invalid format " .. s )
source = false
end
else
local words = mw.text.split( source, "%s+" )
local show, start, support, unknown
for i = 1, #words do
s = words[ i ]
if i == 1 then
start = s
end
support = Permit.builder[ s ]
if support == start or
support == "*" then
Permit.builder[ s ] = true
elseif s:match( "^[1-9]%d?" ) and
Permit.builder.align then
Permit.builder.align = tonumber( s )
else
if unknown then
unknown = string.format( "%s %s", unknown, s )
else
unknown = s
end
end
end -- i = 1, #words
if unknown then
s = tostring( mw.html.create( "code" )
:css( "white-space", "nowrap" )
:wikitext( s ) )
Fault( "Unknown/misplaced format keyword " .. s )
source = false
start = false
end
if start == "inline" then
if Permit.builder.half == true then
show = "inline half"
code = "{{_ |_=_}}"
elseif Permit.builder.grouped == true then
show = "inline grouped"
code = "{{_ | _=_}}"
elseif Permit.builder.spaced == true then
show = "inline spaced"
code = "{{_ | _ = _ }}"
end
if Permit.builder.newlines == true then
show = show or "inline"
code = code or "{{_|_=_}}"
show = show .. " newlines"
code = string.format( "N%sN", code )
end
elseif start == "block" then
local space = "" -- amid "|" and name
local spaced = " " -- preceding "="
local spacer = " " -- following "="
local suffix = "N" -- closing "}}" on new line
show = "block"
if Permit.builder.indent == true then
start = " "
show = "block indent"
else
start = ""
end
if Permit.builder.compressed == true then
spaced = ""
spacer = ""
show = show .. " compressed"
if Permit.builder.last == true then
show = show .. " last"
else
suffix = ""
end
else
if Permit.builder.lead == true then
show = show .. " lead"
space = " "
end
if type( Permit.builder.align ) ~= "string" then
local n
s = " align"
if Permit.builder.align == true then
n = 0
if type( Data.got ) == "table" and
type( Data.got.params ) == "table" then
for k, v in pairs( Data.got.params ) do
if type( v ) == "table" and
not v.deprecated and
type( k ) == "string" then
k = mw.ustring.len( k )
if k > n then
n = k
end
end
end -- for k, v
end
else
n = Permit.builder.align
if type( n ) == "number" and n > 1 then
s = string.format( "%s %d", s, n )
else
n = 0 -- How comes?
end
end
if n > 1 then
spaced = string.rep( "_", n ) .. " "
end
show = show .. s
elseif Permit.builder.after == true then
spaced = ""
show = show .. " after"
elseif Permit.builder.dense == true then
spaced = ""
spacer = ""
show = show .. " dense"
end
if Permit.builder.last == true then
suffix = spacer
show = show .. " last"
end
end
code = string.format( "N{{_N%s|%s_%s=%s_%s}}N",
start,
space,
spaced,
spacer,
suffix )
if show == "block" then
show = "block newlines"
end
end
if show then
r = mw.html.create( "span" )
:wikitext( show )
end
end
if code then
source = code:gsub( "N", "\n" )
code = mw.text.nowiki( code ):gsub( "N", "\n" )
code = mw.html.create( "code" )
:css( "margin-left", "1em" )
:css( "margin-right", "1em" )
:wikitext( code )
if r then
r = mw.html.create( "span" )
:node( r )
:node( code )
else
r = code
end
end
end
if source then
Data.tag.format = source
end
return r
end -- format()

local function formatter()
-- Build presented documentation
-- Returns <div>
local r = mw.html.create( "div" )
local x = fashioned( Data.tree, true, r )
local s
if x then
r = x
end
if Data.leading then
local toc = mw.html.create( "div" )
local shift
if Config.suppressTOCnum then
toc:addClass( Config.suppressTOCnum )
if type( Config.stylesTOCnum ) == "string" then
local src = Config.stylesTOCnum .. "/styles.css"
s = TemplateData.frame:extensionTag( "templatestyles",
nil,
{ src = src } )
r:newline()
:node( s )
end
end
toc:css( "margin-top", "0.5em" )
:wikitext( "__TOC__" )
if Data.sibling then
local block = mw.html.create( "div" )
if TemplateData.ltr then
shift = "right"
else
shift = "left"
end
block:css( "float", shift )
:wikitext( Data.sibling )
r:newline()
:node( block )
:newline()
end
r:newline()
:node( toc )
:newline()
if shift then
r:node( mw.html.create( "div" )
:css( "clear", shift ) )
:newline()
end
end
s = features()
if s then
if Data.leading then
r:node( mw.html.create( "h" .. Config.nested )
:wikitext( factory( "doc-params" ) ) )
:newline()
end
r:node( s )
end
if Data.shared then
local global = mw.html.create( "div" )
:attr( "id", "templatedata-global" )
local shift
if TemplateData.ltr then
shift = "right"
else
shift = "left"
end
global:css( "float", shift )
:wikitext( string.format( "[[%s|%s]]",
Data.shared, "Global" ) )
r:newline()
:node( global )
end
if Data.tree and Data.tree.format then
local e = format()
if e then
local show = "Format"
if Config.supportFormat then
show = string.format( "[[%s|%s]]",
Config.supportFormat, show )
end
r:node( mw.html.create( "p" )
:wikitext( show .. ": " )
:node( e ) )
end
end
return r
end -- formatter()

local function free()
-- Remove JSON comment lines
if Data.source:find( "//", 1, true ) then
Data.source:gsub( "([{,\"'])(%s*\n%s*//.*\n%s*)([{},\"'])",
"%1%3" )
end
end -- free()

local function full()
-- Build survey table from JSON data, append invisible <templatedata>
Data.div = mw.html.create( "div" )
:addClass( "mw-templatedata-doc-wrap" )
focus()
if Data.tag then
if type( Data.got.params ) == "table" then
for k, v in pairs( Data.got.params ) do
focus( k )
end -- for k, v
if Data.heirs then
fathers()
end
end
end
Data.div:node( formatter() )
if not Data.lazy then
Data.slim = flush()
if TemplateData.frame then
local div = mw.html.create( "div" )
local tdata = { [ 1 ] = "templatedata",
[ 2 ] = Data.slim }
Data.strip = TemplateData.frame:callParserFunction( "#tag",
tdata )
div:wikitext( Data.strip )
if Config.loudly then
Data.div:node( mw.html.create( "hr" )
:css( { height = "7ex" } ) )
else
div:css( "display", "none" )
end
Data.div:node( div )
end
end
if Data.lasting then
Fault( "deprecated type syntax" )
end
if Data.less then
Fault( Config.solo )
end
end -- full()

local function furnish( adapt, arglist )
-- Analyze transclusion
-- Parameter:
-- adapt -- table, #invoke parameters
-- arglist -- table, template parameters
-- Returns string
local source
favorize()
-- deprecated:
for k, v in pairs( Config.basicCnf ) do
if adapt[ k ] and adapt[ k ] ~= "" then
Config[ v ] = adapt[ k ]
end
end -- for k, v
if arglist.heading and arglist.heading:match( "^[3-6]$" ) then
Config.nested = arglist.heading
else
Config.nested = "2"
end
Config.loudly = faculty( arglist.debug or adapt.debug )
Data.lazy = faculty( arglist.lazy ) and not Config.loudly
Data.leading = faculty( arglist.TOC )
if Data.leading and arglist.TOCsibling then
Data.sibling = mw.text.trim( arglist.TOCsibling )
end
if arglist.lang then
Data.slang = arglist.lang:lower()
elseif adapt.lang then
Data.slang = adapt.lang:lower()
end
if arglist.JSON then
source = arglist.JSON
elseif arglist.Global then
source = TemplateData.getGlobalJSON( arglist.Global,
arglist.Local )
elseif arglist[ 1 ] then
local s = mw.text.trim( arglist[ 1 ] )
local start = s:sub( 1, 1 )
if start == "<" then
Data.strip = s
elseif start == "{" then
source = s
elseif mw.ustring.sub( s, 1, 8 ) ==
mw.ustring.char( 127, 39, 34, 96, 85, 78, 73, 81 ) then
Data.strip = s
end
end
if type( arglist.vertical ) == "string" and
arglist.vertical:match( "^%d*%.?%d+[emprx]+$" ) then
Data.scroll = arglist.vertical
end
if not source then
Data.title = mw.title.getCurrentTitle()
source = find()
if not source and
not Data.title.text:match( Config.subpage ) then
local s = string.format( Config.suffix,
Data.title.prefixedText )
Data.title = mw.title.new( s )
if Data.title.exists then
source = find()
end
end
end
if not Data.lazy then
if not Data.title then
Data.title = mw.title.getCurrentTitle()
end
Data.lazy = Data.title.text:match( Config.subpage )
end
if type( source ) == "string" then
TemplateData.getPlainJSON( source )
end
return finalize( faculty( arglist.source ) )
end -- furnish()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version
-- or wikidata|item|~|@ or false
-- Postcondition:
-- Returns string -- with queried version/item, also if problem
-- false -- if appropriate
-- 2020-08-17
local since = atleast
local last = ( since == "~" )
local linked = ( since == "@" )
local link = ( since == "item" )
local r
if last or link or linked or since == "wikidata" then
local item = Failsafe.item
since = false
if type( item ) == "number" and item > 0 then
local suited = string.format( "Q%d", item )
if link then
r = suited
else
local entity = mw.wikibase.getEntity( suited )
if type( entity ) == "table" then
local seek = Failsafe.serialProperty or "P348"
local vsn = entity:formatPropertyValues( seek )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false
elseif linked then
if mw.title.getCurrentTitle().prefixedText
== mw.wikibase.getSitelink( suited ) then
r = false
else
r = suited
end
else
r = vsn.value
end
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial
else
r = false
end
end
return r
end -- Failsafe.failsafe()

TemplateData.getGlobalJSON = function ( access, adapt )
-- Retrieve TemplateData from a global repository (JSON)
-- Parameter:
-- access -- string, with page specifier (on WikiMedia Commons)
-- adapt -- JSON string or table with local overrides
-- Returns true, if succeeded
local plugin = Fetch( "/global" )
local r
if type( plugin ) == "table" and
type( plugin.fetch ) == "function" then
local s, got = plugin.fetch( access, adapt )
if got then
Data.got = got
Data.order = got.paramOrder
Data.shared = s
r = true
full()
else
Fault( s )
end
end
return r
end -- TemplateData.getGlobalJSON()

TemplateData.getPlainJSON = function ( adapt )
-- Reduce enhanced JSON data to plain text localized JSON
-- Parameter:
-- adapt -- string, with enhanced JSON
-- Returns string, or not
if type( adapt ) == "string" then
local JSONutil = Fetch( "JSONutil", true )
Data.source = adapt
free()
if JSONutil then
local Multilingual = Fetch( "Multilingual", true )
local f
if Multilingual then
f = Multilingual.i18n
end
Data.got = JSONutil.fetch( Data.source, true, f )
else
local lucky
lucky, Data.got = pcall( mw.text.jsonDecode, Data.source )
end
if type( Data.got ) == "table" then
full()
elseif not Data.strip then
local scream = type( Data.got )
if scream == "string" then
scream = Data.got
else
scream = "Data.got: " .. scream
end
Fault( "fatal JSON error: " .. scream )
end
end
return Data.slim
end -- TemplateData.getPlainJSON()

TemplateData.test = function ( adapt, arglist )
TemplateData.frame = mw.getCurrentFrame()
return furnish( adapt, arglist )
end -- TemplateData.test()

-- Export
local p = { }

p.f = function ( frame )
-- Template call
local lucky, r
TemplateData.frame = frame
lucky, r = pcall( furnish, frame.args, frame:getParent().args )
if not lucky then
Fault( "INTERNAL: " .. r )
r = failures()
end
return r
end -- p.f

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Failsafe.failsafe( since ) or ""
end -- p.failsafe

p.TemplateData = function ()
-- Module interface
return TemplateData
end

return p

Modul:PageUtil

2020-10-21T14:30:23Z

ArxioWikiSysop: 1 Version importiert

local PageUtil = { suite = "PageUtil",
serial = "2018-10-19",
item = 0 }
--[=[
PageUtil
]=]

PageUtil.maxPages = 200

local function fault( alert, frame )
-- Format message with class="error"
-- alert -- string, with message
-- frame -- object, if known
-- Returns message with markup
local scream = alert
if frame then
scream = string.format( "%s * %s", frame:getTitle(), scream )
end
return tostring( mw.html.create( "span" )
:addClass( "error" )
:wikitext( scream ) )
end -- fault()

local function flat( adjust, assembly )
-- Replace links to pages by inner links
-- adjust -- string, with text
-- assembly -- table, with page infos
-- Returns adjusted string
local r = adjust
local seek, shift, source, subst
for k, v in pairs( assembly ) do
source = v[ 1 ]
shift = v[ 2 ]
source = ":?" .. source:gsub( " ", "[_ ]+" )
:gsub( "[%.%(%)%*%?%+%-]", "%1" )
.. "%s*"
seek = "%[%[%s*" .. source .. "(#[^%]]*%]%])"
subst = "[[%1"
r = r:gsub( seek, subst )
seek = "%[%[%s*" .. source .. "(%|[^%]]*%]%])"
subst = "[[#" .. shift .. "%1"
r = r:gsub( seek, subst )
seek = "%[%[%s*(" .. source .. "%]%])"
subst = "[[#" .. shift .. "|%1"
r = r:gsub( seek, subst )
end -- for k, v
return r
end -- flat()

local function fraction( access, frame )
-- Retrieve text from section
-- access -- string, with request
-- frame -- object
-- Returns content, or false
-- Uses:
-- mw.title.new() .exists
local r
local seek = "^(#lstx?):%s*%[%[([^%[|%]\n]+)%]%]%s*(%S.*)%s*$"
local scope, source, section = access:match( seek )
if source then
local page = mw.title.new( source )
source = page.prefixedText
if page.exists then
section = mw.text.trim( section )
if section ~= "" then
r = frame:callParserFunction{ name = scope,
args = { source,
section } }
end
else
r = tostring( mw.html.create( "div" )
:addClass( "error" )
:wikitext( source ) )
end
end
return r
end -- fraction()

local function full( access, frame, alias, assembly )
-- Retrieve text from page
-- access -- string, with page name
-- frame -- object
-- alias -- number, unique
-- assembly -- table, with page infos
-- Returns string with content, or nil
-- Uses:
-- mw.title.new() .exists
local page = mw.title.new( access )
local r
if page then
if page.exists then
local source = page.prefixedText
local segment = string.format( "PageUtilMerge-%d", alias )
local seed
if page.namespace == 0 then
seed = ":" .. source
else
seed = source
end
r = string.format( "%s\n%s",
tostring( mw.html.create( "span" )
:attr( "id", segment ) ),
frame:expandTemplate( { title = seed } ) )
table.insert( assembly, { source, segment } )
else
r = tostring( mw.html.create( "div" )
:addClass( "error" )
:wikitext( page.prefixedText ) )
end
else
r = string.format( "%s '%s'", "Unknown page", access )
r = tostring( mw.html.create( "div" )
:addClass( "error" )
:wikitext( r ) )
end
return r
end -- full()

PageUtil.failsafe = function ( assert )
-- Retrieve versioning and check for compliance
-- Precondition:
-- assert -- string, with required version or "wikidata",
-- or false
-- Postcondition:
-- Returns string with appropriate version, or false
local since = assert
local r
if since == "wikidata" then
local item = PageUtil.item
since = false
if type( item ) == "number" and item > 0 then
local ent = mw.wikibase.getEntity( string.format( "Q%d",
item ) )
if type( ent ) == "table" then
local vsn = ent:formatPropertyValues( "P348" )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
r = vsn.value
end
end
end
end
if not r then
if not since or since <= PageUtil.serial then
r = PageUtil.serial
else
r = false
end
end
return r
end -- PageUtil.failsafe()

PageUtil.getProtection = function ( access, action )
-- Retrieve protection
-- access -- string or title or nil, with page, default: current
-- action -- string or nil, with action, default: edit
-- Returns number: One of: 0, 0.5, 0.75, 1
local t = type( access )
local r = 0
local p
if t == "string" then
t = mw.title.new( access )
elseif t == "table" then
t = access
else
t = mw.title.getCurrentTitle()
end
p = t.protectionLevels
if type( p ) == "table" then
local s
if type( action ) == "string" then
s = mw.text.trim( action )
if s == "" then
s = false
end
end
p = p[ s or "edit" ]
if type( p ) == "table" then
for k, v in pairs( p ) do
if v == "autoconfirmed" then
r = 0.5
elseif v == "editeditorprotected" then
r = 0.75
elseif v == "sysop" then
r = 1
end
end -- for k, v
end
end
return r
end -- PageUtil.getProtection()

PageUtil.merge = function ( args, frame )
-- Retrieve text
-- args -- table, with request
-- frame -- object, if available
-- Returns string, with content
local max = 0
local r = ""
for k, v in pairs( args ) do
if type( k ) == "number" and
k > max then
max = k
end
end -- for k, v
if max > 0 then
local n = 0
local pages = { { mw.title.getCurrentTitle().prefixedText,
"" } }
local mode, s, section, swallow
if not frame then
frame = mw.getCurrentFrame()
end
for i = 1, max do
s = args[ i ]
if s then
swallow = s:match( "^%s*(#lstx?:[^\n]*%S)%s*$" )
if swallow then
s = fraction( swallow, frame )
n = n + 1
else
swallow = s:match( "^%s*%[%[([^%[|%]\n]+)%]%]%s*$" )
if swallow then
s = full( swallow, frame, i, pages )
n = n + 1
end
end
if s then
r = r .. mw.text.trim( s )
end
if n > PageUtil.maxPages then
s = string.format( "'''Too many pages (max. %d)'''",
PageUtil.maxPages )
r = string.format( "%s\n\n%s",
r,
fault( s, frame ) )
break -- for i
end
end
end -- for i
r = flat( r, pages )
end
return r
end -- .merge()

-- Export
local p = { }

p.getProtection = function ( frame )
local n = PageUtil.getProtection( frame.args[ 1 ], frame.args[ 2 ] )
local t = { [ 0 ] = "",
[ 0.5 ] = mw.ustring.char( 189 ),
[ 0.75 ] = mw.ustring.char( 190 ),
[ 1 ] = "1" }
return t[ n ]
end -- p.getProtection

function p.isRedirect()
return mw.title.getCurrentTitle().isRedirect and "1" or ""
end -- p.isRedirect

p.merge = function ( frame )
local lucky, r = pcall( PageUtil.merge, frame.args, frame )
if not lucky then
r = fault( r, frame )
end
return r
end -- p.merge

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return PageUtil.failsafe( since ) or ""
end -- p.failsafe()

function p.PageUtil()
return PageUtil
end

return p

Modul:Multilingual

2020-10-21T14:30:22Z

ArxioWikiSysop: 1 Version importiert

local Multilingual = { suite = "Multilingual",
serial = "2020-02-01",
item = 47541920,
globals = { ISO15924 = 71584769,
WLink = 19363224 }
}
--[=[
Utilities for multilingual texts and ISO 639 (BCP47) issues etc.
* fair()
* fallback()
* findCode()
* fix()
* format()
* getBase()
* getLang()
* getName()
* i18n()
* int()
* isLang()
* isLangWiki()
* isMinusculable()
* isRTL()
* message()
* sitelink()
* tabData()
* userLang()
* userLangCode()
* wikibase()
* failsafe()
loadData: Multilingual/config Multilingual/names
]=]
local Failsafe = Multilingual
local GlobalMod = Multilingual
local GlobalData = Multilingual
local User = { sniffer = "showpreview" }
Multilingual.globals.Multilingual = Multilingual.item

Multilingual.exotic = { simple = true,
no = true }
Multilingual.prefer = { cs = true,
de = true,
en = true,
es = true,
fr = true,
it = true,
nl = true,
pt = true,
ru = true,
sv = true }

local foreignModule = function ( access, advanced, append, alt, alert )
-- Fetch global module
-- Precondition:
-- access -- string, with name of base module
-- advanced -- true, for require(); else mw.loadData()
-- append -- string, with subpage part, if any; or false
-- alt -- number, of wikidata item of root; or false
-- alert -- true, for throwing error on data problem
-- Postcondition:
-- Returns whatever, probably table
-- 2019-10-29
local storage = access
local finer = function ()
if append then
storage = string.format( "%s/%s",
storage,
append )
end
end
local fun, lucky, r, suited
if advanced then
fun = require
else
fun = mw.loadData
end
GlobalMod.globalModules = GlobalMod.globalModules or { }
suited = GlobalMod.globalModules[ access ]
if not suited then
finer()
lucky, r = pcall( fun, "Module:" .. storage )
end
if not lucky then
if not suited and
type( alt ) == "number" and
alt > 0 then
suited = string.format( "Q%d", alt )
suited = mw.wikibase.getSitelink( suited )
GlobalMod.globalModules[ access ] = suited or true
end
if type( suited ) == "string" then
storage = suited
finer()
lucky, r = pcall( fun, storage )
end
if not lucky and alert then
error( "Missing or invalid page: " .. storage, 0 )
end
end
return r
end -- foreignModule()

local fetchData = function ( access )
-- Retrieve translated keyword from commons:Data:****.tab
-- Precondition:
-- access -- string, with page identification on Commons
-- Returns table, with data, or string, with error message
-- 2019-12-05
local storage = access
local r
if type( storage ) == "string" then
local s
storage = mw.text.trim( storage )
s = storage:lower()
if s:sub( 1, 2 ) == "c:" then
storage = mw.text.trim( storage:sub( 3 ) )
s = storage:lower()
elseif s:sub( 1, 8 ) == "commons:" then
storage = mw.text.trim( storage:sub( 9 ) )
s = storage:lower()
end
if s:sub( 1, 5 ) == "data:" then
storage = mw.text.trim( storage:sub( 6 ) )
s = storage:lower()
end
if s == "" or s == ".tab" then
storage = false
elseif s:sub( -4 ) == ".tab" then
storage = storage:sub( 1, -5 ) .. ".tab"
else
storage = storage .. ".tab"
end
end
if type( storage ) == "string" then
local data
if type( GlobalData.TabDATA ) ~= "table" then
GlobalData.TabDATA = { }
end
data = GlobalData.TabDATA[ storage ]
if data then
r = data
else
local lucky
lucky, data = pcall( mw.ext.data.get, storage, "_" )
if type( data ) == "table" then
data = data.data
if type( data ) == "table" then
GlobalData.TabDATA[ storage ] = data
else
r = string.format( "%s [[%s%s]]",
"INVALID Data:*.tab",
"commons:Data:",
storage )
end
else
r = "BAD PAGE Data:*.tab – commons:" .. storage
end
if r then
GlobalData.TabDATA[ storage ] = r
data = false
else
r = data
end
end
else
r = "BAD PAGE commons:Data:*.tab"
end
return r
end -- fetchData()

local favorites = function ()
-- Provide fallback codes
-- Postcondition:
-- Returns table with sequence of preferred languages
-- * ahead elements
-- * user (not yet accessible)
-- * page content language (not yet accessible)
-- * page name subpage
-- * project
-- * en
local r = Multilingual.polyglott
if not r then
local self = mw.language.getContentLanguage():getCode():lower()
local sub = mw.title.getCurrentTitle().subpageText
local f = function ( add )
local s = add
for i = 1, #r do
if r[ i ] == s then
s = false
break -- for i
end
end -- for i
if s then
table.insert( r, s )
end
end
r = { }
if sub:find( "/", 2, true ) then
sub = sub:match( "/(%l%l%l?)$" )
if sub then
table.insert( r, sub )
end
elseif sub:find( "^%l%l%l?%-?%a?%a?%a?%a?$" ) and
mw.language.isSupportedLanguage( sub ) then
table.insert( r, sub )
end
f( self )
f( "en" )
Multilingual.polyglott = r
end
return r
end -- favorites()

local feasible = function ( ask, accept )
-- Is ask to be supported by application?
-- Precondition:
-- ask -- lowercase code
-- accept -- sequence table, with offered lowercase codes
-- Postcondition:
-- nil, or true
local r
for i = 1, #accept do
if accept[ i ] == ask then
r = true
break -- for i
end
end -- for i
return r
end -- feasible()

local fetch = function ( access, append )
-- Attach config or library module
-- Precondition:
-- access -- module title
-- append -- string, with subpage part of this; or false
-- Postcondition:
-- Returns: table, with library, or false
local got, sign
if append then
sign = string.format( "%s/%s", access, append )
else
sign = access
end
if type( Multilingual.ext ) ~= "table" then
Multilingual.ext = { }
end
got = Multilingual.ext[ sign ]
if not got and got ~= false then
local global = Multilingual.globals[ access ]
local lib = ( not append or append == "config" )
got = foreignModule( access, lib, append, global )
if type( got ) == "table" then
if lib then
local startup = got[ access ]
if type( startup ) == "function" then
got = startup()
end
end
else
got = false
end
Multilingual.ext[ sign ] = got
end
return got
end -- fetch()

local fetchISO639 = function ( access )
-- Retrieve table from commons:Data:ISO639/***.tab
-- Precondition:
-- access -- string, with subpage identification
-- Postcondition:
-- Returns table, with data, even empty
local r
if type( Multilingual.iso639 ) ~= "table" then
Multilingual.iso639 = { }
end
r = Multilingual.iso639[ access ]
if type( r ) == "nil" then
local raw = fetchData( "ISO639/" .. access )
if type( raw ) == "table" then
local t
r = { }
for i = 1, #raw do
t = raw[ i ]
if type( t ) == "table" and
type( t[ 1 ] ) == "string" and
type( t[ 2 ] ) == "string" then
r[ t[ 1 ] ] = t[ 2 ]
else
break -- for i
end
end -- for i
else
r = false
end
Multilingual.iso639[ access ] = r
end
return r or { }
end -- fetchISO639()

local fill = function ( access, alien, frame )
-- Expand language name template
-- Precondition:
-- access -- string, with language code
-- alien -- language code for which to be generated
-- frame -- frame, if available
-- Postcondition:
-- Returns string
local template = Multilingual.tmplLang
local r
if type( template ) ~= "table" then
local cnf = fetch( "Multilingual", "config" )
if cnf then
template = cnf.tmplLang
end
end
if type( template ) == "table" then
local source = template.title
local f, lucky, s
Multilingual.tmplLang = template
if type( source ) ~= "string" and
type( template.namePat ) == "string" and
template.namePat:find( "%s", 1, true ) then
source = string.format( template.namePat, access )
end
if type( source ) == "string" then
if not Multilingual.frame then
if frame then
Multilingual.frame = frame
else
Multilingual.frame = mw.getCurrentFrame()
end
end
f = function ( a )
return Multilingual.frame:expandTemplate{ title = a }
end
lucky, s = pcall( f, source )
if lucky then
r = s
end
end
end
return r
end -- fill()

local find = function ( ask, alien )
-- Derive language code from name
-- Precondition:
-- ask -- language name, downcased
-- alien -- language code of ask
-- Postcondition:
-- nil, or string
local codes = mw.language.fetchLanguageNames( alien, "all" )
local r
for k, v in pairs( codes ) do
if mw.ustring.lower( v ) == ask then
r = k
break -- for k, v
end
end -- for k, v
if not r then
r = Multilingual.fair( ask )
end
return r
end -- find()

local fold = function ( frame )
-- Merge template and #invoke arglist
-- Precondition:
-- frame -- template frame
-- Postcondition:
-- table, with combined arglist
local r = { }
local f = function ( apply )
if type( apply ) == "table" and
type( apply.args ) == "table" then
for k, v in pairs( apply.args ) do
v = mw.text.trim( v )
if v ~= "" then
r[ tostring( k ) ] = v
end
end -- for k, v
end
end -- f()
f( frame:getParent() )
f( frame )
return r
end -- fold()

User.favorize = function ( accept, frame )
-- Guess user language
-- Precondition:
-- accept -- sequence table, with offered ISO 639 etc. codes
-- frame -- frame, if available
-- Postcondition:
-- Returns string with best code, or nil
if not ( User.self or User.langs ) then
if not User.trials then
User.tell = mw.message.new( User.sniffer )
if User.tell:exists() then
User.trials = { }
if not Multilingual.frame then
if frame then
Multilingual.frame = frame
else
Multilingual.frame = mw.getCurrentFrame()
end
end
User.sin = Multilingual.frame:callParserFunction( "int",
User.sniffer )
else
User.langs = true
end
end
if User.sin then
local order = { }
local post = { }
local three = { }
local unfold = { }
local s, sin
for i = 1, #accept do
s = accept[ i ]
if not User.trials[ s ] then
if #s > 2 then
if s:find( "-", 3, true ) then
table.insert( unfold, s )
else
table.insert( three, s )
end
else
if Multilingual.prefer[ s ] then
table.insert( order, s )
else
table.insert( post, s )
end
end
end
end -- for i
for i = 1, #post do
table.insert( order, post[ i ] )
end -- for i
for i = 1, #three do
table.insert( order, three[ i ] )
end -- for i
for i = 1, #unfold do
table.insert( order, unfold[ i ] )
end -- for i
for i = 1, #order do
s = order[ i ]
sin = User.tell:inLanguage( s ):plain()
if sin == User.sin then
User.self = s
break -- for i
else
User.trials[ s ] = true
end
end -- for i
end
end
return User.self
end -- User.favorize()

Multilingual.fair = function ( ask )
-- Format language specification according to RFC 5646 etc.
-- Precondition:
-- ask -- string or table, as created by .getLang()
-- Postcondition:
-- Returns string, or false
local s = type( ask )
local q, r
if s == "table" then
q = ask
elseif s == "string" then
q = Multilingual.getLang( ask )
end
if q and
q.legal and
mw.language.isKnownLanguageTag( q.base ) then
r = q.base
if q.n > 1 then
local order = { "extlang",
"script",
"region",
"other",
"extension" }
for i = 1, #order do
s = q[ order[ i ] ]
if s then
r = string.format( "%s-%s", r, s )
end
end -- for i
end
end
return r or false
end -- Multilingual.fair()

Multilingual.fallback = function ( able, another )
-- Is another language suitable as replacement?
-- Precondition:
-- able -- language version specifier to be supported
-- another -- language specifier of a possible replacement,
-- or not to retrieve a fallback table
-- Postcondition:
-- Returns boolean, or table with fallback codes
local r
if type( able ) == "string" and #able > 0 then
if type( another ) == "string" and #another > 0 then
if able == another then
r = true
else
local s = Multilingual.getBase( able )
if s == another then
r = true
else
local others = mw.language.getFallbacksFor( s )
r = feasible( another, others )
end
end
else
local s = Multilingual.getBase( able )
if s then
r = mw.language.getFallbacksFor( s )
if r[ 1 ] == "en" then
local d = fetchISO639( "fallback" )
if type( d ) == "table" and
type( d[ s ] ) == "string" then
r = mw.text.split( d[ s ], "|" )
table.insert( r, "en" )
end
end
end
end
end
return r or false
end -- Multilingual.fallback()

Multilingual.findCode = function ( ask )
-- Retrieve code of local (current project or English) language name
-- Precondition:
-- ask -- string, with presumable language name
-- A code itself will be identified, too.
-- Postcondition:
-- Returns string, or false
local seek = mw.text.trim( ask )
local r = false
if #seek > 1 then
if seek:find( "[", 1, true ) then
local wlink = fetch( "WLink" )
if wlink and
type( wlink.getPlain ) == "function" then
seek = wlink.getPlain( seek )
end
end
seek = mw.ustring.lower( seek )
if Multilingual.isLang( seek ) then
r = Multilingual.fair( seek )
else
local collection = favorites()
for i = 1, #collection do
r = find( seek, collection[ i ] )
if r then
break -- for i
end
end -- for i
end
end
return r
end -- Multilingual.findCode()

Multilingual.fix = function ( attempt )
-- Fix frequently mistaken language code
-- Precondition:
-- attempt -- string, with presumable language code
-- Postcondition:
-- Returns string with correction, or false if no problem known
local r = fetchISO639( "correction" )[ attempt:lower() ]
return r or false
end -- Multilingual.fix()

Multilingual.format = function ( apply, alien, alter, active, alert,
frame, assembly, adjacent, ahead )
-- Format one or more languages
-- Precondition:
-- apply -- string with language list or item
-- alien -- language of the answer
-- -- nil, false, "*": native
-- -- "!": current project
-- -- "#": code, downcased, space separated
-- -- "-": code, mixcase, space separated
-- -- any valid code
-- alter -- capitalize, if "c"; downcase all, if "d"
-- capitalize first item only, if "f"
-- downcase every first word only, if "m"
-- active -- link items, if true
-- alert -- string with category title in case of error
-- frame -- if available
-- assembly -- string with split pattern, if list expected
-- adjacent -- string with list separator, else assembly
-- ahead -- string to prepend first element, if any
-- Postcondition:
-- Returns string, or false if apply empty
local r = false
if apply then
local slang
if assembly then
local bucket = mw.text.split( apply, assembly )
local shift = alter
local separator
if adjacent then
separator = adjacent
elseif alien == "#" or alien == "-" then
separator = " "
else
separator = assembly
end
for k, v in pairs( bucket ) do
slang = Multilingual.format( v, alien, shift, active,
alert )
if slang then
if r then
r = string.format( "%s%s%s",
r, separator, slang )
else
r = slang
if shift == "f" then
shift = "d"
end
end
end
end -- for k, v
if r and ahead then
r = ahead .. r
end
else
local single = mw.text.trim( apply )
if single == "" then
r = false
else
local lapsus, slot
slang = Multilingual.findCode( single )
if slang then
if alien == "-" then
r = slang
elseif alien == "#" then
r = slang:lower()
else
r = Multilingual.getName( slang, alien )
if active then
slot = fill( slang, false, frame )
if slot then
local wlink = fetch( "WLink" )
if wlink and
type( wlink.getTarget )
== "function" then
slot = wlink.getTarget( slot )
end
else
lapsus = alert
end
end
end
else
r = single
if active then
local title = mw.title.makeTitle( 0, single )
if title.exists then
slot = single
end
end
lapsus = alert
end
if not r then
r = single
elseif alter == "c" or alter == "f" then
r = mw.ustring.upper( mw.ustring.sub( r, 1, 1 ) )
.. mw.ustring.sub( r, 2 )
elseif alter == "d" then
if Multilingual.isMinusculable( slang, r ) then
r = mw.ustring.lower( r )
end
elseif alter == "m" then
if Multilingual.isMinusculable( slang, r ) then
r = mw.ustring.lower( mw.ustring.sub( r, 1, 1 ) )
.. mw.ustring.sub( r, 2 )
end
end
if slot then
if r == slot then
r = string.format( "[[%s]]", r )
else
r = string.format( "[[%s|%s]]", slot, r )
end
end
if lapsus and alert then
r = string.format( "%s[[Category:%s]]", r, alert )
end
end
end
end
return r
end -- Multilingual.format()

Multilingual.getBase = function ( ask )
-- Retrieve base language from possibly combined ISO language code
-- Precondition:
-- ask -- language code
-- Postcondition:
-- Returns string, or false
local r
if ask then
local slang = ask:match( "^%s*(%a%a%a?)-?%a*%s*$" )
if slang then
r = slang:lower()
else
r = false
end
else
r = false
end
return r
end -- Multilingual.getBase()

Multilingual.getLang = function ( ask )
-- Retrieve components of a RFC 5646 language code
-- Precondition:
-- ask -- language code with subtags
-- Postcondition:
-- Returns table with formatted subtags
-- .base
-- .region
-- .script
-- .suggest
-- .year
-- .extension
-- .other
-- .n
local tags = mw.text.split( ask, "-" )
local s = tags[ 1 ]
local r
if s:match( "^%a%a%a?$" ) then
r = { base = s:lower(),
legal = true,
n = #tags }
for i = 2, r.n do
s = tags[ i ]
if #s == 2 then
if r.region or not s:match( "%a%a" ) then
r.legal = false
else
r.region = s:upper()
end
elseif #s == 4 then
if s:match( "%a%a%a%a" ) then
r.legal = ( not r.script )
r.script = s:sub( 1, 1 ):upper() ..
s:sub( 2 ):lower()
elseif s:match( "20%d%d" ) or
s:match( "1%d%d%d" ) then
r.legal = ( not r.year )
r.year = s
else
r.legal = false
end
elseif #s == 3 then
if r.extlang or not s:match( "%a%a%a" ) then
r.legal = false
else
r.extlang = s:lower()
end
elseif #s == 1 then
s = s:lower()
if s:match( "[tux]" ) then
r.extension = s
for k = i + 1, r.n do
s = tags[ k ]
if s:match( "^%w+$" ) then
r.extension = string.format( "%s-%s",
r.extension, s )
else
r.legal = false
end
end -- for k
else
r.legal = false
end
break -- for i
else
r.legal = ( not r.other ) and
s:match( "%a%a%a" )
r.other = s:lower()
end
if not r.legal then
break -- for i
end
end -- for i
if r.legal then
r.suggest = Multilingual.fix( r.base )
if r.suggest then
r.legal = false
end
end
else
r = { legal = false }
end
if not r.legal then
local cnf = fetch( "Multilingual", "config" )
if cnf and type( cnf.scream ) == "string" then
r.scream = cnf.scream
end
end
return r
end -- Multilingual.getLang()

Multilingual.getName = function ( ask, alien )
-- Which name is assigned to this language code?
-- Precondition:
-- ask -- language code
-- alien -- language of the answer
-- -- nil, false, "*": native
-- -- "!": current project
-- -- any valid code
-- Postcondition:
-- Returns string, or false
local r
if ask then
local slang = alien
local tLang
if slang then
if slang == "*" then
slang = Multilingual.fair( ask )
elseif slang == "!" then
slang = favorites()[ 1 ]
else
slang = Multilingual.fair( slang )
end
else
slang = Multilingual.fair( ask )
end
if not slang then
slang = ask or "?????"
end
slang = slang:lower()
tLang = fetch( "Multilingual", "names" )
if tLang then
tLang = tLang[ slang ]
if tLang then
r = tLang[ ask ]
end
end
if not r then
if not Multilingual.ext.tMW then
Multilingual.ext.tMW = { }
end
tLang = Multilingual.ext.tMW[ slang ]
if tLang == nil then
tLang = mw.language.fetchLanguageNames( slang )
if tLang then
Multilingual.ext.tMW[ slang ] = tLang
else
Multilingual.ext.tMW[ slang ] = false
end
end
if tLang then
r = tLang[ ask ]
end
end
if not r then
r = mw.language.fetchLanguageName( ask:lower(), slang )
if r == "" then
r = false
end
end
else
r = false
end
return r
end -- Multilingual.getName()

Multilingual.i18n = function ( available, alt, frame )
-- Select translatable message
-- Precondition:
-- available -- table, with mapping language code ./. text
-- alt -- string|nil|false, with fallback text
-- frame -- frame, if available
-- Returns
-- 1. string|nil|false, with selected message
-- 2. string|nil|false, with language code
local r1, r2
if type( available ) == "table" then
local codes = { }
local trsl = { }
local slang
for k, v in pairs( available ) do
if type( k ) == "string" and
type( v ) == "string" then
slang = mw.text.trim( k:lower() )
table.insert( codes, slang )
trsl[ slang ] = v
end
end -- for k, v
slang = Multilingual.userLang( codes, frame )
if slang and trsl[ slang ] then
r1 = mw.text.trim( trsl[ slang ] )
if r1 == "" then
r1 = false
else
r2 = slang
end
end
end
if not r1 and type( alt ) == "string" then
r1 = mw.text.trim( alt )
if r1 == "" then
r1 = false
end
end
return r1, r2
end -- Multilingual.i18n()

Multilingual.int = function ( access, alien, apply )
-- Translated system message
-- Precondition:
-- access -- message ID
-- alien -- language code
-- apply -- nil, or sequence table with parameters $1, $2, ...
-- Postcondition:
-- Returns string, or false
local o = mw.message.new( access )
local r
if o:exists() then
if type( alien ) == "string" then
o:inLanguage( alien:lower() )
end
if type( apply ) == "table" then
o:params( apply )
end
r = o:plain()
end
return r or false
end -- Multilingual.int()

Multilingual.isLang = function ( ask, additional )
-- Could this be an ISO language code?
-- Precondition:
-- ask -- language code
-- additional -- true, if Wiki codes like "simple" permitted
-- Postcondition:
-- Returns boolean
local r, s
if additional then
s = ask
else
s = Multilingual.getBase( ask )
end
if s then
r = mw.language.isKnownLanguageTag( s )
if r then
r = not Multilingual.fix( s )
elseif additional then
r = Multilingual.exotic[ s ] or false
end
else
r = false
end
return r
end -- Multilingual.isLang()

Multilingual.isLangWiki = function ( ask )
-- Could this be a Wiki language version?
-- Precondition:
-- ask -- language version specifier
-- Postcondition:
-- Returns boolean
local r
local s = Multilingual.getBase( ask )
if s then
r = mw.language.isSupportedLanguage( s ) or
Multilingual.exotic[ ask ]
else
r = false
end
return r
end -- Multilingual.isLangWiki()

Multilingual.isMinusculable = function ( ask, assigned )
-- Could this language name become downcased?
-- Precondition:
-- ask -- language code, or nil
-- assigned -- language name, or nil
-- Postcondition:
-- Returns boolean
local r = true
if ask then
local cnf = fetch( "Multilingual", "config" )
if cnf then
local s = string.format( " %s ", ask:lower() )
if type( cnf.stopMinusculization ) == "string"
and cnf.stopMinusculization:find( s, 1, true ) then
r = false
end
if r and assigned
and type( cnf.seekMinusculization ) == "string"
and cnf.seekMinusculization:find( s, 1, true )
and type( cnf.scanMinusculization ) == "string" then
local scan = assigned:gsub( "[%(%)]", " " ) .. " "
if not scan:find( cnf.scanMinusculization ) then
r = false
end
end
end
end
return r
end -- Multilingual.isMinusculable()

Multilingual.isRTL = function ( ask )
-- Check whether language is written right-to-left
-- Precondition:
-- ask -- string, with language (or script) code
-- Returns true, if right-to-left
local r
Multilingual.rtl = Multilingual.rtl or { }
r = Multilingual.rtl[ ask ]
if type( r ) ~= "boolean" then
local bib = fetch( "ISO15924" )
if type( bib ) == "table" and
type( bib.isRTL ) == "function" then
r = bib.isRTL( ask )
else
r = mw.language.new( ask ):isRTL()
end
Multilingual.rtl[ ask ] = r
end
return r
end -- Multilingual.isRTL()

Multilingual.message = function ( arglist, frame )
-- Show text in best match of user language like system message
-- Precondition:
-- arglist -- template arguments
-- frame -- frame, if available
-- Postcondition:
-- Returns string with appropriate text
local r
if type( arglist ) == "table" then
local t = { }
local m, p, save
for k, v in pairs( arglist ) do
if type( k ) == "string" and
type( v ) == "string" then
v = mw.text.trim( v )
if v ~= "" then
if k:match( "^%l%l" ) then
t[ k ] = v
elseif k:match( "^%$%d$" ) and k ~= "$0" then
p = p or { }
k = tonumber( k:match( "^%$(%d)$" ) )
p[ k ] = v
if not m or k > m then
m = k
end
end
end
end
end -- for k, v
if type( arglist[ "-" ] ) == "string" then
save = arglist[ arglist[ "-" ] ]
end
r = Multilingual.i18n( t, save, frame )
if p and r and r:find( "$", 1, true ) then
t = { }
for i = 1, m do
t[ i ] = p[ i ] or ""
end -- for i
r = mw.message.newRawMessage( r, t ):plain()
end
end
return r or ""
end -- Multilingual.message()

Multilingual.sitelink = function ( all, frame )
-- Make link at local or other site with optimal linktext translation
-- Precondition:
-- all -- string or table or number, item ID or entity
-- frame -- frame, if available
-- Postcondition:
-- Returns string with any helpful internal link, or plain text
local s = type( all )
local object, r
if s == "table" then
object = all
elseif s == "string" then
object = mw.wikibase.getEntity( all )
elseif s == "number" then
object = mw.wikibase.getEntity( string.format( "Q%d", all ) )
end
if type( object ) == "table" then
local collection = object.sitelinks
local entry
s = false
if type( collection ) == "table" then
Multilingual.site = Multilingual.site or
mw.wikibase.getGlobalSiteId()
entry = collection[ Multilingual.site ]
if entry then
s = ":" .. entry.title
elseif collection.enwiki then
s = "w:en:" .. collection.enwiki.title
end
end
r = Multilingual.wikibase( object, "labels", frame )
if s then
if s == ":" .. r then
r = string.format( "[[%s]]", s )
else
r = string.format( "[[%s|%s]]", s, r )
end
end
end
return r or ""
end -- Multilingual.sitelink()

Multilingual.tabData = function ( access, at, alt, frame )
-- Retrieve translated keyword from commons:Data:****.tab
-- Precondition:
-- access -- string, with page identification on Commons
-- at -- string, with keyword
-- alt -- string|nil|false, with fallback text
-- frame -- frame, if available
-- Returns
-- 1. string|nil|false, with selected message
-- 2. language code, or "error"
local data = fetchData( access )
local r1, r2
if type( data ) == "table" then
if type( at ) == "string" then
local seek = mw.text.trim( at )
if seek == "" then
r1 = "EMPTY Multilingual.tabData key"
else
local e, poly
for i = 1, #data do
e = data[ i ]
if type( e ) == "table" then
if e[ 1 ] == seek then
if type( e[ 2 ] ) == "table" then
poly = e[ 2 ]
else
r1 = "INVALID Multilingual.tabData bad #"
.. tostring( i )
end
break -- for i
end
else
break -- for i
end
end -- for i
if poly then
data = poly
else
r1 = "UNKNOWN Multilingual.tabData key: " .. seek
end
end
else
r1 = "INVALID Multilingual.tabData key"
end
else
r1 = data
end
if r1 then
r2 = "error"
elseif data then
r1, r2 = Multilingual.i18n( data, alt, frame )
r2 = r2 or "error"
end
return r1, r2
end -- Multilingual.tabData()

Multilingual.userLang = function ( accept, frame )
-- Try to support user language by application
-- Precondition:
-- accept -- string or table
-- space separated list of available ISO 639 codes
-- Default: project language, or English
-- frame -- frame, if available
-- Postcondition:
-- Returns string with appropriate code
local s = type( accept )
local codes, r, slang
if s == "string" then
codes = mw.text.split( accept:lower(), "%s+" )
elseif s == "table" then
codes = { }
for i = 1, #accept do
s = accept[ i ]
if type( s ) == "string" and
s ~= "" then
table.insert( codes, s:lower() )
end
end -- for i
end
slang = User.favorize( codes, frame )
if slang then
if feasible( slang, codes ) then
r = slang
elseif slang:find( "-", 1, true ) then
slang = Multilingual.getBase( slang )
if feasible( slang, codes ) then
r = slang
end
end
if not r then
local others = mw.language.getFallbacksFor( slang )
for i = 1, #others do
slang = others[ i ]
if feasible( slang, codes ) then
r = slang
break -- for i
end
end -- for i
end
end
if not r then
local back = favorites()
for i = 1, #back do
slang = back[ i ]
if feasible( slang, codes ) then
r = slang
break -- for i
end
end -- for i
if not r and codes[ 1 ] then
r = codes[ 1 ]
end
end
return r or favorites()[ 1 ]
end -- Multilingual.userLang()

Multilingual.userLangCode = function ()
-- Guess a user language code
-- Postcondition:
-- Returns code of current best guess
return User.self or favorites()[ 1 ]
end -- Multilingual.userLangCode()

Multilingual.wikibase = function ( all, about, attempt, frame )
-- Optimal translation of wikibase component
-- Precondition:
-- all -- string or table, object ID or entity
-- about -- boolean, true "descriptions" or false "labels"
-- attempt -- string or not, code of preferred language
-- frame -- frame, if available
-- Postcondition:
-- Returns
-- 1. string, with selected message
-- 2. string, with language code, or not
local s = type( all )
local object, r, r2
if s == "table" then
object = all
elseif s == "string" then
object = mw.wikibase.getEntity( all )
end
if type( object ) == "table" then
if about and about ~= "labels" then
s = "descriptions"
else
s = "labels"
end
object = object[ s ]
if type( object ) == "table" then
if object[ attempt ] then
r = object[ attempt ].value
r2 = attempt
else
local poly
for k, v in pairs( object ) do
poly = poly or { }
poly[ k ] = v.value
end -- for k, v
if poly then
r, r2 = Multilingual.i18n( poly, nil, frame )
end
end
end
end
return r or "", r2
end -- Multilingual.wikibase()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version or "wikidata" or "~"
-- or false
-- Postcondition:
-- Returns string -- with queried version, also if problem
-- false -- if appropriate
-- 2019-10-15
local last = ( atleast == "~" )
local since = atleast
local r
if last or since == "wikidata" then
local item = Failsafe.item
since = false
if type( item ) == "number" and item > 0 then
local entity = mw.wikibase.getEntity( string.format( "Q%d",
item ) )
if type( entity ) == "table" then
local seek = Failsafe.serialProperty or "P348"
local vsn = entity:formatPropertyValues( seek )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false
else
r = vsn.value
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial
else
r = false
end
end
return r
end -- Failsafe.failsafe()

-- Export
local p = { }

p.fair = function ( frame )
-- Format language code
-- 1 -- language code
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.fair( s ) or ""
end -- p.fair

p.fallback = function ( frame )
-- Is another language suitable as replacement?
-- 1 -- language version specifier to be supported
-- 2 -- language specifier of a possible replacement
local s1 = mw.text.trim( frame.args[ 1 ] or "" )
local s2 = mw.text.trim( frame.args[ 2 ] or "" )
local r = Multilingual.fallback( s1, s2 )
if type( r ) == "table" then
r = r[ 1 ]
else
r = r and "1" or ""
end
return r
end -- p.fallback

p.findCode = function ( frame )
-- Retrieve language code from language name
-- 1 -- name in current project language
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.findCode( s ) or ""
end -- p.findCode

p.fix = function ( frame )
local r = frame.args[ 1 ]
if r then
r = Multilingual.fix( mw.text.trim( r ) )
end
return r or ""
end -- p.fix

p.format = function ( frame )
-- Format one or more languages
-- 1 -- language list or item
-- slang -- language of the answer, if not native
-- * -- native
-- ! -- current project
-- any valid code
-- shift -- capitalize, if "c"; downcase, if "d"
-- capitalize first item only, if "f"
-- link -- 1 -- link items
-- scream -- category title in case of error
-- split -- split pattern, if list expected
-- separator -- list separator, else split
-- start -- prepend first element, if any
local r
local link
if frame.args.link == "1" then
link = true
end
r = Multilingual.format( frame.args[ 1 ],
frame.args.slang,
frame.args.shift,
link,
frame.args.scream,
frame,
frame.args.split,
frame.args.separator,
frame.args.start )
return r or ""
end -- p.format

p.getBase = function ( frame )
-- Retrieve base language from possibly combined ISO language code
-- 1 -- code
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.getBase( s ) or ""
end -- p.getBase

p.getName = function ( frame )
-- Retrieve language name from ISO language code
-- 1 -- code
-- 2 -- language to be used for the answer, if not native
-- ! -- current project
-- * -- native
-- any valid code
local s = mw.text.trim( frame.args[ 1 ] or "" )
local slang = frame.args[ 2 ]
local r
Multilingual.frame = frame
if slang then
slang = mw.text.trim( slang )
end
r = Multilingual.getName( s, slang )
return r or ""
end -- p.getName

p.int = function ( frame )
-- Translated system message
-- 1 -- message ID
-- lang -- language code
-- $1, $2, ... -- parameters
local sysMsg = frame.args[ 1 ]
local r
if sysMsg then
sysMsg = mw.text.trim( sysMsg )
if sysMsg ~= "" then
local n = 0
local slang = frame.args.lang
local i, params, s
if slang == "" then
slang = false
end
for k, v in pairs( frame.args ) do
if type( k ) == "string" then
s = k:match( "^%$(%d+)$" )
if s then
i = tonumber( s )
if i > n then
n = i
end
end
end
end -- for k, v
if n > 0 then
local s
params = { }
for i = 1, n do
s = frame.args[ "$" .. tostring( i ) ] or ""
table.insert( params, s )
end -- for i
end
r = Multilingual.int( sysMsg, slang, params )
end
end
return r or ""
end -- p.int

p.isLang = function ( frame )
-- Could this be an ISO language code?
-- 1 -- code
local s = mw.text.trim( frame.args[ 1 ] or "" )
local lucky, r = pcall( Multilingual.isLang, s )
return r and "1" or ""
end -- p.isLang

p.isLangWiki = function ( frame )
-- Could this be a Wiki language version?
-- 1 -- code
-- Returns non-empty, if possibly language version
local s = mw.text.trim( frame.args[ 1 ] or "" )
local lucky, r = pcall( Multilingual.isLangWiki, s )
return r and "1" or ""
end -- p.isLangWiki

p.isRTL = function ( frame )
-- Check whether language is written right-to-left
-- 1 -- string, with language code
-- Returns non-empty, if right-to-left
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.isRTL( s ) and "1" or ""
end -- p.isRTL()

p.message = function ( frame )
-- Translation of text element
return Multilingual.message( fold( frame ), frame )
end -- p.message

p.sitelink = function ( frame )
-- Make link at local or other site with optimal linktext translation
-- 1 -- item ID
local s = mw.text.trim( frame.args[ 1 ] or "" )
local r
if s:match( "^%d+$") then
r = tonumber( s )
elseif s:match( "^Q%d+$") then
r = s
end
if r then
r = Multilingual.sitelink( r, frame )
end
return r or s
end -- p.sitelink

p.tabData = function ( frame )
-- Retrieve best message text from Commons Data
-- 1 -- page identification on Commons
-- 2 -- keyword
-- alt -- fallback text
local suite = frame.args[ 1 ]
local seek = frame.args[ 2 ]
local salt = frame.args.alt
return Multilingual.tabData( suite, seek, salt, frame )
end -- p.tabData

p.userLang = function ( frame )
-- Which language does the current user prefer?
-- 1 -- space separated list of available ISO 639 codes
local s = mw.text.trim( frame.args[ 1 ] or "" )
return Multilingual.userLang( s, frame )
end -- p.userLang

p.wikibase = function ( frame )
-- Optimal translation of wikibase component
-- 1 -- object ID
-- 2 -- 1 for "descriptions", 0 for "labels".
-- or either "descriptions" or "labels"
local r
local s = mw.text.trim( frame.args[ 1 ] or "" )
if s ~= "" then
local s2 = mw.text.trim( frame.args[ 2 ] or "0" )
local slang = mw.text.trim( frame.args.lang or "" )
local large = ( s2 ~= "" and s2 ~= "0" )
if slang == "" then
slang = false
end
r = Multilingual.wikibase( s, large, slang, frame )
end
return r or ""
end -- p.wikibase

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Failsafe.failsafe( since ) or ""
end -- p.failsafe()

p.Multilingual = function ()
return Multilingual
end -- p.Multilingual

return p

Modul:JSONutil

2020-10-21T14:30:22Z

ArxioWikiSysop: 1 Version importiert

local JSONutil = { suite = "JSONutil",
serial = "2019-07-18",
item = 63869449 }
--[=[
preprocess JSON data
]=]
local Failsafe = JSONutil

JSONutil.more = 50 -- length of trailing context

local Fallback = function ()
-- Retrieve current default language code
-- Returns string
return mw.language.getContentLanguage():getCode()
:lower()
end -- Fallback()

JSONutil.fair = function ( apply )
-- Reduce enhanced JSON data to strict JSON
-- Parameter:
-- apply -- string, with enhanced JSON
-- Returns:
-- 1 -- string|nil|false, with error keyword
-- 2 -- string, with JSON or context
local m = 0
local n = 0
local s = mw.text.trim( apply )
local sep = string.char( 10 )
local i, j, last, r, scan, sep0, sep1, stab, start, stub, suffix
local framework = function ( a )
-- syntax analysis outside strings
local k = 1
local c
while k do
k = a:find( "[{%[%]}]", k )
if k then
c = a:byte( k, k )
if c == 0x7B then -- {
m = m + 1
elseif c == 0x7D then -- }
m = m - 1
elseif c == 0x5B then -- [
n = n + 1
else -- ]
n = n - 1
end
k = k + 1
end
end -- while k
end -- framework()
local free = function ( a, at, f )
-- Throws: error if /* is not matched by */
local s = a
local i = s:find( "//", at, true )
local k = s:find( "/*", at, true )
if i or k then
local m = s:find( sep0, at )
if i and ( not m or i < m ) then
k = s:find( "\n", i + 2, true )
if k then
if i == 1 then
s = s:sub( k + 1 )
else
s = s:sub( 1, i - 1 ) ..
s:sub( k + 1 )
end
elseif i > 1 then
s = s:sub( 1, i - 1 )
else
s = ""
end
elseif k and ( not m or k < m ) then
i = s:find( "*/", k + 2, true )
if i then
if k == 1 then
s = s:sub( i + 2 )
else
s = s:sub( 1, k - 1 ) ..
s:sub( i + 2 )
end
else
error( s:sub( k + 2 ), 0 )
end
i = k
else
i = false
end
if i then
s = mw.text.trim( s )
if s:find( "/", 1, true ) then
s = f( s, i, f )
end
end
end
return s
end -- free()
if s:sub( 1, 1 ) == '{' then
stab = string.char( 9 )
s = s:gsub( string.char( 13, 10 ), sep )
:gsub( string.char( 13 ), sep )
stub = s:gsub( sep, "" ):gsub( stab, "" )
scan = string.char( 0x5B, 0x01, 0x2D, 0x1F, 0x5D ) -- [ \-\ ]
j = stub:find( scan )
if j then
r = "ControlChar"
s = mw.text.trim( s:sub( j + 1 ) )
s = mw.ustring.sub( s, 1, JSONutil.more )
else
i = true
j = 1
last = ( stub:sub( -1 ) == "}" )
sep0 = string.char( 0x5B, 0x22, 0x27, 0x5D ) -- [ " ' ]
sep1 = string.char( 0x5B, 0x5C, 0x22, 0x5D ) -- [ \ " ]
end
else
r = "Bracket0"
s = mw.ustring.sub( s, 1, JSONutil.more )
end
while i do
i, s = pcall( free, s, j, free )
if i then
i = s:find( sep0, j )
else
r = "CommentEnd"
s = mw.text.trim( s )
s = mw.ustring.sub( s, 1, JSONutil.more )
end
if i then
if j == 1 then
framework( s:sub( 1, i - 1 ) )
end
if s:sub( i, i ) == '"' then
stub = s:sub( j, i - 1 )
if stub:find( '[^"]*,%s*[%]}]' ) then
r = "CommaEnd"
s = mw.text.trim( stub )
s = mw.ustring.sub( s, 1, JSONutil.more )
i = false
j = false
else
if j > 1 then
framework( stub )
end
i = i + 1
j = i
end
while j do
j = s:find( sep1, j )
if j then
if s:sub( j, j ) == '"' then
start = s:sub( 1, i - 1 )
suffix = s:sub( j )
if j > i then
stub = s:sub( i, j - 1 )
:gsub( sep, "\\n" )
:gsub( stab, "\\t" )
j = i + stub:len()
s = string.format( "%s%s%s",
start, stub, suffix )
else
s = start .. suffix
end
j = j + 1
break -- while j
else
j = j + 2
end
else
r = "QouteEnd"
s = mw.text.trim( s:sub( i ) )
s = mw.ustring.sub( s, 1, JSONutil.more )
i = false
end
end -- while j
else
r = "Qoute"
s = mw.text.trim( s:sub( i ) )
s = mw.ustring.sub( s, 1, JSONutil.more )
i = false
end
elseif not r then
stub = s:sub( j )
if stub:find( '[^"]*,%s*[%]}]' ) then
r = "CommaEnd"
s = mw.text.trim( stub )
s = mw.ustring.sub( s, 1, JSONutil.more )
else
framework( stub )
end
end
end -- while i
if not r and ( m ~= 0 or n ~= 0 ) then
if m ~= 0 then
s = "}"
if m > 0 then
r = "BracketCloseLack"
j = m
elseif m < 0 then
r = "BracketClosePlus"
j = -m
end
else
s = "]"
if n > 0 then
r = "BracketCloseLack"
j = n
else
r = "BracketClosePlus"
j = -n
end
end
if j > 1 then
s = string.format( "%d %s", j, s )
end
elseif not ( r or last ) then
stub = suffix or apply or ""
j = stub:find( "/", 1, true )
if j then
i, stub = pcall( free, stub, j, free )
else
i = true
end
stub = mw.text.trim( stub )
if i then
if stub:sub( - 1 ) ~= "}" then
r = "Trailing"
s = stub:match( "%}%s*(%S[^%}]*)$" )
if s then
s = mw.ustring.sub( s, 1, JSONutil.more )
else
s = mw.ustring.sub( stub, - JSONutil.more )
end
end
else
r = "CommentEnd"
s = mw.ustring.sub( stub, 1, JSONutil.more )
end
end
if r and s then
s = mw.text.encode( s:gsub( sep, " " ) ):gsub( "|", "|" )
end
return r, s
end -- JSONutil.fair()

JSONutil.fault = function ( alert, add, adapt )
-- Retrieve formatted message
-- Parameter:
-- alert -- string, with error keyword, or other text
-- add -- string|nil|false, with context
-- adapt -- function|string|table|nil|false, for I18N
-- Returns string, with HTML span
local e = mw.html.create( "span" )
:addClass( "error" )
local s = alert
if type( s ) == "string" then
s = mw.text.trim( s )
if s == "" then
s = "EMPTY JSONutil.fault key"
end
if not s:find( " ", 1, true ) then
local storage = string.format( "I18n/Module:%s.tab",
JSONutil.suite )
local lucky, t = pcall( mw.ext.data.get, storage, "_" )
if type( t ) == "table" then
t = t.data
if type( t ) == "table" then
local e
s = "err_" .. s
for i = 1, #t do
e = t[ i ]
if type( e ) == "table" then
if e[ 1 ] == s then
e = e[ 2 ]
if type( e ) == "table" then
local q = type( adapt )
if q == "function" then
s = adapt( e, s )
t = false
elseif q == "string" then
t = mw.text.split( adapt, "%s+" )
elseif q == "table" then
t = adapt
else
t = { }
end
if t then
table.insert( t, Fallback() )
table.insert( t, "en" )
for k = 1, #t do
q = e[ t[ k ] ]
if type( q ) == "string" then
s = q
break -- for k
end
end -- for k
end
else
s = "JSONutil.fault I18N bad #" ..
tostring( i )
end
break -- for i
end
else
break -- for i
end
end -- for i
else
s = "INVALID JSONutil.fault I18N corrupted"
end
else
s = "INVALID JSONutil.fault commons:Data: " .. type( t )
end
end
else
s = "INVALID JSONutil.fault key: " .. tostring( s )
end
if type( add ) == "string" then
s = string.format( "%s – %s", s, add )
end
e:wikitext( s )
return tostring( e )
end -- JSONutil.fault()

JSONutil.fetch = function ( apply, always, adapt )
-- Retrieve JSON data, or error message
-- Parameter:
-- apply -- string, with presumable JSON text
-- always -- true, if apply is expected to need preprocessing
-- adapt -- function|string|table|nil|false, for I18N
-- Returns table, with data, or string, with error as HTML span
local lucky, r
if not always then
lucky, r = pcall( mw.text.jsonDecode, apply )
end
if not lucky then
lucky, r = JSONutil.fair( apply )
if lucky then
r = JSONutil.fault( lucky, r, adapt )
else
lucky, r = pcall( mw.text.jsonDecode, r )
if not lucky then
r = JSONutil.fault( r, false, adapt )
end
end
end
return r
end -- JSONutil.fetch()

Failsafe.failsafe = function ( atleast )
-- Retrieve versioning and check for compliance
-- Precondition:
-- atleast -- string, with required version or "wikidata" or "~"
-- or false
-- Postcondition:
-- Returns string -- with queried version, also if problem
-- false -- if appropriate
local last = ( atleast == "~" )
local since = atleast
local r
if last or since == "wikidata" then
local item = Failsafe.item
since = false
if type( item ) == "number" and item > 0 then
local entity = mw.wikibase.getEntity( string.format( "Q%d",
item ) )
if type( entity ) == "table" then
local vsn = entity:formatPropertyValues( "P348" )
if type( vsn ) == "table" and
type( vsn.value ) == "string" and
vsn.value ~= "" then
if last and vsn.value == Failsafe.serial then
r = false
else
r = vsn.value
end
end
end
end
end
if type( r ) == "nil" then
if not since or since <= Failsafe.serial then
r = Failsafe.serial
else
r = false
end
end
return r
end -- Failsafe.failsafe()

-- Export
local p = { }

p.failsafe = function ( frame )
-- Versioning interface
local s = type( frame )
local since
if s == "table" then
since = frame.args[ 1 ]
elseif s == "string" then
since = frame
end
if since then
since = mw.text.trim( since )
if since == "" then
since = false
end
end
return Failsafe.failsafe( since ) or ""
end -- p.failsafe()

p.JSONutil = function ()
-- Module interface
return JSONutil
end

return p

Vorlage:TemplateData

2020-10-21T14:30:22Z

ArxioWikiSysop: 1 Version importiert

<onlyinclude><div class="Vorlage_TemplateData" {{#ifeq:{{NAMESPACENUMBER}}|10|id="TemplateData"}} style="border:2px solid #B3B7FF; margin:1em 0; padding:.5em 1em 0; position:relative;">
<div class="hintergrundfarbe2" style="left:2em; line-height:1; padding:0 .5em; position:absolute; top:-.6em;"><small>[[Hilfe:TemplateData|TemplateData]]</small></div>
<includeonly>{{#invoke:TemplateData|f}}</includeonly>
<noinclude>(Generierte Dokumentation)</noinclude>
</div><includeonly>{{#ifeq:{{NAMESPACENUMBER}}|10|{{#if:
{{#ifeq:{{{meta|}}}|1|1}}
{{#ifeq:{{#titleparts:{{PAGENAME}}|1|-1}}|Doku|1}}
| | [[Kategorie:Vorlage:mit TemplateData|{{#if:{{{sort|}}}|{{{sort}}}|{{PAGENAME}}}}]]
}} }}</includeonly></onlyinclude>

{{Dokumentation}}

Vorlage:TOC nonum/styles.css

2020-10-21T14:30:22Z

ArxioWikiSysop: 1 Version importiert

.nonumtoc .tocnumber {
display: none;
}

Vorlage:TOC Kategorie/Doku

2020-10-21T14:26:54Z

ArxioWikiSysop: 1 Version importiert

<noinclude>{{Dokumentation/Dokuseite}}</noinclude>
{{TemplateData|JSON=
{ "description": "Inhaltsverzeichnis für Kategorien zeigen",
"params": {
"ZEICHEN":
{ "label": "Zeichen",
"description": "Zeichenform (Ziffern, Groß-, Kleinbuchstaben)<noexport>
* <code>#</code> – Ziffern 0–9
* <code>a</code> – Zeichen a–z
* <code>A</code> – Zeichen A–Z
Mehrfachangaben möglich.</noexport>",
"type": "line",
"suggested": true,
"default": "#A",
"example": "a",
"aliases": [ "Zeichen" ] },
"TYP":
{ "label": "Typ",
"description": "Inhaltsverzeichnis für Kategorien, die viele Unterkategorien enthalten, wenn <code>TYP=Kategorien</code>",
"type": "line",
"required": false }
},
"format": "inline"
}
|TOC=1}}

Die Zeichen können gemischt werden, beispielsweise <code><nowiki>{{TOC Kategorie|ZEICHEN=#a}}</nowiki></code> für die Ausgabe von:
{{TOC Kategorie|ZEICHEN=#a}}

Standardmäßig wird ein Inhaltsverzeichnis für Kategorien erzeugt, die viele Seiten enthalten. Soll ein Inhaltsverzeichnis für Kategorien erzeugt werden, die viele Unterkategorien enthalten, kann der Parameter <code>TYP=Kategorien</code> verwendet werden, beispielsweise <code><nowiki>{{TOC Kategorie|ZEICHEN=#a|TYP=Kategorien}}</nowiki></code> für die Ausgabe von:
{{TOC Kategorie|ZEICHEN=#a|TYP=Kategorien}}

== Siehe auch ==
* [[commons:Template:CategoryTOC]]
<includeonly>
[[Kategorie:Vorlage:TOC| TOC Kategorie]]
[[Kategorie:Vorlage:für Kategorien| ]]
[[Kategorie:Vorlage:vom Druck ausgeschlossen]]
</includeonly>

Vorlage:Dokumentation/style

2020-10-21T14:26:54Z

ArxioWikiSysop: 1 Version importiert

{{Dokumentation/Unterseite}}
<onlyinclude>{{#switch: {{{1}}}
|icon=Curly Brackets.svg
|iconInfo=Information icon.svg
|iconTemplateInfo=Test Template Info-Icon.svg
|iconTemplateTools=Templatetools.svg
|linec=B3B7FF
}}</onlyinclude>

Farb- und Designschema für die Dokumentation von Vorlagen.

== Parameter ==
; 1
: <code>icon</code> – Icon mit Vorlagen-Symbol, <code>{{Dokumentation/style|icon}}</code> – [[Datei:{{Dokumentation/style|icon}}|16px]]
: <code>iconInfo</code> – Icon mit Informationssymbol, <code>{{Dokumentation/style|iconInfo}}</code> – [[Datei:{{Dokumentation/style|iconInfo}}|16px]]
: <code>iconTemplateInfo</code> – Icon mit Vorlagen- und Informationssymbol, <code>{{Dokumentation/style|iconTemplateInfo}}</code> – [[Datei:{{Dokumentation/style|iconTemplateInfo}}|24px]]
: <code>iconTemplateTools</code> – Icon mit Vorlagen- und Werkzeugsymbol, <code>{{Dokumentation/style|iconTemplateTools}}</code> – [[Datei:{{Dokumentation/style|iconTemplateTools}}|24px]]
: <code>linec</code> – Rahmenfarbe, <code>{{Dokumentation/style|linec}}</code> – <span style="background-color:#{{Dokumentation/style|linec}}">____</span>

[[Kategorie:Vorlage:Vorlagendokumentation|!style]]

Vorlage:Dokumentation/header

2020-10-21T14:26:54Z

ArxioWikiSysop: 1 Version importiert

{{Dokumentation/Hinweis Demo}}

<onlyinclude>{{#ifeq: {{{TOC|0}}} | 1 | <templatestyles src="TOC nonum/styles.css" /><div class="nonumtoc">__TOC__</div> }}<div style="border: #{{Dokumentation/style|linec}} 3px solid; clear: both; margin-bottom: 2rem; margin-left: 0; margin-right: 0; margin-top: 1rem; padding-left: 0.4rem;" id="Vorlagendokumentation">
<div style="float: right; font-size: 0.8rem; line-height: 1; margin-right: 0.4rem; margin-top: 1.46rem; white-space: nowrap;">{{#ifeq: {{{footer|1}}} | 1 | [[[#Dokumentation.Info|Werkzeuge]]]}}{{#ifeq: {{{edit|0}}} | 1 | <span style="padding-left:1em">[[{{fullurl:{{SUBJECTPAGENAME}}/Doku|action=edit}} {{int:Editsection}}]]</span>}}</div>
<h1 style="border-bottom: none; font-size: 1.66rem; line-height: 1; margin-bottom: 1rem; margin-top: 1rem;" dir="ltr" title="Dokumentation zur Benutzung dieser Vorlage" lang="{{#switch:{{int:lang}}|de-at|de-ch|de-formal|de=de">'''Dokumentation''' | en">'''Documentation''' }}</h1>
</div>{{#ifexist: {{SUBJECTPAGENAME}}/Meta |
<div class="error" style="background:#FFFF00; border: #FF0000 2px solid; padding: 0.1rem 0.2rem;">
Unterseite <code>[[{{SUBJECTPAGENAME}}/Meta|/Meta]]</code> nicht mehr unterstützt!
</div>}}</onlyinclude>

<div style="border:3px solid #009900; border-spacing:2px; padding:1em;">
Einheitliche '''Überschrift''' für '''Vorlagen-Dokumentationen''' oberhalb des Dokumentationsbereichs:
* Einzel-/Doku mittels [[Vorlage:Dokumentation]],
* generierte Dokumentationen in [[:Kategorie:Vorlage:Metadokumentation]].

Es wird insbesondere beim Gestalten einer Metadokumentation erwartet, dass am Fußende mit {{Vorlage|Dokumentation/footer}} eine korrespondierende Box angezeigt wird, auf die auch verlinkt wird. In der standardmäßigen {{Vorlage|Dokumentation}} ist das genauso realisiert.

In einem Inhaltsverzeichnis wird die H1-Überschrift in Fettschrift angezeigt und trennt dadurch möglicherweise durch die demonstrierte Einbindung erzeugte Überschriften ab.

== Parameter ==
; edit
: Bearbeiten-Link für Doku-Unterseite anzeigen
:* <code>0</code> – nein (Vorgabe; für Metadoku)
:* <code>1</code> – ja ([[Vorlage:Dokumentation]])
; footer
: Bearbeiten-Link anzeigen
:* <code>1</code> – ja (Vorgabe)
:* <code>0</code> – nein (etwa substituierende)
; TOC
: Inhaltsverzeichnis schon oberhalb des Überschriftenblocks anzeigen
:* <code>0</code> – nein (Vorgabe)
:* <code>1</code> – ja (für längere Darstellung rechtsbündiger Blöcke der Vorlage)

== Abhängigkeiten ==
* [[Vorlage:TOC nonum/styles]]
</div>

[[Kategorie:Vorlage:Vorlagendokumentation|!header]]

Vorlage:Dokumentation/footer

2020-10-21T14:26:54Z

ArxioWikiSysop: 1 Version importiert

{{Dokumentation/Hinweis Demo}}

<onlyinclude>
<div style="visibility:hidden">
== Werkzeuge ==
</div>
<div style="border: #{{Dokumentation/style|linec}} 3px solid; clear: both; margin-left: 0; margin-right: 0; padding: 0.4rem;" id="Dokumentation.Info">
Bei technischen Fragen zu dieser [[Hilfe:Vorlagen|Vorlage]] kannst du dich auch an die [[Wikipedia:WikiProjekt Vorlagen/Werkstatt|Vorlagenwerkstatt]] wenden. Inhaltliche Fragen und Vorschläge gehören zunächst auf die [[{{TALKPAGENAME}}|Diskussionsseite]]. Sie können ggf. auch an eine passende Redaktion, Portal usw. gerichtet werden.
<ul>
<li>[{{canonicalurl:Spezial:Linkliste/{{FULLPAGENAME}}|hideredirs=1&hidelinks=1}} Verwendungen] dieser Vorlage</li>
<li>[{{#invoke:Vorlage:Dokumentation|transcludes}} Cirrus-Suche] zu Einbindungen dieser Vorlage (zunächst nur ANR) mit [[Hilfe:Suche/Cirrus|weiteren Möglichkeiten]]</li>
<li class="plainlinks">[https://templatecount.toolforge.org/?lang=de&namespace={{NAMESPACENUMBER}}&name={{PAGENAMEE}} Anzahl der Einbindungen]</li>
{{#ifeq: {{{subpages|1}}} | 1 |
<li>[[Spezial:Präfixindex/{{SUBJECTPAGENAME}}/|Liste der Unterseiten]].</li>
{{#ifeq: {{{lonely|0}}} | 1 |
<li>Diese Dokumentation befindet sich [[{{SUBJECTPAGENAME}}/Doku|auf einer eingebundenen Unterseite]] <span style="font-size:85%; margin-left:1em;">[[{{canonicalurl:{{SUBJECTPAGENAME}}/Doku|action=edit}} Bearbeiten]]</span>.</li>
{{#ifexist:{{SUBJECTPAGENAME}}/Test
| <li>Anwendungsbeispiele und Funktionalitätsprüfungen befinden sich auf der [[{{SUBJECTPAGENAME}}/Test|Testseite]] <span style="font-size:85%; margin-left:1em;">[[{{canonicalurl:{{SUBJECTPAGENAME}}/Test|action=edit}} Bearbeiten]]</span>.{{#ifeq: {{FULLPAGENAME}} | {{SUBJECTPAGENAME}} | {{#invoke:TemplUtl|fake|{{SUBJECTPAGENAME}}/Test}}<div style="display:none"><references /></div>}}</li>
| <li>[{{canonicalurl:{{SUBJECTPAGENAME}}/Test|action=edit&preload=Vorlage:Dokumentation/preload-test}} Test-/Beispielseite erstellen].</li>
}}{{#ifexist:{{SUBJECTPAGENAME}}/Wartung
| <li>Für diese Vorlage existiert eine [[{{SUBJECTPAGENAME}}/Wartung|Wartungsseite]] <span style="font-size:85%;">[[{{canonicalurl:{{SUBJECTPAGENAME}}/Wartung|action=edit}} Bearbeiten]]</span> zum Auffinden fehlerhafter Verwendungen.{{#ifeq: {{FULLPAGENAME}} | {{SUBJECTPAGENAME}} | {{#invoke:TemplUtl|fake|{{SUBJECTPAGENAME}}/Wartung}}}}</li>
}}{{#ifexist:{{SUBJECTPAGENAME}}/XML
| <li>Für diese Vorlage existiert eine [[{{SUBJECTPAGENAME}}/XML|XML-Beschreibung]] <span style="font-size:85%;">[[{{canonicalurl:{{SUBJECTPAGENAME}}/XML|action=edit}} Bearbeiten]]</span> für den [[Wikipedia:Technik/Skin/Gadgets/Vorlagenmeister|Vorlagenmeister]].{{#ifeq: {{FULLPAGENAME}} | {{SUBJECTPAGENAME}} | {{#invoke:TemplUtl|fake|{{SUBJECTPAGENAME}}/XML}} }}</li>
}}
}}
}}{{#ifexist:{{SUBJECTPAGENAME}}/styles
| <li>Es existiert eine [[Hilfe:CSS/TemplateStyles|TemplateStyles]]-[[{{SUBJECTPAGENAME}}/styles|Definition]] <span style="font-size:85%;">[[{{canonicalurl:{{SUBJECTPAGENAME}}/styles|action=edit}} Bearbeiten]]</span>, die CSS-Deklarationen wirksam werden lässt, wenn diese Vorlage eingebunden wird.</li>{{#invoke:TemplUtl|fake|{{SUBJECTPAGENAME}}/styles}}
}}{{#if: {{#invoke:PageUtil|getProtection|{{FULLPAGENAME}}|edit}}
| <li>Die Programmierung ist gegen Bearbeitung geschützt
({{#switch: {{#invoke:PageUtil|getProtection|{{FULLPAGENAME}}|edit}}
|½=Halb
|¾=(Sichter) Dreiviertel
|1=Voll}}schutz).</li>
}}{{#ifexist:{{SUBJECTPAGENAME}}/Editnotice
| <li>Es existiert ein [[{{SUBJECTPAGENAME}}/Editnotice|Bearbeitungshinweis]] <span style="font-size:85%;">[[{{canonicalurl:{{SUBJECTPAGENAME}}/Editnotice|action=edit}} Bearbeiten]]</span>, der beim Bearbeiten der Vorlage angezeigt wird.</li>{{#invoke:TemplUtl|fake|{{SUBJECTPAGENAME}}/Editnotice}}
}}
<li class="plainlinks">[[Wikipedia:Technik/Cloud/giftbot/vorlagenparser|giftbot/vorlagenparser]]: [https://giftbot.toolforge.org/vorlagenparser.fcgi?template={{PAGENAMEE}} CSV herunterladen (ANR)].</li>
{{#ifexist:{{SUBJECTPAGENAME}}/Preload | {{#invoke:TemplUtl|fake|{{SUBJECTPAGENAME}}/Preload}}
}}{{#ifexist:{{SUBJECTPAGENAME}}/preload | {{#invoke:TemplUtl|fake|{{SUBJECTPAGENAME}}/preload}}
}}</ul></div></onlyinclude>

<div style="border:3px solid #009900; border-spacing:2px; margin-top:2em; padding:1em;">
Einheitliche '''Service'''-Links für '''Vorlagen-Dokumentationen''' unterhalb des Dokumentationsbereichs:
* Einzel-<code>/Doku</code> mittels [[Vorlage:Dokumentation]],
* generierte Dokumentationen in [[:Kategorie:Vorlage:Metadokumentation]].
Im Benutzernamensraum ist eine Erprobung von Entwürfen für Vorlagenprogrammierungen möglich.

== Parameter ==
; lonely
: Einzel-Doku-Unterseite
:* <code>0</code> – nein (Vorgabe; für Metadoku)
:* <code>1</code> – ja ([[Vorlage:Dokumentation]])
; subpages
: Kann Unterseiten haben
:* <code>0</code> – nein (typisch bei Metadokus)
:* <code>1</code> – ja (Vorgabe)
</div>
{{#invoke:TemplUtl|fakes|prefix=Dokumentation/preload-
|doku
|editnotice
|preload
|test
|wartung
}}

[[Kategorie:Vorlage:Vorlagendokumentation|!footer]]

Vorlage:Dokumentation

2020-10-21T14:26:54Z

ArxioWikiSysop: 1 Version importiert

<onlyinclude>{{#ifeq:{{NAMESPACENUMBER}}|0|
<span class="error">Achtung: Die [[Vorlage:Dokumentation]] wird im Artikelnamensraum verwendet. Wahrscheinlich fehlt <code><onlyinclude></code> in einer eingebundenen Vorlage oder die Kapselung ist fehlerhaft. Bitte {{Bearbeiten|text=entferne diesen Fehler}}.</span> [[Kategorie:Wikipedia:Vorlagenfehler/Vorlage:Dokumentation/Namensraum]]
|
{{Dokumentation/header|edit=1|TOC={{{TOC|0}}}}}
{{#invoke:Vorlage:Dokumentation|f}}
}}</onlyinclude>

Vorlage:TOC Kategorie

2020-10-21T14:26:54Z

ArxioWikiSysop: 1 Version importiert

__NOTOC__
<div style="display:block; margin:0 1em; text-align:center;" id="kat_toc" class="toc plainlinks noprint"><h2>Inhaltsverzeichnis:</h2> [{{fullurl:{{FULLPAGENAME}}}} *] {{#switch: {{{ZEICHEN|{{{Zeichen|#}}}}}}|#|#A|#a|#aA|#Aa|A#|a#|aA#|Aa#=
[{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=0}} 0] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=1}} 1] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=2}} 2] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=3}} 3] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=4}} 4] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=5}} 5] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=6}} 6] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=7}} 7] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=8}} 8] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=9}} 9] }} {{#switch: {{{ZEICHEN|{{{Zeichen|A}}}}}}|A|aA|Aa|#A|#aA|#Aa|A#|aA#|#Aa=
[{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=A}} A] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=B}} B] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=C}} C] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=D}} D] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=E}} E] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=F}} F] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=G}} G] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=H}} H] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=I}} I] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=J}} J] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=K}} K] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=L}} L] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=M}} M] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=N}} N] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=O}} O] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=P}} P] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=Q}} Q] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=R}} R] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=S}} S] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=Sch}} Sch] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=T}} T] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=U}} U] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=V}} V] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=W}} W] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=X}} X] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=Y}} Y] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=Z}} Z] }}{{#switch: {{{ZEICHEN|{{{Zeichen|}}}}}}|a|aA|Aa|#a|#aA|#Aa|a#|aA#|Aa#=
[{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=a}} a] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=b}} b] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=c}} c] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=d}} d] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=e}} e] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=f}} f] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=g}} g] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=h}} h] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=i}} i] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=j}} j] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=k}} k] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=l}} l] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=m}} m] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=n}} n] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=o}} o] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=p}} p] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=q}} q] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=r}} r] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=s}} s] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=t}} t] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=u}} u] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=v}} v] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=w}} w] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=x}} x] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=y}} y] [{{fullurl:{{FULLPAGENAME}}|{{#ifeq: {{{TYP|}}} | Kategorien | subcatfrom | pagefrom}}=z}} z]}}
</div><noinclude>{{Dokumentation}}</noinclude>

VV-WSV 1102:Datenschutz

2020-10-19T06:23:23Z

ArxioWikiSysop: /* Einsatz von Cookies */

==Datenschutzerklärung==

Die Bundesanstalt für Wasserbau nimmt den Schutz Ihrer personenbezogenen Daten sehr ernst. Wir möchten, dass Sie wissen, wann wir welche Daten erheben und wie wir sie verwenden. Wir haben technische und organisatorische Maßnahmen getroffen, die sicherstellen, dass die Vorschriften über den Datenschutz sowohl von uns als auch von externen Dienstleistern beachtet werden.

Für die Nutzung des Webangebots der Bundesanstalt für Wasserbau müssen grundsätzlich keine personenbezogenen Daten angegeben werden.

=== Zugriff auf das Internetangebot ===
Beim Besuch unserer Webseite zu Informationszwecken speichern unsere in Deutschland liegenden Server nur die personenbeziehbaren Daten, die ihr Browser an unsere Server übermittelt. In der Protokolldatei werden folgende Daten maximal 30 Tage gespeichert:

* IP-Adresse des Clients
* Identität des Client-PCs
* Zeitpunkt des Requests
* URL
* HTTP-Status-Code
* Größe des angefragten Objektes
* Referer
* Browsertyp und Version
Die gespeicherten Daten werden nur zur Optimierung des Internetangebotes ausgewertet.

=== Informationsmaterial, Newsletter, Kontaktformular ===
Wenn Sie Informationsmaterial oder Newsletter bestellen, fragen wir Sie nach Ihrem Namen und nach anderen persönlichen Informationen. Es unterliegt Ihrer freien Entscheidung, ob Sie diese Daten eingeben. Ihre Angaben speichern wir auf besonders geschützten Servern in Deutschland. Der Zugriff darauf ist nur wenigen besonders befugten Personen möglich, die mit der technischen oder redaktionellen Betreuung der Server befasst sind.
Über die auf unserer Webseite bereitgestellten Kontaktformulare können Sie direkt mit uns in Verbindung zu treten. Wir erheben, verarbeiten und nutzen die von Ihnen über ein Formular mitgeteilten Informationen ausschließlich für die Bearbeitung Ihres konkreten Anliegens und nur mit Ihrer Einwilligung.

=== Weitergabe personenbezogener Daten an Dritte ===
Wir verwenden Ihre personenbezogenen Informationen im Falle von Infobestellungen nur innerhalb der Bundesanstalt für Wasserbau und der mit dem Versand von Informationsmaterial beauftragten Unternehmen. Wir geben sie nicht ohne Ihre ausdrückliche Einwilligung an Dritte weiter. Soweit wir gesetzlich oder per Gerichtsbeschluss dazu verpflichtet sind, werden wir Ihre Daten an auskunftsberechtigte Stellen übermitteln.

=== Einsatz von Cookies ===
Bei einem Besuch unserer Website werden Informationen in Form eines Cookies auf Ihrem Rechner abgelegt. Cookies helfen unter vielen Aspekten, Ihren Besuch auf unserer Webseite einfacher, angenehmer und sinnvoller zu gestalten. Cookies sind Textdateien, die Ihr Webbrowser automatisch auf der Festplatte Ihres Computers speichert, wenn Sie unsere Internetseite besuchen.

Sie können Ihren Browser jederzeit mittels entsprechender Einstellung so konfigurieren, dass keine Cookies auf Ihrem Computer gespeichert werden und dadurch der Setzung von Cookies widersprechen. Zudem können Sie bereits gesetzte Cookies jederzeit über einen Internetbrowser oder andere Softwareprogramme löschen. Dies ist in allen gängigen Internetbrowsern möglich. Sofern Sie die Setzung von Cookies in dem genutzten Internetbrowser deaktivieren, sind unter Umständen nicht alle Funktionen unserer Internetseite nutzbar.

Wir nutzen nur technisch notwendige Cookies.

=== Statistik ===
Zur Optimierung unseres Angebots werten wir die Zugriffe auf unsere Seiten statistisch aus. Wir setzen dafür die Open-Source-Anwendung "AWStats" ein. AWStats nutzt für die Auswertung die Protokolldatei unseres Webservers. Die Informationen über Ihre Benutzung dieser Webseite werden nicht an Dritte weitergegeben.
Mit "AWStats" werden keine Daten an Server übermittelt, die außerhalb der Kontrolle der Bundesanstalt für Wasserbau liegen.
Aus den Daten erstellen wir keine Nutzerprofile und nutzen sie auch nicht für andere Zwecke.

===Links ===
Diese Datenschutzerklärung erstreckt sich nicht auf von unserer Webseite aus verlinkte Webseiten Dritter.
Für den Inhalt der verlinkten Seiten sind ausschließlich deren Anbieter verantwortlich. Offensichtlich rechtswidrige Inhalte waren zum Zeitpunkt der Verlinkung unter Anwendung eines zumutbaren Prüfungsmaßstabs nicht erkennbar. Bei Kenntnis von Rechtsverletzungen werden derartige Links unverzüglich entfernt.

=== Minderjährigenschutz ===
Personen unter 18 Jahren sollten ohne Zustimmung der Eltern oder Erziehungsberechtigten keine personenbezogenen Daten an uns übermitteln. Wir fordern keine personenbezogenen Daten von Kindern und Jugendlichen an. Wissentlich sammeln wir solche Daten nicht und geben sie auch nicht an Dritte weiter.

=== Auskunftsrecht, Berichtigung, Löschung ===
Sie haben jederzeit das Recht auf
* Auskunft,
* Berichtigung,
* Löschung,
* Einschränkung der Verarbeitung,
* Widerspruch gegen die Verarbeitung
* Datenübertragbarkeit
hinsichtlich der bezüglich Ihrer Person gespeicherten Daten, deren Herkunft und Empfänger sowie den Zweck der Speicherung, sofern nicht folgendes gilt:

Die Aufbewahrung von Bürgeranfragen in elektronischer Form erfolgt - wie auch in Papierform - gemäß den für die Aufbewahrung von Schriftgut geltenden Fristen der Registraturrichtlinie, welche die Gemeinsame Geschäftsordnung der Bundesministerien (GGO) ergänzt.

Sie können sich mit Fragen und Beschwerden an den Datenschutzbeauftragten der Bundesanstalt für Wasserbau wenden.

=== Behördliche Datenschutzbeauftragte ===
Cornelia Kaufmann<br/>
Telefon: +49 (0) 721 9726-2235<br/>
E-Mail: datenschutz@baw.de

VV-WSV 1102:Datenschutz

2020-02-06T08:21:09Z

ArxioWikiSysop: /* Behördliche Datenschutzbeauftragte */

==Datenschutzerklärung==

Die Bundesanstalt für Wasserbau nimmt den Schutz Ihrer personenbezogenen Daten sehr ernst. Wir möchten, dass Sie wissen, wann wir welche Daten erheben und wie wir sie verwenden. Wir haben technische und organisatorische Maßnahmen getroffen, die sicherstellen, dass die Vorschriften über den Datenschutz sowohl von uns als auch von externen Dienstleistern beachtet werden.

Für die Nutzung des Webangebots der Bundesanstalt für Wasserbau müssen grundsätzlich keine personenbezogenen Daten angegeben werden.

=== Zugriff auf das Internetangebot ===
Beim Besuch unserer Webseite zu Informationszwecken speichern unsere in Deutschland liegenden Server nur die personenbeziehbaren Daten, die ihr Browser an unsere Server übermittelt. In der Protokolldatei werden folgende Daten maximal 30 Tage gespeichert:

* IP-Adresse des Clients
* Identität des Client-PCs
* Zeitpunkt des Requests
* URL
* HTTP-Status-Code
* Größe des angefragten Objektes
* Referer
* Browsertyp und Version
Die gespeicherten Daten werden nur zur Optimierung des Internetangebotes ausgewertet.

=== Informationsmaterial, Newsletter, Kontaktformular ===
Wenn Sie Informationsmaterial oder Newsletter bestellen, fragen wir Sie nach Ihrem Namen und nach anderen persönlichen Informationen. Es unterliegt Ihrer freien Entscheidung, ob Sie diese Daten eingeben. Ihre Angaben speichern wir auf besonders geschützten Servern in Deutschland. Der Zugriff darauf ist nur wenigen besonders befugten Personen möglich, die mit der technischen oder redaktionellen Betreuung der Server befasst sind.
Über die auf unserer Webseite bereitgestellten Kontaktformulare können Sie direkt mit uns in Verbindung zu treten. Wir erheben, verarbeiten und nutzen die von Ihnen über ein Formular mitgeteilten Informationen ausschließlich für die Bearbeitung Ihres konkreten Anliegens und nur mit Ihrer Einwilligung.

=== Weitergabe personenbezogener Daten an Dritte ===
Wir verwenden Ihre personenbezogenen Informationen im Falle von Infobestellungen nur innerhalb der Bundesanstalt für Wasserbau und der mit dem Versand von Informationsmaterial beauftragten Unternehmen. Wir geben sie nicht ohne Ihre ausdrückliche Einwilligung an Dritte weiter. Soweit wir gesetzlich oder per Gerichtsbeschluss dazu verpflichtet sind, werden wir Ihre Daten an auskunftsberechtigte Stellen übermitteln.

=== Einsatz von Cookies ===
Bei einem Besuch unserer Website werden Informationen in Form eines Cookies auf Ihrem Rechner abgelegt. Cookies helfen unter vielen Aspekten, Ihren Besuch auf unserer Webseite einfacher, angenehmer und sinnvoller zu gestalten. Cookies sind Textdateien, die Ihr Webbrowser automatisch auf der Festplatte Ihres Computers speichert, wenn Sie unsere Internetseite besuchen.

Sie können Ihren Browser jederzeit mittels entsprechender Einstellung so konfigurieren, dass keine Cookies auf Ihrem Computer gespeichert werden und dadurch der Setzung von Cookies widersprechen. Zudem können Sie bereits gesetzte Cookies jederzeit über einen Internetbrowser oder andere Softwareprogramme löschen. Dies ist in allen gängigen Internetbrowsern möglich. Sofern Sie die Setzung von Cookies in dem genutzten Internetbrowser deaktivieren, sind unter Umständen nicht alle Funktionen unserer Internetseite nutzbar.

=== Statistik ===
Zur Optimierung unseres Angebots werten wir die Zugriffe auf unsere Seiten statistisch aus. Wir setzen dafür die Open-Source-Anwendung "AWStats" ein. AWStats nutzt für die Auswertung die Protokolldatei unseres Webservers. Die Informationen über Ihre Benutzung dieser Webseite werden nicht an Dritte weitergegeben.
Mit "AWStats" werden keine Daten an Server übermittelt, die außerhalb der Kontrolle der Bundesanstalt für Wasserbau liegen.
Aus den Daten erstellen wir keine Nutzerprofile und nutzen sie auch nicht für andere Zwecke.

===Links ===
Diese Datenschutzerklärung erstreckt sich nicht auf von unserer Webseite aus verlinkte Webseiten Dritter.
Für den Inhalt der verlinkten Seiten sind ausschließlich deren Anbieter verantwortlich. Offensichtlich rechtswidrige Inhalte waren zum Zeitpunkt der Verlinkung unter Anwendung eines zumutbaren Prüfungsmaßstabs nicht erkennbar. Bei Kenntnis von Rechtsverletzungen werden derartige Links unverzüglich entfernt.

=== Minderjährigenschutz ===
Personen unter 18 Jahren sollten ohne Zustimmung der Eltern oder Erziehungsberechtigten keine personenbezogenen Daten an uns übermitteln. Wir fordern keine personenbezogenen Daten von Kindern und Jugendlichen an. Wissentlich sammeln wir solche Daten nicht und geben sie auch nicht an Dritte weiter.

=== Auskunftsrecht, Berichtigung, Löschung ===
Sie haben jederzeit das Recht auf
* Auskunft,
* Berichtigung,
* Löschung,
* Einschränkung der Verarbeitung,
* Widerspruch gegen die Verarbeitung
* Datenübertragbarkeit
hinsichtlich der bezüglich Ihrer Person gespeicherten Daten, deren Herkunft und Empfänger sowie den Zweck der Speicherung, sofern nicht folgendes gilt:

Die Aufbewahrung von Bürgeranfragen in elektronischer Form erfolgt - wie auch in Papierform - gemäß den für die Aufbewahrung von Schriftgut geltenden Fristen der Registraturrichtlinie, welche die Gemeinsame Geschäftsordnung der Bundesministerien (GGO) ergänzt.

Sie können sich mit Fragen und Beschwerden an den Datenschutzbeauftragten der Bundesanstalt für Wasserbau wenden.

=== Behördliche Datenschutzbeauftragte ===
Cornelia Kaufmann<br/>
Telefon: +49 (0) 721 9726-2235<br/>
E-Mail: datenschutz@baw.de

VV-WSV 1102:Datenschutz

2020-01-17T08:38:18Z

ArxioWikiSysop: /* Behördliche Datenschutzbeauftragte */

==Datenschutzerklärung==

Die Bundesanstalt für Wasserbau nimmt den Schutz Ihrer personenbezogenen Daten sehr ernst. Wir möchten, dass Sie wissen, wann wir welche Daten erheben und wie wir sie verwenden. Wir haben technische und organisatorische Maßnahmen getroffen, die sicherstellen, dass die Vorschriften über den Datenschutz sowohl von uns als auch von externen Dienstleistern beachtet werden.

Für die Nutzung des Webangebots der Bundesanstalt für Wasserbau müssen grundsätzlich keine personenbezogenen Daten angegeben werden.

=== Zugriff auf das Internetangebot ===
Beim Besuch unserer Webseite zu Informationszwecken speichern unsere in Deutschland liegenden Server nur die personenbeziehbaren Daten, die ihr Browser an unsere Server übermittelt. In der Protokolldatei werden folgende Daten maximal 30 Tage gespeichert:

* IP-Adresse des Clients
* Identität des Client-PCs
* Zeitpunkt des Requests
* URL
* HTTP-Status-Code
* Größe des angefragten Objektes
* Referer
* Browsertyp und Version
Die gespeicherten Daten werden nur zur Optimierung des Internetangebotes ausgewertet.

=== Informationsmaterial, Newsletter, Kontaktformular ===
Wenn Sie Informationsmaterial oder Newsletter bestellen, fragen wir Sie nach Ihrem Namen und nach anderen persönlichen Informationen. Es unterliegt Ihrer freien Entscheidung, ob Sie diese Daten eingeben. Ihre Angaben speichern wir auf besonders geschützten Servern in Deutschland. Der Zugriff darauf ist nur wenigen besonders befugten Personen möglich, die mit der technischen oder redaktionellen Betreuung der Server befasst sind.
Über die auf unserer Webseite bereitgestellten Kontaktformulare können Sie direkt mit uns in Verbindung zu treten. Wir erheben, verarbeiten und nutzen die von Ihnen über ein Formular mitgeteilten Informationen ausschließlich für die Bearbeitung Ihres konkreten Anliegens und nur mit Ihrer Einwilligung.

=== Weitergabe personenbezogener Daten an Dritte ===
Wir verwenden Ihre personenbezogenen Informationen im Falle von Infobestellungen nur innerhalb der Bundesanstalt für Wasserbau und der mit dem Versand von Informationsmaterial beauftragten Unternehmen. Wir geben sie nicht ohne Ihre ausdrückliche Einwilligung an Dritte weiter. Soweit wir gesetzlich oder per Gerichtsbeschluss dazu verpflichtet sind, werden wir Ihre Daten an auskunftsberechtigte Stellen übermitteln.

=== Einsatz von Cookies ===
Bei einem Besuch unserer Website werden Informationen in Form eines Cookies auf Ihrem Rechner abgelegt. Cookies helfen unter vielen Aspekten, Ihren Besuch auf unserer Webseite einfacher, angenehmer und sinnvoller zu gestalten. Cookies sind Textdateien, die Ihr Webbrowser automatisch auf der Festplatte Ihres Computers speichert, wenn Sie unsere Internetseite besuchen.

Sie können Ihren Browser jederzeit mittels entsprechender Einstellung so konfigurieren, dass keine Cookies auf Ihrem Computer gespeichert werden und dadurch der Setzung von Cookies widersprechen. Zudem können Sie bereits gesetzte Cookies jederzeit über einen Internetbrowser oder andere Softwareprogramme löschen. Dies ist in allen gängigen Internetbrowsern möglich. Sofern Sie die Setzung von Cookies in dem genutzten Internetbrowser deaktivieren, sind unter Umständen nicht alle Funktionen unserer Internetseite nutzbar.

=== Statistik ===
Zur Optimierung unseres Angebots werten wir die Zugriffe auf unsere Seiten statistisch aus. Wir setzen dafür die Open-Source-Anwendung "AWStats" ein. AWStats nutzt für die Auswertung die Protokolldatei unseres Webservers. Die Informationen über Ihre Benutzung dieser Webseite werden nicht an Dritte weitergegeben.
Mit "AWStats" werden keine Daten an Server übermittelt, die außerhalb der Kontrolle der Bundesanstalt für Wasserbau liegen.
Aus den Daten erstellen wir keine Nutzerprofile und nutzen sie auch nicht für andere Zwecke.

===Links ===
Diese Datenschutzerklärung erstreckt sich nicht auf von unserer Webseite aus verlinkte Webseiten Dritter.
Für den Inhalt der verlinkten Seiten sind ausschließlich deren Anbieter verantwortlich. Offensichtlich rechtswidrige Inhalte waren zum Zeitpunkt der Verlinkung unter Anwendung eines zumutbaren Prüfungsmaßstabs nicht erkennbar. Bei Kenntnis von Rechtsverletzungen werden derartige Links unverzüglich entfernt.

=== Minderjährigenschutz ===
Personen unter 18 Jahren sollten ohne Zustimmung der Eltern oder Erziehungsberechtigten keine personenbezogenen Daten an uns übermitteln. Wir fordern keine personenbezogenen Daten von Kindern und Jugendlichen an. Wissentlich sammeln wir solche Daten nicht und geben sie auch nicht an Dritte weiter.

=== Auskunftsrecht, Berichtigung, Löschung ===
Sie haben jederzeit das Recht auf
* Auskunft,
* Berichtigung,
* Löschung,
* Einschränkung der Verarbeitung,
* Widerspruch gegen die Verarbeitung
* Datenübertragbarkeit
hinsichtlich der bezüglich Ihrer Person gespeicherten Daten, deren Herkunft und Empfänger sowie den Zweck der Speicherung, sofern nicht folgendes gilt:

Die Aufbewahrung von Bürgeranfragen in elektronischer Form erfolgt - wie auch in Papierform - gemäß den für die Aufbewahrung von Schriftgut geltenden Fristen der Registraturrichtlinie, welche die Gemeinsame Geschäftsordnung der Bundesministerien (GGO) ergänzt.

Sie können sich mit Fragen und Beschwerden an den Datenschutzbeauftragten der Bundesanstalt für Wasserbau wenden.

=== Behördliche Datenschutzbeauftragte ===
Cornelia Kaufmann<br/>
Telefon: +49 (0) 721 9726-2235<br/>
E-Mail: datenschutzbeauftragter@baw.de

VV-WSV 1102:Datenschutz

2020-01-07T09:35:07Z

ArxioWikiSysop: /* Behördlicher Datenschutzbeauftragter */

==Datenschutzerklärung==

Die Bundesanstalt für Wasserbau nimmt den Schutz Ihrer personenbezogenen Daten sehr ernst. Wir möchten, dass Sie wissen, wann wir welche Daten erheben und wie wir sie verwenden. Wir haben technische und organisatorische Maßnahmen getroffen, die sicherstellen, dass die Vorschriften über den Datenschutz sowohl von uns als auch von externen Dienstleistern beachtet werden.

Für die Nutzung des Webangebots der Bundesanstalt für Wasserbau müssen grundsätzlich keine personenbezogenen Daten angegeben werden.

=== Zugriff auf das Internetangebot ===
Beim Besuch unserer Webseite zu Informationszwecken speichern unsere in Deutschland liegenden Server nur die personenbeziehbaren Daten, die ihr Browser an unsere Server übermittelt. In der Protokolldatei werden folgende Daten maximal 30 Tage gespeichert:

* IP-Adresse des Clients
* Identität des Client-PCs
* Zeitpunkt des Requests
* URL
* HTTP-Status-Code
* Größe des angefragten Objektes
* Referer
* Browsertyp und Version
Die gespeicherten Daten werden nur zur Optimierung des Internetangebotes ausgewertet.

=== Informationsmaterial, Newsletter, Kontaktformular ===
Wenn Sie Informationsmaterial oder Newsletter bestellen, fragen wir Sie nach Ihrem Namen und nach anderen persönlichen Informationen. Es unterliegt Ihrer freien Entscheidung, ob Sie diese Daten eingeben. Ihre Angaben speichern wir auf besonders geschützten Servern in Deutschland. Der Zugriff darauf ist nur wenigen besonders befugten Personen möglich, die mit der technischen oder redaktionellen Betreuung der Server befasst sind.
Über die auf unserer Webseite bereitgestellten Kontaktformulare können Sie direkt mit uns in Verbindung zu treten. Wir erheben, verarbeiten und nutzen die von Ihnen über ein Formular mitgeteilten Informationen ausschließlich für die Bearbeitung Ihres konkreten Anliegens und nur mit Ihrer Einwilligung.

=== Weitergabe personenbezogener Daten an Dritte ===
Wir verwenden Ihre personenbezogenen Informationen im Falle von Infobestellungen nur innerhalb der Bundesanstalt für Wasserbau und der mit dem Versand von Informationsmaterial beauftragten Unternehmen. Wir geben sie nicht ohne Ihre ausdrückliche Einwilligung an Dritte weiter. Soweit wir gesetzlich oder per Gerichtsbeschluss dazu verpflichtet sind, werden wir Ihre Daten an auskunftsberechtigte Stellen übermitteln.

=== Einsatz von Cookies ===
Bei einem Besuch unserer Website werden Informationen in Form eines Cookies auf Ihrem Rechner abgelegt. Cookies helfen unter vielen Aspekten, Ihren Besuch auf unserer Webseite einfacher, angenehmer und sinnvoller zu gestalten. Cookies sind Textdateien, die Ihr Webbrowser automatisch auf der Festplatte Ihres Computers speichert, wenn Sie unsere Internetseite besuchen.

Sie können Ihren Browser jederzeit mittels entsprechender Einstellung so konfigurieren, dass keine Cookies auf Ihrem Computer gespeichert werden und dadurch der Setzung von Cookies widersprechen. Zudem können Sie bereits gesetzte Cookies jederzeit über einen Internetbrowser oder andere Softwareprogramme löschen. Dies ist in allen gängigen Internetbrowsern möglich. Sofern Sie die Setzung von Cookies in dem genutzten Internetbrowser deaktivieren, sind unter Umständen nicht alle Funktionen unserer Internetseite nutzbar.

=== Statistik ===
Zur Optimierung unseres Angebots werten wir die Zugriffe auf unsere Seiten statistisch aus. Wir setzen dafür die Open-Source-Anwendung "AWStats" ein. AWStats nutzt für die Auswertung die Protokolldatei unseres Webservers. Die Informationen über Ihre Benutzung dieser Webseite werden nicht an Dritte weitergegeben.
Mit "AWStats" werden keine Daten an Server übermittelt, die außerhalb der Kontrolle der Bundesanstalt für Wasserbau liegen.
Aus den Daten erstellen wir keine Nutzerprofile und nutzen sie auch nicht für andere Zwecke.

===Links ===
Diese Datenschutzerklärung erstreckt sich nicht auf von unserer Webseite aus verlinkte Webseiten Dritter.
Für den Inhalt der verlinkten Seiten sind ausschließlich deren Anbieter verantwortlich. Offensichtlich rechtswidrige Inhalte waren zum Zeitpunkt der Verlinkung unter Anwendung eines zumutbaren Prüfungsmaßstabs nicht erkennbar. Bei Kenntnis von Rechtsverletzungen werden derartige Links unverzüglich entfernt.

=== Minderjährigenschutz ===
Personen unter 18 Jahren sollten ohne Zustimmung der Eltern oder Erziehungsberechtigten keine personenbezogenen Daten an uns übermitteln. Wir fordern keine personenbezogenen Daten von Kindern und Jugendlichen an. Wissentlich sammeln wir solche Daten nicht und geben sie auch nicht an Dritte weiter.

=== Auskunftsrecht, Berichtigung, Löschung ===
Sie haben jederzeit das Recht auf
* Auskunft,
* Berichtigung,
* Löschung,
* Einschränkung der Verarbeitung,
* Widerspruch gegen die Verarbeitung
* Datenübertragbarkeit
hinsichtlich der bezüglich Ihrer Person gespeicherten Daten, deren Herkunft und Empfänger sowie den Zweck der Speicherung, sofern nicht folgendes gilt:

Die Aufbewahrung von Bürgeranfragen in elektronischer Form erfolgt - wie auch in Papierform - gemäß den für die Aufbewahrung von Schriftgut geltenden Fristen der Registraturrichtlinie, welche die Gemeinsame Geschäftsordnung der Bundesministerien (GGO) ergänzt.

Sie können sich mit Fragen und Beschwerden an den Datenschutzbeauftragten der Bundesanstalt für Wasserbau wenden.

=== Behördliche Datenschutzbeauftragte ===
Cornelia Wolf<br/>
Telefon: +49 (0) 721 9726-2235<br/>
E-Mail: datenschutzbeauftragter@baw.de

Hauptseite

2019-12-06T13:45:52Z

ArxioWikiSysop: Änderungen von MediaWiki default (Diskussion) wurden auf die letzte Version von imported>Merkel Jennifer zurückgesetzt