Steffest Digitale Pulptuur

Commentaar toevoegen
Je reactie
Je naam
Url (van je website of blog of ....)
Antispam
Om zeker te zijn dat je geen Spam-robot bent, moet je even de volgende vraag beantwoorden:
Hoeveel voeten heeft een mens?

Geef je commentaar op:
twitter2identica and plurk2identica
Another day, another social network.

Today all the buzz was about Identi.ca, a twitter clone, but based on the open source Laconica

the 140 char limit posting thing made it an ideal target to hook up to Feedtweeter: Keeping track of all those social networks gets a little insane, so it makes sense to have a tool that syncs all your networks, no ? Post something in twitter or plurk, and it will appear in Identi.ca too.
Here's the post-to-idetica script in VB Identi.ca has no official API yet, but the approach is the same as the Plurk posting: just hit the website and simulate the login and posting forms.


<%
identicaAccount = "Steffest"
identicaPass = "*********"
	
identica("hello identicaworld!")
	
	
function identica(message)
	
	' based on http://monkey.linuxworld.com/scripts/twit
		
	url_login = "http://identi.ca/main/login"
	url_post = "http://identi.ca/notice/new"
	
	' first: login
	useragent = Request.ServerVariables("HTTP_USER_AGENT")
	poststring = "nickname=" & identicaAccount & "&password=" & identicaPass
	set objXMLHTTP = Server.CreateObject("MSXML2.SERVERXMLHTTP")
	objXMLHTTP.Open "POST", url_login, false
	objXMLHTTP.setRequestHeader "User-Agent",useragent 
	objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	objXMLHTTP.Send poststring
			
	' then send the message
		message=server.URLEncode(message)
	poststring  = "status_textarea=" & message
	
	objXMLHTTP.Open "POST", url_post, false,plurkAccount,plurkPass
	objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	objXMLHTTP.Send poststring
		
	identica = objXMLHTTP.responseText
end function