Version 0 of minimalist wget

Updated 2004-10-30 06:42:05

2004-10-29 VI This is a 10 line replacement for the far-more-capable wget program. This only works for http and just gets a url and puts it in a file. To invoke - have an alias like this:

 /usr/local/tcl/8.4.7/bin/tclsh8.4 ~/tcltools/wget.tcl http://mini.net/tcl/12781

Code for wget.tcl - only requires the tcl core:

 package require http
 set url [lindex $argv 0]
 set filename [file tail $url]
 set r [http::geturl $url]
 set fo [open $filename w]
 fconfigure $fo -translation binary
 puts -nonewline $fo [http::data $r]
 close $fo
 ::http::cleanup $r
 puts "Got $url -> $filename"