#! /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';
<Perl>
	use Carp qw(confess cluck);
	$SIG{"__WARN__"}=sub { $_[0]=~/\n./ ? warn @_ : cluck   @_; };
	$SIG{"__DIE__" }=sub { $_[0]=~/\n./ ? die  @_ : confess @_; };
</Perl>

<Directory "/">
	Order Allow,Deny
	Deny from all
</Directory>
HERE


My::ModPerlPm->list("sub"=>sub {
	my($p)=@_;
	print <<"HERE"

PerlModule @{[ $p->{"module"} ]}
<Location "@{[ $p->{"url"} ]}">
	SetHandler modperl
	PerlResponseHandler @{[ $p->{"module"} ]}
	Order Deny,Allow
	Allow from localhost
</Location>
HERE
	});

print <<"HERE";

# EOF
HERE
