package Apache::DProf;

use strict;
use Apache::DB ();
use File::Path ();

{
    no strict;
    $VERSION = '0.04';
}

# Need to determine if we are in a mod_perl 1.x or 2.x environment
# and load the appropriate modules
BEGIN {
        use constant MP2 => eval { require mod_perl; $mod_perl::VERSION > 1.99 };
        die "mod_perl is required to run this module: $@" if $@;

        if (MP2) {
                require Apache2;
                require Apache::RequestRec;
                require Apache::ServerUtil;
        }
}


# Adjust to handle mp1 and mp2 differently
my $prof_path;
if (MP2) {
    my $s = Apache->server;
    $prof_path = $s->server_root_relative( $ENV{APACHE_DPROF_PATH} ||
                                           "logs/dprof");
}
else {
    $prof_path = Apache->server_root_relative($ENV{APACHE_DPROF_PATH} ||
                                           "logs/dprof");
}