User:TaxonBot/test.tcl

From Wikipedia

).*} $c \\1[join $ld \n]\\1 c puts [edit {Vorlage:Infobox Kreditinstitut/DatenDE} {Bot: Aktualisierung der Daten} $c / minor]



exit

set db [getHTML [set url https://de.wikipedia.org/wiki/Afg]]

puts $db



exit

puts [::http::geturl http://www.bundesbank.de/resource/blob/602702/latest/mL/blz-neu-txt-data.txt -type]

puts [curlHandle -url https://www.bundesbank.de/resource/blob/602702/latest/mL/blz-neu-txt-data.txt]



exit

proc rc u { global zq pt c set lrc [regexp -all -inline -- [format {.{0,40}\u%s.{0,40}} $u] $c] set crc [regexp -all -- [format {\u%s} $u] $c] if {$lrc ne {}} { switch $u { 00a0 {set lu NoBackSpace} 2004 {set lu ThreePerEmSpace} 2005 {set lu FourPerEmSpace} 2007 {set lu FigureSpace} 200b {set lu ZeroWidthSpace} 200e {set lu LeftToRightMark} } puts "----\n$crc $lu: $pt:\n" foreach rc $lrc { puts [regsub -all -- [format {\u%s} $u] $rc ʃ] } return {} } else { return {} } }


set zq {Bot: Steuerzeichen ersetzt} set nlist [list \u00a0 { } \u2004 { } \u2005 { } \u2007 { } \u200b { } \u200e { }] set llist [list \u00a0 { } \u2004 { } \u2005 { } \u2007 { } \u200b { } \u200e { }] set elist [list \u00a0 {} \u2004 {} \u2005 {} \u2007 {} \u200b {} \u200e {}] set clist [list " \u00a0 " { } " \u2004 " { } " \u2005 " { } " \u2007 " { } " \u200b " { } " \u200e " { }] set lpt [lrange [split [lindex [encoding convertfrom [[[dom parse -html [getHTML https://tools.wmflabs.org/checkwiki/cgi-bin/checkwiki.cgi?project=dewiki&view=bots&id=16]] documentElement] asList]] 2 1 2 0 2 0 1] \n] 1 end-1]

foreach pt $lpt { set c [conts t $pt x]

foreach u {00a0 2004 2005 2007 200b 200e} { rc $u }

input nl "\n /Leerzeichen/empty/cut? "

switch $nl { n {puts [edit $pt $zq [string map $nlist $c] / minor]\n} l {puts [edit $pt $zq [string map $llist $c] / minor]\n} e {puts [edit $pt $zq [string map $elist $c] / minor]\n} c {puts [edit $pt $zq [string map $clist $c] / minor\n]} default {} }

getHTML https://tools.wmflabs.org/checkwiki/cgi-bin/checkwiki.cgi?project=dewiki&view=only&id=16&title=[::http::formatQuery $pt] }

exit }

exit

set lrc [regexp -all -inline -- {.{30}[\u00a0\u200b].{30}} $c] set crc [regexp -all -- {\u00a0} $c]

puts "$crc: $pt:\n" foreach rc $lrc { puts [string map [list \u00a0 ʃ] $rc] }

input nl "\n /Leerzeichen/empty? "

switch $nl { n {puts [edit $pt $zq [string map [list \u00a0 { }] $c] / minor]} l {puts [edit $pt $zq [string map [list \u00a0 { }] $c] / minor]} e {puts [edit $pt $zq [string map [list \u00a0 {}] $c] / minor]} default {continue} }

getHTML https://tools.wmflabs.org/checkwiki/cgi-bin/checkwiki.cgi?project=dewiki&view=only&id=16&title=[::http::formatQuery $pt] }

exit

set pt {18. Jahrhundert} puts [edit $pt {} [string map [list \u00a0 { }] [conts t $pt x]] / minor]

exit

  1. set token [get [post $wiki {*}$format / action query / meta tokens] query tokens csrftoken]
  1. puts [post $wiki {*}$format {*}$token / action edit / title user:TaxonBot/Test / appendtext "\n\nte\u00a0st"]
  1. exit

set c [post $wiki {*}$format / action query / prop revisions / titles user:TaxonBot/Test / rvprop content / rvslots *]

puts $c

  1. set c [string map {{\u00a0} { }} $c]

puts [set text [regexp -inline -- {\[\{"slots":.*\]} $c]] puts [regexp -all -inline -- {[^\\]".*?[^\\]"} $text]

exit

if {[string first \\u00a0 $c] > -1} {puts Treffer}


exit

set lsr [insource {[A-Za-z]d[ei][res] Countys/} 0] puts $lsr puts [llength $lsr]

foreach sr [lsort -unique $lsr] { puts $sr: set conts [conts t $sr x] set lt [regexp -all -inline -- {.{20}[A-Za-z]d[ei][res] Countys.{20}} $conts] foreach t $lt { puts $t } gets stdin }


exit

foreach sr [lsort -unique $lsr] { set conts [conts t $sr x] set nconts [string map {{der Counties} {der Countys} {des Counties} {des Countys} {die Counties} {die Countys}} $conts] if {$nconts ne $conts} { puts $sr:\n[edit $sr {Bot: Counties → Countys} $nconts / minor]\n } }

exit

read_file test.txt aqua

puts $aqua

exit

set l [mysqlsel $db {select page_title from page,templatelinks where tl_from = page_id and !page_namespace and tl_title = page_title;} -flatlist]

set j 0 foreach 1 $l { incr i if {$i == 200} {incr j ; set i 0} dict lappend dl $j $l }

puts [llength $dl]

foreach {nr l} $dl { puts $nr get [post $wiki {*}$format / action purge / titles [join $l |] / forcerecursivelinkupdate] }

exit

set hidden [scat Kategorie:Versteckt 14] foreach 1 $hidden { puts $1 }

  1. set db [get_db dewiki]
  2. mysqlreceive $db "
  3. select page_id, cl_to
  4. from page left join categorylinks on cl_from = page_id
  5. where page_namespace = 0 and page_is_redirect = 0
  6. order by page_title
    " {pt cl} {
  7. if {[sql -> $cl] in $hidden} {set cl {}}
  8. dict lappend lwKAT $pt $cl
  9. }
  10. mysqlclose $db
  11. save_file wkat_lwKAT $lwKAT


set lwKAT [read_file wkat_lwKAT]

set lwKAT [list 10683204 [dict get $lwKAT 10683204]]

  1. set lwKAT [list 10683204 Wikipedia:Artikel_ohne_Wikidata-Datenobjekt]

puts $lwKAT foreach {pt cl} $lwKAT { puts $pt:$cl 

  foreach item $cl {

if {$item eq {}} {lremove cl $item} 

  }
  puts $pt:$cl
  puts [regexp -nocase -all {#WEITERLEITUNG|#REDIRECT|\{\{URV} [conts id $pt x]]
  if {$cl eq {}} {
     if ![regexp -nocase -all {#WEITERLEITUNG|#REDIRECT|\{\{URV} [conts id $pt x]] {lappend nlwKAT $pt}
  }

} puts $nlwKAT


exit

set hist [string map {http://de.wikipedia.org/w/index.php?oldid= https://youtube.fandom.com/de/w/index.php?oldid= de> {} {[[:user:} {{]} { (YouTube Wiki)]} | { }} [conts t Benutzer:TaxonBot/Test 1]]

  1. puts $hist

set vf 185374097 set vl 185374188

for {set i $vf} {$i <= $vl} {incr i} { if {[string first $i $hist] > -1} {lappend loldid2 $i} }

set dom [[[dom parse -html [getHTML https://youtube.fandom.com/de/wiki/Jay_%26_Arya?limit=100&action=history]] documentElement] asList]

  1. puts $dom

set loldid1 [dict values [regexp -all -inline -- {oldid=(\d.*?) } $dom]] set loldid2 [lsort -unique -integer -decreasing $loldid2]

  1. puts [llength [lsort -unique $loldid2]]

set loldid1 [lsort -unique -integer -decreasing $loldid1]

  1. puts [llength [lsort -unique $loldid1]]

lmap 1 [lrange $loldid1 1 end] 2 $loldid2 { set hist [string map [list $2 $1] $hist] }

set hist [string map {{ } { |}} $hist]

puts $hist

puts [edit user:TaxonBot/Test {} $hist]

exit


set conts [split [regsub -all {} [conts id 10665777 x] {}] \n] foreach line $conts { if ![string first * [string trim $line]] { regexp -- {\[\[:(.*?)\]\]} $line -- cat set key [string index $line end-1] if {$key eq {0}} {set key -} dict lappend dcat $key [string range $cat 10 end] } } foreach {key lval} $dcat { switch $key { - { lappend pcatdb $lval } + { lappend pcatdb $lval foreach val $lval { lappend pcatdb [dcat list $val 14] } } default { set i 0 while {$key != $i} { lappend dpcatdb $lval incr i foreach val $lval { lappend dpcatdb [scat $val 14] } set lval [join $dpcatdb] set dpcatdb {} } lappend pcatdb $lval } } } foreach cat [lsort -unique [join $pcatdb]] { lappend catdb Kategorie:$cat }

puts $catdb

  1. - {lappend catdb $val}


exit

set lc [scat Politische_Partei_nach_Staat 14]

foreach cat $lc { puts \n$cat input state {Staat: } if {$state ne {n}} { lappend clist [format {== Bot: Kategorie:%s nach Kategorie:Partei (%s) ==%ssiehe Diskussion %s} $cat $state \n ${~}] } puts [join $clist \n\n] }

puts [edit Wikipedia:WikiProjekt_Kategorien/Warteschlange {Änderung der [[:Kategorie:Politische Partei nach Staat} {} / appendtext \n[join $clist \n\n]]

exit

mysqlreceive $db { select page_title from page where page_namespace = 14

} pt {

lappend lpt Kategorie:[sql -> $pt] }

  1. puts $lpt

set offset 0

  1. set lpt [lrange [split [read_file test.db] \n] 0 end-2]
  2. set pt {Kategorie:Parlamentswahl in Litauen}

foreach pt [lsort $lpt] { puts $pt: if {$pt eq {Kategorie:Snookerverein}} { set offset 1 } if !$offset {continue} set lline {} set lconts [split [set oconts [set conts [conts t $pt x]]] \n] foreach line $lconts { lassign {0 0} § ° if {[string first $line] > -1} {

  1. puts $lconts
  2. puts $line

set cline [string map {' §§§ °°} $line]

  1. puts $cline

set § [regexp -all {§§§} $cline]

  1. puts ${§}
  2. if [expr ${§} % 2] {puts odd}

set ° [regexp -all {°°} $cline]

  1. puts ${°}

if {[expr ${§} % 2] || [expr ${°} % 2]} {lappend lline $line $cline} } }

  1. puts $lline

foreach {line cline} $lline { if {[string range $cline 0 4] eq {§§§°°}} { puts \a$line puts $line input q "j/n: " if {$q eq {j}} { set conts [string map [list $line $line] $conts] } } elseif {[string range $cline 0 2] eq {§§§}} { puts \a$line puts $line input q "j/n: " if {$q eq {j}} { set conts [string map [list $line $line] $conts] } } elseif {[string range $cline 0 1] eq {°°}} { puts \a$line puts $line input q "j/n: " if {$q eq {j}} { set conts [string map [list $line $line] $conts] } } else { puts \a$line gets stdin } } if {$conts ne $oconts} { puts ****\n$oconts puts $conts\n**** gets stdin puts [edit $pt {Bot: Lint-Fehler „Fehlendes End-Tag“ behoben} $conts / minor] } puts ----

  1. gets stdin

}




exit

  1. set lpt [mysqlsel $db {select * from recentchanges where rc_new or rc_log_type = 'move' order by rc_timestamp;} -list]
  2. set lpt [mysqlsel $db {select rc_namespace, rc_timestamp, rc_cur_id, rc_title, rc_log_type from recentchanges where rc_new or rc_log_type = 'move' order by rc_timestamp;} -list]

set tt [utc ^ seconds {} %Y%m%d {-1 day}]235959 set ty [utc ^ seconds {} %Y%m%d {-30 days}]000000

puts $tt:$ty


set tdiff [expr [utc -> seconds {} %H {}] - [utc ^ seconds {} %H {}]] set lpt [ mysqlreceive $db " select log_type, log_timestamp, log_namespace, log_title, log_page, log_params from logging where log_type in ('create', 'move') and log_timestamp > [utc ^ seconds {} %Y%m%d {-30 days}][expr 24 - $tdiff]0000 and log_timestamp < [utc ^ seconds {} %Y%m%d {-1 day}][expr 23 - $tdiff]5959 and log_namespace in (0, 2) and log_page not in ( select page_id from page where page_namespace in (0, 2) and page_is_redirect ) order by log_timestamp ;" {type ts ns pt pgid params} { set pt [sql -> $pt] set tgt [expr {$ns == 2 ? "Benutzer:$pt" : $pt}]

  1. puts "$type $ts $ns $pgid $pt $params"

if {$type eq {move}} { regexp -- {;(.*)} $params -- tgt1 regexp -- {"(.*?)";s} $tgt1 -- tgt } if ![nstodns [lindex [split $tgt :] 0]] { lappend ll [ list type [ expr {$type eq {create} ? {crea} : $type} ] ns $ns pageid $pgid timestamp [ utc -> $ts %Y%m%d%H%M%S %Y-%m-%dT%TZ {} ] title $tgt ] } } ]

puts [join $ll \n]

set f [open rc/rc[utc ^ seconds {} %Y%m%d {-1 day}].b.db w] ; puts $f [join $ll \n] ; close $f




exit

foreach l [join $ll \n] { puts $l } puts [llength $ll] puts \n[lindex $ll 0]








exit

set schwab {

Description {{{description}}}
Source {{{source}}}
Author {{{author}}}

Template:Bild-PD-alt-100}

set xml [[[dom parse -html [getHTML https://de.wikipedia.org/wiki/Spezial:LintErrors/missing-end-tag?namespace=6&limit=5000]] documentElement] asList] set ltr [lindex $xml 2 1 2 2 2 4 2 4 2 2 2 1 2] foreach tr $ltr { set title [lindex $tr 2 0 2 0 1 3] lappend ltitle $title } set ltitle [lsort -unique $ltitle] foreach title $ltitle { puts \n----\n$title\n set nc [conts t $title x] while 1 { unset -nocomplain i dsnc set snc [split $nc \n] unset -nocomplain i foreach line $snc { lappend dsnc [incr i] $line } foreach {i line} $dsnc { puts "$i: $line" } input q "\nNr.: " if {$q eq "s"} { regexp -- {\{\{.*\}\}} $nc oc set nc [string map [list $oc $schwab] $nc] break } elseif [empty q] { break } set q [dict get $dsnc $q] puts \n$q input c "\nc: " switch $c { rrf { set c [string map [list " " {} {}] [string trimright $q]] } rrk { set c [string map [list " " {} {}] [string trimright $q]] } rmrf { input m "m: " set c [string map [list $m $m] [string trimright $q]] } rmrk { input m "m: " set c [string map [list $m $m] [string trimright $q]] } sfk { set c [string trimright $q] } sff { set c [string trimright $q] } sffk { set c [string trimright $q] } srk { set c [string trimright $q] } srkd { set c [string trimright $q]. } smfk { input m "m: " set c [string map [list $m $m] [string trimright $q]] } smff { input m "m: " set c [string map [list $m $m] [string trimright $q]] } smffk { input m "m: " set c [string map [list $m $m] [string trimright $q]] } smrk { input m "m: " set c [string map [list $m $m] [string trimright $q]] } smrkc { input m "m: " set c [string map [list $m, $m.] [string trimright $q]] } } set nc [string map [list $q $c] $nc] set nc [string map [list "\n\{\{subst:nld\}\}\n" {} "\n\{\{subst:nld\}\}" {}] $nc]

  1. puts \n$nc
  2. gets stdin

} puts \n$nc gets stdin puts [edit $title {Bot: Lint-Fehler „Fehlendes End-Tag“ behoben} $nc / minor] }

exit

if ![empty Anmerkungen] {gets stdin} set batchline {Aus: Die deutschen Kolonien. Hrsg.: Kurt Schwab unter Mitwirkung von Dr. Fr. Böhme [et. al.] ; Unter künstlerischer Leitung von Bernhard Esch ; Farbenphotographische Aufnahmen von Dr. Robert Lohmeyer, Bruno Marquardt und Eduard Kiewning, Berlin, 1910} set batchline0 {Aus: Die deutschen Kolonien / Hrsg. Kurt Schwab unter Mitwirkung von Dr. Fr. Böhme [et. al.] ; Unter künstlerischer Leitung von Bernhard Esch ; Farbenphotographische Aufnahmen von Dr. Robert Lohmeyer, Bruno Marquardt und Eduard Kiewning, Berlin, 1910} set Beschreibung {siehe Fototitel – Beachte: die Titel sind weitgehend original und können zeitgenössische Begriffe oder Ansichten wiedergeben, sie sollten nicht unreflektiert in Texte übernommen werden.} set Beschreibung0 {siehe Fototitel - Beachte: die Titel sind weitgehend original und können zeitgenössische Begriffe oder Ansichten wiedergeben, sie sollten nicht unreflektiert in Texte übernommen werden.} set Beschreibung1 {siehe Fototitel - Beachte: die Titel sind weitgehend original und können zeitgenössische Begriffe oder Ansichten wiedergeben, sie sollten nicht unreflektiert in Texte übernommen werden.} if {[string first $batchline0 $oc] > -1} { set nc [string map [list {|Anmerkungen = } "|Anmerkungen = $batchline"] $nc] } if {[string first $Beschreibung1 $oc] > -1} { set nc [string map [list $Beschreibung1 $Beschreibung] $nc] } if {[string first $Beschreibung0 $oc] > -1} { set nc [string map [list $Beschreibung0 $Beschreibung] $nc] } set nc [string map [list "* batch: $batchline0\n\n" {} "\n\{\{subst:nld\}\}\n" {} "\n\{\{subst:nld\}\}" {}] $nc] puts $nc puts [edit $title {Bot: Lint-Fehler „Fehlendes End-Tag“ behoben + Kleinigkeiten} $nc / minor] }


exit

set lp [dict values [regexp -all -inline -- {\{(Datei.*?)\}} $xml]] puts [lsort $lp] foreach p [lrange [lsort $lp] 1 end] { unset -nocomplain temp ptemp Anmerkungen

  1. puts $p

set oc [conts t $p x] if {{batch:} in $oc} {puts $p} continue regexp -- {\{\{ ?(Information[^\}]*?)\}\}} $oc -- temp set ptemp [parse_templ $temp] puts $ptemp set Anmerkungen [dict get $ptemp Anmerkungen] puts $Anmerkungen gets stdin }







exit

set lvetopage [string tolower [dict values [regexp -all -inline -- {\[\[(.*?)\]\]} [conts id 3396115 1]]]] set lspokencat [string tolower [cat {Kategorie:Wikipedia:Gesprochener Artikel} 0]]

if {$argv eq {e}} {set id 983688} elseif {$argv eq {l}} {set id 3352903}

set nconts [set conts [conts id $id x]] set lline [split $conts \n] foreach line [string map Template:2002 AA29 $lline] { if {[string index $line 0] eq {#}} { lassign {0 {} {} {}} dates talkconts ldate puts [incr i]:$line if {[string first {2002 AA29} $line] > -1} { set page {2002 AA29} } elseif {[string first {2003 YN107} $line] > -1} { set page {2003 YN107} } else { regexp -- {\[\[(.*?)\]\]} $line -- page } set dates [lindex [regexp -all -inline -- {(.*?)} $line] end] set nrs [regexp -all -- {\d} $dates] if {[string first | $page] > -1} {puts pipe ; gets stdin ; continue} if [redirect $page] {gets stdin ; continue} set talkconts [conts t Diskussion:$page 0] set lrex [lsort -decreasing [regexp -all -inline -- {\{\{.*?\}\}} $talkconts]] foreach rex $lrex { set parsetempl [parse_templ $rex] dict with parsetempl { switch $TEMPLATE { {War AdW} { switch [llength $1] { 1 {set wdate1 "$1 [lrange $2 1 2]"} 2 {set wdate1 "$1 [lindex $2 end]"} 3 {set wdate1 $1} } lappend ldate [utc ^ $wdate1 {%e. %B %Y} {%d.%m.%Y} {}]−[utc ^ $2 {%e. %B %Y} {%d.%m.%Y} {}] } {War AdT} { if {[expr ([llength $parsetempl] - 2) / 2] != [expr $nrs / 8]} { puts "unterschiedliche Mengen" } foreach date [dict values [lrange $parsetempl 2 end]] { lappend ldate [utc ^ $date {%e. %B %Y} {%d.%m.%Y} {}] } } {AdT-Vorschlag Hinweis} { lappend ldate [utc ^ $Datum {%e. %B %Y} {%d.%m.%Y} {}] } } } } set lowpage [string tolower $page] set sveto { (Veto)} if {$page eq {2002 AA29}} { set page {2002 AA29|2002 AA29} } elseif {$page eq {2003 YN107}} { set page {2003 YN107|2003 YN107} } set nline "#[expr {$lowpage in $lspokencat ? { Template:Gesprochen} : {}}][expr {[empty ldate] ? " \[\[$page\]\]" : [string first ' $ldate] > -1 ? " \[\[$page\]\]" : " \[\[$page\]\]"}][expr {$lowpage in $lvetopage ? $sveto : {}}][expr {![empty ldate] ? " − [join $ldate { + }]" : {}}]" puts $nline\n set nconts [string map [list $line $nline] $nconts] } } puts [edid $id {Bot: Aktualisierung} $nconts / minor]


exit

set lsect [get [post $wiki {*}$parse / pageid 3352903 / prop sections] parse sections] for {set nr 1} {$nr <= 8} {incr nr} { foreach sect $lsect { dict with sect { if {[string first $nr. $number] > -1} { lappend lnsect [string map -nocase {ä a ö o ü u ß ss ( {} {der schweiz} schweiz} [string tolower $line]] [conts id 3352903 $index] } } } set lnsect [lsort -stride 2 $lnsect] puts \n foreach {1 2} $lnsect {puts $1} foreach sect $lsect { dict with sect { if {$number eq "$nr"} { set topline $line } } } lappend llsect $topline $lnsect unset -nocomplain lnsect }


  1. puts $lnsect

exit

puts $lsect

exit

set conts [conts id 3352903 x] set conts1 [conts id 3352903 1]


puts $conts1

  1. puts [edid 983688 {Bot: aufgeräumt} $conts / minor]

exit

set lpage [mysqlsel $db {select page_title from page join templatelinks on tl_from = page_id where !page_namespace and !tl_from_namespace and tl_title = 'Navigationsleiste_Flüsse_Albaniens' order by page_title;} -flatlist]

foreach page $lpage { 

  set nc [conts t $page x]
  set nc [string map {{{{Navigationsleiste Fluss in der Zentralafrikanischen Republik}}} {}} $nc]
  set nc [string map {{{{Navigationsleiste Fluss im Tschad}}} {}} $nc]
  set nc [string map {{{{Navigationsleiste Fluss in Kamerun}}} {}} $nc]
  set nc [string map {{{{Navigationsleiste Flüsse Albaniens}}} {}} $nc]
  set nc [string map [list \n\n\n\n\n\n \n\n \n\n\n\n\n \n\n \n\n\n\n \n\n \n\n\n \n\n] $nc]
  puts [edit $page {Bot: Navigationsleiste(n) gelöscht, siehe Löschdiskussion} $nc / minor]

}



exit

for {set jahr 1886} {$jahr <= 2023} {incr jahr} {}

set lpage [insource Carambolage/ 0] puts $lpage


  1. set page $argv
  2. foreach page $lpage {}
  1. set lpage [mysqlsel $db {select page_title from page where page_title like 'Liste_der_Biografien/%' and !page_namespace order by page_title;} -flatlist]
  1. foreach page $lpage {}
  2. set page "Weltmeisterschaften $jahr"
  3. if [catch {set oc [conts t $page x]}] {continue}

foreach page $lpage { puts $page input jn "ja/nein? " if {$jn ne {j}} {continue} set oc [conts t $page x] puts [regexp -all -- {Carambolage} $oc]

set nc [string map {{Carambolage-Billardspieler} {Karambolagespieler} {Carambolagespieler} {Karambolagespieler} {Infobox Carambolageturnier} {Infobox Karambolageturnier} {Dreiband-Turnier} {Dreiband-Turnier} {Carambolagevariante} {Karambolagevariante} {Carambolagedisziplinen} {Karambolagedisziplinen} {Carambolagedisziplin} {Karambolagedisziplin} {Carambolageturnier} {Karambolageturnier} Carambolage# {Karambolage (Billard)#} Carambolage-Begriffe Karambolage-Begriffe {Carambolage Legende} {Karambolage Legende} {Navigationsleiste Internationale Meisterschaften im Carambolage} {Navigationsleiste Internationale Meisterschaften im Karambolage} Kategorie:Vorlage:Carambolage Kategorie:Vorlage:Karambolage Kategorie:Carambolage Kategorie:Karambolage {-2017 Carambolage} {-2017 Carambolage} {Carambolage-Billards} {Karambolagebillards} {Carambolage-Billard} {Karambolagebillard} :Carambolage :Carambolage (Carambolage)\}\} (Carambolage)\}\} _Carambolage_ _Carambolage_ {[[Carambolage|} {[[Karambolage (Billard)|} {Carambolage} {Karambolage} Carambolage Karambolage} $oc]

puts [edit $page {Bot: siehe Diskussion:Karambolage (Billard)#Schreibweise} $nc / minor]


}



exit

set title Vorlage:TabMenu/Doku/TMT/$argv set oc [conts t $title x]

set old1 {könntest Du den unten stehen Quellcode kopieren nach:
Benutzer:DeinBenutzername/MyTabMenu
regexp -- {.*} $oneconts one set nneconts [string map [list $one $mbqsw\n$fdblock\n$mbqsw] $nneconts] if {$nneconts ne $oneconts} { puts [edit "$wplk/Nicht eingetragen" "Bot: QSWORKLIST: [tdot $fdcount]" $nneconts / minor] } exit } mysqlclose $db puts $llkpgid ; gets stdin }

exit


set lktitle [sql -> [string trimleft [dnstons $lkns]:$lktitle :]] puts [incr i]:$lktitle regexp -line -- {\{\{Löschantragstext\|tag=(\d{1,2})\|monat=(.*?)\|jahr=(\d{4})\|titel=(.*?)\|text=} [conts t $lktitle x] -- lkday lkmonth lkyear lklink set lkpage "$wplk/$lkday. $lkmonth $lkyear" lappend lfdkat "* \[\[:$lktitle\]\] (\[\[$lkpage#$lklink|[[$lkpage]]\]\])" } puts [join $lfdkat \n] puts [edit Benutzerin:TaxonBota/Test {} [join $lfdkat \n]] exit

regexp -- {.*fzbot#ade} [conts t $wplk x] cwplk set llkpage [dict values [regexp -inline -line -all -- {^\* (?:)?\[\[/(.*?)\|.*} $cwplk]] foreach lkpage $llkpage { puts $wplk/$lkpage set slkpage [split [conts t $wplk/$lkpage x] \n] foreach line $slkpage { if {![string first = $line] && ![blcheck $line]} { set bltitle {} set bltitle [bltitle $line] if ![empty bltitle] {lappend llktitle $bltitle} } } } set llktitle [lsort -unique $llktitle] foreach lktitle $llktitle { puts [incr i]:$lktitle } set lwplktns [mysqlsel $db { select page_title, page_namespace from page join categorylinks on cl_from = page_id where page_namespace != 14 and (cl_to = 'Wikipedia:Löschkandidat' or cl_to like 'Wikipedia:Löschkandidat/%')

} -list]

foreach wplktns [lsort -unique $lwplktns] { lappend clktitle [string trimleft [dnstons [lindex $wplktns 1]]:[sql -> [lindex $wplktns 0]] :] } foreach lktitle $clktitle { puts [incr j]:$lktitle } foreach lktitle $clktitle { if {$lktitle ni $llktitle} { puts $lktitle set dlkdata [lrange [split [regexp -inline -- {\{\{Löschantragstext.*?\}\}} [conts t $lktitle x]] |=] 1 8] puts $dlkdata

} } exit

  1. puts [getHTML https://www.silbentrennung24.de/?term=Triebwerk/]

set f [open adt.db w] ; close $f mysqlreceive $db { select page_title from page join templatelinks on tl_from = page_id where !page_namespace and !tl_from_namespace and tl_namespace = 10 and tl_title in ('Lesenswert','Exzellent') order by page_title

} pt {

lappend lpt $pt } foreach pt $lpt { catch { if {[string first $argv [conts t $pt x]] > -1} { puts [incr i]:$pt set f [open adt.db a] ; puts $f $i:$pt ; close $f } } }

exit

set einl [conts t {Wikipedia:Kempten und Allgäu/Einladung} x] set cluser {'Benutzer:aus_dem_Allgäu','Benutzer:aus_Oberschwaben','Benutzer:aus_Augsburg','Benutzer:aus_Ulm','Benutzer:aus_Neu-Ulm'} append cluser ,[dcat sql Benutzer:aus_dem_Allgäu 14] append cluser ,[dcat sql Benutzer:aus_Oberschwaben 14] append cluser ,[dcat sql Benutzer:aus_Augsburg 14] append cluser ,[dcat sql Benutzer:aus_Ulm 14] append cluser ,[dcat sql Benutzer:aus_Neu-Ulm 14]

  1. lappend cluser $luser1 $luser2 $luser3 $luser4 $luser5
  2. set cluser [join $cluser]

set cluser [string trim $cluser ,] mysqlreceive $db " select page_title from page join categorylinks on cl_from = page_id where page_namespace in (2,3) and cl_to in ([join $cluser ,]) order by page_title

" pt {

if {$pt eq {Bene16/Baustelle_11}} { lappend lpt Bene16 } elseif {[string first Vorlage/ $pt] == -1 && $pt ni {Tobias_"ToMar"_Maier}} { lappend lpt $pt } } set lpt [lsort -unique $lpt]

set einl [string map [list 

\n {} \n

{}] $einl]

puts $einl foreach pt $lpt { puts [edit BD:$pt {Bot: Einladung: Neujahrstreffen im Allgäu (13.01.2018)} {} / appendtext \n\n$einl] } exit


set portale [cat {Kategorie:Wikipedia:MerlBot-Listen Typ (NeueArtikel)} x] foreach portal $portale {

  1. if {$portal ne {Portal:Aargau/Bausteine} && !$aaaa} {continue} else {incr aaaa}
  2. if {$portal ne {Benutzer:Olaf Kosinsky/Naumann-Stiftung}} {continue} else {set 1x 1}
  while 1 {
     try {
        if {[exec pgrep -cxu taxonbot NeueArtikel1.tc] < 1000} {
           exec ./NeueArtikel1.tcl "[list [list $portal]]" &
           after 1000
           break
        }
     } on 1 {} {exec ./NeueArtikel1.tcl "[list [list $portal]]" & ; after 1000 ; break}
  1. if $1x {exit}
  }

}


exit

  1. set db [get_db dewiki]
  2. while 1 {if [catch {set db [get_db dewiki]}] {puts 1 ; after 10000 ; continue} else {break}}

set db [get_db dewiki] puts 1 mysqlclose $db set db [get_db dewiki] puts 2 mysqlclose $db set db [get_db dewiki] puts 3 mysqlclose $db set db [get_db dewiki] puts 4 mysqlclose $db set db [get_db dewiki] puts 5 mysqlclose $db set db [get_db dewiki] puts 6 while 1 {if [catch {set db [get_db dewiki]}] {puts 6 ; after 10000 ; continue} else {break}}

  1. set db [get_db dewiki]

puts 7 mysqlclose $db set db [get_db dewiki] puts 8 mysqlclose $db set db [get_db dewiki] puts 9 mysqlclose $db set db [get_db dewiki] puts 10 mysqlclose $db set db [get_db dewiki] puts 11 mysqlclose $db set db [get_db dewiki] puts 12 mysqlclose $db set db [get_db dewiki] puts 13 mysqlclose $db


exit

for {set x 20} {$x <= 30} {incr x} {lappend na NeueArtikel.match/NeueArtikel-11$x} for {set x 1} {$x <= 19} {incr x} {lappend na NeueArtikel.match/NeueArtikel-12[format %02d $x]} set na [string map {1219 1219b} $na] foreach a $na { lappend conts [read [set f [open $a r]]] ; close $f } set sconts [split $conts \n] foreach l $sconts { if {[string first /leer/ $l] == -1} { lappend ll $l } } set nc [join [join $ll \n]] set f [open NeueArtikel.match/NeueArtikel-1219 w] ; puts $f $nc ; close $f

exit

mysqlreceive $db1 {select page_title from page where page_title like '%(Zahnarzt%' and !page_namespace;} pt {lappend dcat [sql -> $pt]}

puts $dcat


  1. set dcat [dcat list Mediziner 0]

foreach page $dcat {

  1. input q "$page: j/n"
  2. if {$q eq {n}} {continue}

if {[string first (Zahnarzt $page] > -1} { puts \n[incr i]:$page set npage [string map {(Zahnarzt (Zahnmediziner} $page] puts $npage puts \n[get [post $wiki {*}$format {*}$token / action move / from $page / to $npage / reason "Bot: \[\[$page\]\] → \[\[$npage\]\] laut \[\[WP:RM#Klammerlemmafrage\]\]" / movetalk 1 / noredirect 1 / movesubpages 1]] source rename.tcl } }


exit

set pl [mysqlsel $db { select page_title from page where !page_namespace and !page_is_redirect

} -flatlist]

set pl [lsort $pl]

foreach p $pl { puts $p if [missing $p] {continue} while 1 { if ![catch { set lconts [string tolower [set conts [conts t $p x]]] if {[string first masse $lconts] > -1 && ([string first gewicht $lconts] > -1 || [string first achslast $lconts] > -1) && ([string first kp $conts] > -1 || [string first Mp $conts] > -1)} {puts "----- $p" ; set f [open test.out a] ; puts $f $p ; close $f} }] {break} } }

exit

set page Liste_der_Sektionen_des_Deutschen_Alpenvereins

set lrex [regexp -all -inline -line -nocase -- {Alpenverein.de: \Mitgliederzahl (.*?)\} [set nconts [conts t $page x]]] puts $lrex puts [llength $lrex] foreach {link id name} $lrex { set nconts [string map [list $link [format %s $id $name]] $nconts] } puts $nconts puts [edit $page {Bot: Mitglieder-Links auf Vorlage:DAV-Sektion umgestellt} $nconts]

exit

set lt [scat {Ort in Nordamerika} 0] foreach t $lt { puts [edit $t {Bot: Linkkorrektur Kaukasische Rasse → White people} [string map [list "\[\[Kaukasische Rasse" "\[\[White people"] [conts t $t x]]] }


exit

  1. set lt1 [dcat sqllist {Liste (Kulturdenkmale in Sachsen)} 0]

set lt2 [mysqlsel $db { select page_title from templatelinks join page on tl_from = page_id where !tl_from_namespace and tl_namespace = 10 and tl_title = 'Denkmalliste_Sachsen_Tabellenzeile' and !page_namespace

} -list]

foreach t [lsort $lt2] { lassign {} nlc lsline res set lc [split [conts t $t x] \n] foreach c $lc { if {[string index [string trim $c] 0] eq {|}} {lappend nlc $c} } foreach c $nlc { lappend lsline [split $c |=] } foreach col $lsline { if {[string trim [lindex $col 1]] in {Name NS Datierung Beschreibung} && [string trim [lindex $col 2]] eq {}} { lappend res $col break } } if ![empty res] {lappend lt "* \[\[[sql -> $t]\]\]"} }

puts [edit user:Z_thomas/Kulturdenkmallisten_Sachsen {alphabetisch} [join $lt \n]]

exit

set nconts [set oconts [conts t BD:Maimaid x]] set tsformat {%Y-%m-%d %H:%M} set 7days [utc <- seconds {} $tsformat {-7 days}]

for {set sect 1} {$sect < 100} {incr sect} { if [catch { set csect [conts t BD:Maimaid $sect] if {[string first GiftBot/Ausrufer $csect] > -1} { set ts [utc <- [string map {Mai Mai.} {*}[dict values [regexp -inline -- {– \[\[Benutzer:GiftBot\|GiftBot\]\].*?(\d\d.*?\d{4})} $csect]]] {%H:%M, %e. %b. %Y} $tsformat {}] if {[clock scan $ts -format $tsformat] < [clock scan $7days -format $tsformat]} { lappend lsect [lindex [split $ts -] 0] $csect } } }] {break} }

foreach {year sect} $lsect { puts [edit BD:Maimaid/Archiv/$year {Bot: Archivierung des Ausrufers} {} / appendtext \n\n$sect] puts [edit BD:Maimaid {Bot: Archivierung des Ausrufers} [set oconts [string map [list $sect {}] $oconts]]]}

exit

exec rm spiel.out exit

set c [regexp -all -inline -line -- {^==.*$} [conts id 1912033 x]] set d [dict values [regexp -all -inline -- {\[\[(.*?)\]\]} $c]] foreach e $d {puts $e:\n[conts t Diskussion:$e x] ; gets stdin}

exit

foreach out [glob *.out] { set c [read [set f [open $out r]]] ; close $f if [catch {if {[string first recent $c] > -1} {puts $out}}] {puts $out} }

exit

puts [mysqlsel $db " select * from aft_article_answer

" -list]


exit

foreach l {B C D E F G H I J K L M N O P R S T U V W Y Z} { set title "Liste der Baudenkmale in Potsdam/$l" set lid [regexp -all -inline -- {\d{8}(?!,[tT])} [set c [conts t $title x]]] set i 0 foreach id $lid { if {[string first {dynaXML Error: Invalid Document} [getHTML http://ns.gis-bldam-brandenburg.de/hida4web/view?docId=obj$id.xml]] > -1} { incr i set c [string map [list $id\n $id,T\n] $c] } } puts [edit $title "Bot: Replacement of $i broken database links" $c / minor] }

exit

puts [getHTML http://ns.gis-bldam-brandenburg.de/hida4web/view?docId=obj09155809.xml] exit }

exit

set oc [conts t [set title {Liste der Baudenkmale in Potsdam/Z}] x] regexp -- {\|-[ ]?\n\|.*?\|\}} $oc otab regsub -all -- {\|\|(siehe|data| Die)} $otab "\n| \\1" otab

  1. puts $otab

regsub -all -- {\n(?!\|)} $otab ~~ otab set otab [string map {{Kolonistenhaus} {Kolonistenhaus}} $otab] set otab [string map {{Wissenschafts- und Restaurierungszentrum} {Wissenschafts- und Restaurierungszentrum}} $otab] set lotab [split $otab \n] foreach {o1 o2 o3 o4 o5 o6 --} [lrange $lotab 1 end-1] { set tr Template:Denkmalliste Brandenburg Tabellenzeile if {[regexp -all -inline -- {\d{8}} $o1] > 0} { lappend tr "| Id = [regexp -inline -- {\d{8}} $o1]" } else { lappend tr "| Id = " } regexp -- {\|(.*)(\{\{Coord.*)} $o3 -- o312 o33 set o312 [lreverse [split $o312 |]] lappend tr "| Adresse = [string trim [string trimleft $o2 |]]
[string trim [regsub -all -- {<.*?>} [lindex $o312 0] {}]]" lappend tr "| Lage-Sortierung = [string trim [join [dict values [regexp -inline -- {"(.*)"} [lindex $o312 1]]]]]" set bl {{Hermann Mattern} Finanzamt {Otto von Estorff (Architekt)} Stibadium {Otto Kerwien} {Neuer Garten Potsdam} {Karl Liebknecht} {Bernhard Kellermann} {Robert Neddermeyer} {Wilhelm Staab} Kolonisation {Kietz (Siedlung)} Kaserne UFA Kunstblume Chausseehaus {Bruno H. Bürgel} Krankenhaus {Richard Tauber} {Hans Marchwitza} {Carl Saltzmann} {Ernst Haeckel}} set art [join [dict values [regexp -inline -- {\[\[(.*?)[|\]]} $o4]]] if {$art in $bl} {set art {}}

  1. if {[regexp -inline -- {\d{8}} $o1] eq {09156548}} {set art {}}

lappend tr "| Artikel = $art" lappend tr "| NS = [string trim [join [dict values [regexp -inline -- {\|NS=(.*?)\|} $o33]]]]" lappend tr "| EW = [string trim [join [dict values [regexp -inline -- {\|EW=(.*?)\|} $o33]]]]" if ![empty art] { set lno4 [dict values [regexp -all -inline -- {\[\[(.*?)\]\]} $o4]] foreach no4 $lno4 { set cno4 [lindex [lreverse [split $no4 |]] 0] set o4 [string map [list \[\[$no4\]\] $cno4] $o4] } } lappend tr "| Bezeichnung = [string trim [string trimleft $o4 |]]" lappend tr "| Beschreibung = [string trim [string trimleft $o5 |]]" lappend tr "| Bild = [string trim [join [dict values [regexp -inline -- {\[\[.*?:(.*?)\|} $o6]]]]" if ![empty art] { set lcc [split [join [dict values [regexp -inline -- {\{\{([Cc]ommonscat.*?)\}\}} [conts t $art x]]]] |] if [empty lcc] { set cc {} } elseif {[lindex $lcc 1] eq {}} { set cc $art } else { set cc [lindex $lcc 1] } } else { set cc {} }

  1. if {[regexp -inline -- {\d{8}} $o1] eq {09155120}} {set cc {Schauspielhaus Potsdam}}

lappend tr "| Commonscat = $cc" lappend tr {} lappend ltr \{\{[join $tr \n]\}\} } set ntab [string map [list ~~ \n] "== Baudenkmale ==\n\{\{Legende Baudenkmal Brandenburg\}\}\n\n\{\{Denkmalliste Brandenburg Tabellenkopf\|Gemeinde Potsdam\}\}\n[join $ltr \n]\n|\}"] regexp -- {== Baudenkmale.*?\n\|\}} $oc otab puts [edit $title {Bot: Baudenkmalliste in Vorlagen gepackt, nach WP:Bots/Anfragen#Denkmallisten in Potsdam von normaler Tabellensyntax auf Vorlagen umstellen vom 2017-04-18} [string map [list $otab $ntab] $oc]]

exit


foreach tr $lotab { set tr [string map [list \{ \\\{ \} \\\} \[ \\\[ \] \\\]] $tr] if {[string index $tr 0] eq {|}} { if [catch {lappend nlotab $ntr}] {lappend nlotab $tr} unset -nocomplain ntr } else { append ntr $tr set ntr [join $ntr] } }

foreach tr $nlotab { puts \n$tr }

puts $nlotab

exit

set datahtml [getHTML https://petscan.wmflabs.org/?psid=1251205]

  1. set ldata [[[dom parse -html $datahtml] documentElement] asList]

regexp -- {<table.*?} $datahtml table

set xml [[[dom parse -html $table] documentElement] asList]

foreach tr [lindex $xml 2 1 2] { set title [lindex $tr 2 1 2 0 2 0 1] puts \n$title set lct {} mysqlreceive $db " select cl_to from categorylinks, page where page_id = cl_from and page_title = '[sql <- $title]' and !page_namespace ;" ct { lappend lct $ct } if {{Theaterschauspieler} ni $lct} { set oc [conts t $title x] set nc [string map [list Kategorie:Filmschauspieler\]\] Kategorie:Filmschauspieler\]\]\n\[\[Kategorie:Theaterschauspieler\]\]] $oc] if {[incr i] < 10} {gets stdin} puts [edit $title {Bot: +Kategorie:Theaterschauspieler nach WP:Bots/Anfragen#Kategorie:Theaterschauspieler vom 2017-08-30} $nc / minor] } }


exit

mysqlreceive $db { select page_title from page, templatelinks where tl_from = page_id and page_namespace = 0 and tl_from_namespace = 0 and tl_namespace = 10 and tl_title = 'Infobox_Tennisspieler';} pt { lappend lpt $pt }

foreach pt $lpt { puts [incr i]:$pt: regexp -line -- {^.*?Nation.*?=(.*)$} [conts t $pt 0] -- rnplayer if {[regexp -all -- {\{\{.*?\}\}} $rnplayer] > 1} {lappend spt "# \[\[[sql -> $pt]\]\]"} }

set spt [join $spt \n]

set out "Auf folgende Tennisspieler trifft der Sachverhalt mehrerer Nationen zu:\n$spt\n\n== Vergangene Nacht" set old [conts t user_talk:TaxonBot x] set new [string map [list {== Vergangene Nacht} $out] $old]

puts [edit user_talk:TaxonBot {} $new]

exit

for {set sect 1} {$sect <= 508} {incr sect} { puts \n$sect: set sconts [conts id 85626 $sect] if {[string index $sconts 0] eq {=} && [string index $sconts 1] eq {=}} { puts $sconts switch $sect { 405 {set fdate {08:02, 25. Sep. 2014 (CE}} 450 {set fdate {20:37, 16. Nov. 2015 (CE}} 490 {set fdate {20:46, 14. Dez. 2016 (CE}} default {regexp -- {\d\d:\d\d, .*? \(CE} $sconts fdate} } puts $fdate regsub -- {(\. \w{3}) } $fdate {\1. } ndate puts $ndate set sdate [clock scan $ndate -format {%H:%M, %e. %b. %Y (CE} -timezone :Europe/Berlin -locale de] regexp -- {\d{4}} $ndate syear puts $sdate puts $syear lappend lsect $sdate $syear $sconts } }

  1. puts $conts

set lsect [lsort -stride 3 -index 0 -integer $lsect] foreach {sdate syear sconts} $lsect { lappend nconts $syear $sconts } set pconts [conts id 85626 0]\n\n set oyear 2003 foreach {syear sconts} $nconts { if {[expr $syear - $oyear] == 1} { append pconts "= $syear =\n" set oyear $syear } append pconts $sconts\n\n } puts [string trim $pconts] puts [edid 85626 {Bot: Seite aufgeräumt und zeitlich geordnet} [string trim $pconts] / minor] exit

puts [conts id 9468216 4]



exit

set data [read [set f [open wikidata8incommonsinwikidata.out r]]] ; close $f

  1. set sdata [join [lrange [split $data \n] 0 end-1]]
  1. set sdata [lrange [split $data \n] 0 end-1]
  2. puts $sdata

foreach {1 2 3 4} [join [join $data]] { lappend ndata $3

  1. lappend s1 [split $1 :]

}

  1. foreach item $ndata {lappend lkv "page_title = '$item'"}
  2. mysqlreceive $db "select page_title from page, templatelinks where tl_from = page_id and tl_title = 'Infobox_Kreditinstitut' and page_namespace = 0 and ([join $lkv { or }]) order by page_title;" pgt {
  3. puts $pgt
  4. }



foreach item $ndata { if {$item in {Alte_Leipziger_–_Hallesche Bank_Julius_Bär Dexia Acer Boge_Kompressoren Bonava_Deutschland Böckmann_Fahrzeugwerke CHG-Meridian Colruyt_Group DIC_Asset DVV_Media_Group Euro_Cargo_Rail E_wie_einfach Evian_(Mineralwasser) Gerry_Weber Grass_Valley_(Elektronikunternehmen) Grass_Valley_Germany Hama_(Unternehmen) Host_Hotels_&_Resorts Hyosung_Group Jos._Schneider_Optische_Werke Knippers_Helbig Lloyd_Fonds Matrox_Imaging Monta_(Klebebandwerk) NBCUniversal NPO_«Digitale_Fernsehsysteme» Organismos_Sidirodromon_Ellados Piatnik RMI_Corporation RWE_Rhein-Ruhr_Netzservice Raschig_GmbH Reyher-Schrauben Samsung_C&T_Corporation Sky_Österreich Solar-Fabrik Stadtwerke_Düren Stadtwerke_Neumarkt_in_der_Oberpfalz Studio_Hamburg_Serienwerft_Lüneburg Synaptics Systems_on_Silicon_Manufacturing_Cooperation TEDi THK TeamWorx Telefónica_Europe }} {continue}

  1. if {$item in {{Baltischer Lloyd} Haltermann {Lichte Porzellan} {Prisma (Handelsplattform)} {Rosenheimer Verlagshaus}}} {continue}
  2. set item {Euro Cargo Rail}
  3. if {$item ne {Wendy’s} && !$aaa} {continue} else {incr aaa} ; if {$item eq {Wendy’s}} {continue}

set oconts [conts t $item x] set conts [conts t $item 0] set lline [split $conts \n] foreach line $lline { unset -nocomplain df if {[string first | $line] > -1 && [string first = $line] > -1 && [string first Logo $line] > -1 && [string first : $line] > -1} {

  1. puts $item:$line
  2. puts $item ; gets stdin
  3. regexp -- {\[\[.*?\:(.*?)[|\]]} $line -- df

if {[lindex $line 1] ne {Logo} && [lindex $line 1] ne {Logo=} && [lindex $line 0] ne {|Logo}} {puts [list $item $line]} } } } exit regsub -line -- {(^.*?=).*$} $line "\\1 [string map {& {\&} _ { }} $df]" nline

  1. puts \n$item\n$nline

set snline [split $nline =] foreach {1 2} $snline { puts [list $item [string trim $2]] set f [open wikidata6.out a] ; puts $f [list $item [string trim $2]] ; close $f }

  1. set nconts [string map [list $line $nline] $oconts]
  2. puts \n$item\n$nconts

} }

  1. input ers "Ersetzen? "
  2. if {$ers eq {n}} {
  3. continue
  4. } else {
  5. puts [edit $item {Bot: Anpassungen an neue Infobox Unternehmen} $nconts / minor]
  6. }
  7. puts $nconts ; gets stdin
  8. puts $logoline
  9. gets stdin

}


exit puts $s1 set f [open wikidata8incommonsinwikidata.out w] ; puts $f [split $s1 \n] ; close $f exit foreach 1 $sdata { lappend lt [lindex [split $1 :] 2] } puts $lt

exit


foreach {1 2} $sdata {lappend lkv "page_title = '$1'"}

mysqlreceive $db "select page_id, page_title, pp_value from page, page_props where pp_page = page_id and ([join $lkv { or }]) and pp_propname = 'wikibase_item' and page_namespace = 0 order by page_title;" {pgid pt ppv} { lappend ps $pgid $pt $ppv

  1. puts "$pgid $pt $ppv"

} foreach {pgid pt ppv} $ps { catch { set claims [get [post $wiki {*}$format / action wbgetclaims / entity $ppv] claims] if {{P154} in [dict keys $claims]} { puts $pt set f [open wikidata8incommonsinwikidata.out a] ; puts $f $pgid:$ppv:$pt:[dict get $sdata $pt] ; close $f } } }

exit



set data [read [set f [open wikidata6.out r]]] ; close $f set sdata [join [lrange [split $data \n] 0 end-1]] foreach {1 2} $sdata { puts $1 if ![missing File:$2] { set f [open wikidata7incommons.out a] ; puts $f [list $1 $2] ; close $f } else { set f [open wikidata7nicommons.out a] ; puts $f [list $1 $2] ; close $f } }


exit

mysqlreceive $db "select page_title from page, templatelinks where tl_from = page_id and tl_title = 'Infobox_Unternehmen' and page_namespace = 0 order by page_title;" pgt { lappend data $pgt }

set aaa 0

  1. set data [sqlcat {Wikipedia:Infobox Unternehmen fehlerhaft} 0]

foreach item $data {

  1. if {$item in {{Baltischer Lloyd} Haltermann {Lichte Porzellan} {Prisma (Handelsplattform)} {Rosenheimer Verlagshaus}}} {continue}
  2. set item {Euro Cargo Rail}

if {$item ne {Wendy’s} && !$aaa} {continue} else {incr aaa} ; if {$item eq {Wendy’s}} {continue} set oconts [conts t $item x] set conts [conts t $item 0] set lline [split $conts \n] foreach line $lline { unset -nocomplain df if {[string first | $line] > -1 && [string first = $line] > -1 && [string first Logo $line] > -1 && [string first : $line] > -1} {

  1. puts $item:$line
  2. puts $item ; gets stdin

puts $item regexp -- {\[\[.*?\:(.*?)[|\]]} $line -- df regsub -line -- {(^.*?=).*$} $line "\\1 [string map {& {\&} _ { }} $df]" nline

  1. puts \n$item\n$nline

set snline [split $nline =] foreach {1 2} $snline { puts [list $item [string trim $2]] set f [open wikidata6.out a] ; puts $f [list $item [string trim $2]] ; close $f }

  1. set nconts [string map [list $line $nline] $oconts]
  2. puts \n$item\n$nconts

} }

  1. input ers "Ersetzen? "
  2. if {$ers eq {n}} {
  3. continue
  4. } else {
  5. puts [edit $item {Bot: Anpassungen an neue Infobox Unternehmen} $nconts / minor]
  6. }
  7. puts $nconts ; gets stdin
  8. puts $logoline
  9. gets stdin

} exit puts $problems

exit

while 1 { catch {puts [exec pgrep -c -u taxonbot test.tcl]} catch {puts [exec pgrep -c -u taxonbot test]} catch {puts [exec pgrep -c -u taxonbot tes]} catch {puts [exec pgrep -c -u taxonbot tett]}

  1. puts exec1:[exec pgrep -c -u taxonbot test.tcl]
  2. puts exec2:[exec pgrep -c -u taxonbot test]
  3. puts exec3:[exec pgrep -c -u taxonbot tes]
  4. puts exec4:[exec pgrep -c -u taxonbot tett]

puts [edit user:TaxonBot/Test8 {} [conts t {user:Doc Taxon/Test8} x]] after 120000 } exit


</source> -->

Retrieved from "https://test2.wikipedia.org/w/index.php?title=User:TaxonBot/test.tcl&oldid=421565"