Net::OpenMicroBlogging - OpenMicroBlogging protocol support

    # Consumer sends Request Token Request

    use Net::OpenMicroBlogging;
    use HTTP::Request::Common;
    my $ua = LWP::UserAgent->new;

    my $request = Net::OpenMicroBlogging->request("request token")->new(
        consumer_key => 'dpf43f3p2l4k3l03',
        consumer_secret => 'kd94hf93k423kf44',
        request_url => 'https://ublog.example.net/request_token',
        request_method => 'POST',
        signature_method => 'HMAC-SHA1',
        timestamp => '1191242090',
        nonce => 'hsu94j3884jdopsl',
        omb_listener => 'http://ublog.example.net/bob',
    );

    $request->sign;

    my $res = $ua->request(POST $request->to_url); # Post message to the Service Provider

    if ($res->is_success) {
        my $response = Net::OpenMicroBlogging->response('request token')->from_post_body($res->content);
        print "Got Request Token ", $response->token, "\n";
        print "Got Request Token Secret ", $response->token_secret, "\n";
    }
    else {
        die "Something went wrong";
    }

    # Etc..

    # Service Provider receives Request Token Request

    use Net::OpenMicroBlogging;
    use CGI;
    my $q = new CGI;

    my $request = Net::OpenMicroBlogging->request("request token")->from_hash($q->Vars,
        request_url => 'https://photos.example.net/request_token',
        request_method => $q->request_method,
        consumer_secret => 'kd94hf93k423kf44',
    );

    if (!$request->verify) {
        die "Signature verification failed";
    }
    else {
        # Service Provider sends Request Token Response

        my $response = Net::OpenMicroBlogging->response("request token")->new( 
            token => 'abcdef',
            token_secret => '0123456',
        );

        print $response->to_post_body;
    }	

    # Etc..

The purpose of OpenMicroBlogging is

"To allow users of one microblogging service to publish notices to users of another service, given the other users' permission."

Please refer to the OpenMicroBlogging spec: http://openmicroblogging.org/

OpenMicroBlogging is based on OAuth - familiarity with OAuth is highly recommended before diving into OpenMicroBlogging

Net::OpenMicroBlogging is a thin wrapper around Net::OAuth - basically it augments Net::OAuth message classes with additional OMB parameters, and defines a couple message types unique to OMB. Please refer to the Net::OAuth documentation for the details of how to create, manipulate, sign and verify messages.

An OpenMicroBlogging message is a set of key-value pairs. The following message types are supported:

Requests

Responses

http://openmicroblogging.org

Keith Grennan, <kgrennan at cpan.org>

Copyright 2007 Keith Grennan, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.