Changeset 34115 for lang/perl/misc/MyOA/tweet_feed.pl

Timestamp:

06/24/09 10:17:20 (4 years ago)

Author:

omoon

Message:

コメントなど追加。

Files:

• lang/perl/misc/MyOA/tweet_feed.pl (modified) (5 diffs)

lang/perl/misc/MyOA/tweet_feed.pl

@@ -6 +6 @@
 use LWP::UserAgent;
 
-my $dbh = DBI->connect( 'DBI:mysql:myopenarchive:localhost:3306', 'user',
-    'pass' );
+my $db_user = 'db_user';
+my $db_pass = 'db_pass';
 
+my $twitter_user = 'user';
+my $twitter_pass = 'pass';
+
+my $dbh =
+  DBI->connect( 'DBI:mysql:myopenarchive:localhost:3306', $db_user, $db_pass );
 $dbh->do("set names utf8");
 
+# tweet_counterにないデータ（新規投稿）を追加
 $dbh->do(
     "insert into tweet_counter
@@ -18 +24 @@
 );
 
+# twitterへの投稿回数が少ないものからランダムに情報取得
 my $sth = $dbh->prepare(
     "select * from tweet_counter left join documents using(id)
@@ -24 +31 @@
 );
 $sth->execute();
+
 my $document_info = {};
 while ( my $str = $sth->fetchrow_hashref ) {
@@ -31 +39 @@
 }
 
+# カウントアップ
 $sth = $dbh->prepare("update tweet_counter set count=count + 1 where id=?");
 $sth->execute( $document_info->{id} );
 
+# タイトルと短縮URL取得
 my $title = $document_info->{title};
 my $url   = get_short_url(
     "http://www.myopenarchive.org/documents/view/$document_info->{id}");
 
+# status整形
 my $format = "[Featured on MyOA]%s %s";
 my $status = sprintf $format, $title, $url;
 
-my $USER     = 'user';
-my $PASSWORD = 'pass';
+# twitterへ投稿
 my $ua = LWP::UserAgent->new( agent => 'Bot-TweetFeed', keep_alive => 1 );
-$ua->credentials( 'twitter.com:80', 'Twitter API', $USER, $PASSWORD );
+$ua->credentials( 'twitter.com:80', 'Twitter API', $twitter_user,
+    $twitter_pass );
 $ua->post( 'http://twitter.com/statuses/update.xml', { status => $status } );
 
@@ -52 +63 @@
     my $rs  = $ua->get("http://tinyurl.com/api-create.php?url=$url");
     return $rs->content;
-
 }
-
-exit 0;