Posted to tcl by kbk at Fri Dec 14 01:39:48 GMT 2018view pretty

lassign $argv start end

package require http

set hd http://paste.tclers.tk/
set tl /SPAM

set f [open /dev/null w]

for {set i $start} {$i <= $end} {incr i} {
    set url ${hd}$i${tl}
    puts $url
    set token [http::geturl $url -channel $f]
    if {[http::status $token] ne {ok}} {
	puts "[file tail $url]: [http::error $token]"
	file delete $fname
	exit 1
    }
    http::cleanup $token
}