1LWP::Authen::Wsse(3) User Contributed Perl Documentation LWP::Authen::Wsse(3)
2
3
4
6 LWP::Authen::Wsse - Library for enabling X-WSSE authentication in LWP
7
9 This document describes version 0.05 of LWP::Authen::Wsse, released
10 December 27, 2005.
11
13 use LWP::UserAgent;
14 use HTTP::Request::Common;
15 my $url = 'http://www.example.org/protected_page.html';
16
17 # Set up the WSSE client
18 my $ua = LWP::UserAgent->new;
19 $ua->credentials('example.org', '', 'username', 'password');
20
21 $request = GET $url;
22 print "--Performing request now...-----------\n";
23 $response = $ua->request($request);
24 print "--Done with request-------------------\n";
25
26 if ($response->is_success) {
27 print "It worked!->", $response->code, "\n";
28 }
29 else {
30 print "It didn't work!->", $response->code, "\n";
31 }
32
34 "LWP::Authen::Wsse" allows LWP to authenticate against servers that are
35 using the "X-WSSE" authentication scheme, as required by the Atom
36 Authentication API.
37
38 The module is used indirectly through LWP, rather than including it
39 directly in your code. The LWP system will invoke the WSSE
40 authentication when it encounters the authentication scheme while
41 attempting to retrieve a URL from a server.
42
43 You also need to set the credentials on the UserAgent object like this:
44
45 $ua->credentials('www.company.com:80', '', "username", "password");
46
47 Alternatively, you may also subclass LWP::UserAgent and override the
48 "get_basic_credentials()" method. See LWP::UserAgent for more details.
49
51 LWP, LWP::UserAgent, lwpcook.
52
54 Audrey Tang <audrey@audrey.org>
55
57 Copyright 2004, 2005 by Audrey Tang <audrey@audrey.org>.
58
59 This program is free software; you can redistribute it and/or modify it
60 under the same terms as Perl itself.
61
62 See <http://www.perl.com/perl/misc/Artistic.html>
63
64
65
66perl v5.12.0 2005-12-26 LWP::Authen::Wsse(3)