Elsässisch

Aus Luke081515BotWiki
Zur Navigation springen Zur Suche springen

Ehemaliger Entwickler: Doc Taxon Mail.svg


  • Status: 100%

  • Version: 1.1



Status: Dieses Projekt wurde erfolgreich beendet


Funktion[Bearbeiten | Quelltext bearbeiten]

  • Ersetzen von [Ee]lsäßisch nach [Ee]lsässisch in de.wiktionary.org, Namespace 0
  • Verlinken von "Elsässisch" in der Dialekttabelle

Scripts[Bearbeiten | Quelltext bearbeiten]

Source 1.0[Bearbeiten | Quelltext bearbeiten]

cont {ret1 {
   foreach item [allpages $ret1] {
      dict with item {
         contents id $pageid
         if {$contents ne [set newcontents [string map {lsäßisch lsässisch} $contents]]} {
            puts [edid $pageid {[Ee]lsäßisch  [Ee]lsässisch} $newcontents]
         }
      }
   }
}} {*}$allpages / apnamespace 0

Source 1.1[Bearbeiten | Quelltext bearbeiten]

cont {ret1 {
   foreach item [allpages $ret1] {
      dict with item {
         regsub -nocase -all -- {(elsä)ß(isch)} [contents id $pageid] {\1ss\2} newcontents
         regsub -nocase -all -- {\*[ ]?Elsässisch} $newcontents {*[[Elsässisch]]} newcontents
         if {$contents ne $newcontents} {puts [edid $pageid {[Ee]lsäßisch  [Ee]lsässisch} $newcontents]}
      }
   }
}} {*}$allpages / apnamespace 0