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

  1. lassign $argv start end
  2.  
  3. package require http
  4.  
  5. set hd http://paste.tclers.tk/
  6. set tl /SPAM
  7.  
  8. set f [open /dev/null w]
  9.  
  10. for {set i $start} {$i <= $end} {incr i} {
  11. set url ${hd}$i${tl}
  12. puts $url
  13. set token [http::geturl $url -channel $f]
  14. if {[http::status $token] ne {ok}} {
  15. puts "[file tail $url]: [http::error $token]"
  16. file delete $fname
  17. exit 1
  18. }
  19. http::cleanup $token
  20. }
  21.