root/lang/perl/misc/MyOA/tweet_feed.pl @ 34114

#!/usr/bin/perl
use strict;
use warnings;

use DBI;
use LWP::UserAgent;

my $dbh = DBI->connect( 'DBI:mysql:myopenarchive:localhost:3306', 'user',
    'pass' );

$dbh->do("set names utf8");

$dbh->do(
    "insert into tweet_counter
     select id, 0, null from documents
     left join tweet_counter using(id)
     where count is null"
);

my $sth = $dbh->prepare(
    "select * from tweet_counter left join documents using(id)
     where count=(select min(count)
     from tweet_counter) order by count desc, rand()"
);
$sth->execute();
my $document_info = {};
while ( my $str = $sth->fetchrow_hashref ) {
    next unless $str->{title};
    $document_info = $str;
    last;
}

$sth = $dbh->prepare("update tweet_counter set count=count + 1 where id=?");
$sth->execute( $document_info->{id} );

my $title = $document_info->{title};
my $url   = get_short_url(
    "http://www.myopenarchive.org/documents/view/$document_info->{id}");

my $format = "[Featured on MyOA]%s %s";
my $status = sprintf $format, $title, $url;

my $USER     = 'user';
my $PASSWORD = 'pass';
my $ua = LWP::UserAgent->new( agent => 'Bot-TweetFeed', keep_alive => 1 );
$ua->credentials( 'twitter.com:80', 'Twitter API', $USER, $PASSWORD );
$ua->post( 'http://twitter.com/statuses/update.xml', { status => $status } );

sub get_short_url {
    my $url = shift;
    my $ua  = LWP::UserAgent->new();
    my $rs  = $ua->get("http://tinyurl.com/api-create.php?url=$url");
    return $rs->content;

}

exit 0;