Posted to tcl by kbk at Fri Dec 14 01:39:48 GMT 2018view raw
- 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
- }