Reinhard Max - 2004-11-08
This little tool allows to create tiny URL (http://tinyurl.com ) from the command line. The TinyURL proc can also be used in othe scripts for TinyURL creation.
package require http
# - TinyURL
#
# Create a simple alias URL from a possibly long and complicated one
# using the http://tinyurl.com service
#
# in: The URL to be made tiny
# out: The tiny URL
#
proc TinyURL {url} {
set query [[http::formatQuery url $url]]
set token [[http::geturl http://tinyurl.com/create.php -query $query]]
if {[[http::ncode $token]] != 200} {
return -code error [http::data $token]
}
set RE {^<input type=hidden name=tinyurl value="(.*)">$}
if {![[regexp -line $RE [[http::data $token]] -> turl]]} {
return -code error \
"http://tinyurl.com has probably changed the output format."
}
http::cleanup $token
return $turl
}
if {$argc != 1} {
puts "usage: [[info script]] url"
exit 1
}
puts [[TinyURL [[lindex $argv 0]]]]