User:TaxonBot/hs-snapshot.tcl

} $nhsconts {}] set spans [dict values [regexp -all -inline -- {\n(<span class="plainlinks".*?)} $nhsconts]] foreach span $spans { set offset 0 while 1 {if ![catch { set expanded [get [post $wiki {*}$format / action expandtemplates / text $span / prop wikitext] expandtemplates wikitext] }] {break} else {after 10000 ; if {[incr offset] == 5} {puts Fehler! ; exit}}} set nhsconts [string map [list $span $expanded] $nhsconts] } regsub -- {\[\[Kategorie.*?\}\} } $nhsconts {} nhsconts

puts [edit $archive "Bot: Abbild der heutigen \[\[$wphs|Hauptseite\]\]" $nhsconts]

set lang test ; source langwiki.tcl ; #set token [login $wiki] puts [edid 63277 {Log: HS} {} / appendtext "\n* [ clock format [clock seconds] -format %Y-%m-%dT%TZ ] HS-Snapshot: Task finished!"]

</source> -->