The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

OAuth::Lite2::Signer - OAuth 2.0 signature (DEPRECATED)

SYNOPSIS

    my $signed_params = OAuth::Lite2::Signer->sign(
        secret    => q{my_token_secret},
        algorithm => q{hmac-sha256},
        method    => q{GET},
        url       => q{http://example.org/protected/resource},
    );

DESCRIPTION

DEPRECATED. This is for old version of OAuth 2.0 draft specification.

This is for client to generate signed request, or for server to verify received request.

METHODS

sign( %params )

Returns the hash reference that includes parameters for OAuth 2.0 signed request.

    my $signed_params = OAuth::Lite2::Signer->sign(
        secret    => q{my_token_secret},
        algorithm => q{hmac-sha256},
        method    => q{GET},
        url       => q{http://example.org/protected/resource},
    );
secret

Access token secret.

algorithm

The algorithm what you make signature with.

method

HTTP method of the request.

url

URL of the request.

debug_nonce

Optional. If you omit this, nonce string is automatically generate random string.

debug_timestamp

Optional. If you omit this, current timestamp is set.

normalize_string( %params )

Returns normalized string according to the specification.

host

host part of the url.

port

If you omit this, 80 is set by default.

nonce

Random string.

timestamp

unix timestamp.

algorithm

name of hmac hash algorithm.

method

HTTP method of the request.

url

URL of the request.

verify( %params )

Verify a signed request.

    unless ( OAuth::Lite2::Signer->verify( %params ) ) {
        $app->error("Invalid request");
    }
signature

'signature' parameter of the received request.

secret

The access token secret.

algorithm

'algorithm' parameter of the received request.

method

HTTP method of the received request.

url

URL of the received request.

nonce

'nonce' parameter of the received request.

timestamp

'timestamp' parameter of the received request.

AUTHOR

Lyo Kato, <lyo.kato@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2010 by Lyo Kato

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.