User:TaxonBot/suco.tcl

" regexp -- {\|label=(.*?)\n} $tab -- label regexp -- {\|lat=(.*?)\n} $tab -- lat regexp -- {\|long=(.*?)\n} $tab -- long append ib "\n| label = [string trim $label]\n| lat = [string trim $lat]\n| long = [string trim $long]\n\}\}"

set nconts [string map [list $tab\n\n $ib\n $tab $ib] $conts] if ![empty lort] { set nconts [string map [list {== Geographie ==} "== Geographie ==\n$ib2" {== Geographie und Einwohner ==} "== Geographie und Einwohner ==\n$ib2" {== Der Suco ==} "== Der Suco ==\n$ib2"] $nconts] } set nconts [string map {{Ort-4 = Beco} {Ort-4 = Beco 1}} $nconts] puts \n$nconts\n

1. input si "Okay? "
2. if {$si eq "j"} {puts [edit $title {Bot: neue Infoboxen und Aktualisierungen} $nconts / minor]}

if {[string first \"center\" $nconts] > -1} { puts {Fehler Elevation} input th {Trotzdem hochladen: } if {$th ni {j ja}} {exit} } regsub -- {\{\{Coordinate(?! ?\| ?text).*?\}\}\n\n} $nconts {} nconts regsub -- {\{\{Coordinate(?! ?\| ?text).*?\}\}\n} $nconts {} nconts regsub -- {\{\{Coordinate(?! ?\| ?text).*?\}\}\n<\!--Zeile steht f(ue|ü)r den Suco-->\n\n} $nconts {} nconts regsub -- {\{\{Coordinate(?! ?\| ?text).*?\}\}\n<\!--Zeile steht f(ue|ü)r den Suco-->\n} $nconts {} nconts

if {[string first "\{\{All Coordinates" $nconts] == -1} { set nconts [string map [list \n\n\[\[Kategorie "\n\{\{All Coordinates|pos=inline\}\}\n\n\[\[Kategorie"] $nconts] }

1. puts $nconts ; gets stdin

puts [edit $title {Bot: neue Infoboxen und Aktualisierungen} $nconts / minor]

1. gets stdin

puts \n\n\n } exit

puts [clock format [clock seconds] -format %T] set lpt 'Liste' set lcat "$lpt 'Personenname'" while {$lcat ne {}} { set lcat1 {} mysqlreceive $db " select page_title from page, categorylinks where cl_from = page_id and page_namespace = 14 and cl_to in ([join $lcat ,]) ;" pt { set lcat {} lappend lpt '[sql <- $pt]' lappend lcat1 '[sql <- $pt]' } set lcat $lcat1 }

set exclude [join "[lsort -unique $lpt] 'Abkürzung' 'Begriffsklärung' 'Wikipedia:Falschschreibung' 'Wikipedia:Liste' 'Wikipedia:Liste_erstellt_mit_Wikidata' 'Wikipedia:Obsolete_Schreibung'" ,] puts $exclude exit

mysqlreceive $db " select page_title from page, categorylinks where cl_from = page_id and page_namespace = 0 and cl_to in ([join $lpt ,]) order by page_title

" pt {

lappend lpt1 [sql -> $pt] }

puts $lpt1 exit

foreach pt $lpt1 { set oconts [conts t $pt x]

if {[string first {== Der Suco ==} $oconts] > -1} {

1. puts d:$pt

regexp -- {(\|align="center" \|Orte.*?)\|-\n\|colspan} $oconts -- oloctab regexp -- {\n\|(.*?)} $oloctab -- lemma puts $oloctab puts $lemma exit puts [edit "User:Doc Taxon/$pt" {} $oconts / minor] ; exit } elseif {[string first {== Geographie ==} $oconts] > -1} {

1. puts g:$pt

} elseif {[string first {== Geographie und Einwohner ==} $oconts] > -1} {

1. puts e:$pt

} else { puts $pt } }

</source> -->