Weblinkfix der Insee Canton-Links
Zur Navigation springen
Zur Suche springen
Ehemaliger Entwickler: Doc Taxon
- 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
- 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]}
}