User:TaxonBot/sqltest.tcl
).*} $nportal \\1$WORKLIST\n\\1]] puts $nportal ; gets stdin puts [edit $portal "Bot: WORKLIST: [tdot $cres]" $nportal / minor] exit
mysqlreceive $db " select count(page_id) from page b where b.page_namespace = 0 and b.page_id in ( select page_id from page a, imagelinks where il_from = a.page_id and a.page_namespace = 0 and il_from_namespace = 0 group by a.page_id )
- " pt {
puts $pt }
exit
mysqlreceive $db " select page_title, ( select count(( select page_id from page a where il_to = a.page_title and a.page_namespace = 0 )) from imagelinks where il_to = b.page_title and b.page_namespace = 0 and il_from_namespace = 0 ) as c from page b where b.page_namespace = 0
- " {pt c} {
puts $pt:$c }
exit
set exclude "'Liste',[dcat sql Liste 14],[dcat sql Personenname 14],'Abkürzung','Begriffsklärung','Wikipedia:Falschschreibung','Wikipedia:Liste','Wikipedia:Liste_erstellt_mit_Wikidata','Wikipedia:Obsolete_Schreibung'" mysqlreceive $db " select page_title, cl_to, ( select count(( select page_id from page a where pl_from = a.page_id and a.page_namespace = 0 and a.page_is_redirect = 0 )) from pagelinks where pl_title = f.page_title and f.page_namespace = 0 and pl_from_namespace = 0 and pl_namespace = 0 ) as e from page f, categorylinks g where g.cl_from = f.page_id and f.page_id not in ( select page_id from page c, categorylinks d where d.cl_from = c.page_id and c.page_namespace = 0 and d.cl_to in ($exclude) ) and f.page_namespace = 0 and f.page_is_redirect = 0 having e = 0 order by page_title
- " {pt ct e} {
dict lappend lpt [sql -> $pt] Kategorie:[sql -> $ct] } set f [open wVSkat1 w] ; puts $f $lpt ; close $f puts "[clock format [clock seconds] -format %T]: komplett"
exit
mysqlreceive $db " select page_title from page b where b.page_namespace = 0 and b.page_id not in ( select page_id from page a, pagelinks where a.page_id = pl_from and a.page_namespace = 0 and pl_from_namespace = 0 and pl_namespace = 0 )
- " pt {
puts $pt } puts "[clock format [clock seconds] -format %T]: komplett"
exit
mysqlreceive $db "
SELECT page_title, page_id, ( SELECT COUNT(( SELECT page_id FROM page X WHERE X.page_id = P.pl_from AND X.page_namespace = 0 )) FROM pagelinks P WHERE P.pl_title = A.page_title AND P.pl_namespace = 0 AND P.pl_from_namespace = 0 ) AS pl_field FROM page A WHERE A.page_namespace = 0 AND A.page_is_redirect = 0 HAVING pl_field = 0
- "
exit
set l [read [set f [open out r]]] ; close $f
foreach {man lurl} $l {
lassign {} sort gender
if {{Kategorie:Mann} in [pagecat $man]} {
set gender männlich
} elseif {{Kategorie:Frau} in [pagecat $man]} {
set gender weiblich
}
regexp -line -- {\{\{(SORTIERUNG: ?|DEFAULTSORT: ?)(.*?)\}\}} [conts t $man x] -- -- sort
lappend lman $sort $man $gender $lurl
}
set lman [lsort -stride 4 $lman]
foreach {sort man gender lurl} $lman {
set nlurl {}
foreach url $lurl {
lappend nlurl "\[https://[string map {http:// {} https:// {}} $url] $url\]"
}
lappend tman "|[incr i]\n|\[\[$man\]\]\n|$gender\n|[join $nlurl {
}]"
}
set tab "\{| class=\"wikitable sortable\"
!lfd.
!Lemma
!Geschlecht
!Links
|-
[join $tman \n|-\n]
|\}"
puts [edit Benutzer:Wikijunkie/data.fis-ski {Bot: Tabellenwunsch} $tab]
exit
mysqlreceive $db " select page_title, el_to from page b, categorylinks, externallinks where cl_from = b.page_id and el_from = b.page_id and b.page_namespace = 0 and b.page_id not in ( select page_id from page a, templatelinks where tl_from = a.page_id and a.page_namespace = 0 and tl_from_namespace = 0 and tl_namespace = 10 and tl_title = 'FISDB' ) and cl_to in ('Mann','Frau') and el_to like '%data.fis-ski%'
- " {pt et} {
dict lappend lpet [sql -> $pt] $et } set f [open out w] ; puts $f [lsort -stride 2 $lpet] ; close $f exit
mysqlreceive $db " select page_title from ( select page_title, page_id from page, templatelinks where tl_from = page_id and page_namespace = 0 and tl_from_namespace = 0 and tl_namespace = 10 and tl_title = 'FISDB' ) a, categorylinks where cl_from = a.page_id and cl_to in ('Frau','Mann')
- " pt {
puts $pt }
exit set lpt 'Person_nach_Tätigkeit' mysqlreceive $db " select page_title from page, categorylinks where page_id = cl_from and page_namespace = 14 and cl_to in ([join $lpt ,]) group by page_title
- " pt {
lappend lpt '[sql <- $pt]' } for {set x 1} {$x <= 13} {incr x} { mysqlreceive $db " select page_title from page, categorylinks where page_id = cl_from and page_namespace = 14 and cl_to in ([join $lpt ,]) group by page_title
- " pt {
lappend lpt '[sql <- $pt]' } set lpt [lsort -unique $lpt] } mysqlreceive $db " select page_title from page, categorylinks where page_id = cl_from and page_namespace = 14 and cl_to in ([join $lpt ,]) group by page_title
- " pt {
lappend slpt Kategorie:[sql -> $pt] } puts $slpt puts [llength $slpt] set f [open apokat w] ; puts $f $slpt ; close $f
exit
set st [scat Person_nach_Tätigkeit_und_Staat 14] foreach 1 $st { if {[string first {Person (} $1] > -1} { lappend all [dcat list $1 14] } }
puts [join $all] set f [open apo5 w] ; puts $f [join $all] ; close $f
exit
- lappend all $gew $gen $gei $gae $f $enz $ent $ei $do $de $br $bi $bet $bea $au $ar $akti $akte $ag $re $ch $st
lappend all $ja $fr
puts [join $all]
exit
set om [dcat list Ombudsmann 14] set ns [dcat list NS-Lagerpersonal 14] set na [dcat list Nachrichtensprecher 14] set mu [dcat list Musikdirektor 14] set moder [dcat list Moderator 14] set model [dcat list Model 14] set mi [dcat list Missionar 14] set mae [dcat list Mäzen 14] set mar [dcat list Marschall 14] set man [dcat list Manager 14] set maf [dcat list Mafioso 14] set le [dcat list Lehrer 14] set landw [dcat list Landwirt 14] set lands [dcat list Landschaftsarchitekt 14] set ky [dcat list Kynologe 14] set kue [dcat list Künstler 14] set kom [dcat list Kommunikationstrainer 14] set kol [dcat list Kolonialist 14] set koc [dcat list Koch 14] set ka [dcat list Kapellmeister 14] set ju [dcat list Jurist 14] set jo [dcat list Journalist 14] set i [dcat list Ingenieur,_Erfinder,_Konstrukteur 14] set ho [dcat list Hochschullehrer 14] set herr [dcat list Herrscher 14] set hera [dcat list Herausgeber 14] set ha [dcat list Handwerker 14]
lappend all $om $ns $na $mu $moder $model $mi $mae $mar $man $maf $le $landw $lands $ky $kue $kom $kol $koc $ka $ju $jo $i $ho $herr $hera $ha
puts [join $all]
set f [open apo2 w] ; puts $f [join $all] ; close $f
exit
set z [dcat list Zöllner 14] set wis [dcat list Wissenschaftler 14] set verle [dcat list Verleger 14] set vera [dcat list Vanstalter_(Musik) 14] set v [dcat list V-Person 14] set unternehmer [dcat list Unternehmer 14] set unternehmen [dcat list Unternehmensberater 14] set ue [dcat list Übersetzer 14] set ti [dcat list Tierzüchter 14] set te [dcat list Techniker 14] set st [dcat list Stadionsprecher 14]
- set sp [dcat list Sportler 14]
set soe [dcat list Söldner 14] set se [dcat list Seefahrer 14] set sc [dcat list Schiedsrichter 14] set sa [dcat list Sammler 14] set re [dcat list Redner 14] set ra [dcat list Raumfahrer 14] set ps [dcat list Psychotherapeut 14] set pros [dcat list Prostituierter 14] set prop [dcat list Prophet 14] set pres [dcat list Pressesprecher 14] set pred [dcat list Prediger 14] set politis [dcat list Politischer_Berater 14]
- set politik [dcat list Politiker 14]
set pi [dcat list Pilot 14] set pe [dcat list Personenschützer 14] set par [dcat list Parawissenschaftler 14] set pae [dcat list Pädagoge 14]
lappend all $z $wis $verle $vera $v $unternehmer $unternehmen $ue $ti $te $st $soe $se $sc $sa $re $ra $ps $pros $prop $pres $pred $politis $pi $pe $par $pae
puts [join $all]
set f [open apo3 w] ; puts $f [join $all] ; close $f
exit
set db [read [set f [open cat-db/P/Person_nach_Tätigkeit r]]] ; close $f puts $db
exit
set orpt {'Region_Imboden' 'Rennersdorfer_Meilenstein' 'Casio_VL-1' 'Hochschule_RheinMain' 'New_Jersey' 'Falzbein' 'Horsd’œuvre' 'H1Z1' 'Mark_Stein_(Anglist)' 'Kurów_(Powiat_Puławski)' 'OPUS' 'Drum_național_2M' 'Aloys_Schreiber'} mysqlreceive $db " select page_title, il_to from page, imagelinks where il_from = page_id and page_title in ([join $orpt ,]) and page_namespace = 0 and il_from_namespace = 0 and il_to not in ( select page_title from page where page_namespace = 6 ) and il_to not in ( select page_title from commonswiki_p.page where page_namespace = 6 ) order by page_title
- " {pt it} {
set demiss [missing File:$it] set lang commons ; source langwiki.tcl ; #set token [login $wiki] set commiss [missing File:$it] set lang de ; source langwiki.tcl ; #set token [login $wiki] if {$demiss && $commiss} {dict lappend lpt [sql -> $pt] \[\[:Datei:[sql -> $it]\]\]} } foreach {pt lit} $lpt { lappend wDFblock "$pt [join [lsort -unique $lit] { / }]" } unset -nocomplain orpt lpt puts $wDFblock exit mysqlreceive $db " select page_title, cl_to from page, categorylinks where cl_from = page_id and page_namespace = 0 and page_title in ([join $lpt ,])
- " {pt ct} {
dict lappend wDFkat [sql -> $pt] Kategorie:[sql -> $ct] } puts $wDFkat exit
mysqlreceive $db " select page_title, il_to from page, imagelinks where il_from = page_id and page_namespace = 0 and il_from_namespace = 0 and il_to like '\"B%'
- " {pt it} {puts $pt
- $it}
exit
set tab { Atauro 9.274
Beloi 1.678 Adara 452 Maquer 545 Usubemaço 681 Biqueli 2.076 Ilicnamo 432 Ilidua Douro 414 Pala 856 Uaro-Ana 374 Macadade 1.632 Anartuto 642 Berau 448 Bite 374 Ili-Timur 168 Maquili 2.062 Fatulela 795 Macelihu 612 Mau-Laku 320 Mau-Meta 335 Vila Maumeta 1.826 Eclae 734 Ilimanu 257 Ilitecaraquia 835 Cristo Rei 62.848 Balibar 1.708 Fatu Loda 863 Lacoto 254 Lorico 44 Tancae 547 Becora 22.133 Au-Hun 4.637 Becusi Centro 4.995 Becusi Craic 3.015 Berebidu 159 Caqueu Laran 2.143 Carau Mate 740 Clac Fuic 759 Culau Laletec 1.522 Darlau 14 Maucocomate 1.414 Malboro / Maliqueo 266 Mota Ulun 1.456 Quituto 304 Romit 709 Bidau Santana 6.482 Bidau Mota Claran 508 Manu Mata 2.023 Sagrada Familia 2.276 Toko Baru 1.675 Camea 13.481 Aidac Bihare 1.451 Ailele Hun 1.927 Ailoc Laran 2.929 Bedois 671 Buburlau 406 Caisabe 218 Fatuc Francisco 946 Has Laran 1.839 Lases 924 Lenuc Hun 627 Namalai 258 Suco Laran 1.149 Terminal 136 Culu Hun 8.117 Funu Hotu 918 Lao Rai/Caregatiro 1.376 Loe Laco 555 Nato 769 Soru Motu Badame 1.043 Tane Muto 732 Toko Baru Ii ( Antigo Asls) 2.724 Hera 8.853 Acanuno 2.562 Ailoc Laran 1.691 Hali Dolar 2.054 Moris Foun 470 Mota Quic 1.659 Sucaer Laran 417 Meti Aut 2.074 17 De Abril 1.066 Carungu Lau 662 Fatu Cama 346 Dom Aleixo 130.095 Bairro Pite 34.993 5 De Outubro 7.662 Andevil 2.696 Avança 1.778 Bita-Ba 801 Buca Fini 1.618 Efaca 1.177 Fatumeta 976 Frecat 3.407 Fuslam 623 Haburas 947 Hale Mutin 589 Laloran 50 Lau-Loran 902 Licarapoma 249 Lisbutac 1.163 Manleu-Ana 280 Moris Ba Dame 1.685 Mundo Perdido 82 Niken 1.599 Rai Nain 1.391 Ramelau 661 Ribeira Maloa 593 Rio De Janeiro 525 Ruin Naclecar 517 São Jose 59 T.A.T 45 Tane Timor 118 Teki-Teki 321 Terus Nanis 31 Timor Cmanec 461 We Dalac 1.691 Xamatama 296 Comoro 76.681 12 De Outubro 14.025 20 De Setembro 6.118 30 De Agosto 8.797 4 De Setembro 6.467 7 De Dezembro 2.108 Aimutin 1.886 Anin Fuic 2.707 Badiac 908 Baya Leste 1.414 Beto Tasi 1.510 Fomento I 2.336 Fomento Ii 2.044 Fomento Iii 817 Golgota 1.945 Lemocari 2.015 Loro Matan B. T 931 Mane Mesac 843 Mate Lahotu B.T 1.654 Mauc 434 Metin I 1.866 Metin Ii 1.316 Metin Iii 386 Metin Iv 1.697 Moris Foun 1.810 Naroman B.T 934 Posto Penal 759 Ramelau Delta 969 Rosario 1.720 São José 1.973 São Miguel 798 Terra Santa 3.494 Fatuhada 14.890 Zero I 2.276 Zero II 2.503 Zero III 5.895 Zero IV 2.181 Zero V 2.035 Kampung Alor 3.531 Anin Fuic (Atarac Laran) 2.738 Hamahon 307 Rai Lacan 486 Metinaro 5.654 Duyung 4.021 Benunuc 1.423 Besahe 462 Birahu Matan 312 Has Laran 118 Lebutun 115 Mantelolao 63 Manularan 220 Manuleu 989 Rai-Mean 11 Sahan 308 Sabuli 1.633 Acadiru Laran 396 Behauc 573 Behoquir 291 Sabuli 373 Nain Feto 32.834 Acadiru Hun 3.174 Bedic 1.280 Culuhun De Baixo 784 Nu'U Badac 1.110 Bemori 4.086 Ailele Hun 483 Baba Liu Rai Leste 943 Baba Liu Rai Oeste 503 Bemori Central 847 Centro 761 Has Laran 261 My Friend 288 Bidau Lecidere 1.208 Capela 648 Lecidere 560 Gricenfor 948 Bairo Central 242 Bairo Dos Grilos 255 Bairo Formosa 451 Lahane Oriental 13.716 Alcrin 1.988 Becoe 1.479 Deambata Bessi 1.119 Deposito Penal 2.084 Marabia 992 Metin 1.373 Monumento Calma 1.270 Rai Mean 77 Sare 363 Suhu Rama 413 Temporal 1.277 Tuba Rai 732 Vale De Lahane 549 Santa Cruz 9.702 12 De Novembro 1.490 25 De Abril 844 4 De Setembro 525 7 De Dezembro 1.217 Audian 1.734 Baheda 415 Donoge 515 Loceneon 1.094 Moris Foun 983 Mura 885 Vera Cruz 36.574 Caicoli 5.067 Centro Da Unidade 598 De 12 Divino 1.813 Foho Rai Boot 1.438 Sacoco 354 Tahu Laran 864 Colmera 2.117 Manu Fuic 1.512 Rai Nain 605 Dare 2.994 Casnafar 117 Coalau I 510 Coalau Ii 282 Fatu Naba 281 Fila Beba Tua 325 Fuguira / Bauloc 207 Leilaus 208 Lemorana 295 Nahaec 511 Suca Lau 258 Lahane Ocidental 5.178 Ainitas Hun 469 Bedois 524 Bela Vista 268 Care Laran 368 Correio 502 Gomes Araujo 340 Hospital Militar 541 Mota Ulun 269 Paiol 617 Rai Cuac 479 Teca Hudi Laran 801 Mascarenhas 5.828 Aldeia 03 720 Alto Balide 2.137 Alto P.M 665 Baixo Balide 474 Baixo P.M. 658 Manu Cocorec 1.174 Motael 5.039 Bee Dalan 2.010 Boa Morena 1.308 Halibur 1.146 Hura 481 Lirio 94 Vila Verde 10.351 1 De Setembro 2.463 Gideon 504 Lemorai 1.926 Mate Moris 802 Mate Restu 761 Matua 1.261 Nopen 1.053 Terus Nain 698 Virgolosa 883
} set tab [string map {. {} { -} - {- } - { - } -} $tab] regsub -all -- {( {1,100}|\t{1,100})} $tab { } tab regsub -all -- { (\d)} $tab \n\\1 tab set tab [split $tab \n] foreach t $tab {lappend l [string trim $t]} set l [lrange $l 0 end-1] puts $l foreach {1 2} $l {dict lappend d $1 $2} set d [string map {\{\{ \{ \}\} \}} $d] set l [list Dili $d] puts $l set f [open suco.db a] ; puts $f $l ; close $f
exit
mysqlreceive $db " select page_title, pl_title from page b, categorylinks, pagelinks where cl_from = b.page_id and cl_to = 'Frau' and pl_from = b.page_id and b.page_namespace = 0 and pl_from_namespace = 0 and pl_namespace = 0 and pl_title not in ( select page_title from page a where a.page_namespace = 0 ) order by page_title
- " {pt plt} {
puts "[sql -> $pt] : [sql -> $plt]" } puts "[clock format [clock seconds] -format %T]:wVFkat komplett"
exit
set lf [read [set f [open kanton/@list r]]] ; close $f foreach {pg disp} $lf { set cpg [read [set f [open kanton/$pg r]]] ; close $f puts \n[incr i]:$pg puts [edit $pg {Bot: Gebietsreform frz. Kantone} $cpg]
- puts $cpg
- set f [open kanton/$pg w] ; puts $f [string map [list "\{\{ Verwaltungstabelle FR Inhalt | Art = g " "|-\n| bgcolor=\"#E7EDF5\""] $cpg] ; close $f
- set f [open kanton/$pg w] ; puts $f "[string trim $cpg]\n\[\[Kategorie:Aufgelöst 2015\]\]" ; close $f
- set f [open kanton/$pg w] ; puts $f [regsub -- {} [string trim $cpg] &|disparition=$disp\n] ; close $f
}
exit
- set prefix https://commons.wikimedia.org/wiki/
mysqlreceive $db " select page_title, el_to from page, externallinks where el_from = page_id and page_namespace = 0 order by page_title
- " {pt elt} {
if {[string first https://commons.wikimedia.org/wiki/ $elt] > -1 && [string first special:uploadwizard? [string tolower $elt]] == -1} { set cpage [string map {\\ {}} [dict values [ regexp -inline -- {https://commons.wikimedia.org/wiki/(.*?)(?:\?uselang%7C$)} [urldecode $elt] ]]] lappend lcpage $pt [lindex [split $cpage |] 0]
- lappend lpt $pt [regsub -- "$prefix.*?\? $elt]
} } foreach {pt cpage} $lcpage { set f [open com a] while 1 { try { if [missing $cpage] {puts $f m:$pt:$cpage ; puts m:$pt:$cpage} if [redirect $cpage] {puts $f r:$pt:$cpage ; puts r:$pt:$cpage} break } on 1 {} {} } close $f } exit
set dcat [dcat sql Karibik 14]
set ts 20170130 mysqlreceive $db " select page_id, rc_title, rc_this_oldid, rc_last_oldid, rc_user_text, rc_timestamp, rc_comment from recentchanges, page, categorylinks where page_title = rc_title and cl_from = page_id and page_namespace = 0 and rc_type in (0,1) and rc_namespace = 0 and rc_timestamp > 20170114000000 and rc_timestamp < 20170130130000 and cl_to in ([dcat sql Karibik 14]) order by rc_timestamp;
- " {pageid title revid parentid user timestamp comment} {
set timestamp [clock format [clock scan $timestamp -format %Y%m%d%H%M%S] -format %Y-%m-%dT%TZ] set rv "pageid $pageid ns 0 title [list [sql -> $title]] revid $revid parentid $parentid user [list $user] timestamp $timestamp comment [list $comment]" puts $rv set f [open rc/rc$ts\x.db a] ; puts $f $rv ; close $f }
exit
if 0 { set dcat [set lcat 'Person_nach_Todesjahrhundert'] 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 dcat '[sql <- $pt]' lappend lcat1 '[sql <- $pt]' } set lcat $lcat1 } }
set l "\{| class=\"wikitable sortable\"\n! Radsportler !! LetztesUpdate" 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_Radsportler' order by page_title
- " pt {
set lineconts [split [set oconts [conts t $pt x]] \n]] set date {}
- if {$pt ne {Jochen_Danneberg}} {
foreach line $lineconts { regexp -line -- {\|.*?LetztesUpdate.*?\=(.*)$} [string map [list "\}\}" {} \[\[ {} \]\] {}] $line] -- date set date [string trim $date] if ![empty date] {break} }
- }
- if {$date eq "\}\}"} {set date {}}
if [empty date] { if [regexp -- {\| ?LetztesUpdate} $oconts] {set date {Parameter LetztesUpdate leer}} else {set date {Parameter LetztesUpdate fehlt}} } try {set dat [clock format [clock scan [string map {Jänner Januar} $date] -format {%e. %B %Y} -locale de] -format %Y-%m-%d]} on 1 {} {set dat { }} lappend b [sql -> $pt] " $date" } foreach {1 2} $b { if {[string first {} $2] == -1} { lappend b1 $1 $2 } elseif {[string first Parameter $2] == -1} { lappend b2 $1 $2 } else { lappend b3 $1 $2 } } set b "[lsort -stride 2 -index 1 $b1] [lsort -stride 2 -index 1 $b2] [lsort -stride 2 -index 1 $b3]" foreach {pt date} $b {append l "\n|-\n| \[\[:[sql -> $pt]\]\]\n| $date"} regsub -all { } $l {} l
append l \n|\}
puts $l puts [edit Benutzer:Wikijunkie/Arbeitsplatz/Radsportwartung/Update {Bot: Listenwunsch} $l]
exit
exit
mysqlreceive $db " select page_title from page b, templatelinks where b.page_id = tl_from and tl_from_namespace = 0 and tl_namespace = 10 and tl_title not in ( select page_title from page a where a.page_namespace = 10 ) and b.page_title in ('Westerlund_2','Türkei','Molybdofornacit') and b.page_namespace = 0
- " pt {
lappend lpt $pt }
puts $lpt exit
- alle Vorlagen, auch rote, im 0:
mysqlreceive $db " select page_title, cl_to from page b, categorylinks, templatelinks where cl_from = b.page_id and tl_from = b.page_id and b.page_namespace = 0 and tl_from_namespace = 0 and tl_namespace = 10 and tl_title not in ( select page_title from page a where a.page_namespace = 10 ) order by page_title
- " {pt ct} {
dict lappend wVFkat [sql -> $pt] Kategorie:[sql -> $ct] }
puts $wVFkat exit
mysqlreceive $db " select page_title from page where page_title = 'Wartung-DC' and page_namespace = 10
- " pt {
puts $pt }
exit
puts [lsort -unique $ltt] foreach tt $ltt { if [missing Vorlage:[sql -> $tt]] {puts $tt ; lappend mtt $tt} } puts $mtt
exit
mysqlreceive $db " select page_title, cl_to from page, templatelinks, categorylinks where tl_from = page_id and cl_from = page_id and page_namespace = 0 and tl_from_namespace = 0 and tl_namespace = 10 and tl_title in ( select page_title from page a, categorylinks b where b.cl_from = a.page_id and a.page_namespace = 10 and b.cl_to = 'Vorlage:Veraltet' ) order by page_title
- " {pt ct} {
puts $pt:$ct }
exit
if 0 {
while 1 {
set litem1 [insource {S\. [1-9][0-9]*- [1-9]/} 0]
- puts $litem1
set litem2 [insource {S\. [1-9][0-9]* -[1-9]/} 0]
- puts $litem2
- set litem3 [insource {S\. [1-9][0-9]*-[1-9]/} 0]
- puts $litem3
set litem4 [lsort -unique [join [list $litem1 $litem2]]]
- puts $litem4
- hinter S. !ampersand
foreach item $litem4 {
- if {$item in {Betsingmesse Gemeinschaftsmesse}} {continue}
puts \n[edit $item {Bot: Korrektur Halbgeviertstrich} [regsub -all -- {(S\.( | )\d{1,20})( -|- )(\d{1,20})} [conts t $item x] \\1–\\4] / minor]
- if {[incr i] < 6} {gets stdin}
}
}
exit
- set a {Alte_Sprache Altsprachlicher_Unterricht Assistenz_(Behindertenhilfe) Außenhandelspolitik Bahnstrecke_Mannheim–Saarbrücken Bahnstrom Balkentheorie Bandpassunterabtastung Bewältigungsstrategie Biegefestigkeit Biegemoment Biegezugfestigkeit Blitzsynchronisation Blitzsynchronzeit Buchenbach Central_Tejo_(Arbeitsverhältnisse) Central_Tejo_(Funktionsbeschreibung) Central_Tejo_(Geschichte) Conversion-Tracking Datenbankindex Desktop-Virtualisierung Deutsche_Vereinigung_für_Posen_und_Pommerellen Deutschtumsbund_zur_Wahrung_der_Minderheitenrechte Dichtung Digitale_Katastralmappe Dirigieren Doppelschneckenextruder Ehrbarkeit Elternverband Elternverein Engineering-Data-Management Ethisches_Investment Extruderschnecke Extrusion_(Verfahrenstechnik) Führungsinformationssystem_(Wirtschaft) Ghetto_Theresienstadt Gilgit_(Landschaft) Glukosesirup Groupware Grundstücksdatenbank Grüne_Route Handelspolitik Heißluftgebläse Holzextrusion Hypoidantrieb Indexstruktur Informant Invertierte_Datei Jahreserstlinge Juristische_Sekunde KZ_Theresienstadt Kasse Kegelrad-Achsgetriebe Kettenschluss Klassische_Sprache Kleine_Festung_Theresienstadt Koextrusion Komplexität_(Informatik) Komplexitätstheorie Konversion_(Marketing) Landau-Symbole Lieferbereitschaft Liste_der_olympischen_Medaillengewinner_aus_Argentinien Lutherbuche_(Altenstein) Management-Informationssystem Modus_Barbara Multicodalität Multimodalität Museu_da_Electricidade_(Lissabon) Olympische_Geschichte_Argentiniens Persönliche_Assistenz Poesie Produktdatenmanagement Rote_Armee Sabrina_Setlur Sampling_(Musik) Scandferries Scandlines Schneckenwelle Social_Investment Social_Investor Sowjetarmee Soziales_Netzwerk_(Soziologie) Soziales_Netzwerk_(Systemtheorie) Stressmanagement Unbuntaufbau Unterfarbenreduktion Virtual_Desktop_Infrastructure Virtueller_Projektraum Volksgrenadier Volksgrenadier-Division Volltextindexierung Volltextrecherche Vías_Verdes Wagensteige}
- foreach 1 $a {
- puts $1
- puts [regexp -inline -- {\{\{Redundanztext.*?\d{4}.*?\|(.*?)\}\}} [conts t $1 x]]
- }
}
mysqlreceive $db "
select page_title
from page, categorylinks
where page_id = cl_from and page_namespace = 0 and cl_to like 'Wikipedia:Redundanz\_%'
order by page_title
- " pt {
lappend lpt $pt }
foreach pt $lpt { set scont [split [string map [list \n {} \{\{ \n\{\{ \}\} \}\}\n] [conts t $pt x]] \n] foreach line $scont { if {[string first Redundanztext $line] > -1} {break} } set reddict1 [split [join [regsub -all {\[\[.*?\]\]} [string map [list \n {} style= {}] [dict values [ regexp -inline -- {\{\{Redundanztext ??\| ?(\d.*?)\}\}} $line ]]] ...]] |=] unset -nocomplain lparam i if {$reddict1 eq {}} { set reddict2 [split [join [regsub -all {\[\[.*?\]\]} [string map [list \n {} style= {}] [dict values [ regexp -inline -- {\{\{Redundanztext ??\|(.*?)\}\}} $line ]]] ...]] |=] foreach param $reddict2 { lappend lparam [incr i] [string trim $param] } puts r2:$lparam lappend llparam $lparam } else { foreach param $reddict1 { lappend lparam [string trim $param] } puts r1:$lparam lappend llparam $lparam } } foreach lparam $llparam {
- puts $lparam
if {[string first { (CE} [lindex $lparam end]] > -1 && [lindex $lparam end-1] != 1} {set lparam [linsert $lparam end-1 1]} unset -nocomplain ltitle nltitle nlsqltitle lassign {} 3 4 5 6 7 8 9 10 dict with lparam { lappend ltitle $3 $4 $5 $6 $7 $8 $9 $10 } foreach title $ltitle { if {$title ne {}} { lappend nltitle [sql -> $title] lappend nlsqltitle '[sql <- $title]' } } set dltitle [set nltitle "ltitle [list $nltitle] cat {}"] mysqlreceive $db " select cl_to from categorylinks, page where page_id = cl_from and page_title in ([join $nlsqltitle ,]) and page_namespace = 0 ;" ct { dict lappend dltitle cat Kategorie:[sql -> $ct] } lappend ldltitle $dltitle } foreach dltitle [lsort -unique $ldltitle] { dict with dltitle { lappend wDWkat $ltitle $cat } }
puts $wDWkat
exit
set lcat0 [set lcat 'Wikipedia:Staatslastig'] 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 lcat [lappend lpt [join $lcat0]] mysqlreceive $db "
select page_title, cl_to from ( select page_id, page_title from page, categorylinks a where a.cl_from = page_id and page_namespace = 0 and a.cl_to in ([join $lcat ,]) ) b, categorylinks c where c.cl_from = page_id order by page_title
- " {pt ct} {
dict lappend wINTkat [sql -> $pt] Kategorie:[sql -> $ct]
}
exit
set lconts [lrange [split [conts id 9708855 x] \n] 4 end] for {set x 0} {$x < 10} {incr x} { lappend litem [lindex $lconts [expr round(rand() * [llength $lconts])]] } set in {Auf diese Seiten verweisen entweder nur Seiten aus anderen Namensräumen, Weiterleitungsseiten, Begriffsklärungsseiten und ähnliche und gelten damit noch als verwaist. Hilf bitte mit, die Mängel zu beheben:} puts [edit WP:LKH {Bot: Verwaiste Seiten} {} / appendtext "\n\n== Verwaiste Seiten ==\n$in\n[join [lsort -unique $litem] \n]\n\n${~}" / minor true / redirect true]
exit
set lcat0 [set lcat 'Wikipedia:Staatslastig'] 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 lcat [lappend lpt [join $lcat0]] puts $lcat mysqlreceive $db " select page_title, cl_to from ( select page_id, page_title from page, categorylinks a where a.cl_from = page_id and page_namespace = 0 and a.cl_to in ([join $lcat ,]) )b , categorylinks c where c.cl_from = page_id order by page_title
- " {pt ct} {
dict lappend wINTkat $pt $ct } puts $wINTkat
puts [clock format [clock seconds] -format %T]
exit
- SOL
mysqlreceive $db " select page_id, page_title from page c where c.page_id not in ( select page_id from page a, categorylinks b WHERE b.cl_from = a.page_id and b.cl_to IN ('Abkürzung', 'Begriffsklärung', 'Wikipedia:Falschschreibung', 'Wikipedia:Obsolete_Schreibung') ) and c.page_namespace = 0 and c.page_is_redirect = 0 order by page_title
- " {pgid pgt} {
lappend lpgid $pgid lappend lpgt '[sql <- $pgt]' } lassign [list [lrange $lpgid 0 999999] [lrange $lpgid 1000000 end]] lpgid1 lpgid2 lassign [list [lrange $lpgt 0 999999] [lrange $lpgt 1000000 end]] lpgt1 lpgt2 mysqlreceive $db " select page_id, count(pl_title) from page, pagelinks where pl_from = page_id and page_id in ([join $lpgid2 ,]) and page_namespace = 0 and pl_title in ([join $lpgt1 ,]) and pl_from_namespace = 0 and pl_namespace = 0 group by page_id having count(pl_title) = 0 ;" {pgid plt} { puts $pgt:$plt }
- puts [llength $lpgid]
- puts [llength $lpgt]
puts [clock format [clock seconds] -format %T]
exit
mysqlreceive $db "
select page_id, page_title from (select page_id, page_title from page c where c.page_id not in (select page_id from page a, categorylinks b WHERE b.cl_from = a.page_id and b.cl_to IN ('Abkürzung', 'Begriffsklärung', 'Wikipedia:Falschschreibung', 'Wikipedia:Obsolete_Schreibung')) and c.page_namespace = 0 and c.page_is_redirect = 0) d, pagelinks where d.page_id = pl_from and pl_namespace = 0 and pl_from_namespace = 0 and (d.page_title = 'William_Hudson' or d.page_title = 'Zistrosengewächse') and pl_title in (select page_title from page g where g.page_id not in (select page_id from page e, categorylinks f WHERE f.cl_from = e.page_id and f.cl_to IN ('Abkürzung', 'Begriffsklärung', 'Wikipedia:Falschschreibung', 'Wikipedia:Obsolete_Schreibung')) and g.page_namespace = 0 and g.page_is_redirect = 0) group by page_id
- " {p t c} {puts $p
- $t:$c}
exit
mysqlreceive $db " SELECT page_title, cl_to FROM (
SELECT page_title, page_id, ( SELECT COUNT(( SELECT page_id FROM page X WHERE X.page_id = P.pl_from AND X.page_namespace = 0 AND X.page_is_redirect = 0 )) FROM pagelinks P WHERE P.pl_title = A.page_title AND P.pl_namespace = 0 AND P.pl_from_namespace = 0 ) AS pl_field FROM page A WHERE A.page_namespace = 0 AND A.page_is_redirect = 0 HAVING pl_field = 0
) B, categorylinks Z WHERE B.page_id NOT IN (
SELECT page_id FROM page C, categorylinks D WHERE D.cl_from = C.page_id AND D.cl_to IN ('Abkürzung','Begriffsklärung','Wikipedia:Falschschreibung','Wikipedia:Obsolete_Schreibung')
) AND Z.cl_from = B.page_id ORDER BY B.page_title
- " {pt ct} {dict lappend lpct $pt $ct}
puts $lpct puts [llength $lpct] puts [clock format [clock seconds] -format %T] exit
mysqlreceive $db "select page_title from (select A.page_title, (select (SELECT page_id FROM page X WHERE X.page_id=P.pl_from and X.page_namespace=0 and X.page_is_redirect=0 LIMIT 1) from pagelinks P where P.pl_title=A.page_title and P.pl_namespace=0 and P.pl_from_namespace=0 limit 1) as pl_field from page A where A.page_namespace=0 and page_is_redirect=0 having pl_field IS NULL) B ORDER BY B.page_title DESC;" pt {lappend lpt $pt}
puts $lpt if {[string first !distain $lpt] > -1} {puts 1} else {puts 0}
exit
mysqlreceive $db "SELECT l.page_title FROM page l WHERE l.page_namespace = 0 AND l.page_is_redirect = 0 AND l.page_title NOT IN ( SELECT r.page_title FROM page r, pagelinks WHERE r.page_id = pl_from AND r.page_namespace = 0 AND r.page_is_redirect = 0 AND pl_from_namespace = 0 AND pl_namespace = 0 ) ORDER BY l.page_title;" pt {puts $pt ; lappend lpt $pt}
puts $lpt puts [llength $lpt] puts [clock format [clock seconds] -format %T] exit
mysqlreceive $db " SELECT DISTINCT l.page_title FROM page l WHERE NOT EXISTS (
SELECT r.page_title FROM page r, pagelinks WHERE r.page_title = l.page_title AND r.page_id = pl_from AND pl_title = l.page_title AND r.page_namespace = 0 AND r.page_is_redirect = 0 AND pl_from_namespace = 0 AND pl_namespace = 0
) AND l.page_namespace = 0 AND l.page_is_redirect = 0 ORDER BY l.page_title
- " pt {
set pc [pagecat $pt] if {{Kategorie:Begriffsklärung} ni $pc && {Kategorie:Wikipedia:Falschschreibung} ni $pc && {Kategorie:Abkürzung} ni $pc && {Kategorie:Wikipedia:Obsolete Schreibung} ni $pc} {puts $pt ; lappend lpt $pt} } puts $lpt puts [llength $lpt] puts [clock format [clock seconds] -format %T] exit
mysqlreceive $db "select l.page_title from page l where not exists (select r.page_title from page r, pagelinks where r.page_id = pl_from and pl_from_namespace = 0 and pl_namespace = 0 and r.page_namespace = 0 and r.page_is_redirect = 0 and r.page_id = l.page_id) and l.page_namespace = 0 and l.page_is_redirect = 0;" pt {puts $pt}
exit
mysqlreceive $db "select page_id, page_title from page, (select page_id as bkpage_id from page, categorylinks where cl_from = page_id and page_namespace = 0 and cl_to <> 'Begriffsklärung') as bkpage where page.page_id = bkpage.bkpage_id and page.page_namespace = 0 and page.page_is_redirect = 0;" {pgid pt} {lappend slpt '[sql <- $pt]' ; lappend lpt $pt} puts [llength $lpt] puts [llength [set lpt [lsort -unique $lpt]]] puts [llength [set slpt [lsort -unique $slpt]]] puts [clock format [clock seconds] -format %T]
foreach {A B} {0 999999 1000000 end} {
mysqlreceive $db "select distinct page_title from page, pagelinks, (select page_id as bkpage_id from page, categorylinks where cl_from = page_id and page_namespace = 0 and cl_to <> 'Begriffsklärung') as bkpage where pl_from = page.page_id and bkpage.bkpage_id = page.page_id and page.page_namespace = 0 and pl_namespace = 0 and page.page_is_redirect = 0 and pl_title in ([join [lrange $slpt $A $B] ,]);" pt1 {lappend lpt1 $pt1}
puts [llength $lpt1] puts [llength [set lpt1 [lsort -unique $lpt1]]] puts [clock format [clock seconds] -format %T]
}
foreach pt $lpt1 {if {$pt ni $lpt} {lappend mpt $pt} puts $mpt puts [llength $mpt] puts [clock format [clock seconds] -format %T]
exit
- select page_title, pl_title from page left join pagelinks on pl_from = page_id where page_namespace = 0 and pl_namespace = 0 and page_title not in ([join $lpt {, }])
mysqlreceive $db "select page_title from page where page_namespace = 0 and page_is_redirect = 0;" pt {lappend lpt $pt} puts [llength $lpt]
mysqlreceive $db "select page_title from page, categorylinks where cl_from = page_id and page_namespace = 0 and cl_to = 'Begriffsklärung';" pt {lappend lbks $pt} puts [llength $lbks]
foreach bks $lbks { lremove lpt $bks } puts [llength $lpt]
- select page_title from pagelinks, page where page_id = pl_from and pl_namespace = 0 and page_namespace = 0 and page_is_redirect = 0;
exit
set lcat [list {cl_to = 'Wikipedia:Defekte_Weblinks'}] while {$lcat ne {}} { set lcat1 {} mysqlreceive $db "select page_title from page, categorylinks where cl_from = page_id and ([join $lcat { or }]) and page_namespace = 14;" pt { set lcat {} lappend lpt "cl_to = '$pt'" lappend lcat1 "cl_to = '$pt'" } set lcat $lcat1 } mysqlreceive $db "select page_title from page, categorylinks where cl_from = page_id and (page_namespace = 0 or page_namespace = 1) and ([join $lpt { or }]) order by page_title;" pt { lappend lpt1 $pt } foreach pt1 $lpt1 { mysqlreceive $db "select page_title, cl_to from page, categorylinks where cl_from = page_id and (page_namespace = 0 or page_namespace = 1) and page_title = '[string map {' \\'} $pt1]';" {pt ct} { dict lappend wDWkat [string map {_ { }} $pt] Kategorie:[string map {_ { }} $ct] } } set t1 [clock format [clock seconds] -format %T] puts $wDWkat puts [llength $wDWkat] puts $t1
exit
mysqlreceive $db "select page_title from page, categorylinks where cl_from = page_id and ([join $lpt { or }]) order by page_title;" pt { puts $pt lappend lpt2 "page_title = '$pt'"
- mysqlreceive $db "select page_title, cl_to from page, categorylinks where cl_from = page_id and (page_namespace = 0 or page_namespace = 0) and ([join $lpt { or }]) order by page_title;" {pt ct} {}
}
- puts $lpt
exit
mysqlreceive $db "select page_title from page, categorylinks where cl_from = page_id and page_namespace = 0 and cl_to = 'Mineral' order by page_title;" pt { lappend lpt $pt } foreach pt $lpt { if {$pt in {Graphit}} {continue} set c [conts t $pt x] set nc $c if {[string first \{\{Literatur\n $c] > -1} { puts \n$pt set lrx [regexp -all -inline -- {\{\{Literatur\n.*?\}\}} $c] foreach rx $lrx { set nrx {} if {[regexp -all -- {\{} $rx] > 2} {puts \a$rx\nerror ; exit}
- puts $rx
foreach line [split $rx \n] { regsub -- {(\||\| )} [string trim $line] { | } line append nrx $line }
- puts $nrx
set nc [string map [list $rx $nrx] $nc] }
- puts $nc
puts [edit $pt {Bot: Literaturvorlagen begradigt} $nc / minor] if {[incr i] < 5} {gets stdin} } }
exit
set cl1 [clock format [clock seconds] -format %T] set yr [clock format [clock seconds] -format %Y] mysqlreceive $db "select page_title, cl_to from page, categorylinks where cl_from = page_id and page_namespace = 0 and (cl_to like 'Geboren%') order by page_title;" {pt ct} { dict lappend lpd $pt $ct } foreach {pt pd} $lpd { if {[llength $pd] == 1 && [string first Geboren $pd] > -1} { unset -nocomplain born regexp -- {\d{4}} $pd born catch { if {[expr $yr - $born] > 105} { lappend lpt "page_title = '$pt'" } } } } puts $lpt mysqlreceive $db "select page_title, ll_lang, ll_title, cl_to from page left join langlinks on ll_from = page_id left join categorylinks on cl_from = page_id where page_namespace = 0 and ([join $lpt { or }]);" {pt lll llt ct} { dict lappend lwVVkat [string map {_ { }} $pt] [list $lll [string map {_ { }} $llt]] dict lappend cwVVkat [string map {_ { }} $pt] Kategorie:[string map {_ { }} $ct]
- Kategorie:[string map {_ { }} $ct]
} foreach {pt ll} $lwVVkat {lappend nlwVVkat $pt [join [lsort -unique $ll]]} foreach {pt ct} $cwVVkat {lappend ncwVVkat $pt [lsort -unique $ct]} set wVVkat [join [lmap pt [dict keys $nlwVVkat] ll [dict values $nlwVVkat] ct [dict values $ncwVVkat] {list [list $pt $ll] $ct}]] set cl2 [clock format [clock seconds] -format %T]
puts $wVVkat puts "$cl1 - $cl2" exit
mysqlreceive $db "select page_title, cl_to from page, templatelinks, categorylinks where tl_from = page_id and page_namespace = 0 and tl_title = 'Personendaten' order by page_title;" {pt ct} {
- puts [string map {_ { }} $pt]:[string map {_ { }} $ct]
} puts [clock format [clock seconds] -format %T] mysqlreceive $db "select page_title, cl_to from (select page_title, page_id from page, templatelinks where tl_from = page_id and page_namespace = 0 and tl_title = 'Personendaten') as page, categorylinks where cl_from = page_id order by page_title;" {pt ct} {
- puts $pt:$ct
} puts [clock format [clock seconds] -format %T]
exit
mysqlreceive $db " select page_title, page_is_redirect from page where page_namespace = 12
- " {pt pir} {
puts $pt:$pir
- if {$prt ne {}} {gets stdin}
}
- puts $l4
exit
set debug 1 set verbose 1 while 1 { if [catch { puts [clock format [clock seconds] -format %T] conts t {GP 1890} x }] { puts 502err:[incr i] } }
exit
mysqlreceive $db "select page_namespace, page_title, cl_to from page, categorylinks, templatelinks where cl_from = page_id and tl_from = page_id and (tl_title = 'Portalhinweis' or tl_title = 'Projekthinweis' or tl_title = 'Redaktionshinweis') order by page_title;" {pns pt ct} { if {[set pt [nssort p $pns $pt]] ne {}} {dict lappend phkat $pt Kategorie:[string map {_ { }} $ct]} } puts $phkat
exit
foreach ei {Portalhinweis Projekthinweis Redaktionshinweis} {lappend ph [template $ei p]} foreach ph [lsort -unique [join $ph]] { lappend phkat $ph [pagecat $ph] } puts $phkat
exit
mysqlreceive $db " select page_id from page where page_namespace = 0 and page_title = 'Mainz' ;" pgid { lappend lkeyid "page_id = $pgid" }
puts $lkeyid
exit
source QSWORKLIST/@qsdict.db foreach key [dict keys $qsdict] { lappend lkey "tl_title = '[string map {{ } _ {\'} {\'} {'} {\'}} $key]'" } mysqlreceive $db "select page_title, tl_title, cl_to from page, templatelinks, categorylinks where tl_from = page_id and cl_from = page_id and page_namespace = 0 and ([join $lkey { or }]) order by page_title;" {pt tl ct} { dict lappend lsnak [list $pt $tl] Kategorie:[string map {_ { }} $ct] } foreach {pttl lcat} $lsnak { lappend qskat [string map {_ { }} [lindex $pttl 0]] [list pagecat $lcat qstempl [set key [string map {_ { }} [lindex $pttl 1]]] qsshort [lindex [set val [dict get $qsdict $key]] 0] qslong [lindex $val 1]] } puts $qskat puts [clock format [clock seconds] -format %T]
exit
mysqlreceive $db "select page_id from page where page_namespace = 10 and page_title = '$key';" pgid { lappend lkeyid "page_id = $pgid" }
- lappend lkeyid [join [mysqlsel $db "select page_id from page where page_namespace = 10 and page_title = '$key';" -list]]
}
puts $lkeyid exit
foreach key [dict keys $qsdict] {lappend lqs [templids $key 0]}
set fi [clock format [clock seconds] -format %T]
puts $lqs
puts $fi
exit
foreach rvid [catids Wikipedia:Reviewprozess -kat] {lappend lrvid "page_id = $rvid"}
mysqlreceive $db "select page_namespace, page_title, cl_to from page, categorylinks where cl_from = page_id and ([join $lrvid { or }]) order by page_title;" {pns pt ct} {
if {[set pt [nssort -kat $pns $pt]] ne {}} {dict lappend rvkat $pt Kategorie:[string map {_ { }} $ct]}
}
puts [clock format [clock seconds] -format %T]
puts $rvkat
puts [llength $rvkat]
exit
lassign [list [catitems Wikipedia:Kategorienlöschung 14] [catitems Wikipedia:Kategorienumbenennung 14] [catitems Wikipedia:Kategorienzusammenführung 14] [catitems {Wikipedia:Qualitätssicherung Kategorien} 14] [catitems Wikipedia:Kategorienklassifizierung 14]] kdla kdub kdzf kdqs kdkl lappend kdkat kdla $kdla kdub $kdub kdzf $kdzf kdqs $kdqs kdkl $kdkl puts $kdkat puts [clock format [clock seconds] -format %T] exit
lassign [list [cat {Kategorie:Wikipedia:Kategorienlöschung} 14] [cat {Kategorie:Wikipedia:Kategorienumbenennung} 14] [cat {Kategorie:Wik
ipedia:Kategorienzusammenführung} 14] [cat {Kategorie:Wikipedia:Qualitätssicherung Kategorien} 14] [cat {Kategorie:Wikipedia:Kategorienk
lassifizierung} 14]] kdla kdub kdzf kdqs kdkl
foreach lkid [join "[catids Wikipedia:Löschkandidat -kat] [catids {Wikipedia:Löschkandidat/Benutzer- und Metaseiten} -kat] [catids Wikipedia:Löschkandidat/Vorlagen -kat] [catids {Wikipedia:Löschkandidat Bahn} -kat]"] {lappend llkid "page_id = $lkid"} mysqlreceive $db "select page_namespace, page_title, cl_to from page, categorylinks where cl_from = page_id and ([join $llkid { or }]) order by page_title;" {pns pt ct} {
if {[set pt [nssort -kat $pns $pt]] ne {}} {dict lappend lkkat $pt Kategorie:[string map {_ { }} $ct]}
} puts "[clock format [clock seconds] -format %T]:lkkat komplett" puts $lkkat puts [llength $lkkat]
exit
foreach pgid [catids Wikipedia:Überarbeiten p] {lappend lnpgid "page_id = $pgid"}
- set lnpgid [join $lnpgid { or }]
mysqlreceive $db "select page_namespace, page_title, cl_to from page, categorylinks where cl_from = page_id and ([join $lnpgid { or }]) order by page_title;" {pns pt ct} { if {[set pt [nssort p $pns $pt]] ne {}} {dict lappend lwUE $pt Kategorie:[string map {_ { }} $ct]} } puts $lwUE
exit
mysqlreceive $db "select page_id from page, categorylinks where cl_from = page_id and cl_to = 'Wikipedia:Überarbeiten';" pgid {lappend lpid "page_id = $pgid"} ; set lpid [join $lpid { or }] mysqlsel $db "select page_namespace, page_title, cl_to from page, categorylinks where cl_from = page_id and ($lpid);" -list
exit
puts [clock format [clock seconds] -format %T] set hidden [join [mysqlsel $db "select page_title from page, categorylinks where page_namespace = 14 and cl_from = page_id and cl_to = 'Kategorie:Versteckt';" -list]] mysqlreceive $db "select page_id, cl_to from page left join categorylinks on cl_from = page_id where page_namespace = 0 and page_is_redirect = 0 order by page_title;" {pt cl} { if {$cl in $hidden} {set cl {}} dict lappend lwKAT $pt $cl } puts [clock format [clock seconds] -format %T] foreach {pt cl} $lwKAT { foreach item $cl { if {$item eq {}} {lremove cl $item} } if {$cl eq {}} {lappend nlwKAT $pt} } unset hidden lwKAT puts $nlwKAT foreach item $nlwKAT { puts $item set lcat {} set conts [conts id $item 0] set lwlink [dict values [regexp -all -inline -- {\[\[(.*?)[|#\]]} $conts]] foreach wlink [lsort -unique $lwlink] { puts $wlink if [catch {if ![ns $wlink] {lappend lcat [pagecat $wlink]}}] {continue} } set lcat [lsort -unique [join $lcat]] set pt [string map {_ { }} [mysqlsel $db "select page_title from page where page_id = $item;" -list]] lappend wKATkat $pt $lcat } puts $wKATkat exit
set allpageswc [lsort -unique $allpageswc] foreach pt $allpages { puts [incr i] if {$pt in $allpageswc} {continue} else {lappend allpageswoc $pt} } puts [llength $allpages] puts [llength $allpageswc] puts [llength $allpageswoc]
- puts [llength $lwKAT]
puts [clock format [clock seconds] -format %T]
gets stdin
puts $allpageswoc
exit
foreach {pgid pgt} $lpg { lappend nlpg $pgt [pagecat $pgt] }
exit
mysqlreceive $db "select page_title from page, categorylinks where page_namespace = 0 and page_id = 936587;" pt {
- puts $pt
- if {$cl in $hidden} {set cl {}}
- dict lappend lwKAT $pt $cl
puts $pt } puts $lwKAT
exit
set hidden [join [mysqlsel $db "select page_title from page, categorylinks where page_namespace = 14 and cl_from = page_id and cl_to = 'Kategorie:Versteckt';" -list]] mysqlreceive $db "select page_title, cl_to from page, categorylinks where page_namespace = 0 and cl_from = page_id;" {pt cl} {
if {$cl in $hidden} {set cl {}} dict lappend lwKAT $pt $cl
} foreach {pt cl} $lwKAT {
foreach item $cl { if {$item eq {}} { lremove cl $item } } if {$cl eq {}} { lappend nlwKAT [string map {_ { }} $pt] }
} puts [lsort -unique $nlwKAT]
foreach page [lsort -unique $nlwKAT] { set conts [conts t $page 0] puts $conts gets stdin }
exit
set hidden [join [mysqlsel $db "select page_title from page, categorylinks where page_namespace = 14 and cl_from = page_id and cl_to = 'Kategorie:Versteckt';" -list]]
mysqlreceive $db "select page_title, cl_to from page, categorylinks where page_namespace = 0 and cl_from = page_id;" {p c} { if {$c in $hidden} {set c {}} dict lappend b $p $c }
- puts [lsort $b]
foreach {p c} $b { foreach item $c { if {$item eq {}} { lremove c $item } } if {$c eq {}} { puts [string map {_ { }} $p] } }
exit
foreach {p c} $d { if {$c eq {}} { puts [string map {_ { }} $p] } }
- puts [edit user:TaxonBota/Test1 test [lrange $d 1266 1367]]
- foreach {1 2} $b {
- if {[string first Datei:\{ $1] > -1} {
- puts $1:$2
- }
- }
exit
puts [mysqlreceive $db "select page_title, cl_to from page, categorylinks where page_namespace = 0 and cl_from = page_id" -list]
exit
set db [get_db enwiki] set db [get_db tools s51837__MerlBot]
set catlemma {Animated film stubs} set catns 14 set lcat14 [format Template:%s $catlemma] lassign {0 1} olenlcat14 lenlcat14 while {$lenlcat14 != $olenlcat14} {
- if {$lenlcat14 == $olenlcat14} {break}
set olenlcat14 $lenlcat14 set lcat14 [split $lcat14] foreach cat14 [join $lcat14] {lappend lcat14 [sqlcat $cat14 14]} set lcat14 [lsort -unique [join $lcat14]] set lenlcat14 [llength $lcat14] }
- lremove lcat14 $catlemma
foreach cat14 $lcat14 {lappend lcat [sqlcat $cat14 $catns]} puts [lsort -unique [join $lcat]]:[llength [lsort -unique [join $lcat]]]
exit
- set revc [mysqlsel $db "select count(*) from revision join page on rev_page = page_id where page_title = \"[join $src _]\" and page_namespace = 0" -list]
- puts [mysqlsel $db "select page_title from page, categorylinks where page_id = cl_from and cl_type = 'subcat' and cl_to = 'Mineralogie';" -list]
- puts [mysqlsel $db "select * from page where page_title = 'ABC';;" -list]
set data [mysqlsel $db "select page_title from page, categorylinks where page_id = cl_from and cl_to = 'Stage_actors' and page_namespace = 14 ;" -list] puts $data\n[llength $data]
</source> -->