OpenPlugin::Request::Apache2 - Apache2 driver for the OpenPlugin::Param plugin

 my $r = shift;
 my $OP = OpenPlugin->new( request => { apache2 => $r } );

 $apache_req = $OP->request->object();

package OpenPlugin::Request::Apache2;

# $Id: Apache2.pm,v 1.3 2003/08/12 00:51:51 andreychek Exp $

use strict;
use OpenPlugin::Param();
use base   qw( OpenPlugin::Param );

$OpenPlugin::Request::Apache2::VERSION = sprintf("%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/);

sub init {
    my ( $self, $args ) = @_;

    # This is here for now because when compiling this module at Apache startup
    # time, we don't have an Apache::Request object yet.  We should find a
    # better way to do this though.
    return $self unless ( $args->{'apache2'} );

    # Make sure we have an Apache::Request object
    unless ( $self->state->{'apache2'} ) {

        # If passed in an Apache::Request object, use it
        if( ref $args->{'apache2'} eq 'Apache::RequestRec' ) {
            $self->state->{'apache2'} = $args->{'apache2'};
        }
        # If passed in an Apache object, we can work with that too
#        if( ref $args->{'apache2'} eq "Apache" ) {
#            $self->state->{'apache2'} =
#                Apache::Request->new( $args->{'apache2'} );
#       }
        else {
            $self->OP->exception->throw("When using the Apache2 driver, you ",
                    "must pass in an Apache2 object!");
        }
    }

    # Set the uri
    $self->state->{'uri'} = $self->state->{'apache2'}->uri;

    return $self;
}

sub object { my $self = shift; return $self->state->{'apache2'}; }
sub uri    { my $self = shift; return $self->state->{'uri'};     }

1;

__END__