Babble::Transport::LWP - LWP based transport layer for Babble

Babble documentation Contained in the Babble distribution.

Index

Code Index:

NAME

Top

Babble::Transport::LWP - LWP based transport layer for Babble

DESCRIPTION

Top

This module is the basic transport layer for Babble. It supports fetching documents via any protocol LWP supports.

METHODS

Top

get

Returns the contents of the given location as a string scalar, or carps upon error. The hash in the -lwp key will be passed down to LWP::UserAgent's new() method.

AUTHOR

Top

Gergely Nagy, algernon@bonehunter.rulez.org

Bugs should be reported at http://bugs.bonehunter.rulez.org/babble.

SEE ALSO

Top

Babble::Transport, LWP, LWP::UserAgent

Babble documentation Contained in the Babble distribution. 
## Babble/Transport/LWP.pm
## Copyright (C) 2004 Gergely Nagy <algernon@bonehunter.rulez.org>
##
## This file is part of Babble.
##
## Babble is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; version 2 dated June, 1991.
##
## Babble is distributed in the hope that it will be useful, but WITHOUT
## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
## FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
## for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

package Babble::Transport::LWP;

use strict;
use Carp;
use HTTP::Headers;
use HTTP::Request;
use LWP::UserAgent;


sub get {
	my ($self, $params) = @_;

	$params->{-lwp}->{agent} = "Babble/" . $Babble::VERSION .
		" (http://bonehunter.rulez.org/Babble.phtml)"
		unless defined $params->{-lwp}->{agent};

	my $request = HTTP::Request->new
		("GET", $params->{-location},
		 HTTP::Headers->new (%{$params->{-headers}}));
	my $ua = LWP::UserAgent->new (%{$params->{-lwp}});
	my $res = $ua->request ($request);

	return $res->content if ($res->is_success || $res->code == 304);

	carp $res->status_line . " (" . $params->{-location} . ")";

	return undef;
}


1;

# arch-tag: 54fa2d72-04c1-44fc-adfe-4aa1223b5b09