User:TaxonBot/review.tcl

\n(.*?)\n} $ctoc -- olist

foreach {key theme} $themekey { if {$key ni [dict keys $dtoc]} { set themeitem "| Liste = \n* " } else { set themeitem "| Liste = [join [lsort [dict get $dtoc $key]]]" } lappend themelist \{\{/Themenliste "| Thema = $theme" $themeitem \}\} } lappend themelist \{\{/Themenliste "| Thema = QS" \}\} set nctoc [string map [list $olist [join $themelist \n]] $ctoc] if {$nctoc ne $ctoc} { puts [edit Wikipedia:Review {Bot: Inhaltsaktualisierung} $nctoc / minor] } if {$nconts ne $listconts} { puts [edit Wikipedia:Review/Liste $summary $nconts / minor] } if {[string first 00:0 $listtime] > -1} { set lang test ; source langwiki.tcl ; #set token [login $wiki] puts [edid 63277 {Log: Review} {} / appendtext "\n* [ clock format [clock seconds] -format %Y-%m-%dT%TZ ] Review: Task finished!"] }

</source> -->