proc urbaani:getdata {data} {
   ::http::config -useragent "Mozilla/5.0 (X11; Linux i686; rv:2.0.1) Gecko/20100101 Firefox/4.0.1"
   set url [::http::geturl $data -timeout 15000]
   set source_code [::http::data $url]
   ::http::cleanup $source_code
   return $source_code
}