FM / Protocol

/usr/local/share/perl5/LWP/Protocol

Name	Size	Mode	Actions
cpan.pm	1380	0444	edit dl rm
data.pm	1252	0444	edit dl rm
file.pm	3833	0444	edit dl rm
ftp.pm	16817	0444	edit dl rm
GHTTP.pm	1766	0444	edit dl rm
gopher.pm	5751	0444	edit dl rm
http.pm	14905	0444	edit dl rm
https.pm	6549	0444	edit dl rm
loopback.pm	601	0444	edit dl rm
mailto.pm	4428	0444	edit dl rm
nntp.pm	3873	0444	edit dl rm
nogo.pm	630	0444	edit dl rm

Edit: /usr/local/share/perl5/LWP/Protocol/data.pm (1252B)

package LWP::Protocol::data;

# Implements access to data:-URLs as specified in RFC 2397

use strict;
use vars qw(@ISA);

require HTTP::Response;
require HTTP::Status;

require LWP::Protocol;
@ISA = qw(LWP::Protocol);

use HTTP::Date qw(time2str);
require LWP;  # needs version number

sub request
{
    my($self, $request, $proxy, $arg, $size) = @_;

# check proxy
    if (defined $proxy)
    {
	return HTTP::Response->new( &HTTP::Status::RC_BAD_REQUEST,
				  'You can not proxy with data');
    }

# check method
    my $method = $request->method;
    unless ($method eq 'GET' || $method eq 'HEAD') {
	return HTTP::Response->new( &HTTP::Status::RC_BAD_REQUEST,
				  'Library does not allow method ' .
				  "$method for 'data:' URLs");
    }

my $url = $request->uri;
    my $response = HTTP::Response->new( &HTTP::Status::RC_OK, "Document follows");

my $media_type = $url->media_type;

my $data = $url->data;
    $response->header('Content-Type'   => $media_type,
		      'Content-Length' => length($data),
		      'Date'           => time2str(time),
		      'Server'         => "libwww-perl-internal/$LWP::VERSION"
		     );

$data = "" if $method eq "HEAD";
    return $self->collect_once($arg, $response, $data);
}

cmd: