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 }