J’en avais besoin, voici mon script qui utilise l’API Twitter pour g\u00e9n\u00e9rer des flux RSS. Assez simple, le plus chiant est sans doute d’obtenir les credentials et le token. Le plus long (mais simple) est d’installer le module Net::Twitter depuis le CPAN.<\/p>\n\n\n\n
use CGI;\nuse XML::RSS;\nuse Net::Twitter;\nuse HTML::Entities;\nmy $twt = Net::Twitter->new(\n traits => [qw\/API::RESTv1_1\/],\n consumer_key => VOTRE_CLEF_DEVELOPPEUR,\n consumer_secret => VOTRE_MOT_DE_PASSE_DEVELOPPEUR,\n access_token => TOKEN_APPLICATION,\n access_token_secret => MOT_DE_PASSE_DU_TOKEN\n);\n$cgi = new CGI();\nif ($login = $cgi->param('login')) {\n eval {\n my $statuses = $twt->user_timeline({ count => 64, screen_name => $login });\n $rss = XML::RSS->new (version => '2.0');\n $rss->channel(\n title => \"Tweets de $login\",\n link => \"https:\/\/twitter.com\/$login\");\n foreach $status (@$statuses) {\n $rss->add_item(\n title => decode_entities($status->{text}),\n link => \"https:\/\/twitter.com\/$login\/status\/\".$status->{id};\n }\n };\n if($@) {\n print \"Content-type: text\/plain\\n\\nProblem because: $@\\n\";\n } else {\n print \"Content-type: application\/rss+xml\\n\\n\".$rss->as_string;\n }\n} else {\n print \"Content-type: text\/plain\\n\\nWho can you trust ?\";\n}\n<\/pre>\n\n\n\nA vos quotas, pr\u00eats, partez !<\/p>\n","protected":false},"excerpt":{"rendered":"
J’en avais besoin, voici mon script qui utilise l’API Twitter pour g\u00e9n\u00e9rer des flux RSS. Assez simple, le plus chiant est sans doute d’obtenir les credentials et le token. Le plus long (mais simple) est d’installer le module Net::Twitter depuis le CPAN. #!\/usr\/bin\/perl use CGI; use XML::RSS; use Net::Twitter; use HTML::Entities; my $twt = Net::Twitter->new( … Continuer la lecture de twittRSS.cgi<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[30,29],"tags":[],"class_list":["post-124","post","type-post","status-publish","format-standard","hentry","category-api","category-rss"],"_links":{"self":[{"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/posts\/124","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/comments?post=124"}],"version-history":[{"count":15,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/posts\/124\/revisions"}],"predecessor-version":[{"id":141,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/posts\/124\/revisions\/141"}],"wp:attachment":[{"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/media?parent=124"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/categories?post=124"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/habett.fr\/blog\/wp-json\/wp\/v2\/tags?post=124"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}