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] { for {set add -2} {$add < 4} {incr add} { append lqsday [string map {{/ } / {> } >} \n[clock format [clock add [clock seconds] $add days] -format {|style="background:#EBEBEB; width:14%;"|%e. %B} -timezone :Europe/Berlin -locale de]] }
set contentsnewqsday "\{\{Autoarchiv-Erledigt|Alter=2|Ziel='Wikipedia:Qualitätssicherung/$nextday1/erledigt'|Zeigen=Nein\}\}\n\{| class=\"centered\" cellpadding=\"0\" cellspacing=\"1\" style=\"background:#FFDEAD; text-align:center; width:90%; font-size:smaller;\"$lqsday\n|style=\"background:#EBEBEB; width:14%;\"|\[\[Wikipedia:Qualitätssicherung/\{\{LOCALDAY\}\}. \{\{LOCALMONTHNAME\}\} \{\{LOCALYEAR\}\}|Heute\]\]\n|\}\n\n\{\{QS-Kandidaten\}\}\n\n
\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 ncont [string map [list $mark [join [string map {{/ } / {| } |} $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]
- 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 pl_title from pagelinks, page where page_id = pl_from and pl_from_namespace = 4 and !pl_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} { puts [edit Wikipedia:$qst \[\[$pt\]\] $sign\n[dict get $ptempl 2] / section new] } }
</source> -->