#! /usr/bin/perl
#
# $Id$
use strict;
use warnings;
use My::ModPerlPm;
print <<"HERE";
# Auto-generated from: @{[ '$Id$' ]}
# DO NOT EDIT!
PerlOptions +GlobalRequest
HERE
print <<'HERE';
use Carp qw(confess cluck);
$SIG{"__WARN__"}=sub { $_[0]=~/\n./ ? warn @_ : cluck @_; };
$SIG{"__DIE__" }=sub { $_[0]=~/\n./ ? die @_ : confess @_; };
HERE
#
# Order Allow,Deny
# Deny from all
#
My::ModPerlPm->list("sub"=>sub {
my($p)=@_;
print <<"HERE"
PerlModule @{[ $p->{"module"} ]}
{"url"} ]}">
SetHandler modperl
PerlResponseHandler @{[ $p->{"module"} ]}
HERE
# Order Deny,Allow
# Allow from localhost
});
print <<"HERE";
# EOF
HERE