{"id":309,"date":"2010-09-02T09:13:07","date_gmt":"2010-09-02T09:13:07","guid":{"rendered":"http:\/\/frank-it-beratung.com\/?p=309"},"modified":"2012-09-29T11:07:24","modified_gmt":"2012-09-29T11:07:24","slug":"umstellung-von-basic-auth-zu-oauth-fur-in-perl-geschriebene-twitter-tools","status":"publish","type":"post","link":"https:\/\/frank-it-projekte.de\/blog\/2010\/09\/02\/umstellung-von-basic-auth-zu-oauth-fur-in-perl-geschriebene-twitter-tools\/","title":{"rendered":"Schnelle Umstellung von Basic Auth zu OAuth f\u00fcr in Perl geschriebene Twitter Tools"},"content":{"rendered":"

Am 30. August 2010 hat das Team von Twitter nun endg\u00fcltig den Basic Auth Zugang abgestellt. Eigentlich eine gute Idee, denn OAuth ist eine feine Sache (nat\u00fcrlich nicht ohne Nachteile, aber das ist ein anderes Thema).<\/p>\n

Auf jeden Fall muss man nun alle Scripts und Tools, die mit Basic Auth laufen entsprechend \u00a0umstellen. So funktioniert beispielsweise mein Tutorial \u201eDirect Message versenden mit Perl\u201c<\/a>, das ich vor einigen Monaten hier in dieses Blog eingestellte habe so nicht mehr, auch das m\u00fcsste auf OAuth umger\u00fcstet werden.<\/p>\n

Eine \u00a0komplette Umstellung auf OAuth ist eine aufwendige Sache. Im Folgenden wird nur ein schneller und einfacher Weg beschrieben, der erkl\u00e4rt, wie man einfache Scripts, die von nur einem Twitter-Account \u201ebenutzt\u201c werden, mit OAuth versorgt. (Bei komplexeren Angelegenheiten empfiehlt es sich sowieso, fertige Twitter-Module f\u00fcr Perl, z. B. Net::Twitter<\/a> zu verwenden).<\/p>\n

Als erstes m\u00fcssen Sie Ihr \u201eapplication\u201c bei Twitter registrieren:<\/p>\n

    \n
  1. Surfen Sie auf http:\/\/dev.twitter.com<\/a><\/li>\n
  2. Loggen Sie sich mit dem Twitter-Account ein, mit dessen Account sp\u00e4ter auch das Script ausgef\u00fchrt werden sollen (Wenn Sie also ein Script schreiben, dass direct messages von \u201epeter_panter\u201c an dessen Follower senden soll, loggen Sie sich als \u201epeter_panter\u201c ein).<\/li>\n
  3. F\u00fcllen Sie das Registrierungs-Formular aus. Application-Type: Browser, Callback-URL: leer lassen, Read&Write ausw\u00e4hlen (kann ggf. sp\u00e4ter noch ge\u00e4ndert werden, kann aber Probleme geben, vgl. Anmerkungen unten).<\/li>\n
  4. Jetzt erhalten Sie den Consumer Key und das Consumer Secret (dies sind die Zugangsschl\u00fcssel f\u00fcr die Anwendung, die\u00a0 sich nicht \u00e4ndern w\u00fcrden, wenn Sie einen anderen Benutzer das Script ausf\u00fchren lassen \u2013 in unserem Fall: W\u00fcrden Sie das Script \u00e4ndern, dass nicht \u201epeter_panter\u201c sondern \u201etheo_tiger\u201c direct messages versenden soll w\u00fcrde sich der Consumer Key und das Consumer Secret nicht \u00e4ndern).<\/li>\n
  5. Klicken Sie auf \u201eMy Access Token\u201c. Da erhalten Sie das Access Token sowie das Access Token Secret f\u00fcr den aktuell eingeloggten User (in unseren Beispiel \u201epeter_panter\u201c. W\u00fcrde Sie das Script \u00e4ndern, dass \u201etheo_tiger\u201c direct messages versenden soll m\u00fcssen sie dessen Access Token und Access Token Secret generieren \u2013 dies ginge nicht so einfach mit dev.twitter.com, da m\u00fcssten Sie dann oAuth komplett implementieren und nicht wie hier in einem \u201eWorkaround\u201c).<\/li>\n<\/ol>\n

    Nun m\u00fcssen Sie Ihr Script anpassen.<\/p>\n

      \n
    1. Installieren Sie das Perl-Modul Net::OAuth<\/a> (ist in CPAN, deshalb einfach in die Shell ‚perl \u2013MCPAN \u2013e\u00a0 ‚install NET::OAuth‘ tippen).<\/li>\n
    2. Der Ausgangspunkt f\u00fcr folgendes Beispiel ist dieses Script aus dem alten Tutorial<\/a>, das derzeit noch mit Basic Auth verschickt.<\/li>\n
    3. Mit OAuth sieht es dann so aus:<\/li>\n<\/ol>\n
      #!\/usr\/bin\/perl\r\n\r\nuse LWP::UserAgent;\r\nuse Encode;\r\nuse Net::OAuth;\r\n$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;\r\n\r\n# OAuth: Tokens f\u00fcr den Twitter-User\r\nmy $accesstoken = \"???\";\r\nmy $accesssecret = \"???\";\r\n\r\n# OAuth: Keys f\u00fcr die App\r\nmy $consumerkey =\"???\";\r\nmy $consumerkeysecret=\"???\";\r\n\r\n# Allgemeines\r\nmy $APIurl = 'https:\/\/twitter.com\/direct_messages\/new.xml';\r\nmy $reqmethod = 'POST';\r\n# Name des UserAgent - eigentlich egal\r\nmy $UAname=\"myTwitterScript\";\r\n# 8stellige Zufallszahl f\u00fcr nonce\r\nmy $zufallszahl = int(rand(90000000))+ 10000000; \r\n\r\n# direct message vorbereiten\r\n$empfaenger=\"Simon_A_Frank\";\r\n$nachricht=\"Hallo Simon!\";\r\n\r\n# OAuth request vorbereiten\r\nmy $request = Net::OAuth->request(\"protected resource\")->new(\r\n   consumer_key\u00a0=> $consumerkey,\r\n   consumer_secret => $consumerkeysecret,\r\n   request_url => $APIurl,\r\n   request_method => $reqmethod,\r\n   signature_method => 'HMAC-SHA1',\r\n   timestamp => time,\r\n   nonce => '$zufallszahl',\r\n   token => $accesstoken,\r\n   token_secret => $accesssecret,\r\n   extra_params => {\r\n      text => decode_utf8($nachricht),\r\n      user => $empfaenger }\r\n);\r\n\r\n# OAuth signieren\r\n$request->sign;\r\n\r\n#sinnvolle LWP Settings - siehe doku\r\nmy $ua = LWP::UserAgent->new;\r\n$ua->timeout(10);\r\n$ua->env_proxy;\r\n\r\n# http Request vorbereiten und senden\r\nmy $httpheader = HTTP::Headers->new('User-Agent' => $UAname);\r\nmy $httprequest = HTTP::Request->new($reqmethod, $APIurl,\r\n  $httpheader, $request->to_post_body);\r\nmy $httpresponse = $ua->request($httprequest);\r\n\r\n# Erfolg?\r\nif ($httpresponse->is_success) {\r\n  #Hat geklappt!\r\n  print \"DM erfolgreich verschickt!nn\";\r\n  print \"nContent: \" . $httpresponse->content . \"n\";\r\n}\r\nelse {\r\n  #ging nicht ...\r\n  print \"Nicht erfogreich, Fehler: \" . $httpresponse->status_line;\r\n}<\/pre>\n
      Noch ein paar Anmerkungen:<\/p>\n