Problem: HTTP::Message calls to HTTP::Headers

Christian Gilmore (cgilmore@research.att.com)
Mon, 14 Jul 1997 14:02:39 -0400 

I'm wondering if someone here might be able to help me out. I've got the
following snippet of code:

use URI::URL;
use HTTP::Response;
use HTTP::Status;
use LWP::UserAgent;
use LWP::Simple;

sub get_url {
  my ($url) = shift;

  my ($user_agent) = new LWP::UserAgent;
  $user_agent->agent("$Name/$Version");

  my ($request) = new HTTP::Request GET => $url;
  my ($result) = $user_agent->request($request);

  if ($result->is_success) {
    my ($content) = $result->content;
    my ($headers) = $result->headers;
    return $headers;
  } else {
    my ($code) = $result->code;
    my ($message) = $result->message;
    return "$code: $message";
  }
}


This code gives the following error:

denali.research.att.com% ./get_url.pl http://www.research.att.com/
Can't locate object method "headers" via package "HTTP::Headers" at
/weblab/software/packages/perl-5.004_01/lib/HTTP/Message.pm line 172.

The installation of libwww went well, so far as I could tell. Any ideas?

Regards,
Christian

----------------------------------------------------------------------
Christian Gilmore          | cgilmore@research.att.com
Room B253                  | http://www.research.att.com/info/cgilmore
180 Park Avenue            |
Florham Park, NJ 07932     |
(201) 360 - 8366           | AT&T Research, Florham Park