Looks like I'm going to submit lots of bugs, so I've hacked up a small
script to do the report for me. You may want to consider to enrich it and
put into the mod_perl 2.0 distro if others find it useful.

_____________________________________________________________________
Stas Bekman              JAm_pH     --   Just Another mod_perl Hacker
http://stason.org/       mod_perl Guide  http://perl.apache.org/guide
mailto:[EMAIL PROTECTED]   http://apachetoday.com http://logilune.com/
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/

#!/usr/bin/perl -w

use strict;

use lib 'lib';
use Apache::BuildConfig ();

my $build = Apache::BuildConfig->new();

my $perl = $build->{MODPERL_PERLPATH};
my $apxs = $build->{MP_APXS};
my $httpd = qx{$apxs -q SBINDIR}.'/'.qx{$apxs -q TARGET};

my $env = '';

# mod_perl build opts
$env .= "*** mod_perl build opts:\n";
$env .= join '', map {"\t$_=$build->{$_}\n" } grep /^MP_/, keys %$build;

# perl -V
my $command = "$perl -V";
$env .= "\n\n*** $command\n";
$env .= qx{$command};

# httpd -v
$command = "$httpd -v";
$env .= "\n\n*** $command\n";
$env .= qx{$command};

{
    local $/ = undef;
    my $template = <DATA>;
    $template =~ s/\[CONFIG\]/$env/;
    print $template;
}

__DATA__

-------------8<----------Start Bug Report ------------8<----------
1. Problem Description:

  [DESCRIBE THE PROBLEM HERE]

2. Used Components and their Configuration:

  [CONFIG]

3. This is the core dump trace: (if you get a core dump):

  [CORE TRACE COMES HERE]

-------------8<----------End Bug Report --------------8<----------

Note: Complete the rest of the details and post this bug report to
[EMAIL PROTECTED] as is. To subscribe to the list send an empty
email to [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to