.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  | will give a
.\" real vertical bar.  \*(C+ will give a nicer C++.  Capital omega is used to
.\" do unbreakable dashes and therefore won't be available.  \*(C` and \*(C'
.\" expand to `' in nroff, nothing in troff, for use with C<>.
.tr \(*W-|\(bv\*(Tr
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "Apache::Registry 3"
.TH Apache::Registry 3 "2007-03-30" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "NAME"
Apache::Registry \- Run unaltered CGI scrips under mod_perl
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\& #in httpd.conf
.Ve
.PP
.Vb 2
\& Alias /perl/ /perl/apache/scripts/ #optional
\& PerlModule Apache::Registry
.Ve
.PP
.Vb 5
\& <Location /perl>
\&   SetHandler perl-script
\&   PerlHandler Apache::Registry
\&   Options ExecCGI 
\& </Location>
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
URIs in the form of \f(CW\*(C`http://www.host.com/perl/file.pl\*(C'\fR will be
compiled as the body of a perl subroutine and executed.  Each server
process or 'child' will compile the subroutine once and store it in
memory. It will recompile it whenever the file is updated on disk.
Think of it as an object oriented server with each script implementing
a class loaded at runtime.
.PP
The file looks much like a \*(L"normal\*(R" script, but it is compiled or 'evaled'
into a subroutine.
.PP
Here's an example:
.PP
.Vb 4
\& my $r = Apache->request;
\& $r->content_type("text/html");
\& $r->send_http_header;
\& $r->print("Hi There!");
.Ve
.PP
This module emulates the \s-1CGI\s0 environment,
allowing programmers to write scripts that run under \s-1CGI\s0 or
mod_perl without change.  Existing \s-1CGI\s0 scripts may require some
changes, simply because a \s-1CGI\s0 script has a very short lifetime of one
\&\s-1HTTP\s0 request, allowing you to get away with \*(L"quick and dirty\*(R"
scripting.  Using mod_perl and Apache::Registry requires you to be
more careful, but it also gives new meaning to the word \*(L"quick\*(R"!
.PP
Be sure to read all mod_perl related documentation for more details,
including instructions for setting up an environment that looks exactly
like \s-1CGI:\s0
.PP
.Vb 2
\& print "Content-type: text/html\en\en";
\& print "Hi There!";
.Ve
.PP
Note that each httpd process or \*(L"child\*(R" must compile each script once,
so the first request to one server may seem slow, but each request
there after will be faster.  If your scripts are large and/or make use
of many Perl modules, this difference should be noticeable to the human
eye.
.SH "SECURITY"
.IX Header "SECURITY"
Apache::Registry::handler will preform the same checks as mod_cgi
before running the script.
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The Apache function `exit' overrides the Perl core built-in function.
.PP
The environment variable \fB\s-1GATEWAY_INTERFACE\s0\fR is set to \f(CW\*(C`CGI\-Perl/1.1\*(C'\fR.
.SH "COMMANDLINE SWITCHES IN FIRST LINE"
.IX Header "COMMANDLINE SWITCHES IN FIRST LINE"
Normally when a Perl script is run from the command line or under \s-1CGI\s0,
arguments on the `#!' line are passed to the perl interpreter for processing.
.PP
Apache::Registry currently only honors the \fB\-w\fR switch and will turn
on warnings using the \f(CW$^W\fR global variable.  Another common switch
used with \s-1CGI\s0 scripts is \fB\-T\fR to turn on taint checking.  This can
only be enabled when the server starts with the configuration
directive:
.PP
.Vb 1
\& PerlTaintCheck On
.Ve
.PP
However, if taint checking is not enabled, but the \fB\-T\fR switch is seen,
Apache::Registry will write a warning to the error_log.
.SH "DEBUGGING"
.IX Header "DEBUGGING"
You may set the debug level with the \f(CW$Apache::Registry::Debug\fR bitmask
.PP
.Vb 3
\& 1 => log recompile in errorlog
\& 2 => Apache::Debug::dump in case of $@
\& 4 => trace pedantically
.Ve
.SH "CAVEATS"
.IX Header "CAVEATS"
Apache::Registry makes things look just the \s-1CGI\s0 environment, however, you
must understand that this *is not CGI*.  Each httpd child will compile
your script into memory and keep it there, whereas \s-1CGI\s0 will run it once,
cleaning out the entire process space.  Many times you have heard
"always use \f(CW\*(C`\-w\*(C'\fR, always use \f(CW\*(C`\-w\*(C'\fR and 'use strict'".
This is more important here than anywhere else!
.PP
Your scripts cannot contain the _\|_END_\|_ or _\|_DATA_\|_ token to terminate
compilation.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
\&\fIperl\fR\|(1), \fImod_perl\fR\|(3), \fIApache\fR\|(3), \fIApache::Debug\fR\|(3)
.SH "AUTHORS"
.IX Header "AUTHORS"
Andreas J. Koenig and Doug MacEachern