view release on metacpan or  search on metacpan

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

use subs qw(system chdir
            info warning);

use Config;
use File::Spec::Functions;
use File::Path ();
use Cwd ();

use constant DRYRUN => 0;

my @min_modules = qw(access auth log-config env mime setenvif
                     mime autoindex dir alias);

my %shared_modules = (
    min  => join(' ', @min_modules),
);

my %configs = (
    all => {
        'apache-1.3' => [],
        'httpd-2.0' => enable20(qw(modules=all proxy)),

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

    unless ($s) {
        warn "cannot connect to $hostport: $!";
        return undef;
    }

    if ($content) {
        $headers{'Content-Length'} ||= length $content;
        $headers{'Content-Type'}   ||= 'application/x-www-form-urlencoded';
    }

    #for modules/setenvif
    $headers{'User-Agent'} ||= 'libwww-perl/0.00';

    my $request = join $CRLF,
      "$method $url HTTP/1.0",
      (map { "$_: $headers{$_}" } keys %headers);

    $request .= $CRLF;

    for (my $i = 0; $i < scalar @real_headers; $i += 2) {
        $request .= "$real_headers[$i]: $real_headers[$i+1]$CRLF";