--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hae_saatiedot.tcl	Tue Sep 21 13:12:49 2010 +0300
@@ -0,0 +1,62 @@
+#!/usr/bin/tclsh
+
+# Polku ja tiedosto mihin tiedot talletetaan
+set datafile "/home/niinuska/bot/saa.data"
+
+# HTTP proxy
+# 1 = kyllä
+# 0 = ei
+set use_proxy 0
+
+# HTTP proxy osoite ja portti (jos ed. optio 1)
+set http_proxy_host "cache.inet.fi"
+set http_proxy_port 800
+
+
+##############################################################################
+package require http
+::http::config -urlencoding iso8859-1 -useragent "Mozilla/4.0 (compatible; MSIE 6.0; MSIE 5.5; Windows NT 5.0) Opera 9.5"
+if {$use_proxy != 0} {
+	::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port
+}
+
+
+##############################################################################
+proc fetch_uri {uurl} {
+	global ngot
+	if {[catch {set utoken [::http::geturl $uurl -binary true -timeout 5000]} uerrmsg]} {
+		puts "Error getting #$uurl: $uerrmsg"
+		return ""
+	} else {
+		incr ngot
+		set udata [::http::data $utoken]
+		::http::cleanup $utoken
+		return $udata
+	}
+}
+
+##############################################################################
+set tmpfname "$datafile.tmp"
+if {[catch {set savefile [open $tmpfname w 0600]} uerrmsg]} {
+	puts "Error opening $tmpfname: $uerrmsg"
+	return 1
+}
+
+# Haetaan 22 framea osoitteista 
+# http://www.tiehallinto.fi/alk/tiesaa/tiesaa_maak_1.html -
+# http://www.tiehallinto.fi/alk/tiesaa/tiesaa_maak_22.html
+# ja talletetaan kaikki samaan tiedostoon
+set ngot 0
+for { set i 1 } { $i < 23 } { incr i } {
+	puts $savefile [fetch_uri "http://alk.tiehallinto.fi/alk/tiesaa/tiesaa_maak_$i.html"]
+}
+
+#set paske [fetch_uri "http://www.wunderground.com/global/stations/56294.html"]
+
+close $savefile
+if {$ngot > 5} {
+	if {[catch {file rename -force -- $tmpfname $datafile} uerrmsg]} {
+		puts "Error renaming $tmpfname to $datafile: $uerrmsg"
+	}
+}
+