http://www.perlmonks.org?node_id=901921


in reply to Ok I'm stumped. How the heck does LWP::Authen::Wsse work?

I was stumped at first glance too, but the main problem that I encountered was 
$mech->credentials('username', 'password');

[download]
Using 'perlmonks.net', I rearranged it to fit the Wsse: 
$mech->credentials('perlmonks.net', '', 'username' 'password');

[download]
That worked for me, and here's the script as I ran it: 
#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;
use Data::Dumper::Concise;

my $url = 'http://www.perlmonks.net/?node_id=109';

my $mech = WWW::Mechanize->new;
$mech->credentials('perlmonks.net', '', 'username',  'password');
$mech->default_header('Accept-Encoding' => scalar HTTP::Message::decod
+able());
$mech->add_handler("request_send",  sub { shift->dump; return });
$mech->add_handler("response_done", sub { shift->dump; return });

print Dumper($mech->get($url));

[download]

Replies are listed 'Best First'.
Re^2: Ok I'm stumped. How the heck does LWP::Authen::Wsse work?
by Anonymous Monk on Apr 29, 2011 at 06:19 UTC
    That worked for me, and here's the script as I ran it:

    Seeing how perlmonks doesn't use basic authentication or Wsse, why post nonsense like that?

[reply]

In Section Seekers of Perl Wisdom