Weblinkfix der Insee Canton-Links

Aus Luke081515BotWiki
Zur Navigation springen Zur Suche springen

Ehemaliger Entwickler: Doc Taxon Mail.svg


  • Status: 10%

  • Version: v 1.0

Status: Die Entwicklung wurde abgebrochen


Funktion[Bearbeiten | Quelltext bearbeiten]

  • Löschen entsprechender Deadlink-Bothinweise auf Artikel-Disk

Source[Bearbeiten | Quelltext bearbeiten]




Ehemaliger Entwickler: Doc Taxon Mail.svg


  • Status: 100%

  • Version: v 1.2

Status: Dieses Projekt wurde erfolgreich beendet


Funktion[Bearbeiten | Quelltext bearbeiten]

  • Ersetzen von Insee-Links wegen geänderter URL
  • Entfernen von Wikilinks in Weblinks

Source[Bearbeiten | Quelltext bearbeiten]

set cats [lsort -dictionary -unique [cat {Category:Verwaltungsgliederung Frankreichs} 0]]
foreach title $cats {
   contents t $title
   set contents1 [string map {[[ |<<| ]] |>>|} $contents]
   set lemma [join [dict values [regexp -inline -- {'''(.*?)'''} $contents1]]]
   puts $title:$lemma
   regsub -all -- \
      {http://www.recensement.insee.fr/searchResults.action\?zoneSearchField=&codeZone=(.*?)-COM} $contents1 \
      "\[http://www.insee.fr/fr/themes/comparateur.asp?codgeo=com-\\1 $lemma auf der Website des Insee\]" newcontents
   regsub -all -- \
      {\[http://www.recensement.insee.fr/RP99/rp99/co_navigation.co_page\?nivgeo=C&codgeo=(.*?)&theme=ALL&typeprod=ALL&lang=FR&quelcas=L
ISTE.*?\]} $newcontents \
      "\[http://www.insee.fr/fr/themes/dossier_complet.asp?codgeo=COM-\\1 $lemma auf der Website des Insee\]" newcontents
   set newcontents [string map {|<<| [[ |>>| ]]} $newcontents]
   regsub -nocase -all -- \
      {(auf der Website des Insee\]) auf der Website des \[\[INSEE\]\]} $newcontents \\1 badline
   if {$contents ne $badline} {puts [edit $title {Insee-Link nachkorrigiert} $badline]}
}