#! /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 @_; };
Order Allow,Deny
Deny from all
HERE
My::ModPerlPm->list("sub"=>sub {
my($p)=@_;
print <<"HERE"
PerlModule @{[ $p->{"module"} ]}
{"url"} ]}">
SetHandler modperl
PerlResponseHandler @{[ $p->{"module"} ]}
Order Deny,Allow
Allow from localhost
HERE
});
print <<"HERE";
# EOF
HERE