LWP::Authen::Wsse - Library for enabling X-WSSE authentication in LWP

This document describes version 0.05 of LWP::Authen::Wsse, released December 27, 2005.

    use LWP::UserAgent;
    use HTTP::Request::Common;
    my $url = 'http://www.example.org/protected_page.html';

    # Set up the WSSE client
    my $ua = LWP::UserAgent->new;
    $ua->credentials('example.org', '', 'username', 'password');

    $request = GET $url;
    print "--Performing request now...-----------\n";
    $response = $ua->request($request);
    print "--Done with request-------------------\n";

    if ($response->is_success) {
        print "It worked!->", $response->code, "\n";
    }
    else {
        print "It didn't work!->", $response->code, "\n";
    }

LWP::Authen::Wsse allows LWP to authenticate against servers that are using the X-WSSE authentication scheme, as required by the Atom Authentication API.

The module is used indirectly through LWP, rather than including it directly in your code. The LWP system will invoke the WSSE authentication when it encounters the authentication scheme while attempting to retrieve a URL from a server.

You also need to set the credentials on the UserAgent object like this:

   $ua->credentials('www.company.com:80', '', "username", "password");

Alternatively, you may also subclass LWP::UserAgent and override the get_basic_credentials() method. See LWP::UserAgent for more details.

LWP, LWP::UserAgent, lwpcook.

Audrey Tang <audrey@audrey.org>

Copyright 2004, 2005 by Audrey Tang <audrey@audrey.org>.

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

See http://www.perl.com/perl/misc/Artistic.html