view release on metacpan or  search on metacpan

lib/Apache/XPointer.pm  view on Meta::CPAN

	my $rparam  = $apache->dir_config("XPointerCGIRangeParam") || "range";
	$range      = $pkg->_param($apache,$rparam);
    }
    
    return $range;
}

sub accept {
    my $pkg = shift;
    my $apache = shift;

    my $accept = $pkg->_header_in($apache,"Accept");

    if ((! $accept) &&
	($apache->dir_config("XPointerAllowCGI") =~ /^on$/i)) {

	my $aparam  = $apache->dir_config("XPointerCGIAcceptParam") || "accept";		
	$accept     = $pkg->_param($apache,$aparam);
    }

    return $accept;
}

sub send_as {
    my $pkg = shift;
    return $pkg->_nometh(@_);
}

sub parse_range {
    my $pkg = shift;
    return $pkg->_nometh(@_);
}

sub query {
    my $pkg = shift;
    return $pkg->_nometh(@_);
}

sub _mp2 {
    return MP2;
}

sub _param {
    my $pkg    = shift;
    my $apache = shift;
    my $field  = shift;

    if ($pkg->_mp2()) {
	return CGI::param($field);
    }
    
    my $request = Apache::Request->new($apache);
    return $request->param($field);
}

sub _nometh {
    my $pkg    = shift;
    my $apache = shift;

    my $caller = (caller(1))[3];
    $caller =~ s/.*:://;

    $apache->log()->error(sprintf("package %s does not define a '%s' method",
				  $pkg,$caller));
    return 0;
}

sub _declined {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::DECLINED() : Apache::Constants::DECLINED();
}

sub _server_error {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::HTTP_INTERNAL_SERVER_ERROR() : Apache::Constants::SERVER_ERROR();
}

sub _not_found {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::HTTP_NOT_FOUND() : Apache::Constants::NOT_FOUND();
}

sub _not_acceptable {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::HTTP_NOT_ACCEPTABLE() : Apache::Constants::HTTP_NOT_ACCEPTABLE();
}

sub _partial_content {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::HTTP_PARTIAL_CONTENT() : 206;
}

sub _ok {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::OK() : Apache::Constants::OK();
}

sub _header_in {
    my $pkg    = shift;
    my $apache = shift;
    my $field  = shift;

    return ($pkg->_mp2()) ? $apache->headers_in()->{$field} : $apache->header_in($field);
}

sub _header_out {
    my $pkg    = shift;
    my $apache = shift;
    my $field  = shift;
    my $value  = shift;

    ($pkg->_mp2()) ? $apache->headers_out()->{$field} = $value: $apache->header_out($field,$value);
}

=head1 VERSION

1.1

=head1 DATE