API提供しているとあるサービスとあるサービス => Service Provider アプリケーション => Consumerとそれぞれ呼びます。
wget -q -O - http://pkg.jenkins-ci.org/debian/jenkins-ci.org.key | apt-key add -をしたあと、
deb http://pkg.jenkins-ci.org/debian binary/を追加します。
apt-get update apt-get install jenkinsをして、インストールします。
/etc/init.d/jenkins restartをします。
#!/usr/bin/ruby require 'rubygems' require 'oauth' consumer = OAuth::Consumer.new( "Consumer Key", "Consumer Secret", :site => "http://twitter.com" ) token = consumer.get_request_token puts token.authorize_url #リダイレクト先のURL pin = gets.chop access_token = token.get_access_token(:oauth_verifier => pin) puts access_token.token #アクセストークン のtoken puts access_token.secret # アクセストークンの secret
#!/usr/bin/ruby
require 'rubygems'
require 'twitter'
require 'twitter/console'
Twitter::Client.configure do |conf|
conf.oauth_consumer_token = "Consumer Key",
conf.oauth_consumer_secret = "Consumer Secret",
end
twitter_client = Twitter::Client.new(:oauth_access => {
:key => "Access Token Key",
:secret => "Access Token Secret"
})
twitter_client.status(:post, "Hello, World");
use strict;
use warnings;
use LWP::UserAgent;
use LWP::Authen::Wsse;
use HTTP::Request::Common;
use XML::DOM;
use Encode;
use Date::Parse;
use DateTime;
use utf8;
my $entry = "";
my $title = "";
my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new('GET', "http://twitter.com/statuses/user_timeline.xml");
$req->authorization_basic('(★twitterのユーザ名を入れる)', '(★twitterのパスワードを入れる)');
my $res = $ua->request($req);
if ($res->is_success) {
my $parser = new XML::DOM::Parser;
my $doc = $parser->parse($res->content);
my @status = $doc->getElementsByTagName('status');
my $t_dt = DateTime->today;
my $prev_day = $t_dt->day - 1;
$title .= " " . $t_dt->year . '/' . $t_dt->month . '/' . $prev_day;
$title .= encode('utf8', "のつぶやき");
foreach (@status) {
my @children = $_->getChildNodes;
my $text;
my $dt;
foreach (@children) {
if ($_->getNodeType() == ELEMENT_NODE) {
if ($_->getTagName() eq "text") {
#$text = encode('shift_jis', $_->getFirstChild->toString);
$text = encode('utf8', $_->getFirstChild->toString);
} elsif ($_->getTagName() eq "created_at") {
my $epoch = str2time($_->getFirstChild->toString);
$dt = DateTime->from_epoch(epoch => $epoch);
}
}
}
if ($dt->year == $t_dt->year && $dt->month == $t_dt->month && $dt->day == $t_dt->day-1) {
$entry .= " " . $dt->year . '/' . $dt->month . '/' . $dt->day;
$entry .= " " . $text . "\n\n";
}
}
} else {
print "error";
exit;
}
my $id = '(★mixiのログインメールアドレスを入れる)';
my $pass = '(★mixiのパスワードを入れる)';
my $member_id = (★mixiのメンバーidを入れる);
my $ua2 = LWP::UserAgent->new;
$ua2->credentials('mixi.jp:80', '', $id, $pass);
my $content = <<__XML__;
<?xml version='1.0' encoding='utf-8'?>
<entry xmlns='http://www.w3.org/2007/app'>
<title>$title</title>
<summary>$entry</summary>
</entry>
__XML__
print $content;
$res = $ua2->post(
"http://mixi.jp/atom/diary/member_id=$member_id",
'Content-Type' => 'application/atom+xml',
'content' => $content,
);
warn $res->content unless $res->code == 201;
投稿
すべてのコメント
