Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re^2: REST::Client does not provide any output (debugging x-authorization)

by Anonymous Monk
on Jun 17, 2013 at 08:58 UTC ( #1039299=note: print w/replies, xml ) Need Help??


in reply to Re: REST::Client does not provide any output (debugging x-authorization)
in thread REST::Client does not provide any output

Here is round trip using your data , note how it doesn't match :)

#!/usr/bin/perl -- use Data::Dump; use HTTP::Request ; my $r = HTTP::Request->new('http://localhost'); $r->authorization_basic(qw/ username@system password /); dd( $r->as_string ); dd( $r = HTTP::Request->parse( $r->as_string ) ); dd( $r->authorization_basic ); __END__ "http://localhost -\nAuthorization: Basic dXNlcm5hbWVAc3lzdGVtOnBhc3N3 +b3Jk\n\n" bless({ _content => "", _headers => bless({ authorization => "Basic dXNlcm5hbWVAc3lzdGVtOnBh +c3N3b3Jk" }, "HTTP::Headers"), _method => "http://localhost", _uri => bless(do{\(my $o = "-")}, "URI::_generic"), }, "HTTP::Request") ("username\@system", "password")
  • Comment on Re^2: REST::Client does not provide any output (debugging x-authorization)
  • Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1039299]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (8)
As of 2021-01-27 20:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?