User:TaxonBot/lkday.tcl

\n\n= Benutzerseiten =\n\n= Metaseiten =\n\n= Vorlagen =\n\n= Listen =\n\n= Artikel =\n" puts [edit $targetlk {Bot: Tagesseite angelegt} $contentsnewlkday] } if [missing $targetqs/a] { set contentsnewqsday "\{\{Autoarchiv-Erledigt|Alter=2|Ziel='$targetqs/erledigt'|Zeigen=Nein\}\}\n\{\{Qualitätssicherungsseite|erl=\}\}\n\n\n" puts [edit $targetqs {Bot: Tagesseite angelegt} $contentsnewqsday] } } for {set x 1} {$x >= -7} {decr x} { switch $x { 0 { lappend laufende [clock format [ clock add [clock scan [lrange $t 0 1] -format {%d.%m.%Y %T}] $x day 1 hour ] -format {* %e. %B} -timezone :Europe/Berlin -locale de] } -7 { set adate [clock format [ clock add [clock scan [lrange $t 0 1] -format {%d.%m.%Y %T}] $x day 1 hour ] -format {* %e. %B} -timezone :Europe/Berlin -locale de] } default { lappend laufende [clock format [ clock add [clock scan [lrange $t 0 1] -format {%d.%m.%Y %T}] $x day 1 hour ] -format {* %e. %B} -timezone :Europe/Berlin -locale de] } } } set laufende [string map {{/ } / {| } |} $laufende] set adate [string map {{/ } / {| } |} $adate] set pageconts [string map [ list -TODO-->\n\n -TODO-->\n ] [conts t Wikipedia:Löschkandidaten x]] set sectlaufende [conts t Wikipedia:Löschkandidaten 1] set sectabarbeit [string map [ list -TODO-->\n\n -TODO-->\n ] [conts t Wikipedia:Löschkandidaten 2]] regexp -- {\*.*\]} $sectlaufende lauftab set nsectabarbeit [string map [list -TODO-->\n -TODO-->\n$adate\n] $sectabarbeit] set pageconts [string map [ list $lauftab [join $laufende \n] $sectabarbeit $nsectabarbeit ] $pageconts] puts [edit Wikipedia:Löschkandidaten {Bot: automatische Aktualisierung} $pageconts / minor] unset -nocomplain laufende for {set x 1} {$x >= -7} {decr x} { switch $x { 0 { lappend laufende [clock format [ clock add [clock scan [lrange $t 0 1] -format {%d.%m.%Y %T}] $x day 1 hour ] -format {* %e. %B} -timezone :Europe/Berlin -locale de] } -7 { set adate [clock format [ clock add [clock scan [lrange $t 0 1] -format {%d.%m.%Y %T}] $x day 1 hour ] -format {* %e. %B} -timezone :Europe/Berlin -locale de] } default { lappend laufende [clock format [ clock add [clock scan [lrange $t 0 1] -format {%d.%m.%Y %T}] $x day 1 hour ] -format {* %e. %B} -timezone :Europe/Berlin -locale de] } } } contents t {Wikipedia:WikiProjekt Kategorien} x regexp -- {(\* \[\[/Diskussionen/.*?)\=\= Diskussionen,} $contents -- mark if [exists mark] { set laufende [string map {{/ } / {| } |} $laufende] set adate [string map {{/ } / {| } |} $adate] set ncont [string map [list $mark [join $laufende \n]\n\n] $contents] set comment {} set top ";[lrange [lreverse [split $adate /]] 1 2]" if {[string first $top $ncont] > -1} { set ncont [string map [list $top $top\n$adate] $ncont] } else { set ncont [string map [list $comment $comment\n$top\n$adate\n] $ncont] } } puts [edit {Wikipedia:WikiProjekt Kategorien} {Bot: automatische Aktualisierung} $ncont / minor]

1. Header von lang dea auf de gestellt

set lang de ; source langwiki.tcl ; #set token [login $wiki] set t [utc -> seconds {} {%d. %B %Y} {-1 day}] set qst [sql <- Qualitätssicherung/$t] set lpt [scat Wikipedia:Qualitätssicherung 0] set sign ":vergessenen QS-Eintrag nachgetragen ${~}" set db [get_db dewiki] mysqlreceive $db " select lt_title from linktarget join pagelinks on pl_target_id = lt_id join page on page_id = pl_from where pl_from_namespace = 4 and !lt_namespace and page_namespace = 4 and page_title = '$qst'

" plt {

lappend ll [sql -> $plt] } mysqlclose $db foreach pt $lpt { regexp -- {\{\{QS.*?\}\}} [conts t $pt x] templ set ptempl [parse_templ $templ] if {[dict get $ptempl 1] eq $t && $pt ni $ll} {

1. puts [edit Wikipedia:$qst \[\[$pt\]\] $sign\n[dict get $ptempl 2] / section new]

} }

</source> -->