Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Grabbing XML from PerlMonks

by patgas (Friar)
on Sep 08, 2001 at 00:42 UTC ( #111012=perlquestion: print w/replies, xml ) Need Help??
patgas has asked for the wisdom of the Perl Monks concerning the following question:

I was putting together a little code to grab the XML from User Nodes Info XML Generator, and I only seem to be getting a newline back from that node. I've tried substituting Newest Nodes XML Generator, which works, and Node Query XML Generator, which doesn't. I'm completely stumped. Can anyone offer me a little advice?

#!/usr/bin/perl -w use strict; use HTTP::Cookies; use LWP::UserAgent; use URI::URL; my $user = 'USER_NAME_HERE'; my $password = 'PASSWORD_HERE'; my $agent = new LWP::UserAgent(); my $cookie = new HTTP::Cookies( file => 'cookies.dat', autosave => 1 ); $agent->cookie_jar( $cookie ); my $url = new URI::URL ''; $url->query_form( op => 'login', node_id => '109', lastnode_id => '131', user => $user, passwd => $password ); my $request = new HTTP::Request 'GET', $url->as_string(); my $result = $agent->request( $request ); die "Error logging in: $result->code $result->message" if ( !$result->is_success ); $url = new URI::URL ''; $url->query_form( node => "User Nodes Info XML Generator" ); $request = new HTTP::Request 'GET', $url->as_string(); $result = $agent->request( $request ); die "Error receiving results: $result->code $result->message" if ( !$result->is_success ); print '->', $result->content, '<-';

"We're experiencing some Godzilla-related turbulence..."

Replies are listed 'Best First'.
Re: Grabbing XML from PerlMonks
by chromatic (Archbishop) on Sep 08, 2001 at 02:59 UTC
    LWP::UserAgent doesn't appear to set a cookie without a FQDN. Unfortunately, isn't fully qualified. Use or with the trailing dot. (If you look at HTTP::Cookies::add_cookie_header(), you'll see that it expects there to be two dots in the domain name.)

    Adding the trailing dot fixed it on my machine.

      I had gotten as far as realizing that the cookie wasn't being set, and I had started looking at HTTP::Cookies before I left work, but I didn't catch this. That fixed it perfectly, thanks!

      "We're experiencing some Godzilla-related turbulence..."

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://111012]
Approved by root
[Eily]: moritz but that should be fine unless you modify them
[choroba]: if you modify them, Perl will crash with "Modification of a read-only value attempted" for $1
[choroba]: I can't replicate the situation, but I remember it was very hard to debug

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (8)
As of 2018-02-22 17:28 GMT
Find Nodes?
    Voting Booth?
    When it is dark outside I am happiest to see ...

    Results (297 votes). Check out past polls.