[dzach] 2008-6-25: How can one post a message to a google Blogger blog programmatically using TCL? 

Given the popularity of Google's Blogger platform, it might be a good idea to provide some basic functionality here. Google's '''Account Authentication API''' documentation can be found at:
 http://code.google.com/apis/accounts/docs/AuthForInstalledApps.html#ClientLogin
and a guide for the API here:

http://code.google.com/apis/blogger/developers_guide_protocol.html#CreatingPublicEntries

Here is the code I've tried (corrected with the help of [PT] in the Tcler's Chat):

 namespace eval ::google {

 proc init {} {
	# packages http and tls are needed
	if {[catch {
		package require tls
		package req http
		} err]
	} {
		return $err
	}
	variable account
	variable var

	array set var {
		url https://www.google.com/accounts/ClientLogin
		timer_http 30000
	}
	array set account {
		accountType GOOGLE  
		Email <your_google_account_email>
		Passwd <your_google_account_password> 
		service blogger
		source <your_company-service-version>
	}
	::http::register https 443 ::tls::socket

	set query [eval ::http::formatQuery [array get account]]

	# by specifying the -query option http::geturl sends a POST instead of a GET request, with a Content-type: application/x-www-form-urlencoded header
	# sent the POST request
	set token [::http::geturl $var(url) -timeout $var(timer_http) -query $query]

	# to see what the reply was, uncomment the next line
	# parray $token

	if {[::http::status $token] ne "ok"} {
		# somethng went wrong
		error "Could not get a reply from $var(url) . [::http::status $token]"
	}
	set data [::http::data $token]
	::http::cleanup $token
	return $data
 }

 }; # end namespace ::google

The above should return something like:
 HTTP/1.0 200 OK
 Server: GFE/1.3
 Content-Type: text/plain 

 SID=DQAAAGgA...7Zg8CTN
 LSID=DQAAAGsA...lk8BBbG
 Auth=DQAAAGgA...dk3fA5N

where '''Auth=DQAAAGgA...dk3fA5N''' is the authorization key to use in all subsequent requests (to be continued ...).

----
!!!!!!
%|[Category Internet]|%
!!!!!!