view release on metacpan or  search on metacpan

apache.pl  view on Meta::CPAN

if (not defined $httpd) {
  warn "This script failed to find an Apache2 binary\n";
  warn "Change \@httpds in apache.pl to point to a working Apache2 binary.\n";
  exit;
}

my $mod_perl = $httpd;
$mod_perl =~ s{/bin/httpd}{/modules/mod_perl.so};

my($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell,$expire) = getpwuid($<);
my $user  = getpwuid($uid);
my $group = getgrgid($gid);


my $default_conf = "$cwd/apache/conf/httpd.conf.default";
my $new_conf     = "$cwd/apache/conf/httpd.conf";
my $default_ctl = "$cwd/apache/bin/apachectl.default";
my $new_ctl     = "$cwd/apache/bin/apachectl";
my $default_startup = "$cwd/apache/bin/startup.pl.default";
my $new_startup     = "$cwd/apache/bin/startup.pl";