httpd.conf.pl

   1 #! /usr/bin/perl
   2 #
   3 # $Id$
   4
   5
   6 use strict;
   7 use warnings;
   8 use My::ModPerlPm;
   9
  10
  11 print <<"HERE";
  12 # Auto-generated from: @{[ '$Id$' ]}
  13 # DO NOT EDIT!
  14
  15
  16 PerlOptions +GlobalRequest
  17
  18 HERE
  19 print <<'HERE';
  20 <Perl>
  21         use Carp qw(confess cluck);
  22         $SIG{"__WARN__"}=sub { $_[0]=~/\n./ ? warn @_ : cluck   @_; };
  23         $SIG{"__DIE__" }=sub { $_[0]=~/\n./ ? die  @_ : confess @_; };
  24 </Perl>
  25
  26 <Directory "/">
  27         Order Allow,Deny
  28         Deny from all
  29 </Directory>
  30 HERE
  31
  32
  33 My::ModPerlPm->list("sub"=>sub {
  34         my($p)=@_;
  35         print <<"HERE"
  36
  37 PerlModule @{[ $p->{"module"} ]}
  38 <Location "@{[ $p->{"url"} ]}">
  39         SetHandler modperl
  40         PerlResponseHandler @{[ $p->{"module"} ]}
  41         Order Deny,Allow
  42         Allow from localhost
  43 </Location>
  44 HERE
  45         });
  46
  47 print <<"HERE";
  48
  49 # EOF
  50 HERE