view release on metacpan or  search on metacpan

conf/server.xml.PL  view on Meta::CPAN

use Config;
use File::Basename qw(basename dirname);

chdir dirname $0;

(my $file = basename $0) =~ s/\.PL$//;
$file =~ s/\.pl$// if ($Config{'osname'} eq 'VMS' or
                       $Config{'osname'} eq 'OS2');  # "case-forgiving"

open OUT,">$file" or die "Can't create $file: $!";
chmod 0755, $file;

require '../.cfg';

print "Extracting $file (with variable substitutions)\n";

print OUT <<"!GROK!THIS!";
<!-- Wombat server configuration file -->

<!--
Component elements are nested corresponding to their parent-child

conf/wombat.conf.PL  view on Meta::CPAN

use Config;
use File::Basename qw(basename dirname);

chdir dirname $0;

(my $file = basename $0) =~ s/\.PL$//;
$file =~ s/\.pl$// if ($Config{'osname'} eq 'VMS' or
                       $Config{'osname'} eq 'OS2');  # "case-forgiving"

open OUT,">$file" or die "Can't create $file: $!";
chmod 0755, $file;

require '../.cfg';

print "Extracting $file (with variable substitutions)\n";

print OUT <<"!GROK!THIS!";
#
# Sample Apache configuration file for Wombat
#
# Include this file into your httpd.conf with this directive: