blog.kentarok.org

These days, so many start-ups which have an intention of following Twitter's success have come out one after another. I think it's absolutely ridiculous that most of them stupid enough not to offer diverse way to access their services except Web forms, for instance, accessibility via open API, IM, cell-phone, and so on.

Timelog is one of such sites, but it wisely started providing API which allows its users to access most functions and data on it easily. Really great! As soon as I heard the news, I went straight to work on writing a perl interface to it. Then, I hacked it up as WebService::Timelog, and uploaded it to CPAN.

• WebService::Timelog

Here's a simple usage of this module. For more details, consult the documentation on CPAN and the official documentation of Timelog API. Enjoy!

use WebService::Timelog;

my $timelog = WebService::Timelog->new(
    username => $username,
    password => $password,
);

# update status
$timelog->new_msg(text => $text);

# or you can do so like this
$timelog->update($text);

# retrieve public messages
my $public_messages  = $timelog->public_msg(cnt => $count, since => $since);

# retrieve friends' messages
my $friends_messages = $timelog->friends_msg(cnt => $count, since => $since);

# retrieve direct messages
my $direct_messages  = $timelog->direct_msg(cnt => $count);

# retrieve some information on you
my $me               = $timelog->show();

# retrieve some informtion on your friends
my $friends          = $timelog->friends(cnt => $count);