Twittern mit Perl und Oauth - #141145 (Perl/CGI)

Gast Lars

2010-09-03 14:57

Ich glaube, ich habe jetzt alles, was ich für den OAuth Request brauche. Das Problem ist nur, ich weiß nicht genau, wie ich den Request mit Perl und HTTP::Request absetze (NET::OAuth habe ich nicht!!). Man muss dazu ein Authorization-Header anlegen, wobei ich nicht wirklich verstehe, wie das geht

In der OAuth Doku (http://tools.ietf.org/html/rfc5849) und bei Twitter (http://dev.twitter.com/pages/auth) steht, was man alles an Twitter schicken muss, z.B.:

Code: (dl )

     POST /request?b5=%3D%253D&a3=a&c%40=&a2=r%20b HTTP/1.1
     Host: example.com
     Content-Type: application/x-www-form-urlencoded
     Authorization: OAuth realm="Example",
                    oauth_consumer_key="9djdj82h48djs9d2",
                    oauth_token="kkk9d7dh3k39sjv7",
                    oauth_signature_method="HMAC-SHA1",
                    oauth_timestamp="137131201",
                    oauth_nonce="7d8f3e4a",
                    oauth_signature="bYT5CMsGcbgUdFHObYMEfcx6bsw%3D"

Und so habe ich das versucht:

Code (perl): (dl )

my $request = HTTP::Request->new(POST => $api_url);
$request->header(
     authorization => 'OAuth realm="https://api.twitter.com/oauth/',
     oauth_nonce => $oauth_nonce,
     oauth_signature_method => $oauth_signature_method,
     oauth_timestamp => $oauth_timestamp,
     oauth_consumer_key => $oauth_consumer_key,
     oauth_token => $oauth_token,
     oauth_signature => $signature,
     oauth_version => $oauth_version
     status => $status
      );
$request->content_type("text/xml; charset=utf-8");
my $res = $ua->request($request);

Leider kommt als Antwort immer 401 not authorized...

Weiß jemand wir, ich den HTTP Request richtig aufbaue?

Danke