User:TaxonBot/wkat2.tcl

).*} [conts id 4901404 x] \\1\n[join [string map {& {\&}} $lwl] \n]\n\\1]] / minor] set db [get_db dewiki] 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] } mysqlclose $db puts "[clock format [clock seconds] -format %T]:wDFkat komplett" unset -nocomplain lpt

set db [get_db dewiki] 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 ([dcat sql Wikipedia:Bilderwunsch 14]) ) b, categorylinks c where c.cl_from = b.page_id order by page_title

" {pt ct} {

dict lappend wBWkat [sql -> $pt] Kategorie:[sql -> $ct] } mysqlclose $db puts "[clock format [clock seconds] -format %T]:wBWkat komplett"

lappend wkat2 wALTkat $wALTkat wGEOkat $wGEOkat wVFkat $wVFkat wDFkat $wDFkat wBWkat $wBWkat

set f [open WORKLIST/@wkat2.db w] ; puts $f $wkat2 ; close $f

</source> -->