{"id":335,"date":"2010-10-06T09:09:10","date_gmt":"2010-10-06T09:09:10","guid":{"rendered":"http:\/\/frank-it-beratung.com\/?p=335"},"modified":"2014-02-28T12:56:40","modified_gmt":"2014-02-28T12:56:40","slug":"facebook-pinnwandeintrage-mit-einem-perl-script-erzeugen-ein-kurzes-tutorial","status":"publish","type":"post","link":"https:\/\/frank-it-projekte.de\/blog\/2010\/10\/06\/facebook-pinnwandeintrage-mit-einem-perl-script-erzeugen-ein-kurzes-tutorial\/","title":{"rendered":"Facebook Pinnwandeintr\u00e4ge mit einem Perl-Script erzeugen – ein kurzes Tutorial"},"content":{"rendered":"

Vor einige Wochen habe ich einiges zu Twitter via Perl und OAuth<\/a> geschrieben. F\u00fcr ein aktuelles Projekt sollen aus einem CMS aktuelle Newsmeldungen automatisiert via Perl-Script in Facebook eingespielt werden. Das kann man sehr kompliziert angehen, es l\u00e4sst sich aber auch \u201equick&dirty\u201c relativ einfach realisieren, indem man sozusagen eine \u201ePseudo-App\u201c einrichtet. Sicherlich ist folgendes Vorgehen nicht der Weisheit letzter Schluss, aber eben eine schnelle und unkomplizierte M\u00f6glichkeit. Und nat\u00fcrlich wird hier OAuth nicht im Sinne des Erfinders verwendet, aber der Zweck heiligt die Mittel.<\/p>\n

<\/p>\n

So geht\u2019s:<\/p>\n

1. Zuerst muss eine \u201eAnwendung\u201c bei Facebook registriert werden \u2013 der Name der Anwendung ist nicht unwichtig, da er sp\u00e4ter hin und wieder zu lesen ist (vgl. Tipps ganz unten). Au\u00dferdem m\u00fcssen Sie sich einloggen \u2013 der Besitzer der App ist ebenfalls f\u00fcr jeden einsehbar, also auch nicht ganz unwichtig (vgl. ebenfalls die Tipps).
\nhttp:\/\/www.facebook.com\/developers\/createapp.php<\/a><\/p>\n

\"\"<\/a><\/p>\n

2. Wenn Sie nebenbei auch noch sehen m\u00f6chten, wie man eine App erstellt, die direkt in Facebook angezeigt wird k\u00f6nnen Sie auf der folgenden Einstellungsseite unter \u201eFacebook Integration\u201c das Feld \u201eCanvas-URL\u201c ausf\u00fcllen. Tragen Sie hier die URL einer Ihrer Websites ein (und l\u00f6schen Sie das ggf. sp\u00e4ter wieder).<\/p>\n

\"\"<\/a><\/p>\n

3.\u00a0 Jetzt haben Sie einen API-Schl\u00fcssel, den App-Secret Key und die App-ID\u00a0 (eigentlich ben\u00f6tigen Sie nur letzteres, da Sie die http-Request nicht \u00a0signieren m\u00fcssen).<\/p>\n

\"\"<\/a><\/p>\n

4.\u00a0 Es n\u00e4chstest ben\u00f6tigen Sie einen \u201eAccess Token\u201c, d.h. Sie m\u00fcssen ein Facebook-Account mit Ihrer Anwendung \u201everbinden\u201c und die entsprechenden Rechte erteilen, so dass die Anwendung im Namen dieses User agieren darf. Da es hier nur um eine \u201eSingle-User-L\u00f6sung\u201c geht (vgl. oben) habe ich ein kleine JavaScript Datei<\/a> mit Hilfe des Facebook SDK f\u00fcr JavaScript<\/a> gebastelt, die das Access-Token generiert (mit Perl w\u00e4re das auch m\u00f6glich, aber erheblich aufwendiger). Kopieren Sie die HTML-Datei auf einen Ihrer Webserver (dieser muss die gleiche URL haben, die Sie unter „Seitenadresse“ angegeben haben, sonst geht es nicht) und laden Sie es in Ihren Browser \u00a0(am besten nicht mit dem Internet Explorer, der verweigert u. U. das \u201eprompt\u201c). Update 5.12.2010: <\/strong>Noch einfacher kann man das Token mit dem Tool „FB Access Token Manager“<\/a> erstellen oder indem man folgende URL in den Browser kopiert:<\/p>\n

https:\/\/graph.facebook.com\/oauth\/authorize?client_id=IhreApp-ID<\/strong>&scope=publish_stream,offline_access&redirect_uri=http:\/\/www.facebook.com\/connect\/login_success.html&type=user_agent&display=popup<\/em><\/p>\n

5.\u00a0\u00a0 Loggen Sie sich mit dem Facebook-Account ein, das Sie mit der Anwendung verbinden wollen und erteilen Sie die Schreibberechtigung (weitere Berechtigungen finden Sie in der Authentication-Doku<\/a>). Nun wird das Access-Token generiert.<\/p>\n

6.\u00a0 Falls Sie die JavaScript Datei verwendet haben k\u00f6nnen Sie diese nun wieder von Ihrem Server l\u00f6schen, sie wird nicht mehr ben\u00f6tigt. Das Access-Token ist sozusagen unbegrenzt g\u00fcltig.<\/p>\n

7.\u00a0\u00a0 Mit folgenden selbsterkl\u00e4renden Perl-Script k\u00f6nnen Sie nun im Namen des verbundenen Users nahezu alles in Facebook automatisiert durchf\u00fchren, Facebooks Graph API bietet da viele M\u00f6glichkeiten (Details siehe API-Doku<\/a>) Im folgenden Beispiel wird einfach ein Post auf meine Pinnwand geschrieben:<\/p>\n

#!\/usr\/bin\/perl\r\n\r\nuse LWP::UserAgent;\r\nuse Encode;\r\nmy $ua = LWP::UserAgent->new;\r\n\r\n#sinnvolle LWP Settings - siehe Doku\r\n$ua->timeout(10);\r\n$ua->env_proxy;\r\n\r\n# access-token:\r\n$form{access_token}=\"???\";\r\n\r\n# Nachricht\r\n# Update am 29.11.2010: u. U. Nachricht zuvor \r\n# decoden, vgl. Kommentare unten\r\n$form{message}=encode_utf8(\"Vielen Dank f\u00fcr Dein Tutorial!\");\r\n\r\n# Posten ...\r\n$response = \r\n $ua->post(\"https:\/\/graph.facebook.com\/simon.a.frank\/feed\",\\%form );\r\n\r\nif ($response->is_success) {\r\n  #Hat geklappt!\r\n  print \"Pinnwandeintrag erfolgreich verschickt!\";\r\n  print \"\\n\\nContent (JSON): \" . $response->status_line . \"\\n\\n\";\r\n}\r\nelse {\r\n  #ging nicht ...\r\n  print \"Nicht erfogreich, Fehler: \" . $response->status_line;\r\n  print \"\\n\\nContent (JSON): \" . $response->content . \"\\n\\n\";\r\n}<\/pre>\n
Tipps:<\/p>\n