2_0_13 release branch git-svn-id: https://svn.apache.org/repos/asf/perl/modperl/branches/release@1913168 13f79535-47bb-0310-9956-ffa450edef68
diff --git a/2_0_13/BRANCHING b/2_0_13/BRANCHING new file mode 100644 index 0000000..ccb962f --- /dev/null +++ b/2_0_13/BRANCHING
@@ -0,0 +1,81 @@ +This doc explains how to create/work/re-merge svn branches + +####################################### +### PREREQUISITE ### +####################################### + +You need to have svnmerge installed and working +before you can proceed with rest of the instructions. + +You can find it here: + +http://www.orcaware.com/svn/wiki/Svnmerge.py + +####################################### +### make a new branch ### +####################################### + +we will create a branch mybranch + +branch: + + svn copy https://svn.apache.org/repos/asf/perl/modperl/trunk \ + https://svn.apache.org/repos/asf/perl/modperl/branches/mybranch \ + -m "creating mybranch" + +check out: + + svn co https://svn.apache.org/repos/asf/perl/modperl/branches/mybranch + +change externals to point to the new A-T branch (if one was done) + + svn propedit svn:externals . + +initialize svnmerge tracking in the branch (if you plan to pull trunk/ changes into the branch) + +mybranch/ $> svnmerge init +property 'svnmerge-integrated' set on '.' +mybranch/ $> svn ci -F svnmerge-commit-message.txt + + +initialize svnmerge tracking on the trunk: + +trunk/ $> svnmerge init https://svn.apache.org/repos/asf/perl/modperl/branches/mybranch +property 'svnmerge-integrated' set on '.' +mybranch/ $> svn ci -F svnmerge-commit-message.txt + + +############################################## +### merging changes from branch to brahch ### +############################################## + +Work from a clean checkout of the branch you want to merge *to* + +Check on the availability of changes to merge + +$> svnmerge avail -b -l + +------------------------------------------------------------------------ +r584362 | gozer | 2007-10-12 21:00:47 -0700 (Fri, 12 Oct 2007) | 1 line +Changed paths: + A /perl/modperl/branches/mybranch (from /perl/modperl/trunk:584361) + +creating mybranch +------------------------------------------------------------------------ +r584363 | gozer | 2007-10-12 21:05:32 -0700 (Fri, 12 Oct 2007) | 3 lines +Changed paths: + M /perl/modperl/branches/mybranch + +Initialized merge tracking via "svnmerge" with revisions "1-584361" from +https://svn.apache.org/repos/asf/perl/modperl/trunk + +Then merge the ones you want to merge + +$> svnmerge -r 584362-584363 + +review the changes, fix conflicts, etc + +Check in the merged version + +$> svn ci -F svnmerge-commit-message.txt +
diff --git a/2_0_13/CONTRIBUTING.md b/2_0_13/CONTRIBUTING.md new file mode 100644 index 0000000..b507419 --- /dev/null +++ b/2_0_13/CONTRIBUTING.md
@@ -0,0 +1,59 @@ +# How to Contribute + +Help with mod_perl is always welcome. You do not have to know any code +to help out - we also need help testing, answering questions, improving +documentation, etc. + + +## Issues + +Bugs and problems can be reported at: + +https://rt.cpan.org/Dist/Display.html?Name=mod_perl + +which can be accessed from the "Issues" link in the left-hand menu on +the metacpan.org page, https://metacpan.org/pod/mod_perl2 . + +(Note: You will need to log in to https://rt.cpan.org in order to get +the "Report a new bug" button on the bug tracker page.) + + +### Discussions + +There is a low-volume mailing list for mod_perl users and developers to +share ideas, solve problems and discuss things related to mod_perl and +the Apache::* modules. + +Send an email to <modperl@perl.apache.org>. Before doing so, you should +subscribe by sending an email to <modperl-subscribe@perl.apache.org>. +Send an email to <modperl-unsubscribe@perl.apache.org> to unsubscribe. + +There is also a low-volume mailing list for discussions about the +development of the core mod_perl. + +Send an email to <dev@perl.apache.org>. Before doing so, you should +subscribe by sending an email to <dev-subscribe@perl.apache.org>. +Send an email to <dev-unsubscribe@perl.apache.org> to unsubscribe. + + +## Testing + +You can help by testing mod_perl as widely as possible. Running the +tests on a wide variety of platforms, Apache httpd versions, Perl +versions and other factors is a great help in uncovering problems and +improving mod_perl. + + +## Code development + +Development happens in a Subversion repo. The canonical location is +currently at: + +https://svn.apache.org/repos/asf/perl/ + +The current mod_perl 2.0 development branch is at modperl/trunk under +the above URL. + +Create your own copy of that branch by running: + +svn co https://svn.apache.org/repos/asf/perl/modperl/trunk/ mod_perl2
diff --git a/2_0_13/Changes b/2_0_13/Changes new file mode 100644 index 0000000..19bfa2d --- /dev/null +++ b/2_0_13/Changes
@@ -0,0 +1,3007 @@ +=encoding utf8 + +=head1 NAME + +Changes - Apache mod_perl changes logfile + +=head1 CHANGES + +all changes without author attribution are by Doug MacEachern + +Also refer to the Apache::Test changes log file, at Apache-Test/Changes + +=over 3 + +=item 2.0.13 October 21, 2023 + +Use get_server_banner() instead of deprecated get_server_version() in +Apache2::Status. [Petr Písař <ppisar@redhat.com] + +Avoid generating APR precompiled headers. [Sam James <sam@gentoo.org>] + +Fix build for perl >= 5.37.1. [Jitka Plesnikova <jplesnik@redhat.com>] + +=item 2.0.12 January 30, 2022 + +Add bug tracker information to README, and add CONTRIBUTING.md. [Steve Hay] + +Fix detection of APR's threading support on RHEL 8. [Petr Písař +<ppisar@redhat.com>] + +Fix build for perl >= 5.33.7. [Leon Timmermans <fawaka@gmail.com>] + +Fix SIGSEGV crash due to wrong use of perl_parse(). [Charles Pigott +<cpigott@rapitasystems.com>] + +Improve installation instructions for AIX. [Rainer Tammer +<rainer.tammer@schulergroup.com>] + +=item 2.0.11 October 5, 2019 + +Fix t/modules/apache_resource.t failures [Steve Hay] + +Fix [CVE-2011-2767] Arbitrary Perl code execution in the context of the user +account via a user-owned .htaccess. Patch from bugs.debian.org #644169. [Jan +Ingvoldstad <jani+debian-2011+@ifi.uio.no>] + +Fix potential test suite hangs due to pipelined response deadlocks. Patch +from rt.cpan.org #82409. [Zefram <zefram@fysh.org>] + +Fix t/compat/request.t failures [Steve Hay] + +Fix use-after-free segfault in ap_server_config_defines seen on start-up on +OpenBSD. [Found/fixed by Sam Vaughan/Joe Orton] + +Fix build with Perls earlier than 5.13.6. [Rainer Jung +<rainer.jung@kippdata.de>] + +Fix filter/in_bbs_inject_header.t test failure with Apache 2.4.25+. [Stefan +Fritsch <sf@sfritsch.de>] + +Fix apache/read.t test failure with Apache 2.4.25+. [Niko Tyni +<ntyni@debian.org>] + +=item 2.0.10 October 27, 2016 + +Declare MP_vtbl_env and MP_vtbl_envelem as 'extern' to fix linker errors on +OSX/Darwin. [Michael Schout <mschout@gkg.net>] + +Automatically select the appropriate c89 option when modperl is being +built with either gcc 5 or clang. [Klaus S. Madsen <ksm@jobindex.dk>] + +Fix non-threaded Perl 5.22.x build and tests. [Klaus S. Madsen +<ksm@jobindex.dk>] + +Add support for Perl 5.22.x. [Niko Tyni <ntyni@iki.fi>, Steve Hay] + +=item 2.0.9 June 18, 2015 + +Add note to README about MP_INLINE problem when building with GCC 5. +[Niko Tyni <ntyni@debian.org>] + +Fix t/api/aplog.t for apr-1.5.2. [Steve Hay] + +Note that Perl 5.22.x is currently not supported. This is logged as +CPAN RT#101962 and will hopefully be addressed in 2.0.10. [Steve Hay] + +Fix unthreaded build, which was broken in 2.0.9-rc2. [Steve Hay] + +Remove PerlInterpScope. This has not been working properly with threaded +MPMs with httpd-2.4.x and the use-case of this directive was questionable. +[Jan Kaluza] + +Allow running the test suite with httpd-2.4.x when mod_access_compat is not +loaded. [Steve Hay] + +Add support for Apache httpd-2.4.x. [Torsten Foertsch, Jan Kaluza, +Steve Hay, Gozer] + +Don't call modperl_threaded_mpm() et al. from XS code. Fixes Debian Bug +#765174. [Niko Tyni <ntyni@debian.org>] + +Make sure modperl_interp_select uses r->server rather than the passed s +parameter to find the interpreter pool to pull an interpreter from. This +fixes an issue with vhosts with a separate interpreter pool and runtime +dir-config merges that used to pull the interpreter from the wrong pool. +[Torsten Foertsch] + +PerlInterpScope is now more advisory. Using $(c|r)->pnotes will bind +the current interpreter to that object for it's lifetime. +$(c|r)->pnotes_kill() can be used to prematurely drop pnotes and +remove this binding. [Torsten Foertsch] + +Now correctly invokes PerlCleanupHandlers, even if they are the only +handler type configured for that request [Torsten Foertsch] + +For threaded MPMs, change interpreter managment to a new, reference-counted +allocation model. [Torsten Foertsch] + +Expose modperl_interp_pool_t via ModPerl::InterpPool, modperl_tipool_t +via ModPerl::TiPool and modperl_tipool_config_t via ModPerl::TiPoolConfig +[Torsten Foertsch] + +Expose modperl_interp_t via ModPerl::Interpreter [Torsten Foertsch] + +Fix t/compat/apache_file.t on Windows. Apache::File->tmpfile() wants TMPDIR +or TEMP from the environment, or else defaults to /tmp. The latter is no +good on Windows, so make sure the environment variables are passed through. +(TEMP should be set to something suitable on Windows.) [Steve Hay] + +Fix t/api/err_headers_out.t with HTTP::Headers > 6.00. [Rolando +<rolosworld@gmail.com>] + +Fix the build with VC++ and dmake (rather than nmake) on Windows. The +Makefile generated by Apache2::Build uses shell commands for the manifest +file, but neglected to tell dmake to use the shell. [Steve Hay] + +Don't write an 'rpm' target into the Makefile on Windows. It isn't relevant +on Windows, and the (hard-coded, not MakeMaker-generated) recipe group has +syntax which dmake doesn't understand. [Steve Hay] + +=item 2.0.8 April 17, 2013 + +Perl 5.16.3's fix for a rehash-based DoS makes it more difficult to invoke +the workaround for the old hash collision attack, which breaks mod_perl's +t/perl/hash_attack.t. Patch from rt.cpan.org #83916 improves the fix +previously applied as revision 1455340. [Zefram] + +On Perl 5.17.6 and above, hash seeding has changed, and HvREHASH has +disappeared. Patch to update mod_perl accordingly from rt.cpan.org #83921. +[Zefram] + +Restore build with Perl 5.8.1, 5.8.2 etc: take care to use +$Config{useithreads} rather than $Config{usethreads}, and supply definitions +of Newx and Newxz as necessary. [Steve Hay] + +On Perl 5.17.9, t/apache/read2.t fails because an "uninitialized value" +warning is generated for the buffer being autovivified. This is because +the sv_setpvn() that's meant to vivify the buffer doesn't perform set +magic; the warning is generated by the immediately following SvPV_force(). +Patch to fix this from rt.cpan.org #83922. [Zefram] + +Fix t/perl/hash_attack.t to work with Perl 5.14.4, 5.16.3 etc, which +contain a fix for CVE-2013-1667 (memory exhaustion with arbitrary hash +keys). This resolves rt.perl.org #116863, from where the patch was taken. +[Hugo van der Sanden] + +use APR::Finfo instead of Perl's stat() in ModPerl::RegistryCooker to +generate HTTP code 404 even if the requested filename contains newlines +[Torsten] + +Remove all uses of deprecated core perl symbols. [Steve Hay] + +Add branch release tag to 'make tag' target. [Phred] + +=item 2.0.7 June 5, 2012 + +Fix breakage caused by removal of PL_uid et al from perl 5.16.0. Patch from +rt.cpan.org #77129. [Zefram] + +=item 2.0.6 April 24, 2012 + +Preserve 5.8 compatibility surrounding use of MUTABLE_CV [Adam Prime] + +Move code after declarations to keep MSVC++ compiler happy. [Steve Hay] + +Adopt modperl_pcw.c changes from httpd24 branch. [Torsten Foertsch] + +Pool cleanup functions must not longjmp. Catch these exceptions and turn +them into warnings. [Torsten Foertsch] + +Fix a race condition in our tipool management. +See http://www.gossamer-threads.com/lists/modperl/dev/104026 +Patch submitted by: SalusaSecondus <salusa@nationstates.net> +Reviewed by: Torsten Foertsch + +Ensure that MP_APXS is set when building on Win32 with MP_AP_PREFIX, +otherwise the bundled Reload and SizeLimit builds will fail to find a +properly configured Test environment. +[Steve Hay] + +Fix a few REFCNT bugs. +Patch submitted by: Niko Tyni <ntyni@debian.org> +Reviewed by: Torsten Foertsch + +Correct the initialization of the build config in ModPerl::MM. The global +variable was only being set once on loading the module, which was before +Apache2::BuildConfig.pm had been written, leading to cwd and MP_LIBNAME +being unset when writing the Reload and SizeLimit makefiles. +[Steve Hay] + +Discover apr-2-config from Apache 2.4 onwards. [Gozer] + +Apache 2.4 and onwards doesn't require linking the MPM module directly in +the httpd binary anymore. APXS lost the MPM_NAME query, so we can't assume +a given MPM anymore. Introduce a fake MPM 'dynamic' to represent this. +[Torsten Foertsch, Gozer] + +Perl 5.14 brought a few changes in Perl_sv_dup() that made a threaded apache +segfault while cloning interpreters. +[Torsten Foertsch] + +PerlIOApache_flush() and mpxs_Apache2__RequestRec_rflush() now no longer throw +exceptions when modperl_wbucket_flush() fails if the failure was just a reset +connection or an aborted connection. The failure is simply logged to the error +log instead. This should fix cases of httpd.exe crashing when users press the +Stop button in their web browsers. +[Steve Hay] + +Fixed a few issues that came up with LWP 6.00: +- t/response/TestAPI/request_rec.pm assumes HTTP/1.0 but LWP 6 uses 1.1 +- t/api/err_headers_out.t fails due to a bug somewhere in LWP 6 +- t/filter/TestFilter/out_str_reverse.pm sends the wrong content-length header +[Torsten Foertsch] + +Bugfix: Apache2::ServerUtil::get_server{description,banner,version} cannot +be declared as perl constants or they won't reflect added version components +if Apache2::ServerUtil is loaded before the PostConfig phase. Now, they +are ordinary perl functions. [Torsten Foertsch] + +Check for the right ExtUtils::Embed version during build [Torsten Foertsch] + +Take a lesson from rt.cpan.org #66085 and pass LD_LIBRARY_PATH if mod_env +is present. Should prevent test failures on some platforms. +[Fred Moyer] + + +=item 2.0.5 February 7, 2011 + +The mod_perl PMC dedicates this release of mod_perl to Randy Kobes, who +passed away in September 2010. Randy was a member of the mod_perl project +management committee and a co-author of the mod_perl Developer's Cookbook. +His work helped many Windows mod_perl users. His work with ppm files, and +Win32 perl users will be sorely missed. He was kind, bright, and always +willing to lend a hand on the mod_perl user's list. + +Prepare modperl for the upcoming perl 5.14 [Torsten Foertsch] + +Add lib/ModPerl/MethodLookup.pm to MANIFEST via lib/ModPerl/Manifest.pm +RT #48103 reported by MARKLE@cpan.org +[Fred Moyer] + +PerlIOApache_write() now throws an APR::Error object, rather than just a string +error, if modperl_wbucket_write() fails. +[Steve Hay] + +Authentication tests fail with LWP 5.815 and later +[Doug Schrag] + +Concise test won't perform unless StatusTerse is set to ON +[Doug Schrag] + +Look for a usable apxs in $ENV{PATH} if all other options fail, then prompt the user for one. +[Phred] + +Work around bootstrap warnings when Apache2::BuildConfig has not been created yet. +[Phred] + +Remove Apache::test compatibility (part of mod_perl 1.2.7), that code causes build issues and is 4 versions out of date. +[Phred] + +Make sure perl is built either with multiplicity and ithreads or without +both [Theory, Torsten] + +Support for "install_vendor" and "install_site" make targets [Torsten] + +Run tests on bundled pure perl Apache::* modules [Gozer, Phred] + +Implement a mini-preprocess language for map-files in xs/maps. +[Torsten Foertsch] + +Implement APR::Socket::fileno [Torsten Foertsch] + +Export PROXYREQ_RESPONSE, a missing PROXYREQ_* constant [Gozer] + +Make sure standard file descriptors are preserved by the perl-script +handler [Torsten Foertsch] + +Fix the filter init handler attribute check in +modperl_filter_resolve_init_handler() [Torsten Foertsch] + +Make sure buffer is a valid SV in modperl_filter_read() [Torsten Foertsch] + +Move modperl_response_finish() out of modperl_response_handler_run in +mod_perl.c [Torsten Foertsch] + +"MODPERL_INC= now correctly supported as an argument to Makefile.PL" +[Torsten Foertsch] + +Fix an XSS issue in Apache2::Status reported by Richard J. Brain +<richard@procheckup.com>. [Torsten Foertsch] + +Add NOTICE file to the distribution. [Joe Schaefer] + +Make sure Apache2::RequestIO::read doesn't clear the buffer on end of +file and handle negative offsets and offsets that are larger than +the current string length. [Torsten Foertsch] + +Fix a problem that could make APR::XSLoader and Apache2::XSLoader +load the wrong shared library. [Torsten Foertsch] + +Fix compilation when using a non-threaded APR. +[Gozer, Philip M. Gollucci] + +Make sure mod_perl's own ChildInitHandlers are run before user +supplied ones. This fixes the incorrectly reported value of $$ +at ChildInit time [Gozer] + +=item 2.0.4 April 16, 2008 + +Fix $r->location corruption under certain conditions +[Gozer] + +Fix a crash when spawning Perl threads under Perl 5.10 +[Gozer] + +Fix erratic behaviour when filters were used with Perl 5.10 +[Gozer] + +Fix problems with redefinitions of perl_free as free and perl_malloc +as malloc on Win32, as described at + http://marc.info/?l=apache-modperl&m=119896407510526&w=2 +[Tom Donovan] + +Fix a crash when running a sub-request from within a filter where +mod_perl was not the content handler. [Gozer] + +Refactor tests to use keepalives instead of same_interp [Gozer, Phred] + +Apache2::Reload has been moved to an externally maintained +CPAN distribution [Fred Moyer <fred@redhotpenguin.com>] + +PerlCleanupHandler are now registered with a subpool of $r->pool, +instead of $r->pool itself, ensuring they run _before_ any other +$r->pool cleanups [Torsten Foertsch] + +Fix a bug that would prevent pnotes from being cleaned up properly +at the end of the request [Torsten Foertsch] + +On Win32, embed the manifest file, if present, in mod_perl.so, +so as to work with VC 8 [Steve Hay, Randy Kobes] + +Expose apr_thread_rwlock_t with the APR::ThreadRWLock module +[Torsten Foertsch] + +Don't waste an extra interpreter anymore under threaded MPMs when using a +modperl handler [Torsten Foertsch] + +Fix a bug that could cause a crash when using $r->push_handlers() multiple +times for a phase that has no configured handlers [Torsten Foertsch] + +Catch up with some httpd API changes + 2.2.4: + The full server version information is now included in the error log at +startup as well as server status reports, irrespective of the setting +of the ServerTokens directive. ap_get_server_version() is now +deprecated, and is replaced by ap_get_server_banner() and +ap_get_server_description(). [Jeff Trawick] + + 2.3.0: +ap_get_server_version() has been removed. Third-party modules must +now use ap_get_server_banner() or ap_get_server_description(). +[Gozer] + +fixed Apache2::compat Apache2::ServerUtil::server_root() resolution +issues [Joshua Hoblitt] + +*) SECURITY: CVE-2007-1349 (cve.mitre.org) +fix unescaped variable interprolation in regular expression +[Randal L. Schwartz <merlyn@stonehenge.com>, Fred Moyer <fred@redhotpenguin.com>] + +Make $r->the_request() writeable +[Fred Moyer <fred@redhotpenguin.com>] + +fix ModPerl::RegistryCooker::read_script to handle all possible +errors, previously there was a case where Apache2::Const::OK was +returned on an error. [Eivind Eklund <eeklund@gmail.com>] + +a minor compilation warning resolved in modperl_handler_new_from_sv +[Stas] + +a minor compilation warning resolved in modperl_gtop_size_string +[Stas] + +Prevent direct use of _deprecated_ Apache2::ReadConfig in +<Perl> sections with httpd Alias directives from +incorrectly generating +'The Alias directive in xxxxx at line y will probably never match' +messages. +[Philip M. Gollucci <pgollucci@p6m78g.com>] + +Prevent Apache2::PerSections::symdump() from returning invalid +httpd.conf snippets like 'Alias undef' +[Philip M. Gollucci <pgollucci@p6m78g.com>] + +Require B-Size 0.9 for Apache2::Status which fixes +Can't call method "script_name" on an undefined value +[Philip M. Gollucci <pgollucci@p6m78g.com>] + +-march=pentium4 or anything with an = in it in CCFLAGS or @ARGV +that gets passed to xs/APR/APR/Makefile.PL broke the @ARGV +parsing. I.E. FreeBSD port builds when users had CPUTYPE +set in /etc/make.conf. +[Philip M. Gollucci <pgollucci@p6m7g8.com>] + +Fixes to get bleed-ithread (5.9.5+) to comile again. +[Philip M. Gollucci <pgollucci@p6m7g8.com>] + +=item 2.0.3 November 28, 2006 + +Prevent things in %INC that are not stat() able +from breaking Apache2::Status 'Loaded Modules' +under fatal warnings. +[Philip M. Gollucci <pgollucci@p6m7g8.com>] + +When using MP_AP_PREFIX on WIN32 make sure that its +a valid directory. +[Nikolay Ananiev <ananiev@thegdb.com>] + +Fix bug concerning 'error-notes' having no value on +errordocument redirect. +[Guy Albertelli II <guy@albertelli.com>] + +Multi-line $PerlConfig is now working [Gozer] + +PerlOptions None was previously incorrectly reported as invalid +inside <VirtualHost> or <Directory> blocks. +[Philip M. Gollucci] + +Require B::Size 0.07 and B::TerseSize 0.07 for Apache2::Status +[Philip M. Gollucci] + +Apache2::Status was expecting B::TerseSize to return +an op count for things that it didn't causing +requests like http://localhost/perl-status/main?noh_b_package_size +to cause 405s +[Philip M. Gollucci] + +Updates for Win32 to allow building and testing on Apache/2.2: +- use httpd.exe as the Apache binary name when installing apxs +- use new apr library names (libapr-1.lib and libaprutil-1.lib) +[Randy Kobes] + +Make sure that additional library paths are included in the build flags +so that mod_perl will use the same versions of libraries that APR does. +[Mike Smith <mike@mailchannels.com>] + +Added $r->connection->pnotes, identical to $r->pnotes, but +for the entire lifetime of the connection +[Geoffrey Young, Gozer] + +Fixed problems with add_config() and thread-safety: [Gozer] +- $s->add_config is not allowed anymore after server startup +- $r->add_config can only affect configuration for the current + request, just like .htaccess files do + +Make sure that LIBS and other MakeMaker command line flags are not +ignored by the top level Makefile.PL and xs/APR/APR/Makefile.PL [Stas] + +Corrected a typo that would cause the corruption of $), the +effective group id as Perl sees it [Gozer] + +Added support for httpd-2.2's new override_opts in Apache2::Access. +Calls to add_config() now accept an override_opts value as the 4th +argument. [Torsten Foertsch <torsten.foertsch@gmx.net>, Gozer] + +Fix 'PerlSwitches +inherit' that got broken somewhere along +the way to 2.0. You can also use 'PerlOptions +InheritSwitches' +for the same result. [Gozer] + +Add perl API corresponding to User and Group directives in httpd.conf: +Apache2::ServerUtil->user_id and Apache2::ServerUtil->group_id +[Stas] + +Apache2::Reload now first unloads all modified modules before +trying to reload them. This way, inter-module dependencies +are more likely to be correctly satisfied when reloaded +[Javier Uruen Val <juruen@warp.es>, Gozer] + +$r->add_config() can now take an optionnal 3rd argument that +specifies what pseudo <Location $path> the configuration is +evaluated into [Torsten Foertsch <torsten.foertsch@gmx.net>] + +remove -DAP_HAVE_DESIGNATED_INITIALIZER and -DAP_DEBUG from +MP_MAINTAINER mode to avoid collisions [Joe Orton] + +Back out r280262 which was causing Apache2::Reload to misbehave. +[JT Smith <jt@plainblack.com>] + +Perl_do_open/close fixes to make mod_perl 2.0 compile with +blead-perl@25889+ (5.9.3+) [Stas] + +Added Apache2::PerlSections->server, returning the server +into which the <Perl> section is defined [Gozer] + +Require B::Size and B::TerseSize v0.06 for Apache2::Status +options StatusTerse and StatusTerseSize which has now been +updated to support the new mod_perl2 api post RC5. +[Philip M. Gollucci] + +When using Apache2::PerlSections->dump, the configuration +would print out in the correct order, but when the configuration was +passed off to Apache the ordering was lost. +[Scott Wessels <swessels@usgn.net>] + +=item 2.0.2 - October 20, 2005 + +add :proxy import tag to Apache2::Const which exposes new +constants PROXYREQ_NONE, PROXYREQ_PROXY, and PROXYREQ_REVERSE +[Geoffrey Young] + +$0 Fixes : [Gozer] +- Setting $0 works on Linux again +- HP-UX and *BSDes show the correct process name instead of '-e' + +Fix a critical but trivial bug that would cause MP_MAINTAINER=1 +or MP_TRACE=1 builds to fail if not building against a threaded APR. +Functions such as apr_os_thread_current() would not be linked in, +but were expected to be. +[Philip M. Gollucci] + +Add the output of ldd(unix/cygwin) and otool -L (darwin) +for httpd to the mp2bug report script. +[Philip M. Gollucci] + +Prevent tools such as Apache2::Status's Loaded Modules screen +from displaying erroneous information about mod_perl.pm being loaded. +[Stas, Philip M. Gollucci] + +Correctly set the version of ModPerl::MethodLookup, previously, +it was not set because of the way it was Generating via ModPerl::WrapXS. +[Philip M. Gollucci] + +Improve the detection of whether or not we are in an mp2 build tree. +This allows usage of ExtUtils::MakeMaker options such as PREFIX to +not break the probe of mp2 build trees. +[Stas, Philip M. Gollucci] + +Add support for the newer Smaps (/proc/self/statm) on Linux +systems that support it (i.e. linux-2.6.13-rc4-mm1) +to accurately count the amount of shared memory. +[Torsten Foertsch <torsten.foertsch gmx.net>] + +On cygwin some dlls might happen to be with identical base addresses +and if you try to load both of them you'll get an error and you'll +have to use the rebase utility to fix them. this fix should prevent +this. [Nikolay Ananiev <ananiev@thegdb.com>] + +Fix an undefined warning in DSO builds when not using MP_APXS. +[Nikolay Ananiev <ananiev@thegdb.com>] + +When running Makefile.PL with the MP_MAINTAINER=1 option +add -Wdeclaration-after-statement if we are using gcc +version 3.3.2 or higher and its not already part of the ccopts. +[Philip M. Gollucci, Gozer] + +Several fixes to Apache2::Status +[Philip M. Gollucci] + +When using Apache2::Reload and ReloadDebug is set to 'On', +sort the output alphabetically [Philip M. Gollucci] + +croak in case a filter returns DECLINED after calling $f->read (as it +is not supposed to happen) [Stas] + +another round of cygwin fixes [Nikolay Ananiev <ananiev@thegdb.com>] + +Multiple fixes to make mod_perl 2.0 work with blead-perl (5.9.3+) +[Stas] + +t/modules/reload.t would fail if run more than 3 times, breaking +smokes [Gozer] + +filter flushing now doesn't croak on connection reset +(ECONNRESET/ECONNABORTED), but just logs the event on the 'info' +level. [Stas] + +RPM Friendly builds : [Gozer] +- make dist tarballs can now be built directly into RPMs with rpmbuild +- Added a new target 'make rpm' to directly build rpms from a checkout + + + +=item 2.0.1 - June 17, 2005 + +B::Terse has problems with XS code, so adjust Apache::Status to eval +{} the code doing Syntax Tree Dump: syntax and execution order options +[Stas] + +Fix a broken regexp in Apache2::Build::dir() on win32 that would +incorrectly attempt to fully-qualify paths like c:/some/path +[Nikolay Ananiev <ananiev@thegdb.com>] + +Fix the "No library found" warnings when building on win32 without +apxs and MP_AP_PREFIX [Nikolay Ananiev <ananiev@thegdb.com>] + +The pure-perl ModPerl::Util::unload_package implementation was +accidently deleting sub-stashes [Gozer] + +If running Makefile.PL unnatended (STDIN isn't a terminal or +MP_PROMPT_DEFAULT=1), break out of potentially infinite prompt +loops [Gozer] + +fix ModPerl::TestReport used by t/REPORT and mp2bug to use +ExtUtils::MakeMaker's MM->parse_version to get the interesting +packages version number, w/o trying to load them (which may fail if +the environment is not right) [Stas] + +fix a bug in ModPerl::RegistryCooker: now stripping __(END|DATA)__ +only at the beginning of the line [Stas] + +APR::Base64 : [Torsten Foertsch <torsten.foertsch@gmx.net>] +- fix encode_len() to return the length without accounting for the +terminating '\0' as the C API does. +- fix encode() to create the string of the correct length (previously +was creating one too many) + +in mod_perl callbacks merge error-notes entries rather than store just +the newest error [Mark <mark@immermail.com>] + +Expose Apache2::Const::EXEC_ON_READ (added to the :override group) +[Stas] + +Fix a bug in custom directive implementation, where the code called +from modperl_module_config_merge() was setting the global context +after selecting the new interpreter which was leading to a segfault in +any handler called thereafter, whose context was different +beforehand. [Stas] + + + +=item 2.0.0 - May 20, 2005 + +fix global anon_cnt double-initialization bug that was causing +startup segfaults on OSX. [Gozer] + +fix the ap_install target in the top-level Makefile (used for static +build) [Stas] + +Reintroduce a pure-Perl version of ModPerl::Util::unload_package() +The problematic XS version is now called unload_package_xs() and +not used by default [Gozer] + +More APR::Status wrappers: [Stas, Randy Kobes] +- is_EOF +- is_ECONNABORTED +- is_ECONNRESET +- is_TIMEUP + +make sure that the build picks up the include directories based on the +apxs queries and only search the httpd source if $self->{MP_AP_PREFIX} +was set. Earlier it was always picking the headers from the httpd +source if it was available, which was resulting in the wrong headers +if the installed httpd was different than the source that was found +[Stas] + +introduce ModPerl::RegistryPrefork and ModPerl::PerlRunPrefork, which +behave the same as ModPerl::Registry and ModPerl::PerlRun, +respectively, but chdir to the script's directory like mod_cgi +does. These two new handlers will refuse to load under threaded MPMs +where chdir can't be used as it will affect all running threads [Stas] + +ModPerl::RegistryCooker::chdir_file_normal() now chdirs to the current +script's directory or the specified directory as an argument, as it +was planned in first place. Therefore switch ModPerl::Registry and +ModPerl::PerlRun to us NOP for this method call. If chdir_file is +mapped to chdir_file_normal(), then run() and +convert_script_to_compiled_handler() now call chdir to the script's +directory and at before returning go back to the server root. [Stas] + +prevent undef warnings in catfile() calls in Apache2::Build when +called from the ModPerl-Registry tree [Stas] + +fix modperl_brigade_dump to use apr_file_printf() instead of +fprintf(), which doesn't work everywhere [Stas] + +Fix a warning triggered by `ln` on Cygwin, when running perl +Makefile.PL for a second time without previously running make +clean. [Nikolay Ananiev <ananiev@thegdb.com>] + +When compiling a static mod_perl and +MP_AP_CONFIGURE="--with-apr=/some/path" argument is given, Apache will +use the apr-config at the given path, but mod_perl was using the +default at "srclib/apr/.libs". Fix that [Nikolay Ananiev <ananiev@thegdb.com>] + +Show MP_APU_CONFIG as an argument to Makefile.PL in the Usage +menu. [Nikolay Ananiev <ananiev@thegdb.com>] + +Makefile.PL: fix the pre-rename mp2 install diagnostics code, to use +the mp version of 1.999xx and not 1.999_xx, as the latter is +unsuitable for numerical comparison, also fix the name of the reported +conflicting directory [Stas]. + +add APR::Status::is_(EACCES|ENOENT), and use in ModPerl::RegistryCooker +to return, as appropriate, Apache2::Const::(FORBIDDEN|NOT_FOUND), +based on $@. Also remove a check in modperl_slurp_filename +of src/modules/perl/modperl_util.c to enable $@ to be set when +opening or reading a file fails. This fixes a bug on Win32, revealed +in 404.t and redirect.t of the ModPerl-Registry tests, as reported +by Steve Hay and Markus Wichitill [Stas, Randy Kobes] + +link Apache2::* and ModPerl::* to mod_perl.a and DynaLoader.a, but +-lmod_perl and -lDynaLoader don't work, and we can't supply the full +paths, because MakeMaker doesn't allow this. I workaround this by +making a symlink to mod_perl.a (called libmod_perl.a) and copy +DynaLoader.a to libDynaLoader.a (I don't create a symlink, because, +when running make clean, the real DynaLoader.a may get deleted). The +APR::* extensions are not affected, because in both cases we link them +against aprext. Also other small fixes are added. [Nikolay Ananiev +<ananiev@thegdb.com>] + + + + +=item 1.999_23 - May 3, 2005 + +fix Apache2::Build::dynamic_link_MSWin32 to generate a new line after +dynamic_link code in Makefile [Nikolay Ananiev <ananiev@thegdb.com>] + +fix a warning in Apache2::Build::build_config() when building +with MP_STATIC_EXTS=1 [Nikolay Ananiev <ananiev@thegdb.com>] + +improving DSO support on cygwin. The problem with cygwin is that it +behaves like windows (it's a posix layer over windows after +all). That's why we need to supply all symbols during linking time +just like on win32, by adding -lapr-0 -laprutil-0 and -lhttpd. On +windows, Apache supplies all the three libraries and it's easy to +link, but on cygwin apache doesn't play nice and doesn't supply +libhttpd. This change adds libapr and libaprutil. [Nikolay Ananiev +<ananiev@thegdb.com>] + +improve the diagnostics when detecting mp2 < 1.999022, tell the user +which files and/or dirs need to be removed [Stas] + +restore the DESTDIR support partially nuked by the apache2 rename +branch [Torsten Förtsch <torsten.foertsch gmx.net>] + +add APR::Status to provide functions corresponding to the +APR_STATUS_IS_* macros of apr_errno.h, especially those composites +like APR_STATUS_IS_EAGAIN(s) which are satisfied by more than one +specific error condition. Presently only APR_STATUS_IS_EAGAIN is +provided [Randy Kobes] + +fix the generation of the manpages for .pm files from sub-projects +like ModPerl-Registry (previously was creating manpage files like +.::ModPerl::PerlRun.3) [Stas] + +fix the pod2man'ification part of 'make install' (using POD2MAN_EXE +instead of POD2MAN Makefile macro) [Stas] + + +=item 1.999_22 - April 14, 2005 + + ******************** IMPORTANT ******************** + this version of mod_perl is completely incompatible + with prior versions of mod_perl, both 1.XX and + 1.99_XX. Please read the below changes carefully. + *************************************************** + +remove MP_INST_APACHE2 installation option and Apache2.pm - all +mod_perl related files will now be installed so they are visible +via standard @INC. also, refuse to install over mod_perl 2 versions +less than 1.999_22. [Geoffrey Young] + +s/Apache::/Apache2::/g and s/mod_perl/mod_perl2/g in all module +APIs. so, Apache::RequestRec is now Apache2::RequestRec, +Apache::compat is now Apache2::compat, and so on. [joes] + +move all Apache:: constants to Apache2::Const and all APR:: constants +to APR::Const. for example, Apache:OK is now Apache2::Const::OK and +APR::SUCCESS is now APR::Const::SUCCESS. [Geoffrey Young] + +add $ENV{MOD_PERL_API_VERSION} as something that clearly distinguishes +which mod_perl version is being used at request time. [Geoffrey Young] + +rename Apache->request() to Apache2::RequestUtil->request(), and +Apache->server() to Apache2::ServerUtil->server() +[Geoffrey Young] + +fix Apache2::Status which was bailing out on trying to load modules +with dev versions like 2.121_02 [Stas] + +When parsing Makefile.PL MP_* options, handle correctly the MP_FOO=0 +entries [Philip M. Gollucci <pgollucci@p6m7g8.com>] + +init the anonsub hash for base perl and each vhost +Parent (previously +was init'ed only for the base perl) [Stas] + +fix a bug when a non-threaded perl is used and anonymous sub is pushed +at the server startup (the CV wasn't surviving) [Stas] + +Make sure that CPAN shell doesn't triple over usage of +$ExtUtils::MakeMaker::VERSION [Randy Kobes] + +Apache2::RequestRec->new now sets $r->request_time [Stas] + +remove CGI.pm and Apache::Request dependencies from Apache2::Status +since they weren't used at all [Geoffrey Young] + +Fixes for Apache2::Reload's touchfile feature (return Apache2::Const::OK +instead of 1) [Chris Warren <chwarren@cisco.com>] + +cygwin fixes: [Nikolay Ananiev <ananiev@thegdb.com>] +- doesn't like XS wrapper starting with 'static' +- need to compile everything with -DCYGWIN + +ModPerl::RegistryCooker API change: s/rewrite_shebang/shebang_to_perl/ +the new API now returns the string to prepend before the rest of the +script, instead of rewriting the content, which is both faster and +doesn't mislead the perl debugger [Dominique Quatravaux +<dom@idealx.com>] + +Starting from ExtUtils::MakeMaker 6.26 went back to pm_to_blib target +from pm_to_blib.ts introduced in 6.22, so needed to fix the glue_pod +target, so install will work correctly [Stas] + +Syntax errors in <Perl> sections were not correctly caught and +reported. [Gozer] + +when building mp2 EU::MM looks into Apache-Test/MANIFEST and complains +about the missing Apache-Test/META.yml (which is indeed not included +in the modperl package due to the PAUSE problems of dealing with more +than one META.yml. Solution: Exclude Apache-Test/MANIFEST from +mod_perl distribution package. [Stas] + +ModPerl::Registry no longer checks for -x bit (we don't executed +scripts anyway), and thus works on acl-based filesystems. Also +replaced the -r check with a proper error handling when the file is +read in. [Damon Buckwalter <buckwad@gmail.com>] + +Apache2::RequestUtil::slurp_filename now throws an APR::Error exception +object (before it was just croaking). [Stas] + +fix APR::Error's overload of '==' (it was always returning true +before), and add the corresponding '!=' [Stas] + +if $r->document_root was modified, restore it at the end of request +[joes] + +Apache2::ServerRec method which set the non-integer fields in the +server_rec, now copy the value from the perl scalar, so if it changes +or goes out of scope the C struct is not affected. Using internal perl +variables to preserve the value, since using the server pool to +allocate the memory will mean a memory leak [Stas] + +add the escape_url entry in the ModPerl::MethodLookup knowledgebase +[Stas] + +Apache2::SubProcess::spawn_proc_prog now can be called in a void +context, in which case all the communication std pipes will be closed +[Stas] + +fix a bug in $r->document_root, which previously weren't copying the +new string away [Stas] + +introduce a new build option MP_AP_DESTDIR to aid package builders +direct the Apache-specific files to the right place. [Cory Omand +<Cory.Omand@Sun.COM>] + +Fix bug in modperl_package_clear_stash() segfaulting when +encountering declared but not yet defined subroutines. +[Steve Hay <steve.hay@uk.radan.com>, Gozer] + +win32 needs PERL_SYS_INIT3/PERL_SYS_TERM calls [Steve Hay +<steve.hay@uk.radan.com>] + +Fix broken MP_STATIC_EXTS=1 build. [Gozer] + +Perl -Duse64bit fix. Pointers can't just be generically +casted from/to IVs. Use PTR2IV/INT2PTR instead. [Gozer] + +Perl -Duse64bit fix. apr_size_t pointers can't just be generically +casted from/to UVs. Use PTR2UV/INT2PTR instead. [Gozer] + +fix a bug in Apache2::Build::dir: If the right directory isn't found in +the for loop $dir still contains a > value, so the ||= has no +effect. [Nick Wellnhofer <wellnhofer@aevum.de>] + + + +=item 1.999_21 - January 22, 2005 + +PerlPostConfigRequire was trying to detect missing files early on, +but without searching thru @INC, causing false negatives. Better off +skipping that check and leave it to modperl_require_file() to report +problems with finding the file. [Patrick LeBoutillier +<patrick.leboutillier@gmail.com>, Gozer] + +add a perl bug workaround: with USE_ITHREADS perl leaks pthread_key_t +on every reload of libperl.{a,so} (it's allocated on the very first +perl_alloc() and never freed). This becomes a problem on apache +restart: if the OS limit is 1024, 1024 restarts later things will +start crashing [Gisle Aas <gisle@ActiveState.com>, Stas] + +on Irix mod_perl.so needs to see the libperl.so symbols, which +requires the -exports option immediately before -lperl. [Gordon Lack +<gml4410@ggr.co.uk>] + +pool arguments to startup and connection callbacks must be blessed +into APR::Pool and not Apache::Pool class [joes] + +Make PerlSetEnv, PerlPassEnv and %ENV in PerlRequre, PerlModule, +PerlConfigRequire and PerlPostConfigRequire affect each other, so a +change in one of these is immediately seen in the others. [Pratik +<pratiknaik gmail.com>, Stas] + + + +=item 1.999_20 - January 5, 2005 + +the autogenerated modules (and some implemented in xs/ modules) are +now getting the same version number as $mod_perl::VERSION (the +exception are APR modules which get 0.009_000 for now). [Stas] + +until we figure out how to tell PAUSE index about versions of the +autogenerated modules, create a fake module which lists all the +autogenerated modules and their versions and include that in the +distro. [Stas] + +moving to the triplet version notation, which requires us to bump 1.99 +=> 1.999 so 1.999020 (mp2) > 1.29 (mp1). [Stas] +Now we are gong to have: + $mod_perl::VERSION : "1.099020" + int $mod_perl::VERSION : 1.09902 + $mod_perl::VERSION_TRIPLET: 1.99.20 + +<Perl> and PerlPostConfigRequires were leaking some memory at +startup. Use parms->temp_pool instead of parms->pool for temporary +memory allocations. [Gozer] + +deal with a situation where an object is used to construct another +object, but it's then auto-DESTROYed by perl rendering the object that +used it corrupted. the solution is to make the newly created objects +refer to the underlying object via magic attachment. only objects +using objects that have DESTROY are effected. This concerns some of +the methods accepting the custom APR::Pool object (not native pools +like $r->pool). [Stas] +Adjusted: +- APR::Brigade: new +- APR::Finfo: stat +- APR::IpSubnet: new +- APR::Table: copy, overlay, make +- APR::ThreadMutex: new +- APR::URI: parse +- Apache::RequestUtil: new +- APR::Pool: new +- APR::BucketAlloc: new + +APR::Bucket::alloc_create moved to APR::BucketAlloc::new +APR::Bucket::alloc_destroy moved to APR::BucketAlloc::destroy [Stas] + +prefork handlers optimisation: don't dup the handler struct unless +this is a threaded-mpm [Stas] + +speed up the 'perl Makefile.PL' stage [Randy Kobes]: + - reduce the number of calls to build_config() of + Apache::Build within ModPerl::BuildMM + - cache the results of the calls to apxs_cflags, apxs_extra_cflags, + and apxs_extra_cppflags in Apache::Build + - in apxs of Apache::Build, return a cached result only when defined + +move ModPerl::Util::exit() into mod_perl.so, since it needs to work, +even if ModPerl::Util wasn't loaded [Stas] + + + +=item 1.99_19 - December 23, 2004 + +$r->hostname is now writable [Gozer] + +Static build with a Perl without ithreads and a non-threaded MPM +would segfault on startup. Caused by a bug in perl's perl_shutdown() +code. Fixed in Perl 5.8.2, so it's now a build requirement [Gozer] + +replace the added in 1.99_17 code on resetting/restoring PL_tainted, +with explicit reset before and after each each callback. This solves a +complicated tainting issues caused when perl exception object is +thrown. rgs suggested that it should be safe, similar to perl's own +pp_nextstate which says: /* Each statement is presumed innocent */ +[Stas] + +New configuration directives: [Gozer] + - PerlConfigRequire + Just like PerlRequire, but _always_ triggers an immediate + interpreter startup + - PerlPostConfigRequire + A delayed form of PerlRequire, that waits until the post_config + phase before require'ing files + +fix a warning in Apache::Status [John Williams <williams tni.com>] + +Ignore Apache-Test/META.yml in distribution tarballs until PAUSE +is capable of handling multiple META.yml files in one distro [Gozer] + +modperl_exports.c now wraps all exported functions in a #ifndef +function_name wrapper to help in weeding out functions that only make +sense for certain Perl configurations (perlio, threads) (which also +fixes static build against perlio-disabled perls, like 5.6.x) [Gozer] + +for make test, skip configuring fastcgi if it's found in the global +httpd.conf, as it causes crashes in the test suite [Stas] + +fix Makefile.PL arguments parser to support more than one MP_foo +option on the same line (including .makepl_args.mod_perl2 file) [Stas] + +fix compilation issues in ModPerl::Util::current_perl_id (on some +builds newSVpvf can't be resolved but Perl_newSVpvf works just +fine). [Stas, Markus Wichitill <mawic@gmx.de>] + +fix APR::Error::str to return a lexical variable, rather than a +string. This function is called by SvTRUE in modperl_errsv() via +overload and on win32 (and randomly on linux) causes crashes via: +"Attempt to free temp prematurely" warning, where this 'temp' is the +string returned by this function. Making it a lexical variable before +returning it, resolves the problem. [Steve Hay] + +fix META.yaml s/private/no_index/ (to hide the bundled Apache-Test +from PAUSE indexer) [Randy Kobes] + + + +=item 1.99_18 - December 12, 2004 + +Fix x86_64 warnings in modperl_restart_count_*, due to casting between +integers and pointer types [Joe Orton] + +open_logs and post_config handlers require the Apache::OK return code +or the server aborts, so we need to log an error in case the handler +didn't fail but returned something different from Apache::OK [Stas] + +new function ModPerl::Util::current_perl_id() which returns something +like (.e.g 0x92ac760) (aTHX) under threaded mpm and 0 under +non-threaded perl (0x0). Useful for debugging modperl under threaded +perls. [Stas] + +make sure that modperl's internal post_config callback, which amongst +other things, cloning perl interpreters is running as +modperl_hook_post_config_last APR_HOOK_REALLY_LAST, which ensures that +user's post_config callbacks are run before the cloning. now the code +from config phase's startup.pl can be safely moved to the post_config +phase's equivalent. [Stas] + +Further sync with libapr constants changes: [Stas] +- the constants + APR::(READ|WRITE|CREATE|APPEND|TRUNCATE|BINARY|EXCL|BUFFERED|DELONCLOSE) + now have a prefix APR::FOPEN_ and moved group s/filemode/fopen/ +- constants from the fileprot group moved to the fprot group and the + prefix has changed: from APR::FILEPROT_ to APR::FPROT_ +- this also fixes the import of APR_EXCL as an error constant + +$r->print() and tied print() now return 0E0 (zero but true) when the +call was successful but for zero bytes. [Geoffrey Young] + +a new function Apache::ServerUtil::server_shutdown_cleanup_register to +register cleanups to be run at server shutdown. [Stas] + +$bb->cleanup is no more segfaulting (was segfaulting due to a broken +prototype in APR, and consequently invalid XS glue code) [Randy Kobes, +Stas] + +make sure that ABSPERLRUN and ABSPERLRUN are defined in +src/modules/perl/Makefile (needed by win32 build) [Stas] + +For static builds, mod_perl header files were being installed +into apache's source tree instead of where apache installed it's +own headers [Gozer] + +modperl_threads_started() wasn't working under static worker build, +due to MP_threads_started static variable not being reset on +restart. Now resetting it. [Stas] + +@INC shrinking efforts: [Stas] +1) when adding $ServerRoot don't add the trailing / (as it ends up +twice when added by A-T w/o trailing /) +2) add $ServerRoot/lib/perl only if it actually exists + +For static builds, we now run 'make clean' in httpd's source +tree before running ./configure if the source tree has been +configured before [Gozer] + +Apache::SizeLimit ported [Perrin Harkins <perrin elem.com>] + +create a new subpool modperl_server_user_pool (from +modperl_server_pool), which is used internally by +Apache::ServerUtil::server_restart_register. This ensures that +user-registered cleanups are run *before* perl's internals cleanups +are run. (previously there was a problem with non-threaded perls which +were segfaulting on user cleanups, since perl was already gone by that +time). [Stas] + +Starting from ExtUtils::MakeMaker 6.22 it no longer generates +pm_to_blib target, but pm_to_blib.ts, so needed to fix the glue_pod +target, so install will work correctly [Stas] + +Apache::RequestUtil : $r->child_terminate() implemented for +non-threaded MPMs. [Gozer] + +new API Apache::ServerUtil::restart_count() which can be used to tell +whether the server is starting/restarting/gracefully +restarting/etc. Based on this feature implement +$Apache::Server::Starting and $Apache::Server::ReStarting in +Apache::compat [Stas] + +Apache::Resource ported to mp2 [Stas] + +If none of MP_APXS, MP_AP_PREFIX and MP_USE_STATIC were specified when +configuring Makefile.PL, we now prompt for APXS path first and only if +that fails ask for MP_AP_PREFIX. This is a requirement to get 'make +test' find httpd. [Stas] + +Dynamically prompt and add MP_INST_APACHE2=1 when installing on +systems with mod_perl 1 preinstalled. [Stas] + +fix the logging call in RegistryCooker [Lars Eggert <lars.eggert +netlab.nec.de>] + +fix $r->filename in Apache::compat to update the finfo struct (which +is how it worked in mp1) [Stas] + +enclose all occurences of eval_* with ENTER;SAVETMPS; +... FREETMPS;LEAVE; previously things just happened to work, due to +external scopes which was not very reliable and some change could +introduce obsure bugs. [Stas] + +in case a native apache response filter is configured outside the +<Location> block with PerlSet*Filter directive, make sure that +mod_perl doesn't try to add it as connection filter (previously was +logging an error like: [error] a content filter was added without a +request: includes) [Stas] + +replace the slow implementation of anon handlers using B::Deparse, +with per-interpreter cache of compiled CODE refs (sort of emulating +named subroutines for anonymous handlers) [Stas]. + +avoid segfaults when a bogus $r object is used [Stas] + +Remove magicness of PerlLoadModule and implement Apache::Module::add() +for modules that implement their own configuration directives [Gozer] + +Apache::Connection::remote_ip is now settable (needed to set the +remote_ip record based on proxy's X-Forwarded-For header) [Stas] + +Fix Modperl::Util::unload_package() [Gozer] + - Mistakenly skipping small entries of size 2 and less + - Leave entries from other packages alone + +$filter->remove now works with native (non-modperl) filters + test +[Torsten Förtsch <torsten.foertsch gmx.net>] + + + +=item 1.99_17 - October 22, 2004 + +Implement Apache->unescape_url_info in Apache::compat and drop it +from the official API for CGI::Util::unescape() as a suggested +replacement [Gozer] + +fix xs_generate to croak on duplicate entries in xs/maps files +[Christian Krause <chkr plauener.de>] + +Workaround a possible bug in Perl_load_module() [Gozer] + +Fix a problem building with non-GNU make (can't make target dynamic +in xs/APR/aprext) [Gozer] + +escape HTML in dumped variables by Apache::Status [Markus Wichitill +<mawic@gmx.de>] + +$r->document_root can now be changed when safe to do so [Gozer] + +APR::Bucket->new now requires an APR::BucketAlloc as its first argument. +New subs added: APR::Bucket::setaside, APR::Bucket::alloc_create, +APR::Bucket::alloc_destroy, APR::Brigade::bucket_alloc. [joes] + +reimplement APR::Pool life-scope handling, (the previous +implementation had problems) [joes] + +make sure that Apache::Filter::read, APR::Socket::recv, +Apache::RequestIO::read, APR::Brigade::flatten, and APR::Bucket::read +all return tainted data under -T [Stas] + +tag the custom pools created by mod_perl for easier pools debug [Joe +Orton] + +fix a bug in non-ithreaded-perl implementation where the cached +compiled CODE refs of httpd.conf-inlined one-liner handlers like: +PerlFixupHandler 'sub { use Apache::Const qw(DECLINED); DECLINED }' +didn't have the reference count right. [Stas] + +per-server PerlSetEnv and PerlPassEnv values are properly added +to %ENV when only a per-directory handler is configured. +[Geoffrey Young] + +resolve several 'Use of uninitialized value in...' warnings in +Apache::Status [Stas]. + +make install and static build now correctly installs mod_perl as +well as the statically built apache [Gozer] + +if some code changes the current interpreter's tainted state to on, +the return value from the handler callback will be tainted, and we +fail to deal with that. So revert to coercing any return value, but +undef (a special case for exit()). to IV, so that tainted values are +handled correctly as well. [Stas] + +make sure that each handler callback starts with a pristine +tainted-ness state, so that previous callback calls won't affect the +consequent ones. Without this change any handler triggering eval or +another function call, that checks TAINT_PROPER, will crash mod_perl +with: "Insecure dependency in eval while running setgid. Callback +called exit." farewell message [Stas] + +make sure that 'make distclean' cleans all the autogenerated files +[Stas] + +$r->log_reason has been ported and moved out of Apache::compat +[Gozer] + +APR::OS::thread_current renamed APR::OS::current_thread_id and +now returns the actual thread_id instead of an object that +needed to be dereferenced to get at the thread_id [Gozer] + +change a bunch of the APR:: constants to have a better prefix +(APR::FILETYPE_* and APR::FILEPROT_). libapr will be changed soon too +[Stas] + +Generate modperl_exports.c for static builds to prevent the +linker from stripping needed but unused symbols [Gozer] + +Add .libs/ as part of the library search path when building +against httpd's source tree [Gozer] + +In the static build, run make in httpd's srclib/ early to have +generated files present at mod_perl configure time [Gozer] + +When searching for ap(r|u)-config in httpd's source tree, search +into srclib/apr-util as well as srclib/apr [Gozer] + +Remove APR::Finfo::pool as it has no use to us [Stas] + +get PerlSetVar and PerlAddVar multi-level merges to (finally) work +properly. [Rici Lake <rici ricilake.net>] + +MP_AP_BUILD configure option removed. Now implicit when MP_USE_STATIC +is specified [Gozer] + +Apache::Module $mod->version() and $mod->minor_version() renamed +to $mod->ap_api_major_version() and $mod->ap_api_minor_version +for clarity [Gozer] + +Apache::Log changes: [Stas] + - moved to compat: Apache::warn, Apache->warn, Apache::Server->warn, + Apache::Server::warn + - re-enabled $r->warn + - removed support for Apache::ServerRec->warn + (Apache::ServerRec::warn is still there) + +Apache::Directive conftree() changed from class method to +regular subroutine [Gozer] + +Apache::Module top_module() and get_config() as class methods +added to Apache::compat for backwards compatibility [Gozer] + +Apache::Module top_module() and get_config() changed from class +methods to regular subroutines [Gozer] + +Added Apache::CmdParms::add_config() to work around a memory +leak discovered with <Perl> sections in .htaccess files [Gozer] + +Added ModPerl::Util::unload_package() to remove a loaded package +as thoroughly as possible by clearing it's stash. [Gozer] + +fix Apache->request($r) to be set-able even w/: PerlOptions +-GlobalRequest [Stas] + +Add Apache::Reload->unregister_module() to explicitely remove a +module from Apache::Reload's monitoring list [Gozer] + +introduce a custom modperl error message for failing filter handlers +(previously 'unknown error' coming from rc=500 was logged) [Stas] + +Fix Apache::Log methods/functions to log into the vhost's error_log +file (if there is one). ( $s->log->*, $s->log_error, $s->log_serror, +Apache::ServerRec::warn, etc.). Apache::ServerRec can now export its +warn function to override CORE::warn [Stas] + +Fix $s->log->*, $s->log_error and $s->log_serror to again log into the +vhost's error_log file (if there is one). [Stas] + +$s->log->warn and other $s->log->foo are now logging to the right +vhost server and not the global one. modperl_sv2server_rec was +broken. [Stas] + +Fix a glue_pod make target bug, when .pm file doesn't exist, +e.g. ThreadMutex.pm is not created on unless +$apr_config->{HAS_THREADS} [Stas] + +Introduce APR::Socket::poll to poll a non-blocking socket [Ken Simpson +<ksimpson@larch.mailchannels.com>] + +Fix the error message when the minimal required httpd version is not +satisfied [Pratik <pratiknaik@gmail.com>] + +Fix interactive prompting at perl Makefile.PL, when no APXS or +MP_AP_PREFIX were provided. now asking for an alternative location if +the suggested choices weren't selected. [Stas] + +Added APR::URI->rpath method. Returns the path of an uri minus +path_info, if any. [Gozer] + +moved Apache::current_callback() to ModPerl::Util::current_callback +where it belongs [Gozer] + +modperl_perl_module_loaded() fixed to use %INC to determine if a module +is loaded instead of checking for the existence of a stash [Gozer] + +fix the modperl build, where httpd has been built against separate +installations of apr-util and apr, where apr-util has been installed +with a different includedir to apr. [Joe Orton] + +$Apache::Server::SaveConfig is now $Apache::PerlSections::Save +[Geoffrey Young] + + + +=item 1.99_16 - Aug 22, 2004 + +Fix a compilation problem breaking 1.99_15 (sv_copypv was added in +perl 5.7.3) [Jason Woodward <woodwardj@jaos.org>] + +Added $r->content_languages in Apache::RequestRec [Gozer] + +APR::Bucket: add delete() and destroy() methods [Stas] + + + +=item 1.99_15 - Aug 20, 2004 + +replace the memory allocation for modperl filter handlers to use a +temporary subpool of the ap_filter_t object. previously using perl's +safemalloc had problems on win32 (randomly my_perl == NULL) [Stas] + +Disable Apache::HookRun::run_create_request -- it's already run +internally by Apache::RequestRec->new [Stas] + +Update Apache::RequestRec->new() to initialize members of request_rec +which were added some time ago (without it we were getting segfaults +in the new pseudo_http test. [Stas] + +Apache::CmdParms->limited member replaced by is_method_limited() +method [Gozer] + +Apache::Module changes [Gozer] +- readwrite => readonly: + cmds, next, name, module_index, minor_version, version +- removed: remove_module + +ensure that a sub-dir Apache-Test exists in the source distro (this is +a requirement, since the test suite relies on the particular +Apache-Test version distributed with the mod_perl source) [Stas] + +combine handler resolving failure error with the actual error, so +there is only one logged entry [Stas] + +pod manpages are now glued to all .pm files for which .pod exists at +'make install' phase [Stas] + +Apache::RequestIO::sendfile() now indicates which file it has failed +to open on failure. [Stas] + +fix Apache::SubRequest's methods: lookup_file, lookup_uri, +lookup_method_uri to default the last argument to +r->proto_output_filters (no request filters for the subrequest) and +not r->output_filters->next as it was before (one filter was getting +skipped and the rest of the filters were applied *twice*). [Stas] + +Apache::CmdParms changes [Gozer] +- readwrite => readonly: + override, limited, directive, pool, temp_pool, server, path, + cmd, context, err_directive + +- removed: limited_xmethods, xlimited, config_file, err_directive + +Fix a bug in APR::Bucket->new when a passed argument was of type +PADTMP [Stas] + +Apache::Connection changes [Stas, "Fred Moyer" <fred /about/ +taperfriendlymusic.org>] +- readwrite => readonly: + + pool, base_server, local_addr, remote_addr, remote_ip, remote_host, + aborted, local_ip, local_host, id, conn_config, sbh, bucket_alloc + +- removed: logname + +Move check_cmd_context from Apache::Command to Apache::CmdParms. +[Gozer] + +Add :context group of constants for check_cmd_context(). +NOT_IN_VIRTUALHOST, NOT_IN_LIMIT, NOT_IN_DIRECTORY, NOT_IN_LOCATION, +NOT_IN_FILES, NOT_IN_DIR_LOC_FILE & GLOBAL_ONLY [Gozer] + +Removed Apache::Command method soak_end_container [Gozer] + +Removed Apache::Module methods (dynamic_load_handle and +find_module_name) [Gozer] + +All Apache::Command methods are now read-only [Gozer] + +Removed Apache::Command methods (func and cmd_data) [Gozer] + +Removed Apache::Directive methods (data & walk_config) [Gozer] + +All Apache::Directive methods are now read-only [Gozer] + +Filters should not reset $@ if it was already set before +invocation [Gozer] + +Apache::compat server_root_relative now correctly handles absolute +paths like ap_server_root_relative does [Gozer] + +Fix a bug in <Perl> sections with multiple aliases in a +virtualhost container. [Gozer] + +PerlModule, PerlRequire, Perl and <Perl> is now supported in +.htaccess. They will run for each request. [Gozer] + +removed support for httpd 2.0.46. httpd 2.0.47 is now the minimum +supported version. [Geoffrey Young] + +Static builds for httpd >= 2.0.51 available. With the new MP_AP_BUILD +option, configure and compile an httpd with mod_perl statically linked +in [Gozer] + +Apache::RequestRec methods changes [Stas] +- readwrite => readonly: + + connection, canonical_filename, header_only, main, next, prev, + pool, per_dir_config, request_config, proto_num, protocol, + request_time, server, the_request, unparsed_uri + +- removed: + + remaining - this method is not needed if the deprecated + $r->client_block methods aren't used, (use $r->read + $r->instead) + canonical_filename - it's a private member + +The func Apache::SubProcess::spawn_proc_prog is now a method: +$r->spawn_proc_prog [Stas] + +Apache::Process methods (pool, pconf and short_name) are now read-only +[Stas] + +($r|$c|$s)->server_root_relative were removed. Now only an explicit +and somewhat deprecated function API remains: +Apache::ServerUtil::server_root_relative($pool, $path); it's too easy +to cause memory leak with this method, and it's inefficient as it +duplicates the return value, to avoid potential segfaults if the pool +it was allocated from gets destroyed and the value is attempted to be +used. Instead of this method use the equivalent: +File::Spec->catfile(Apache::ServerUtil::server_root, $fname); [Stas] + +$r->psignature now lives in the package it belongs to: +Apache::RequestUtil (previously lived in Apache::ServerUtil). [Stas] + +A few functions moved namespace from Apache:: to Apache::ServerUtil:: +(to make it easier to find the container of the function): [Stas] + - exists_config_define + - server_root + - get_server_built + - get_server_version + +fix an old outstanding bug in the APR::Table's TIE interface with +each()/values() over tables with multi-values keys. Now the produced +order is correct and consistent with keys(). Though, values() works +correctly only with perl 5.8.x and higher. [Joe Schaefer] + +require Perl 5.6.1, 5.6.0 isn't supported for a long time, but we +weren't aborting at the Makefile.PL stage [Stas] + +Apache::RequestUtil::method_register($s->process->pconf, 'FOO'); is +now $s->method_register('FOO'). +Apache::RequestUtil::add_version_component($s->process->pconf, 'BAR/0.1'); +is now $s->add_version_component('BAR/0.1'). [Stas] + +Remove $Apache::Server::StrictPerlSections. Now, all <Perl> +sections errors are fatal by default and cause server startup to +abort on error. [Gozer] + +Fix ($r|$filter|$bucket)->read() functions to run the set magic logic, +to handle cases when a passed buffer to fill is not a regular +scalar. [Stas] + +Apache::ServerRec accessors changes: [Stas] +- readonly accessors: + + process, next, is_virtual, module_config, lookup_defaults and + addrs + +- readwrite accessors with the exception of threaded mpms, where the + accessors are writable only before the child_init phase (i.e. before + threads are spawned): + + server_admin, server_hostname, port, error_fname, error_log, + loglevel, timeout, keep_alive_timeout, keep_alive_max, keep_alive, + names, wild_names, limit_req_line, limit_req_fieldsize, + limit_req_fields, and path + +supports a new type of struct accessor, which is just like read/write +one, but doesn't allow write access starting at the ChildInit phase +under threaded mpm (to avoid thread-safely issues) [Stas] + +In order to be consistent with Apache::RequestRec, Apache::Server is +now Apache::ServerRec and all methods/functions from Apache::Server +now live in Apache::ServerRec. [Stas] + +Use a context-specific Perl_load_module() instead of load_module(), to +avoid the problem with 'load_module' symbol resolution on certain +platforms, where for some reason it doesn't get resolved at compile +time to Perl_load_module_nocontext [Stas] + +Make it possible to disable mod_perl for the base server, but enable +it for the virtual hosts [Stas] + +Removed the deprecated path argument to $r->add_config() [Gozer] + +Created a META.yml for CPAN and friends, including Apache-Test as +a private resource to keep CPAN from installing mod_perl when a +user just wants Apache::Test [Gozer] + +Moving HTTP specific functions get_status_line, method_register from +Apache:: to Apache::RequestUtil:: to match their container [Stas] + +Adjust the list of mod_perl header files installed into the Apache2 +include/ directory, made necessary from the renaming and refactoring +arising from the decoupling of APR and APR::* from mod_perl.so. +Also include modperl_apr_perlio.h under xs/APR/PerlIO/ in +the list of such files installed [Stas, Randy Kobes] + +$r->read()/READ now throw exceptions [Stas] + +$r->rflush now returns nothing (was always returning APR::SUCCESS +before) [Stas] + +bug reports generating code: [Stas] +- add (apr|apu)-config linking info +- show the full path to the config file used to get the data for the + report + +The APR and APR::* family of modules can now be used without having +to load mod_perl.so. On *nix, this is done by compiling the needed +functions from the appropriate sources used to build mod_perl.so +into APR.so, and then arranging for APR::* to 'use APR ()'. On Win32, +a static library of needed functions is built, and APR/APR::* +then link into this library [Stas, Joe Schaefer, Randy Kobes] + +APR::RequestIO::sendfile() now flushes any buffered output before +sending the file contents out. If the return status is not checked and +an error happens it'll throw an exception. Fix offset handling. [Stas] + +Registry: remove the misleading prefix "$$: $class:" in the logged +error message, since not only registry errors will get logged if $@ is +set [Stas] + +change t/REPORT to suggest to post bug reports to the modperl users +list, to be consistent with the documentation [Stas] + +amd64 fixes [Joe Schaefer <joe+gmane@sunstarsys.com>] + - use IV insteaf of int where a pointer is used + - mpxs_APR__Bucket_new needs to use apr_size_t/off_set_t types + +APR::Socket::recv() now returns the length of the read data [Stas] + +APR::Bucket's read() returns "" instead of undef when there is no data +to read. [Stas] + +fix a bug in Registry handlers, where the same error was logged twice +and potentially a wrong error code returned [Stas] + +Apache::RequestIO: print(), printf(), puts(), write(), rflush() throw +an exception on failure [Stas] + +Apache::SubRequest: run() throw an exception on failure [Stas] + +Apache::Filter: [Stas] + - remove unneeded methods: remove_input_filter() and + remove_output_filter(), fputs() + - frec() accessor is made read-only + - fflush(), get_brigade() and pass_brigade() now throw exceptions if + called in the void context + - read, print() and puts() throw an exception on failure + +Apache::FilterRec: [Stas] + - remove the next() accessor since it's not used by Apache at the + moment + - name() is made read-only + +APR::URI: [Stas] + - removed accessors + o is_initialized() (internal apr_uri flag) + o dns_looked_up() and dns_resolved() (they are not + used by apache/apr) + - all remaining accessors now accept undef value, which unsets the + field + +Extended WrapXS code to support a new type of accessor: char * which +accepts undef to set the C pointer to NULL and as such unset the +member of the struct. [Stas] + +Exception error messages now include the error id along with the error +message (as they did in first place). [Stas] + +$r->finfo now accepts APR::Finfo object as an optional +argument. [Stas] + +APR::Finfo [Stas] + - change stat() to return finfo + - make all field accessors readonly + +ARP::password_validate is now ARP::Util::password_validate [Stas] + +APR::IpSubnet::new() now throws APR::Error exception (not returning +rc) [Stas] + +rename package APR::NetLib -> APR::IpSubnet to match the class name +[Stas] + +APR::BucketType: [Stas] + - name is readonly + +APR::Brigade [Stas] + - destroy() now throws APR::Error exception (not returning rc) + - rename empty => is_empty + - added the method cleanup() + - flatten() now returns the number of bytes read (and passed the + buffer by the argument) and throws APR::Error exception + +APR::Bucket: [Stas] + - read() now returns the length of the read data and throws + APR::Error exception (not returning rc). The returned scalar is + now TAINTED. + - type->name now has a module APR::BucketType + - type(), length(), start(), data() are now all readonly + - new() fix a bug in offset handling + + + +=item 1.99_14 - May 21, 2004 + +APR::SockAddr::port() accessor is now read-only [Stas] + +APR::Pool now has destroy() and clear() available [Stas] + +now logging the errors happening in pool cleanup callbacks [Stas] + +use the new Apache-Test attribute -minclient in the test suites. Now +along with the default maxclients = minclients+1, we no longer should +get 'server reached MaxClients setting' errors. [Stas] + +new API for APR::Socket recv() and send() + updated tests [Stas] + +add infrastructure for new ModPerl::Const constants and the first +constant ModPerl::EXIT. [Stas] + +re-implement ModPerl::Util::exit to use exception objects, so it's +possible to detect exit called in eval context and call it again +outside the eval context. [Stas] + +add the perl interface for the new exception handling code (mod_perl, +apache and apr methods will now throw exceptions with $@ being an +object). New class APR::Error was added, to handle the exception +objects with overload methods. Also added confess and croak +equivalents of Carp's methods, since at the moment the Carp's ones +don't work as is. The following perl and C methods have been renamed: + modperl_apr_strerror => modperl_error_strerror + APR::strerror => APR::Error::strerr +[Stas] + +set the 'error-notes' table to the error message on +HTTP_INTERNAL_SERVER_ERROR [Stas] + +fix the apxs build function to not handle empty lookups as errors +[Randy Kobes, Steve Hay] + +fix type casting problems in the io functions [Stas] + +add support for libgtop 2.5.0+ (maintenance mode) [Stas] + +APR::Socket::timeout_set now croaks on failure [Stas] + +significantly speedup the startup of threaded mpm test suite, by +configuring only the minimal number of perl interpreters to start +[Stas] + +make APR::Socket::opt_(set|get) working (and change the previous +behavior) [Stas] + +make sure that our protocol module tests that interact with the socket +use a blocking read [Joe Orton] + +Use a better approach to figure out whether we need to strip perl's +LargeFilesSource flag, by checking whether libapr was compiled with +-D_FILE_OFFSET_BITS=64 or not. Checking for APR_HAS_LARGE_FILES is +useless since it doesn't tell whether 32 vs 64 bits off_t and similar +types are used [Joe Orton] + +'SetHandler perl-script' no longer grabs any newly encountered END +blocks, and removes them from PL_endav, but only if they are +explicitly registered via ModPerl::Global::special_list_register(END +=> $package_name) (this is a new function). It's now possible to have +a complete control of when END blocks are run from the user space, not +only in the registry handlers [Stas] + +END blocks encountered by child processes and not hijacked by +ModPerl::Global::special_list_register() are now executed at the +server shutdown (previously they weren't executed at all). [Stas] + +Added test to ensure <Perl> sections can have things like %Location +tied [Gozer] + +Fix the installation on Win32 so that an appropriate Apache2 +subdirectory under the Perl tree is used when MP_INST_APACHE2 is +specified [Randy Kobes] + +Fix a redefined warning in Apache::Status [Stas] + +Fix Apache::Status, to lookup the Apache::Request version without +loading it. Only if a suitable (2.x) version is found -- load and use +it. Previously loading the 1.x version was affecting Apache::compat. +[Stas] + +Fix a bug in special blocks handling (like END), which until now was +dropping on the floor all blocks but the last one (mainly affecting +registry handlers). [Stas] + +The filter streaming API print() function, now correctly handles a +binary data [Stas] + +Fix Registry handlers, not to lose the execution errors, when they +include END blocks [Stas] + + + +=item 1.99_13 - March 8, 2004 + +respect $ENV{APACHE_TEST_STARTUP_TIMEOUT} settings if any [Stas] + +Added tests for issuing subrequests from filters [Geoffrey Young] + +Updated to the new Apache License Version 2.0 [Gozer] + +Drop the support for making GATEWAY_INTERFACE special. It's not needed +as $ENV{MOD_PERL}, available in both mod_perl generations, should be +used to test whether the code is running under mod_perl. [Stas] + +Handle correctly the situation when response HTTP headers are printed +from the handler and the response body starts with \000, which is the +case with some images like .ico. [Stas] + +Apache::PerlSections->dump() and store(filename) [Gozer] + +expose $c->keepalive related constants and $c->keepalives counter +[Stas] + +Perl handlers are now guaranteed to run before core C handlers for +all request phases. [Geoffrey Young] + +Fix the STDIN/OUT overriding process to handle gracefully cases, when +either or both are closed/bogus (the problem was only with useperlio +enabled perl) [Stas] + +copy apr_table_compress logic from later httpd versions in case mod_perl +is built against 2.0.46, as mod_perl now requires it internally. users +should be aware that 2.0.47 may become the oldest supported httpd version +in the near future. [Geoffrey Young] + +Fix the corruption of the httpd process argv[0], caused by $0 +manipulating [Stas] + +ModPerl::MethodLookup::lookup_method now handles sub-classed objects +[Stas] + +standard %ENV population with CGI variables and contents of the +subprocess_env table (such as SetEnv and PassEnv) has been delayed +until the last possible moment before content-generation runs. +PerlSetEnv and PerlPassEnv are each an exception to this and are +placed in both %ENV and the subprocess_env table immediately, +regardless of the current [+-]SetupEnv setting. +[Geoffrey Young] + +fix PerlAddVar configuration merging [Geoffrey Young] + +Anonymous subs are now supported in push_handlers, set_handlers, +add_input_filter, etc. A fast cached cv is used with non-ithreaded +perl. A slower deparse/eval approach (via B::Deparse) is used with +ithreads enabled perls. Further optimizations are planned for the +latter case. [Stas] + +ht_time w/o the pool is now available only via override/restore compat +API. format_time, has been renamed back to ht_time, and the default +values for fmt, time and gmt are now supported. [Stas] + +it's now possible to push new handlers into the same phase that is +running at the moment [Stas]. + +when $r->handler($new_handler) is called from a response phase, it now +checks that the response handler type is not switched (e.g. from +'modperl' to 'perl-script') from the currently used one [Stas] + +Since Apache::SubProcess is now part of the mp2 API, add +$r->cleanup_for_exec as a noop in Apache::compat. That function is no +longer needed in Apache2. [Stas] + +When 'perl Makefile.PL PREFIX=/foo/bar' is used and mod_perl 1 is +found, but at different prefix no longer require +MP_INST_APACHE2=1. [Stas] + +modperl_mgv_resolve now croaks when a module scheduled for autoloading +fails to load. AutoLoaded modules shouldn't silently fail. [Stas] + +Perl(Input|Output)FilterHandler handlers are now always AutoLoaded, as +if '+' prefix was used. This must be performed to get the access to +filter attributes long before the filter itself is executed. [Stas] + +APR/Pool.xs has been reimplemented. The problem with the previous +implementation is that a dead perl pool object could hijack a newly +created pool, which didn't belong to that object, but which happened +to be allocated at the same memory location. The problem is that +apr_pool_user_data_set/get has no mechanism to check whether the pool +has changed since it was last assigned to (it does but only in the +debug mode). It really needs some signature mechanism which can be +verified that the pool is still the same pool. Since apr_pool doesn't +have this feature, the reference counting has been reimplemented using +a plain sv reference. Several new (mainly hijacking) tests which badly +fail with the previous impelementation have been added. [Stas] + +fix calling $r->subprocess_env() in a void context so that it only +populates %ENV if also called with no arguments. also, make sure it +can be called more than once and still populate %ENV. +[Geoffrey Young] + +add APR::Brigade::pool() to allow access to the pool associated with +the brigade [Geoffrey Young] + +make 't/TEST -startup_timeout secs' working (previously user's value +was ignored) [Stas] + +ModPerl::Registry and friends now support non-parsed headers scripts, +whose filename =~ /^nph-/, identically to mod_cgi. + test [Stas] + +implement APR::Brigade::length() and APR::Brigade::flatten() (the +latter implements a wrapper for apr_brigade_flatten, but also includes +an emulation of apr_brigade_pflatten) as [Geoffrey Young] + +($r|$s)->add_config() now die if failed (previously returned the +error) [Stas] + +fix context problems in <perl> sections and +PerlModule/PerlLoadModule/PerlRequre under threaded mpms w/ +PerlOptions +Parent/+Clone in Vhosts + TestVhost::config test. [Stas] + +Implemented Apache::get_server_version and Apache::get_server_built +as constant subroutines [Geoffrey Young] + +Moved some functions out of the Apache:: namespace: + Apache::unescape_url() is now Apache::URI::unescape_url() + Apache::log_pid() is now Apache::Log::log_pid() + Apache::LOG_MARK() is now Apache::Log::LOG_MARK() +[Geoffrey Young] + +if MP_AP_PREFIX is used apxs and apr-config from the apache build tree +won't work, so it can't co-exist with MP_APXS and MP_APR_CONFIG build +options - ensure that this doesn't happen. [Stas] + +server_root_relative() now requires either a valid pool or an $r, $s, +or $c object as a first argument. also, the returned result is a +copy, protecting against cases where the pool would go out of scope +before the result. [Geoffrey Young] + +Check the success of sysopen in tmpfile() in compat [Geoffrey Young] + +make sure DynaLoader is loaded before XSLoader, not only with perl +5.6.1, but always because of the issues with <Perl> sections are +loaded from +Parent vhost [Stas] + +added ($r|$s)->is_perl_option_enabled($option_name), to test for +PerlOptions + tests [Stas] + +On Solaris add a workaround for xs/APR/APR/Makefile.PL to build +APR.so, correctly linked against apr and apr-util libs, by addding the +missing -R paths corresponding to -L flags. EU::MM was adding them via +LD_RUN_PATH instead of using -R, but since perl's lddflags may have -R +it overrides LD_RUN_PATH. So explicitly add anything that may go into +LD_RUN_PATH via -R. Also make sure that -R coming from Apache will +appear first. [Brad Lanam <bll@gentoo.com>] + +'make dist' now generates and picks Apache-Test/META.yml which was +always reported missing, as it was included in Apache-Test/MANIFEST +[Stas] + +fix the $r->read function to return undef on failure similar to the +core perl function and make $! available for those who test for read() +failures. [Stas] + +Make sure that pnotes are destroyed after PerlCleanup handlers are +finished and not before + test. [Stas] + + + +=item 1.99_12 - December 22, 2003 + +Restore a proper behavior of all Registry handlers, but PerlRun, not +to reset %INC to forget any .pl files required during the script's +execution. [Stas] + +<Perl> are now evaluating code into one distinct namespace per +container, similar to ModPerl::Registry scripts. [Philippe M. Chiasson] + +Fix ModPerl::MM::WriteMakefile to use the MODPERL_CCOPTS entry from +Apache::BuildConfig, as it contains some flags added by mod_perl, +which aren't in perl_ccopts and ap_ccopts. [Stas] + +Add the implementation of Apache::Connection::local_addr and +Apache::Connection::remote_addr to the Apache::compat overridable +functions. [Stas] + +Apache::compat's implementation of APR::URI::unparse, +Apache::RequestRec::finfo and Apache::RequestRec::notes is now +overridable and not enabled by default. [Stas] + +Apache::compat no longer enables functions which collide with mp2 API +by default. It provides two new functions: override_mp2_api and +restore_mp2_api to override and restore the original mp2 API. [Stas] + +For Win32, add a .bat extension to candidates for the apxs and +apr-config utilities used in Apache::Build, so that the -x file +test can potentially succeed [Randy Kobes] + +Plug a memory leak with 'perl-script' not cleaning up the temp vars +created during the override of STDIN/STDOUT to use the :Apache IO +layer [Stas] + +libgtop config (needed for enabling MOD_PERL_TRACE=m) is now searched +using the gnome packaging tools if available (pkg-config for gnome-2.x +and gnome-config for gnome-1.x) [Stas] + +Prevent a problem where an autovivified package (stash) prevents from +modperl_mgv to load the file with that package (until now it was +checking whether the stash existed already and skipped the loading if +that was the case). Now checking %INC and attempting to load the +module. Reporting the failure only if the module has failed to load +and the stash is not defined (so that it's possible to autovivify +packages without loading them from an external file). [Stas] + +MaxClients is now overridable from the t/TEST -maxclients command line +option (it was hardcoded before). [Stas] + +Postpone the allocation of the wbucket in filters till the moment it's +needed (if at all). Since non-streaming filters aren't going to use +that buffer, it's a waste to allocate/free it. [Stas] + +Extend the autogenerated bug report to include information about +installed modules of special interest (which may aid in understanding +the bug report), such as CGI.pm, Apache::Request, LWP, etc. [Stas] + +As the test suite keeps on growing, it takes longer time to +startup. Change the main test suite timeout to 180 secs for threaded +mpms and 120 secs for non-threaded ones. [Stas] + +use plain malloc/free to allocate filter structs, since they could be +invoked hundreds of times during a single request, causing huge memory +demands if the memory is allocated from the pool, which gets destroyed +only at the end of a request. [Stas] + +Fix a compilation error in APX.xs when MP_HAVE_APR_LIBS is not defined +[Fred Moyer <fred@taperfriendlymusic.org>] + +fix a memory leak when $filter->ctx is used [Stas] + +fix buglet on Win32 (and potentially other non-Unix platforms) +where not all files were being installed under a relative Apache2 +subdirectory when MP_INST_APACHE2 was specified [Randy Kobes]. + +deprecated APR::SockAddr::port_get()/APR::SockAddr::port_set() +replaced with direct access to the port record via +APR::SockAddr::port(). [Geoffrey Young, Stas] + +deprecated APR::URI::default_port_for_scheme() replaced with +APR::URI::port_of_scheme() [Geoffrey Young] + +deprecated APR::SockAddr::ip_set() and APR::NO_TIMEOUT removed. +[Geoffrey Young] + +Apache::MPM->is_threaded() replaces Apache::MPM_IS_THREADED +[Geoffrey Young] + +fix "PerlSetVar Foo 0" so that $r->dir_config('Foo') returns 0, not undef +[Geoffrey Young] + +add Apache::MPM class, along with show() and query() class methods +[Geoffrey Young] + +add :mpmq import tag to Apache::Const [Geoffrey Young] + +Fix ModPerl::Registry handlers family to modify $0 only for the +duration of the handler, by localizing it [Stas] + +Fix :Apache perlio's STDOUT to be reentrant + modules/include_subreq +test [Stas] + +fix slurp_filename to always open the file and not try to guess +whether filename has been already opened, as there is no reliable way +to accomplish that [Stas] + +Apache->can_stack_handlers is now in Apache::compat (mp2 always can +stack handlers) [Stas] + +add access to $r->finfo() and related APR::Finfo methods, +such as $r->finfo->size(), $r->finfo->mtime(), and +$r->finfo->stat() [Geoffrey Young] + +add :filetype import tag to APR::Const [Geoffrey Young] + +<Perl> sections now properly set $0 to the name of the configuration +file they are in. [Philippe M. Chiasson] + +Apache::Status: provide a workaround for Config::myconfig() which +fails under threads with (5.8.0 < perl < 5.8.3) [Elizabeth Mattijsen +<liz@dijkmat.nl>] + +Fix Apache::Status::handler to return 'Apache::OK' [Juanma Barranquero +<lektu@terra.es>] + +<Perl> sections now properly set filename and line number information, +making error messages report the correct location. [Philippe M. Chiasson] + + + +=item 1.99_11 - November 10, 2003 + +add a build/win32_fetch_apxs script (called within the top-level +Makefile.PL) to offer to fetch and install a Win32 development +version of apxs and (apr|apu)-config [Randy Kobes] + +rewrite $r->read() and perlio read functions to use the same function, +which completely satisfies the read request if possible, on the way +getting rid of get_client_block and its supporting functions which +have problems and will most likely will be removed from the httpd-API +in the future. Directly manipulate bucket brigades instead. [Stas] + +Since Apache2.pm pops /foo/Apache2 dirs to the top of @INC, it now +also takes care of keeping lib and blib dirs before the system dirs, +so that previously installed libraries won't get loaded instead of the +currently uninstalled libraries that are under test. [Stas] + +When 'make test' fails we now print the info on what to do next [Stas] + +At the end of 'make install' we now print the info how to proceed with +mod_perl and what to do in the case of post-install problems +[Geoffrey Young] + +Adjust the source to properly work with 5.8.2's new algorithm of +dynamic re-hashing of hashes on hash collision attack. [Nicholas Clark +<nick@ccl4.org>, Stas]. Add a test that mounts such an attack so we +can verify that we can survive this rehashing. [Scott A Crosby +<scrosby@cs.rice.edu>, Nicholas Clark <nick@ccl4.org>, Tels +<perl_dummy@bloodgate.com>, Mark Jason Dominus <mjd@plover.com>, Stas] + +Standardize the Apache::PerlSections package name to it's plural form for +clarity and so that the pod gets glued in it's proper place. +[Philippe M. Chiasson <gozer@cpan.org>] + +return value from Perl callbacks are now passed directly to Apache +without additional post-call manipulations (such as assuming HTTP_OK +should really be OK). [Geoffrey Young] + +perl 5.8.1 w/ ithreads has a bug where it reports the wrong parent pid +(as if the process was never forked), provide a local workaround (+ new +test). [Rafael Garcia-Suarez <rgarciasuarez@free.fr>] + +overridden STD* streams now can be further overridden and will be +properly restored, which allows functions like $r->internal_redirect +work (+add tests) [Stas] + +implement perlio's getarg hook, which now allows duping STD* streams +overloaded by modperl [Stas] + +Add PerlMapToStorageHandler [Geoffrey Young] + +callbacks are now expected to return a meaningful value +(OK, SERVER_ERROR, etc) or return via an official API +(exit, die, etc). relying on implicit returns from the +last call evaluated by a subroutine may result in server +errors. [Stas, Geoffrey Young] + +in the MP_MAINTAINER mode add the -Werror compilation flag when perl +v5.6.2 or higher is used, so that we don't miss compilation +warnings. [Stas] + +fix the Makefile.PL option parser to support overriding of certain +build options, in addition to appending to them (.e.g. now MP_LIBNAME +is overridable) [Andrew Wyllie <wyllie@dilex.net>] + +make sure that connection filters won't be inserted as request filters +[Stas] + +Prevent the 'Use of uninitialized value.' warning when +ModPerl::Util::exit is used. [Stas] + +To make the test-suite sandbox-friendly, which break when things try to +run off /tmp, use t/logs as the location of the mod_cgid socket and +TMPDIR env var [Haroon Rafique <haroon.rafique@utoronto.ca>] + + + +=item 1.99_10 - September 29, 2003 + +added Apache::CRLF, Apache::CR, and Apache::LF to +Apache::Const's :platform group [Geoffrey Young] + +make sure that the custom pools are destroyed only once and only when +all references went out of scope [Stas] + +($r|$c)->add_(input|output)_filter(\&handler) now verify that the +filter of the right kind is passed and will refuse to add a request +filter as a connection filter and vice versa. The request filter +handler is not required to have the FilterRequestHandler attribute as +long as it doesn't have any other attributes. The connection filter +handler is required to have the FilterConnectionHandler +attribute. [Stas] + +fix tracing with (PerlTrace/MOD_PERL_TRACE) on win32 (the error_log +filehandle was invalid after the open_logs phase) [Stas] + +fix a bug where %ENV vars set via subprocess_env persist across +requests. (e.g. a Cookie incoming header which ends up in +$ENV{HTTP_COOKIE} would persist to the next request which has no +Cookie header at all). Now we unset all the %ENV vars set from +subprocess_env. Improve and extend the tests to cover this bug. [Stas] + +it is invalid to return HTTP_INTERNAL_SERVER_ERROR or any other HTTP +response code from modperl_wbucket_pass, therefore set the error code +into r->status and return APR_SUCCESS. Until now response handler +with messed up response headers, were causing no response what so ever +to the client. LWP was assuming 500, and it was all fine, testing +without LWP has immediately revealed that there was a problem in the +handling of this case. [Stas] + +put the end to the 'Not a CODE reference' errors, instead provide an +intelligent error message, hopefully telling which function can't be +found. at the same time improve the tracing to include the pid/tid of +the server that has encountered this problem, to make it easier to +debug. [Stas] + +mod_perl handler must be duped for any mpm which runs within +USE_ITHREAD. Until now there was a big problem with prefork mpm if +any of its vhosts was using PerlOptions +(Parent|Clone) and happened +to load handlers before the main server. When that was happening the +main server will see that the handler was resolved (since it sees the +handler struct from the vhost that loaded this module, instead of its +own), which in fact it wasn't, causing the failure to run the handler +with the infamous 'Not a CODE reference' error. [Stas] + +Make sure that the static mod_perl library is built after the dynamic +(a requirement on win32) [Steve Hay <steve.hay@uk.radan.com>] + +Apache::Status now generates HTML 4.01 Strict (and in many cases, also +ISO-HTML) compliant output. Also add a simple CSS to make the reports +look nicer. [Ville Skyttä <ville.skytta@iki.fi>] + +APR::Pool::DESTROY implemented and tweaked to only +destroy pools created via APR::Pool->new() [Geoffrey Young] + +$r->slurp_filename is now implemented in C. [Stas] + +remove support for httpd 2.0.45/apr 0.9.3 and lower. +httpd 2.0.46 is now the minimum supported version. +[Geoffrey Young] + +APR::PerlIO now accepts the pool object instead of a request/server +objects, so it can be used anywhere, including outside mod_perl [Stas] + +when perl is built with perlio enabled (5.8+) the new PerlIO Apache +layer is used, so now one can push layers onto STDIN, STDOUT handles +e.g. binmode(STDOUT, ':utf8'); [Stas] + +add ap_table_compress() to APR::Table [Geoffrey Young] + +alter stacked handler interface so that mod_perl follows Apache +as closely as possible with respect to VOID/RUN_FIRST/RUN_ALL +handler types. now, for phases where OK ends the Apache +call list (RUN_FIRST handlers, such as the PerlTransHandler), +mod_perl follows suit and leaves some handlers uncalled. +[Geoffrey Young] + +Apache::Build now tries to use the new APR_BINDIR query string to find +the location of apr-config. [Stas] + +new package Apache::porting to make it easier to port mp1 code to mp2 +[Stas] + +new Apache::Build methods: mpm_name(), mpm_is_threaded(). use them in +the top-level Makefile.PL to require 5.8.0/ithreads if mpm requires +threads. [Stas] + +add the missing XS methods to ModPerl::MethodLookup, add support for +mp1 methods that are no longer in the mod_perl 2.0 API. [Stas] + +mod_perl now refuses to build against threaded mpms (non-prefork) +unless perl 5.8+ w/ithreads is used [Stas] + +don't try to read PERL_HASH_SEED env var, where apr_env_get is not +available (apr < 0.9.3) [Stas] + +APR.so now can be loaded and used outside mod_perl (all the way back +to httpd 2.0.36) [Stas] + +perl 5.8.1 randomizes the hash seed, because we precalculate the hash +values of mgv elements the hash seed has to be the same across all +perl interpreters. So mod_perl now intercepts cases where perl would +have randomize it, do the seed randomization by itself and tell perl +to use that value. [Stas] + +fix APR::PerlIO layer to pop itself if open() has failed. [Stas] + +move the definition of DEFINE='-DMP_HAVE_APR_LIBS' to the top level +Makefile.PL, since it overrides MY::pasthru target which makes it +impossible to define local DEFINE in subdirs. [Stas] + +make APR perl functions work outside mod_perl: several libraries +weren't linked. Also LIBS needs to receive all libs in one +string. [Stas] + +Apache::compat: $r->cgi_env, $r->cgi_var are now aliases to +$r->subprocess_env [Stas] + +For Win32, generate .pdb files for debugging when built with +MP_DEBUG. These will get installed into the same directory as +the associated dll/so libs. As well, install mod_perl.lib +into MP_AP_PREFIX/lib/ for use by 3rd party modules [Randy Kobes]. + +Apache2.pm is now autogenerated and will adjust @INC to include +Apache2/ subdirs only if built with MP_INST_APACHE2=1 [Stas] + +Change the default value for the argument 'readbytes' for +ap_get_brigade(), from 0 to 8192. other than being useless, 0 always +triggers an assert in httpd internal filters and 8192 is a good +default. [Stas] + +Fix DynaLoader breakage when using DL_GLOBAL on OpenBSD +[Philippe M. Chiasson <gozer@cpan.org>] + +renamed the private modperl_module_config_get_obj function to +modperl_module_config_create_obj, since the logic creates +the object but doesn't dig it out if it already exists. then, +moved logic from mpxs_Apache__Module_get_config into a new public +C function that reused the old name, modperl_module_config_get_obj. +while Apache::Module->get_config exists as a wrapper to return the +object to Perl space, now C/XS folks can also access the object +directly with the public function. +[Geoffrey Young] + +Apache::Reload: add a new config variable: +ReloadConstantRedefineWarnings to optionally shut off the constant sub +redefine warnings [Stas] + +implement $parms->info. directive handlers should now be complete. +[Geoffrey Young] + +MP_GTOP now works with modern GCC +[Philippe M. Chiasson <gozer@cpan.org] + +add missing dependencies to Apache::PerlSections +[Geoffrey Young] + +$r->get_client_block is bogus in httpd-2.0.45 (and ealier), as it +can't handle EOS buckets arriving in the same bucket brigade with +data. so rewrite ModPerl::Test::read_post to use an explicit read +through all bucket brigades till it sees eos and then it stops. The +code is longer but it works correctly. [Stas] + +an attempt to resolve the binary compatibility problem in +PerlIOAPR_seek API when APR_HAS_LARGE_FILES=0 [Stas] + +perl 5.8.0 forgets to export PerlIOBase_noop_fail, causing problems on +win32 and aix. reimplement this function locally to solve the +problem. APR::PerlIO should now be useful on win32 and aix [Stas] + +implement DECLINE_CMD and DIR_MAGIC_TYPE constants +[Geoffrey Young] + +allow init filter handlers to call other methods than just $f->ctx [Stas] + +Fix Apache::Reload to gracefully handle the case with empty Touchfiles +[Dmitri Tikhonov <dmitri@netilla.com>] + +PerlRequire entried should be executed before PerlModule entries in +VirtualHost containers, just like in the base server [Stas] + + + +=item 1.99_09 - April 28, 2003 + +$filter->seen_eos() now accepts 1/0 to set/unset the flag so streaming +filters can control the sending of EOS. [Stas] + +support systems where apr header files are installed separately from +httpd header files ["Andres Salomon" <dilinger@voxel.net>] + +implement init filter handlers + tests [Stas] + +improving ModPerl::MethodLookup to: +- handle more aliased perl XS functions +- sort the methods map struct so one can use the autogenerated map as is +- add lookup_module, tells which methods are defined by a given module +- add lookup_object, tells which methods can be called on a given object +- provide autoexported wrappers print_method, print_module and + print_object for easy deployment from the command line +[Stas] + +add Perl glue for functions: APR::Socket::timeout_get +APR::Socket::timeout_set [Stas] + +similar to SetEnv, upcase the env keys for PassEnv on platforms with +caseless env (e.g. win32) [steve.sparling@ps.ge.com] + +Add a backcompat wrapper for $r->notes (mp2 supports only the +APR::Table API) [Stas] + +Add a script mp2bug and a target 'make bugreport', so people can use +bugreporting during the build and after modperl is installed. [Stas] + +Add a script mp2doc as a replacement for perldoc (due to 2.0 modules +living under Apache2, which won't be looked at by perldoc). [Stas] + +Add a constant APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED and use it in +tests [Stas] + +Require perl 5.8 or higher when building mod_perl on OSes requiring +ithreads (e.g., win32), since 5.6.x ithreads aren't good. [Stas] + +MP_COMPAT_1X=0 now can be passed to Makefile.PL to disable +mp1-back-compat compile-time features + adjust tests. [Stas] + +<SERVER_ROOT> and <SERVER_ROOT>/lib/perl are now added to @INC, just +like mod_perl 1.0 with MP_COMPAT_1X=1 (currently enabled by +default). [Stas] + +The Perl-5.8.0 crypt() workaround is now used only if 5.8.0 is used, +since 5.8.1-tobe/5.9.0-tobe(blead-perl) won't compile with +it. [Geoffrey Young] + +new directives PerlSetInputFilter and PerlSetOutputFilter, which are +the same as SetInputFilter and SetOutputFilter respectively, but allow +to insert non-mod_perl filters before, between or after mod_perl +filters. + tests [Stas] + +improved filters debug tracing [Stas] + +implement $filter->remove (filter self-removal) + tests [Stas] + +remove the second-guessing code that was trying to guess the package +name to load from the handler configuration (by stripping ::string and +trying to load the package). fall back to using explicit PerlModule to +load modules whose handler sub name is not called 'handler' + adjust +tests. [Stas] + +set the magic taint flags before modules are required [Stas] + +make sure to set base server's mip before any of the +PerlRequire/PerlModule directives are called, since they may add +add_config(), which in turn runs Perl sections or PerlLoadModule, +which may need the scfg->mip to be set. [Stas] + +ModPerl::MM is now ready to be used in Makefile.PL of 3rd party +mod_perl modules [Stas and Geoff] + +fix a segfault caused by PerlModule in $s->add_config, due to setting +the MP_init_done flag before init was done + add test [Stas] + +adjust the generated Makefile's to properly build on aix (tested on +powerpc-ibm-aix5.1.0.0) [Stas] + +the build now automatically glues the .pod files to the respective .pm +files, so one can use perldoc on .pm files to read the +documentation. [Stas] + +provide a workaround for ExtUtils::MakeMaker::mv_all_methods, so +ModPerl::BuildMM and ModPerl::MM can override EU::MM methods behind +the scenes. [Stas] + +adding ModPerl::BuildMM, which is now used for building mod_perl. +ModPerl::MM will be used for 3rd party modules. ModPerl::BuildMM +reuses ModPerl::MM where possible. [Stas] + +drop the glue code for apr_generate_random_bytes, since it's not +available on all platforms. [Stas] + +Since non-threaded mpms don't use tipools in mips, don't create and +destroy them. [Stas] + +re-use the workaround for glibc/Perl-5.8.0 crypt() bug for the +main/vhost base perl interpreters as well. This solves the problem for +the buggy glibc on RH8.0. [Stas] + +send_cgi_header now turns the header parsing off and can send any data +attached after the response headers as a response body. [Stas] + +move the check that print/printf/puts/write/etc are called in the +response phase into the functions themselves so 1) we can print a more +useful error message 2) this check is not always needed in +modperl_wbucket_write, when called internally, so we save some cycles. +[Stas] + +add checks that print/printf/puts/write/etc are called in the response +phase. move the check into the functions themselves so we can print a +more useful error message [Stas] + +'make install' now installs mod_perl*h files under httpd's include +tree [Stas] + +When PerlOptions +ParseHeaders is an effect, the CGI headers parsing +won't be done if any *mod_perl* handler before and including the +response phase, sets $r->content_type. (similar behavior to mp1's +send_http_header() [Stas] + +Registry: make sure that $r is not in the scope when the script is +compiled [Stas] + +$Apache::Server::SaveConfig added. When set to a true value, +will not clear the content of Apache::ReadConfig:: once <Perl > +sections are processed. [Philippe M. Chiasson <gozer@cpan.org] + +Apache::compat: support 1.0's Apache->push_handlers, +Apache->set_handlers and Apache->get_handlers [Stas] + +revamp the code handling output flushing and flush bucket +sending. Namelly modperl_wbucket_flush and modperl_wbucket_pass now +can be told to send a flush bucket by themselves, attaching it to the +data bb they are already sending. This halfs the number of output +filter invocations when the response handler flushes output via $| or +rflush. adjust tests, which were counting the number of invocations. +[Stas] + +move ModPerl::RegistryCooker to use a hash as object (similar to mp1), +to make it easier to subclass. [Nathan Byrd <nathan@byrd.net>] + +$r->rflush has to flush internal modperl buffer before calling +ap_rflush, so implement rflush, instead of autogenerating the xs code +for it. [Stas] + +fix the input filters handling of DECLINED handlers (consume the data, +on behalf of the handler) + tests [Stas] + +fix the code that autogenerates modperl_largefiles.h not to define +macros matching m/^-/ (was a problem on aix-4.3.3) [Stas] + +$Apache::Server::StrictPerlSections added. When set to a true +value, will abort server startup if there are syntax errors +in <Perl > sections [Philippe M. Chiasson <gozer@cpan.org] + +Use Win32::GetShortPathName for Win32 to handle cases when +the supplied MP_AP_PREFIX contains spaces. [Randy Kobes] + +Bump up ThreadsPerChild for mpm_winnt in httpd.conf, which seems +to help avoid server startup problems when running the tests. +[Randy Kobes] + +implement a new helper module ModPerl::MethodLookup to help figure out +which module should be loaded when a certain method is reported to be +missing. [Stas] + +fix a bug for apr < 0.9.3, where it segfaults in apr_uri_unparse, if +hostname is set, but not the scheme. In case the hostname is defined +but scheme is not Apache::compat will default to the 'http' scheme, +whereas APR::URI::unparse provides no default [Stas] + +move $r->send_http_header implementation to Apache::compat. This +allows the 1.0 code to run unmodified if $r->send_http_header is +called before the response change. we already handle the check whether +content_type was set, when deciding whether the headers are to be +parsed inside modperl_wbucket_pass(). [Stas] + +fixes to Apache::compat. make $r->connection->auth_type interface +with r->ap_auth_type. make both $r->connection->auth_type and +$r->connection->user writable. [Geoffrey Young] + +Open up r->ap_auth_type, making it possible to write custom +authen handlers that don't rely on Basic authentication or +it's associated ap_* functions. +[Geoffrey Young] + +add Apache::Bundle2 [Stas] + +Apache::Reload now supports the PerlPreConnectionHandler invocation +mode, so connection filter and protocol modules can be automatically +reloaded on change. [Stas] + +implement Apache::current_callback + $r->current_callback goes into +Apache::compat, since now we have a way too many callbacks unrelated +to $r [Stas] + +Add Apache::compat methods: $r->connection->auth_type and +$r->connection->user (requires 'PerlOptions +GlobalRequest') + tests +[Stas] + +Several issues resolved with parsing headers, including making work +the handlers calling $r->content_type() and not sending raw headers, +when the headers scanning is turned on. Lots of tests added to +exercise different situations. [Stas] + +warn on using -T in ModPerl::Registry scripts when mod_perl is not +running with -T [Stas] + +perl 5.7.3+ has a built-in ${^TAINT} to test whether it's running +under -(T|t). Backport ${^TAINT} for mod_perl running under +5.6.0-5.7.3, (what used to be $Apache::__T. $Apache::__T is available +too, but deprecated. [Stas] + +add PerlChildExitHandler implementation [Stas] + +add PerlCleanupHandler implementation + test [Stas] + +die when Apache->request returns nothing ('PerlOptions -GlobalRequest' +or 'SetHandler modperl') [Stas] + +New Apache::Directive methods: as_hash(), lookup() + tests + docs +[Philippe M. Chiasson <gozer@cpan.org>] + +Stacked handlers chain execution is now aborted when a handler returns +something other than OK or DECLINED [Stas] + +make $filter->read() in input streaming filters, use the same number +of arguments as read() in the output filters. [Stas] + +Implement $r->add_input_filter and $r->add_output_filter + $c->add_input_filter and $c->add_output_filter +and add tests [Stas] + +Skip the handler package::func resolving error, only when the error +message matches "Can't locate .*? in @INC", rather than just "Can't +locate", since there are many other errors that start with that +string. [Stas] + +the top level 'make test' now descends into the ModPerl-Registry dir +to run 'make test' there [Stas] + +All response functions are now returning status and the callers check +and croak on failure or progate them further. [Stas] + +OPEN, CLOSE and FILENO implementation for Apache::RequestRec [Stas] + +Another fix for the handling of the return status in +ModPerl::RegistryCooker: reset the status to the original one only if +it was changed by the script, otherwise return the execution status +[Stas] + +prevent segfault in $r->print / $filter->print (in output filter) and +related functions when they are called before the response phase +[Stas] + +prevent segfault in send_http_header when it's called before the +response phase [Stas] + +input stream filtering support was added + tests (plus renaming filter +tests so we can know from the test name what kind of filter is tested) +[Stas] + +Add proper support for mis-behaved feeding filters that send more than +one EOS bucket in streaming filters + test. [Stas] + +prevent a segfault when push_handlers are used to push a handler into +the currently phase and switching the handler (perl-script/modperl) + +tests [Stas] + +Add $filter->seen_eos to the streaming filter api to know when eos has +been seen, so special signatures can be passed and any data stored in +the context flushed + tests. [Stas] + +Add $filter->ctx to maintain state between filter invocation + tests +[Stas] + +Request input and output filters are now getting the EOS bucket, which +wasn't passed through before. Now the context can be flushed on +EOS. [Stas] + + + +=item 1.99_08 - January 10, 2003 + +Correct ModPerl::RegistryCooker to reset %INC, after compile for .pl +files which don't declare the package + add tests to check that [Stas] + +Log the real error message when Foo::Bar::sub_name fails to resolve, +because of a problem in Foo::Bar, when Foo::Bar *was* found [Stas] + +Add PerlPreConnectionHandler support in Apache::Test [Stas] + +Enable PerlPreConnectionHandler [Stas] + +Support the Host: request header in Apache::TestClient [Stas] + +restore the ModPerl::RegistryLoader::new() method for backwards +compatibility [Stas] + +port the support for NameWithVirtualHost in ModPerl::RegistryCooker +and ModPerl::RegistryLoader [Stas] + +fix the handling of the return status in ModPerl::RegistryCooker, add +a test to verify that [Stas] + +under non-threaded perl need to check whether mod_perl is running, +when modperl_vhost_is_running check is done. [Stas] + +fix $r->read to read all the requested amount of data if possible, +adjust the test TestApache::read to verify that [Stas] + +fix the method content() in Apache::compat to read a whole request +body. same for ModPerl::Test::read_post. add tests. [Stas] + +Adjust the reverse filter test to work on win32 (remove trailing \r) +[Randy Kobes <randy@theoryx5.uwinnipeg.ca>] + +Strongly suggest win32 users to upgrade to 5.8.0, if they run 5.6.x +[Randy Kobes <randy@theoryx5.uwinnipeg.ca>] + +When installing the mod_perl shared object, first need to check +whether the directory 'modules' already exists, and create it if not. +[Randy Kobes <randy@theoryx5.uwinnipeg.ca>] + +Add a capability to tune the test configuration sections ordering +in Apache::TestConfigPerl [Stas Bekman] + +fix the complaining code about late PerlSwitches when PerlLoadModule +is used before it [Stas Bekman] + +add various tests that exercise PerlLoadModule and vhosts +[Stas Bekman] + +handle correctly PerlLoadModules (directives) with vhosts: + - handle gracefully cases when things are undef/NULL + - handle the case when scfg==NULL, by stealing the base_servers's config +[Stas Bekman] + +make mod_perl work with vhosts when the server is started prior to + post_config(): + - call modperl_init_globals as early as possible, because the main server + record is needed during the configuration parsing, for perlloadmodule + and vhosts + - also make sure that we are using a real base_server, when dealing + with modperl_init, and if not retrieve it from the global record +[Stas Bekman] + +prevent segfaults, when scfg is NULL in Apache::Module->get_config(); +[Stas Bekman] + +ensure that a core file is a file indeed, before complaining [Philippe +M. Chiasson <gozer@cpan.org>] + +add $r->as_string [Geoffrey Young] + +add backcompat vars: $Apache::Server::CWD and +$Apache::Server::AddPerlVersion [Stas Bekman] + +env var MOD_PERL_TRACE is working again [Stas Bekman] + +add a new test TestDirective::perlloadmodule2, which performs a more +evolved merging. [Stas Bekman] + +fix Apache::TestConfigPerl under mod_perl 1.0, need to require +mod_perl.pm before using $mod_perl::VERSION [Geoffrey Young] + +add an Apache::SIG backcompat stub to Apache::compat [Stas Bekman] + +fix the Apache::TestConfigPerl's run_apache_test_config() function +where test packages are scanned for the magic APACHE_TEST_CONFIGURE +and if found get require()'d. Apache2 needs to be run for mod_perl +2.0. [Stas Bekman] + +move the custom mod_perl 2.0 configuration bits out of the +ModPerl::TestRun, where they don't belong, into a special config file +which is included at the very end of httpd.conf [Stas Bekman] + +extend Apache::Test to allow extra configuration files to be included +at the very end of httpd.conf, when everything was loaded and +configured [Stas Bekman] + +resolve a segfault in Apache::Module::get_config() for the edge case +when the package name is bogus. [Stas Bekman] + +Apache::Reload: add support for watching and reloading modules only in +specified sub-dirs [Harry Danilevsky <harry@deerfieldcapital.com>] + +enable APR.pm's linking for apr 0.9.2 and higher, which uses a new lib +naming scheme, such as libapr-0.so.0.9.2, only if apr-config and +apu-config scripts exist. [Stas Bekman] + +define IoTYPE_RDONLY/IoTYPE_WRONLY for perl-5.6.0 so the project +compiles again under 5.6.0 [Stas Bekman] + +allow output streaming filters to append data to the end of the stream +[Stas Bekman] + +fixes to compile with ActivePerl 5.8 beta +[Randy Kobes <randy@theoryx5.uwinnipeg.ca>] + +fix for directive handlers within vhosts using threaded MPMs +[Stephen Clouse <stephenc@theiqgroup.com>] + +fix <IfDefine MODPERL2> support + +default AuthType to Basic if not set in $r->get_basic_auth_pw() +[Philippe M. Chiasson <gozer@cpan.org>] + +workaround glibc/Perl-5.8.0 crypt() bug (seen with threaded MPMs) + +fix delete $ENV{$key} bug + +fix parse_args compat method to support non-ascii characters and tr/+/ / +[Walery Studennikov <despair@sama.ru>] + +fix post_connection compat method to behave as it did in 1.x +[Geoffrey Young] + +add support for setting $r->auth_name and $r->auth_type +[Philippe M. Chiasson <gozer@cpan.org>] + +add Apache->httpd_conf compat method +[Philippe M. Chiasson <gozer@cpan.org>] + +add default <Perl> handler Apache::PerlSection. +make <Perl> blocks to be EXEC_ON_READ so apache does not parse the contents. +add "Perl" directive for general use and for which <Perl> sections are +stuffed into. +[Philippe M. Chiasson <gozer@cpan.org>] + +rename overloaded LoadModule directive to PerlLoadModule and adjust +the test naming + + + +=item 1.99_07 - September 25, 2002 + +fix =pod directive test config problem +[Philippe M. Chiasson <gozer@cpan.org>] + + + +=item 1.99_06 - September 25, 2002 + +add support for pod directives (=pod,=back,=cut) and __END__ directive +[Philippe M. Chiasson <gozer@cpan.org>] + +tweaks to support Test.pm 1.21 [Philippe M. Chiasson <gozer@cpan.org>] + +add $r->add_config method to add dynamic configuration at request time + +add Apache::DIR_MAGIC_TYPE constant + +add support for directive handlers + +fix source_scan to run with current httpd/apr + +add Apache::Server->add_config method to add dynamic configuration at +server startup time + +add Apache::Directive->to_string method + +add support for pluggable <Perl> sections + +fix compilation probs with get_remote_host() that had a wrong +prototype [Stas Bekman] + +Apache::SubProcess now has a manpage [Stas Bekman] + +fix the Apache::SubProcess tests to work with perlio-disabled Perl +[Stas Bekman] + +fix the filehandle leak in APR::PerlIO (both perlio-disabled and +perlio-enabled Perl) [Stas Bekman] + +remove dup() when converting filehandles from apr_file_t to FILE* +under perlio-disabled Perl (APR::PerlIO) [Stas Bekman] + +fix compilation if apache/apr do not have thread support + + + +=item 1.99_05 - August 20, 2002 + +fix PerlOptions +ParseHeaders to only parse once per-request + +add external redirects Registry tests [Stas Bekman] + +get rid of the compat layer in ModPerl-Registry [Stas Bekman] + +ModPerl::RegistryLoader is now fully operational and tested [Stas Bekman] + +Registry method handlers are now working [Stas Bekman] + +core Registry packages all compile the scripts into +ModPerl::RegistryROOT:: namespace and cache them in +%ModPerl::RegistryCache. Both overridable by the sub-classes. [Stas Bekman] + +compat tests were split into groups by functionality, send_fd test +moved to compat. [Stas Bekman] + +added $c->get_remote_host and a compat wrapper $r->get_remote_host + +tests [Stas Bekman] + +adjust the build system to support mod_perl build from the source +tree. [Stas Bekman] + +ModPerl::RegistryCooker syncs with mod_perl 1.0's registry: + - prototypes defined checks in flush_namespace + [Yair Lenga <yair.lenga@citigroup.com>] + - set error-notes on error [Geoffrey Young] + - preserve status in Registry scripts [Geoffrey Young] + +apr_table_t is now an opaque type, use apr_table_elts() to get the array +record [Stas Bekman] + +add support for redirects with PerlOptions +ParseHeaders + +backport to 2.0.35 + +adjust to filter register api change + +added APR::ThreadMutex module + + + +=item 1.99_04 - June 21, 2002 + +various APR PerlIO updates [Stas Bekman] + +stop using an apr_pool_t to allocate items for the interpreter pool, +safer for threaded MPMs and prevents "leaks" when interpreters are +removed from due to PerlInterpMax{Requests,Spare} + +implement modperl_sys_dlclose() to avoid apr/pool overhead/thread issues + +get the -DPERL_CORE optimization working again + +PERL_SET_CONTEXT to the parent interpreter when cloning interpreters at +request time, else dTHX might be NULL during clone in the given thread, +which would crash the server. + + + +=item 1.99_03 - June 15, 2002 + +win32 fix for the global Apache->request object to make sure it uses +the thread local storage mechanism + +add a reference count mechanism to interpreters for use in threaded MPMs, +so if APR::Pool cleanups have been registered the interpreter is not +putback into the interpreter pool until all cleanups have run. + +unbuffer STDERR (by turning on autoflush by default) + +add support for Perl*Handler +Apache::Foo + +fix open_logs,post_config,child_init hooks to run in the proper order + +adjust to apr_bucket_type_t changes in 2.0.37-dev +[Mladen Turk <mturk@mappingsoft.com>] + +add MODPERL2 config define, as if the server had been started with -DMODPERL2 + +compat additions and fixes: $r->lookup_{file,uri}, $r->is_main, Apache->define + +added compat for Apache::log_error [Stas Bekman] + + + +=item 1.99_02 - June 1, 2002 + +pass the PATH and TZ environment variables at startup by default as 1.xx did + +fix ModPerl::Util::exit segv with 5.6.0 + +no longer support 5.7.x perl development versions + +added compat for Apache::Table->new + +various fixes to compile/run on darwin + +server-scope Perl{Set,Pass}Env config now propagated to %ENV at startup + +use SvOK(sv) instead of sv == &PL_sv_undef to detect undef values in xs +[Stephen Clouse <stephenc@theiqgroup.com>] + +complete Apache::Util 1.x compat + +added Apache::MPM_IS_THREADED constant + +added compat function for Apache::Constants::SERVER_VERSION + +added Apache::Constants::export stub for compat + +added noop stubs for timeout functions removed from 2.0: +$r->{soft,hard,reset,kill}_timeout + +turned on PerlOptions +GlobalRequest by default for perl-script handler +unless it is explicitly turned off with PerlOptions -GlobalRequest + +added APR::OS::thread_current function + +added support for 1.x $r->subprocess_env functionality + +added support for $r->push_handlers(PerlHandler => ...) + +added support for $r->proxyreq to detect proxy requests + +$r->content_type($val) now calls ap_set_content_type underneath + +add the err_header_out() wrapper to Apache::compat + corresponding tests +[Stas Bekman] + +fix $r->dir_config lookup of values set in the server context + +added Apache::REDIRECT shortcut constant + +various fixes for method handlers + +use Apache::ServerUtil in Apache::compat so Apache->server works in compat +mode [Dave Rolsky <autarch@urth.org>] + +add Apache::Util::unescape_uri alias to Apache::unescape_url in Apache::compat + +change Apache::unescape_url to return the escaped url as 1.x does + +disabled term coloring by default (enable with env var APACHE_TEST_COLOR=1) + +fix for APR::IpSubnet->new to check return status apr_ipsubnet_create + +enabled APR::SockAddr module + +turn on binmode for filehandle used in $r->send_fd + +get MP_{TRACE,DEBUG} Makefile.PL options working on win32 + +various fixes to build/run with bleedperl + +various fixes for win32 to get make test passing + +moved constuct_{url,server} methods to Apache::URI module + +implement Apache::URI::parse in Apache::compat + +give Perl*Handlers precedence over other handlers by using APR_HOOK_FIRST +rather than APR_HOOK_LAST + +workaround bug in 5.6.1 when XSLoader loads DynaLoader, wiping out any +dl handles it had been keeping track of. + +tidy up test to run standalone (without modperl test config) +[Stas Bekman] + +override T_PTROBJ INPUT typemap to croak if object is not a blessed +reference, to prevent possible segv from e.g. Apache::Server->process + +apr_lock.h is gone; disable APR::Lock for the moment + +enabled the Apache::Process module + +fix ModPerl::Util::exit to clear $@ before calling Perl_croak + +cut down on some build noise + +fix 'PerlOptions +GlobalRequest' when used within subrequests + +get rid of some "subroutine redefined" warnings in ModPerl::MM that +show up with newer bleedperls. + +a few fixes for Apache::compat [Dave Rolsky <autarch@urth.org>] + + + +=item 1.99_01 - April 6, 2002 + +First public release of mod_perl-2.0-tobe. + +=back + +=cut
diff --git a/2_0_13/INSTALL b/2_0_13/INSTALL new file mode 100644 index 0000000..e8c110b --- /dev/null +++ b/2_0_13/INSTALL
@@ -0,0 +1,40 @@ +Simple install: + + % perl Makefile.PL MP_APXS=/usr/local/apache2/bin/apxs + % make && make test + % make install + +Simple install on AIX: + + You will need GNU make to compile mod_perl. The AIX make does not work. + If you have installed GNU make from the AIX Toolbox: + + % export MAKE="/opt/freeware/bin/gmake" + % perl Makefile.PL MP_APXS=/usr/local/apache2/bin/apxs + % gmake && gmake test + % gmake install + +Simple config: + + LoadModule perl_module modules/mod_perl.so + #PerlModule Apache::compat + # your config comes here + +For a more detailed version (including more options) refer to: + + docs/user/intro/start_fast.pod + +or online: + + http://perl.apache.org/docs/2.0/user/intro/start_fast.html + +For an even more detailed documentation refer to: + + docs/user/install/install.pod + docs/user/config/config.pod + +or online: + + http://perl.apache.org/docs/2.0/user/install/install.pod + http://perl.apache.org/docs/2.0/user/config/config.pod +
diff --git a/2_0_13/LICENSE b/2_0_13/LICENSE new file mode 100644 index 0000000..d645695 --- /dev/null +++ b/2_0_13/LICENSE
@@ -0,0 +1,202 @@ + + Apache License + Version 2.0, January 2004 + http://www.apache.org/licenses/ + + TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION + + 1. Definitions. + + "License" shall mean the terms and conditions for use, reproduction, + and distribution as defined by Sections 1 through 9 of this document. + + "Licensor" shall mean the copyright owner or entity authorized by + the copyright owner that is granting the License. + + "Legal Entity" shall mean the union of the acting entity and all + other entities that control, are controlled by, or are under common + control with that entity. For the purposes of this definition, + "control" means (i) the power, direct or indirect, to cause the + direction or management of such entity, whether by contract or + otherwise, or (ii) ownership of fifty percent (50%) or more of the + outstanding shares, or (iii) beneficial ownership of such entity. + + "You" (or "Your") shall mean an individual or Legal Entity + exercising permissions granted by this License. + + "Source" form shall mean the preferred form for making modifications, + including but not limited to software source code, documentation + source, and configuration files. + + "Object" form shall mean any form resulting from mechanical + transformation or translation of a Source form, including but + not limited to compiled object code, generated documentation, + and conversions to other media types. + + "Work" shall mean the work of authorship, whether in Source or + Object form, made available under the License, as indicated by a + copyright notice that is included in or attached to the work + (an example is provided in the Appendix below). + + "Derivative Works" shall mean any work, whether in Source or Object + form, that is based on (or derived from) the Work and for which the + editorial revisions, annotations, elaborations, or other modifications + represent, as a whole, an original work of authorship. For the purposes + of this License, Derivative Works shall not include works that remain + separable from, or merely link (or bind by name) to the interfaces of, + the Work and Derivative Works thereof. + + "Contribution" shall mean any work of authorship, including + the original version of the Work and any modifications or additions + to that Work or Derivative Works thereof, that is intentionally + submitted to Licensor for inclusion in the Work by the copyright owner + or by an individual or Legal Entity authorized to submit on behalf of + the copyright owner. For the purposes of this definition, "submitted" + means any form of electronic, verbal, or written communication sent + to the Licensor or its representatives, including but not limited to + communication on electronic mailing lists, source code control systems, + and issue tracking systems that are managed by, or on behalf of, the + Licensor for the purpose of discussing and improving the Work, but + excluding communication that is conspicuously marked or otherwise + designated in writing by the copyright owner as "Not a Contribution." + + "Contributor" shall mean Licensor and any individual or Legal Entity + on behalf of whom a Contribution has been received by Licensor and + subsequently incorporated within the Work. + + 2. Grant of Copyright License. Subject to the terms and conditions of + this License, each Contributor hereby grants to You a perpetual, + worldwide, non-exclusive, no-charge, royalty-free, irrevocable + copyright license to reproduce, prepare Derivative Works of, + publicly display, publicly perform, sublicense, and distribute the + Work and such Derivative Works in Source or Object form. + + 3. Grant of Patent License. Subject to the terms and conditions of + this License, each Contributor hereby grants to You a perpetual, + worldwide, non-exclusive, no-charge, royalty-free, irrevocable + (except as stated in this section) patent license to make, have made, + use, offer to sell, sell, import, and otherwise transfer the Work, + where such license applies only to those patent claims licensable + by such Contributor that are necessarily infringed by their + Contribution(s) alone or by combination of their Contribution(s) + with the Work to which such Contribution(s) was submitted. If You + institute patent litigation against any entity (including a + cross-claim or counterclaim in a lawsuit) alleging that the Work + or a Contribution incorporated within the Work constitutes direct + or contributory patent infringement, then any patent licenses + granted to You under this License for that Work shall terminate + as of the date such litigation is filed. + + 4. Redistribution. You may reproduce and distribute copies of the + Work or Derivative Works thereof in any medium, with or without + modifications, and in Source or Object form, provided that You + meet the following conditions: + + (a) You must give any other recipients of the Work or + Derivative Works a copy of this License; and + + (b) You must cause any modified files to carry prominent notices + stating that You changed the files; and + + (c) You must retain, in the Source form of any Derivative Works + that You distribute, all copyright, patent, trademark, and + attribution notices from the Source form of the Work, + excluding those notices that do not pertain to any part of + the Derivative Works; and + + (d) If the Work includes a "NOTICE" text file as part of its + distribution, then any Derivative Works that You distribute must + include a readable copy of the attribution notices contained + within such NOTICE file, excluding those notices that do not + pertain to any part of the Derivative Works, in at least one + of the following places: within a NOTICE text file distributed + as part of the Derivative Works; within the Source form or + documentation, if provided along with the Derivative Works; or, + within a display generated by the Derivative Works, if and + wherever such third-party notices normally appear. The contents + of the NOTICE file are for informational purposes only and + do not modify the License. You may add Your own attribution + notices within Derivative Works that You distribute, alongside + or as an addendum to the NOTICE text from the Work, provided + that such additional attribution notices cannot be construed + as modifying the License. + + You may add Your own copyright statement to Your modifications and + may provide additional or different license terms and conditions + for use, reproduction, or distribution of Your modifications, or + for any such Derivative Works as a whole, provided Your use, + reproduction, and distribution of the Work otherwise complies with + the conditions stated in this License. + + 5. Submission of Contributions. Unless You explicitly state otherwise, + any Contribution intentionally submitted for inclusion in the Work + by You to the Licensor shall be under the terms and conditions of + this License, without any additional terms or conditions. + Notwithstanding the above, nothing herein shall supersede or modify + the terms of any separate license agreement you may have executed + with Licensor regarding such Contributions. + + 6. Trademarks. This License does not grant permission to use the trade + names, trademarks, service marks, or product names of the Licensor, + except as required for reasonable and customary use in describing the + origin of the Work and reproducing the content of the NOTICE file. + + 7. Disclaimer of Warranty. Unless required by applicable law or + agreed to in writing, Licensor provides the Work (and each + Contributor provides its Contributions) on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or + implied, including, without limitation, any warranties or conditions + of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A + PARTICULAR PURPOSE. You are solely responsible for determining the + appropriateness of using or redistributing the Work and assume any + risks associated with Your exercise of permissions under this License. + + 8. Limitation of Liability. In no event and under no legal theory, + whether in tort (including negligence), contract, or otherwise, + unless required by applicable law (such as deliberate and grossly + negligent acts) or agreed to in writing, shall any Contributor be + liable to You for damages, including any direct, indirect, special, + incidental, or consequential damages of any character arising as a + result of this License or out of the use or inability to use the + Work (including but not limited to damages for loss of goodwill, + work stoppage, computer failure or malfunction, or any and all + other commercial damages or losses), even if such Contributor + has been advised of the possibility of such damages. + + 9. Accepting Warranty or Additional Liability. While redistributing + the Work or Derivative Works thereof, You may choose to offer, + and charge a fee for, acceptance of support, warranty, indemnity, + or other liability obligations and/or rights consistent with this + License. However, in accepting such obligations, You may act only + on Your own behalf and on Your sole responsibility, not on behalf + of any other Contributor, and only if You agree to indemnify, + defend, and hold each Contributor harmless for any liability + incurred by, or claims asserted against, such Contributor by reason + of your accepting any such warranty or additional liability. + + END OF TERMS AND CONDITIONS + + APPENDIX: How to apply the Apache License to your work. + + To apply the Apache License to your work, attach the following + boilerplate notice, with the fields enclosed by brackets "[]" + replaced with your own identifying information. (Don't include + the brackets!) The text should be enclosed in the appropriate + comment syntax for the file format. We also recommend that a + file or class name and description of purpose be included on the + same "printed page" as the copyright notice for easier + identification within third-party archives. + + Copyright [yyyy] [name of copyright owner] + + Licensed under the Apache License, Version 2.0 (the "License"); + you may not use this file except in compliance with the License. + You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, software + distributed under the License is distributed on an "AS IS" BASIS, + WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + See the License for the specific language governing permissions and + limitations under the License.
diff --git a/2_0_13/META.yml b/2_0_13/META.yml new file mode 100644 index 0000000..d652de7 --- /dev/null +++ b/2_0_13/META.yml
@@ -0,0 +1,24 @@ +name: mod_perl +version: 2.0.13 +installdirs: site +distribution_type: module +no_index: + directory: + # A-T and others have their own CPAN distros + - Apache-Test + - Apache-Reload + - Apache-SizeLimit + package: + # Internally redefined module + - C::Preprocessed + # Fake packages + - Apache::Status::_version + - perlrun_decl + # Apache::compat redefines + - Apache + - Apache::Constants + - Apache::File + - Apache::SIG + - Apache::Server + - Apache::Table + - Apache::Util
diff --git a/2_0_13/Makefile.PL b/2_0_13/Makefile.PL new file mode 100644 index 0000000..2ceb943 --- /dev/null +++ b/2_0_13/Makefile.PL
@@ -0,0 +1,947 @@ +use 5.006; +use strict; +use warnings FATAL => 'all'; + +# useful for sub-Makefile.PL's to know whether they are invoked +# directly or via the top level Makefile.PL +$ENV{MOD_PERL_2_BUILD} = 1; + +use constant MIN_HTTPD_VERSION_DYNAMIC => '2.0.47'; +use constant MIN_HTTPD_VERSION_STATIC => '2.0.51'; +use constant MIN_HTTPD_24_VERSION => '2.4.0'; + +my($old_modperl_version, $old_modperl_pm, $old_Apache2_pm); + +BEGIN { + eval { + my $old_mp2 = eval { require Apache2 }; + require mod_perl; + if ($mod_perl::VERSION < 1.999_22 && $old_mp2) { + $old_modperl_version = $mod_perl::VERSION; + $old_modperl_pm = delete $INC{'mod_perl.pm'}; + $old_Apache2_pm = delete $INC{'Apache2.pm'}; + } + }; + +} + +use lib qw(lib Apache-Test/lib); + +use Config; +use File::Spec::Functions; +use File::Spec; +use DirHandle (); +use File::Copy 'cp'; +use File::Basename qw(basename dirname); +use File::Find (); + +use Apache2::Build (); +use Apache::TestSmokePerl (); +use Apache::TestTrace; +use ModPerl::TestReport (); +use ModPerl::TestRun (); +use ModPerl::Code (); +use ModPerl::BuildMM (); + +use constant WIN32 => Apache2::Build::WIN32; +use constant BUILD_APREXT => Apache2::Build::BUILD_APREXT; + +our $VERSION; + +my $build = Apache2::Build->new(init => 1); +my $code = ModPerl::Code->new; + +sub UNATTENDED() { $build->{MP_PROMPT_DEFAULT} || ! -t STDIN } + +# may populate $build->{MP_APXS} +win32_fetch_apxs() if WIN32; + +configure(); +perl_version_check($build); + +local %ModPerl::BuildMM::PM = ( + 'lib/typemap' => 'blib/lib/Apache2/typemap', +); + +# these h files need to be installed system-wide so 3rd party XS +# extensions can use them +my @xs_h_files = map catfile("xs", $_), + qw(modperl_xs_sv_convert.h modperl_xs_typedefs.h modperl_xs_util.h + APR/PerlIO/modperl_apr_perlio.h); +my @exe_files = map "bin/$_", qw(mp2bug); + +ModPerl::BuildMM::WriteMakefile( + NAME => 'mod_perl2', + VERSION => $VERSION, + DISTNAME => 'mod_perl', + NO_META => 1, + ABSTRACT_FROM => 'lib/mod_perl2.pm', + EXE_FILES => \@exe_files, + DEFINE => get_DEFINE(), + macro => { + MODPERL_SRC => $code->path, + MODPERL_MAKEFILE => basename($build->default_file('makefile')), + PERL => $build->perl_config('perlpath'), + MOD_INSTALL => ModPerl::BuildMM::mod_install(), + MODPERL_AP_INCLUDEDIR => + $build->ap_destdir($build->install_headers_dir), + MODPERL_XS_H_FILES => join(" \\\n\t", @xs_h_files), + }, + clean => { + FILES => "@{ clean_files() }", + }, + dist => { + DIST_DEFAULT => 'mydist', + COMPRESS => 'gzip -9f', SUFFIX=>'gz', + PREOP => 'find $(DISTVNAME) -type d -print|xargs chmod 0755 && ' . + 'find $(DISTVNAME) -type f -print|xargs chmod 0644', + TO_UNIX => 'find $(DISTVNAME) -type f -print|xargs dos2unix' + }, +); + +post_configure(); + +sub get_DEFINE { + + my $opt_define = ''; + + # do we have apr libs? + # XXX: this define is really needed in xs/APR/APR/Makefile.PL, but this + # top-level Makefile.PL overrides MY::pasthru, and defines DEFINE= which + # overrides any local definition, not sure what's the right fix, for + # now just define it here (should it define PASTHRU_DEFINE instead?) + $opt_define = '-DMP_HAVE_APR_LIBS' if $build->apru_link_flags; + + # preserve any DEFINE opts from outside and combine them with our + # local DEFINE + @ARGV = grep defined, + map { (/^DEFINE=(.*)/ && ($opt_define .= " $1")) ? undef : $_ } @ARGV; + + return $opt_define; +} + +sub configure { + + # mod_perl test suite relies on having Apache-Test bundled with + # the mod_perl source, since any pre-installed version may not do + # the right thing + unless (-d "Apache-Test") { + error "Can't find a sub-directory Apache-Test. " . + "Make sure that you are using a complete source distribution"; + exit 1; + } + + set_modperl_version(); + + if ($old_modperl_version) { + (my $old_modperl_version_str = $old_modperl_version) + =~ s/(\d\d\d?)(\d\d)/$1_$2/; + my $vstring = "mod_perl/$old_modperl_version_str"; + print "$vstring installation detected..."; + + my $prefix; + /^PREFIX=(.*)/ && $1 && ($prefix = canonpath glob($1)) for @ARGV; + + # check that it's a full path + my $path = canonpath $old_modperl_pm; + # XXX: doesn't handle relative paths yet + # if PREFIX=/foo/bar is used, and it's not the same as the + # path where mod_perl < 1.999_22 is installed + if ($prefix && $path !~ /^$prefix/) { + print "ok (will install mod_perl/$VERSION into PREFIX=$prefix, " . + "no collision)\n"; + } + else { + my $note = ''; + if ($old_Apache2_pm) { + $note .= "Conflicting file: $old_Apache2_pm\n"; + } + if ($path =~ /Apache2/ or $old_modperl_version > 1.99) { + my $dir = dirname $path; + # was it installed into the top-level? + $dir = catdir $dir, 'Apache' unless $path =~ /Apache2/; + $note .= "Conflicting dir: $dir\n" if -d $dir; + } + + print " not ok\n\n"; + print <<EOI; +Cannot install mod_perl/$VERSION on top of $vstring +due to a major API change between mod_perl 1.999_21 and 1.999_22. + +$note +Please nuke the prior mod_perl installation from your site_lib, +use a different perl to run the installation process, or use the +PREFIX option when creating your Makefile. See: + + http://perl.apache.org/docs/2.0/rename.html + +for more details. + +aborting... +EOI + exit 1; + } + } + else { + print "no conflicting prior mod_perl version found - good.\n"; + + } + + # On Win32, in order to decouple APR::* from mod_perl.so, we + # make up a static library MP_APR_LIB of the symbols required from + # src/modules/perl/*.c (see xs/APR/aprext/Makefile.PL), and + # then link APR/APR::* against this library. The reason for + # this is that, unlike Unix, if we had linked APR/APR::* against + # the mod_perl lib, then use of APR/APR::* would demand mod_perl.so + # be available, even if these symbols are supplied by another + # loaded library (which is done for unix by APR.so - see + # xs/APR/APR/Makefile.PL). This also means we must ensure the + # MP_APR_LIB lib is built before any of the APR/APR::* modules + # (see the aprext target in the MY::top_targets sub below), as + # symbols must get resolved at link time. + + if (BUILD_APREXT()) { + require File::Path; + #Makefile.PL's in WrapXS/ just need to pass the -e mod_perl.lib test + #the real mod_perl.lib will be in place when WrapXS/ dll's are + #actually linked + # this must also be done for aprext.lib, build in xs/APR/aprext/; + # we must create a dummy aprext.lib to pass the -e test. + my $lib1 = catfile qw(src modules perl), + $build->{MP_LIBNAME} . $Config{lib_ext}; + my ($apr_blib, $full_libname) = $build->mp_apr_blib(); + my $lib2 = catfile $apr_blib, $full_libname; + unless (-d $apr_blib) { + File::Path::mkpath($apr_blib) or die "mkdir $apr_blib failed: $!"; + } + foreach my $lib ($lib1, $lib2) { + unless (-e $lib) { + open my $fh, '>', $lib or die "open $lib: $!"; + print $fh "#this is a dummy file to trick MakeMaker"; + close $fh; + } + } + } + + system_sanity_check(); + + my $min_httpd_version = $build->should_build_apache + ? MIN_HTTPD_VERSION_STATIC + : MIN_HTTPD_VERSION_DYNAMIC; + + if ($build->{MP_APXS}) { + print "Using APXS => $build->{MP_APXS}\n"; + } + elsif ($build->{MP_AP_PREFIX}) { + if (my $reason = $build->ap_prefix_invalid) { + error "invalid MP_AP_PREFIX: $reason"; + exit 1; + } + print "Using Apache prefix => $build->{MP_AP_PREFIX}\n"; + } + else { + unless ($build->{MP_USE_STATIC}) { + # may populate $build->{MP_APXS} + prompt_for_apxs($build); + } + } + + $build->{$_} and $ENV{$_} = $build->{$_} for (qw/MP_APXS MP_AP_PREFIX/); + + unless ($build->{MP_APXS} or $build->{MP_AP_PREFIX}) { + my $ok = 0; + for my $path ($build->find) { + $build->dir($path); + my $mmn = $build->module_magic_number; + my $v = $build->httpd_version; + next unless $v; + next if $v lt $min_httpd_version; + $ok++ if $build->prompt_y("Configure mod_perl with $path?"); + last if $ok; + } + until ($ok) { + my $ask = "Please provide the location of the Apache directory:"; + my $ans = $build->prompt($ask) || ""; + # strip leading/closing spaces + $ans =~ s/^\s*|\s*$//g; + if (defined $ans and -d $ans) { + $build->dir($ans); + $ok++; + } + else { + error "Can't find dir '$ans'"; + last if UNATTENDED; + } + } + } + + if ($build->should_build_apache) { + $build->configure_apache(); + } + + my $httpd_version = $build->httpd_version; + unless ($httpd_version) { + error 'Unable to determine server version, aborting.'; + if ($build->{MP_APXS} || $build->{MP_AP_PREFIX}) { + my $what = $build->{MP_APXS} ? 'MP_APXS' : 'MP_AP_PREFIX'; + error "Invalid $what specified?"; + } + else { + error 'Please specify MP_APXS or MP_AP_PREFIX.'; + } + exit(1); + } + + if ($httpd_version lt $min_httpd_version) { + error "Apache/$httpd_version not supported, " . + "$min_httpd_version or higher is required"; + exit(1); + } + + printf "Configuring Apache/%s mod_perl/%s Perl/v%vd\n", + $httpd_version, $VERSION, $^V; + + my $apr_config = $build->get_apr_config; #cache it + + # we need to know where apr-config and apu-configs are + # which sometimes aren't placed into the same dir with apxs/httpd + # XXX: need to fix that for WIN32 + # XXX: when the source tree is used, there is not much use for apr-config + unless (WIN32 || $build->apr_config_path || $build->httpd_is_source_tree) { + error "can't find 'apr-config', please pass " . + "MP_APR_CONFIG=/full/path/to/apr-config to 'perl Makefile.PL'"; + exit 1; + } + + for (@{ clean_files() }) { + debug "unlink...$_" if -e $_ && unlink; + } + + #ModPerl::BuildMM will use Apache2::BuildConfig in subdir/Makefile.PL's + $build->save; + + ModPerl::TestRun->generate_script; + ModPerl::TestReport->generate_script; + Apache::TestSmokePerl->generate_script; + + my $tables_dir = tables_dir($httpd_version); + + unshift @INC, $tables_dir; + + if ($build->{MP_GENERATE_XS}) { + debug "generating XS code using $tables_dir..."; + xs_generate($httpd_version); + } + + install_typemap(); +} + +sub prompt_for_apxs { + my $build = shift; + + print <<EOI; + +Next we need to know where the 'apxs' script is located. This script +provides a lot of information about the Apache installation, and makes +it easier to find things on your system. Normally it's located in the +same directory as the 'httpd' executable. + +If you don't yet have Apache installed you can build Apache against +the Apache source code, but you won't be able to run the test suite (a +very important step). Therefore you may want to install Apache before +proceeding. + +EOI + + my $prompt = "\nPlease provide a full path to 'apxs' executable\n" . + "(press Enter if you don't have it installed):"; + while (1) { + my $ans = $build->prompt($prompt) || ""; + + print "\n\n"; + + # strip leading/closing spaces + $ans =~ s/^\s*|\s*$//g; + + last unless length $ans; # skip + + unless (File::Spec->file_name_is_absolute($ans)) { + warn "The path '$ans' is not an absolute path. " . + "Please specify an absolute path.\n"; + next; + } + + warn("'$ans' doesn't exist.\n"), next unless -e $ans; + warn("'$ans' is not a file.\n"), next unless -f _; + warn("'$ans' is not executable.\n"), next unless -x _; + + $build->{MP_APXS} = $ans; + last; + } +} + +sub post_configure { + + #now have any data subdir/Makefile.PL's save, e.g. XS + $build = Apache2::Build->build_config; + + $build->write_src_makefile; + $build->save_ldopts; + + $code->generate($build); + + for my $type (qw(DSO STATIC)) { + next unless $build->{"MP_USE_$type"}; + warning "mod_perl \L$type\E library will be built as ". + $build->{"MODPERL_LIB_$type"}; + } + + if ($build->is_dynamic) { + warning + "You'll need to add the following to httpd.conf:", "", + " LoadModule perl_module modules/$build->{MODPERL_LIB_DSO}", "", + "depending on your build, mod_perl might not live in", + "the modules/ directory.\n"; + if ($build->{MP_APXS}) { + warning + "Check the results of", "", + " \$ $build->{MP_APXS} -q LIBEXECDIR", "", + "and adjust the LoadModule directive accordingly.\n"; + } + } + + $build->save; +} + +sub tables_dir { + my $httpd_version = shift; + + my $tables_version=''; + if ($httpd_version lt MIN_HTTPD_24_VERSION) { + $tables_version='current'; + } + else { + $tables_version='current24'; + } + + my $tables_dir = "xs/tables/$tables_version"; +} + +sub xs_generate { + require ModPerl::WrapXS; + + my $xs = ModPerl::WrapXS->new; + + $xs->generate; + + #shift @INC; #ModPerl::Code needs this path too +} + +sub install_typemap { + my $to_file = 'lib/typemap'; + + open my $to_fh, ">$to_file" or die "open $to_file: $!"; + + for my $from_file (qw(WrapXS/typemap xs/typemap)) { + open my $from_fh, $from_file or die "open $from_file: $!"; + cp $from_fh, $to_fh; + close $from_fh; + } + + close $to_fh or die "close $to_file: $!"; +} + +sub echo_cmd { + my $cmd = shift; + print "$cmd\n"; + system($cmd) == 0 or exit(1); +} + +sub clean_files { + my $path = $code->path; + + my @files = (); + File::Find::find(sub { push @files, "$File::Find::dir/$_" if -f $_}, + "WrapXS") if -d "WrapXS"; + + push @files, map { "xs/$_.h" } + qw(modperl_xs_typedefs modperl_xs_sv_convert); + + return [@{ $build->clean_files }, + @files, + qw(lib/typemap + lib/ModPerl/MethodLookup.pm + lib/ModPerl/DummyVersions.pm + t/htdocs/vhost/error_log + t/SMOKE + t/TEST + t/REPORT + ), + <t/htdocs/hooks/startup/open_logs*>, + <t/htdocs/hooks/startup/post_config*>, + <xs/*.exp>, + <xs/*.def>, + map { "$path/$_"} @{ $code->clean_files } + ]; +} + +sub set_modperl_version { + require './lib/mod_perl2.pm'; + + $VERSION = $mod_perl2::VERSION_TRIPLET; + + open my $fh, 'Changes'; + while (<$fh>) { + if (/^=item\s+\Q$VERSION\E-(dev|rc\d+)/) { + $VERSION .= "-$1"; + last; + } + last if /^=item/; + } + close $fh; + + $build->{VERSION} = $VERSION; + $build->{API_VERSION} = $mod_perl2::API_VERSION; +} + +# needs to be run after configure() when apxs is setup +sub perl_version_check { + my $build = shift; + + my $perl_version = $]; + $perl_version =~ s/5.00(\d)(?:00(\d))?/"5.$1." . ($2||0)/e; + my $perl_threads = Apache2::Build::PERL_HAS_ITHREADS ? "w/" : "w/o"; + my $perl_string = "Using Perl $perl_version $perl_threads ithreads"; + my $httpd_version = $build->httpd_version; + my $mpm = ""; + my $build_threaded = 0; + + # For httpd-2.4, we can't use mpm_is_threaded(), because MPMs are loadable + # modules. We therefore treat httpd as a whole project as threaded. It is + # still possible to disable threading by using MP_NO_THREADS=1 + if ($httpd_version lt MIN_HTTPD_24_VERSION) { + $build_threaded = $build->mpm_is_threaded(); + $mpm = $build->mpm_name(); + } + else { + if ($build->{MP_NO_THREADS}) { + $build_threaded = 0; + } + else { + $build_threaded = 1; + } + } + + # certain mpms require perl 5.8.0+ w/ithreads + if ($build_threaded) { + my @fail; + push @fail, "Perl 5.8 or higher" + unless $] >= 5.008; + push @fail, "Perl built with ithreads (build perl with -Duseithreads)" + unless Apache2::Build::PERL_HAS_ITHREADS(); + if (@fail) { + if ($httpd_version lt MIN_HTTPD_24_VERSION) { + error "$perl_string and '$mpm' mpm httpd.", + "Failed requirements:", + join "", map {" - $_\n"} @fail; + } + else { + error "$perl_string and httpd-2.4.", + "Failed requirements:", + join "", map {" - $_\n"} @fail; + } + exit 1; + } + } + else { + # before 5.8.2, perl_shutdown is incomplete (in the case of ithreads + # each PerlInterpreter * gets tossed so it works) + if ($build->should_build_apache && !Apache2::Build::PERL_HAS_ITHREADS) { + # before 5.8.2, perl_shutdown is incomplete + if ($] < 5.008_002) { + if ($httpd_version lt MIN_HTTPD_24_VERSION) { + error "static $mpm mpm requires a threaded ". + "perl 5.6.1-5.8.1 or any perl 5.8.2+"; + } + else { + error "httpd-2.4 requires a threaded ". + "perl 5.6.1-5.8.1 or any perl 5.8.2+"; + } + exit 1; + } + } + } + + if ($] < 5.006_001) { + error "$perl_string. You need at least Perl 5.6.1"; + exit 1; + } + + if ($] >= 5.007 and $] < 5.008) { + error "$perl_string.", + "5.7.x development versions of Perl are no longer supported", + "Upgrade to Perl 5.8.0 or higher"; + exit 1; + } + + if ($Config{usemultiplicity} xor $Config{useithreads}) { + error "mod_perl does not currently support multiplicity without ". + "ithreads."; + if ($build_threaded) { + error "Please recompile Perl with -Duseithreads and ". + "-Dusemultiplicity"; + } else { + error "Please recompile Perl with either -Duseithreads and ". + "-Dusemultiplicity or -Uuseithreads and -Uusemultiplicity"; + } + exit 1; + } +} + +sub system_sanity_check { + return if WIN32; + + my $ccflags = $build->perl_config('ccflags'); + for (split /\s+/, $ccflags) { + next unless s/^-I//; + my $header = "$_/ap_mmn.h"; + if (-e $header) { + $build->phat_warn(<<EOF); +Apache headers found in unexpected location: ``$_'', suggestions: + *) Remove via ``rpm -e apache'' + *) Remove by hand + *) Complain to your os vendor about their poor layout choice + *) Complain to your sysadmin about their poor layout choice +EOF + } + } + + $build->lib_check('gdbm'); + malloc_check(); + os_check(); +} + +sub malloc_check { + return unless $build->is_dynamic; + return unless $build->perl_config('usemymalloc') eq 'y'; + + my $abort = $^O eq 'solaris'; + + my $bincompat = $build->perl_config('bincompat5005'); + + if ($bincompat) { + $build->phat_warn(<<EOF, $abort); +Your current configuration will most likely trigger core dumps, suggestions: + *) Do not configure mod_perl as a DSO + *) Rebuild Perl without malloc pollution (Configure -Ubincompat5005) +EOF + } +} + +sub os_check { + my $check = \&{"os_check_$^O"}; + return unless defined &$check; + $check->() +} + +sub os_check_hpux { + my $ccflags = $build->perl_config('ccflags'); + my $ld = $build->perl_config('ld'); + + if ($build->is_dynamic and $ld eq 'ld') { + unless ($ccflags =~ /\+z/i) { + $build->phat_warn(<<EOF); +mod_perl is unlikely to link with your libperl, suggestions: + *) Rebuild Perl with Configure -Accflags=+Z ... +EOF + } + } +} + +sub win32_fetch_apxs { + return unless (my $prefix = $build->{MP_AP_PREFIX}); + my $script = catfile($build->{cwd}, 'build', 'win32_fetch_apxs'); + my @args = ($^X, $script, "--with-apache2=$prefix"); + system(@args) == 0 or die "system @args failed: $?"; + my $apxs = catfile($prefix, 'bin', 'apxs.bat'); + $build->{MP_APXS} = $apxs if -e $apxs; +} + + +package MY; + +use Config; +use constant WIN32 => $^O eq 'MSWin32'; +use constant BUILD_APREXT => Apache2::Build::BUILD_APREXT; + +sub MY::top_targets { + my $self = shift; + my $string = $self->ModPerl::BuildMM::MY::top_targets; + + if (BUILD_APREXT) { + ModPerl::MM::add_dep(\$string, pure_all => 'aprext'); + + # must not import File::Spec functions inside MY, it breaks + # 5.6.x builds + my ($apr_blib, $full_libname) = $build->mp_apr_blib(); + my $from = File::Spec->catfile($apr_blib, $full_libname); + (my $ap_lib = $build->ap_includedir()) =~ s{include$}{lib}; + my $to = File::Spec->catfile($ap_lib, $full_libname); + my $src_dir = File::Spec->catdir(qw(xs APR), 'aprext'); + $string .= <<"EOF"; + +aprext: + cd "$src_dir" && \$(MAKE) all \$(PASTHRU) LINKTYPE="static" + +aprext_install: + \@\$(MKPATH) "$ap_lib" + \$(CP) "$from" "$to" + +EOF + } + + if ($build->should_build_apache) { + ModPerl::MM::add_dep(\$string, pure_all => 'ap_build'); + $string .= <<"EOF"; +ap_build: modperl_lib + cd "$build->{MP_AP_PREFIX}" && make + +ap_install: ap_build + cd "$build->{MP_AP_PREFIX}" && make DESTDIR=\$(DESTDIR) install +EOF + } + + ModPerl::MM::add_dep(\$string, pure_all => 'modperl_lib'); + + $string .= <<'EOF'; + +source_scan: + $(PERL) build/source_scan.pl + +xs_generate: + $(PERL) build/xs_generate.pl + +bugreport: + $(PERL) bin/mp2bug + +etags: + $(SHELL) build/make_etags + +modperl_lib: + cd "$(MODPERL_SRC)" && $(MAKE) + +modperl_lib_install: + cd "$(MODPERL_SRC)" && $(MAKE) DESTDIR=$(DESTDIR) install + +modperl_xs_h_install: + @$(MKPATH) $(DESTDIR)$(MODPERL_AP_INCLUDEDIR) + $(CP) $(MODPERL_XS_H_FILES) $(DESTDIR)$(MODPERL_AP_INCLUDEDIR) + +modperl_src_clean: + cd "$(MODPERL_SRC)" && $(MAKE) clean + +EOF + + # $(ECHO) was broken before 6.10_01 + # XXX: if ever require 6.11 we can remove this workaround + require ExtUtils::MakeMaker; + (my $mm_ver = ExtUtils::MakeMaker->VERSION) =~ s/_\d+//; + my $say = $mm_ver > 6.10 + ? '@$(ECHO)' + : '@$(PERL) -le "print shift"'; + + $string .= <<"EOF"; +modperl_banner: + $say "+--------------------------------------------------------------+" + $say "| |" + $say "| For details on getting started with mod_perl 2, see: |" + $say "| |" + $say "| http://perl.apache.org/docs/2.0/user/intro/start_fast.html |" + $say "| |" + $say "| |" + $say "| Found a bug? File a bug report: |" + $say "| |" + $say "| http://perl.apache.org/bugs/ |" + $say "| |" + $say "+--------------------------------------------------------------+" + +EOF + + $string; +} + +sub MY::install { + my $self = shift; + my $string = $self->MM::install(@_); + + for my $kind ('', '_site', '_vendor') { + ModPerl::MM::add_dep(\$string, "pure${kind}_install" => 'ap_install') + if $build->should_build_apache; + ModPerl::MM::add_dep(\$string, "pure${kind}_install" => 'modperl_lib_install'); + ModPerl::MM::add_dep(\$string, "pure${kind}_install" => 'modperl_xs_h_install'); + # ModPerl::MM::add_dep(\$string, "pure${kind}_install" => 'aprext_install') + # if BUILD_APREXT; + + ModPerl::MM::add_dep_after(\$string, "install$kind", "doc${kind}_install", 'modperl_banner'); + + # glue_pods target must come first + ModPerl::MM::add_dep(\$string, "pure${kind}_install" => 'glue_pods'); + } + + $string; +} + +sub MY::clean { + my $self = shift; + my $string = $self->MM::clean(@_); + ModPerl::MM::add_dep(\$string, clean => 'modperl_src_clean'); + ModPerl::MM::add_dep(\$string, clean => 'test_clean'); + $string; +} + +sub MY::test { + + my $preamble; + if (Apache::TestConfig::WIN32) { + # need to add the location of Apache's dlls to the PATH + my $ap_bindir = $build->apr_bindir() || ''; + unless ($ap_bindir) { + $ap_bindir = File::Spec->catdir($build->{MP_AP_PREFIX}, 'bin') + if $build->{MP_AP_PREFIX}; + } + my $modperl_libexecdir = ''; + if ($build->is_dynamic) { + # need to add the location of mod_perl.so to the PATH + my $lib = $build->modperl_libpath() || ''; + if ($lib) { + $modperl_libexecdir = File::Basename::dirname($lib); + } + else { + $modperl_libexecdir = File::Spec->catdir($build->{cwd}, + 'src/modules/perl') + if $build->{cwd}; + } + } + my $extra_path = ''; + $extra_path .= ";$ap_bindir" if $ap_bindir; + $extra_path .= ";$modperl_libexecdir" if $modperl_libexecdir; + $preamble = <<EOF; +PATH = \$(PATH)$extra_path +EOF + } + else { + # PASSENV confuses the Win32 command-line build + my $env = Apache::TestConfig->passenv_makestr(); + $preamble = <<EOF; +PASSENV = $env +EOF + } + + $preamble .= <<'EOF'; +TEST_VERBOSE = 0 +TEST_FILES = + +test_clean : + $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) \ + t/TEST -clean + +run_tests : test_clean + $(PASSENV) \ + $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) \ + t/TEST -bugreport -verbose=$(TEST_VERBOSE) $(TEST_FILES) + +run_subtests :: + cd ModPerl-Registry && $(MAKE) test + +run_subtests :: + cd Apache-Reload && $(MAKE) test + +EOF + + $preamble .= <<'EOF' unless $build->mpm_is_threaded(); +run_subtests :: + cd Apache-SizeLimit && $(MAKE) test + +EOF + + $preamble .= <<'EOF'; +test :: pure_all run_tests run_subtests +EOF + + return $preamble; +} + +sub MY::postamble { + my $self = shift; + + my $string = $self->ModPerl::BuildMM::MY::postamble; + + if (!WIN32) { + $string .= <<'EOF'; +rpm: dist + @[ -d $(PWD)/rpm ] || mkdir $(PWD)/rpm + rpmbuild -ta --define "_rpmdir $(PWD)/rpm" \ + --define "_srcrpmdir $(PWD)/rpm" \ + $(DISTVNAME).tar.gz + @mv $(PWD)/rpm/*/*.rpm $(PWD)/rpm/ + @rm -rf $(PWD)/rpm/*/ + +EOF + } + + my $q = (WIN32 ? '"' : "'"); + + $string .= <<"EOF"; +mydist : Apache-Test/META.yml mod_perl.spec manifest tardist + +mod_perl.spec: build/make_rpm_spec + \$(PERL) build/make_rpm_spec + +Apache-Test/META.yml: + cd Apache-Test && make metafile + +tag : + svn copy -m $q\$(VERSION_SYM) release branch$q https://svn.apache.org/repos/asf/perl/modperl/trunk https://svn.apache.org/repos/asf/perl/modperl/branches/release/\$(VERSION_SYM) + svn copy -m $q\$(VERSION_SYM) tag$q https://svn.apache.org/repos/asf/perl/modperl/branches/release/\$(VERSION_SYM) https://svn.apache.org/repos/asf/perl/modperl/tags/\$(VERSION_SYM) + svn copy -m $q\$(VERSION_SYM) tag$q https://svn.apache.org/repos/asf/perl/modperl/docs/trunk https://svn.apache.org/repos/asf/perl/modperl/docs/tags/\$(VERSION_SYM) +EOF + + return $string; +} + +# this is a workaround so that ModPerl::MM will move MY::constants +# away, and Apache-Test/Makefile.PL which has its own MY::constants +# won't get complaints on MY::constants redefined +sub MY::constants { + shift->ModPerl::BuildMM::MY::constants; +} + +sub MY::tool_autosplit { + ''; +} + +sub MY::manifypods { + my $self = shift; + my $ver = $self->{VERSION} || ""; + local $_ = $self->MM::manifypods(@_); + s/pod2man\s*$/pod2man --release mod_perl-$ver/m; + $_; +} + +sub MY::pasthru { + my $self = shift; + chomp(my $str = $self->MM::pasthru); + join $/, "$str\\", + "\t".'PERL="$(PERL)"\\', + "\t".'DEFINE="$(DEFINE)"', + ""; +} + +sub MY::dist_basics { + my $self = shift; + my $str = $self->MM::dist_basics; + + $str =~ s/(\"?)-MExtUtils(::Manifest=mkmanifest)/-Ilib $1-MModPerl$2/; + + $str; +}
diff --git a/2_0_13/ModPerl-Registry/MANIFEST b/2_0_13/ModPerl-Registry/MANIFEST new file mode 100644 index 0000000..88a5ab6 --- /dev/null +++ b/2_0_13/ModPerl-Registry/MANIFEST
@@ -0,0 +1,19 @@ +MANIFEST This list of files +Makefile.PL +README +TODO +lib/ModPerl/PerlRun.pm +lib/ModPerl/Registry.pm +lib/ModPerl/RegistryBB.pm +lib/ModPerl/RegistryCooker.pm +t/TEST.PL +t/basic.t +t/closure.t +t/cgi-bin/basic.pl +t/cgi-bin/closure.pl +t/cgi-bin/env.pl +t/cgi-bin/local-conf.pl +t/cgi-bin/not_executable.pl +t/cgi-bin/require.pl +t/conf/extra.conf.in +
diff --git a/2_0_13/ModPerl-Registry/Makefile.PL b/2_0_13/ModPerl-Registry/Makefile.PL new file mode 100644 index 0000000..0184b4c --- /dev/null +++ b/2_0_13/ModPerl-Registry/Makefile.PL
@@ -0,0 +1,44 @@ +use strict; +use warnings FATAL => 'all'; +no warnings 'redefine'; + +use FindBin; +use lib grep { -d } map "$FindBin::Bin/../$_", qw(lib Apache-Test/lib); + +use ModPerl::BuildMM (); +use Apache::TestSmokePerl (); +use Apache2::Build (); + +# enable 'make test|clean' +use Apache::TestMM qw(test clean); + +# prerequisites +my %require = ( + "Apache::Test" => "0", # any version will do? +); + +my @scripts = qw(t/TEST t/SMOKE); + +# accept the configs from comman line +Apache::TestMM::filter_args(); + +my $build = Apache2::Build->build_config; +if ($build->should_build_apache) { + push @Apache::TestMM::Argv, ('httpd' => $build->{httpd}); +} +Apache::TestMM::generate_script('t/TEST'); + +# t/SMOKE +Apache::TestSmokePerl->generate_script; + +ModPerl::BuildMM::WriteMakefile( + NAME => 'ModPerl::Registry', + VERSION_FROM => 'lib/ModPerl/RegistryCooker.pm', + PREREQ_PM => \%require, + clean => { + FILES => "@{ clean_files() }", + }); + +sub clean_files { + return [@scripts, 'Makefile.old']; +}
diff --git a/2_0_13/ModPerl-Registry/README b/2_0_13/ModPerl-Registry/README new file mode 100644 index 0000000..a1ee07b --- /dev/null +++ b/2_0_13/ModPerl-Registry/README
@@ -0,0 +1 @@ +to be written
diff --git a/2_0_13/ModPerl-Registry/TODO b/2_0_13/ModPerl-Registry/TODO new file mode 100644 index 0000000..e69de29 --- /dev/null +++ b/2_0_13/ModPerl-Registry/TODO
diff --git a/2_0_13/ModPerl-Registry/lib/ModPerl/PerlRun.pm b/2_0_13/ModPerl-Registry/lib/ModPerl/PerlRun.pm new file mode 100644 index 0000000..9dc3ce9 --- /dev/null +++ b/2_0_13/ModPerl-Registry/lib/ModPerl/PerlRun.pm
@@ -0,0 +1,79 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::PerlRun; + +use strict; +use warnings FATAL => 'all'; + +# we try to develop so we reload ourselves without die'ing on the warning +no warnings qw(redefine); # XXX, this should go away in production! + +our $VERSION = '1.99'; + +use base qw(ModPerl::RegistryCooker); + +sub handler : method { + my $class = (@_ >= 2) ? shift : __PACKAGE__; + my $r = shift; + return $class->new($r)->default_handler(); +} + +my $parent = 'ModPerl::RegistryCooker'; +# the following code: +# - specifies package's behavior different from default of $parent class +# - speeds things up by shortcutting @ISA search, so even if the +# default is used we still use the alias +my %aliases = ( + new => 'new', + init => 'init', + default_handler => 'default_handler', + run => 'run', + can_compile => 'can_compile', + make_namespace => 'make_namespace', + namespace_root => 'namespace_root', + namespace_from => 'namespace_from_filename', + is_cached => 'FALSE', + should_compile => 'TRUE', + flush_namespace => 'flush_namespace_normal', + cache_table => 'cache_table_common', + cache_it => 'NOP', + read_script => 'read_script', + shebang_to_perl => 'shebang_to_perl', + get_script_name => 'get_script_name', + chdir_file => 'NOP', + get_mark_line => 'get_mark_line', + compile => 'compile', + error_check => 'error_check', + should_reset_inc_hash => 'TRUE', + strip_end_data_segment => 'strip_end_data_segment', + convert_script_to_compiled_handler => 'convert_script_to_compiled_handler', +); + +# in this module, all the methods are inherited from the same parent +# class, so we fixup aliases instead of using the source package in +# first place. +$aliases{$_} = $parent . "::" . $aliases{$_} for keys %aliases; + +__PACKAGE__->install_aliases(\%aliases); + + + + + +1; +__END__ +
diff --git a/2_0_13/ModPerl-Registry/lib/ModPerl/PerlRunPrefork.pm b/2_0_13/ModPerl-Registry/lib/ModPerl/PerlRunPrefork.pm new file mode 100644 index 0000000..445e599 --- /dev/null +++ b/2_0_13/ModPerl-Registry/lib/ModPerl/PerlRunPrefork.pm
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package ModPerl::PerlRunPrefork; + +use strict; +use warnings FATAL => 'all'; + +our $VERSION = '0.01'; + +use base qw(ModPerl::PerlRun); + +if ($ENV{MOD_PERL}) { + require Apache2::MPM; + die "This package can't be used under threaded MPMs" + if Apache2::MPM->is_threaded; +} + +sub handler : method { + my $class = (@_ >= 2) ? shift : __PACKAGE__; + my $r = shift; + return $class->new($r)->default_handler(); +} + +*chdir_file = \&ModPerl::RegistryCooker::chdir_file_normal; + +1; +__END__
diff --git a/2_0_13/ModPerl-Registry/lib/ModPerl/Registry.pm b/2_0_13/ModPerl-Registry/lib/ModPerl/Registry.pm new file mode 100644 index 0000000..9d7904e --- /dev/null +++ b/2_0_13/ModPerl-Registry/lib/ModPerl/Registry.pm
@@ -0,0 +1,85 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::Registry; + +use strict; +use warnings FATAL => 'all'; + +# we try to develop so we reload ourselves without die'ing on the warning +no warnings qw(redefine); # XXX, this should go away in production! + +our $VERSION = '1.99'; + +use base qw(ModPerl::RegistryCooker); + +sub handler : method { + my $class = (@_ >= 2) ? shift : __PACKAGE__; + my $r = shift; + return $class->new($r)->default_handler(); +} + +my $parent = 'ModPerl::RegistryCooker'; +# the following code: +# - specifies package's behavior different from default of $parent class +# - speeds things up by shortcutting @ISA search, so even if the +# default is used we still use the alias +my %aliases = ( + new => 'new', + init => 'init', + default_handler => 'default_handler', + run => 'run', + can_compile => 'can_compile', + make_namespace => 'make_namespace', + namespace_root => 'namespace_root', + namespace_from => 'namespace_from_filename', + is_cached => 'is_cached', + should_compile => 'should_compile_if_modified', + flush_namespace => 'NOP', + cache_table => 'cache_table_common', + cache_it => 'cache_it', + read_script => 'read_script', + shebang_to_perl => 'shebang_to_perl', + get_script_name => 'get_script_name', + chdir_file => 'NOP', + get_mark_line => 'get_mark_line', + compile => 'compile', + error_check => 'error_check', + strip_end_data_segment => 'strip_end_data_segment', + convert_script_to_compiled_handler => 'convert_script_to_compiled_handler', +); + +# in this module, all the methods are inherited from the same parent +# class, so we fixup aliases instead of using the source package in +# first place. +$aliases{$_} = $parent . "::" . $aliases{$_} for keys %aliases; + +__PACKAGE__->install_aliases(\%aliases); + +# Note that you don't have to do the aliases if you use defaults, it +# just speeds things up the first time the sub runs, after that +# methods are cached. +# +# But it's still handy, since you explicitly specify which subs from +# the parent package you are using +# + +# META: if the ISA search results are cached on the first lookup, may +# be we need to alias only those methods that override the defaults? + + +1; +__END__
diff --git a/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryBB.pm b/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryBB.pm new file mode 100644 index 0000000..d3667a8 --- /dev/null +++ b/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryBB.pm
@@ -0,0 +1,40 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::RegistryBB; + +use strict; +use warnings FATAL => 'all'; + +# we try to develop so we reload ourselves without die'ing on the warning +no warnings qw(redefine); # XXX, this should go away in production! + +our $VERSION = '1.99'; + +use base qw(ModPerl::RegistryCooker); + +sub handler : method { + my $class = (@_ >= 2) ? shift : __PACKAGE__; + my $r = shift; + return $class->new($r)->default_handler(); +} + +# currently all the methods are inherited through the normal ISA +# search may + +1; +__END__ +
diff --git a/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm b/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm new file mode 100644 index 0000000..cf50007 --- /dev/null +++ b/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
@@ -0,0 +1,788 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +# VERY IMPORTANT: Be very careful modifying the defaults, since many +# VERY IMPORTANT: packages rely on them. In fact you should never +# VERY IMPORTANT: modify the defaults after the package gets released, +# VERY IMPORTANT: since they are a hardcoded part of this suite's API. + +package ModPerl::RegistryCooker; + +require 5.006; + +use strict; +use warnings FATAL => 'all'; + +our $VERSION = '1.99'; + +use Apache2::ServerUtil (); +use Apache2::Response (); +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use Apache2::RequestIO (); +use Apache2::Log (); +use Apache2::Access (); + +use APR::Table (); +use APR::Finfo (); +use APR::Status (); + +use ModPerl::Util (); +use ModPerl::Global (); + +use File::Spec::Functions (); +use File::Basename (); + +use Apache2::Const -compile => qw(:common &OPT_EXECCGI); +use APR::Const -compile => qw(FILETYPE_REG); +use ModPerl::Const -compile => 'EXIT'; + +unless (defined $ModPerl::Registry::MarkLine) { + $ModPerl::Registry::MarkLine = 1; +} + +######################################################################### +# debug constants +# +######################################################################### +use constant D_NONE => 0; +use constant D_ERROR => 1; +use constant D_WARN => 2; +use constant D_COMPILE => 4; +use constant D_NOISE => 8; + +# the debug level can be overriden on the main server level of +# httpd.conf with: +# PerlSetVar ModPerl::RegistryCooker::DEBUG 4 +use constant DEBUG => 0; +#XXX: below currently crashes the server on win32 +# defined Apache2->server->dir_config('ModPerl::RegistryCooker::DEBUG') +# ? Apache2->server->dir_config('ModPerl::RegistryCooker::DEBUG') +# : D_NONE; + +######################################################################### +# OS specific constants +# +######################################################################### +use constant IS_WIN32 => $^O eq "MSWin32"; + +######################################################################### +# constant subs +# +######################################################################### +use constant NOP => ''; +use constant TRUE => 1; +use constant FALSE => 0; + + +use constant NAMESPACE_ROOT => 'ModPerl::ROOT'; + + +######################################################################### + +unless (defined $ModPerl::RegistryCooker::NameWithVirtualHost) { + $ModPerl::RegistryCooker::NameWithVirtualHost = 1; +} + +######################################################################### +# func: new +# dflt: new +# args: $class - class to bless into +# $r - Apache2::RequestRec object +# desc: create the class's object and bless it +# rtrn: the newly created object +######################################################################### + +sub new { + my ($class, $r) = @_; + my $self = bless {}, $class; + $self->init($r); + return $self; +} + +######################################################################### +# func: init +# dflt: init +# desc: initializes the data object's fields: REQ FILENAME URI +# args: $r - Apache2::RequestRec object +# rtrn: nothing +######################################################################### + +sub init { + $_[0]->{REQ} = $_[1]; + $_[0]->{URI} = $_[1]->uri; + $_[0]->{FILENAME} = $_[1]->filename; +} + +######################################################################### +# func: handler +# dflt: handler +# desc: the handler() sub that is expected by Apache +# args: $class - handler's class +# $r - Apache2::RequestRec object +# (o)can be called as handler($r) as well (without leading $class) +# rtrn: handler's response status +# note: must be implemented in a sub-class unless configured as +# Apache2::Foo->handler in httpd.conf (because of the +# __PACKAGE__, which is tied to the file) +######################################################################### + +sub handler : method { + my $class = (@_ >= 2) ? shift : __PACKAGE__; + my $r = shift; + return $class->new($r)->default_handler(); +} + +######################################################################### +# func: default_handler +# dflt: META: see above +# desc: META: see above +# args: $self - registry blessed object +# rtrn: handler's response status +# note: that's what most sub-class handlers will call +######################################################################### + +sub default_handler { + my $self = shift; + + $self->make_namespace; + + if ($self->should_compile) { + my $rc = $self->can_compile; + return $rc unless $rc == Apache2::Const::OK; + $rc = $self->convert_script_to_compiled_handler; + return $rc unless $rc == Apache2::Const::OK; + } + + # handlers shouldn't set $r->status but return it, so we reset the + # status after running it + my $old_status = $self->{REQ}->status; + my $rc = $self->run; + my $new_status = $self->{REQ}->status($old_status); + return ($rc == Apache2::Const::OK && $old_status != $new_status) + ? $new_status + : $rc; +} + +######################################################################### +# func: run +# dflt: run +# desc: executes the compiled code +# args: $self - registry blessed object +# rtrn: execution status (Apache2::?) +######################################################################### + +sub run { + my $self = shift; + + my $r = $self->{REQ}; + my $package = $self->{PACKAGE}; + + $self->chdir_file; + + my $cv = \&{"$package\::handler"}; + + my %orig_inc; + if ($self->should_reset_inc_hash) { + %orig_inc = %INC; + } + + my $rc = Apache2::Const::OK; + { # run the code and preserve warnings setup when it's done + no warnings FATAL => 'all'; + #local $^W = 0; + eval { $cv->($r, @_) }; + + # log script's execution errors + $rc = $self->error_check; + + { + # there might be no END blocks to call, so $@ will be not + # reset + local $@; + ModPerl::Global::special_list_call(END => $package); + + # log script's END blocks execution errors + my $new_rc = $self->error_check; + + # use the END blocks return status if the script's execution + # was successful + $rc = $new_rc if $rc == Apache2::Const::OK; + } + + } + + if ($self->should_reset_inc_hash) { + # to avoid the bite of require'ing a file with no package delaration + # Apache2::PerlRun in mod_perl 1.15_01 started to localize %INC + # later on it has been adjusted to preserve loaded .pm files, + # which presumably contained the package declaration + for (keys %INC) { + next if $orig_inc{$_}; + next if /\.pm$/; + delete $INC{$_}; + } + } + + $self->flush_namespace; + + $self->chdir_file(Apache2::ServerUtil::server_root()); + + return $rc; +} + + + +######################################################################### +# func: can_compile +# dflt: can_compile +# desc: checks whether the script is allowed and can be compiled +# args: $self - registry blessed object +# rtrn: $rc - return status to forward +# efct: initializes the data object's fields: MTIME +######################################################################### + +sub can_compile { + my $self = shift; + my $r = $self->{REQ}; + + return Apache2::Const::DECLINED + unless $r->finfo->filetype==APR::Const::FILETYPE_REG; + + $self->{MTIME} = $r->finfo->mtime; + + if (!($r->allow_options & Apache2::Const::OPT_EXECCGI)) { + $r->log_error("Options ExecCGI is off in this directory", + $self->{FILENAME}); + return Apache2::Const::FORBIDDEN; + } + + $self->debug("can compile $self->{FILENAME}") if DEBUG & D_NOISE; + + return Apache2::Const::OK; + +} +######################################################################### +# func: namespace_root +# dflt: namespace_root +# desc: define the namespace root for storing compiled scripts +# args: $self - registry blessed object +# rtrn: the namespace root +######################################################################### + +sub namespace_root { + my $self = shift; + join '::', NAMESPACE_ROOT, ref($self); +} + +######################################################################### +# func: make_namespace +# dflt: make_namespace +# desc: prepares the namespace +# args: $self - registry blessed object +# rtrn: the namespace +# efct: initializes the field: PACKAGE +######################################################################### + +sub make_namespace { + my $self = shift; + + my $package = $self->namespace_from; + + # Escape everything into valid perl identifiers + $package =~ s/([^A-Za-z0-9_])/sprintf("_%2x", unpack("C", $1))/eg; + + # make sure that the sub-package doesn't start with a digit + $package =~ s/^(\d)/_$1/; + + # prepend root + $package = $self->namespace_root() . "::$package"; + + $self->{PACKAGE} = $package; + + return $package; +} + +######################################################################### +# func: namespace_from +# dflt: namespace_from_filename +# desc: returns a partial raw package name based on filename, uri, else +# args: $self - registry blessed object +# rtrn: a unique string +######################################################################### + +*namespace_from = \&namespace_from_filename; + +# return a package name based on $r->filename only +sub namespace_from_filename { + my $self = shift; + + my ($volume, $dirs, $file) = + File::Spec::Functions::splitpath($self->{FILENAME}); + my @dirs = File::Spec::Functions::splitdir($dirs); + return join '_', grep { defined && length } $volume, @dirs, $file; +} + +# return a package name based on $r->uri only +sub namespace_from_uri { + my $self = shift; + + my $path_info = $self->{REQ}->path_info; + my $script_name = $path_info && $self->{URI} =~ /\Q$path_info\E$/ + ? substr($self->{URI}, 0, length($self->{URI}) - length($path_info)) + : $self->{URI}; + + if ($ModPerl::RegistryCooker::NameWithVirtualHost && + $self->{REQ}->server->is_virtual) { + my $name = $self->{REQ}->get_server_name; + $script_name = join "", $name, $script_name if $name; + } + + $script_name =~ s:/+$:/__INDEX__:; + + return $script_name; +} + +######################################################################### +# func: convert_script_to_compiled_handler +# dflt: convert_script_to_compiled_handler +# desc: reads the script, converts into a handler and compiles it +# args: $self - registry blessed object +# rtrn: success/failure status +######################################################################### + +sub convert_script_to_compiled_handler { + my $self = shift; + + my $rc = Apache2::Const::OK; + + $self->debug("Adding package $self->{PACKAGE}") if DEBUG & D_NOISE; + + # get the script's source + $rc = $self->read_script; + return $rc unless $rc == Apache2::Const::OK; + + # convert the shebang line opts into perl code + my $shebang = $self->shebang_to_perl; + + # mod_cgi compat, should compile the code while in its dir, so + # relative require/open will work. + $self->chdir_file; + +# undef &{"$self->{PACKAGE}\::handler"}; unless DEBUG & D_NOISE; #avoid warnings +# $self->{PACKAGE}->can('undef_functions') && $self->{PACKAGE}->undef_functions; + + my $line = $self->get_mark_line; + + $self->strip_end_data_segment; + + # handle the non-parsed handlers ala mod_cgi (though mod_cgi does + # some tricks removing the header_out and other filters, here we + # just call assbackwards which has the same effect). + my $base = File::Basename::basename($self->{FILENAME}); + my $nph = substr($base, 0, 4) eq 'nph-' ? '$_[0]->assbackwards(1);' : ""; + my $script_name = $self->get_script_name || $0; + + my $eval = join '', + 'package ', + $self->{PACKAGE}, ";", + "sub handler {", + "local \$0 = '$script_name';", + $nph, + $shebang, + $line, + ${ $self->{CODE} }, + "\n}"; # last line comment without newline? + + $rc = $self->compile(\$eval); + return $rc unless $rc == Apache2::Const::OK; + $self->debug(qq{compiled package \"$self->{PACKAGE}\"}) if DEBUG & D_NOISE; + + $self->chdir_file(Apache2::ServerUtil::server_root()); + +# if(my $opt = $r->dir_config("PerlRunOnce")) { +# $r->child_terminate if lc($opt) eq "on"; +# } + + $self->cache_it; + + return $rc; +} + +######################################################################### +# func: cache_table +# dflt: cache_table_common +# desc: return a symbol table for caching compiled scripts in +# args: $self - registry blessed object (or the class name) +# rtrn: symbol table +######################################################################### + +*cache_table = \&cache_table_common; + +sub cache_table_common { + \%ModPerl::RegistryCache; +} + + +sub cache_table_local { + my $self = shift; + my $class = ref($self) || $self; + no strict 'refs'; + \%$class; +} + +######################################################################### +# func: cache_it +# dflt: cache_it +# desc: mark the package as cached by storing its modification time +# args: $self - registry blessed object +# rtrn: nothing +######################################################################### + +sub cache_it { + my $self = shift; + $self->cache_table->{ $self->{PACKAGE} }{mtime} = $self->{MTIME}; +} + + +######################################################################### +# func: is_cached +# dflt: is_cached +# desc: checks whether the package is already cached +# args: $self - registry blessed object +# rtrn: TRUE if cached, +# FALSE otherwise +######################################################################### + +sub is_cached { + my $self = shift; + exists $self->cache_table->{ $self->{PACKAGE} }{mtime}; +} + + +######################################################################### +# func: should_compile +# dflt: should_compile_once +# desc: decide whether code should be compiled or not +# args: $self - registry blessed object +# rtrn: TRUE if should compile +# FALSE otherwise +# efct: sets MTIME if it's not set yet +######################################################################### + +*should_compile = \&should_compile_once; + +# return false only if the package is cached and its source file +# wasn't modified +sub should_compile_if_modified { + my $self = shift; + $self->{MTIME} ||= $self->{REQ}->finfo->mtime; + !($self->is_cached && + $self->cache_table->{ $self->{PACKAGE} }{mtime} == $self->{MTIME}); +} + +# return false if the package is cached already +sub should_compile_once { + not shift->is_cached; +} + +######################################################################### +# func: should_reset_inc_hash +# dflt: FALSE +# desc: decide whether to localize %INC for required .pl files from the script +# args: $self - registry blessed object +# rtrn: TRUE if should reset +# FALSE otherwise +######################################################################### + +*should_reset_inc_hash = \&FALSE; + +######################################################################### +# func: flush_namespace +# dflt: NOP (don't flush) +# desc: flush the compiled package's namespace +# args: $self - registry blessed object +# rtrn: nothing +######################################################################### + +*flush_namespace = \&NOP; + +sub flush_namespace_normal { + my $self = shift; + + $self->debug("flushing namespace") if DEBUG & D_NOISE; + ModPerl::Util::unload_package($self->{PACKAGE}); +} + + +######################################################################### +# func: read_script +# dflt: read_script +# desc: reads the script in +# args: $self - registry blessed object +# rtrn: Apache2::Const::OK on success, some other code on failure +# efct: initializes the CODE field with the source script +######################################################################### + +# reads the contents of the file +sub read_script { + my $self = shift; + + $self->debug("reading $self->{FILENAME}") if DEBUG & D_NOISE; + $self->{CODE} = eval { $self->{REQ}->slurp_filename(0) }; # untainted + if ($@) { + $self->log_error("$@"); + + if (ref $@ eq 'APR::Error') { + return Apache2::Const::FORBIDDEN if APR::Status::is_EACCES($@); + return Apache2::Const::NOT_FOUND if APR::Status::is_ENOENT($@); + } + + return Apache2::Const::SERVER_ERROR; + } + + return Apache2::Const::OK; +} + +######################################################################### +# func: shebang_to_perl +# dflt: shebang_to_perl +# desc: parse the shebang line and convert command line switches +# (defined in %switches) into a perl code. +# args: $self - registry blessed object +# rtrn: a Perl snippet to be put at the beginning of the CODE field +# by caller +######################################################################### + +my %switches = ( + 'T' => sub { + Apache2::ServerRec::warn("-T switch is ignored, enable " . + "with 'PerlSwitches -T' in httpd.conf\n") + unless ${^TAINT}; + ""; + }, + 'w' => sub { "use warnings;\n" }, +); + +sub shebang_to_perl { + my $self = shift; + my ($line) = ${ $self->{CODE} } =~ /^(.*)$/m; + my @cmdline = split /\s+/, $line; + return "" unless @cmdline; + return "" unless shift(@cmdline) =~ /^\#!/; + + my $prepend = ""; + for my $s (@cmdline) { + next unless $s =~ s/^-//; + last if substr($s,0,1) eq "-"; + for (split //, $s) { + next unless exists $switches{$_}; + $prepend .= $switches{$_}->(); + } + } + + return $prepend; +} + +######################################################################### +# func: get_script_name +# dflt: get_script_name +# desc: get the script's name to set into $0 +# args: $self - registry blessed object +# rtrn: path to the script's filename +######################################################################### + +sub get_script_name { + shift->{FILENAME}; +} + +######################################################################### +# func: chdir_file +# dflt: NOP +# desc: chdirs into $dir +# args: $self - registry blessed object +# $dir - a dir +# rtrn: nothing (?or success/failure?) +######################################################################### + +*chdir_file = \&NOP; + +sub chdir_file_normal { + my ($self, $dir) = @_; + $dir ||= File::Basename::dirname($self->{FILENAME}); + $self->debug("chdir $dir") if DEBUG & D_NOISE; + chdir $dir or die "Can't chdir to $dir: $!"; +} + +######################################################################### +# func: get_mark_line +# dflt: get_mark_line +# desc: generates the perl compiler #line directive +# args: $self - registry blessed object +# rtrn: returns the perl compiler #line directive +######################################################################### + +sub get_mark_line { + my $self = shift; + $ModPerl::Registry::MarkLine ? "\n#line 1 $self->{FILENAME}\n" : ""; +} + +######################################################################### +# func: strip_end_data_segment +# dflt: strip_end_data_segment +# desc: remove the trailing non-code from $self->{CODE} +# args: $self - registry blessed object +# rtrn: nothing +######################################################################### + +sub strip_end_data_segment { + ${ +shift->{CODE} } =~ s/^__(END|DATA)__(.*)//ms; +} + + + +######################################################################### +# func: compile +# dflt: compile +# desc: compile the code in $eval +# args: $self - registry blessed object +# $eval - a ref to a scalar with the code to compile +# rtrn: success/failure +# note: $r must not be in scope of compile(), scripts must do +# my $r = shift; to get it off the args stack +######################################################################### + +sub compile { + my ($self, $eval) = @_; + + $self->debug("compiling $self->{FILENAME}") if DEBUG && D_COMPILE; + + ModPerl::Global::special_list_register(END => $self->{PACKAGE}); + ModPerl::Global::special_list_clear( END => $self->{PACKAGE}); + + { + # let the code define its own warn and strict level + no strict; + no warnings FATAL => 'all'; # because we use FATAL + eval $$eval; + } + + return $self->error_check; +} + +######################################################################### +# func: error_check +# dflt: error_check +# desc: checks $@ for errors +# args: $self - registry blessed object +# rtrn: Apache2::Const::SERVER_ERROR if $@ is set, Apache2::Const::OK otherwise +######################################################################### + +sub error_check { + my $self = shift; + + # ModPerl::Util::exit() throws an exception object whose rc is + # ModPerl::EXIT + # (see modperl_perl_exit() and modperl_errsv() C functions) + if ($@ && !(ref $@ eq 'APR::Error' && $@ == ModPerl::EXIT)) { + $self->log_error($@); + return Apache2::Const::SERVER_ERROR; + } + return Apache2::Const::OK; +} + + +######################################################################### +# func: install_aliases +# dflt: install_aliases +# desc: install the method aliases into $class +# args: $class - the class to install the methods into +# $rh_aliases - a ref to a hash with aliases mapping +# rtrn: nothing +######################################################################### + +sub install_aliases { + my ($class, $rh_aliases) = @_; + + no strict 'refs'; + while (my ($k,$v) = each %$rh_aliases) { + if (my $sub = *{$v}{CODE}){ + *{ $class . "::$k" } = $sub; + } + else { + die "$class: $k aliasing failed; sub $v doesn't exist"; + } + } +} + +### helper methods + +sub debug { + my $self = shift; + my $class = ref $self; + $self->{REQ}->log_error("$$: $class: " . join '', @_); +} + +sub log_error { + my ($self, $msg) = @_; + my $class = ref $self; + + $self->{REQ}->log_error($msg); + $self->{REQ}->notes->set('error-notes' => $msg); + $@{$self->{URI}} = $msg; +} + +######################################################################### +# func: uncache_myself +# dflt: uncache_myself +# desc: unmark the package as cached by forgetting its modification time +# args: none +# rtrn: nothing +# note: this is a function and not a method, it should be called from +# the registry script, and using the caller() method we figure +# out the package the script was compiled into + +######################################################################### + +# this is a function should be called from the registry script, and +# using the caller() method we figure out the package the script was +# compiled into and trying to uncache it. +# +# it's currently used only for testing purposes and not a part of the +# public interface. it expects to find the compiled package in the +# symbol table cache returned by cache_table_common(), if you override +# cache_table() to point to another function, this function will fail. +sub uncache_myself { + my $package = scalar caller; + my ($class) = __PACKAGE__->cache_table_common(); + + unless (defined $class) { + Apache2->warn("$$: cannot figure out cache symbol table for $package"); + return; + } + + if (exists $class->{$package} && exists $class->{$package}{mtime}) { + Apache2->warn("$$: uncaching $package\n") if DEBUG & D_COMPILE; + delete $class->{$package}{mtime}; + } + else { + Apache2->warn("$$: cannot find $package in cache"); + } +} + + +1; +__END__
diff --git a/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm b/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm new file mode 100644 index 0000000..5f03c94 --- /dev/null +++ b/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm
@@ -0,0 +1,168 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::RegistryLoader; + +use strict; +use warnings; + +use ModPerl::RegistryCooker (); +use Apache2::ServerUtil (); +use Apache2::Log (); +use APR::Pool (); +use APR::Finfo (); +use APR::Const -compile=>qw(FINFO_MIN); + +use Carp; +use File::Spec (); + +use Apache2::Const -compile => qw(OK HTTP_OK OPT_EXECCGI); + +our @ISA = (); + +sub new { + my $class = shift; + my $self = bless {@_} => ref($class)||$class; + $self->{package} ||= 'ModPerl::Registry'; + $self->{pool} = APR::Pool->new(); + $self->load_package($self->{package}); + return $self; +} + +sub handler { + my ($self, $uri, $filename, $virthost) = @_; + + # set the inheritance rules at run time + @ISA = $self->{package}; + + unless (defined $uri) { + $self->warn("uri is a required argument"); + return; + } + + if (defined $filename) { + unless (-e $filename) { + $self->warn("Cannot find: $filename"); + return; + } + } + else { + # try to translate URI->filename + if (exists $self->{trans} and ref($self->{trans}) eq 'CODE') { + no strict 'refs'; + $filename = $self->{trans}->($uri); + unless (-e $filename) { + $self->warn("Cannot find a translated from uri: $filename"); + return; + } + } + else { + # try to guess + (my $guess = $uri) =~ s|^/||; + + $self->warn("Trying to guess filename based on uri") + if $self->{debug}; + + $filename = File::Spec->catfile(Apache2::ServerUtil::server_root, + $guess); + unless (-e $filename) { + $self->warn("Cannot find guessed file: $filename", + "provide \$filename or 'trans' sub"); + return; + } + } + } + + if ($self->{debug}) { + $self->warn("*** uri=$uri, filename=$filename"); + } + + my $rl = bless { + uri => $uri, + filename => $filename, + package => $self->{package}, + } => ref($self) || $self; + + $rl->{virthost} = $virthost if defined $virthost; + + # can't call SUPER::handler here, because it usually calls new() + # and then the ModPerlRegistryLoader::new() will get called, + # instead of the super class' new, so we implement the super + # class' handler here. Hopefully all other subclasses use the same + # handler. + __PACKAGE__->SUPER::new($rl)->default_handler(); + +} + +# XXX: s/my_// for qw(my_finfo my_slurp_filename); +# when when finfo() and slurp_filename() are ported to 2.0 and +# RegistryCooker is starting to use them + +sub get_server_name { return $_[0]->{virthost} if exists $_[0]->{virthost} } +sub filename { shift->{filename} } +sub status { Apache2::Const::HTTP_OK } +sub pool { shift->{pool}||=APR::Pool->new() } +sub finfo { $_[0]->{finfo}||=APR::Finfo::stat($_[0]->{filename}, + APR::Const::FINFO_MIN, + $_[0]->pool); } +sub uri { shift->{uri} } +sub path_info {} +sub allow_options { Apache2::Const::OPT_EXECCGI } #will be checked again at run-time +sub log_error { shift; die @_ if $@; warn @_; } +sub run { return Apache2::Const::OK } # don't run the script +sub server { shift } +sub is_virtual { exists shift->{virthost} } + +# the preloaded file needs to be precompiled into the package +# specified by the 'package' attribute, not RegistryLoader +sub namespace_root { + join '::', ModPerl::RegistryCooker::NAMESPACE_ROOT, + shift->{REQ}->{package}; +} + +# override Apache class methods called by Modperl::Registry*. normally +# only available at request-time via blessed request_rec pointer +sub slurp_filename { + my $r = shift; + my $tainted = @_ ? shift : 1; + my $filename = $r->filename; + open my $fh, $filename or die "can't open $filename: $!"; + local $/; + my $code = <$fh>; + unless ($tainted) { + ($code) = $code =~ /(.*)/s; # untaint + } + close $fh; + return \$code; +} + +sub load_package { + my ($self, $package) = @_; + + croak "package to load wasn't specified" unless defined $package; + + $package =~ s|::|/|g; + $package .= ".pm"; + require $package; +}; + +sub warn { + my $self = shift; + Apache2::Log->warn(__PACKAGE__ . ": @_\n"); +} + +1; +__END__
diff --git a/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryPrefork.pm b/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryPrefork.pm new file mode 100644 index 0000000..9c41e77 --- /dev/null +++ b/2_0_13/ModPerl-Registry/lib/ModPerl/RegistryPrefork.pm
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package ModPerl::RegistryPrefork; + +use strict; +use warnings FATAL => 'all'; + +our $VERSION = '0.01'; + +use base qw(ModPerl::Registry); + +if ($ENV{MOD_PERL}) { + require Apache2::MPM; + die "This package can't be used under threaded MPMs" + if Apache2::MPM->is_threaded; +} + +sub handler : method { + my $class = (@_ >= 2) ? shift : __PACKAGE__; + my $r = shift; + return $class->new($r)->default_handler(); +} + +*chdir_file = \&ModPerl::RegistryCooker::chdir_file_normal; + +1; +__END__
diff --git a/2_0_13/ModPerl-Registry/t/206.t b/2_0_13/ModPerl-Registry/t/206.t new file mode 100644 index 0000000..7b72728 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/206.t
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET); + +plan tests => 2, need [qw(mod_alias.c HTML::HeadParser)]; + +my $url = "/registry/206.pl"; +my $res = GET($url); +my $body = '<?xml versi'; + +ok t_cmp( + $res->code, + 206, + "test partial_content: response code", +); + +ok t_cmp( + $res->content, + $body, + "test partial_content: response body", +);
diff --git a/2_0_13/ModPerl-Registry/t/304.t b/2_0_13/ModPerl-Registry/t/304.t new file mode 100644 index 0000000..dda87c9 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/304.t
@@ -0,0 +1,63 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET); + +plan tests => 10, need [qw(mod_alias.c HTML::HeadParser)]; + +my $url = "/registry/304.pl"; + +{ + # not modified + my $if_modified_since = 'Sun, 29 Oct 2000 15:55:00 GMT'; + my $res = GET($url, 'If-Modified-Since' => $if_modified_since); + + ok t_cmp( + $res->code, + 304, + "test HTTP_NOT_MODIFIED (304 status)", + ); + + ok t_cmp( + $res->content, + '', + "test HTTP_NOT_MODIFIED (null body)", + ); + + #t_debug $res->as_string; +} + +{ + # full response cases: + # 1) the resource has been modified since the If-Modified-Since date + # 2) bogus If-Modified-Since date => is considered as a + # non-If-Modified-Since require + # + my %dates = ( + 'Sun, 29 Oct 2000 15:43:28 GMT' => "the resource was modified since #1", + 'Sun, 28 Oct 2000 15:43:29 GMT' => "the resource was modified since #2", + 'Thu, 32 Jun 1999 24:59:59 MIT' => "bogus If-Modified-Since #1", + 'Thu Juk 99 00:00:00 9999 FUK' => "bogus If-Modified-Since #2", + ); + my $received = '<html><head></head><body>Test</body></html>'; + while ( my ($if_modified_since, $debug) = each %dates) { + my $res = GET($url, 'If-Modified-Since' => $if_modified_since); + t_debug "If-Modified-Since $if_modified_since"; + ok t_cmp( + $res->code, + 200, + "$debug (code)" + ); + + ok t_cmp( + $res->content, + $received, + "$debug (body)" + ); + + #t_debug $res->as_string; + } +}
diff --git a/2_0_13/ModPerl-Registry/t/404-filename-with-newline.t b/2_0_13/ModPerl-Registry/t/404-filename-with-newline.t new file mode 100644 index 0000000..f28710b --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/404-filename-with-newline.t
@@ -0,0 +1,20 @@ +#!perl + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET_RC); + +plan tests => 1, need 'mod_alias.c'; + +{ + # this used to result in 500 due to a combination of Perl warning about + # a newline in the filename passed to stat() and our + # use warnings FATAL=>'all' + + t_client_log_error_is_expected(); + my $url = '/registry/file%0dwith%0anl%0d%0aand%0a%0dcr'; + ok t_cmp GET_RC($url), 404, 'URL with \\r and \\n embedded'; +}
diff --git a/2_0_13/ModPerl-Registry/t/404.t b/2_0_13/ModPerl-Registry/t/404.t new file mode 100644 index 0000000..4b4271a --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/404.t
@@ -0,0 +1,31 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET_BODY GET); + +plan tests => 2, need [qw(mod_alias.c HTML::HeadParser)]; + +{ + t_client_log_error_is_expected(); + my $url = "/error_document/cannot_be_found"; + my $response = "Oops, can't find the requested doc"; + ok t_cmp( + GET_BODY($url), + $response, + "test ErrorDocument" + ); +} + + +{ + my $url = "/registry/status_change.pl"; + my $res = GET($url); + ok t_cmp( + $res->code, + 404, + "the script has changed the status to 404" + ); +}
diff --git a/2_0_13/ModPerl-Registry/t/500.t b/2_0_13/ModPerl-Registry/t/500.t new file mode 100644 index 0000000..a96e97f --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/500.t
@@ -0,0 +1,91 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET); + +plan tests => 7, need 'mod_alias.c'; + +{ + # the script changes the status before the run-time error happens, + # this status change should be ignored + my $url = "/registry/runtime_error_n_status_change.pl"; + my $res = GET($url); + #t_debug($res->content); + ok t_cmp( + $res->code, + 500, + "500 error on runtime error (when the script changes the status)", + ); +} + +{ + my $url = "/registry/syntax_error.pl"; + my $res = GET($url); + #t_debug($res->content); + ok t_cmp( + $res->code, + 500, + "500 compile time error (syntax error)", + ); +} + +{ + my $url = "/registry/use_error.pl"; + my $res = GET($url); + #t_debug($res->content); + ok t_cmp( + $res->code, + 500, + "500 compile error on use() failure", + ); +} + +{ + my $url = "/registry/missing_headers.pl"; + my $res = GET($url); + #t_debug($res->content); + ok t_cmp( + $res->code, + 500, + "500 error on missing HTTP headers", + ); +} + +{ + # since we have a runtime error before any body is sent, mod_perl + # has a chance to communicate the return status of the script to + # Apache before headers are sent, so we get the code 500 in the + # HTTP headers + my $url = "/registry/runtime_error.pl"; + my $res = GET($url); + #t_debug($res->content); + ok t_cmp( + $res->code, + 500, + "500 error on runtime error", + ); +} + +{ + # even though we have a runtime error here, the scripts succeeds + # to send some body before the error happens and since by that + # time Apache has already sent the headers, they will include + # 200 OK + my $url = "/registry/runtime_error_plus_body.pl"; + my $res = GET($url); + #t_debug($res->content); + ok t_cmp( + $res->code, + 200, + "200, followed by a runtime error", + ); + + # the error message is attached after the body + ok t_cmp($res->content, + qr/some body.*The server encountered an internal error/ms, + "200, followed by a runtime error", + ); +}
diff --git a/2_0_13/ModPerl-Registry/t/TEST.PL b/2_0_13/ModPerl-Registry/t/TEST.PL new file mode 100644 index 0000000..4f82f04 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/TEST.PL
@@ -0,0 +1,56 @@ +use strict; +use warnings FATAL => 'all'; + +use FindBin; +# test against the source lib for easier dev +use lib "$FindBin::Bin/../lib"; +use lib grep { -d } map "$FindBin::Bin/../../$_", qw(lib Apache-Test/lib); + +# pick the common test libs +use lib "$FindBin::Bin/../../t/lib"; + +MyTest->new->run(@ARGV); + + + +# sub-class Apache::TestRunPerl +package MyTest; + +use base qw(Apache::TestRunPerl); + +# redirect tests require 2 servers +use constant MIN_CLIENTS => 2; + +use File::Spec::Functions qw(catdir); +use File::Basename qw(dirname); + +use Apache2::Build; + +# default timeout in secs (threaded mpms are extremely slow to +# startup, due to a slow perl_clone operation) +use constant DEFAULT_STARTUP_TIMEOUT => + Apache2::Build->build_config->mpm_is_threaded() ? 180 : 90; + +# subclass new_test_config to add some config vars which will be +# replaced in generated httpd.conf +sub new_test_config { + my $self = shift; + + require Apache::Test; + my $mp2_root_dir = dirname Apache::Test::vars('top_dir'); + $self->{conf_opts}->{src_dir} = catdir $mp2_root_dir, + qw(src modules perl); + + $self->{conf_opts}->{startup_timeout} ||= + $ENV{APACHE_TEST_STARTUP_TIMEOUT} || + DEFAULT_STARTUP_TIMEOUT; + + $self->{conf_opts}->{minclients} ||= MIN_CLIENTS; + + return $self->SUPER::new_test_config; +} + +sub bug_report { + require ModPerl::TestRun; + shift->ModPerl::TestRun::bug_report(); +}
diff --git a/2_0_13/ModPerl-Registry/t/bad_scripts.t b/2_0_13/ModPerl-Registry/t/bad_scripts.t new file mode 100644 index 0000000..8135484 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/bad_scripts.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET); + +plan tests => 1, need 'mod_alias.c'; + +{ + t_client_log_error_is_expected(); + my $url = "/perlrun/r_inherited.pl"; + my $res = GET($url); + ok t_cmp( + $res->code, + 500, + "the script hasn't declared its private \$r", + ); +}
diff --git a/2_0_13/ModPerl-Registry/t/basic.t b/2_0_13/ModPerl-Registry/t/basic.t new file mode 100644 index 0000000..dcdc174 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/basic.t
@@ -0,0 +1,120 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil qw(t_cmp t_catfile_apache t_client_log_error_is_expected); +use Apache::TestRequest; +use Apache::TestConfig (); + +my %modules = ( + registry => 'ModPerl::Registry', + registry_bb => 'ModPerl::RegistryBB', + perlrun => 'ModPerl::PerlRun', +); + +my @aliases = sort keys %modules; + +plan tests => @aliases * 5 + 3, need 'mod_alias.c'; + +my $vars = Apache::Test::config()->{vars}; +my $script_file = t_catfile_apache $vars->{serverroot}, 'cgi-bin', 'basic.pl'; + +# very basic compilation/response test +for my $alias (@aliases) { + my $url = "/$alias/basic.pl"; + + ok t_cmp( + GET_BODY($url), + "ok $script_file", + "$modules{$alias} basic cgi test", + ); +} + +# test non-executable bit (it should be executed w/o a problem) +for my $alias (@aliases) { + if (Apache::TestConfig::WIN32) { + skip "non-executable bit test for Win32", 0; + next; + } + my $url = "/$alias/not_executable.pl"; + + t_client_log_error_is_expected(); + ok t_cmp( + HEAD($url)->code, + 200, + "$modules{$alias} non-executable file", + ); +} + +# test environment pre-set +for my $alias (@aliases) { + my $url = "/$alias/env.pl?foo=bar"; + + ok t_cmp( + GET_BODY($url), + "foo=bar", + "$modules{$alias} mod_cgi-like environment pre-set", + ); +} + +# require (actually chdir test) +for my $alias (@aliases) { + my $url = "/$alias/require.pl"; + + ok t_cmp( + GET_BODY($url), + "it works", + "$modules{$alias} mod_cgi-like environment pre-set", + ); +} + + +# exit +for my $alias (@aliases) { + my $url = "/$alias/exit.pl"; + + ok t_cmp( + GET_BODY_ASSERT($url), + "before exit", + "$modules{$alias} mod_cgi-like environment pre-set", + ); +} + + + +# test method handlers +{ + my $url = "/registry_oo_conf/env.pl?foo=bar"; + ok t_cmp( + GET_BODY($url), + "foo=bar", + "ModPerl::Registry->handler mod_cgi-like environment pre-set", + ); +} + +# test mod_perl api usage +{ + my $url = "/registry/content_type.pl"; + ok t_cmp( + GET_BODY($url), + "ok", + "\$r->content_type('text/plain')", + ); +} + + +# test that files with .html extension, which are configured to run as +# scripts get the headerparse stage working: the default mime handler +# sets $r->content_type for .html files, so we can't rely on +# content_type not being set in making the decision whether to parse +# headers or not +{ + my $url = "/registry/send_headers.html"; + my $res = GET $url; + ok t_cmp( + $res->content_type, + "text/plain", + "script's content-type", + ); +}
diff --git a/2_0_13/ModPerl-Registry/t/bin_resp.t b/2_0_13/ModPerl-Registry/t/bin_resp.t new file mode 100644 index 0000000..5ffd780 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/bin_resp.t
@@ -0,0 +1,31 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# testing various binary responses + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 2, need 'mod_alias.c'; + +# 2 sub-tests +{ + # favicon.ico and other .ico image/x-icon images start with + # sequence: + my $expected = "\000\000\001\000"; + my $location = "/registry/bin_resp_start_0.pl"; + #my $location = "/cgi-bin/bin_resp_start_0.pl"; + + my $received = GET_BODY_ASSERT $location; + + #t_debug "$received"; + + ok t_cmp(length($received), length($expected), "image size"); + + t_debug "comparing the binary contents"; + ok $expected eq $received; +} + +
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/206.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/206.pl new file mode 100755 index 0000000..0aeac2b --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/206.pl
@@ -0,0 +1,11 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + print <<_OUT_; +Status: 206 Partial Content +Content-Type: text/html; charset=UTF-8 +Content-Length: 11 +Content-Range: bytes 0-10/1336 +Date: Fri, 31 Jan 2003 09:39:01 GMT +ETag: "xxxx" + +_OUT_ +print '<?xml versi';
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/304.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/304.pl new file mode 100755 index 0000000..8238112 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/304.pl
@@ -0,0 +1,50 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# manually handle 'If-Modified-Since' requests + +use APR::Date (); +use Apache2::Util (); +use Apache2::RequestRec (); + +use constant FMT => '%a, %d %b %Y %H:%M:%S %Z'; +use constant GMT => 1; +use Apache2::Const -compile => qw(HTTP_NOT_MODIFIED); + +my $last_modified = "Sun, 29 Oct 2000 15:43:29 GMT"; + +my $r = shift; + +my $if_modified_since = $r->headers_in->{'If-Modified-Since'}; + +my $status = 200; +my $body = '<html><head></head><body>Test</body></html>'; + +#APR::Date::parse_http may fail +my $if_modified_since_secs = + ($if_modified_since && APR::Date::parse_http($if_modified_since)) || 0; +my $last_modified_secs = APR::Date::parse_http($last_modified); + +#warn "If-Modified-Since $if_modified_since\n"; +#warn "last_modified_secs $last_modified_secs\n"; +#warn "if_modified_since_secs $if_modified_since_secs\n\n"; + +if ($last_modified_secs < $if_modified_since_secs) { + $status = Apache2::Const::HTTP_NOT_MODIFIED; + $body = ''; +} + +my $date = Apache2::Util::ht_time($r->pool, $r->request_time, FMT, GMT); + +print <<HEADERS; +Status: $status +Date: $date +Server: Apache/2.0.47 +Connection: close +Last-Modified: $last_modified +Content-Type: text/html; charset=iso-8859-1 + +HEADERS + +print $body if length $body;
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/404.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/404.pl new file mode 100755 index 0000000..ec1314f --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/404.pl
@@ -0,0 +1,7 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings; + +my $r = shift; +$r->content_type('text/plain'); +print "Oops, can't find the requested doc";
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/basic.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/basic.pl new file mode 100755 index 0000000..2176f3c --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/basic.pl
@@ -0,0 +1,16 @@ +#!perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +# test all the basic functionality + +print "Content-type: text/plain\n\n"; + +# test that __END__ can appear in a comment w/o cutting data after it + +print "ok $0"; + +# test that __END__ starting at the beginning of the line makes +# everything following it, stripped +__END__ + +this is some irrelevant data
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/bin_resp_start_0.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/bin_resp_start_0.pl new file mode 100755 index 0000000..4734b84 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/bin_resp_start_0.pl
@@ -0,0 +1,14 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; + +# favicon.ico and other .ico image/x-icon images start with this sequence +my $response = "\000\000\001\000"; + +# test here that the cgi header parser doesn't get confused and decide +# that there is no response body if it starts with \000 sequence + +print "Content-type: image/x-icon\n\n"; +print $response;
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/cgi.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/cgi.pl new file mode 100755 index 0000000..ef4941c --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/cgi.pl
@@ -0,0 +1,5 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use CGI qw/:standard :html3/; + +print header(-type=>'text/html'); +print b("done");
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/closure.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/closure.pl new file mode 100755 index 0000000..495dd7a --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/closure.pl
@@ -0,0 +1,23 @@ +#!perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +BEGIN { + use Apache::TestUtil qw/t_server_log_warn_is_expected/; + t_server_log_warn_is_expected(); +} + +# this script will suffer from a closure problem under registry +# should see it under ::Registry +# should not see it under ::PerlRun + +print "Content-type: text/plain\n\n"; + +# this is a closure (when compiled inside handler()): +my $counter = 0; +counter(); + +sub counter { + #warn "$$: counter=$counter"; + print ++$counter; +} +
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/content_type.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/content_type.pl new file mode 100755 index 0000000..ceb3678 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/content_type.pl
@@ -0,0 +1,4 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +my $r = shift; +$r->content_type('text/plain'); +$r->print('ok');
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/env.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/env.pl new file mode 100755 index 0000000..d5990c5 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/env.pl
@@ -0,0 +1,7 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# test env vars + +print "Content-type: text/plain\n\n"; +print exists $ENV{QUERY_STRING} && $ENV{QUERY_STRING}; + +__END__
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/env_val.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/env_val.pl new file mode 100755 index 0000000..5632183 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/env_val.pl
@@ -0,0 +1,8 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# test env vars + +print "Content-type: text/plain\n\n"; +my $var = $ENV{QUERY_STRING}; +print exists $ENV{$var} && $ENV{$var}; + +__END__
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/exit.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/exit.pl new file mode 100755 index 0000000..90810ca --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/exit.pl
@@ -0,0 +1,18 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# XXX: exit should work by stopping the script, but not quitting the +# interpreter, though it's not trivial to make an automated test since +# what you really want to check whether the process didn't quit after +# exit was called. Things become more complicated with +# ithreads-enabled perls where one process may have many interpreters +# and you can't really track those at the moment. So this test needs +# more work. + +print "Content-type: text/plain\n\n"; + +print "before exit"; + +exit; + +print "after exit"; + +
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/flush.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/flush.pl new file mode 100755 index 0000000..b21f2cb --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/flush.pl
@@ -0,0 +1,18 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +local $| = 1; # unbuffered mode + +my $r = shift; + +print "Content-Type: text/html\n\n"; +print "yet another boring test string"; + +# This line passes a bucket brigade with a single bucket FLUSH +# it was causing problems in the mod_deflate filter which was trying to +# deflate empty output buffer, (the previous print has already flushed +# all the output) (the fix in mod_deflate.c was to check whether the +# buffer is full) +print ""; +
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/ithreads_io_n_tie.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/ithreads_io_n_tie.pl new file mode 100755 index 0000000..50d5f71 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/ithreads_io_n_tie.pl
@@ -0,0 +1,87 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# +# there is a problem when STDOUT is internally opened to an +# Apache2::PerlIO layer is cloned on a new thread start. PerlIO_clone +# in perl_clone() is called too early, before PL_defstash is +# cloned. As PerlIO_clone calls PerlIOApache_getarg, which calls +# gv_fetchpv via sv_setref_pv and boom the segfault happens. +# +# at the moment we should either not use an internally opened to +# :Apache2 streams, so the config must be: +# +# SetHandler modperl +# +# and then either use $r->print("foo") or tie *STDOUT, $r + print "foo" +# +# or close and re-open STDOUT to :Apache2 *after* the thread was spawned +# +# the above discussion equally applies to STDIN +# +# XXX: ->join calls leak under registry, this doesn't happen in the +# non-registry tests. + +use threads; + +my $r = shift; +$r->print("Content-type: text/plain\n\n"); + +{ + # now we can use $r->print API: + my $thr = threads->new( + sub { + my $id = shift; + $r->print("thread $id\n"); + return 1; + }, 1); + # $thr->join; # XXX: leaks scalar +} + +{ + # close and re-open STDOUT to :Apache2 *after* the thread was + # spawned + my $thr = threads->new( + sub { + my $id = shift; + close STDOUT; + open STDOUT, ">:Apache2", $r + or die "can't open STDOUT via :Apache2 layer : $!"; + print "thread $id\n"; + return 1; + }, 2); + # $thr->join; # XXX: leaks scalar +} + +{ + # tie STDOUT to $r *after* the ithread was started has + # happened, in which case we can use print + my $thr = threads->new( + sub { + my $id = shift; + tie *STDOUT, $r; + print "thread $id\n"; + return 1; + }, 3); + # $thr->join; # XXX: leaks scalar +} + +{ + # tie STDOUT to $r before the ithread was started has + # happened, in which case we can use print + tie *STDOUT, $r; + my $thr = threads->new( + sub { + my $id = shift; + print "thread $id\n"; + return 1; + }, 4); + # $thr->join; # XXX: leaks scalar +} + +sleep 2; # XXX: will go away ones join() calls are enabled + +print "parent\n"; + +untie *STDOUT; # don't affect other tests
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/local-conf.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/local-conf.pl new file mode 100644 index 0000000..e4e8dc9 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/local-conf.pl
@@ -0,0 +1,4 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +$test_require = 'it works'; + +1;
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/missing_headers.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/missing_headers.pl new file mode 100755 index 0000000..5dad82d --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/missing_headers.pl
@@ -0,0 +1,9 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +BEGIN { + use Apache::TestUtil; + t_server_log_error_is_expected(); +} +print "No HTTP headers were sent\n\n"; + +print "Here is some more body coming\n even with double new line\n\n"; +print "Here is some more body coming";
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/not_executable.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/not_executable.pl new file mode 100644 index 0000000..d9ed3ba --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/not_executable.pl
@@ -0,0 +1,11 @@ +#!perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +# this test should return forbidden, since it should be not-executable + +print "Content-type: text/plain\n\n"; +print "ok"; + +__END__ + +this is some irrelevant data
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/nph-foo.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/nph-foo.pl new file mode 100755 index 0000000..a46836a --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/nph-foo.pl
@@ -0,0 +1,14 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +my $r = shift; + +print "HTTP/1.0 250 Pretty OK\r\n"; +print join("\n", + 'Content-type: text/text', + 'Pragma: no-cache', + 'Cache-control: must-revalidate, no-cache, no-store', + 'Expires: -1', + "\n"); + +print "non-parsed headers body";
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_decl.pm b/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_decl.pm new file mode 100644 index 0000000..748b1af --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_decl.pm
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package perlrun_decl; + +use warnings; +use strict; + +use base qw(Exporter); +our @EXPORT = qw(decl_proto); + +# this BEGIN block is called only once, since this module doesn't get +# removed from %INC after it was loaded +BEGIN { + # use an external package which will persist across requests + $MyData::blocks{perlrun_decl}++; +} + +sub decl_proto ($;$) { shift } + +# this END block won't be executed until the server shutdown +END { + $MyData::blocks{perlrun_decl}--; +} + +1;
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_extload.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_extload.pl new file mode 100755 index 0000000..72269de --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_extload.pl
@@ -0,0 +1,62 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use warnings; +use strict; + +use Apache::Test (); +use Apache::TestUtil; +use File::Spec::Functions qw(catfile catdir); + +use lib catdir Apache::Test::vars('serverroot'), 'cgi-bin'; +my $require = catfile Apache::Test::vars('serverroot'), + qw(cgi-bin perlrun_nondecl.pl); + +print "Content-type: text/plain\n\n"; + +### declared package module ### +{ + # require a module w/ package declaration (it doesn't get reloaded + # because it declares the package). But we still have a problem with + # subs declaring prototypes. When perlrun_decl->import is called, the + # original function's prototype doesn't match the aliases prototype. + # see decl_proto() + BEGIN { t_server_log_warn_is_expected() + if perlrun_decl->can("decl_proto"); + } + use perlrun_decl; + + die "perlrun_decl BEGIN block was run more than once" + if $MyData::blocks{perlrun_decl} > 1; + + print "d"; + print decl_proto(1); +} + +### non-declared package module ### +{ + # how many times were were called from the same interpreter + $MyData::blocks{cycle}{perlrun_nondecl}++; + $MyData::blocks{BEGIN}{perlrun_nondecl} ||= 0; + $MyData::blocks{END} {perlrun_nondecl} ||= 0; + + # require a lib w/o package declaration. Functions in that lib get + # automatically aliased to the functions in the current package. + require "$require"; + + die "perlrun_nondecl's BEGIN block wasn't run" + if $MyData::blocks{BEGIN}{perlrun_nondecl} != + $MyData::blocks{cycle}{perlrun_nondecl}; + + # the END block for this cycle didn't run yet, but we can test the + # previous cycle's one + die "perlrun_nondecl's END block wasn't run" + if $MyData::blocks{END}{perlrun_nondecl} + 1 != + $MyData::blocks{cycle}{perlrun_nondecl}; + + # they all get redefined warning inside perlrun_nondecl.pl, since that + # lib loads it into main::, vs. PerlRun undefs the current __PACKAGE__ + print "nd"; + print nondecl_no_proto(); + print nondecl_proto(2); + print nondecl_proto_empty("whatever"); + print nondecl_const(); +}
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_nondecl.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_nondecl.pl new file mode 100644 index 0000000..da36515 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/perlrun_nondecl.pl
@@ -0,0 +1,56 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# we use this file to test how the files w/o package declaration, +# required from perlrun, work + +use Apache::TestUtil; + +my $num; + +# this BEGIN block is called on every request, since this file gets +# removed from %INC after it was loaded +BEGIN { + # use an external package which will persist across requests + $MyData::blocks{BEGIN}{perlrun_nondecl}++; +} + +use subs qw(warn_exp); + +# all subs in this file get 'redefined' warning because they are +# reloaded in the main:: package, which is not under PerlRun's +# control. + +BEGIN { + t_server_log_warn_is_expected() + if defined *{"nondecl_no_proto"}{CODE}; +} +# normal sub, no prototype +sub nondecl_no_proto { 1 } + +BEGIN { + t_server_log_warn_is_expected() + if defined *{"nondecl_proto"}{CODE}; +} +# sub with a scalar proto +sub nondecl_proto ($) { $num = shift } + +BEGIN { + t_server_log_warn_is_expected() + if defined *{"nondecl_proto_empty"}{CODE}; +} +# sub with an empty proto, but not a constant +sub nondecl_proto_empty () { $num + 1 } + +# besides the the constant sub will generate two warnings for nondecl_const: +# - one for main:: +# - another for perlrun's virtual package +BEGIN { + t_server_log_warn_is_expected(2); +} +# a constant. +sub nondecl_const () { 4 } + +END { + $MyData::blocks{END}{perlrun_nondecl}++; +} + +1;
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/prefork.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/prefork.pl new file mode 100755 index 0000000..ae66b87 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/prefork.pl
@@ -0,0 +1,20 @@ +#!perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +# test that prefork runs from the directory the script lives in + +# All Modperl::*Prefork modules must chdir into the current dir, so we +# should be able to read ourselves via a relative path + +print "Content-type: text/plain\n\n"; + +my $script = "prefork.pl"; +if (open my $fh, $script) { + print "ok $script"; +} +else { + print "prefork didn't chdir into the scripts directory?"; + print " The error was: $!"; +} + +
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/r_inherited.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/r_inherited.pl new file mode 100755 index 0000000..a6eee27 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/r_inherited.pl
@@ -0,0 +1,13 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings; + +# this script shouldn't work + +# this is to test that $r is not in the scope from the function that +# has compiled this script in the registry module + +# my $r = shift; + +$r->content_type('text/plain'); +$r->print($r->args);
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/redirect-cookie.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/redirect-cookie.pl new file mode 100755 index 0000000..41fd912 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/redirect-cookie.pl
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# test env vars + +use Apache2::URI (); +use Apache2::Const -compile => qw(REDIRECT SERVER_ERROR); + +my $r = shift; +my $path = $r->args || ''; +$server = $r->construct_server; + +$r->err_headers_out->set('Set-Cookie' => "mod_perl=ubercool; path=/"); +$r->headers_out->set(Location => " http://$server$path"); +$r->status(Apache2::Const::REDIRECT); + +# exit status is completely ignored in Registry +# due to $r->status hacking +return Apache2::Const::SERVER_ERROR; + +__END__
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/redirect.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/redirect.pl new file mode 100755 index 0000000..7c92679 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/redirect.pl
@@ -0,0 +1,13 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# test env vars + +use Apache2::URI (); + +my $r = shift; +my $path = $r->args || ''; +$server = $r->construct_server; + +print "Location: http://$server$path\n\n"; +#warn "Location: http://$server$path\n\n"; + +__END__
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/require.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/require.pl new file mode 100755 index 0000000..43bd7eb --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/require.pl
@@ -0,0 +1,17 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# test the require + +use Apache::Test (); +use File::Spec::Functions qw(catfile); + +my $vars = Apache::Test::config()->{vars}; +my $require = catfile $vars->{serverroot}, 'cgi-bin', 'local-conf.pl'; + +print "Content-type: text/plain\n\n"; + +# XXX: meanwhile we don't chdir to the script's dir +delete $INC{$require}; +require $require; + +print defined $test_require && $test_require; +
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error.pl new file mode 100755 index 0000000..9cf74a1 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error.pl
@@ -0,0 +1,11 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +BEGIN { + use Apache::TestUtil; + t_server_log_error_is_expected(); +} + +# this script sends no body at all, and since the error happens +# the script will return 500 + +print "Content-type: text/plain\n\n"; +print no_such_func();
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error_n_status_change.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error_n_status_change.pl new file mode 100755 index 0000000..1687d2d --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error_n_status_change.pl
@@ -0,0 +1,12 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +BEGIN { + use Apache::TestUtil; + t_server_log_error_is_expected(); +} + +use Apache2::Const -compile => qw(NOT_FOUND); + +my $r = shift; +$r->status(Apache2::Const::NOT_FOUND); +$r->print("Content-type: text/plain\n\n"); +$r->print(no_such_func());
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error_plus_body.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error_plus_body.pl new file mode 100755 index 0000000..c53f5dd --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/runtime_error_plus_body.pl
@@ -0,0 +1,11 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +BEGIN { + use Apache::TestUtil; + t_server_log_error_is_expected(); +} + +# this script sends some body before the error happens, +# so 200 OK is expected, followed by an error +print "Content-type: text/plain\n\n"; +print "some body"; +print no_such_func();
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/send_headers.html b/2_0_13/ModPerl-Registry/t/cgi-bin/send_headers.html new file mode 100755 index 0000000..1c35576 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/send_headers.html
@@ -0,0 +1,3 @@ +print "Content-type: text/plain\n\n"; +print "ok"; +
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/special_blocks.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/special_blocks.pl new file mode 100755 index 0000000..d1d66f9 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/special_blocks.pl
@@ -0,0 +1,35 @@ +#!perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +# test BEGIN/END blocks + +use Apache2::RequestRec (); + +use vars qw($query); +$query = '' unless defined $query; + +BEGIN { + $query = $ENV{QUERY_STRING}; +} + +print "Content-type: text/plain\n\n"; + +my $r = shift; +our $test = $r->args || ''; + +if ($test eq 'uncache') { + # mark the script as non-cached for the next execution + require ModPerl::RegistryCooker; + ModPerl::RegistryCooker::uncache_myself(); +} +elsif ($test eq 'begin') { + print "begin ok" if $query eq 'begin'; + # reset the global + $query = ''; +} + +END { + if (defined $test && $test eq 'end') { + print "end ok"; + } +}
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/status_change.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/status_change.pl new file mode 100755 index 0000000..4475d5a --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/status_change.pl
@@ -0,0 +1,6 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache2::Const -compile => qw(NOT_FOUND); + +my $r = shift; +$r->status(Apache2::Const::NOT_FOUND); +$r->print("Content-type: text/plain\n\n");
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/syntax_error.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/syntax_error.pl new file mode 100755 index 0000000..1716354 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/syntax_error.pl
@@ -0,0 +1,13 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +BEGIN { + use Apache::TestUtil; + t_server_log_error_is_expected(); +} + +print "Content-type: text/plain\n\n"; + +# the following syntax error is here on purpose! + +lkj;\; + +print "done";
diff --git a/2_0_13/ModPerl-Registry/t/cgi-bin/use_error.pl b/2_0_13/ModPerl-Registry/t/cgi-bin/use_error.pl new file mode 100755 index 0000000..00188c8 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi-bin/use_error.pl
@@ -0,0 +1,10 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +BEGIN { + use Apache::TestUtil; + t_server_log_error_is_expected(); +} + +use DoesNotExist (); + +print "Content-type: text/plain\n\n"; +print "this script is expected to fail";
diff --git a/2_0_13/ModPerl-Registry/t/cgi.t b/2_0_13/ModPerl-Registry/t/cgi.t new file mode 100644 index 0000000..b9133c5 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/cgi.t
@@ -0,0 +1,21 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET); + +plan tests => 2, need [qw(mod_alias.c HTML::HeadParser)], + need_min_module_version CGI => 3.08; + +my $url = "/registry/cgi.pl"; +my $res = GET $url; + +ok t_cmp($res->header('Content-type'), + qr{^text/html}, + "test 'Content-type header setting"); + +ok t_cmp(lc($res->content), + '<b>done</b>', + "test body");
diff --git a/2_0_13/ModPerl-Registry/t/closure.t b/2_0_13/ModPerl-Registry/t/closure.t new file mode 100644 index 0000000..dad160f --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/closure.t
@@ -0,0 +1,146 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +use TestCommon::SameInterp; + +use File::Spec::Functions; + +# this test tests how various registry packages cache and flush the +# scripts their run, and whether they check modification on the disk +# or not. We don't test the closure side effect, but we use it as a +# test aid. The tests makes sure that they run through the same +# interpreter all the time (in case that the server is running more +# than one interpreter) + +my @modules = qw(registry registry_bb perlrun); + +plan tests => 6, need [qw(mod_alias.c HTML::HeadParser)]; + +my $cfg = Apache::Test::config(); + +my $file = 'closure.pl'; +my $path = catfile $cfg->{vars}->{serverroot}, 'cgi-bin', $file; +my $orig_mtime = (stat($path))[8]; + +# for all sub-tests in this test, we make sure that we always get onto +# the same interpreter. if this doesn't happen we skip the sub-test or +# a group of them, where several sub-tests rely on each other. + +{ + # ModPerl::PerlRun + # always flush + # no cache + + my $url = "/same_interp/perlrun/$file"; + my $same_interp = Apache::TestRequest::same_interp_tie($url); + + # should be no closure effect, always returns 1 + my $first = same_interp_req_body($same_interp, \&GET, $url); + my $second = same_interp_req_body($same_interp, \&GET, $url); + same_interp_skip_not_found( + (scalar(grep defined, $first, $second) != 2), + $first && $second && ($second - $first), + 0, + "never the closure problem", + ); + + # modify the file + touch_mtime($path); + + # it doesn't matter, since the script is not cached anyway + my $third = same_interp_req_body($same_interp, \&GET, $url); + same_interp_skip_not_found( + (scalar(grep defined, $first, $second, $third) != 3), + $third, + 1, + "never the closure problem", + ); + + reset_mtime($path); +} + +{ + # ModPerl::Registry + # no flush + # cache, but reload on modification + my $url = "/same_interp/registry/$file"; + my $same_interp = Apache::TestRequest::same_interp_tie($url); + + # we don't know what other test has called this uri before, so we + # check the difference between two subsequent calls. In this case + # the difference should be 1. + my $first = same_interp_req_body($same_interp, \&GET, $url); + my $second = same_interp_req_body($same_interp, \&GET, $url); + same_interp_skip_not_found( + (scalar(grep defined, $first, $second) != 2), + $first && $second && ($second - $first), + 1, + "the closure problem should exist", + ); + + # modify the file + touch_mtime($path); + + # should not notice closure effect on the first request + my $third = same_interp_req_body($same_interp, \&GET, $url); + same_interp_skip_not_found( + (scalar(grep defined, $first, $second, $third) != 3), + $third, + 1, + "no closure on the first request", + ); + + reset_mtime($path); +} + +{ + # ModPerl::RegistryBB + # no flush + # cache once, don't check for mods + my $url = "/same_interp/registry_bb/$file"; + my $same_interp = Apache::TestRequest::same_interp_tie($url); + + # we don't know what other test has called this uri before, so we + # check the difference between two subsequent calls. In this case + # the difference should be 1. + my $first = same_interp_req_body($same_interp, \&GET, $url); + my $second = same_interp_req_body($same_interp, \&GET, $url); + same_interp_skip_not_found( + (scalar(grep defined, $first, $second) != 2), + $first && $second && ($second - $first), + 1, + "the closure problem should exist", + ); + + # modify the file + touch_mtime($path); + + # modification shouldn't be noticed + my $third = same_interp_req_body($same_interp, \&GET, $url); + same_interp_skip_not_found( + (scalar(grep defined, $first, $second, $third) != 3), + $first && $second && $third - $second, + 1, + "no reload on modification, the closure problem persists", + ); + + reset_mtime($path); +} + +sub touch_mtime { + my $file = shift; + # push the mtime into the future (at least 2 secs to work on win32) + # so ModPerl::Registry will re-compile the package + my $time = time + 5; # make it 5 to be sure + utime $time, $time, $file; +} + +sub reset_mtime { + my $file = shift; + # reset the timestamp to the original mod-time + utime $orig_mtime, $orig_mtime, $file; +}
diff --git a/2_0_13/ModPerl-Registry/t/conf/extra.conf.in b/2_0_13/ModPerl-Registry/t/conf/extra.conf.in new file mode 100644 index 0000000..1bdf835 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/conf/extra.conf.in
@@ -0,0 +1,235 @@ +#this file will be Include-d by @ServerRoot@/httpd.conf + +# Adjust PerlInterpMax and PerlInterpMaxSpare if the requirements change +# at the moment all tests require only 1 interprter +<IfDefine PERL_USEITHREADS> + PerlInterpStart 1 + PerlInterpMax 1 + PerlInterpMinSpare 1 + PerlInterpMaxSpare 1 +</IfDefine> + +# make sure that we test under Taint and warnings mode enabled +PerlSwitches -wT + +PerlSwitches -I@ServerRoot@/../lib \ + -I@ServerRoot@/../../Apache-Test/lib \ + -I@ServerRoot@/../../lib \ + -I@ServerRoot@/../../blib/lib \ + -I@ServerRoot@/../../blib/arch + +# run on startup +PerlRequire @ServerRoot@/conf/modperl_extra_startup.pl + +PerlSetVar ModPerl::RegistryCooker::DEBUG 2 + +PerlModule ModPerl::RegistryCooker +PerlModule ModPerl::Util + +############################# +### Normal registry setup ### +############################# +<IfModule mod_alias.c> + Alias /registry/ @ServerRoot@/cgi-bin/ + Alias /dirindex/ @ServerRoot@/cgi-bin/ + Alias /registry_bb/ @ServerRoot@/cgi-bin/ + Alias /registry_oo_conf/ @ServerRoot@/cgi-bin/ + Alias /registry_prefork/ @ServerRoot@/cgi-bin/ + Alias /perlrun/ @ServerRoot@/cgi-bin/ + Alias /perlrun_prefork/ @ServerRoot@/cgi-bin/ + Alias /nph/ @ServerRoot@/cgi-bin/ + Alias /registry_modperl_handler/ @ServerRoot@/cgi-bin/ + Alias /rewrite_env/ @ServerRoot@/cgi-bin/ + + ScriptAlias /cgi-bin/ @ServerRoot@/cgi-bin/ +</IfModule> + +PerlModule ModPerl::RegistryBB +<Location /registry_bb> + PerlOptions +GlobalRequest + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::RegistryBB + PerlOptions +ParseHeaders +</Location> + +PerlModule ModPerl::Registry +<Location /registry> + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::Registry + PerlOptions +ParseHeaders +</Location> + +<IfModule mod_dir.c> + <Location /dirindex> + AddHandler perl-script .pl + Options +ExecCGI + PerlResponseHandler ModPerl::Registry + PerlOptions +ParseHeaders + DirectoryIndex cgi.pl + </Location> +</IfModule> + +<Location /registry_modperl_handler> + SetHandler modperl + Options +ExecCGI + PerlResponseHandler ModPerl::Registry + PerlOptions +ParseHeaders +</Location> + +<Location /registry_oo_conf> + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::Registry->handler + PerlOptions +ParseHeaders +</Location> + +<Location /nph> + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::Registry +</Location> + +# don't preload ModPerl::RegistryPrefork as it won't load under +# threaded MPMs +<Location /registry_prefork> + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::RegistryPrefork + PerlOptions +ParseHeaders +</Location> + +# don't preload ModPerl::PerlRunPrefork as it won't load under +# threaded MPMs +<Location /perlrun_prefork> + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::PerlRunPrefork + PerlOptions +ParseHeaders +</Location> + +PerlModule ModPerl::PerlRun +<Location /perlrun> + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::PerlRun + PerlOptions +ParseHeaders +</Location> + +####################################### +### Same interpreter registry setup ### +####################################### +<IfModule mod_alias.c> + Alias /same_interp/registry/ @ServerRoot@/cgi-bin/ + Alias /same_interp/registry_bb/ @ServerRoot@/cgi-bin/ + Alias /same_interp/registry_oo_conf/ @ServerRoot@/cgi-bin/ + Alias /same_interp/perlrun/ @ServerRoot@/cgi-bin/ +</IfModule> + +PerlModule Apache::TestHandler + +<Location /same_interp/registry_bb> + PerlOptions +GlobalRequest + SetHandler perl-script + Options +ExecCGI + PerlFixupHandler Apache::TestHandler::same_interp_fixup + PerlResponseHandler ModPerl::RegistryBB + PerlOptions +ParseHeaders +</Location> + +<Location /same_interp/registry> + # PerlOptions +GlobalRequest + SetHandler perl-script + Options +ExecCGI + PerlFixupHandler Apache::TestHandler::same_interp_fixup + PerlResponseHandler ModPerl::Registry + PerlOptions +ParseHeaders +</Location> + +<Location /same_interp/registry_oo_conf> + PerlOptions +GlobalRequest + SetHandler perl-script + Options +ExecCGI + PerlFixupHandler Apache::TestHandler::same_interp_fixup + PerlResponseHandler ModPerl::Registry->handler + PerlOptions +ParseHeaders +</Location> + +<Location /same_interp/perlrun> + PerlOptions +GlobalRequest + SetHandler perl-script + Options +ExecCGI + PerlFixupHandler Apache::TestHandler::same_interp_fixup + PerlResponseHandler ModPerl::PerlRun + PerlOptions +ParseHeaders +</Location> + +### the 404 test ### +<IfModule mod_alias.c> + Alias /error_document/ @ServerRoot@/cgi-bin/ +</IfModule> + +<Location /error_document> + ErrorDocument 404 /error_document/404.pl + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::Registry +</Location> + +### deflate tests ### +<IfModule mod_alias.c> + Alias /registry_bb_deflate/ @ServerRoot@/cgi-bin/ +</IfModule> + +#PerlOutputFilterHandler ModPerl::TestFilterDebug::snoop_connection +PerlModule ModPerl::RegistryBB +<Location /registry_bb_deflate> + PerlOptions +GlobalRequest + SetHandler perl-script + Options +ExecCGI + PerlResponseHandler ModPerl::RegistryBB + PerlOptions +ParseHeaders + #PerlOutputFilterHandler ModPerl::TestFilterDebug::snoop_request + <IfModule mod_deflate.c> + SetOutputFilter DEFLATE + </IfModule> +</Location> + +# <sandbox-friendly> +# keep everything self-contained, to avoid problems with sandboxes +# which break when things try to run off /tmp +# +# XXX: consider folding the the following two settings into +# Apache-Test's autogenerated httpd.conf +<IfModule mod_cgid.c> + ScriptSock logs/cgisock +</IfModule> +# +# XXX: would be nice to have Apache-Test support a new 'tmp' token +# (similar to t_logs) which will map onto t/tmp by default and provide +# a new -tmp option to override this default +<IfModule mod_env.c> + SetEnv TMPDIR @t_logs@ +</IfModule> +# </sandbox-friendly> + + +<IfModule mod_rewrite.c> + + RewriteEngine On + <IfVersion < 2.4.0> + RewriteLogLevel 9 + RewriteLog @ServerRoot@/logs/rewrite_log + </IfVersion> + RewriteRule /rewritetest /rewrite_env/env_val.pl?REWRITE_TEST [E=REWRITE_TEST:GOTCHA,PT,NS,L] + + <Location /rewrite_env> + SetHandler perl-script + PerlResponseHandler ModPerl::Registry + Options +ExecCGI + PerlOptions +ParseHeaders + </Location> +</IfModule> + +
diff --git a/2_0_13/ModPerl-Registry/t/conf/modperl_extra_startup.pl b/2_0_13/ModPerl-Registry/t/conf/modperl_extra_startup.pl new file mode 100644 index 0000000..5511694 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/conf/modperl_extra_startup.pl
@@ -0,0 +1,53 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use ModPerl::RegistryLoader (); + +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Process (); + +use DirHandle (); + +my $proc = Apache2::ServerUtil->server->process; +my $pool = $proc->pool; + +# can't use catfile with server_root as it contains unix dir +# separators and in a few of our particular tests we compare against +# win32 separators. in general avoid using server_root_relative in your +# code, see the manpage for more details +my $base_dir = Apache2::ServerUtil::server_root_relative($pool, "cgi-bin"); + +# test the scripts pre-loading by explicitly specifying uri => filename +my $rl = ModPerl::RegistryLoader->new(package => "ModPerl::Registry"); +my $base_uri = "/cgi-bin"; +for my $file (qw(basic.pl env.pl)) { + my $file_path = "$base_dir/$file"; + my $uri = "$base_uri/$file"; + $rl->handler($uri, $file_path); +} + + +# test the scripts pre-loading by using trans sub +{ + sub trans { + my $uri = shift; + $uri =~ s|^/registry_bb/|cgi-bin/|; + return Apache2::ServerUtil::server_root_relative($pool, $uri); + } + + my $rl = ModPerl::RegistryLoader->new( + package => "ModPerl::RegistryBB", + trans => \&trans, + ); + + my @preload = qw(basic.pl env.pl require.pl special_blocks.pl + redirect.pl 206.pl content_type.pl); + + for my $file (@preload) { + $rl->handler("/registry_bb/$file"); + } +} + +1;
diff --git a/2_0_13/ModPerl-Registry/t/dirindex.t b/2_0_13/ModPerl-Registry/t/dirindex.t new file mode 100644 index 0000000..30520a7 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/dirindex.t
@@ -0,0 +1,23 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET); + +plan tests => 2, need [qw(mod_alias.c HTML::HeadParser mod_dir.c)], + need_min_module_version CGI => 3.08; + +{ + my $url = "/dirindex/"; + my $res = GET $url; + + ok t_cmp($res->header('Content-type'), + qr{^text/html}, + "DirectoryIndex + AddHandler - Content-type"); + + ok t_cmp(lc($res->content), + '<b>done</b>', + "DirectoryIndex + AddHandler - body"); +}
diff --git a/2_0_13/ModPerl-Registry/t/fatalstobrowser.t b/2_0_13/ModPerl-Registry/t/fatalstobrowser.t new file mode 100644 index 0000000..400d259 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/fatalstobrowser.t
@@ -0,0 +1,51 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil qw( + t_cmp t_write_perl_script + t_client_log_error_is_expected + ); +use Apache::TestRequest qw(GET); + +use File::Spec::Functions qw(catfile); + +plan tests => 4, need need_module(qw(mod_alias)), + need_cgi, + need_min_module_version CGI => 99.99, + skip_reason('fatalsToBrowser known not to work'); + +my $file = catfile(Apache::Test::vars('serverroot'), + qw(cgi-bin fatalstobrowser.pl)); + +t_write_perl_script($file, <DATA>); + +foreach my $base (qw(cgi-bin registry)) { + + my $url = "$base/fatalstobrowser.pl"; + my $res = GET $url; + + ok t_cmp($res->code, + 200, + "error intercepted"); + + t_client_log_error_is_expected(); + + ok t_cmp($res->content, + qr/uninitiated_scalar/, + "error message captured and returned"); +} + +__END__ +use strict; +use CGI::Carp qw (fatalsToBrowser); + +use CGI; + +my $cgi = new CGI; +print $cgi->header; + +print "$uninitiated_scalar"; + +print "Hello World";
diff --git a/2_0_13/ModPerl-Registry/t/flush.t b/2_0_13/ModPerl-Registry/t/flush.t new file mode 100644 index 0000000..d126ea8 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/flush.t
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET_BODY); + +plan tests => 1, need [qw(mod_alias.c deflate HTML::HeadParser)], + need_min_module_version("Compress::Zlib", "1.09"), + need_min_apache_version("2.0.48"); +# it requires httpd 2.0.48 because of the bug in mod_deflate: +# http://nagoya.apache.org/bugzilla/show_bug.cgi?id=22259 + +require Compress::Zlib; + +my $url = "/registry_bb_deflate/flush.pl"; + +my $expected = "yet another boring test string"; +my $received = GET_BODY $url, 'Accept-encoding' => 'gzip'; +my $decompressed = Compress::Zlib::memGunzip($received); + +ok t_cmp( + $decompressed, + $expected, + "test flush body" + ); +
diff --git a/2_0_13/ModPerl-Registry/t/ithreads.t b/2_0_13/ModPerl-Registry/t/ithreads.t new file mode 100644 index 0000000..7d91ce9 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/ithreads.t
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use Config; + +use constant HAS_ITHREADS => ($] >= 5.008001 && $Config{useithreads}); + +plan tests => 1, need 'mod_alias.c', + {"perl 5.8.1 or higher w/ithreads enabled is required" => HAS_ITHREADS}; + +{ + # the order of prints on the server side is not important here, + # what's important is that we get all the printed strings + my @expected = sort map("thread $_", 1..4), "parent"; + my $url = "/registry_modperl_handler/ithreads_io_n_tie.pl"; + my $received = GET_BODY_ASSERT($url) || ''; + my @received = sort split /\n/, $received; + ok t_cmp \@received, \@expected; +}
diff --git a/2_0_13/ModPerl-Registry/t/nph.t b/2_0_13/ModPerl-Registry/t/nph.t new file mode 100644 index 0000000..f9b29e2 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/nph.t
@@ -0,0 +1,52 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 6, need 'mod_alias.c'; + +my $url = "/nph/nph-foo.pl"; + +my %expected = ( + code => '250', + body => "non-parsed headers body", + headers => { + 'content-type' => 'text/text', + 'pragma' => 'no-cache', + 'cache-control' => 'must-revalidate, no-cache, no-store', + 'expires' => '-1', + }, +); + +my $res = GET $url; + +my %received = ( + code => $res->code, + body => $res->content, + headers => $res->headers, # LWP lc's the headers +); + +for my $key (keys %expected) { + my $expected = $expected{$key}; + my $received = $received{$key}; + if ($key eq 'headers') { + for my $header (keys %$expected) { + ok t_cmp( + $received->{$header}, + $expected->{$header}, + "test header $header" + ); + } + } + else { + ok t_cmp( + $received, + $expected, + "test key: $key" + ); + } +} +
diff --git a/2_0_13/ModPerl-Registry/t/perlrun_extload.t b/2_0_13/ModPerl-Registry/t/perlrun_extload.t new file mode 100644 index 0000000..e99fd65 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/perlrun_extload.t
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET); +use TestCommon::SameInterp; + +plan tests => 2, need [qw(mod_alias.c HTML::HeadParser)]; + +my $url = "/same_interp/perlrun/perlrun_extload.pl"; +my $same_interp = Apache::TestRequest::same_interp_tie($url); + +for (1..2) { + # should not fail on the second request + my $res = same_interp_req_body($same_interp, \&GET, $url); + same_interp_skip_not_found( + !defined($res), + $res, + "d1nd1234", + "PerlRun requiring an external lib with subs", + ); +} +
diff --git a/2_0_13/ModPerl-Registry/t/prefork.t b/2_0_13/ModPerl-Registry/t/prefork.t new file mode 100644 index 0000000..00376a3 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/prefork.t
@@ -0,0 +1,48 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +use Apache::TestConfig (); + +use Apache2::Build (); + +my $mpm_is_threaded = Apache2::Build->build_config->mpm_is_threaded(); + +my %modules = ( + registry => 'ModPerl::Registry', + perlrun => 'ModPerl::PerlRun', + registry_prefork => 'ModPerl::RegistryPrefork', + perlrun_prefork => 'ModPerl::PerlRunPrefork', +); + +my @aliases = sort keys %modules; + +plan tests => 1*@aliases, need 'mod_alias.c', + { "can't run under threaded MPMs" => !$mpm_is_threaded }; + +my $script = "prefork.pl"; + +# very basic compilation/response test +for my $alias (qw(registry_prefork perlrun_prefork)) { + my $url = "/$alias/$script"; + + #t_debug "$url"; + ok t_cmp GET_BODY($url), "ok $script", "$modules{$alias} test"; +} + +# the order is important, we also want to check that prefork specific +# modules didn't affect the cwd of other modules + +# the normal handlers should not find the script in the cwd, as they +# don't chdir to its directory before running the script +for my $alias (qw(registry perlrun)) { + my $url = "/$alias/$script"; + + #t_debug "$url"; + ok t_cmp GET_BODY($url), + qr/prefork didn't chdir into the scripts directory/, + "$modules{$alias} test"; +}
diff --git a/2_0_13/ModPerl-Registry/t/redirect.t b/2_0_13/ModPerl-Registry/t/redirect.t new file mode 100644 index 0000000..b4e304e --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/redirect.t
@@ -0,0 +1,61 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET_BODY HEAD); + +use Apache::TestUtil qw(t_catfile_apache); + +plan tests => 4, need [qw(mod_alias.c HTML::HeadParser)], need_lwp; + +# need LWP to handle redirects +my $base_url = "/registry/redirect.pl"; + +{ + my $redirect_path = "/registry/basic.pl"; + my $url = "$base_url?$redirect_path"; + my $vars = Apache::Test::config()->{vars}; + my $script_file = t_catfile_apache $vars->{serverroot}, 'cgi-bin', 'basic.pl'; + + ok t_cmp( + GET_BODY($url), + "ok $script_file", + "test redirect: existing target", + ); +} + +{ + my $redirect_path = "/registry/does_not_exists.pl"; + my $url = "$base_url?$redirect_path"; + t_client_log_error_is_expected(); + ok t_cmp( + HEAD($url)->code, + 404, + "test redirect: non-existing target", + ); +} + +{ + local $Apache::TestRequest::RedirectOK = 0; + + my $base_url = "/registry/redirect-cookie.pl"; + my $redirect_path = "/registry/basic.pl"; + my $url = "$base_url?$redirect_path"; + + my $response = HEAD $url; + + ok t_cmp( + $response->code, + 302, + "test Registry style redirect: status", + ); + + ok t_cmp( + $response->header('Set-Cookie'), + "mod_perl=ubercool; path=/", + "test Registry style redirect: cookie", + ); +} +
diff --git a/2_0_13/ModPerl-Registry/t/regex.t b/2_0_13/ModPerl-Registry/t/regex.t new file mode 100644 index 0000000..4aba470 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/regex.t
@@ -0,0 +1,34 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil qw(t_cmp t_catfile_apache); +use Apache::TestRequest; +use Apache::TestConfig (); + +my %modules = ( + registry => 'ModPerl::Registry', + registry_bb => 'ModPerl::RegistryBB', + perlrun => 'ModPerl::PerlRun', +); + +my @aliases = sort keys %modules; + +plan tests => @aliases * 1, need 'mod_alias.c'; + +my $vars = Apache::Test::config()->{vars}; +my $script_file = t_catfile_apache $vars->{serverroot}, 'cgi-bin', 'basic.pl'; + +# extended regex quoting +# CVE-2007-1349 (which doesn't affect any of our shipped handlers) + +for my $alias (@aliases) { + my $url = "/$alias/basic.pl/("; + + ok t_cmp( + GET_BODY($url), + "ok $script_file", + "$modules{$alias} regex in path_info", + ); +}
diff --git a/2_0_13/ModPerl-Registry/t/rewrite_env.t b/2_0_13/ModPerl-Registry/t/rewrite_env.t new file mode 100644 index 0000000..b3e439d --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/rewrite_env.t
@@ -0,0 +1,18 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(GET); + +plan tests => 1, need [qw(mod_alias.c mod_rewrite.c)]; + +{ + my $url = "/rewritetest"; + my $res = GET $url; + + ok t_cmp($res->content(), + "GOTCHA", + 'found environment variable from mod_rewrite'); +}
diff --git a/2_0_13/ModPerl-Registry/t/special_blocks.t b/2_0_13/ModPerl-Registry/t/special_blocks.t new file mode 100644 index 0000000..2868064 --- /dev/null +++ b/2_0_13/ModPerl-Registry/t/special_blocks.t
@@ -0,0 +1,140 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# test BEGIN/END blocks's behavior + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +use TestCommon::SameInterp; + +my %modules = ( + registry => 'ModPerl::Registry', + registry_bb => 'ModPerl::RegistryBB', + perlrun => 'ModPerl::PerlRun', +); + +my @aliases = sort keys %modules; + +plan tests => @aliases * 4, need [qw(mod_alias.c HTML::HeadParser)]; + +{ + # PerlRun always run BEGIN/END since it's never cached + + # see also t/perlrun_extload.t which exercises BEGIN/END blocks + # from external modules loaded from PerlRun scripts + + my $alias = "perlrun"; + my $url = "/same_interp/$alias/special_blocks.pl"; + my $same_interp = Apache::TestRequest::same_interp_tie($url); + + # if one sub-test has failed to run on the same interpreter, skip + # the rest in the same group + my $skip = 0; + + my $res = same_interp_req_body($same_interp, \&GET, "$url?begin"); + $skip++ unless defined $res; + same_interp_skip_not_found( + $skip, + $res, + "begin ok", + "$modules{$alias} is running BEGIN blocks on the first request", + ); + + $res = $skip ? undef : same_interp_req_body($same_interp, \&GET, + "$url?begin"); + $skip++ unless defined $res; + same_interp_skip_not_found( + $skip, + $res, + "begin ok", + "$modules{$alias} is running BEGIN blocks on the second request", + ); + + $res = $skip ? undef : same_interp_req_body($same_interp, \&GET, + "$url?end"); + $skip++ unless defined $res; + same_interp_skip_not_found( + $skip, + $res, + "end ok", + "$modules{$alias} is running END blocks on the third request", + ); + + $res = $skip ? undef : same_interp_req_body($same_interp, \&GET, + "$url?end"); + $skip++ unless defined $res; + same_interp_skip_not_found( + $skip, + $res, + "end ok", + "$modules{$alias} is running END blocks on the fourth request", + ); +} + +# To properly test BEGIN/END blocks in registry implmentations +# that do caching, we need to manually reset the registry* cache +# for each given script, before starting each group of tests. + + +for my $alias (grep !/^perlrun$/, @aliases) { + my $url = "/same_interp/$alias/special_blocks.pl"; + my $same_interp = Apache::TestRequest::same_interp_tie($url); + + # if one sub-test has failed to run on the same interpreter, skip + # the rest in the same group + my $skip = 0; + + # clear the cache of the registry package for the script in $url + my $res = same_interp_req_body($same_interp, \&GET, "$url?uncache"); + $skip++ unless defined $res; + + $res = $skip ? undef : same_interp_req_body($same_interp, \&GET, + "$url?begin"); + $skip++ unless defined $res; + same_interp_skip_not_found( + $skip, + $res, + "begin ok", + "$modules{$alias} is running BEGIN blocks on the first request", + ); + + $res = $skip ? undef : same_interp_req_body($same_interp, \&GET, + "$url?begin"); + $skip++ unless defined $res; + t_debug($res); + same_interp_skip_not_found( + $skip, + $res, + "", + "$modules{$alias} is not running BEGIN blocks on the second request", + ); + + $same_interp = Apache::TestRequest::same_interp_tie($url); + $skip = 0; + + # clear the cache of the registry package for the script in $url + $res = same_interp_req_body($same_interp, \&GET, "$url?uncache"); + $skip++ unless defined $res; + + $res = $skip ? undef : same_interp_req_body($same_interp, \&GET, + "$url?end"); + $skip++ unless defined $res; + same_interp_skip_not_found( + $skip, + $res, + "end ok", + "$modules{$alias} is running END blocks on the first request", + ); + + $res = $skip ? undef : same_interp_req_body($same_interp, \&GET, + "$url?end"); + $skip++ unless defined $res; + same_interp_skip_not_found( + $skip, + $res, + "end ok", + "$modules{$alias} is running END blocks on the second request", + ); +}
diff --git a/2_0_13/NOTICE b/2_0_13/NOTICE new file mode 100644 index 0000000..3f59805 --- /dev/null +++ b/2_0_13/NOTICE
@@ -0,0 +1,2 @@ +This product includes software developed by +The Apache Software Foundation (http://www.apache.org/).
diff --git a/2_0_13/README b/2_0_13/README new file mode 100644 index 0000000..a9d3739 --- /dev/null +++ b/2_0_13/README
@@ -0,0 +1,85 @@ +This is mod_perl version 2.0 + +*** Prerequisites *** + +Apache: + Dynamic mod_perl (DSO): Apache 2.0.47 - 2.4.57. + Static mod_perl: Apache 2.0.51 - 2.4.57. + + Newer Apache versions may work with this version of mod_perl. If + not, the svn version likely will, which can be obtained from: + http://perl.apache.org/download/source.html#Development_mod_perl_2_0_Source_Distribution + +Perl: + Any stable version of Perl currently in support by the Perl community, + as described in recent Perl distributions' "perlpolicy.pod" document. + + Newer Perl versions may work with this version of mod_perl. If not, + the svn version likely will (see above). + + Many older Perl versions also work with this version of mod_perl: + Perls back to version 5.8.2 (and possibly earlier in some build + configurations) are currently believed to work, but this is not + guaranteed to be the case, either now or in the future. + +*** Status *** + +mod_perl is currently considered stable. + +The following test failures are known (see CPAN RT #118919): + + t/filter/in_bbs_inject_header.t (Fails tests 22, 26 and 30) + +There is currently a known test failure on Windows when using Perls built +with the PERL_IMPLICIT_SYS build option enabled (which it is by default): + + t/modperl/env.t (Fails many tests) + +Various other tests are also known to fail in certain configurations on +Windows, including but not limited to: + + t/modperl/setupenv.t (Fails tests 8, 22, 29, 36, 50 and 57) + t/preconnection/note.t (Fails test 1) + +*** Documentation *** + +Documentation can be found in the docs/ directory. Currently they +don't get installed on 'make install'. Certain API documentation can +be found in docs/api/. The online version is at +http://perl.apache.org/docs/2.0/. + +*** Todo *** + +mod_perl-2.0 is not 100% feature complete with the 1.xx version. +See the files in the todo/ directory for what remains to be done. Some +of those features will be implemented after 2.0 is released. The goal +is to empty the file todo/release and document/test/verify the API +that's going to be supported by 2.0. More API will be supported post +2.0 release. + +*** Support *** + +For comments, questions, bug-reports, etc., join the mod_perl users +list by sending mail to modperl-subscribe@perl.apache.org. + +Bugs can also be reported at: +https://rt.cpan.org/Dist/Display.html?Name=mod_perl +which can be accessed from the "Issues" link in the left-hand menu on +the metacpan.org page, https://metacpan.org/pod/mod_perl2 . +(Note: You will need to log in to https://rt.cpan.org in order to get +the "Report a new bug" button on the bug tracker page.) + +When reporting bugs please follow the instructions at: +http://perl.apache.org/docs/2.0/user/help/help.html#Reporting_Problems + +For announcements join the mod_perl announce list by sending mail to +announce-subscribe@perl.apache.org. + +*** Developers *** + +Development discussion takes place on dev (at) perl.apache.org + +*** Authors *** + +mod_perl-2.0 was designed and written by Doug MacEachern, with +contributions from many others (see Changes files).
diff --git a/2_0_13/README-SVN b/2_0_13/README-SVN new file mode 100644 index 0000000..ff929f5 --- /dev/null +++ b/2_0_13/README-SVN
@@ -0,0 +1,59 @@ +this is a very simple document that outlines some of the important +details about the mod_perl svn repository. + + +LAYOUT + +the mod_perl project at the Apache Software Foundation lives here + + http://svn.apache.org/repos/asf/perl/ + +and uses the following structure + + modperl/trunk # equivalent to cvs HEAD - currently + # the mod_perl 2.0 development branch + + modperl/tags # every official mod_perl release + + modperl/docs/trunk # the mod_perl documentation project + +modperl/trunk includes the following svn:externals properties: + + % cd modperl + % svn propedit svn:externals . + [vi pops up] +Apache-Test https://svn.apache.org/repos/asf/perl/Apache-Test/trunk +Apache-Reload https://svn.apache.org/repos/asf/perl/Apache-Reload/trunk +Apache-SizeLimit https://svn.apache.org/repos/asf/perl/Apache-SizeLimit/trunk +docs https://svn.apache.org/repos/asf/perl/modperl/docs/trunk/src/docs/2.0 + +DEVELOPER ACCESS + +assuming that you have already been granted commit access to the repository, +you should follow the following steps to checkout mod_perl + +Change your password via: +https://svn.apache.org/change-password + + $ svn checkout https://svn.apache.org/repos/asf/perl/modperl/trunk/ mod_perl-2.0 + +if you want to test that your commit access is working, this file is +an acceptable place to take a test drive. + + +FURTHER READING + +for more details, see + + http://perl.apache.org/docs/2.0/user/install/install.html + +for information on getting httpd and mod_perl from svn, as well as + + http://svnbook.red-bean.com/ + +for svn information in general. + +svn for cvs users (including migration tools): + + http://svnbook.red-bean.com/en/1.0/apa.html +
diff --git a/2_0_13/RELEASE b/2_0_13/RELEASE new file mode 100644 index 0000000..41b7404 --- /dev/null +++ b/2_0_13/RELEASE
@@ -0,0 +1,211 @@ +Instructions for mod_perl 2.0 Release Manager + +0. make sure your public key is in the KEYS file in the mod_perl docs. + you should only need to do this if this is your first time playing + Release Manager + + $ cd mod_perl-docs + $ grep $USER src/dist/KEYS + + note that the KEYS file itself contains all the instructions you + need on how to add your key. if you need further help on gpg + (like how to create a key in the first place) you can look here + + https://people.apache.org/~geoff/gpghowto.html + + Copy the KEYS file into place: + % scp KEYS people.apache.org:/www/www.apache.org/dist/perl/KEYS + + If this is your first release, ask someone with APML karma on PAUSE + to verify you have the appropriate permissions. Likely someone on + the PMC can do this. + + a. login into https://pause.perl.org + b. menu click: Select Mailinglist/Action + c. choose APML and Change Permissions and click go + d. click 3.1 Make somebody else co-maintainer + e. choose the modules to give the perms to + type the username of the new co-maintainer + f. if you happen to know that packages were added this release, + make sure you give the correct permissions to them. + +1. 'make mydist' - to make sure nothing is missing from the manifest, + etc. Now test this generated package mod_perl-2.0.13.tar.gz (not + the current build) with as many + configurations as possible on as many platforms as possible, + unpacking the package each time afresh. + + a. edit ./Changes + - change -dev to -rc\d+ starting with -rc1 + - edit META.yml to the rc\d version above in the version key + + b. commit Changes + % svn ci -m "2.0.13 rc1" Changes + + c. nuke any preinstalled mod_perl libs and run 'make test' + + d. test that you can 'make install' and then run 'make test' again + + e. test whether we are still 100% OK on systems with no LWP: + % APACHE_TEST_PRETEND_NO_LWP=1 make test + + f. build and test as root. double check that you have started from a + fresh source, without having any stale dirs from the previous + build laying around. + +2. once confident that the package is good, commit the release candidate + to https://dist.apache.org/repos/dist/dev/perl and post 24 hour-ish + candidate alert to the modperl/dev list (may be longer to give most + people a chance to catch up). no need to tag this package + + Subject: [RELEASE CANDIDATE]: mod_perl-2.0.13 RC\d+ + +2a. if problems are detected during stage 2, repeat stages 1 and 2. + +3. when the package has been reported to be good, prepare a new + package to be released + + a. edit ./Changes: + - remove -rc\d+ + - add release date + - edit META.yml to remove the -rc\d+ from the version key + + b. check ./README and ./Makefile.PL + - make sure supported httpd versions (dso & static) are current + + c. rerun: + % perl Makefile.PL + make sure tag looks right + % make -n tag + + d. commit Changes README Makefile.PL + % svn ci -m "2.0.13 release" Changes README Makefile.PL + + e. tag + % make tag + + f. Update the svn:externals in the new tag to refer to the new docs tag that + was created by the previous step: + % svn co https://svn.apache.org/repos/asf/perl/modperl/tags/2_0_13 + % svn propedit svn:externals 2_0_13 + Update the docs line from: + ^/perl/modperl/docs/trunk/src/docs/2.0 + to: + ^/perl/modperl/docs/tags/2_0_13/src/docs/2.0 + The complete svn:externals should now look like: + % svn propget svn:externals 2_0_13 + Apache-Test ^/perl/Apache-Test/tags/<X> + Apache-Reload ^/perl/Apache-Reload/tags/<Y> + Apache-SizeLimit ^/perl/Apache-SizeLimit/tags/<Z> + docs ^/perl/modperl/docs/tags/2_0_13/src/docs/2.0 + where <X>, <Y> and <Z> are the tags of the releases of Apache-Test, + Apache-Reload and Apache-SizeLimit included in this release of mod_perl. + % svn ci -m "2.0.13 release" + + g. create the final package + % make dist + + h. test the final package again at least once + +4. Tarball signing + + (depending on whether you use GPG or PGP, pick the first or the + second set of the commands): + + a. sign your local copy of the tarball: + + % gpg --detach-sign --armor mod_perl-2.0.13.tar.gz + + % pgps -b --armor mod_perl-2.0.13.tar.gz + + b. create SHA256 and SHA512 checksums of the tarball: + % sha256sum mod_perl-2.0.13.tar.gz >mod_perl-2.0.13.tar.gz.sha256 + % sha512sum mod_perl-2.0.13.tar.gz >mod_perl-2.0.13.tar.gz.sha512 + +5. Release the package and update links + + a. commit the tarball, the signature file and the checksum files to + https://dist.apache.org/repos/dist/release/perl - ask the PMC + chair to give you the needed permissions if you do not have them. + + b. delete the previous release's files from the same location (they will + already have been archived at https://archive.apache.org/dist/perl/) + + c. update the example command-lines in README.html in the same location + + d. ask one of the other developers to double check the signature file + and tarball: download both files and verify the signature: + + https://www.apache.org/dist/perl/mod_perl-2.0.13.tar.gz.asc + https://www.apache.org/dist/perl/mod_perl-2.0.13.tar.gz + + % gpg --verify mod_perl-2.0.13.tar.gz.asc + + % pgpv mod_perl-2.0.13.tar.gz.asc + + e. respond to the automated email that will arrive requesting that release + data be filled in at https://reporter.apache.org/addrelease.html?perl + + f. update the version and release date in the docs: + % vi modperl-docs/src/download/index_top.html + % vi modperl-docs/doap_Perl.rdf + and commit. + % svn ci -m "2.0.13 release" \ + modperl-docs/src/download/index_top.html \ + modperl-docs/doap_Perl.rdf + + Now run modperl-docs/bin/site_build to generate a local copy of the + website, and commit that to https://svn.apache.org/repos/asf/perl/site + + (Alternatively, if running modperl-docs/bin/site_build is too difficult + on your local machine, you can just directly edit download/index.html + with the changes that were made to modperl-docs/download/index_top.html) + + The change to the website will appear at https://perl.apache.org/ sometime + later (but maybe not until the next day). + +6. Upload the package to CPAN + +7. Announce the package + + a. post to the following lists: + + o dev/perl.apache.org + o modperl/perl.apache.org + o announce/apache.org + + Note, to post to announce@, you must be sending from an apache.org address. + + Subject: [ANNOUNCE] mod_perl 2.0.13 + + include: + - link at perl.apache.org: + https://perl.apache.org/download/index.html + - SHA256 and SHA512 sigs + - the latest Changes + +8. Prepare for the next cycle + + a. increment version in lib/mod_perl2.pm + + b. increment version in META.yml + + c. edit ./Changes: + - start a new item with incremented version + '-dev' + + =item 2.0.14-dev + + d. add a release entry in STATUS + + e. update this file versions to make it easy to copy-n-paste things + on the next release: + % perl -pi.bak -e 's/(\d+)([._])(\d+)(\2)(\d+)/join($2, $1, $3, $5+1)/eg' RELEASE + + f. commit the changed files + % svn ci -m "start 2.0.13-dev cycle" Changes META.yml lib/mod_perl2.pm \ + STATUS RELEASE + +9. Old Versions + + Remind other developers to delete versions older then the prior release + from CPAN. Old releases can always be found on BACKPAN.
diff --git a/2_0_13/STATUS b/2_0_13/STATUS new file mode 100644 index 0000000..1083f10 --- /dev/null +++ b/2_0_13/STATUS
@@ -0,0 +1,44 @@ +mod_perl 2.0 STATUS: -*-text-*- + Last modified at [$Date$] + +Release: +-------- + 2.000.12 : Released Jan 30, 2022 + 2.000.11 : Released Oct 05, 2019 + 2.000.10 : Released Oct 27, 2016 + 2.000.09 : Released Jun 18, 2015 + 2.000.08 : Released Apr 17, 2013 + 2.000.07 : Released Jun 05, 2012 + 2.000.06 : Released Apr 24, 2012 + 2.000.05 : Released Feb 07, 2011 + 2.000.04 : Released Apr 16, 2008 + 2.000.03 : Released Nov 29, 2006 + 2.000.02 : Released Oct 20, 2005 + 2.000.01 : Released Jun 17, 2005 + 2.000.00 : Released May 20, 2005 + 1.999.23 : Released May 03, 2005 + 1.999.22 : Released Apr 14, 2005 + 1.999.21 : Released Jan 22, 2005 + 1.999.20 : Released Jan 05, 2005 + 1.99_19 : Released Dec 22, 2004 + 1.99_18 : Released Dec 12, 2004 + 1.99_17 : Released Oct 22, 2004 + 1.99_16 : Released Aug 22, 2004 + 1.99_15 : Released Aug 20, 2004 + 1.99_14 : Released May 21, 2004 + 1.99_13 : Released Mar 08, 2004 + 1.99_12 : Released Dec 22, 2003 + 1.99_11 : Released Nov 10, 2003 + 1.99_10 : Released Sep 30, 2003 + 1.99_09 : Released Apr 28, 2003 + 1.99_08 : Released Jan 10, 2003 + 1.99_07 : Released Sep 27, 2002 + 1.99_06 : Not released + 1.99_05 : Released Aug 20, 2002 + 1.99_04 : Released Jun 21, 2002 + 1.99_03 : Released Jun 16, 2002 + 1.99_02 : Released Jun 01, 2002 + 1.99_01 : Released Apr 06, 2002 + +Issues, bugs and features and their implementation status are spread +across several files under the todo/ directory
diff --git a/2_0_13/SVN-MOVE b/2_0_13/SVN-MOVE new file mode 100644 index 0000000..e98bfc1 --- /dev/null +++ b/2_0_13/SVN-MOVE
@@ -0,0 +1,30 @@ +This file tracks the things that need to be done to accomplish the +move of modperl projects to SVN: + +* missing commit template files (à là CVS) + PR: + Obtained from: + Submitted by: + Reviewed by: + ... + +* commit messages should trim the unrelated crap in the file path + e.g. currently we get: + + --- perl/modperl/docs/trunk/src/search/swish.conf (original) + +++ perl/modperl/docs/trunk/src/search/swish.conf Fri Nov 19 21:23:25 2004 +and it should be: + + --- src/search/swish.conf (original) + +++ src/search/swish.conf Fri Nov 19 21:23:25 2004 + +so it can be applied/edited easily. + +* improve the commit message subject line to print only important info + (currently may print 100 files listed in the subject), e.g.: + + Subject: svn commit: r105803 - in httpd/test/trunk/perl-framework: . Apache-Test Apache-Test/lib/Apache Apache-Test/t Apache-Test/t/conf c-modules c-modules/authany c-modules/client_add_filter c-modules/eat_post c-modules/echo_post c-modules/echo_post_chunk c-modules/input_body_filter c-modules/list_modules c-modules/nntp_like c-modules/random_chunk c-modules/test_apr_uri c-modules/test_pass_brigade c-modules/test_rwrite c-modules/test_ssl t t/conf t/conf/ssl t/htdocs/modules/access/htaccess t/htdocs/modules/cgi t/htdocs/modules/rewrite t/modules + + Proposed Subject format: + + $svn_id $first_subdir/$first_file ($trunk)
diff --git a/2_0_13/bin/mp2bug b/2_0_13/bin/mp2bug new file mode 100755 index 0000000..c3a312a --- /dev/null +++ b/2_0_13/bin/mp2bug
@@ -0,0 +1,36 @@ +#!perl +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +use strict; +use warnings FATAL => 'all'; + +use FindBin; + +use constant IS_MOD_PERL_BUILD => -e "$FindBin::Bin/../lib/mod_perl2.pm"; + +if (IS_MOD_PERL_BUILD) { + unshift @INC, "$FindBin::Bin/../lib"; +} +else { + eval { require mod_perl2 }; + if ($@) { + die "This script requires mod_perl 2.0\n", "$@"; + } +} + +require ModPerl::TestReport; +ModPerl::TestReport->new(@ARGV)->run;
diff --git a/2_0_13/build/config.pl b/2_0_13/build/config.pl new file mode 100644 index 0000000..7b9e09c --- /dev/null +++ b/2_0_13/build/config.pl
@@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use FindBin qw($Bin); +use lib "$Bin/../lib"; + +use ModPerl::Config (); + +print ModPerl::Config::as_string();
diff --git a/2_0_13/build/make_etags b/2_0_13/build/make_etags new file mode 100644 index 0000000..703588a --- /dev/null +++ b/2_0_13/build/make_etags
@@ -0,0 +1,27 @@ +search=".. ../.." +for dir in $search; do + if test -d "`pwd`/$dir/modperl-2.0"; then + root="`pwd`/$dir" + echo "root=$root" + fi +done + +#e.g. symlink to $HOME/perl/perl-current +#XXX: perl has its own (more robust) TAGS generator: emacs/ptags +perl_src=$root/perl/ +#XXX: apache has its own: build/MakeEtags +apache_src=$root/httpd-2.0/ +modperl_src=$root/modperl-2.0/src/ +xs_src=$root/modperl-2.0/xs + +cd $root/modperl-2.0 +rm -f src/modules/perl/etag_files + +for dir in $apache_src $modperl_src $perl_src $xs_src; do + echo $dir + find $dir -follow -name '*.[ch]' >> src/modules/perl/etag_files +done + +(cd src/modules/perl && etags `cat etag_files`) + +rm -f src/modules/perl/etag_files
diff --git a/2_0_13/build/make_rpm_spec b/2_0_13/build/make_rpm_spec new file mode 100755 index 0000000..2ad2c4e --- /dev/null +++ b/2_0_13/build/make_rpm_spec
@@ -0,0 +1,146 @@ +#!perl +use strict; + +require "./lib/mod_perl2.pm"; + +my $dev_build = is_dev_build(); +my $release = $dev_build ? svn_release() : 1; +my $version = $mod_perl2::VERSION_TRIPLET; +my $path = $dev_build ? "mod_perl-$version-$dev_build" : "mod_perl-$version"; +my $tarname = "$path.tar.gz"; + +my $httpd_ver = min_httpd_ver(); + +open(my $spec, ">mod_perl.spec") || die "Can't open mod_perl.spec $!"; + +print $spec <<"EOF"; +%define _version $mod_perl2::VERSION_TRIPLET +%define _release $release +%define _source https://apache.org/dist/perl/$tarname +%define _dirname $path +%define _httpd_min_ver $httpd_ver +%define _perl_min_ver 5.6.1 +EOF + +print $spec <<'EOF'; +Name: mod_perl +Version: %{_version} +Release: %{_release} +Summary: An embedded Perl interpreter for the Apache Web server +Group: System Environment/Daemons +License: Apache License, Version 2.0 +Packager: mod_perl Development Team <dev@perl.apache.org> +URL: https://perl.apache.org/ +Source: %{_source} +BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) +Requires: httpd >= %{_httpd_min_ver} +BuildRequires: perl >= %{_perl_min_ver} +BuildRequires: httpd-devel >= %{_httpd_min_ver} +BuildRequires: apr-devel, apr-util-devel + +%description +Mod_perl incorporates a Perl interpreter into the Apache web server, +so that the Apache web server can directly execute Perl code. +Mod_perl links the Perl runtime library into the Apache web server and +provides an object-oriented Perl interface for Apache's C language +API. The end result is a quicker CGI script turnaround process, since +no external Perl interpreter has to be started. + +Install mod_perl if you're installing the Apache web server and you'd +like for it to directly incorporate a Perl interpreter. + +%package devel +Summary: Files needed for building XS modules that use mod_perl +Group: Development/Libraries +Requires: mod_perl = %{version}-%{release}, httpd-devel + +%description devel +The mod_perl-devel package contains the files needed for building XS +modules that use mod_perl. + +%prep +%setup -q -n %{_dirname} + +%build +CFLAGS="$RPM_OPT_FLAGS" %{__perl} Makefile.PL </dev/null \ + PREFIX=$RPM_BUILD_ROOT/usr \ + INSTALLDIRS=vendor \ + MP_APXS=%{_sbindir}/apxs +make %{?_smp_mflags} OPTIMIZE="$RPM_OPT_FLAGS" + +%install +rm -rf $RPM_BUILD_ROOT +install -d -m 755 $RPM_BUILD_ROOT%{_libdir}/httpd/modules +make install \ + MODPERL_AP_LIBEXECDIR=$RPM_BUILD_ROOT%{_libdir}/httpd/modules \ + MODPERL_AP_INCLUDEDIR=$RPM_BUILD_ROOT%{_includedir}/httpd + +# Remove the temporary files. +find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';' +find $RPM_BUILD_ROOT -type f -name perllocal.pod -exec rm -f {} ';' +find $RPM_BUILD_ROOT -type f -name '*.bs' -a -size 0 -exec rm -f {} ';' +find $RPM_BUILD_ROOT -type d -depth -exec rmdir {} 2>/dev/null ';' + +%clean +rm -rf $RPM_BUILD_ROOT + +%files +%defattr(-,root,root,-) +%doc Changes LICENSE README* STATUS SVN-MOVE docs/ +%{_bindir}/* +%{_libdir}/httpd/modules/mod_perl.so +%{perl_vendorarch}/auto/* +%{perl_vendorarch}/Apache/ +%{perl_vendorarch}/Apache2/ +%{perl_vendorarch}/Bundle/ +%{perl_vendorarch}/APR/ +%{perl_vendorarch}/ModPerl/ +%{perl_vendorarch}/*.pm +%{_mandir}/man?/* + +%files devel +%defattr(-,root,root,-) +%{_includedir}/httpd/* + +%changelog +EOF + +sub min_httpd_ver { + my $min_httpd_ver; + open my $mk, 'Makefile.PL'; + while (<$mk>) { + if (/MIN_HTTPD_VERSION_DYNAMIC\s*=>\s*'(.*)'/) { + $min_httpd_ver = $1; + last; + } + } + close $mk; + $min_httpd_ver; +} + +sub svn_release { + open my $svn, "<.svn/entries"; + my $revision; + while (<$svn>) { + if (/revision="(\d+)"/) { + $revision = $1; + last; + } + } + close $svn; + $revision; +} + +sub is_dev_build { + my $dev; + open my $fh, 'Changes'; + while (<$fh>) { + if (/^=item.*-(dev|rc\d+)/) { + $dev = $1; + last; + } + last if /^=item/; + } + close $fh; + $dev; +}
diff --git a/2_0_13/build/source_scan.pl b/2_0_13/build/source_scan.pl new file mode 100644 index 0000000..3a6da0e --- /dev/null +++ b/2_0_13/build/source_scan.pl
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +#requires C::Scan 0.75+ + +use lib qw(lib Apache-Test/lib); + +use strict; +use Apache2::ParseSource (); +use ModPerl::ParseSource (); +use ModPerl::FunctionMap (); +use ModPerl::WrapXS (); #XXX: we should not need to require this here + +my $p = Apache2::ParseSource->new(prefixes => ModPerl::FunctionMap->prefixes, + @ARGV); + +$p->parse; + +$p->write_constants_pm; + +$p->write_functions_pm; + +$p->write_structs_pm; + +$p = ModPerl::ParseSource->new(@ARGV); + +$p->parse; + +$p->write_functions_pm;
diff --git a/2_0_13/build/win32_fetch_apxs b/2_0_13/build/win32_fetch_apxs new file mode 100755 index 0000000..ee6c964 --- /dev/null +++ b/2_0_13/build/win32_fetch_apxs
@@ -0,0 +1,101 @@ +#!C:/Perl/bin/perl +################################################################### +# apxs, apr-config, and apu-config are Apache utilities used # +# to both get certain configuration information and also to # +# assist in building Apache modules. These utilities have not # +# yet been officially ported to Win32. The following will fetch # +# and install a development version of these scripts which can # +# be used in both mod_perl 2 and Apache C modules. # +# # +# Please report problems in installing or using these utilties to # +# Randy Kobes <randy@theoryx5.uwinnipeg.ca> # +################################################################### +use strict; +use warnings; +use Getopt::Long; +use File::Spec::Functions; +use File::Path; +use ExtUtils::MakeMaker qw(prompt); +use Cwd; + +die "This is intended for Win32" unless ($^O =~ /Win32/i); + +my $prefix; +GetOptions( 'with-apache2=s' => \$prefix); +unless ($prefix and -d $prefix) { + die << 'END'; + +I could not determine a valid Apache2 directory. Please +run this script specifying the option + --with-apache2=/Path/to/Apache2 +where /Path/to/Apache2 is the location of your installed +Apache2 top-level directory. + +END +} + +exit 0 if (-e catfile($prefix, 'bin', 'apxs.bat')); + +print << 'END'; + +---------------------------------------------------------------------- +I could not find an apxs utility, which will be used in certain parts +of the build, if present. This utility (and the apr-config and +apu-config utilities) have not yet been ported to Apache2 on Win32, +but a development port is available. You can either + +- ignore installing apxs by answering "no" at the prompt below + (mod_perl will still build), +- install apxs by answering "yes" at the prompt below, +- quit now, run the "fetch_win32_apxs.pl" script in the build/ directory + to fetch and install the utilities, and then rebuild mod_perl, +- quit now, and from https://apache.org/dist/perl/win32-bin/ grab + apxs_win32.tar.gz; when unpacked, this contains a README explaining + how to install the utilities. Afterwards, rebuild mod_perl. +---------------------------------------------------------------------- + +END + +my $ans = prompt('Install apxs now?', 'yes'); +exit 0 unless $ans =~ /^y/i; + +my $prog; +for my $trial(qw(Apache.exe httpd.exe)) { + next unless -e File::Spec->catfile($prefix, 'bin', $trial); + $prog = $trial; + last; +} +die "Could not determine the Apache2 binary name" unless $prog; + +require LWP::Simple; +LWP::Simple->import(qw(is_success getstore)); + +my $file = 'apxs_win32.tar.gz'; +unless (-e $file) { + my $remote = 'https://apache.org/dist/perl/win32-bin/' . $file; + print "Fetching $remote ... "; + die "Download of $remote failed" + unless (is_success(getstore($remote, $file))); + print " done!\n"; +} + +require Archive::Tar; +my $cwd = getcwd; +my $dir = 'apxs'; +my $arc = Archive::Tar->new($file, 1); +$arc->extract($arc->list_files()); +die "Unpacking $file failed" unless (-d $dir); + +print "chdir $dir\n"; +chdir $dir or die "chdir to $dir failed: $!"; + +my @args = ($^X, 'Configure.pl', + "--with-apache2=$prefix", + "--with-apache-prog=$prog"); +print "@args\n"; +system(@args) == 0 or die "system @args failed: $?"; + +chdir $cwd; +#rmtree($dir, 1, 1) or warn "rmtree of $dir failed: $!"; +#print "unlink $file\n\n"; +#unlink $file or warn "unlink of $file failed: $!";
diff --git a/2_0_13/build/xs_generate.pl b/2_0_13/build/xs_generate.pl new file mode 100644 index 0000000..74761b5 --- /dev/null +++ b/2_0_13/build/xs_generate.pl
@@ -0,0 +1,11 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use lib qw(lib Apache-Test/lib); + +use Apache::TestConfig (); # needed to resolve circular use dependency + +use ModPerl::WrapXS (); + +my $xs = ModPerl::WrapXS->new; + +$xs->generate; +
diff --git a/2_0_13/lib/APR/XSLoader.pm b/2_0_13/lib/APR/XSLoader.pm new file mode 100644 index 0000000..fc390f2 --- /dev/null +++ b/2_0_13/lib/APR/XSLoader.pm
@@ -0,0 +1,38 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package APR::XSLoader; + +use strict; +use warnings FATAL => 'all'; + +use XSLoader (); + +BEGIN { + unless (defined &BOOTSTRAP) { + *BOOTSTRAP = sub () { 0 }; + } +} + +sub load { + return unless BOOTSTRAP; + # do not change the next line and do not insert anything below it in this + # function. XSLoader::load depends on it. + goto &XSLoader::load; +} + +1; +__END__
diff --git a/2_0_13/lib/Apache2/Build.pm b/2_0_13/lib/Apache2/Build.pm new file mode 100644 index 0000000..19692a8 --- /dev/null +++ b/2_0_13/lib/Apache2/Build.pm
@@ -0,0 +1,2400 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::Build; + +use 5.006; +use strict; +use warnings; + +use Config; +use Cwd (); +use File::Spec::Functions qw(catfile catdir canonpath rel2abs devnull + catpath splitpath); +use File::Basename; +use ExtUtils::Embed (); +use File::Copy (); + +BEGIN { # check for a sane ExtUtils::Embed + unless ($ENV{MP_USE_MY_EXTUTILS_EMBED}) { + my ($version, $path)=(ExtUtils::Embed->VERSION, + $INC{q{ExtUtils/Embed.pm}}); + my $msg=<<"EOF"; +I have found ExtUtils::Embed $version at + + $path + +This is probably not the right one for this perl version. Please make sure +there is only one version of this module installed and that it is the one +that comes with this perl version. + +If you insist on using the ExtUtils::Embed as is set the environment +variable MP_USE_MY_EXTUTILS_EMBED=1 and try again. + +EOF + if (eval {require Module::CoreList}) { + my $req=$Module::CoreList::version{$]}->{q/ExtUtils::Embed/}; + die "Please repair your Module::CoreList" unless $req; + unless ($version eq $req) { + $msg.=("Details: expecting ExtUtils::Embed $req ". + "(according to Module::CoreList)\n\n"); + die $msg; + } + } + else { + my $req=$Config{privlib}.'/ExtUtils/Embed.pm'; + unless ($path eq $req) { + $msg.="Details: expecting ExtUtils::Embed at $req\n\n"; + die $msg; + } + } + } +} + +use constant IS_MOD_PERL_BUILD => grep + { -e "$_/Makefile.PL" && -e "$_/lib/mod_perl2.pm" } qw(. ..); + +use constant AIX => $^O eq 'aix'; +use constant DARWIN => $^O eq 'darwin'; +use constant CYGWIN => $^O eq 'cygwin'; +use constant IRIX => $^O eq 'irix'; +use constant HPUX => $^O eq 'hpux'; +use constant OPENBSD => $^O eq 'openbsd'; +use constant WIN32 => $^O eq 'MSWin32'; + +use constant MSVC => WIN32() && ($Config{cc} eq 'cl'); +use constant DMAKE => WIN32() && ($Config{make} eq 'dmake'); + +use constant REQUIRE_ITHREADS => grep { $^O eq $_ } qw(MSWin32); +use constant PERL_HAS_ITHREADS => + $Config{useithreads} && ($Config{useithreads} eq 'define'); +use constant BUILD_APREXT => WIN32() || CYGWIN(); + +use ModPerl::Code (); +use ModPerl::BuildOptions (); +use Apache::TestTrace; +use Apache::TestConfig (); + +our $VERSION = '0.01'; +our $AUTOLOAD; + +sub AUTOLOAD { + my $self = shift; + my $name = uc ((split '::', $AUTOLOAD)[-1]); + unless ($name =~ /^MP_/) { + die "no such method: $AUTOLOAD"; + } + unless ($self->{$name}) { + return wantarray ? () : undef; + } + return wantarray ? (split /\s+/, $self->{$name}) : $self->{$name}; +} + +#--- apxs stuff --- + +our $APXS; + +my %apxs_query = ( + INCLUDEDIR => 'include', + LIBEXECDIR => 'modules', + CFLAGS => undef, + PREFIX => '', +); + +sub ap_prefix_invalid { + my $self = shift; + + my $prefix = $self->{MP_AP_PREFIX}; + + unless (-d $prefix) { + return "$prefix: No such file or directory"; + } + + my $include_dir = $self->apxs(-q => 'INCLUDEDIR'); + + unless (-d $include_dir) { + return "include/ directory not found in $prefix"; + } + + return ''; +} + +sub httpd_is_source_tree { + my $self = shift; + + return $self->{httpd_is_source_tree} + if exists $self->{httpd_is_source_tree}; + + my $prefix = $self->dir; + $self->{httpd_is_source_tree} = + defined $prefix && -d $prefix && -e "$prefix/CHANGES"; +} + +# try to find the apxs utility, set $self->{MP_APXS} to the path if found, +# otherwise to '' +sub find_apxs_util { + my $self = shift; + + if (not defined $self->{MP_APXS}) { + $self->{MP_APXS} = ''; # not found + } + + my @trys = ($Apache2::Build::APXS, + $self->{MP_APXS}, + $ENV{MP_APXS}); + + push @trys, catfile $self->{MP_AP_PREFIX}, 'bin', 'apxs' + if exists $self->{MP_AP_PREFIX}; + + if (WIN32) { + my $ext = '.bat'; + for (@trys) { + $_ .= $ext if ($_ and $_ !~ /$ext$/); + } + } + + unless (IS_MOD_PERL_BUILD) { + #if we are building mod_perl via apxs, apxs should already be known + #these extra tries are for things built outside of mod_perl + #e.g. libapreq + # XXX: this may pick a wrong apxs version! + push @trys, + Apache::TestConfig::which('apxs'), + '/usr/local/apache/bin/apxs'; + } + + my $apxs_try; + for (@trys) { + next unless ($apxs_try = $_); + chomp $apxs_try; + if (-x $apxs_try) { + $self->{MP_APXS} = $apxs_try; + last; + } + } +} + +# if MP_AP_DESTDIR was specified this sub will prepend this path to +# any Apache-specific installation path (that option is used only by +# package maintainers). +sub ap_destdir { + my $self = shift; + my $path = shift || ''; + return $path unless $self->{MP_AP_DESTDIR}; + + if (WIN32) { + my ($dest_vol, $dest_dir) = splitpath $self->{MP_AP_DESTDIR}, 1; + my $real_dir = (splitpath $path)[1]; + + $path = catpath $dest_vol, catdir($dest_dir, $real_dir), ''; + } + else { + $path = catdir $self->{MP_AP_DESTDIR}, $path; + } + + return canonpath $path; +} + +sub apxs { + my $self = shift; + + $self->find_apxs_util() unless defined $self->{MP_APXS}; + + my $is_query = (@_ == 2) && ($_[0] eq '-q'); + + $self = $self->build_config unless ref $self; + + my $query_key; + if ($is_query) { + $query_key = 'APXS_' . uc $_[1]; + if (exists $self->{$query_key}) { + return $self->{$query_key}; + } + } + + unless ($self->{MP_APXS}) { + my $prefix = $self->{MP_AP_PREFIX} || ""; + return '' unless -d $prefix and $is_query; + my $val = $apxs_query{$_[1]}; + return defined $val ? ($val ? "$prefix/$val" : $prefix) : ""; + } + + my $devnull = devnull(); + my $val = qx($self->{MP_APXS} @_ 2>$devnull); + chomp $val if defined $val; + + unless ($val) { + # do we have an error or is it just an empty value? + my $error = qx($self->{MP_APXS} @_ 2>&1); + chomp $error if defined $error; + if ($error) { + error "'$self->{MP_APXS} @_' failed:"; + error $error; + } + else { + $val = ''; + } + } + + $self->{$query_key} = $val; +} + +sub apxs_cflags { + my $who = caller_package(shift); + my $cflags = $who->apxs('-q' => 'CFLAGS'); + $cflags =~ s/\"/\\\"/g; + $cflags; +} + +sub apxs_extra_cflags { + my $who = caller_package(shift); + my $flags = $who->apxs('-q' => 'EXTRA_CFLAGS'); + $flags =~ s/\"/\\\"/g; + $flags; +} + +sub apxs_extra_cppflags { + my $who = caller_package(shift); + my $flags = $who->apxs('-q' => 'EXTRA_CPPFLAGS') ." ". + $who->apxs('-q' => 'NOTEST_CPPFLAGS'); + $flags =~ s/\"/\\\"/g; + $flags; +} + +sub caller_package { + my $arg = shift; + return ($arg and ref($arg) eq __PACKAGE__) ? $arg : __PACKAGE__; +} + +my %threaded_mpms = map { $_ => 1 } + qw(worker winnt beos mpmt_os2 netware leader perchild threadpool + dynamic); +sub mpm_is_threaded { + my $self = shift; + my $mpm_name = $self->mpm_name(); + return exists $threaded_mpms{$mpm_name} ? 1 : 0; +} + +sub mpm_name { + my $self = shift; + + return $self->{mpm_name} if $self->{mpm_name}; + + if ($self->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/) { + delete $threaded_mpms{dynamic} if $self->mp_nonthreaded_ok; + return $self->{mpm_name} = 'dynamic' if ($1*1000+$2)*1000+$3>=2003000; + } + + # XXX: hopefully apxs will work on win32 one day + return $self->{mpm_name} = 'winnt' if WIN32; + + my $mpm_name; + + # httpd >= 2.3 + if ($self->httpd_version_as_int =~ m/^2[3-9]\d+/) { + $mpm_name = 'dynamic'; + } + else { + $mpm_name = $self->apxs('-q' => 'MPM_NAME'); + } + + # building against the httpd source dir + unless (($mpm_name and $self->httpd_is_source_tree)) { + if ($self->dir) { + my $config_vars_file = catfile $self->dir, + "build", "config_vars.mk"; + if (open my $fh, $config_vars_file) { + while (<$fh>) { + if (/MPM_NAME = (\w+)/) { + $mpm_name = $1; + last; + } + } + close $fh; + } + } + } + + unless ($mpm_name) { + my $msg = 'Failed to obtain the MPM name.'; + $msg .= " Please specify MP_APXS=/full/path/to/apxs to solve " . + "this problem." unless exists $self->{MP_APXS}; + error $msg; + die "\n"; + } + + return $self->{mpm_name} = $mpm_name; +} + +sub should_build_apache { + my ($self) = @_; + return $self->{MP_USE_STATIC} ? 1 : 0; +} + +sub configure_apache { + my ($self) = @_; + + unless ($self->{MP_AP_CONFIGURE}) { + error "You specified MP_USE_STATIC but did not specify the " . + "arguments to httpd's ./configure with MP_AP_CONFIGURE"; + exit 1; + } + + unless ($self->{MP_AP_PREFIX}) { + error "You specified MP_USE_STATIC but did not speficy the " . + "location of httpd's source tree with MP_AP_PREFIX"; + exit 1; + } + + debug "Configuring httpd in $self->{MP_AP_PREFIX}"; + + my $httpd = File::Spec->catfile($self->{MP_AP_PREFIX}, 'httpd'); + $self->{'httpd'} ||= $httpd; + push @Apache::TestMM::Argv, ('httpd' => $self->{'httpd'}); + + my $mplibpath = ''; + my $ldopts = $self->ldopts; + + if (CYGWIN) { + # Cygwin's httpd port links its modules into httpd2core.dll, + # instead of httpd.exe. In this case, we have a problem, + # because libtool doesn't want to include static libs (.a) + # into a dynamic lib (.dll). Workaround this by setting + # mod_perl.a as a linker argument (including all other flags + # and libs). + my $mplib = "$self->{MP_LIBNAME}$Config{lib_ext}"; + + $ldopts = join ' ', + '--export-all-symbols', + '--enable-auto-image-base', + "$self->{cwd}/src/modules/perl/$mplib", + $ldopts; + + $ldopts =~ s/(\S+)/-Wl,$1/g; + + } else { + my $mplib = "$self->{MP_LIBNAME}$Config{lib_ext}"; + $mplibpath = catfile($self->{cwd}, qw(src modules perl), $mplib); + } + + local $ENV{BUILTIN_LIBS} = $mplibpath; + local $ENV{AP_LIBS} = $ldopts; + local $ENV{MODLIST} = 'perl'; + + # XXX: -Wall and/or -Werror at httpd configure time breaks things + local $ENV{CFLAGS} = join ' ', grep { ! /\-Wall|\-Werror/ } + split /\s+/, $ENV{CFLAGS} || ''; + + my $cd = qq(cd $self->{MP_AP_PREFIX}); + + # We need to clean the httpd tree before configuring it + if (-f File::Spec->catfile($self->{MP_AP_PREFIX}, 'Makefile')) { + my $cmd = qq(make clean); + debug "Running $cmd"; + system("$cd && $cmd") == 0 or die "httpd: $cmd failed"; + } + + my $cmd = qq(./configure $self->{MP_AP_CONFIGURE}); + debug "Running $cmd"; + system("$cd && $cmd") == 0 or die "httpd: $cmd failed"; + + # Got to build in srclib/* early to have generated files present. + my $srclib = File::Spec->catfile($self->{MP_AP_PREFIX}, 'srclib'); + $cd = qq(cd $srclib); + $cmd = qq(make); + debug "Building srclib in $srclib"; + system("$cd && $cmd") == 0 or die "srclib: $cmd failed"; +} + +#--- Perl Config stuff --- + +my %gtop_config = (); +sub find_gtop { + my $self = shift; + + return %gtop_config if %gtop_config; + + if (%gtop_config = find_gtop_config()) { + return %gtop_config; + } + + if ($self->find_dlfile('gtop')) { + $gtop_config{ldopts} = $self->gtop_ldopts_old(); + $gtop_config{ccopts} = ''; + return %gtop_config; + } + + return (); +} + +sub find_gtop_config { + my %c = (); + + my $ver_2_5_plus = 0; + if (system('pkg-config --exists libgtop-2.0') == 0) { + # 2.x + chomp($c{ccopts} = qx|pkg-config --cflags libgtop-2.0|); + chomp($c{ldopts} = qx|pkg-config --libs libgtop-2.0|); + + # 2.0.0 bugfix + chomp(my $libdir = qx|pkg-config --variable=libdir libgtop-2.0|); + $c{ldopts} =~ s|\$\(libdir\)|$libdir|; + + chomp($c{ver} = qx|pkg-config --modversion libgtop-2.0|); + ($c{ver_maj}, $c{ver_min}) = split /\./, $c{ver}; + $ver_2_5_plus++ if $c{ver_maj} == 2 && $c{ver_min} >= 5; + + if ($ver_2_5_plus) { + # some headers were removed in libgtop 2.5.0 so we need to + # be able to exclude them at compile time + $c{ccopts} .= ' -DGTOP_2_5_PLUS'; + } + + } + elsif (system('gnome-config --libs libgtop') == 0) { + chomp($c{ccopts} = qx|gnome-config --cflags libgtop|); + chomp($c{ldopts} = qx|gnome-config --libs libgtop|); + + # buggy ( < 1.0.9?) versions fixup + $c{ccopts} =~ s|^/|-I/|; + $c{ldopts} =~ s|^/|-L/|; + } + + # starting from 2.5.0 'pkg-config --cflags libgtop-2.0' already + # gives us all the cflags that are needed + if ($c{ccopts} && !$ver_2_5_plus) { + chomp(my $ginc = `glib-config --cflags`); + $c{ccopts} .= " $ginc"; + } + + if (%c) { + $c{ccopts} = " $c{ccopts}"; + $c{ldopts} = " $c{ldopts}"; + } + + return %c; +} + +my @Xlib = qw(/usr/X11/lib /usr/X11R6/lib); + +sub gtop_ldopts_old { + my $self = shift; + my $xlibs = ""; + + my ($path) = $self->find_dlfile('Xau', @Xlib); + if ($path) { + $xlibs = "-L$path -lXau"; + } + + if ($self->find_dlfile('intl')) { + $xlibs .= ' -lintl'; + } + + return " -lgtop -lgtop_sysdeps -lgtop_common $xlibs"; +} + +sub gtop_ldopts { + exists $gtop_config{ldopts} ? $gtop_config{ldopts} : ''; +} + +sub gtop_ccopts { + exists $gtop_config{ccopts} ? $gtop_config{ccopts} : ''; +} + +sub ldopts { + my ($self) = @_; + + my $config = tied %Config; + my $ldflags = $config->{ldflags}; + + if (WIN32) { + $config->{ldflags} = ''; #same as lddlflags + } + elsif (DARWIN) { + #not sure how this can happen, but it shouldn't + my @bogus_flags = ('flat_namespace', 'bundle', 'undefined suppress'); + for my $flag (@bogus_flags) { + $config->{ldflags} =~ s/-$flag\s*//; + } + } + + my $ldopts = ExtUtils::Embed::ldopts(); + chomp $ldopts; + + my $ld = $self->perl_config('ld'); + + if (HPUX && $ld eq 'ld') { + while ($ldopts =~ s/-Wl,(\S+)/$1/) { + my $cp = $1; + (my $repl = $cp) =~ s/,/ /g; + $ldopts =~ s/\Q$cp/$repl/; + } + } + + if ($self->{MP_USE_GTOP}) { + $ldopts .= $self->gtop_ldopts; + } + + $config->{ldflags} = $ldflags; #reset + + # on Irix mod_perl.so needs to see the libperl.so symbols, which + # requires the -exports option immediately before -lperl. + if (IRIX) { + ($ldopts =~ s/-lperl\b/-exports -lperl/) + or warn "Failed to fix Irix symbol exporting\n"; + } + + $ldopts; +} + +my $Wall = + "-Wall -Wmissing-prototypes -Wstrict-prototypes -Wmissing-declarations"; + +# perl v5.6.1 and earlier produces lots of warnings, so we can't use +# -Werror with those versions. +$Wall .= " -Werror" if $] >= 5.006002; + +sub ap_ccopts { + my ($self) = @_; + my $ccopts = "-DMOD_PERL"; + + if ($self->{MP_USE_GTOP}) { + $ccopts .= " -DMP_USE_GTOP"; + $ccopts .= $self->gtop_ccopts; + } + + if ($self->{MP_MAINTAINER}) { + $self->{MP_DEBUG} = 1; + if ($self->perl_config('gccversion')) { + #same as --with-maintainter-mode + $ccopts .= " $Wall"; + } + + if (!OPENBSD && + $self->has_gcc_version('3.3.2') && + $ccopts !~ /declaration-after-statement/) { + debug "Adding -Wdeclaration-after-statement to ccopts"; + $ccopts .= " -Wdeclaration-after-statement"; + } + } + + if ($self->{MP_COMPAT_1X}) { + $ccopts .= " -DMP_COMPAT_1X"; + } + + if ($self->{MP_DEBUG}) { + $self->{MP_TRACE} = 1; + my $win32_flags = MSVC ? '-Od -MD -Zi' : ''; + my $debug_flags = WIN32 ? $win32_flags : '-g'; + $ccopts .= " $debug_flags" unless $Config{optimize} =~ /$debug_flags/; + $ccopts .= ' -DMP_DEBUG'; + } + + if ($self->{MP_CCOPTS}) { + $ccopts .= " $self->{MP_CCOPTS}"; + } + + if ($self->{MP_TRACE}) { + $ccopts .= " -DMP_TRACE"; + } + + if ($self->has_gcc_version('5.0.0') && $ccopts !~ /-fgnu89-inline/) { + $ccopts .= " -fgnu89-inline"; + } + + if ($self->has_clang && $ccopts !~ /-std=gnu89/) { + $ccopts .= " -std=gnu89"; + } + + # make sure apr.h can be safely included + # for example Perl's included -D_GNU_SOURCE implies + # -D_LARGEFILE64_SOURCE on linux, but this won't happen on + # Solaris, so we need apr flags living in apxs' EXTRA_CPPFLAGS + my $extra_cppflags = $self->apxs_extra_cppflags; + $ccopts .= " " . $extra_cppflags; + + # Make sure the evil AP_DEBUG is not defined when building mod_perl + $ccopts =~ s/ ?-DAP_DEBUG\b//; + + $ccopts; +} + +sub has_gcc_version { + my $self = shift; + my $requested_version = shift; + + my $has_version = $self->perl_config('gccversion'); + + return 0 unless $has_version; + + #Only interested in leading version digits + $has_version =~ s/^([0-9.]+).*/$1/; + + my @tuples = split /\./, $has_version, 3; + my @r_tuples = split /\./, $requested_version, 3; + + return cmp_tuples(\@tuples, \@r_tuples) == 1; +} + +sub has_clang { + my $self = shift; + + my $has_version = $self->perl_config('gccversion'); + + return 0 unless $has_version; + + return $has_version =~ m/Clang/; +} + +sub cmp_tuples { + my ($num_a, $num_b) = @_; + + while (@$num_a && @$num_b) { + my $cmp = shift @$num_a <=> shift @$num_b; + return $cmp if $cmp; + } + + return @$num_a <=> @$num_b; +} + +sub perl_ccopts { + my $self = shift; + + my $cflags = $self->strip_lfs(" $Config{ccflags} "); + + my $fixup = \&{"ccopts_$^O"}; + if (defined &$fixup) { + $fixup->(\$cflags); + } + + if (WIN32 and $self->{MP_DEBUG}) { + #only win32 has -DDEBUGGING in both optimize and ccflags + my $optim = $Config{optimize}; + + unless ($optim =~ /-DDEBUGGING/) { + $cflags =~ s/$optim//; + } + } + + if (CYGWIN) { + $cflags .= " -DCYGWIN "; + } + + $cflags; +} + +sub ccopts_hpux { + my $cflags = shift; + return if $Config{cc} eq 'gcc'; #XXX? + return if $$cflags =~ /(-Ae|\+e)/; + $$cflags .= " -Ae "; +} + +# XXX: there could be more, but this is just for cosmetics +my %cflags_dups = map { $_ => 1 } qw(-D_GNU_SOURCE -D_REENTRANT); +sub ccopts { + my ($self) = @_; + + my $cflags = $self->perl_ccopts . ExtUtils::Embed::perl_inc() . + $self->ap_ccopts; + + # remove duplicates of certain cflags coming from perl and ap/apr + my @cflags = (); + my %dups = (); + for (split /\s+/, $cflags) { + if ($cflags_dups{$_}) { + next if $dups{$_}; + $dups{$_}++; + } + push @cflags, $_; + } + $cflags = "@cflags"; + + $cflags; +} + +sub ldopts_prefix { + my $self = shift; + $self->perl_config('ld') eq 'ld' ? '' : "-Wl,"; +} + +sub perl_config_optimize { + my ($self, $val) = @_; + + $val ||= $Config{optimize}; + + if ($self->{MP_DEBUG}) { + return ' ' unless $Config{ccflags} =~ /-DDEBUGGING/; + } + + $val; +} + +sub perl_config_ld { + my ($self, $val) = @_; + + $val ||= $Config{ld}; + + basename $val; #bleedperl hpux value is /usr/bin/ld ! +} + +sub perl_config_lddlflags { + my ($self, $val) = @_; + + if ($self->{MP_DEBUG}) { + if (MSVC) { + unless ($val =~ s/-release/-debug/) { + $val .= ' -debug'; + } + } + } + + if (AIX) { + my $Wl = $self->ldopts_prefix; + + # it's useless to import symbols from libperl.so this way, + # because perl.exp is incomplete. a better way is to link + # against -lperl which has all the symbols + $val =~ s|${Wl}-bI:\$\(PERL_INC\)/perl\.exp||; + # also in the case of Makefile.modperl PERL_INC is defined + + # this works with at least ld(1) on powerpc-ibm-aix5.1.0.0: + # -berok ignores symbols resolution problems (they will be + # resolved at run-time + # -brtl prepares the object for run-time loading + # LDFLAGS already inserts -brtl + $val .= " ${Wl}-berok"; + # XXX: instead of -berok, could make sure that we have: + # -Lpath/to/CORE -lperl + # -bI:$path/apr.exp -bI:$path/aprutil.exp -bI:$path/httpd.exp + # -bI:$path/modperl_*.exp + # - don't import modperl_*.exp in Makefile.modperl which + # exports -bE:$path/modperl_*.exp + # - can't rely on -bI:$path/perl.exp, because it's incomplete, + # use -lperl instead + # - the issue with using apr/aprutil/httpd.exp is to pick the + # right path if httpd wasn't yet installed + } + + $val; +} + +sub perl_config { + my ($self, $key) = @_; + + my $val = $Config{$key} || ''; + + my $method = \&{"perl_config_$key"}; + if (defined &$method) { + return $method->($self, $val); + } + + return $val; +} + +sub find_in_inc { + my $name = shift; + for (@INC) { + my $file; + if (-e ($file = "$_/auto/Apache2/$name")) { + return $file; + } + } +} + +sub libpth { + my $self = shift; + $self->{libpth} ||= [split /\s+/, $Config{libpth}]; + return wantarray ? @{ $self->{libpth} } : $self->{libpth}; +} + +sub find_dlfile { + my ($self, $name) = (shift, shift); + + require DynaLoader; + require AutoLoader; #eek + + my $found = 0; + my $loc = ""; + my (@path) = ($self->libpth, @_); + + for (@path) { + if ($found = DynaLoader::dl_findfile($_, "-l$name")) { + $loc = $_; + last; + } + } + + return wantarray ? ($loc, $found) : $found; +} + +sub find_dlfile_maybe { + my ($self, $name) = @_; + + my $path = $self->libpth; + + my @maybe; + my $lib = 'lib' . $name; + + for (@$path) { + push @maybe, grep { ! -l $_ } <$_/$lib.*>; + } + + return \@maybe; +} + +sub lib_check { + my ($self, $name) = @_; + return unless $self->perl_config('libs') =~ /$name/; + + return if $self->find_dlfile($name); + + my $maybe = $self->find_dlfile_maybe($name); + my $suggest = @$maybe ? + "You could just symlink it to $maybe->[0]" : + 'You might need to install Perl from source'; + $self->phat_warn(<<EOF); +Your Perl is configured to link against lib$name, + but lib$name.so was not found. + $suggest +EOF +} + +#--- user interaction --- + +sub prompt { + my ($self, $q, $default) = @_; + return $default if $self->{MP_PROMPT_DEFAULT}; + require ExtUtils::MakeMaker; + ExtUtils::MakeMaker::prompt($q, $default); +} + +sub prompt_y { + my ($self, $q) = @_; + $self->prompt($q, 'y') =~ /^y/i; +} + +sub prompt_n { + my ($self, $q) = @_; + $self->prompt($q, 'n') =~ /^n/i; +} + +sub phat_warn { + my ($self, $msg, $abort) = @_; + my $level = $abort ? 'ERROR' : 'WARNING'; + warn <<EOF; +************* $level ************* + + $msg + +************* $level ************* +EOF + if ($abort) { + exit 1; + } + else { + sleep 5; + } +} + +#--- constructors --- + +my $bpm = 'Apache2/BuildConfig.pm'; + +sub build_config { + my $self = shift; + my $bpm_mtime = 0; + + $bpm_mtime = (stat _)[9] if $INC{$bpm} && -e $INC{$bpm}; + + if (-e "lib/$bpm" and (stat _)[9] > $bpm_mtime) { + #reload if Makefile.PL has regenerated + unshift @INC, 'lib'; + delete $INC{$bpm}; + eval { require Apache2::BuildConfig; }; + shift @INC; + } + else { + eval { require Apache2::BuildConfig; }; + } + + return bless {}, (ref($self) || $self) if $@; + return Apache2::BuildConfig->new; +} + +sub new { + my $class = shift; + + my $self = bless { + cwd => Cwd::fastcwd(), + MP_LIBNAME => 'mod_perl', + MP_APXS => undef, # so we know we haven't tried to set it yet + @_, + }, $class; + + $self->{MP_APR_LIB} = 'aprext'; + + ModPerl::BuildOptions->init($self) if delete $self->{init}; + + $self; +} + +sub DESTROY {} + +my %default_files = ( + 'build_config' => 'lib/Apache2/BuildConfig.pm', + 'ldopts' => 'src/modules/perl/ldopts', + 'makefile' => 'src/modules/perl/Makefile', +); + +sub clean_files { + my $self = shift; + [sort map { $self->default_file($_) } keys %default_files]; +} + +sub default_file { + my ($self, $name, $override) = @_; + my $key = join '_', 'file', $name; + $self->{$key} ||= ($override || $default_files{$name}); +} + +sub file_path { + my $self = shift; + + # work around when Apache2::BuildConfig has not been created yet + return unless $self && $self->{cwd}; + + my @files = map { m:^/: ? $_ : join('/', $self->{cwd}, $_) } @_; + return wantarray ? @files : $files[0]; +} + +sub freeze { + require Data::Dumper; + local $Data::Dumper::Terse = 1; + local $Data::Dumper::Sortkeys = 1; + my $data = Data::Dumper::Dumper(shift); + chomp $data; + $data; +} + +sub save_ldopts { + my ($self, $file) = @_; + + $file ||= $self->default_file('ldopts', $file); + my $ldopts = $self->ldopts; + + open my $fh, '>', $file or die "open $file: $!"; + print $fh "#!/bin/sh\n\necho $ldopts\n"; + close $fh; + chmod 0755, $file; +} + +sub noedit_warning_hash { + ModPerl::Code::noedit_warning_hash(__PACKAGE__); +} + +sub save { + my ($self, $file) = @_; + + delete $INC{$bpm}; + + $file ||= $self->default_file('build_config'); + $file = $self->file_path($file); + + my $obj = $self->freeze; + $obj =~ s/^\s{9}//mg; + $obj =~ s/^/ /; + + open my $fh, '>', $file or die "open $file: $!"; + + #work around autosplit braindeadness + my $package = 'package Apache2::BuildConfig'; + + print $fh noedit_warning_hash(); + + print $fh <<EOF; +$package; + +use Apache2::Build (); + +sub new { +$obj; +} + +1; +EOF + + close $fh or die "failed to write $file: $!"; +} + +sub rebuild { + my $self = __PACKAGE__->build_config; + my @opts = map { qq[$_='$self->{$_}'] } sort grep /^MP_/, keys %$self; + my $command = "perl Makefile.PL @opts"; + print "Running: $command\n"; + system $command; +} +# % perl -MApache2::Build -e rebuild +*main::rebuild = \&rebuild if $0 eq '-e'; + +#--- attribute access --- + +sub is_dynamic { shift->{MP_USE_DSO} } + +sub default_dir { + my $build = shift->build_config; + + return $build->dir || '../apache_x.x/src'; +} + +sub dir { + my ($self, $dir) = @_; + + if ($dir) { + for (qw(ap_includedir)) { + delete $self->{$_}; + } + if ($dir =~ m:^\.\.[/\\]:) { + $dir = "$self->{cwd}/$dir"; + } + $self->{dir} = $dir; + } + + return $self->{dir} if $self->{dir}; + + # be careful with the guesswork, or may pick up some wrong headers + if (IS_MOD_PERL_BUILD && $self->{MP_AP_PREFIX}) { + my $build = $self->build_config; + + if (my $bdir = $build->{'dir'}) { + for ($bdir, "../$bdir", "../../$bdir") { + if (-d $_) { + $dir = $_; + last; + } + } + } + } + + $dir ||= $self->{MP_AP_PREFIX}; + +# we no longer install Apache headers, so don't bother looking in @INC +# might end up finding 1.x headers anyhow +# unless ($dir and -d $dir) { +# for (@INC) { +# last if -d ($dir = "$_/auto/Apache2/include"); +# } +# } + return $self->{dir} = $dir ? canonpath(rel2abs $dir) : undef; +} + +#--- finding apache *.h files --- + +sub find { + my $self = shift; + my %seen = (); + my @dirs = (); + + for my $src_dir ($self->dir, + $self->default_dir, + '../httpd-2.0') + { + next unless $src_dir; + next unless (-d $src_dir || -l $src_dir); + next if $seen{$src_dir}++; + push @dirs, $src_dir; + #$modified{$src_dir} = (stat($src_dir))[9]; + } + + return @dirs; +} + +sub ap_includedir { + my ($self, $d) = @_; + + return $self->{ap_includedir} + if $self->{ap_includedir} and -d $self->{ap_includedir}; + + return unless $d ||= $self->apxs('-q' => 'INCLUDEDIR') || $self->dir; + + if (-e "$d/include/ap_release.h") { + return $self->{ap_includedir} = "$d/include"; + } + + $self->{ap_includedir} = $d; +} + +# This is necessary for static builds that needs to make a +# difference between where the apache headers are (to build +# against) and where they will be installed (to install our +# own headers alongside) +# +# ap_exp_includedir is where apache is going to install its +# headers to +sub ap_exp_includedir { + my ($self) = @_; + + return $self->{ap_exp_includedir} if $self->{ap_exp_includedir}; + + my $build_vars = File::Spec->catfile($self->{MP_AP_PREFIX}, + qw(build config_vars.mk)); + open my $vars, "<$build_vars" or die "Couldn't open $build_vars $!"; + my $ap_exp_includedir; + while (<$vars>) { + if (/exp_includedir\s*=\s*(.*)/) { + $ap_exp_includedir = $1; + last; + } + } + + $self->{ap_exp_includedir} = $ap_exp_includedir; +} + +sub install_headers_dir { + my ($self) = @_; + if ($self->should_build_apache) { + return $self->ap_exp_includedir(); + } + else { + return $self->ap_includedir(); + } +} + + +# where apr-config and apu-config reside +sub apr_bindir { + my ($self) = @_; + + $self->apr_config_path unless $self->{apr_bindir}; + $self->{apr_bindir}; +} + +sub apr_generation { + my ($self) = @_; + return $self->httpd_version_as_int =~ m/2[1-9]\d+/ ? 1 : 0; +} + +# returns an array of apr/apu linking flags (--link-ld --libs) if found +# an empty array otherwise +my @apru_link_flags = (); +sub apru_link_flags { + my ($self) = @_; + + return @apru_link_flags if @apru_link_flags; + + # first use apu_config_path and then apr_config_path in order to + # resolve the symbols right during linking + for ($self->apu_config_path, $self->apr_config_path) { + my $flags = '--link-ld --libs'; + $flags .= ' --ldflags' unless (WIN32); + if (my $link = $_ && -x $_ && qx{$_ $flags}) { + chomp $link; + + # Change '/path/to/libanything.la' to '-L/path/to -lanything' + if (CYGWIN) { + $link =~ s|(\S*)/lib([^.\s]+)\.\S+|-L$1 -l$2|g; + } + + if ($self->httpd_is_source_tree) { + my @libs; + while ($link =~ m/-L(\S+)/g) { + my $dir = File::Spec->catfile($1, '.libs'); + push @libs, $dir if -d $dir; + } + push @apru_link_flags, join ' ', map { "-L$_" } @libs; + } + push @apru_link_flags, $link; + } + } + + return @apru_link_flags; +} + +sub apr_config_path { + shift->apru_config_path("apr"); +} + +sub apu_config_path { + shift->apru_config_path("apu"); +} + +sub apru_config_path { + my ($self, $what) = @_; + + my $key = "${what}_config_path"; # apr_config_path + my $mp_key = "MP_" . uc($what) . "_CONFIG"; # MP_APR_CONFIG + my $bindir = uc($what) . "_BINDIR"; # APR_BINDIR + + return $self->{$key} if $self->{$key} and -x $self->{$key}; + + if (exists $self->{$mp_key} and -x $self->{$mp_key}) { + $self->{$key} = $self->{$mp_key}; + } + + my $config = $self->apr_generation ? "$what-1-config" : "$what-config"; + + if (!$self->{$key}) { + my @tries = (); + if ($self->httpd_is_source_tree) { + for my $base (grep defined $_, $self->dir) { + push @tries, grep -d $_, + map catdir($base, "srclib", $_), qw(apr apr-util); + } + + # Check for MP_AP_CONFIGURE="--with-apr[-util]=DIR|FILE" + my $what_long = ($what eq 'apu') ? 'apr-util' : 'apr'; + if ($self->{MP_AP_CONFIGURE} && + $self->{MP_AP_CONFIGURE} =~ /--with-${what_long}=(\S+)/) { + my $dir = $1; + $dir = dirname $dir if -f $dir; + push @tries, grep -d $_, $dir, catdir $dir, 'bin'; + } + } + else { + push @tries, grep length, + map $self->apxs(-q => $_), $bindir, "BINDIR"; + push @tries, catdir $self->{MP_AP_PREFIX}, "bin" + if exists $self->{MP_AP_PREFIX} and -d $self->{MP_AP_PREFIX}; + } + + @tries = map { catfile $_, $config } @tries; + if (WIN32) { + my $ext = '.bat'; + for (@tries) { + $_ .= $ext if ($_ and $_ !~ /$ext$/); + } + } + + for my $try (@tries) { + next unless -x $try; + $self->{$key} = $try; + } + } + + $self->{$key} ||= Apache::TestConfig::which($config); + + # apr_bindir makes sense only if httpd/apr is installed, if we are + # building against the source tree we can't link against + # apr/aprutil libs + unless ($self->httpd_is_source_tree) { + $self->{apr_bindir} = $self->{$key} + ? dirname $self->{$key} + : ''; + } + + $self->{$key}; +} + +sub apr_includedir { + my ($self) = @_; + + return $self->{apr_includedir} + if $self->{apr_includedir} and -d $self->{apr_includedir}; + + my $incdir; + my $apr_config_path = $self->apr_config_path; + + if ($apr_config_path) { + my $httpd_version = $self->httpd_version; + chomp($incdir = `$apr_config_path --includedir`); + } + + unless ($incdir and -d $incdir) { + # falling back to the default when apr header files are in the + # same location as the httpd header files + $incdir = $self->ap_includedir; + } + + my @tries = ($incdir); + if ($self->httpd_is_source_tree) { + my $path = catdir $self->dir, "srclib", "apr", "include"; + push @tries, $path if -d $path; + } + + + for (@tries) { + next unless $_ && -e catfile $_, "apr.h"; + $self->{apr_includedir} = $_; + last; + } + + unless ($self->{apr_includedir}) { + error "Can't find apr include/ directory,", + "use MP_APR_CONFIG=/path/to/apr-config"; + exit 1; + } + + $self->{apr_includedir}; +} + +#--- parsing apache *.h files --- + +sub mmn_eq { + my ($class, $dir) = @_; + + return 1 if WIN32; #just assume, till Apache2::Build works under win32 + + my $instsrc; + { + local @INC = grep { !/blib/ } @INC; + my $instdir; + for (@INC) { + last if -d ($instdir = "$_/auto/Apache2/include"); + } + $instsrc = $class->new(dir => $instdir); + } + my $targsrc = $class->new($dir ? (dir => $dir) : ()); + + my $inst_mmn = $instsrc->module_magic_number; + my $targ_mmn = $targsrc->module_magic_number; + + unless ($inst_mmn && $targ_mmn) { + return 0; + } + if ($inst_mmn == $targ_mmn) { + return 1; + } + print "Installed MMN $inst_mmn does not match target $targ_mmn\n"; + + return 0; +} + +sub module_magic_number { + my $self = shift; + + return $self->{mmn} if $self->{mmn}; + + my $d = $self->ap_includedir; + + return 0 unless $d; + + #return $mcache{$d} if $mcache{$d}; + my $fh; + for (qw(ap_mmn.h http_config.h)) { + last if open $fh, "$d/$_"; + } + return 0 unless $fh; + + my $n; + my $mmn_pat = join '|', qw(MODULE_MAGIC_NUMBER_MAJOR MODULE_MAGIC_NUMBER); + while(<$fh>) { + if(s/^\#define\s+($mmn_pat)\s+(\d+).*/$2/) { + chomp($n = $_); + last; + } + } + close $fh; + + $self->{mmn} = $n +} + +sub fold_dots { + my $v = shift; + $v =~ s/\.//g; + $v .= '0' if length $v < 3; + $v; +} + +sub httpd_version_as_int { + my ($self, $dir) = @_; + my $v = $self->httpd_version($dir); + fold_dots($v); +} + +sub httpd_version_cache { + my ($self, $dir, $v) = @_; + return '' unless $dir; + $self->{httpd_version}->{$dir} = $v if $v; + $self->{httpd_version}->{$dir}; +} + +sub httpd_version { + my ($self, $dir) = @_; + + return unless $dir = $self->ap_includedir($dir); + + if (my $v = $self->httpd_version_cache($dir)) { + return $v; + } + + my $header = "$dir/ap_release.h"; + open my $fh, $header or do { + error "Unable to open $header: $!"; + return undef; + }; + + my $version; + + while (<$fh>) { + #now taking bets on how many friggin times this will change + #over the course of apache 2.0. 1.3 changed it at least a half + #dozen times. hopefully it'll stay in the same file at least. + if (/^\#define\s+AP_SERVER_MAJORVERSION\s+\"(\d+)\"/) { + #XXX could be more careful here. whatever. see above. + my $major = $1; + my $minor = (split /\s+/, scalar(<$fh>))[-1]; + my $patch = (split /\s+/, scalar(<$fh>))[-1]; + $version = join '.', $major, $minor, $patch; + $version =~ s/\"//g; + last; + } + elsif (/^\#define\s+AP_SERVER_BASEREVISION\s+\"(.*)\"/) { + $version = $1; + last; + } + elsif(/^\#define\s+AP_SERVER_MAJORVERSION_NUMBER\s+(\d+)/) { + # new 2.1 config + my $major = $1; + my $minor = (split /\s+/, scalar(<$fh>))[-1]; + my $patch = (split /\s+/, scalar(<$fh>))[-1]; + + my ($define, $macro, $dev) = (split /\s+/, scalar(<$fh>)); + + if ($macro =~ /AP_SERVER_DEVBUILD_BOOLEAN/ && $dev eq '1') { + $dev = "-dev"; + } + else { + $dev = ""; + } + + $version = join '.', $major, $minor, "$patch$dev"; + $version =~ s/\"//g; + last; + } + } + + close $fh; + + debug "parsed version $version from ap_release.h"; + + $self->httpd_version_cache($dir, $version); +} + +my %wanted_apr_config = map { $_, 1} qw( + HAS_THREADS HAS_DSO HAS_MMAP HAS_RANDOM HAS_SENDFILE + HAS_LARGE_FILES HAS_INLINE HAS_FORK +); + +sub get_apr_config { + my $self = shift; + + return $self->{apr_config} if $self->{apr_config}; + + my $fh; + my $header = catfile $self->apr_includedir, "apr.h"; + if (WIN32) { + open $fh, $header or do { + error "Unable to open $header: $!"; + return undef; + }; + } + else { + my @command = ($self->perl_config('cpp'), '-E', '-dM', $header); + open $fh, '-|', @command or do { + error "Unable to preprocess $header with @command: $!"; + return undef; + }; + } + + my %cfg; + while (<$fh>) { + next unless s/^\#define\s+APR_((HAVE|HAS|USE)_\w+)/$1/; + chomp; + my ($name, $val) = split /\s+/, $_, 2; + next unless $wanted_apr_config{$name}; + $val =~ s/\s+$//; + next unless $val =~ /^\d+$/; + $cfg{$name} = $val; + } + + $self->{apr_config} = \%cfg; +} + +#--- generate Makefile --- + +sub canon_make_attr { + my ($self, $name) = (shift, shift); + + my $attr = join '_', 'MODPERL', uc $name; + $self->{$attr} = "@_"; + "$attr = $self->{$attr}\n\n"; +} + +sub xsubpp { + my $self = shift; + my $xsubpp = join ' ', '$(MODPERL_PERLPATH)', + '$(MODPERL_PRIVLIBEXP)/ExtUtils/xsubpp', + '-typemap', '$(MODPERL_PRIVLIBEXP)/ExtUtils/typemap'; + + my $typemap = $self->file_path('lib/typemap'); + if (-e $typemap) { + $xsubpp .= join ' ', + ' -typemap', $typemap; + } + + $xsubpp; +} + +sub make_xs { + my ($self, $fh) = @_; + + print $fh $self->canon_make_attr(xsubpp => $self->xsubpp); + + return [] unless $self->{XS}; + + my @files; + my @xs_targ; + + foreach my $name (sort keys %{ $self->{XS} }) { + my $xs = $self->{XS}->{$name}; + #Foo/Bar.xs => Foo_Bar.c + (my $c = $xs) =~ s:.*?WrapXS/::; + $c =~ s:/:_:g; + $c =~ s:\.xs$:.c:; + + push @files, $c; + + push @xs_targ, <<EOF; +$c: $xs +\t\$(MODPERL_XSUBPP) $xs > \$*.xsc && \$(MODPERL_MV) \$*.xsc \$@ + +EOF + } + + my %o = (xs_o_files => 'o', xs_o_pic_files => 'lo'); + + for my $ext (qw(xs_o_files xs_o_pic_files)) { + print $fh $self->canon_make_attr($ext, map { + (my $file = $_) =~ s/c$/$o{$ext}/; $file; + } @files); + } + + print $fh $self->canon_make_attr(xs_clean_files => @files); + + \@xs_targ; +} + +#when we use a bit of MakeMaker, make it use our values for these vars +my %perl_config_pm_alias = ( + ABSPERL => 'perlpath', + ABSPERLRUN => 'perlpath', + PERL => 'perlpath', + PERLRUN => 'perlpath', + PERL_LIB => 'privlibexp', + PERL_ARCHLIB => 'archlibexp', +); + +my $mm_replace = join '|', keys %perl_config_pm_alias; + +# get rid of dups +my %perl_config_pm_alias_values = reverse %perl_config_pm_alias; +my @perl_config_pm_alias_values = keys %perl_config_pm_alias_values; + +my @perl_config_pm = sort(@perl_config_pm_alias_values, qw(cc cpprun + rm ranlib lib_ext obj_ext cccdlflags lddlflags optimize)); + +sub mm_replace { + my $val = shift; + $$val =~ s/\(($mm_replace)\)/(MODPERL_\U$perl_config_pm_alias{$1})/g; +} + +#help prevent warnings +my @mm_init_vars = (BASEEXT => '', NAME => ''); + +sub make_tools { + my ($self, $fh) = @_; + + for (@perl_config_pm) { + print $fh $self->canon_make_attr($_, $self->perl_config($_)); + } + + require ExtUtils::MakeMaker; + my $mm = bless { @mm_init_vars }, 'MM'; + + # Fake initialize MakeMaker + foreach my $m (qw(init_main init_others init_tools)) { + $mm->$m() if $mm->can($m); + + # init_main() undefines the BASEEXT member which we initialized + # to a blank string to prevent warnings; reset it now + $mm->{BASEEXT} = '' if not defined $mm->{BASEEXT}; + } + + for (qw(rm_f mv ld ar cp test_f)) { + my $val = $mm->{"\U$_"}; + if ($val) { + mm_replace(\$val); + } + else { + $val = $Config{$_}; + } + print $fh $self->canon_make_attr($_ => $val); + } +} + +sub export_files_MSWin32 { + my $self = shift; + my $xs_dir = $self->file_path("xs"); + "-def:$xs_dir/modperl.def"; +} + +sub export_files_aix { + my $self = shift; + + my $Wl = $self->ldopts_prefix; + # there are several modperl_*.exp, not just $(BASEEXT).exp + # $(BASEEXT).exp resolves to modperl_global.exp + my $xs_dir = $self->file_path("xs"); + join " ", map "${Wl}-bE:$xs_dir/modperl_$_.exp", qw(inline ithreads); +} + +sub dynamic_link_header_default { + return <<'EOF'; +$(MODPERL_LIBNAME).$(MODPERL_DLEXT): $(MODPERL_PIC_OBJS) + $(MODPERL_RM_F) $@ + $(MODPERL_LD) $(MODPERL_LDDLFLAGS) \ + $(MODPERL_AP_LIBS) \ + $(MODPERL_PIC_OBJS) $(MODPERL_LDOPTS) \ +EOF +} + +sub dynamic_link_default { + my $self = shift; + + my $link = $self->dynamic_link_header_default . "\t" . '-o $@'; + + my $ranlib = "\t" . '$(MODPERL_RANLIB) $@' . "\n"; + + $link .= "\n" . $ranlib unless (DARWIN or OPENBSD); + + $link; +} + +sub dynamic_link_MSWin32 { + my $self = shift; + my $defs = $self->export_files_MSWin32; + my $symbols = $self->modperl_symbols_MSWin32; + return $self->dynamic_link_header_default . + "\t$defs" . + ($symbols ? ' \\' . "\n\t-pdb:$symbols" : '') . + ' -out:$@' . "\n\t" . + 'if exist $(MODPERL_MANIFEST_LOCATION)' . " \\\n\t" . + 'mt /nologo /manifest $(MODPERL_MANIFEST_LOCATION)' . " \\\n\t" . + '/outputresource:$@;2' . "\n\n"; +} + +sub dynamic_link_aix { + my $self = shift; + my $link = $self->dynamic_link_header_default . + "\t" . $self->export_files_aix . " \\\n" . + "\t" . '-o $@' . " \n" . + "\t" . '$(MODPERL_RANLIB) $@'; +} + +sub dynamic_link_cygwin { + my $self = shift; + return <<'EOF'; +$(MODPERL_LIBNAME).$(MODPERL_DLEXT): $(MODPERL_PIC_OBJS) + $(MODPERL_RM_F) $@ + $(MODPERL_CC) -shared -o $@ \ + -Wl,--out-implib=$(MODPERL_LIBNAME).dll.a \ + -Wl,--export-all-symbols -Wl,--enable-auto-import \ + -Wl,--enable-auto-image-base -Wl,--stack,8388608 \ + $(MODPERL_PIC_OBJS) \ + $(MODPERL_LDDLFLAGS) $(MODPERL_LDOPTS) \ + $(MODPERL_AP_LIBS) + $(MODPERL_RANLIB) $@ +EOF +} + +sub dynamic_link { + my $self = shift; + my $link = \&{"dynamic_link_$^O"}; + $link = \&dynamic_link_default unless defined &$link; + $link->($self); +} + +# Returns the link flags for the apache shared core library +my $apache_corelib_cygwin; +sub apache_corelib_cygwin { + return $apache_corelib_cygwin if $apache_corelib_cygwin; + + my $self = shift; + my $mp_src = "$self->{cwd}/src/modules/perl"; + my $core = 'httpd2core'; + + # There's a problem with user-installed perl on cygwin. + # MakeMaker doesn't know about the .dll.a libs and warns + # about missing -lhttpd2core. "Fix" it by copying + # the lib and adding .a suffix. + # For the static build create a soft link, because libhttpd2core.dll.a + # doesn't exist at this time. + if ($self->is_dynamic) { + my $libpath = $self->apxs(-q => 'exp_libdir'); + File::Copy::copy("$libpath/lib$core.dll.a", "$mp_src/lib$core.a"); + } else { + my $libpath = catdir($self->{MP_AP_PREFIX}, '.libs'); + mkdir $libpath unless -d $libpath; + qx{touch $libpath/lib$core.dll.a && \ + ln -fs $libpath/lib$core.dll.a $mp_src/lib$core.a}; + } + + $apache_corelib_cygwin = "-L$mp_src -l$core"; +} + +sub apache_libs_MSWin32 { + my $self = shift; + my $prefix = $self->apxs(-q => 'PREFIX') || $self->dir; + my $lib = catdir $prefix, 'lib'; + opendir(my $dir, $lib) or die qq{Cannot opendir $lib: $!}; + my @libs = map {catfile($lib, $_)} + grep /^lib(apr|aprutil|httpd)\b\S*?\.lib$/, readdir $dir; + closedir $dir; + "@libs"; +} + +sub apache_libs_cygwin { + my $self = shift; + join ' ', $self->apache_corelib_cygwin, $self->apru_link_flags; +} + +sub apache_libs { + my $self = shift; + my $libs = \&{"apache_libs_$^O"}; + return "" unless defined &$libs; + $libs->($self); +} + +sub modperl_libs_MSWin32 { + my $self = shift; + "$self->{cwd}/src/modules/perl/$self->{MP_LIBNAME}.lib"; +} + +sub modperl_libs_cygwin { + my $self = shift; + return '' unless $self->is_dynamic; + return "-L$self->{cwd}/src/modules/perl -l$self->{MP_LIBNAME}"; +} + +sub modperl_libs { + my $self = shift; + my $libs = \&{"modperl_libs_$^O"}; + return "" unless defined &$libs; + $libs->($self); +} + +sub modperl_libpath_MSWin32 { + my $self = shift; + # mod_perl.lib will be installed into MP_AP_PREFIX/lib + # for use by 3rd party xs modules + "$self->{cwd}/src/modules/perl/$self->{MP_LIBNAME}.lib"; +} + +sub modperl_libpath_cygwin { + my $self = shift; + "$self->{cwd}/src/modules/perl/$self->{MP_LIBNAME}.dll.a"; +} + +sub modperl_libpath { + my $self = shift; + my $libpath = \&{"modperl_libpath_$^O"}; + return "" unless defined &$libpath; + $libpath->($self); +} + +# returns the directory and name of the aprext lib built under blib/ +sub mp_apr_blib { + my $self = shift; + return unless (my $mp_apr_lib = $self->{MP_APR_LIB}); + my $lib_mp_apr_lib = 'lib' . $mp_apr_lib; + my @dirs = qw(blib arch auto); + my $apr_blib = catdir $self->{cwd}, @dirs, $lib_mp_apr_lib; + my $full_libname = $lib_mp_apr_lib . $Config{lib_ext}; + return ($apr_blib, $full_libname); +} + +sub mp_apr_lib_MSWin32 { + my $self = shift; + # The MP_APR_LIB will be installed into MP_AP_PREFIX/lib + # for use by 3rd party xs modules + my ($dir, $lib) = $self->mp_apr_blib(); + $lib =~ s[^lib(\w+)$Config{lib_ext}$][$1]; + $dir = Win32::GetShortPathName($dir); + return qq{ -L$dir -l$lib }; +} + +sub mp_apr_lib_cygwin { + my $self = shift; + my ($dir, $lib) = $self->mp_apr_blib(); + $lib =~ s[^lib(\w+)$Config{lib_ext}$][$1]; + my $libs = "-L$dir -l$lib"; + + # This is ugly, but is the only way to prevent the "undefined + # symbols" error + $libs .= join ' ', '', + '-L' . catdir($self->perl_config('archlibexp'), 'CORE'), '-lperl'; + + $libs; +} + +# linking used for the aprext lib used to build APR/APR::* +sub mp_apr_lib { + my $self = shift; + my $libs = \&{"mp_apr_lib_$^O"}; + return "" unless defined &$libs; + $libs->($self); +} + +sub modperl_symbols_MSWin32 { + my $self = shift; + return "" unless $self->{MP_DEBUG}; + "$self->{cwd}/src/modules/perl/$self->{MP_LIBNAME}.pdb"; +} + +sub modperl_symbols { + my $self = shift; + my $symbols = \&{"modperl_symbols_$^O"}; + return "" unless defined &$symbols; + $symbols->($self); +} + +sub write_src_makefile { + my $self = shift; + my $code = ModPerl::Code->new; + my $path = $code->path; + + my $install = <<'EOI'; +install: +EOI + if (!$self->should_build_apache) { + $install .= <<'EOI'; +# install mod_perl.so + @$(MKPATH) $(DESTDIR)$(MODPERL_AP_LIBEXECDIR) + $(MODPERL_TEST_F) $(MODPERL_LIB_DSO) && \ + $(MODPERL_CP) $(MODPERL_LIB_DSO) $(DESTDIR)$(MODPERL_AP_LIBEXECDIR) +EOI + } + + $install .= <<'EOI'; +# install mod_perl .h files + @$(MKPATH) $(DESTDIR)$(MODPERL_AP_INCLUDEDIR) + $(MODPERL_CP) $(MODPERL_H_FILES) $(DESTDIR)$(MODPERL_AP_INCLUDEDIR) +EOI + + my $mf = $self->default_file('makefile'); + + open my $fh, '>', $mf or die "open $mf: $!"; + + print $fh noedit_warning_hash(); + + print $fh $self->canon_make_attr('makefile', basename $mf); + + $self->make_tools($fh); + + print $fh $self->canon_make_attr('ap_libs', $self->apache_libs); + + print $fh $self->canon_make_attr('libname', $self->{MP_LIBNAME}); + print $fh $self->canon_make_attr('dlext', 'so'); #always use .so + + if (AIX) { + my $xs_dir = $self->file_path("xs"); + print $fh "BASEEXT = $xs_dir/modperl_global\n\n"; + } + + my %libs = ( + dso => "$self->{MP_LIBNAME}.$self->{MODPERL_DLEXT}", + static => "$self->{MP_LIBNAME}$self->{MODPERL_LIB_EXT}", + ); + + #XXX short-term compat for Apache::TestConfigPerl + $libs{shared} = $libs{dso}; + + foreach my $type (sort keys %libs) { + my $lib = $libs{$type}; + print $fh $self->canon_make_attr("lib_$type", $libs{$type}); + } + + if (my $symbols = $self->modperl_symbols) { + print $fh $self->canon_make_attr('lib_symbols', $symbols); + $install .= <<'EOI'; +# install mod_perl symbol file + @$(MKPATH) $(MODPERL_AP_LIBEXECDIR) + $(MODPERL_TEST_F) $(MODPERL_LIB_SYMBOLS) && \ + $(MODPERL_CP) $(MODPERL_LIB_SYMBOLS) $(MODPERL_AP_LIBEXECDIR) +EOI + } + + if ($self->is_dynamic && (my $libs = $self->modperl_libpath)) { + print $fh $self->canon_make_attr('lib_location', $libs); + + # Visual Studio 8 on Win32 uses manifest files + if (WIN32) { + (my $manifest = $libs) =~ s/\.lib$/.so.manifest/; + print $fh $self->canon_make_attr('manifest_location', $manifest); + } + + print $fh $self->canon_make_attr('ap_libdir', + $self->ap_destdir(catdir $self->{MP_AP_PREFIX}, 'lib') + ); + + $install .= <<'EOI'; +# install mod_perl.lib + @$(MKPATH) $(MODPERL_AP_LIBDIR) + $(MODPERL_TEST_F) $(MODPERL_LIB_LOCATION) && \ + $(MODPERL_CP) $(MODPERL_LIB_LOCATION) $(MODPERL_AP_LIBDIR) +EOI + } + + my $libperl = join '/', + $self->perl_config('archlibexp'), 'CORE', $self->perl_config('libperl'); + + #this is only used for deps, if libperl has changed, relink mod_perl.so + #not all perl dists put libperl where it should be, so just leave this + #out if it isn't in the proper place + if (-e $libperl) { + print $fh $self->canon_make_attr('libperl', $libperl); + } + + for my $method (qw(ccopts ldopts inc)) { + print $fh $self->canon_make_attr($method, $self->$method()); + } + + for my $method (qw(c_files o_files o_pic_files h_files)) { + print $fh $self->canon_make_attr($method, @{ $code->$method() }); + } + + my @libs; + for my $type (sort map { uc } keys %libs) { + next unless $self->{"MP_USE_$type"}; + # on win32 mod_perl.lib must come after mod_perl.so + $type eq 'STATIC' + ? push @libs, $self->{"MODPERL_LIB_$type"} + : unshift @libs, $self->{"MODPERL_LIB_$type"}; + } + + print $fh $self->canon_make_attr('lib', "@libs"); + + print $fh $self->canon_make_attr('AP_INCLUDEDIR', + $self->ap_destdir($self->install_headers_dir)); + + print $fh $self->canon_make_attr('AP_LIBEXECDIR', + $self->ap_destdir($self->apxs(-q => 'LIBEXECDIR'))); + + my $xs_targ = $self->make_xs($fh); + + print $fh <<'EOF'; +MODPERL_CCFLAGS = $(MODPERL_INC) $(MODPERL_CCOPTS) $(MODPERL_OPTIMIZE) + +MODPERL_CCFLAGS_SHLIB = $(MODPERL_CCFLAGS) $(MODPERL_CCCDLFLAGS) + +MODPERL_OBJS = $(MODPERL_O_FILES) $(MODPERL_XS_O_FILES) + +MODPERL_PIC_OBJS = $(MODPERL_O_PIC_FILES) $(MODPERL_XS_O_PIC_FILES) + +MKPATH = $(MODPERL_PERLPATH) "-MExtUtils::Command" -e mkpath + +all: lib + +lib: $(MODPERL_LIB) + +EOF + + print $fh $install; + + print $fh <<'EOF' if DMAKE; + +.USESHELL : +EOF + + print $fh <<'EOF'; + +.SUFFIXES: .xs .c $(MODPERL_OBJ_EXT) .lo .i .s + +.c.lo: + $(MODPERL_CC) $(MODPERL_CCFLAGS_SHLIB) \ + -c $< && $(MODPERL_MV) $*$(MODPERL_OBJ_EXT) $*.lo + +.c$(MODPERL_OBJ_EXT): + $(MODPERL_CC) $(MODPERL_CCFLAGS) -c $< + +.c.i: + $(MODPERL_CPPRUN) $(MODPERL_CCFLAGS) -c $< > $*.i + +.c.s: + $(MODPERL_CC) -O -S $(MODPERL_CCFLAGS) -c $< + +.xs.c: + $(MODPERL_XSUBPP) $*.xs >$@ + +.xs$(MODPERL_OBJ_EXT): + $(MODPERL_XSUBPP) $*.xs >$*.c + $(MODPERL_CC) $(MODPERL_CCFLAGS) -c $*.c + +.xs.lo: + $(MODPERL_XSUBPP) $*.xs >$*.c + $(MODPERL_CC) $(MODPERL_CCFLAGS_SHLIB) \ + -c $*.c && $(MODPERL_MV) $*$(MODPERL_OBJ_EXT) $*.lo + +clean: + $(MODPERL_RM_F) *.a *.so *.xsc \ + $(MODPERL_LIBNAME).exp $(MODPERL_LIBNAME).lib \ + *$(MODPERL_OBJ_EXT) *.lo *.i *.s *.pdb *.manifest \ + $(MODPERL_CLEAN_FILES) \ + $(MODPERL_XS_CLEAN_FILES) + +$(MODPERL_OBJS): $(MODPERL_H_FILES) $(MODPERL_MAKEFILE) +$(MODPERL_PIC_OBJS): $(MODPERL_H_FILES) $(MODPERL_MAKEFILE) +$(MODPERL_LIB): $(MODPERL_LIBPERL) + +$(MODPERL_LIBNAME)$(MODPERL_LIB_EXT): $(MODPERL_OBJS) + $(MODPERL_RM_F) $@ + $(MODPERL_AR) crv $@ $(MODPERL_OBJS) + $(MODPERL_RANLIB) $@ + +EOF + + print $fh $self->dynamic_link; + + print $fh @$xs_targ; + + print $fh "\n"; # Makefile must end with \n to avoid warnings + + close $fh; +} + +#--- generate MakeMaker parameter values --- + +sub otherldflags_default { + my $self = shift; + # e.g. aix's V:ldflags feeds -brtl and other flags + $self->perl_config('ldflags'); +} + +sub otherldflags { + my $self = shift; + my $flags = \&{"otherldflags_$^O"}; + return $self->otherldflags_default unless defined &$flags; + $flags->($self); +} + +sub otherldflags_MSWin32 { + my $self = shift; + my $flags = $self->otherldflags_default; + $flags .= ' -pdb:$(INST_ARCHAUTODIR)\$(BASEEXT).pdb' if $self->{MP_DEBUG}; + $flags; +} + +sub typemaps { + my $self = shift; + my @typemaps = (); + + # XXX: could move here the code from ModPerl::BuildMM + return [] if IS_MOD_PERL_BUILD; + + # for post install use + for (@INC) { + # make sure not to pick mod_perl 1.0 typemap + my $file = "$_/auto/Apache2/typemap"; + push @typemaps, $file if -e $file; + } + + return \@typemaps; +} + +sub includes { + my $self = shift; + + my @inc = (); + + unless (IS_MOD_PERL_BUILD) { + # XXX: what if apxs is not available? win32? + my $ap_inc = $self->apxs('-q' => 'INCLUDEDIR'); + if ($ap_inc && -d $ap_inc) { + push @inc, $ap_inc; + return \@inc; + } + + # this is fatal + my $reason = $ap_inc + ? "path $ap_inc doesn't exist" + : "apxs -q INCLUDEDIR didn't return a value"; + die "Can't find the mod_perl include dir (reason: $reason)"; + } + + my $os = WIN32 ? 'win32' : 'unix'; + push @inc, $self->file_path("src/modules/perl", "xs"); + + push @inc, $self->mp_include_dir; + + unless ($self->httpd_is_source_tree) { + push @inc, $self->apr_includedir; + + my $apuc = $self->apu_config_path; + if ($apuc && -x $apuc) { + chomp(my $apuincs = qx($apuc --includes)); + # win32: /Ipath, elsewhere -Ipath + $apuincs =~ s{^\s*(-|/)I}{}; + push @inc, $apuincs; + } + + my $ainc = $self->apxs('-q' => 'INCLUDEDIR'); + if (-d $ainc) { + push @inc, $ainc; + return \@inc; + } + } + + if ($self->{MP_AP_PREFIX}) { + my $src = $self->dir; + for ("$src/modules/perl", "$src/include", + "$src/srclib/apr/include", + "$src/srclib/apr-util/include", + "$src/os/$os") + { + push @inc, $_ if -d $_; + } + } + + return \@inc; +} + +sub inc { + local $_; + my @includes = map { "-I$_" } @{ shift->includes }; + "@includes"; +} + +### Picking the right LFS support flags for mod_perl, by Joe Orton ### +# +# on Unix systems where by default off_t is a "long", a 32-bit integer, +# there are two different ways to get "large file" support, i.e. the +# ability to manipulate files bigger than 2Gb: +# +# 1) you compile using -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64. This +# makes sys/types.h expose off_t as a "long long", a 64-bit integer, and +# changes the size of a few other types too. The C library headers +# automatically arrange to expose a correct implementation of functions +# like lseek() which take off_t parameters. +# +# 2) you compile using -D_LARGEFILE64_SOURCE, and use what is called the +# "transitional" interface. This means that the system headers expose a +# new type, "off64_t", which is a long long, but the size of off_t is not +# changed. A bunch of new functions like lseek64() are exposed by the C +# library headers, which take off64_t parameters in place of off_t. +# +# Perl built with -Duselargefiles uses approach (1). +# +# APR HEAD uses (2) by default. APR 0.9 does not by default use either +# approach, but random users can take a httpd-2.0.49 tarball, and do: +# +# export CPPFLAGS="-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64" +# ./configure +# +# to build a copy of apr/httpd which uses approach (1), though this +# isn't really a supported configuration. +# +# The problem that mod_perl has to work around is when you take a +# package built with approach (1), i.e. Perl, and any package which was +# *not* built with (1), i.e. APR, and want to interface between +# them. [1] +# +# So what you want to know is whether APR was built using approach (1) +# or not. APR_HAS_LARGE_FILES in HEAD just tells you whether APR was +# built using approach (2) or not, which isn't useful in solving this +# problem. +# +# [1]: In some cases, it may be OK to interface between packages which +# use (1) and packages which use (2). APR HEAD is currently not such a +# case, since the size of apr_ino_t is still changing when +# _FILE_OFFSET_BITS is defined. +# +# If you want to see how this matters, get some httpd function to do at +# the very beginning of main(): +# +# printf("sizeof(request_rec) = %lu, sizeof(apr_finfo_t) = %ul", +# sizeof(request_rec), sizeof(apr_finfo_t)); +# +# and then put the same printf in mod_perl somewhere, and see the +# differences. This is why it is a really terribly silly idea to ever +# use approach (1) in anything other than an entirely self-contained +# application. +# +# there is no conflict if both libraries either have or don't have +# large files support enabled +sub has_large_files_conflict { + my $self = shift; + + my $apxs_flags = join $self->apxs_extra_cflags, $self->apxs_extra_cppflags; + my $apr_lfs64 = $apxs_flags =~ /-D_FILE_OFFSET_BITS=64/; + my $perl_lfs64 = $Config{ccflags} =~ /-D_FILE_OFFSET_BITS=64/; + + # XXX: we don't really deal with the case where APR was built with + # -D_FILE_OFFSET_BITS=64 but perl wasn't, since currently we strip + # only perl's ccflags, not apr's flags. the reason we don't deal + # with it is that we didn't have such a case yet, but may need to + # deal with it later + + return 0; + # $perl_lfs64 ^ $apr_lfs64; +} + +# if perl is built with uselargefiles, but apr not, the build won't +# work together as it uses two binary incompatible libraries, so +# reduce the functionality to the greatest common denominator (C code +# will have to make sure to prevent any operations that may rely on +# effects created by uselargefiles, e.g. Off_t=8 instead of Off_t=4) +sub strip_lfs { + my ($self, $cflags) = @_; + return $cflags unless $self->has_large_files_conflict(); + + my $lf = $Config{ccflags_uselargefiles} + || '-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'; + $cflags =~ s/$lf//; + $cflags; +} + +sub define { + my $self = shift; + + return ""; +} + +1; + +__END__ + +=head1 NAME + +Apache2::Build - Methods for locating and parsing bits of Apache source code + +=head1 SYNOPSIS + + use Apache2::Build (); + my $build = Apache2::Build->new; + + # rebuild mod_perl with build opts from the previous build + % cd modperl-2.0 + % perl -MApache2::Build -e rebuild + +=head1 DESCRIPTION + +This module provides methods for locating and parsing bits of Apache +source code. + +Since mod_perl remembers what build options were used to build it, you +can use this knowledge to rebuild it using the same options. Simply +chdir to the mod_perl source directory and run: + + % cd modperl-2.0 + % perl -MApache2::Build -e rebuild + +If you want to rebuild not yet installed, but already built mod_perl, +run from its root directory: + + % perl -Ilib -MApache2::Build -e rebuild + +=head1 METHODS + +=over 4 + +=item new + +Create an object blessed into the B<Apache2::Build> class. + + my $build = Apache2::Build->new; + +=item dir + +Top level directory where source files are located. + + my $dir = $build->dir; + -d $dir or die "can't stat $dir $!\n"; + +=item find + +Searches for apache source directories, return a list of those found. + +Example: + + for my $dir ($build->find) { + my $yn = prompt "Configure with $dir ?", "y"; + ... + } + +=item inc + +Print include paths for MakeMaker's B<INC> argument to +C<WriteMakefile>. + +Example: + + use ExtUtils::MakeMaker; + + use Apache2::Build (); + + WriteMakefile( + 'NAME' => 'Apache2::Module', + 'VERSION' => '0.01', + 'INC' => Apache2::Build->new->inc, + ); + + +=item module_magic_number + +Return the B<MODULE_MAGIC_NUMBER> defined in the apache source. + +Example: + + my $mmn = $build->module_magic_number; + +=item httpd_version + +Return the server version. + +Example: + + my $v = $build->httpd_version; + +=item otherldflags + +Return other ld flags for MakeMaker's B<dynamic_lib> argument to +C<WriteMakefile>. This might be needed on systems like AIX that need +special flags to the linker to be able to reference mod_perl or httpd +symbols. + +Example: + + use ExtUtils::MakeMaker; + + use Apache2::Build (); + + WriteMakefile( + 'NAME' => 'Apache2::Module', + 'VERSION' => '0.01', + 'INC' => Apache2::Build->new->inc, + 'dynamic_lib' => { + 'OTHERLDFLAGS' => Apache2::Build->new->otherldflags, + }, + ); + +=back + + +=head1 AUTHOR + +Doug MacEachern + +=cut
diff --git a/2_0_13/lib/Apache2/ParseSource.pm b/2_0_13/lib/Apache2/ParseSource.pm new file mode 100644 index 0000000..7dada94 --- /dev/null +++ b/2_0_13/lib/Apache2/ParseSource.pm
@@ -0,0 +1,646 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::ParseSource; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Build (); +use Config; +use File::Basename; +use File::Spec::Functions qw(catdir); + +our $VERSION = '0.02'; + +sub new { + my $class = shift; + + my $self = bless { + config => Apache2::Build->build_config, + @_, + }, $class; + + my $prefixes = join '|', @{ $self->{prefixes} || [qw(ap_ apr_)] }; + $self->{prefix_re} = qr{^($prefixes)}; + + $Apache2::Build::APXS ||= $self->{apxs}; + + $self; +} + +sub config { + shift->{config}; +} + +sub parse { + my $self = shift; + + $self->{scan_filename} = $self->generate_cscan_file; + + $self->{c} = $self->scan; +} + +sub DESTROY { + my $self = shift; + unlink $self->{scan_filename} +} + +{ + package Apache2::ParseSource::Scan; + + our @ISA = qw(ModPerl::CScan); + + sub get { + local $SIG{__DIE__} = \&Carp::confess; + shift->SUPER::get(@_); + } +} + +my @c_scan_defines = ( + 'CORE_PRIVATE', #so we get all of apache + 'MP_SOURCE_SCAN', #so we can avoid some c-scan barfing + '_NETINET_TCP_H', #c-scan chokes on netinet/tcp.h + '_BYTESWAP_H', #c-scan chokes on byteswap.h + '_BITS_BYTESWAP_H', #c-scan chokes on byteswap.h + 'Expat_INCLUDED', #c-scan chokes on expath.h + # 'APR_OPTIONAL_H', #c-scan chokes on apr_optional.h + 'apr_table_do_callback_fn_t=void', #c-scan chokes on function pointers +); + + +# some types c-scan failing to resolve +push @c_scan_defines, map { "$_=void" } + qw(PPADDR_t PerlExitListEntry modperl_tipool_vtbl_t); + +sub scan { + require ModPerl::CScan; + ModPerl::CScan->VERSION(0.75); + require Carp; + + my $self = shift; + + my $c = ModPerl::CScan->new(filename => $self->{scan_filename}); + + my $includes = $self->includes; + + # where to find perl headers, but we don't want to parse them otherwise + my $perl_core_path = catdir $Config{installarchlib}, "CORE"; + push @$includes, $perl_core_path; + + $c->set(includeDirs => $includes); + + my @defines = @c_scan_defines; + + unless ($Config{useithreads} and $Config{useithreads} eq 'define') { + #fake -DITHREADS so function tables are the same for + #vanilla and ithread perls, that is, + #make sure THX and friends are always expanded + push @defines, 'MP_SOURCE_SCAN_NEED_ITHREADS'; + } + + $c->set(Defines => join ' ', map "-D$_", @defines); + + bless $c, 'Apache2::ParseSource::Scan'; +} + +sub include_dirs { + my $self = shift; + my $inc = $self->config->apxs('-q' => 'INCLUDEDIR'); + my @dirs = ($inc, $self->config->mp_include_dir); + my $aprinc = $self->config->apxs('-q' => 'APR_INCLUDEDIR'); + + unless ($aprinc eq $inc) { + # Add APR include directory if different to httpd includedir + push @dirs, $aprinc; + } + + @dirs; +} + +sub includes { shift->config->includes } + +sub find_includes { + my $self = shift; + + return $self->{includes} if $self->{includes}; + + require File::Find; + + my @includes = (); + # don't pick preinstalled mod_perl headers if any, but pick the rest + { + my @dirs = $self->include_dirs; + die "could not find include directory (build the project first)" + unless -d $dirs[0]; + + my $unwanted = join '|', qw(ap_listen internal version + apr_optional mod_include mod_cgi + mod_proxy mod_ssl ssl_ apr_anylock + apr_rmm ap_config mod_log_config + mod_perl modperl_ apreq mod_cache + mod_serf mod_dav); + $unwanted = qr|^$unwanted|; + my $wanted = ''; + + push @includes, find_includes_wanted($wanted, $unwanted, @dirs); + } + + # now add the live mod_perl headers (to make sure that we always + # work against the latest source) + { + my @dirs = map { catdir $self->config->{cwd}, $_ } + catdir(qw(src modules perl)), 'xs'; + + my $unwanted = ''; + my $wanted = join '|', qw(mod_perl modperl_); + $wanted = qr|^$wanted|; + + push @includes, find_includes_wanted($wanted, $unwanted, @dirs); + } + + # now reorg the header files list, so the fragile scan won't choke + my @apr = (); + my @mp = (); + my @rest = (); + for (@includes) { + if (/mod_perl.h$/) { + # mod_perl.h needs to be included before other mod_perl + # headers + unshift @mp, $_; + } + elsif (/modperl_\w+.h$/) { + push @mp, $_; + } + elsif (/apr_\w+\.h$/ ) { + # apr headers need to be included first + push @apr, $_; + } + else { + push @rest, $_; + } + } + @includes = (@apr, @rest, @mp); + + return $self->{includes} = \@includes; +} + +sub find_includes_wanted { + my ($wanted, $unwanted, @dirs) = @_; + my @includes = (); + for my $dir (@dirs) { + File::Find::finddepth({ + wanted => sub { + return unless /\.h$/; + + if ($wanted) { + return unless /$wanted/; + } + else { + return if /$unwanted/; + } + + my $dir = $File::Find::dir; + push @includes, "$dir/$_"; + }, + (Apache2::Build::WIN32 ? '' : follow => 1), + }, $dir); + } + return @includes; +} + +sub generate_cscan_file { + my $self = shift; + + my $includes = $self->find_includes; + + my $filename = '.apache_includes'; + open my $fh, '>', $filename or die "can't open $filename: $!"; + + for my $path (@$includes) { + my $filename = basename $path; + print $fh qq(\#include "$path"\n); + } + + close $fh; + + return $filename; +} + +my %defines_wanted = ( + 'Apache2::Const' => { + common => [qw{OK DECLINED DONE}], + config => [qw{DECLINE_CMD}], + context => [qw(NOT_IN_ GLOBAL_ONLY)], + http => [qw{HTTP_}], + log => [qw(APLOG_)], + methods => [qw{M_ METHODS}], + mpmq => [qw{AP_MPMQ_}], + options => [qw{OPT_}], + override => [qw{OR_ EXEC_ON_READ ACCESS_CONF RSRC_CONF}], + proxy => [qw{PROXYREQ_}], + platform => [qw{CRLF CR LF}], + remotehost => [qw{REMOTE_}], + satisfy => [qw{SATISFY_}], + types => [qw{DIR_MAGIC_TYPE}], + auth => [qw{AUTHN_ AUTHZ AP_AUTH_ AUTH_ AUTHZ_}], + }, + 'APR::Const' => { + common => [qw{APR_SUCCESS}], + error => [qw{APR_E}], + filepath => [qw{APR_FILEPATH_}], + filetype => [qw{APR_FILETYPE_}], + fopen => [qw{APR_FOPEN_}], + fprot => [qw{APR_FPROT_}], + finfo => [qw{APR_FINFO_}], + flock => [qw{APR_FLOCK_}], + hook => [qw{APR_HOOK_}], + limit => [qw{APR_LIMIT}], + poll => [qw{APR_POLL}], + socket => [qw{APR_SO_}], + status => [qw{APR_TIMEUP}], + table => [qw{APR_OVERLAP_TABLES_}], + uri => [qw{APR_URI_}], + }, + ModPerl => { + common => [qw{MODPERL_RC_}], + } +); + +my %defines_wanted_re; +while (my ($class, $groups) = each %defines_wanted) { + while (my ($group, $wanted) = each %$groups) { + my $pat = join '|', @$wanted; + $defines_wanted_re{$class}->{$group} = $pat; #qr{^($pat)}; + } +} + +my %enums_wanted = ( + 'Apache2::Const' => { map { $_, 1 } qw(cmd_how input_mode filter_type conn_keepalive authn_status authz_status) }, + 'APR::Const' => { map { $_, 1 } qw(apr_shutdown_how apr_read_type apr_lockmech) }, +); + +my $defines_unwanted = join '|', qw{ +HTTP_VERSION APR_EOL_STR APLOG_MARK APLOG_NOERRNO APR_SO_TIMEOUT +APR_HOOK_PROBES_ENABLED APR_HOOK_INT_DCL_UD +APLOG_MAX_LOGLEVEL +APR_BEGIN_DECLS APR_END_DECLS +}; + +sub get_constants { + my ($self) = @_; + + my $includes = $self->find_includes; + my (%constants, %seen); + + for my $file (@$includes) { + open my $fh, $file or die "open $file: $!"; + while (<$fh>) { + if (s/^\#define\s+(\w+)\s+.*/$1/) { + chomp; + next if /_H$/; + next if $seen{$_}++; + $self->handle_constant(\%constants); + } + elsif (m/enum[^\{]+\{/) { + $self->handle_enum($fh, \%constants); + } + } + close $fh; + } + + #maintain a few handy shortcuts from 1.xx + #aliases are defined in ModPerl::Code + push @{ $constants{'Apache2::Const'}->{common} }, + qw(NOT_FOUND FORBIDDEN AUTH_REQUIRED SERVER_ERROR REDIRECT); + + return \%constants; +} + +sub handle_constant { + my ($self, $constants) = @_; + my $keys = keys %defines_wanted_re; + + return if /^($defines_unwanted)/o; + + while (my ($class, $groups) = each %defines_wanted_re) { + my $keys = keys %$groups; + + while (my ($group, $re) = each %$groups) { + next unless /^($re)/; + push @{ $constants->{$class}->{$group} }, $_; + return; + } + } +} + +sub handle_enum { + my ($self, $fh, $constants) = @_; + + my ($name, $e) = $self->parse_enum($fh); + return unless $name; + + $name =~ s/^ap_//; + $name =~ s/_(e|t)$//; + + my $class; + for (keys %enums_wanted) { + next unless $enums_wanted{$_}->{$name}; + $class = $_; + } + + return unless $class; + $name =~ s/^apr_//; + + push @{ $constants->{$class}->{$name} }, @$e if $e; +} + +#this should win an award for worlds lamest parser +sub parse_enum { + my ($self, $fh) = @_; + my $code = $_; + my @e; + + unless ($code =~ /;\s*$/) { + local $_; + while (<$fh>) { + $code .= $_; + last if /;\s*$/; + } + } + + my $name; + if ($code =~ s/^\s*enum\s+(\w*)\s*//) { + $name = $1; + } + elsif ($code =~ s/^\s*typedef\s+enum\s+//) { + $code =~ s/\s*(\w+)\s*;\s*$//; + $name = $1; + } + + $code =~ s:/\*.*?\*/::sg; + $code =~ s/\s*=\s*\w+//g; + $code =~ s/^[^\{]*\{//s; + $code =~ s/\}[^;]*;?//s; + $code =~ s/^\s*\n//gm; + + while ($code =~ /\b(\w+)\b,?/g) { + push @e, $1; + } + + return ($name, \@e); +} + +sub wanted_functions { shift->{prefix_re} } +sub wanted_structures { shift->{prefix_re} } + +sub get_functions { + my $self = shift; + + my $key = 'parsed_fdecls'; + return $self->{$key} if $self->{$key}; + + my $c = $self->{c}; + + my $fdecls = $c->get($key); + my $inlines = $c->get('parsed_inlines'); + push @{$fdecls}, @{$inlines}; + + my %seen; + my $wanted = $self->wanted_functions; + + my @functions; + + for my $entry (@$fdecls) { + my ($rtype, $name, $args) = @$entry; + next unless $name =~ $wanted; + next if $seen{$name}++; + my @attr; + + for (qw(static __inline__)) { + if ($rtype =~ s/^($_)\s+//) { + push @attr, $1; + } + } + + #XXX: working around ModPerl::CScan confusion here + #macro defines ap_run_error_log causes + #cpp filename:linenumber to be included as part of the type + for (@$args) { + next unless $_->[0]; + $_->[0] =~ s/^\#.*?\"\s+//; + $_->[0] =~ s/^register //; + } + + my $func = { + name => $name, + return_type => $rtype, + args => [map { + { type => $_->[0], name => $_->[1] } + } @$args], + }; + + $func->{attr} = \@attr if @attr; + + push @functions, $func; + } + + # sort the functions by the 'name' attribute to ensure a + # consistent output on different systems. + $self->{$key} = [sort { $a->{name} cmp $b->{name} } @functions]; +} + +sub get_structs { + my $self = shift; + + my $key = 'typedef_structs'; + return $self->{$key} if $self->{$key}; + + my $c = $self->{c}; + + my $typedef_structs = $c->get($key); + + my %seen; + my $wanted = $self->wanted_structures; + my $other = join '|', qw(_rec module + piped_log uri_t htaccess_result + cmd_parms cmd_func cmd_how); + + my @structures; + my $sx = qr(^struct\s+); + + while (my ($type, $elts) = each %$typedef_structs) { + next unless $type =~ $wanted or $type =~ /($other)$/o; + + $type =~ s/$sx//; + + next if $seen{$type}++; + + my $struct = { + type => $type, + elts => [map { + my $type = $_->[0]; + $type =~ s/$sx//; + $type .= $_->[1] if $_->[1]; + $type =~ s/:\d+$//; #unsigned:1 + { type => $type, name => $_->[2] } + } @$elts], + }; + + push @structures, $struct; + } + + # sort the structs by the 'type' attribute to ensure a consistent + # output on different systems. + $self->{$key} = [sort { $a->{type} cmp $b->{type} } @structures]; +} + +sub write_functions_pm { + my $self = shift; + my $file = shift || 'FunctionTable.pm'; + my $name = shift || 'Apache2::FunctionTable'; + + $self->write_pm($file, $name, $self->get_functions); +} + +sub write_structs_pm { + my $self = shift; + my $file = shift || 'StructureTable.pm'; + my $name = shift || 'Apache2::StructureTable'; + + $self->write_pm($file, $name, $self->get_structs); +} + +sub write_constants_pm { + my $self = shift; + my $file = shift || 'ConstantsTable.pm'; + my $name = shift || 'Apache2::ConstantsTable'; + + $self->write_pm($file, $name, $self->get_constants); +} + +sub write_pm { + my ($self, $file, $name, $data) = @_; + + require Data::Dumper; + local $Data::Dumper::Indent = 1; + + my ($subdir) = (split '::', $name)[0]; + + my $tdir = ''; + my $build = Apache2::Build->new(init => 1); + my $httpd_version = $build->httpd_version; + if ($httpd_version lt '2.4.0') { + $tdir='xs/tables/current'; + } + else { + $tdir='xs/tables/current24'; + } + + if (-d "$tdir/$subdir") { + $file = "$tdir/$subdir/$file"; + } + + # sort the hashes (including nested ones) for a consistent dump + canonsort(\$data); + + my $dump = Data::Dumper->new([$data], + [$name])->Dump; + + my $package = ref($self) || $self; + my $version = $self->VERSION; + my $date = scalar localtime; + + my $new_content = << "EOF"; +package $name; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by $package/$version +# ! $date +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$dump + +1; +EOF + + my $old_content = ''; + if (-e $file) { + open my $pm, '<', $file or die "open $file: $!"; + local $/ = undef; # slurp the file + $old_content = <$pm>; + close $pm; + } + + my $overwrite = 1; + if ($old_content) { + # strip the date line, which will never be the same before + # comparing + my $table_header = qr{^\#\s!.*}; + (my $old = $old_content) =~ s/$table_header//mg; + (my $new = $new_content) =~ s/$table_header//mg; + $overwrite = 0 if $old eq $new; + } + + if ($overwrite) { + open my $pm, '>', $file or die "open $file: $!"; + print $pm $new_content; + close $pm; + } + +} + +# canonsort(\$data); +# sort nested hashes in the data structure. +# the data structure itself gets modified + +sub canonsort { + my $ref = shift; + my $type = ref $$ref; + + return unless $type; + + require Tie::IxHash; + + my $data = $$ref; + + if ($type eq 'ARRAY') { + for (@$data) { + canonsort(\$_); + } + } + elsif ($type eq 'HASH') { + for (keys %$data) { + canonsort(\$data->{$_}); + } + + tie my %ixhash, 'Tie::IxHash'; + + # reverse sort so we get the order of: + # return_type, name, args { type, name } for functions + # type, elts { type, name } for structures + + for (sort { $b cmp $a } keys %$data) { + $ixhash{$_} = $data->{$_}; + } + + $$ref = \%ixhash; + } +} + +1; +__END__
diff --git a/2_0_13/lib/Apache2/PerlSections.pm b/2_0_13/lib/Apache2/PerlSections.pm new file mode 100644 index 0000000..69cd6b8 --- /dev/null +++ b/2_0_13/lib/Apache2/PerlSections.pm
@@ -0,0 +1,233 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::PerlSections; + +use strict; +use warnings FATAL => 'all'; + +our $VERSION = '2.00'; + +use Apache2::CmdParms (); +use Apache2::Directive (); +use APR::Table (); +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Const -compile => qw(OK); + +use constant SPECIAL_NAME => 'PerlConfig'; +use constant SPECIAL_PACKAGE => 'Apache2::ReadConfig'; + +sub new { + my ($package, @args) = @_; + return bless { @args }, ref($package) || $package; +} + +sub parms { return shift->{'parms'} } +sub directives { return shift->{'directives'} ||= [] } +sub package { return shift->{'args'}->{'package'} } + +my @saved; +sub save { return $Apache2::PerlSections::Save } +sub server { return $Apache2::PerlSections::Server } +sub saved { return @saved } + +sub handler : method { + my ($self, $parms, $args) = @_; + + unless (ref $self) { + $self = $self->new('parms' => $parms, 'args' => $args); + } + + if ($self->save) { + push @saved, $self->package; + } + + my $special = $self->SPECIAL_NAME; + + for my $entry ($self->symdump()) { + if ($entry->[0] !~ /$special/) { + $self->dump_any(@$entry); + } + } + + { + no strict 'refs'; + foreach my $package ($self->package) { + my @config = map { split /\n/ } + grep { defined } + (@{"${package}::$special"}, + ${"${package}::$special"}); + $self->dump_special(@config); + } + } + + $self->post_config(); + + Apache2::Const::OK; +} + +my %directives_seen_hack; + +sub symdump { + my ($self) = @_; + + unless ($self->{symbols}) { + no strict; + + $self->{symbols} = []; + + #XXX: Here would be a good place to warn about NOT using + # Apache2::ReadConfig:: directly in <Perl> sections + foreach my $pack ($self->package, $self->SPECIAL_PACKAGE) { + #XXX: Shamelessly borrowed from Devel::Symdump; + while (my ($key, $val) = each(%{ *{"$pack\::"} })) { + #We don't want to pick up stashes... + next if ($key =~ /::$/); + local (*ENTRY) = $val; + if (defined $val && defined *ENTRY{SCALAR} && defined $ENTRY) { + push @{$self->{symbols}}, [$key, $ENTRY]; + } + if (defined $val && defined *ENTRY{ARRAY}) { + unless (exists $directives_seen_hack{"$key$val"}) { + $directives_seen_hack{"$key$val"} = 1; + push @{$self->{symbols}}, [$key, \@ENTRY]; + } + } + if (defined $val && defined *ENTRY{HASH} && $key !~ /::/) { + push @{$self->{symbols}}, [$key, \%ENTRY]; + } + } + } + } + + return @{$self->{symbols}}; +} + +sub dump_special { + my ($self, @data) = @_; + $self->add_config(@data); +} + +sub dump_any { + my ($self, $name, $entry) = @_; + my $type = ref $entry; + + if ($type eq 'ARRAY') { + $self->dump_array($name, $entry); + } + elsif ($type eq 'HASH') { + $self->dump_hash($name, $entry); + } + else { + $self->dump_entry($name, $entry); + } +} + +sub dump_hash { + my ($self, $name, $hash) = @_; + + for my $entry (keys %{ $hash || {} }) { + my $item = $hash->{$entry}; + my $type = ref($item); + + if ($type eq 'HASH') { + $self->dump_section($name, $entry, $item); + } + elsif ($type eq 'ARRAY') { + for my $e (@$item) { + $self->dump_section($name, $entry, $e); + } + } + } +} + +sub dump_section { + my ($self, $name, $loc, $hash) = @_; + + $self->add_config("<$name $loc>\n"); + + for my $entry (keys %{ $hash || {} }) { + $self->dump_entry($entry, $hash->{$entry}); + } + + $self->add_config("</$name>\n"); +} + +sub dump_array { + my ($self, $name, $entries) = @_; + + for my $entry (@$entries) { + $self->dump_entry($name, $entry); + } +} + +sub dump_entry { + my ($self, $name, $entry) = @_; + my $type = ref $entry; + + if ($type eq 'SCALAR') { + $self->add_config("$name $$entry\n"); + } + elsif ($type eq 'ARRAY') { + if (grep {ref} @$entry) { + $self->dump_entry($name, $_) for @$entry; + } + else { + $self->add_config("$name @$entry\n"); + } + } + elsif ($type eq 'HASH') { + $self->dump_hash($name, $entry); + } + elsif ($type) { + #XXX: Could do $type->can('httpd_config') here on objects ??? + die "Unknown type '$type' for directive $name"; + } + elsif (defined $entry) { + $self->add_config("$name $entry\n"); + } +} + +sub add_config { + my ($self, @config) = @_; + foreach my $config (@config) { + return unless defined $config; + chomp($config); + push @{ $self->directives }, $config; + } +} + +sub post_config { + my ($self) = @_; + my $errmsg = $self->parms->add_config($self->directives); + die $errmsg if $errmsg; +} + +sub dump { + my $class = shift; + require Apache2::PerlSections::Dump; + return Apache2::PerlSections::Dump->dump(@_); +} + +sub store { + my $class = shift; + require Apache2::PerlSections::Dump; + return Apache2::PerlSections::Dump->store(@_); +} + +1; +__END__
diff --git a/2_0_13/lib/Apache2/PerlSections/Dump.pm b/2_0_13/lib/Apache2/PerlSections/Dump.pm new file mode 100644 index 0000000..4366410 --- /dev/null +++ b/2_0_13/lib/Apache2/PerlSections/Dump.pm
@@ -0,0 +1,101 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::PerlSections::Dump; + +use strict; +use warnings FATAL => 'all'; + +our $VERSION = '0.01'; + +use Apache2::PerlSections; +our @ISA = qw(Apache2::PerlSections); + +use Data::Dumper; + +# Process all saved packages +sub package { return shift->saved } + +# We don't want to save anything +sub save { return } + +# We don't want to post any config to apache, we are dumping +sub post_config { return } + +sub dump { + my $self = shift; + unless (ref $self) { + $self = $self->new; + } + $self->handler(); + return join "\n", @{$self->directives}, '1;', '__END__', ''; +} + +sub store { + my ($class, $filename) = @_; + require IO::File; + + my $fh = IO::File->new(">$filename") or die "can't open $filename $!\n"; + + $fh->print($class->dump); + + $fh->close; +} + +sub dump_array { + my ($self, $name, $entry) = @_; + $self->add_config(Data::Dumper->Dump([$entry], ["*$name"])); +} + +sub dump_hash { + my ($self, $name, $entry) = @_; + for my $elem (sort keys %{$entry}) { + $self->add_config(Data::Dumper->Dump([$entry->{$elem}], + ["\$$name"."{'$elem'}"])); + } + +} + +sub dump_entry { + my ($self, $name, $entry) = @_; + + return if not defined $entry; + my $type = ref($entry); + + if ($type eq 'SCALAR') { + $self->add_config(Data::Dumper->Dump([$$entry],[$name])); + } + if ($type eq 'ARRAY') { + $self->dump_array($name,$entry); + } + else { + $self->add_config(Data::Dumper->Dump([$entry],[$name])); + } +} + +sub dump_special { + my ($self, @data) = @_; + + my @dump = grep { defined } @data; + return unless @dump; + + $self->add_config(Data::Dumper->Dump([\@dump],['*'.$self->SPECIAL_NAME])); +} + + + +1; +__END__
diff --git a/2_0_13/lib/Apache2/Resource.pm b/2_0_13/lib/Apache2/Resource.pm new file mode 100644 index 0000000..ccf70d9 --- /dev/null +++ b/2_0_13/lib/Apache2/Resource.pm
@@ -0,0 +1,150 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# + +package Apache2::Resource; + +use strict; +use warnings FATAL => 'all'; + +use mod_perl2; + +use Apache2::Module (); + +use BSD::Resource qw(setrlimit getrlimit get_rlimits); + +use Apache2::Const -compile => qw(OK); + +$Apache2::Resource::VERSION = '1.72'; + +our $Debug; + +$Debug ||= 0; + +sub MB ($) { + my $num = shift; + return ($num < (1024 * 1024)) ? $num*1024*1024 : $num; +} + +sub BM ($) { + my $num = shift; + return ($num > (1024 * 1024)) ? '(' . ($num>>20) . 'Mb)' : ''; +} + +sub DEFAULT_RLIMIT_DATA () { 64 } # data (memory) size in MB +sub DEFAULT_RLIMIT_AS () { 64 } # address space (memory) size in MB +sub DEFAULT_RLIMIT_CPU () { 60*6 } # cpu time in seconds +sub DEFAULT_RLIMIT_CORE () { 0 } # core file size (MB) +sub DEFAULT_RLIMIT_RSS () { 16 } # resident set size (MB) +sub DEFAULT_RLIMIT_FSIZE () { 10 } # file size (MB) +sub DEFAULT_RLIMIT_STACK () { 20 } # stack size (MB) + +my %is_mb = map {$_, 1} qw{DATA RSS STACK FSIZE CORE MEMLOCK AS}; + +sub debug { print STDERR @_ if $Debug } + +sub install_rlimit ($$$) { + my ($res, $soft, $hard) = @_; + + my $name = $res; + + my $cv = \&{"BSD::Resource::RLIMIT_${res}"}; + eval { $res = $cv->() }; + return if $@; + + unless ($soft) { + my $defval = \&{"DEFAULT_RLIMIT_${name}"}; + if (defined &$defval) { + $soft = $defval->(); + } else { + warn "can't find default for `$defval'\n"; + } + } + + $hard ||= $soft; + + debug "Apache2::Resource: PID $$ attempting to set `$name'=$soft:$hard ..."; + + ($soft, $hard) = (MB $soft, MB $hard) if $is_mb{$name}; + + return setrlimit $res, $soft, $hard; +} + +sub handler { + while (my ($k, $v) = each %ENV) { + next unless $k =~ /^PERL_RLIMIT_(\w+)$/; + $k = $1; + next if $k eq "DEFAULTS"; + my ($soft, $hard) = split ":", $v, 2; + $hard ||= $soft; + + my $set = install_rlimit $k, $soft, $hard; + debug "not " unless $set; + debug "ok\n"; + debug $@ if $@; + } + + Apache2::Const::OK; +} + +sub default_handler { + while (my ($k, $v) = each %Apache2::Resource::) { + next unless $k =~ s/^DEFAULT_/PERL_/; + $ENV{$k} = ""; + } + handler(); +} + +sub status_rlimit { + my $lim = get_rlimits(); + my @retval = ("<table border=1><tr>", + (map "<th>$_</th>", qw(Resource Soft Hard)), + "</tr>"); + + for my $res (keys %$lim) { + my ($soft, $hard) = getrlimit($lim->{$res}); + (my $limit = $res) =~ s/^RLIMIT_//; + ($soft, $hard) = ("$soft " . BM($soft), "$hard ". BM($hard)) + if $is_mb{$limit}; + push @retval, + "<tr>", (map { "<td>$_</td>" } $res, $soft, $hard), "</tr>\n"; + } + + push @retval, "</table><P>"; + push @retval, "<small>Apache2::Resource $Apache2::Resource::VERSION</small>"; + + return \@retval; +} + +if ($ENV{MOD_PERL}) { + if ($ENV{PERL_RLIMIT_DEFAULTS}) { + require Apache2::ServerUtil; + Apache2::ServerUtil->server->push_handlers( + PerlChildInitHandler => \&default_handler); + } + + Apache2::Status->menu_item(rlimit => "Resource Limits", + \&status_rlimit) + if Apache2::Module::loaded("Apache2::Status"); +} + +# perl Apache2/Resource.pm +++$Debug, default_handler unless caller(); + +1; + +__END__ +
diff --git a/2_0_13/lib/Apache2/SourceTables.pm b/2_0_13/lib/Apache2/SourceTables.pm new file mode 100644 index 0000000..b82ba13 --- /dev/null +++ b/2_0_13/lib/Apache2/SourceTables.pm
@@ -0,0 +1,32 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::SourceTables; + +use Apache2::StructureTable (); +use Apache2::FunctionTable (); + +#build hash versions of the tables +%Apache2::StructureTable = + map { $_->{type}, $_->{elts} } @$Apache2::StructureTable; + +%Apache2::FunctionTable = + map { $_->{name}, {elts => $_->{elts}, + return_type => $_->{return_type} } } + @$Apache2::FunctionTable; + +1; +__END__
diff --git a/2_0_13/lib/Apache2/Status.pm b/2_0_13/lib/Apache2/Status.pm new file mode 100644 index 0000000..ee4bb8c --- /dev/null +++ b/2_0_13/lib/Apache2/Status.pm
@@ -0,0 +1,911 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::Status; + +use strict; +use warnings FATAL => 'all'; + +use mod_perl2; + +use Apache2::RequestIO (); +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use Apache2::ServerUtil (); + +use File::Spec (); + +use Apache2::Const -compile => qw(OK); + +$Apache2::Status::VERSION = '4.01'; # mod_perl 2.0 + +use constant IS_WIN32 => ($^O eq "MSWin32"); + +my %status = ( + script => "PerlRequire'd Files", + inc => "Loaded Modules", + rgysubs => "Compiled Registry Scripts", + symdump => "Symbol Table Dump", + inh_tree => "Inheritance Tree", + isa_tree => "ISA Tree", + env => "Environment", + sig => "Signal Handlers", + myconfig => "Perl Configuration", +); +delete $status{'sig'} if IS_WIN32; + +if ($Apache2::PerlSections::Save) { + $status{"section_config"} = "Perl Section Configuration"; +} + +my %requires = ( + deparse => ["StatusDeparse", "B::Deparse", 0.59, ], + fathom => ["StatusFathom", "B::Fathom", 0.05, ], + symdump => ["", "Devel::Symdump", 2.00, ], + dumper => ["StatusDumper", "Data::Dumper", 0, ], + b => ["", "B", 0, ], + graph => ["StatusGraph", "B::Graph", 0.03, ], + lexinfo => ["StatusLexInfo", "B::LexInfo", 0, ], + xref => ["StatusXref", "B::Xref", 1.01, ], + terse => ["StatusTerse", "B::Terse", 0, ], + tersesize => ["StatusTerseSize", "B::TerseSize", 0.09, ], + packagesize => ["StatusPackageSize", "B::TerseSize", 0.09, ], + peek => ["StatusPeek", "Apache::Peek", 1.03, ], +); + +sub has { + my ($r, $what) = @_; + + return 0 unless exists $requires{$what}; + + my ($opt, $module, $version) = @{ $requires{$what} }; + + (my $file = $module) =~ s|::|/|; + $file .= ".pm"; + + # if !$opt we skip the testing for the option + return 0 if $opt && !status_config($r, $opt); + return 0 unless eval { require $file }; + my $mod_ver = $module->VERSION; + $mod_ver =~ s/_.*//; # handle dev versions like 2.121_02 + return 0 unless $mod_ver && $mod_ver >= $version; + + return 1; +} + +use constant CPAN_SEARCH => 'http://search.cpan.org/search?mode=module;query'; + +sub install_hint { + my ($module) = @_; + return qq{<p>Please install the } . + qq{<a href="@{[CPAN_SEARCH]}=$module">$module</a> module.</p>}; +} + +sub status_config { + my ($r, $key) = @_; + return (lc($r->dir_config($key) || '') eq "on") || + (lc($r->dir_config('StatusOptionsAll') || '') eq "on"); +} + +sub menu_item { + my ($self, $key, $val, $sub) = @_; + $status{$key} = $val; + no strict; + no warnings 'redefine'; + *{"status_${key}"} = $sub if $sub and ref $sub eq 'CODE'; +} + +sub handler { + my ($r) = @_; + my $qs = $r->args || ""; + my $sub = "status_$qs"; + no strict 'refs'; + + if ($qs =~ s/^(noh_\w+).*/$1/) { + &{$qs}($r); + return Apache2::Const::OK; + } + + header($r); + if (defined &$sub) { + $r->print(@{ &{$sub}($r) }); + } + elsif ($qs and %{$qs."::"}) { + $r->print(symdump($r, $qs)); + } + else { + my $uri = $r->location; + $r->print('<p>'); + $r->print( + map { qq[<a href="$uri?$_">$status{$_}</a><br />\n] } sort { lc $a cmp lc $b } keys %status + ); + $r->print('</p>'); + } + $r->print("</body></html>"); + + Apache2::Const::OK; +} + +sub header { + my $r = shift; + my $start = scalar localtime $^T; + my $srv = Apache2::ServerUtil::get_server_banner(); + $r->content_type("text/html"); + my $v = $^V ? sprintf "v%vd", $^V : $]; + $r->print(<<"EOF"); +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" +"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> + +<html lang="en" xmlns="http://www.w3.org/1999/xhtml"> + <head> + <title>Apache2::Status $Apache2::Status::VERSION</title> + <style type="text/css"> + body { + color: #000; + background-color: #fff; + } + p.hdr { + background-color: #ddd; + border: 2px outset; + padding: 3px; + width: 99%; + } + </style> + </head> + <body> + <p class="hdr"> + Embedded Perl version <b>$v</b> for <b>$srv</b> process <b>$$</b>,<br /> + running since $start + </p> +EOF + +} + +sub symdump { + my ($r, $package) = @_; + + return install_hint("Devel::Symdump") unless has($r, "symdump"); + + # lc generates a (FATAL) warning if $r->dir_config is undef + my $meth = lc($r->dir_config("StatusRdump") || '') eq "on" + ? "rnew" : "new"; + my $sob = Devel::Symdump->$meth($package); + return $sob->Apache2::Status::as_HTML($package, $r); +} + +sub status_symdump { + my ($r) = @_; + [symdump($r, 'main')]; +} + +sub status_section_config { + my ($r) = @_; + require Apache2::PerlSections; + ["<pre>", Apache2::PerlSections->dump, "</pre>"]; +} + +sub status_inc { + my ($r) = @_; + + my $uri = $r->location; + my @retval = ( + '<table border="1">', + "<tr>", + (map "<td><b>$_</b></td>", qw(Package Version Modified File)), + "</tr>\n" + ); + + foreach my $file (sort keys %INC) { + local $^W = 0; + next if $file =~ m:^/:; + next unless $file =~ m:\.pm:; + next unless $INC{$file}; #e.g. fake Apache2/TieHandle.pm + + no strict 'refs'; + (my $module = $file) =~ s,/,::,g; + $module =~ s,\.pm$,,; + next if $module eq 'mod_perl'; + my $v = ${"$module\:\:VERSION"} || '0.00'; + my $mtime = -e $INC{$file} ? scalar localtime((stat $INC{$file})[9]) : + 'N/A'; + + push @retval, ( + "<tr>", + (map "<td>$_</td>", + qq(<a href="$uri?$module">$module</a>), + $v, $mtime, $INC{$file}), + "</tr>\n" + ); + } + push @retval, "</table>\n"; + push @retval, "<p><b>\@INC</b> = <br />", join "<br />\n", @INC, ""; + \@retval; +} + +sub status_script { + my ($r) = @_; + + my @retval = ( + '<table border="1">', + "<tr><td><b>PerlRequire</b></td><td><b>Location</b></td></tr>\n", + ); + + foreach my $file (sort keys %INC) { + next if $file =~ m:\.(pm|al|ix)$:; + push @retval, + qq(<tr><td>$file</td><td>$INC{$file}</td></tr>\n); + } + push @retval, "</table>"; + \@retval; +} + +my $RegistryCache; + +sub registry_cache { + my ($self, $cache) = @_; + + # XXX: generalize + + $RegistryCache = $cache if $cache; + $RegistryCache || $Apache2::Registry; +} + +sub get_packages_per_handler { + my ($root, $stash) = @_; + + my %handlers = (); + my @packages = get_packages($stash); + for (@packages) { + /^\*${root}::([\w:]+)::(\w+)::$/ && push @{ $handlers{$1} }, $2; + } + + return %handlers; +} + +sub get_packages { + my ($stash) = @_; + + no strict 'refs'; + my @packages = (); + for (keys %$stash) { + return $stash unless $stash->{$_} =~ /::$/; + push @packages, get_packages($stash->{$_}); + } + return @packages; +} + +sub status_rgysubs { + my ($r) = @_; + + local $_; + my $uri = $r->location; + my $cache = __PACKAGE__->registry_cache; + + my @retval = "<h2>Compiled registry scripts grouped by their handler</h2>"; + + push @retval, + "<p><b>Click on package name to see its symbol table</b></p>\n"; + + my $root = "ModPerl::ROOT"; + no strict 'refs'; + my %handlers = get_packages_per_handler($root, *{$root . "::"}); + for my $handler (sort keys %handlers) { + push @retval, "<h4>$handler:</h4>\n<p>\n"; + for (sort @{ $handlers{$handler} }) { + my $full = join '::', $root, $handler, $_; + push @retval, qq(<a href="$uri?$full">$_</a>\n), "<br />"; + } + push @retval, "</p>\n"; + } + + \@retval; +} + +sub status_env { + my ($r) = shift; + + my @retval = ("<p>\n"); + + if ($r->handler eq 'modperl') { + # the handler can be executed under the "modperl" handler + push @retval, + qq{<b>Under the "modperl" handler, the environment is</b>:}; + # XXX: I guess we could call $r->subprocess_env; and show how + # would it look like under the 'perl-script' environment, but + # under the 'modperl' handler %ENV doesn't get reset, + # therefore on the first reload it'll see the bloated %ENV in + # first place. + } else { + # the handler can be executed under the "perl-script" handler + push @retval, + qq{<b>Under the "perl-script" handler, the environment is</b>:}; + } + push @retval, "\n</p>\n"; + push @retval, "<pre>", + (map "$_ = " . escape_html($ENV{$_}||'') . "\n", + sort keys %ENV), "</pre>"; + + \@retval; +} + +sub status_sig { + ["<pre>", + (map { + my $val = $SIG{$_} || ""; + if ($val and ref $val eq "CODE") { + # XXX: 2.0 doesn't have Apache2::Symbol + if (my $cv = Apache2::Symbol->can('sv_name')) { + $val = "\\&". $cv->($val); + } + } + "$_ = $val\n" } + sort keys %SIG), + "</pre>"]; +} + +sub status_myconfig { + ["<pre>", myconfig(), "</pre>"]; +} + +sub status_inh_tree { + return has(shift, "symdump") + ? ["<pre>", Devel::Symdump->inh_tree, "</pre>"] + : install_hint("Devel::Symdump"); +} + +sub status_isa_tree { + return has(shift, "symdump") + ? ["<pre>", Devel::Symdump->isa_tree, "</pre>"] + : install_hint("Devel::Symdump"); +} + +sub status_data_dump { + my ($r) = @_; + + return install_hint('Data::Dumper') unless has($r, "dumper"); + + my ($name, $type) = (split "/", $r->uri)[-2,-1]; + + no strict 'refs'; + my @retval = "<p>\nData Dump of $name $type\n</p>\n<pre>\n"; + my $str = Data::Dumper->Dump([*$name{$type}], ['*'.$name]); + $str = escape_html($str); + $str =~ s/= \\/= /; #whack backwack + push @retval, $str, "\n"; + push @retval, peek_link($r, $name, $type); + push @retval, b_graph_link($r, $name); + push @retval, "</pre>"; + \@retval; +} + +sub cv_file { + my $obj = shift; + $obj->can('FILEGV') ? $obj->FILEGV->SV->PV : $obj->FILE; +} + +sub status_cv_dump { + my ($r) = @_; + return [] unless has($r, "b"); + + no strict 'refs'; + my ($name, $type) = (split "/", $r->uri)[-2,-1]; + # could be another child, which doesn't have this symbol table? + return unless *$name{CODE}; + + my @retval = "<p>Subroutine info for <b>$name</b></p>\n<pre>\n"; + my $obj = B::svref_2object(*$name{CODE}); + my $file = cv_file($obj); + my $stash = $obj->GV->STASH->NAME; + my $script = $r->location; + + push @retval, "File: ", + (-e $file ? qq(<a href="file:$file">$file</a>) : $file), "\n"; + + my $cv = $obj->GV->CV; + my $proto = $cv->PV if $cv->can('PV'); + + push @retval, qq(Package: <a href="$script?$stash">$stash</a>\n); + push @retval, "Line: ", $obj->GV->LINE, "\n"; + push @retval, "Prototype: ", $proto || "none", "\n"; + push @retval, "XSUB: ", $obj->XSUB ? "yes" : "no", "\n"; + push @retval, peek_link($r, $name, $type); + push @retval, b_graph_link($r, $name); + push @retval, xref_link($r, $name); + push @retval, b_lexinfo_link($r, $name); + push @retval, b_terse_link($r, $name); + push @retval, b_terse_size_link($r, $name); + push @retval, b_deparse_link($r, $name); + push @retval, b_fathom_link($r, $name); + push @retval, "</pre>"; + \@retval; +} + +sub b_lexinfo_link { + my ($r, $name) = @_; + + return unless has($r, "lexinfo"); + + my $script = $r->location; + return qq(\n<a href="$script/$name?noh_b_lexinfo">Lexical Info</a>\n); +} + +sub noh_b_lexinfo { + my $r = shift; + + $r->content_type("text/plain"); + return unless has($r, "lexinfo"); + + no strict 'refs'; + my ($name) = (split "/", $r->uri)[-1]; + $r->print("Lexical Info for $name\n\n"); + my $lexi = B::LexInfo->new; + my $info = $lexi->cvlexinfo($name); + $r->print(${ $lexi->dumper($info) }); +} + +my %b_terse_exp = ('slow' => 'syntax', 'exec' => 'execution', basic => 'syntax'); + +sub b_terse_link { + my ($r, $name) = @_; + + return unless has($r, "terse"); + + my $script = $r->location; + my @retval; + for (qw(exec basic)) { + my $exp = "$b_terse_exp{$_} order"; + push @retval, + qq(\n<a href="$script/$_/$name?noh_b_terse">Syntax Tree Dump ($exp)</a>\n); + } + join '', @retval; +} + +sub noh_b_terse { + my $r = shift; + + $r->content_type("text/plain"); + return unless has($r, "terse"); + + no strict 'refs'; + my ($arg, $name) = (split "/", $r->uri)[-2,-1]; + $r->print("Syntax Tree Dump ($b_terse_exp{$arg}) for $name\n\n"); + + # XXX: blead perl dumps things to STDERR, though the same version + # works fine with 1.27 + # B::Concise couldn't parse XS code before perl patch 24681 (perl 5.9.3) + # B::Terse is deprecated and just a wrapper around B::Concise now adays + eval { B::Concise::compile("-terse", "-$arg", $name)->() }; + if ($@) { + $r->print("B::Concise has failed: $@"); + } +} + +sub b_terse_size_link { + my ($r, $name) = @_; + + return unless has($r, "tersesize"); + + my $script = $r->location; + my @retval; + for (qw(exec slow)) { + my $exp = "$b_terse_exp{$_} order"; + push @retval, + qq(\n<a href="$script/$_/$name?noh_b_terse_size">Syntax Tree Size ($exp)</a>\n); + } + join '', @retval; +} + +sub noh_b_terse_size { + my $r = shift; + + $r->content_type("text/html"); + return unless has($r, "tersesize"); + + $r->print('<pre>'); + my ($arg, $name) = (split "/", $r->uri)[-2,-1]; + my $uri = $r->location; + my $link = qq{<a href="$uri/$name/CODE?cv_dump">$name</a>}; + $r->print("Syntax Tree Size ($b_terse_exp{$arg} order) for $link\n\n"); + B::TerseSize::compile($arg, $name)->(); +} + +sub b_package_size_link { + my ($r, $name) = @_; + + return unless has($r, "packagesize"); + + my $script = $r->location; + qq(<a href="$script/$name?noh_b_package_size">Memory Usage</a>\n); +} + +sub noh_b_package_size { + my ($r) = @_; + + $r->content_type("text/html"); + return unless has($r, "packagesize"); + + $r->print('<pre>'); + + no strict 'refs'; + my ($package) = (split "/", $r->uri)[-1]; + my $script = $r->location; + $r->print("Memory Usage for package $package\n\n"); + my ($subs, $opcount, $opsize) = B::TerseSize::package_size($package); + my $Kb = sprintf "%.2f", $opsize / 1024; + my $Mb = sprintf "%.2f", $Kb / 1000; + $r->print("Totals: $opsize bytes, $Kb Kb, $Mb Mb | $opcount OPs\n\n"); + + my $nlen = 0; + my @keys = map { + $nlen = length > $nlen ? length : $nlen; + $_; + } (sort { $subs->{$b}->{size} <=> $subs->{$a}->{size} } keys %$subs); + + my $clen = $subs->{$keys[0]}->{count} ? + length $subs->{$keys[0]}->{count} : 0; + my $slen = length $subs->{$keys[0]}->{size}; + + for my $name (@keys) { + my $stats = $subs->{$name}; + if ($name =~ /^my /) { + $r->printf("%-${nlen}s %${slen}d bytes\n", $name, $stats->{size}); + } + elsif ($name =~ /^\*(\w+)\{(\w+)\}/) { + my $link = qq(<a href="$script/$package\::$1/$2?data_dump">); + $r->printf("$link%-${nlen}s</a> %${slen}d bytes\n", + $name, $stats->{size}); + } + else { + my $link = + qq(<a href="$script/slow/$package\::$name?noh_b_terse_size">); + $r->printf("$link%-${nlen}s</a> %${slen}d bytes | %${clen}d OPs\n", + $name, $stats->{size}, $stats->{count}); + } + } +} + +sub b_deparse_link { + my ($r, $name) = @_; + + return unless has($r, "deparse"); + + my $script = $r->location; + return qq(\n<a href="$script/$name?noh_b_deparse">Deparse</a>\n); +} + +sub noh_b_deparse { + my $r = shift; + + $r->content_type("text/plain"); + return unless has($r, "deparse"); + + my $name = (split "/", $r->uri)[-1]; + $r->print("Deparse of $name\n\n"); + my $deparse = B::Deparse->new(split /\s+/, + $r->dir_config('StatusDeparseOptions')||""); + my $body = $deparse->coderef2text(\&{$name}); + $r->print("sub $name $body"); +} + +sub b_fathom_link { + my ($r, $name) = @_; + + return unless has($r, "fathom"); + + my $script = $r->location; + return qq(\n<a href="$script/$name?noh_b_fathom">Fathom Score</a>\n); +} + +sub noh_b_fathom { + my $r = shift; + + $r->content_type("text/plain"); + return unless has($r, "fathom"); + + my $name = (split "/", $r->uri)[-1]; + $r->print("Fathom Score of $name\n\n"); + my $fathom = B::Fathom->new(split /\s+/, + $r->dir_config('StatusFathomOptions')||""); + $r->print($fathom->fathom(\&{$name})); +} + +sub peek_link { + my ($r, $name, $type) = @_; + + return unless has($r, "peek"); + + my $script = $r->location; + return qq(\n<a href="$script/$name/$type?noh_peek">Peek Dump</a>\n); +} + +sub noh_peek { + my $r = shift; + + $r->content_type("text/plain"); + return unless has($r, "peek"); + + no strict 'refs'; + my ($name, $type) = (split "/", $r->uri)[-2,-1]; + $type =~ s/^FUNCTION$/CODE/; + $r->print("Peek Dump of $name $type\n\n"); + Apache::Peek::Dump(*{$name}{$type}); +} + +sub xref_link { + my ($r, $name) = @_; + + return unless has($r, "xref"); + + my $script = $r->location; + return qq(\n<a href="$script/$name?noh_xref">Cross Reference Report</a>\n); +} + +sub noh_xref { + my $r = shift; + + $r->content_type("text/plain"); + return unless has($r, "xref"); + + (my $thing = $r->path_info) =~ s:^/::; + $r->print("Xref of $thing\n"); + B::Xref::compile($thing)->(); +} + +$Apache2::Status::BGraphCache ||= 0; +if ($Apache2::Status::BGraphCache) { + Apache2->server->push_handlers(PerlChildExitHandler => sub { + unlink keys %Apache2::Status::BGraphCache; + }); +} + +sub b_graph_link { + my ($r, $name) = @_; + + return unless has($r, "graph"); + + my $script = $r->location; + return qq(\n<a href="$script/$name?noh_b_graph">OP Tree Graph</a>\n); +} + +sub noh_b_graph { + my $r = shift; + + return unless has($r, "graph"); + + untie *STDOUT; + + my $dir = File::Spec->catfile(Apache2::ServerUtil::server_root(), + ($r->dir_config("GraphDir") || "logs/b_graphs")); + + mkdir $dir, 0755 unless -d $dir; + + (my $thing = $r->path_info) =~ s:^/::; + $thing =~ s{::}{-}g; # :: is not allowed in the filename on some OS + my $type = "dot"; + my $file = "$dir/$thing.$$.gif"; + + unless (-e $file) { + my $rv = tie *STDOUT, "B::Graph", $r, $file; + unless ($rv) { + $r->content_type("text/plain"); + $r->print("dot not found\n"); + } + else { + B::Graph::compile("-$type", $thing)->(); + (tied *STDOUT)->{graph}->close; + } + } + + if (-s $file) { + $r->content_type("image/gif"); + $r->sendfile($file); + } + else { + $r->content_type("text/plain"); + $r->print("Graph of $thing failed!\n"); + } + if ($Apache2::Status::BGraphCache) { + $Apache2::Status::BGraphCache{$file}++; + } + else { + unlink $file; + } + + 0; +} + +sub B::Graph::TIEHANDLE { + my ($class, $r, $file) = @_; + + if ($file =~ /^([^<>|;]+)$/) { + $file = $1; + } + else { + die "TAINTED data in THING=> ($file)"; + } + + $ENV{PATH} = join ":", qw{/usr/bin /usr/local/bin}; + my $dot = $r->dir_config("Dot") || "dot"; + + require IO::File; + my $pipe = IO::File->new("|$dot -Tgif -o $file"); + $pipe && $pipe->autoflush(1); + + if ($pipe) { + return bless { + graph => $pipe, + r => $r, + }, $class; + } + else { + return; + } +} + +sub B::Graph::PRINT { + my $self = shift; + + $self->{graph}->print(@_); +} + +my %can_dump = map {$_,1} qw(scalars arrays hashes); + +sub as_HTML { + my ($self, $package, $r) = @_; + + my @m = qw(<table>); + my $uri = $r->location; + my $is_main = $package eq "main"; + + my $do_dump = has($r, "dumper"); + + my @methods = sort keys %{$self->{'AUTOLOAD'}}; + + if ($is_main) { + @methods = grep { $_ ne "packages" } @methods; + unshift @methods, "packages"; + } + + for my $type (@methods) { + (my $dtype = uc $type) =~ s/E?S$//; + push @m, "<tr><td valign=\"top\"><b>$type</b></td>"; + my @line = (); + + for (sort $self->_partdump(uc $type)) { + s/([\000-\037\177])/ '^' . pack('c', ord($1) ^ 64)/eg; + + if ($type eq "scalars") { + no strict 'refs'; + next unless defined eval { $$_ }; + } + + if ($type eq "packages") { + push @line, qq(<a href="$uri?$_">$_</a>); + } + elsif ($type eq "functions") { + if (has($r, "b")) { + push @line, qq(<a href="$uri/$_/$dtype?cv_dump">$_</a>); + } + else { + push @line, $_; + } + } + elsif ($do_dump and $can_dump{$type}) { + next if /_</; + push @line, qq(<a href="$uri/$_/$dtype?data_dump">$_</a>); + } + else { + push @line, $_; + } + } + push @m, "<td>" . join(", ", @line) . "</td></tr>\n"; + } + push @m, "</table>"; + + return join "\n", @m, "<hr>", b_package_size_link($r, $package); +} + +sub escape_html { + my $str = shift; + + $str =~ s/&/&/g; + $str =~ s/</</g; + $str =~ s/>/>/g; + + return $str; +} + +sub myconfig { + require Config; + # Config::myconfig(); fails under threads with (5.8.0 < perl < 5.8.3) + # "Modification of a read-only value attempted" + # provide a workaround + if ($Config::Config{useithreads} and $] > 5.008 and $] < 5.008003) { + return $Config::summary_expanded if $Config::summary_expanded; + ($Config::summary_expanded = $Config::summary) =~ + s{\$(\w+)} + { my $c = $Config::Config{$1}; defined($c) ? $c : 'undef' }ge; + return $Config::summary_expanded; + } + else { + return Config::myconfig(); + } +} + +# mp2 modules have to deal with situations where a binary incompatible +# mp1 version of the same module is installed in the same +# tree. therefore when checking for a certain version, one wants to +# check the version of the module 'require()' will find without +# loading that module. this function partially adopted from +# ExtUtils::MM_Unix does just that. it returns the version number of +# the first module that it finds, forcing numerical context, making +# the return value suitable for immediate numerical comparison +# operation. (i.e. 2.03-dev will be returned as 2.03, 0 will be +# returned when the parsing has failed or a module wasn't found). +sub parse_version { + my $name = shift; + die "no module name passed" unless $name; + my $file = File::Spec->catfile(split /::/, $name) . '.pm'; + for my $dir (@INC) { + next if ref $dir; # skip code refs + + my $pmfile = File::Spec->catfile($dir, $file); + next unless -r $pmfile; + + open my $fh, $pmfile or die "can't open $pmfile: $!"; + + my $inpod = 0; + my $version; + while (<$fh>) { + $inpod = /^=(?!cut)/ ? 1 : /^=cut/ ? 0 : $inpod; + next if $inpod || /^\s*#/; + + chomp; + next unless /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/; + { local($1, $2); ($_ = $_) = /(.*)/; } # untaint + my $eval = qq{ + package Apache2::Status::_version; + no strict; + + local $1$2; + \$$2=undef; do { + $_ + }; \$$2 + }; + no warnings; + $version = eval $eval; + warn "Could not eval '$eval' in $pmfile: $@" if $@; + last; + } + + close $fh; + + # avoid situations like "2.03-dev" and return a numerical + # version + if (defined $version) { + no warnings; + $version += 0; # force number + return $version; + } + } + + return 0; # didn't find the file or the version number +} + +1; + +__END__ +
diff --git a/2_0_13/lib/Apache2/XSLoader.pm b/2_0_13/lib/Apache2/XSLoader.pm new file mode 100644 index 0000000..0c848a1 --- /dev/null +++ b/2_0_13/lib/Apache2/XSLoader.pm
@@ -0,0 +1,37 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::XSLoader; + +use strict; +use warnings FATAL => 'all'; + +use XSLoader (); + +BEGIN { + unless (defined &BOOTSTRAP) { + *BOOTSTRAP = sub () { 0 }; + } +} + +sub load { + return unless BOOTSTRAP; + # do not change the next line and do not insert anything below it in this + # function. XSLoader::load depends on it. + goto &XSLoader::load; +} + +1;
diff --git a/2_0_13/lib/Apache2/compat.pm b/2_0_13/lib/Apache2/compat.pm new file mode 100644 index 0000000..2a1a8d7 --- /dev/null +++ b/2_0_13/lib/Apache2/compat.pm
@@ -0,0 +1,873 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::compat; + +use strict; +use warnings FATAL => 'all'; +no warnings 'redefine'; + +#1.xx compat layer +#some of this will stay as-is +#some will be implemented proper later on + +#there's enough here to get simple registry scripts working +#add to startup.pl: +#use Apache2::compat (); +#use lib ...; #or something to find 1.xx Apache2::Registry + +#Alias /perl /path/to/perl/scripts +#<Location /perl> +# Options +ExecCGI +# SetHandler modperl +# PerlResponseHandler Apache2::Registry +#</Location> + +use Apache2::Connection (); +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Access (); +use Apache2::Module (); +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use Apache2::Response (); +use Apache2::SubRequest (); +use Apache2::Filter (); +use Apache2::Util (); +use Apache2::Log (); +use Apache2::URI (); +use APR::Date (); +use APR::Table (); +use APR::Pool (); +use APR::URI (); +use APR::Util (); +use APR::Brigade (); +use APR::Bucket (); +use mod_perl2 (); + +use Symbol (); +use File::Spec (); + +use APR::Const -compile => qw(FINFO_NORM FINFO_PROT); + +use constant WIN32 => ($^O eq "MSWin32"); + +BEGIN { + $INC{'Apache.pm'} = __FILE__; + + $INC{'Apache/Constants.pm'} = __FILE__; + + $INC{'Apache/File.pm'} = __FILE__; + + $INC{'Apache/Table.pm'} = __FILE__; +} + +($Apache::Server::Starting, $Apache::Server::ReStarting) = + Apache2::ServerUtil::restart_count() == 1 ? (1, 0) : (0, 1); + +# api => "overriding code" +# the overriding code, needs to "return" the original CODE reference +# when eval'ed , so that it can be restored later +my %overridable_mp2_api = ( + 'Apache2::RequestRec::filename' => <<'EOI', +{ + require Apache2::RequestRec; + require APR::Finfo; + my $orig_sub = *Apache2::RequestRec::filename{CODE}; + *Apache2::RequestRec::filename = sub { + my ($r, $newfile) = @_; + my $old_filename; + if (defined $newfile) { + $old_filename = $r->$orig_sub($newfile); + die "'$newfile' doesn't exist" unless -e $newfile; + my $wanted = APR::Const::FINFO_NORM; + if (WIN32) { + $wanted &= ~APR::Const::FINFO_PROT; + } + $r->finfo(APR::Finfo::stat($newfile, $wanted, $r->pool)); + } + else { + $old_filename = $r->$orig_sub(); + } + return $old_filename; + }; + $orig_sub; +} + +EOI + 'Apache2::RequestRec::notes' => <<'EOI', +{ + require Apache2::RequestRec; + my $orig_sub = *Apache2::RequestRec::notes{CODE}; + *Apache2::RequestRec::notes = sub { + my $r = shift; + return wantarray() + ? ($r->table_get_set(scalar($r->$orig_sub), @_)) + : scalar($r->table_get_set(scalar($r->$orig_sub), @_)); + }; + $orig_sub; +} +EOI + + 'Apache2::RequestRec::finfo' => <<'EOI', +{ + require APR::Finfo; + my $orig_sub = *APR::Finfo::finfo{CODE}; + sub Apache2::RequestRec::finfo { + my $r = shift; + stat $r->filename; + \*_; + } + $orig_sub; +} +EOI + + 'Apache2::Connection::local_addr' => <<'EOI', +{ + require Apache2::Connection; + require Socket; + require APR::SockAddr; + my $orig_sub = *Apache2::Connection::local_addr{CODE}; + *Apache2::Connection::local_addr = sub { + my $c = shift; + Socket::pack_sockaddr_in($c->$orig_sub->port, + Socket::inet_aton($c->$orig_sub->ip_get)); + }; + $orig_sub; +} +EOI + + 'Apache2::Connection::remote_addr' => <<'EOI', +{ + require Apache2::Connection; + require APR::SockAddr; + require Socket; + my $orig_sub; + if (defined *Apache2::Connection::client_addr{CODE}) { # httpd-2.4 + $orig_sub = *Apache2::Connection::client_addr{CODE}; + } else { # httpd-2.2 + $orig_sub = *Apache2::Connection::remote_addr{CODE}; + } + *Apache2::Connection::remote_addr = sub { + my $c = shift; + if (@_) { + my $addr_in = shift; + my ($port, $addr) = Socket::unpack_sockaddr_in($addr_in); + $c->$orig_sub->ip_set($addr); + $c->$orig_sub->port_set($port); + } + else { + Socket::pack_sockaddr_in($c->$orig_sub->port, + Socket::inet_aton($c->$orig_sub->ip_get)); + } + }; + $orig_sub; +} +EOI + + 'Apache2::Module::top_module' => <<'EOI', +{ + require Apache2::Module; + my $orig_sub = *Apache2::Module::top_module{CODE}; + *Apache2::Module::top_module = sub { + shift; + $orig_sub->(@_); + }; + $orig_sub; +} +EOI + + 'Apache2::Module::get_config' => <<'EOI', +{ + require Apache2::Module; + my $orig_sub = *Apache2::Module::get_config{CODE}; + *Apache2::Module::get_config = sub { + shift; + $orig_sub->(@_); + }; + $orig_sub; +} +EOI + + 'APR::URI::unparse' => <<'EOI', +{ + require APR::URI; + my $orig_sub = *APR::URI::unparse{CODE}; + *APR::URI::unparse = sub { + my ($uri, $flags) = @_; + + if (defined $uri->hostname && !defined $uri->scheme) { + # we do this only for back compat, the new APR::URI is + # protocol-agnostic and doesn't fallback to 'http' when the + # scheme is not provided + $uri->scheme('http'); + } + + $orig_sub->(@_); + }; + $orig_sub; +} +EOI + + 'Apache2::Util::ht_time' => <<'EOI', +{ + require Apache2::Util; + my $orig_sub = *Apache2::Util::ht_time{CODE}; + *Apache2::Util::ht_time = sub { + my $r = Apache2::compat::request('Apache2::Util::ht_time'); + return $orig_sub->($r->pool, @_); + }; + $orig_sub; +} + +EOI + +); + +my %overridden_mp2_api = (); + +# this function enables back-compatible APIs which can't coexist with +# mod_perl 2.0 APIs with the same name and therefore it should be +# avoided if possible. +# +# it expects a list of fully qualified functions, like +# "Apache2::RequestRec::finfo" +sub override_mp2_api { + my (@subs) = @_; + + for my $sub (@subs) { + unless (exists $overridable_mp2_api{$sub}) { + die __PACKAGE__ . ": $sub is not overridable"; + } + if (exists $overridden_mp2_api{$sub}) { + warn __PACKAGE__ . ": $sub has been already overridden"; + next; + } + $overridden_mp2_api{$sub} = eval $overridable_mp2_api{$sub}; + if ($@) { + die "error overriding $sub : $@"; + } + unless (exists $overridden_mp2_api{$sub} && + ref($overridden_mp2_api{$sub}) eq 'CODE') { + die "overriding $sub didn't return a CODE ref"; + } + } +} + +# restore_mp2_api does the opposite of override_mp2_api(), it removes +# the overriden API and restores the original mod_perl 2.0 API +sub restore_mp2_api { + my (@subs) = @_; + + for my $sub (@subs) { + unless (exists $overridable_mp2_api{$sub}) { + die __PACKAGE__ . ": $sub is not overridable"; + } + unless (exists $overridden_mp2_api{$sub}) { + warn __PACKAGE__ . ": can't restore $sub, " . + "as it has not been overridden"; + next; + } + # XXX: 5.8.2+ can't delete and assign at once - gives: + # Attempt to free unreferenced scalar + # after perl_clone. the 2 step works ok. to reproduce: + # t/TEST -maxclients 1 perl/ithreads2.t compat/request.t + my $original_sub = $overridden_mp2_api{$sub}; + delete $overridden_mp2_api{$sub}; + no warnings 'redefine'; + no strict 'refs'; + *$sub = $original_sub; + } +} + +sub request { + my $what = shift; + + my $r = Apache2::RequestUtil->request; + + unless ($r) { + die "cannot use $what ", + "without 'SetHandler perl-script' ", + "or 'PerlOptions +GlobalRequest'"; + } + + $r; +} + +{ + my $orig_sub = *Apache2::Module::top_module{CODE}; + *Apache2::Module::top_module = sub { + $orig_sub->(); + }; +} + +{ + my $orig_sub = *Apache2::Module::get_config{CODE}; + *Apache2::Module::get_config = sub { + shift if $_[0] eq 'Apache2::Module'; + $orig_sub->(@_); + }; +} + +package Apache::Server; +# XXX: is that good enough? see modperl/src/modules/perl/mod_perl.c:367 +our $CWD = Apache2::ServerUtil::server_root(); + +our $AddPerlVersion = 1; + +sub warn { + shift if @_ and $_[0] eq 'Apache::Server'; + Apache2::ServerRec::warn(@_); +} + +package Apache; + +sub request { + return Apache2::compat::request(@_); +} + +sub unescape_url_info { + my ($class, $string) = @_; + Apache2::URI::unescape_url($string); + $string =~ tr/+/ /; + $string; +} + +#sorry, have to use $r->Apache2::args at the moment +#for list context splitting + +sub args { + my $r = shift; + my $args = $r->args; + return $args unless wantarray; + return $r->parse_args($args); +} + +sub server_root_relative { + my $class = shift; + if (@_ && defined($_[0]) && File::Spec->file_name_is_absolute($_[0])) { + return File::Spec->catfile(@_); + } + else { + File::Spec->catfile(Apache2::ServerUtil::server_root(), @_); + } +} + +sub exit { + require ModPerl::Util; + + my $status = 0; + my $nargs = @_; + + if ($nargs == 2) { + $status = $_[1]; + } + elsif ($nargs == 1 and $_[0] =~ /^\d+$/) { + $status = $_[0]; + } + + ModPerl::Util::exit($status); +} + +#XXX: warn +sub import { +} + +sub untaint { + shift; + require ModPerl::Util; + ModPerl::Util::untaint(@_); +} + +sub module { + require Apache2::Module; + die 'Usage: Apache2->module($name)' if @_ != 2; + return Apache2::Module::loaded($_[1]); +} + +sub gensym { + return Symbol::gensym(); +} + +sub define { + shift if @_ == 2; + Apache2::ServerUtil::exists_config_define(@_); +} + +sub log_error { + Apache2::ServerUtil->server->log_error(@_); +} + +sub warn { + shift if @_ and $_[0] eq 'Apache'; + Apache2::ServerRec::warn(@_); +} + +sub httpd_conf { + shift; + my $obj; + eval { $obj = Apache2::RequestUtil->request }; + $obj = Apache2::ServerUtil->server if $@; + my $err = $obj->add_config([split /\n/, join '', @_]); + die $err if $err; +} + +# mp2 always can stack handlers +sub can_stack_handlers { 1; } + +sub push_handlers { + shift; + Apache2::ServerUtil->server->push_handlers(@_); +} + +sub set_handlers { + shift; + Apache2::ServerUtil->server->set_handlers(@_); +} + +sub get_handlers { + shift; + Apache2::ServerUtil->server->get_handlers(@_); +} + +package Apache::Constants; + +use Apache2::Const (); + +sub import { + my $class = shift; + my $package = scalar caller; + + my @args = @_; + + # treat :response as :common - it's not perfect + # but simple and close enough for the majority + my %args = map { s/^:response$/:common/; $_ => 1 } @args; + + Apache2::Const->compile($package => keys %args); +} + +#no need to support in 2.0 +sub export {} + +sub SERVER_VERSION { Apache2::ServerUtil::get_server_version() } + +package Apache2::RequestRec; + +use Apache2::Const -compile => qw(REMOTE_NAME); + +#no longer exist in 2.0 +sub soft_timeout {} +sub hard_timeout {} +sub kill_timeout {} +sub reset_timeout {} + +# this function is from mp1's Apache2::SubProcess 3rd party module +# which is now a part of mp2 API. this function doesn't exist in 2.0. +sub cleanup_for_exec {} + +sub current_callback { + require ModPerl::Util; + return ModPerl::Util::current_callback(); +} + +sub send_http_header { + my ($r, $type) = @_; + + # since send_http_header() in mp1 was telling mod_perl not to + # parse headers and in mp2 one must call $r->content_type($type) to + # perform the same, we make sure that this happens + $type = $r->content_type || 'text/html' unless defined $type; + + $r->content_type($type); +} + +#we support Apache2::RequestUtil->request; this is needed to support $r->request +#XXX: seems sorta backwards +*request = \&Apache2::request; + +sub table_get_set { + my ($r, $table) = (shift, shift); + my ($key, $value) = @_; + + if (1 == @_) { + return wantarray() + ? ($table->get($key)) + : scalar($table->get($key)); + } + elsif (2 == @_) { + if (defined $value) { + return wantarray() + ? ($table->set($key, $value)) + : scalar($table->set($key, $value)); + } + else { + return wantarray() + ? ($table->unset($key)) + : scalar($table->unset($key)); + } + } + elsif (0 == @_) { + return $table; + } + else { + my $name = (caller(1))[3]; + $r->warn("Usage: \$r->$name([key [,val]])"); + } +} + +sub header_out { + my $r = shift; + return wantarray() + ? ($r->table_get_set(scalar($r->headers_out), @_)) + : scalar($r->table_get_set(scalar($r->headers_out), @_)); +} + +sub header_in { + my $r = shift; + return wantarray() + ? ($r->table_get_set(scalar($r->headers_in), @_)) + : scalar($r->table_get_set(scalar($r->headers_in), @_)); +} + +sub err_header_out { + my $r = shift; + return wantarray() + ? ($r->table_get_set(scalar($r->err_headers_out), @_)) + : scalar($r->table_get_set(scalar($r->err_headers_out), @_)); +} + + +sub register_cleanup { + shift->pool->cleanup_register(@_); +} + +*post_connection = \®ister_cleanup; + +sub get_remote_host { + my ($r, $type) = @_; + $type = Apache2::Const::REMOTE_NAME unless defined $type; + $r->connection->get_remote_host($type, $r->per_dir_config); +} + +sub parse_args { + my ($r, $string) = @_; + return () unless defined $string and $string; + + return map { + tr/+/ /; + s/%([0-9a-fA-F]{2})/pack("C",hex($1))/ge; + $_; + } split /[=&;]/, $string, -1; +} + +use Apache2::Const -compile => qw(MODE_READBYTES); +use APR::Const -compile => qw(SUCCESS BLOCK_READ); + +use constant IOBUFSIZE => 8192; + +sub content { + my $r = shift; + + my $bb = APR::Brigade->new($r->pool, + $r->connection->bucket_alloc); + + my $data = ''; + my $seen_eos = 0; + do { + $r->input_filters->get_brigade($bb, Apache2::Const::MODE_READBYTES, + APR::Const::BLOCK_READ, IOBUFSIZE); + while (!$bb->is_empty) { + my $b = $bb->first; + + if ($b->is_eos) { + $seen_eos++; + last; + } + + if ($b->read(my $buf)) { + $data .= $buf; + } + + $b->delete; + } + } while (!$seen_eos); + + $bb->destroy; + + return $data unless wantarray; + return $r->parse_args($data); +} + +sub server_root_relative { + my $r = shift; + File::Spec->catfile(Apache2::ServerUtil::server_root(), @_); +} + +sub clear_rgy_endav { + my ($r, $script_name) = @_; + require ModPerl::Global; + my $package = 'Apache2::ROOT' . $script_name; + ModPerl::Global::special_list_clear(END => $package); +} + +sub stash_rgy_endav { + #see run_rgy_endav +} + +#if somebody really wants to have END subroutine support +#with the 1.x Apache2::Registry they will need to configure: +# PerlHandler Apache2::Registry Apache2::compat::run_rgy_endav +sub Apache2::compat::run_rgy_endav { + my $r = shift; + + require ModPerl::Global; + require Apache2::PerlRun; #1.x's + my $package = Apache2::PerlRun->new($r)->namespace; + + ModPerl::Global::special_list_call(END => $package); +} + +sub seqno { + 1; +} + +sub chdir_file { + #XXX resolve '.' in @INC to basename $r->filename +} + +#XXX: would like to have a proper implementation +#that reads line-by-line as defined by $/ +#the best way will probably be to use perlio in 5.8.0 +#anything else would be more effort than it is worth +sub READLINE { + my $r = shift; + my $line; + $r->read($line, $r->headers_in->get('Content-length')); + $line ? $line : undef; +} + +#XXX: howto convert PerlIO to apr_file_t +#so we can use the real ap_send_fd function +#2.0 ap_send_fd() also has an additional offset parameter + +sub send_fd_length { + my ($r, $fh, $length) = @_; + + my $buff; + my $total_bytes_sent = 0; + my $len; + + return 0 if $length == 0; + + if (($length > 0) && ($total_bytes_sent + IOBUFSIZE) > $length) { + $len = $length - $total_bytes_sent; + } + else { + $len = IOBUFSIZE; + } + + binmode $fh; + + while (CORE::read($fh, $buff, $len)) { + $total_bytes_sent += $r->puts($buff); + } + + $total_bytes_sent; +} + +sub send_fd { + my ($r, $fh) = @_; + $r->send_fd_length($fh, -1); +} + +sub is_main { !shift->main } + +# really old back-compat methods, they shouldn't be used in mp1 +*cgi_var = *cgi_env = \&Apache2::RequestRec::subprocess_env; + +package Apache::File; + +use Fcntl (); +use Symbol (); +use Carp (); + +sub new { + my ($class) = shift; + my $fh = Symbol::gensym; + my $self = bless $fh, ref($class)||$class; + if (@_) { + return $self->open(@_) ? $self : undef; + } + else { + return $self; + } +} + +sub open { + my ($self) = shift; + + Carp::croak("no Apache2::File object passed") + unless $self && ref($self); + + # cannot forward @_ to open() because of its prototype + if (@_ > 1) { + my ($mode, $file) = @_; + CORE::open $self, $mode, $file; + } + else { + my $file = shift; + CORE::open $self, $file; + } +} + +sub close { + my ($self) = shift; + CORE::close $self; +} + +my $TMPNAM = 'aaaaaa'; +my $TMPDIR = $ENV{'TMPDIR'} || $ENV{'TEMP'} || '/tmp'; +($TMPDIR) = $TMPDIR =~ /^([^<>|;*]+)$/; #untaint +my $Mode = Fcntl::O_RDWR()|Fcntl::O_EXCL()|Fcntl::O_CREAT(); +my $Perms = 0600; + +sub tmpfile { + my $class = shift; + my $limit = 100; + my $r = Apache2::compat::request('Apache::File->tmpfile'); + + while ($limit--) { + my $tmpfile = "$TMPDIR/${$}" . $TMPNAM++; + my $fh = $class->new; + + sysopen $fh, $tmpfile, $Mode, $Perms + or die "failed to open $tmpfile: $!"; + $r->pool->cleanup_register(sub { unlink $tmpfile }); + + if ($fh) { + return wantarray ? ($tmpfile, $fh) : $fh; + } + } +} + +# the following functions now live in Apache2::RequestIO +# * discard_request_body + +# the following functions now live in Apache2::Response +# * meets_conditions +# * set_content_length +# * set_etag +# * set_last_modified +# * update_mtime + +# the following functions now live in Apache2::RequestRec +# * mtime + +package Apache::Util; + +sub size_string { + my ($size) = @_; + + if (!$size) { + $size = " 0k"; + } + elsif ($size == -1) { + $size = " -"; + } + elsif ($size < 1024) { + $size = " 1k"; + } + elsif ($size < 1048576) { + $size = sprintf "%4dk", ($size + 512) / 1024; + } + elsif ($size < 103809024) { + $size = sprintf "%4.1fM", $size / 1048576.0; + } + else { + $size = sprintf "%4dM", ($size + 524288) / 1048576; + } + + return $size; +} + +*unescape_uri = \&Apache2::URI::unescape_url; + +*escape_path = \&Apache2::Util::escape_path; + +sub escape_uri { + my $path = shift; + my $r = Apache2::compat::request('Apache2::Util::escape_uri'); + Apache2::Util::escape_path($path, $r->pool); +} + +#tmp compat until ap_escape_html is reworked to not require a pool +my %html_escapes = ( + '<' => 'lt', + '>' => 'gt', + '&' => 'amp', + '"' => 'quot', +); + +%html_escapes = map { $_, "&$html_escapes{$_};" } keys %html_escapes; + +my $html_escape = join '|', keys %html_escapes; + +sub escape_html { + my $html = shift; + $html =~ s/($html_escape)/$html_escapes{$1}/go; + $html; +} + +*parsedate = \&APR::Date::parse_http; + +*validate_password = \&APR::Util::password_validate; + +sub Apache2::URI::parse { + my ($class, $r, $uri) = @_; + + $uri ||= $r->construct_url; + + APR::URI->parse($r->pool, $uri); +} + +package Apache::Table; + +sub new { + my ($class, $r, $nelts) = @_; + $nelts ||= 10; + APR::Table::make($r->pool, $nelts); +} + +package Apache::SIG; + +use Apache2::Const -compile => 'DECLINED'; + +sub handler { + # don't set the SIGPIPE + return Apache2::Const::DECLINED; +} + +package Apache2::Connection; + +# auth_type and user records don't exist in 2.0 conn_rec struct +# 'PerlOptions +GlobalRequest' is required +sub auth_type { shift; Apache2::RequestUtil->request->ap_auth_type(@_) } +sub user { shift; Apache2::RequestUtil->request->user(@_) } + +1; +__END__
diff --git a/2_0_13/lib/Apache2/porting.pm b/2_0_13/lib/Apache2/porting.pm new file mode 100644 index 0000000..2432604 --- /dev/null +++ b/2_0_13/lib/Apache2/porting.pm
@@ -0,0 +1,105 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::porting; + +use strict; +use warnings FATAL => 'all'; + +use Carp 'croak'; + +use ModPerl::MethodLookup (); +use Apache2::ServerUtil; + +use Apache2::Const -compile => 'OK'; + +our $AUTOLOAD; + +### methods ### +# handle: +# - removed and replaced methods +# - hinting the package names in which methods reside + +my %avail_methods = map { $_ => 1 } + (ModPerl::MethodLookup::avail_methods(), + ModPerl::MethodLookup::avail_methods_compat()); + +# XXX: unfortunately it doesn't seem to be possible to install +# *UNIVERSAL::AUTOLOAD at the server startup, httpd segfaults, +# child_init seems to be the first stage where it works. +Apache2::ServerUtil->server->push_handlers( + PerlChildInitHandler => \&porting_autoload); + +sub porting_autoload { + *UNIVERSAL::AUTOLOAD = sub { + # This is a porting module, no compatibility layers are allowed in + # this zone + croak("Apache2::porting can't be used with Apache2::compat") + if exists $ENV{"Apache2/compat.pm"}; + + (my $method = $AUTOLOAD) =~ s/.*:://; + + # we skip DESTROY methods + return if $method eq 'DESTROY'; + + # we don't handle methods that we don't know about + croak "Undefined subroutine $AUTOLOAD called" + unless defined $method && exists $avail_methods{$method}; + + my ($hint, @modules) = + ModPerl::MethodLookup::lookup_method($method, @_); + $hint ||= "Can't find method $AUTOLOAD"; + croak $hint; + }; + + return Apache2::Const::OK; +} + +### packages ### +# handle: +# - removed and replaced packages + +my %packages = ( + 'Apache::Constants' => [qw(Apache2::Const)], + 'Apache::Table' => [qw(APR::Table)], + 'Apache::File' => [qw(Apache2::Response Apache2::RequestRec)], + 'Apache' => [qw(ModPerl::Util Apache2::Module)], +); + +BEGIN { + sub my_require { + my $package = $_[0]; + $package =~ s|/|::|g; + $package =~ s|.pm$||; + + # this picks the original require (which could be overriden + # elsewhere, so we don't lose that) because we haven't + # overriden it yet + return require $_[0] unless $packages{$package}; + + my $msg = "mod_perl 2.0 API doesn't include package '$package'."; + my @replacements = @{ $packages{$package}||[] }; + if (@replacements) { + $msg .= " The package '$package' has moved to " . + join " ", map qq/'$_'/, @replacements; + } + croak $msg; + }; + + *CORE::GLOBAL::require = sub (*) { my_require($_[0])}; +} + +1;
diff --git a/2_0_13/lib/Bundle/Apache2.pm b/2_0_13/lib/Bundle/Apache2.pm new file mode 100644 index 0000000..7b9ec42 --- /dev/null +++ b/2_0_13/lib/Bundle/Apache2.pm
@@ -0,0 +1,70 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Bundle::Apache2; + +$VERSION = '1.00'; + +1; + +__END__ + +=head1 NAME + +Bundle::Apache2 - Install Apache mod_perl2 and related modules + + + +=head1 SYNOPSIS + +C<perl -MCPAN -e 'install Bundle::Apache2'> + + + +=head1 CONTENTS + +Bundle::ApacheTest - Needs for testing + +CGI 3.11 - Used in testing (it's in core, but some vendors exclude it) + +Chatbot::Eliza - Used in testing + +Compress::Zlib - Used in testing + +Devel::Symdump - Symbol table browsing with Apache::Status + +HTML::HeadParser - Used in testing + +IPC::Run3 - Used in testing + +LWP - Used in testing + + + + +=head1 DESCRIPTION + +This bundle contains modules used by Apache mod_perl2. + +Asking CPAN.pm to install a bundle means to install the bundle itself +along with all the modules contained in the CONTENTS section +above. Modules that are up to date are not installed, of course. + + + +=head1 AUTHOR + +mod_perl 2 development team
diff --git a/2_0_13/lib/ModPerl/BuildMM.pm b/2_0_13/lib/ModPerl/BuildMM.pm new file mode 100644 index 0000000..849f35e --- /dev/null +++ b/2_0_13/lib/ModPerl/BuildMM.pm
@@ -0,0 +1,377 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::BuildMM; + +use strict; +use warnings; + +use ExtUtils::MakeMaker (); +use Cwd (); +use File::Spec::Functions qw(catdir catfile splitdir); +use File::Basename; +use File::Find; + +use Apache2::Build (); +use ModPerl::MM; +use constant WIN32 => Apache2::Build::WIN32; +use constant CYGWIN => Apache2::Build::CYGWIN; + +our %PM; #add files to installation + +# MM methods that this package overrides +no strict 'refs'; +my $stash = \%{__PACKAGE__ . '::MY::'}; +my @methods = grep *{$stash->{$_}}{CODE}, keys %$stash; +ModPerl::MM::override_eu_mm_mv_all_methods(@methods); +use strict 'refs'; + +my $apache_test_dir = catdir Cwd::getcwd(), "Apache-Test", "lib"; + +#to override MakeMaker MOD_INSTALL macro +sub mod_install { + q{$(PERL) -I$(INST_LIB) -I$(PERL_LIB) \\}."\n" . + qq{-I$apache_test_dir -MModPerl::BuildMM \\}."\n" . + q{-e "ExtUtils::Install::install({@ARGV},'$(VERBINST)',0,'$(UNINST)');"}."\n"; +} + +my $build; + +sub build_config { + my $key = shift; + $build ||= Apache2::Build->build_config; + return $build unless $key; + $build->{$key}; +} + +#the parent WriteMakefile moves MY:: methods into a different class +#so alias them each time WriteMakefile is called in a subdir + +sub my_import { + no strict 'refs'; + my $stash = \%{__PACKAGE__ . '::MY::'}; + for my $sym (keys %$stash) { + next unless *{$stash->{$sym}}{CODE}; + my $name = "MY::$sym"; + undef &$name if defined &$name; + *$name = *{$stash->{$sym}}{CODE}; + } +} + +sub WriteMakefile { + my %args = @_; + + $build ||= build_config(); + ModPerl::MM::my_import(__PACKAGE__); + + my $inc = $args{INC} || ''; + $inc = $args{INC} if $args{INC}; + $inc .= " " . $build->inc; + if (my $glue_inc = $build->{MP_XS_GLUE_DIR}) { + for (split /\s+/, $glue_inc) { + $inc .= " -I$_"; + } + } + + my $libs; + my @libs = (); + push @libs, $args{LIBS} if $args{LIBS}; + if (Apache2::Build::BUILD_APREXT) { + # in order to decouple APR/APR::* from mod_perl.so, + # link these modules against the static MP_APR_LIB lib, + # rather than the mod_perl lib (which would demand mod_perl.so + # be available). For other modules, use mod_perl.lib as + # usual. This is done for APR in xs/APR/APR/Makefile.PL. + my $name = $args{NAME}; + if ($name =~ /^APR::\w+$/) { + # For cygwin compatibility, the order of the libs should be + # <mod_perl libs> <apache libs> + @libs = ($build->mp_apr_lib, $build->apache_libs); + } + else { + @libs = ($build->modperl_libs, $build->apache_libs); + } + } + else { + @libs = ($build->modperl_libs, $build->apache_libs); + } + $libs = join ' ', @libs; + + my $ccflags; + $ccflags = $args{CCFLAGS} if $args{CCFLAGS}; + $ccflags = " " . $build->perl_ccopts . $build->ap_ccopts; + + my $optimize; + $optimize = $args{OPTIMIZE} if $args{OPTIMIZE}; + $optimize = " " . $build->perl_config('optimize'); + + my $lddlflags; + $lddlflags = $args{LDDLFLAGS} if $args{LDDLFLAGS}; + $lddlflags = " " . $build->perl_config('lddlflags'); + + my %dynamic_lib; + %dynamic_lib = %{ $args{dynamic_lib}||{} } if $args{dynamic_lib}; + $dynamic_lib{OTHERLDFLAGS} = $build->otherldflags; + + my @opts = ( + INC => $inc, + CCFLAGS => $ccflags, + OPTIMIZE => $optimize, + LDDLFLAGS => $lddlflags, + LIBS => $libs, + dynamic_lib => \%dynamic_lib, + ); + + my @typemaps; + push @typemaps, $args{TYPEMAPS} if $args{TYPEMAPS}; + my $pwd = Cwd::fastcwd(); + for ('xs', $pwd, "$pwd/..") { + my $typemap = $build->file_path("$_/typemap"); + if (-e $typemap) { + push @typemaps, $typemap; + } + } + push @opts, TYPEMAPS => \@typemaps if @typemaps; + + my $clean_files = (exists $args{clean} && exists $args{clean}{FILES}) ? + $args{clean}{FILES} : ''; + $clean_files .= " glue_pods"; # cleanup the dependency target + $args{clean}{FILES} = $clean_files; + + ExtUtils::MakeMaker::WriteMakefile(@opts, %args); +} + +my %always_dynamic = map { $_, 1 } + qw(ModPerl::Const Apache2::Const APR::Const APR APR::PerlIO); + +sub ModPerl::BuildMM::MY::constants { + my $self = shift; + $build ||= build_config(); + + #"discover" xs modules. since there is no list hardwired + #any module can be unpacked in the mod_perl-2.xx directory + #and built static + + #this stunt also make it possible to leave .xs files where + #they are, unlike 1.xx where *.xs live in src/modules/perl + #and are copied to subdir/ if DYNAMIC=1 + + if ($build->{MP_STATIC_EXTS}) { + #skip .xs -> .so if we are linking static + my $name = $self->{NAME}; + unless ($always_dynamic{$name}) { + if (my ($xs) = keys %{ $self->{XS} }) { + $self->{HAS_LINK_CODE} = 0; + print "$name will be linked static\n"; + #propagate static xs module to src/modules/perl/Makefile + $build->{XS}->{$name} = + join '/', Cwd::fastcwd(), $xs; + $build->save; + } + } + } + + $self->MM::constants; +} + +sub ModPerl::BuildMM::MY::top_targets { + my $self = shift; + my $string = $self->MM::top_targets; + + return $string; +} + +sub ModPerl::BuildMM::MY::postamble { + my $self = shift; + + my $doc_root = catdir Cwd::getcwd(), "docs", "api"; + + my @targets = (); + + # reasons for glueing pods to the respective .pm files: + # - manpages will get installed over the mp1 manpages and vice + # versa. glueing pods avoids creation of manpages, but may be we + # could just tell make to skip manpages creation? + # if pods are installed directly they need to be also redirected, + # some into Apache2/ others (e.g. Apache2) not + + # add the code to glue the existing pods to the .pm files in blib. + # create a dependency on pm_to_blib subdirs linkext targets to + # allow 'make -j' + require ExtUtils::MakeMaker; + my $mm_ver = $ExtUtils::MakeMaker::VERSION; + $mm_ver =~ s/_.*//; # handle dev versions like 6.30_01 + my $pm_to_blib = ($mm_ver >= 6.22 && $mm_ver <= 6.25) + ? "pm_to_blib.ts" + : "pm_to_blib"; + my @target = ("glue_pods: $pm_to_blib subdirs linkext"); + + if (-d $doc_root) { + my $build = build_config(); + + # those living in modperl-2.0/lib are already nicely mapped + my %pms = %{ $self->{PM} }; + + my $cwd = Cwd::getcwd(); + my $blib_dir = catdir qw(blib lib); + + # those autogenerated under WrapXS/ + # those living under xs/ + # those living under ModPerl-Registry/lib/ + my @src = ('WrapXS', 'xs', catdir(qw(ModPerl-Registry lib))); + + for my $base (@src) { + chdir $base; + my @files = (); + find({ no_chdir => 1, + wanted => sub { push @files, $_ if /.pm$/ }, + }, "."); + chdir $cwd; + + for (@files) { + my $pm = catfile $base, $_; + my $blib; + if ($base =~ /^(xs|WrapXS)/) { + my @segm = splitdir $_; + splice @segm, -2, 1; # xs/APR/Const/Const.pm + splice @segm, -2, 1 if /APR.pm/; # odd case + $blib = catfile $blib_dir, @segm; + } + else { + $blib = catfile $blib_dir, $_; + } + $pms{$pm} = $blib; + } + } + + foreach my $pm (sort keys %pms) { + my $blib = $pms{$pm}; + $pm =~ s|/\./|/|g; # clean the path + $blib =~ s|/\./|/|g; # clean the path + my @segm = splitdir $blib; + for my $i (1..2) { + # try APR.pm and APR/Bucket.pm + my $pod = catdir(@segm[-$i .. -1]); + $pod =~ s/\.pm/\.pod/; + my $podpath = catfile $doc_root, $pod; + next unless -r $podpath; + + push @target, + '$(FULLPERL) -I$(INST_LIB) ' . + "-I$apache_test_dir -MModPerl::BuildMM " . + "-e ModPerl::BuildMM::glue_pod $pm $podpath $blib"; + + # Win32 doesn't normally install man pages + # and Cygwin doesn't allow '::' in file names + next if WIN32 || CYGWIN; + + # manify while we're at it + my (undef, $man, undef) = $blib =~ m!(blib/lib/)(.*)(\.pm)!; + $man =~ s!/!::!g; + + push @target, + '$(NOECHO) $(POD2MAN_EXE) --section=3 ' . + "$podpath \$(INST_MAN3DIR)/$man.\$(MAN3EXT)" + } + } + + push @target, $self->{NOECHO} . '$(TOUCH) $@'; + } + else { + # we don't have the docs sub-cvs repository extracted, skip + # the docs gluing + push @target, $self->{NOECHO} . '$(NOOP)'; + } + push @targets, join "\n\t", @target; + +# # next target: cleanup the dependency file +# @target = ('glue_pods_clean:'); +# push @target, '$(RM_F) glue_pods'; +# push @targets, join "\n\t", @target; + + return join "\n\n", @targets, ''; +} + +sub glue_pod { + + die "expecting 3 arguments: pm, pod, dst" unless @ARGV == 3; + my ($pm, $pod, $dst) = @ARGV; + + # it's possible that the .pm file is not existing + # (e.g. ThreadMutex.pm is not created on unless + # $apr_config->{HAS_THREADS}) + return unless -e $pm && -e $dst; + + # have we already glued the doc? + exit 0 unless -s $pm == -s $dst; + + # ExtUtils::Install::pm_to_blib removes the 'w' perms, so we can't + # just append the doc there + my $orig_mode = (stat $dst)[2]; + my $rw_mode = 0666; + + chmod $rw_mode, $dst or die "Can't chmod $rw_mode $dst: $!"; + open my $pod_fh, "<$pod" or die "Can't open $pod: $!"; + open my $dst_fh, ">>$dst" or die "Can't open $dst: $!"; + print $dst_fh "\n"; # must add one line separation + print $dst_fh (<$pod_fh>); + close $pod_fh; + close $dst_fh; + # restore the perms + chmod $orig_mode, $dst or die "Can't chmod $orig_mode $dst: $!"; +} + +sub ModPerl::BuildMM::MY::post_initialize { + my $self = shift; + $build ||= build_config(); + my $pm = $self->{PM}; + + while (my ($k, $v) = each %PM) { + if (-e $k) { + $pm->{$k} = $v; + } + } + + # prefix typemap with Apache2/ so when installed in the + # perl-lib-tree it won't be picked by non-mod_perl modules + if (exists $pm->{'lib/typemap'} ) { + $pm->{'lib/typemap'} = '$(INST_ARCHLIB)/auto/Apache2/typemap'; + } + + ''; +} + +my $apr_config; + +sub ModPerl::BuildMM::MY::libscan { + my ($self, $path) = @_; + + $apr_config ||= $build->get_apr_config(); + + if ($path =~ m/(Thread|Global)(Mutex|RWLock)/) { + return unless $apr_config->{HAS_THREADS}; + } + + return '' if $path =~ /DummyVersions.pm/; + + return '' if $path =~ m/\.pl$/; + return '' if $path =~ m/~$/; + return '' if $path =~ /\B\.svn\b/; + + $path; +} + +1;
diff --git a/2_0_13/lib/ModPerl/BuildOptions.pm b/2_0_13/lib/ModPerl/BuildOptions.pm new file mode 100644 index 0000000..b54bd8e --- /dev/null +++ b/2_0_13/lib/ModPerl/BuildOptions.pm
@@ -0,0 +1,271 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::BuildOptions; + +use strict; +use warnings; + +use Apache2::Build (); +use Apache::TestTrace; +use Config (); +my $param_qr = qr([\s=]+); + +use constant VERBOSE => 1; +use constant UNKNOWN_FATAL => 2; + +use File::Spec; + +sub init { + my ($class, $build) = @_; + + #@ARGV should override what's in .makepl_args.mod_perl2 + #but @ARGV might also override the default MP_OPTS_FILE + #so snag that first + parse($build, [grep { /^MP_OPTIONS_FILE/ } @ARGV]); + parse_file($build); + parse_argv($build); + + # if AP_PREFIX is used apxs and apr-config from the apache build + # tree won't work, so it can't co-exist with APXS and APR_CONFIG + # options + if ($build->{MP_AP_PREFIX} and $build->{MP_APXS}) { + error "You need to pass either MP_AP_PREFIX or MP_APXS, but not both"; + die "\n"; + } + if ($build->{MP_AP_PREFIX} and $build->{MP_APR_CONFIG}) { + error "You need to pass either MP_AP_PREFIX or MP_APR_CONFIG, " . + "but not both"; + die "\n"; + } + + if ($build->{MP_DEBUG} and $build->{MP_USE_GTOP} and !$build->find_gtop) { + error "Can't find libgtop, resetting MP_USE_GTOP=0"; + $build->{MP_USE_GTOP} = 0; + } + + unless ($build->{MP_USE_DSO} or $build->{MP_USE_STATIC}) { + # default to DSO + $build->{MP_USE_DSO} = 1; + } + + $build->{MP_GENERATE_XS} = 1 unless exists $build->{MP_GENERATE_XS}; + + # define MP_COMPAT_1X unless explicitly told to disable it + $build->{MP_COMPAT_1X} = 1 + unless exists $build->{MP_COMPAT_1X} && !$build->{MP_COMPAT_1X}; + + # try to find apxs + if (!$build->{MP_AP_PREFIX} && !$build->{MP_APXS}) { + $build->find_apxs_util(); + + # make a last ditch effort to find apxs in $ENV{PATH} + if (!$build->{MP_APXS}) { + my @paths = split(/$Config::Config{path_sep}/, $ENV{PATH}); + my $potential_apxs; + while (!$potential_apxs) { + last if scalar(@paths) == 0; # don't loop endlessly + $potential_apxs = File::Spec->catfile(shift @paths, 'apxs'); + $potential_apxs .= '.bat' if Apache2::Build::WIN32(); + if (-e $potential_apxs && -x $potential_apxs) { + $build->{MP_APXS} = $potential_apxs; + } else { + undef $potential_apxs; + } + } + } + } +} + +sub parse { + my ($build, $lines, $opts) = @_; + + $opts = VERBOSE|UNKNOWN_FATAL unless defined $opts; + my $table = table(); + my @unknown; + my $continue = ""; + + my @data = (); + for (@$lines) { + chomp; + s/^\s+//; s/\s+$//; + next if /^\#/ || /^$/; + last if /^__END__/; + + # more than one entry on the same line (but make sure to leave + # -DMP_* alone) + push @data, split /(?=\WMP_)/, $_; + } + + for (@data) { + #XXX: this "parser" should be more robust + + s/^\s+//; s/\s+$//; + + $_ = "$continue $_" if $continue; + + #example: +"MP_CCOPTS=-Werror" if $] >= 5.007 + if (s/^\+//) { + $_ = eval $_; + } + + if (/^MP_/) { + my ($key, $val) = split $param_qr, $_, 2; + $val ||= "" unless defined $val && $val eq '0'; + $continue = $val =~ s/\\$// ? $key : ""; + + if (!$table->{$key} and $opts & UNKNOWN_FATAL) { + my $usage = usage(); + die "Unknown Option: $key\nUsage:\n$usage\n"; + } + + if ($key eq 'MP_APXS') { + $val = File::Spec->canonpath(File::Spec->rel2abs($val)); + } + + if ($key eq 'MP_AP_PREFIX') { + $val = File::Spec->canonpath(File::Spec->rel2abs($val)); + + if (Apache2::Build::WIN32()) { + # MP_AP_PREFIX may not contain spaces + require Win32; + $val = Win32::GetShortPathName($val); + } + + if (!$val || !-d $val) { + error "MP_AP_PREFIX must point to a valid directory."; + die "\n"; + } + } + + if ($table->{$key}->{append}){ + $build->{$key} = join " ", grep $_, $build->{$key}, $val; + } + else { + $build->{$key} = $val; + } + + print " $key = $val\n" if $opts & VERBOSE; + } + else { + push @unknown, $_; + } + } + + return \@unknown; +} + +sub parse_file { + my $build = shift; + + my $fh; + my @dirs = qw(./ ../ ./. ../.); + push @dirs, "$ENV{HOME}/." if exists $ENV{HOME}; + my @files = map { $_ . 'makepl_args.mod_perl2' } @dirs; + unshift @files, $build->{MP_OPTIONS_FILE} if $build->{MP_OPTIONS_FILE}; + + for my $file (@files) { + if (open $fh, $file) { + $build->{MP_OPTIONS_FILE} = $file; + last; + } + $fh = undef; + } + + return unless $fh; + + print "Reading Makefile.PL args from $build->{MP_OPTIONS_FILE}\n"; + my $unknowns = parse($build, [<$fh>]); + push @ARGV, @$unknowns if $unknowns; + + close $fh; +} + +sub parse_argv { + my $build = shift; + return unless @ARGV; + + my @args = @ARGV; + @ARGV = (); + + print "Reading Makefile.PL args from \@ARGV\n"; + my $unknowns = parse($build, \@args); + push @ARGV, @$unknowns if $unknowns; +} + +sub usage { + my $table = table(); + my @opts = map { "$_ - $table->{$_}->{val}" } sort keys %$table; + join "\n", @opts; +} + +sub parse_table { + my ($fh) = @_; + my %table; + local $_; + + while (<$fh>) { + chomp; + s/^\s+//; s/\s+$//; + next if /^\#/ || /^$/; + last if /^__END__/; + my ($key, $append, $val) = split /\s+/, $_, 3; + $table{'MP_' . $key} = { append => $append, val => $val }; + } + + return \%table; +} + +my $Table; + +sub table { + $Table ||= parse_table(\*DATA); +} + +1; + +# __DATA__ format: +# key append description +# where: +# key: is the option name +# append: is whether we want to replace a default option (0) +# or append the arg to the option (1) +# desc: description for this option + +__DATA__ +USE_GTOP 0 Link with libgtop and enable libgtop reporting +DEBUG 0 Turning on debugging (-g -lperld) and tracing +MAINTAINER 0 Maintainer mode: DEBUG=1 -DAP_DEBUG -Wall ... +CCOPTS 1 Add to compiler flags +TRACE 0 Turn on tracing +USE_DSO 0 Build mod_perl as a dso +USE_STATIC 0 Build mod_perl static +PROMPT_DEFAULT 0 Accept default value for all would-be prompts +OPTIONS_FILE 0 Read options from given file +STATIC_EXTS 0 Build Apache2::*.xs as static extensions +APXS 0 Path to apxs +AP_DESTDIR 0 Destination for Apache specific mod_perl bits +AP_PREFIX 0 Apache installation or source tree prefix +AP_CONFIGURE 0 Apache ./configure arguments +APR_CONFIG 0 Path to apr-config +APU_CONFIG 0 Path to apu-config +XS_GLUE_DIR 1 Directories containing extension glue +INCLUDE_DIR 1 Add directories to search for header files +GENERATE_XS 0 Generate XS code based on httpd version +LIBNAME 0 Name of the modperl dso library (default is mod_perl) +COMPAT_1X 0 Compile-time mod_perl 1.0 backcompat (default is on) +APR_LIB 0 Lib used to build APR::* on Win32 (default is aprext) +NO_THREADS 0 Build mod_perl without thread support with httpd >= 2.4
diff --git a/2_0_13/lib/ModPerl/CScan.pm b/2_0_13/lib/ModPerl/CScan.pm new file mode 100644 index 0000000..4985ef0 --- /dev/null +++ b/2_0_13/lib/ModPerl/CScan.pm
@@ -0,0 +1,1010 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package ModPerl::CScan; + +require Exporter; +use Config '%Config'; +use File::Basename; + +# NOTE to distributors: this module is needed only for mp2 developers, +# it's not a requirement for mod_perl users +use Data::Flow qw(0.05); + +use strict; # Earlier it catches ISA and EXPORT. + +@ModPerl::CScan::ISA = qw(Exporter Data::Flow); + +# Items to export into callers namespace by default. Note: do not export +# names by default without a very good reason. Use EXPORT_OK instead. +# Do not simply export all your public functions/methods/constants. + +@ModPerl::CScan::EXPORT = qw( + ); +@ModPerl::CScan::EXPORT_OK = qw( + ); +# this flag tells cpp to only output macros +$ModPerl::CScan::MACROS_ONLY = '-dM'; + +$ModPerl::CScan::VERSION = '0.75'; + +my (%keywords,%style_keywords); +for (qw(asm auto break case char continue default do double else enum + extern float for fortran goto if int long register return short + sizeof static struct switch typedef union unsigned signed while void volatile)) { + $keywords{$_}++; +} +for (qw(bool class const delete friend inline new operator overload private + protected public virtual)) { + $style_keywords{'C++'}{$_}++; +} +for (qw(__func__ _Complex _Imaginary _Bool inline restrict)) { + $style_keywords{'C9X'}{$_}++; +} +for (qw(inline const asm noreturn section + constructor destructor unused weak)) { + $style_keywords{'GNU'}{$_}++; + $style_keywords{'GNU'}{"__$ {_}__"}++; +} + $style_keywords{'GNU'}{__attribute__}++; + $style_keywords{'GNU'}{__extension__}++; + $style_keywords{'GNU'}{__consts}++; + $style_keywords{'GNU'}{__const}++; + $style_keywords{'GNU'}{__restrict}++; + +my $recipes + = { Defines => { default => '' }, + cppstdin => { default => $Config{cppstdin} }, + cppflags => { default => $Config{cppflags} }, + cppminus => { default => $Config{cppminus} }, + c_styles => { default => [qw(C++ GNU C9X)] }, + add_cppflags => { default => '' }, + keywords => { prerequisites => ['c_styles'], + output => sub { + my %kw = %keywords; + my %add; + for ( @{ shift->{c_styles} } ) { + %add = %{ $style_keywords{$_} }; + %kw = (%kw, %add); + } + \%kw; + }, }, + 'undef' => { default => undef }, + filename_filter => { default => undef }, + full_text => { class_filter => [ 'text', 'C::Preprocessed', + qw(undef filename Defines includeDirs Cpp)] }, + text => { class_filter => [ 'text', 'C::Preprocessed', + qw(filename_filter filename Defines includeDirs Cpp)] }, + text_only_from => { class_filter => [ 'text_only_from', 'C::Preprocessed', + qw(filename_filter filename Defines includeDirs Cpp)] }, + includes => { filter => [ \&includes, + qw(filename Defines includeDirs Cpp) ], }, + includeDirs => { prerequisites => ['filedir'], + output => sub { + my $data = shift; + [ $data->{filedir}, '/usr/local/include', '.']; + } }, + Cpp => { prerequisites => [qw(cppminus add_cppflags cppflags cppstdin)], + output => sub { + my $data = shift; + return { cppstdin => $data->{cppstdin}, + cppflags => "$data->{cppflags} $data->{add_cppflags}", + cppminus => $data->{cppminus} }; + } }, + filedir => { output => sub { dirname ( shift->{filename} || '.' ) } }, + sanitized => { filter => [ \&sanitize, 'text'], }, + toplevel => { filter => [ \&top_level, 'sanitized'], }, + full_sanitized => { filter => [ \&sanitize, 'full_text'], }, + full_toplevel => { filter => [ \&top_level, 'full_sanitized'], }, + no_type_decl => { filter => [ \&remove_type_decl, 'toplevel'], }, + typedef_chunks => { filter => [ \&typedef_chunks, 'full_toplevel'], }, + struct_chunks => { filter => [ \&struct_chunks, 'full_toplevel'], }, + typedefs_whited => { filter => [ \&typedefs_whited, + 'full_sanitized', 'typedef_chunks', + 'keywords_rex'], }, + typedef_texts => { filter => [ \&typedef_texts, + 'full_text', 'typedef_chunks'], }, + struct_texts => { filter => [ \&typedef_texts, + 'full_text', 'struct_chunks'], }, + typedef_hash => { filter => [ \&typedef_hash, + 'typedef_texts', 'typedefs_whited'], }, + typedef_structs => { filter => [ \&typedef_structs, + 'typedef_hash', 'struct_texts'], }, + typedefs_maybe => { filter => [ sub {[keys %{+shift}]}, + 'typedef_hash'], }, + defines_maybe => { filter => [ \&defines_maybe, 'filename'], }, + defines_no_args => { prerequisites => ['defines_maybe'], + output => sub { shift->{defines_maybe}->[0] }, }, + defines_args => { prerequisites => ['defines_maybe'], + output => sub { shift->{defines_maybe}->[1] }, }, + + defines_full => { filter => [ \&defines_full, + qw(filename Defines includeDirs Cpp) ], }, + defines_no_args_full => { prerequisites => ['defines_full'], + output => sub { shift->{defines_full}->[0] }, }, + defines_args_full => { prerequisites => ['defines_full'], + output => sub { shift->{defines_full}->[1] }, }, + + decl_inlines => { filter => [ \&functions_in, 'no_type_decl'], }, + inline_chunks => { filter => [ sub { shift->[0] }, 'decl_inlines'], }, + inlines => { filter => [ \&from_chunks, 'inline_chunks', 'text'], }, + decl_chunks => { filter => [ sub { shift->[1] }, 'decl_inlines'], }, + decls => { filter => [ \&from_chunks, 'decl_chunks', 'text'], }, + fdecl_chunks => { filter => [ sub { shift->[4] }, 'decl_inlines'], }, + fdecls => { filter => [ \&from_chunks, 'fdecl_chunks', 'text'], }, + mdecl_chunks => { filter => [ sub { shift->[2] }, 'decl_inlines'], }, + mdecls => { filter => [ \&from_chunks, 'mdecl_chunks', 'text'], }, + vdecl_chunks => { filter => [ sub { shift->[3] }, 'decl_inlines'], }, + vdecls => { filter => [ \&from_chunks, 'vdecl_chunks', 'text'], }, + vdecl_hash => { filter => [ \&vdecl_hash, 'vdecls', 'mdecls' ], }, + parsed_fdecls => { filter => [ \&do_declarations, 'fdecls', + 'typedef_hash', 'keywords'], }, + parsed_inlines => { filter => [ \&do_declarations, 'inlines', + 'typedef_hash', 'keywords'], }, + keywords_rex => { filter => [ sub { my @k = keys %{ shift() }; + local $" = '|'; + my $r = "(?:@k)"; + eval 'qr/$r/' or $r # Older Perls + }, 'keywords'], }, + }; + +sub from_chunks { + my $chunks = shift; + my $txt = shift; + my @out; + my $i = 0; + while ($i < @$chunks) { + push @out, substr $txt, $chunks->[$i], $chunks->[ $i + 1 ] - $chunks->[$i]; + $i += 2; + } + \@out; +} + +#sub process { request($recipes, @_) } +# Preloaded methods go here. + +sub includes { + my %seen; + my $stream = new C::Preprocessed (@_) + or die "Cannot open pipe from cppstdin: $!\n"; + + while (<$stream>) { + next unless m(^\s*\#\s* # Leading hash + (line\s*)? # 1: Optional line + ([0-9]+)\s* # 2: Line number + (.*) # 3: The rest + )x; + my $include = $3; + $include = $1 if $include =~ /"(.*)"/; # Filename may be in quotes + $include =~ s,\\\\,/,g if $^O eq 'os2'; + $seen{$include}++ if $include ne ""; + } + [keys %seen]; +} + +sub defines_maybe { + my $file = shift; + my ($mline,$line,%macros,%macrosargs,$sym,$args); + open(C, $file) or die "Cannot open file $file: $!\n"; + while (not eof(C) and $line = <C>) { + next unless + ( $line =~ s[ + ^ \s* \# \s* # Start of directive + define \s+ + (\w+) # 1: symbol + (?: + \( (.*?) \s* \) # 2: Minimal match for arguments + # in parenths (without trailing + # spaces) + )? # optional, no grouping + \s* # rest is the definition + ([\s\S]*) # 3: the rest + ][]x ); + ($sym, $args, $mline) = ($1, $2, $3); + $mline .= <C> while not eof(C) and $mline =~ s/\\\n/\n/; + chomp $mline; + #print "sym: `$sym', args: `$args', mline: `$mline'\n"; + if (defined $args) { + $macrosargs{$sym} = [ [split /\s*,\s*/, $args], $mline]; + } else { + $macros{$sym} = $mline; + } + } + close(C) or die "Cannot close file $file: $!\n"; + [\%macros, \%macrosargs]; +} + +sub defines_full { + my $Cpp = $_[3]; + my ($mline,$line,%macros,%macrosargs,$sym,$args); + + # save the old cppflags and add the flag for only ouputting macro definitions + my $old_cppstdin = $Cpp->{'cppstdin'}; + $Cpp->{'cppstdin'} = $old_cppstdin . " " . $ModPerl::CScan::MACROS_ONLY; + + my $stream = new C::Preprocessed (@_) + or die "Cannot open pipe from cppstdin: $!\n"; + + while (defined ($line = <$stream>)) { + next unless + ( $line =~ s[ + ^ \s* \# \s* # Start of directive + define \s+ + (\w+) # 1: symbol + (?: + \( (.*?) \s* \) # 2: Minimal match for arguments + # in parenths (without trailing + # spaces) + )? # optional, no grouping + \s* # rest is the definition + ([\s\S]*) # 3: the rest + ][]x ); + ($sym, $args, $mline) = ($1, $2, $3); + $mline .= <$stream> while ($mline =~ s/\\\n/\n/); + chomp $mline; +#print STDERR "sym: `$sym', args: `$args', mline: `$mline'\n"; + if (defined $args) { + $macrosargs{$sym} = [ [split /\s*,\s*/, $args], $mline]; + } else { + $macros{$sym} = $mline; + } + } + # restore the original cppflags + $Cpp->{'cppstdin'} = $old_cppstdin; + [\%macros, \%macrosargs]; +} + +sub typedef_chunks { # Input is toplevel, output: starts and ends + my $txt = shift; + pos $txt = 0; + my ($b, $e, @out); + while ($txt =~ /\btypedef\b/g) { + push @out, pos $txt; + $txt =~ /(?=;)|\Z/g; + push @out, pos $txt; + } + \@out; +} + +sub struct_chunks { + my $txt = shift; + pos $txt = 0; + my ($b, $e, @out); + while ($txt =~ /\b(?=struct\s*(\w*\s*)?\{)/g) { + push @out, pos $txt; + $txt =~ /(?=;)|\Z/g; + push @out, pos $txt; + } + \@out; +} + +sub typedefs_whited { # Input is sanitized text, and list of beg/end. + my @lst = @{$_[1]}; + my @out; + my ($b, $e); + while ($b = shift @lst) { + $e = shift @lst; + push @out, whited_decl($_[2], substr $_[0], $b, $e - $b); + } + \@out; +} + +sub structs_whited { + my @lst = @{$_[1]}; + my @out; + my ($b, $e, $in); + while ($b = shift @lst) { + $e = shift @lst; + $in = substr $_[0], $b, $e - $b; + $in =~ s/^(struct\s*(\w*\s*)?)(.*)$/$1 . " " x length($3)/es; + push @out, $in; + } + \@out; +} + +sub typedef_texts { + my ($txt, $chunks) = (shift, shift); + my ($b, $e, $in, @out); + my @in = @$chunks; + while (($b, $e) = splice @in, 0, 2) { + $in = substr($txt, $b, $e - $b); + # remove any remaining directives + $in =~ s/^ ( \s* \# .* ( \\ $ \n .* )* ) / ' ' x length($1)/xgem; + push @out, $in; + } + \@out; +} + +sub typedef_hash { + my ($typedefs, $whited) = (shift,shift); + my %out; + + loop: + for my $o (0..$#$typedefs) { + my $wh = $whited->[$o]; + my $td = $typedefs->[$o]; +#my $verb = $td =~ /apr_child_errfn_t/ ? 1 : 0; +#warn "$wh || $td\n" if $verb; + if ($wh =~ /,/ or not $wh =~ /\w/) { # Hard case, guessimates ... + # Determine whether the new thingies are inside parens + $wh =~ /,/g; + my $p = pos $wh; + my ($s, $e); + if (matchingbrace($wh)) { # Inside. Easy part: just split on /,/... + $e = pos($wh) - 1; + $s = $e; + my $d = 0; + # Skip back + while (--$s >= 0) { + my $c = substr $wh, $s, 1; + if ($c =~ /[\(\{\[]/) { + $d--; + } elsif ($c =~ /[\)\]\}]/) { + $d++; + } + last if $d < 0; + } + if ($s < 0) { # Should not happen + warn("panic: could not match braces in\n\t$td\nwhited as\n\t$wh\n"); + next loop; + } + $s++; + } else { # We are at toplevel + # We need to skip back all the modifiers attached to the first thingy + # Guesstimates: everything after the first '*' (inclusive) + pos $wh = 0; + $wh = /(?=\w)/g; + my $ws = pos $wh; + my $pre = substr $wh, 0, $ws; + $s = $ws; + $s = pos $pre if $pre =~ /(?=\*)/g; + $e = length $wh; + } + # Now: need to split $td based on commas in $wh! + # And need to split each chunk of $td based on word in the chunk of $wh! + my $td_decls = substr($td, $s, $e - $s); + my ($pre, $post) = (substr($td, 0, $s), substr($td, $e)); + my $wh_decls = substr($wh, $s, $e - $s); + my @wh_decls = split /,/, $wh_decls; + my $td_s = 0; + my (@td_decl, @td_pre, @td_post, @td_word); + for my $wh_d (@wh_decls) { + my $td_d = substr $td, $td_s, length $wh_d; + push @td_decl, $td_d; + $wh_d =~ /(\w+)/g; + push @td_word, $1; + push @td_post, substr $td_d, pos($wh_d); + push @td_pre, substr $td_d, pos($wh_d) - length $1, length $1; + $td_s += 1 + length $wh_d; # Skip over ',' + } + for my $i (0..$#wh_decls) { + my $p = "$td_post[$i]$post"; + $p = '' unless $p =~ /\S/; + $out{$td_word[$i]} = ["$pre$td_pre[$i]", $p]; + } + } elsif ($td =~ /\(\s* \*? \s* ([^)]+) \s* \) \s* \(.*\)/gxs){ # XXX: function pointer typedef + $out{$1} = ['XXX: pre_foo', 'XXX: post_bar']; # XXX: not sure what to stuff here + #warn "[$1] [$td]" if $verb; + } else { # Only one thing defined... + $wh =~ /(\w+)/g; + my $e = pos $wh; + my $s = $e - length $1; + my $type = $1; + my $pre = substr $td, 0, $s; + my $post = substr $td, $e, length($td) - $e; + $post = '' unless $post =~ /\S/; + $out{$type} = [$pre, $post]; + } + + #die if $verb; + + } + \%out; +} + +sub typedef_structs { + my ($typehash, $structs) = @_; + my %structs; + for (0 .. $#$structs) { + my $in = $structs->[$_]; + my $key; + next unless $in =~ /^struct\s*(\w+)/; + next unless $in =~ s{^(struct\s*)(\w+)}{ + $key = "struct $2"; + $1 . " " x length($2) + }e; + my $name = parse_struct($in, \%structs); + $structs{$key} = defined($name) ? $structs{$name} : undef; + } + while (my ($key, $text) = each %$typehash) { + my $name = parse_struct($text->[0], \%structs); + $structs{$key} = defined($name) ? $structs{$name} : undef; + } + \%structs; +} + +sub parse_struct { + my ($in, $structs) = @_; + my ($b, $e, $chunk, $vars, $struct, $structname); + return "$1 $2" if $in =~ / + ^ \s* (struct | union) \s+ (\w+) \s* $ + /x; + ($structname, $in) = $in =~ / + ^ \s* ( (?: struct | union ) (?: \s+ \w+ )? ) \s* { \s* (.*?) \s* } \s* $ + /gisx or return; + $structname .= " _ANON" unless $structname =~ /\s/; + $structname .= " 0" if exists $structs->{$structname}; + $structname =~ s/(\d+$)/$1 + 1/e while exists $structs->{$structname}; + $structname =~ s/\s+/ /g; + $b = 0; + while ($in =~ /(\{|;|$)/g) { + matchingbrace($in), next if $1 eq '{'; + $e = pos($in); + next if $b == $e; + $chunk = substr($in, $b, $e - $b); + $b = $e; + if ($chunk =~ /\G\s*(struct|union|enum).*\}/gs) { + my $term = pos $chunk; + my $name = parse_struct(substr($chunk, 0, $term), $structs); + $vars = parse_vars(join ' ', $name, substr $chunk, $term); + } else { + $vars = parse_vars($chunk); + } + push @$struct, @{$vars||[]}; + } + $structs->{$structname} = $struct; + $structname; +} + +sub parse_vars { + my $in = shift; + my ($vars, $type, $word, $id, $post, $func); + + while ($in =~ /\G\s*([\[;,(]|\*+|:\s*\d+|\S+?\b|$)\s*/gc) { + $word = $1; + if ($word eq ';' || $word eq '') { + next unless defined $id; + $type = 'int' unless defined $type; # or is this an error? + push @$vars, [ $type, $post, $id ]; + ($type, $post, $id, $func) = (undef, undef, undef); + } elsif ($word eq ',') { + warn "panic: expecting name before comma in '$in'\n" unless defined $id; + $type = 'int' unless defined $type; # or is this an error? + push @$vars, [ $type, $post, $id ]; + $type =~ s/[ *]*$//; + $id = undef; + } elsif ($word eq '[') { + warn "panic: expecting name before '[' in '$in'\n" unless defined $id; + $type = 'int' unless defined $type; # or is this an error? + my $b = pos $in; + matchingbrace($in); + $post .= $word . substr $in, $b, pos($in) - $b; + } elsif ($word eq '(') { + # simple hack for function pointers + $type = join ' ', grep defined, $type, $id if defined $id; + $type = 'int' unless defined $type; + if ($in =~ /\G\s*(\*[\s\*]*?)\s*(\w+)[\[\]\d\s]*(\)\s*\()/gc) { + $type .= "($1"; + $id = $2; + $post = $3; + my $b = pos $in; + matchingbrace($in); + $post .= substr $in, $b, pos($in) - $b; + } else { + warn "panic: can't parse function pointer declaration in '$in'\n"; + return; + } + } elsif ($word =~ /^:/) { + # bitfield + $type = 'int' unless defined $type; + $post .= $word; + } else { + if (defined $post) { + if ($func) { + $post .= $word; + } else { + warn "panic: not expecting '$word' after array bounds in '$in'\n"; + } + } else { + $type = join ' ', grep defined, $type, $id if defined $id; + $id = $word; + } + } + } +unless ($vars) { + warn sprintf "failed on <%s> with type=<%s>, id=<%s>, post=<%s> at pos=%d\n", + $in, $type, $id, $post, pos($in); +} + $vars; +} + +sub vdecl_hash { + my ($vdecls, $mdecls) = @_; + my %vdecl_hash; + for (@$vdecls, @$mdecls) { + next if /[()]/; # ignore functions, and function pointers + my $copy = $_; + next unless $copy =~ s/^\s*extern\s*//; + my $vars = parse_vars($copy); + $vdecl_hash{$_->[2]} = [ @$_[0, 1] ] for @$vars; + } + \%vdecl_hash; +} + +# The output is the list of list of inline chunks and list of +# declaration chunks. + +sub functions_in { # The arg is text without type declarations. + my $in = shift; # remove_type_decl(top_level(sanitize($txt))); + # What remains now consists of variable and function declarations, + # and inline functions. + $in =~ /(?=\S)/g; + my ($b, $e, $b1, $e1, @inlines, @decls, @mdecls, @fdecls, @vdecls); + $b = pos $in; + my $chunk; + while (defined($b) && $b != length $in) { + $in =~ /;/g or pos $in = $b, $in =~ /.*\S|\Z/g ; # Or last non-space + $e = pos $in; + $chunk = substr $in, $b, $e - $b; + # Now subdivide the chunk. + # + # What we got is one chunk, probably finished by `;'. Whoever, it + # may start with several inline functions. + # + # Note that inline functions contain ( ) { } in the stripped version. + $b1 = 0; + while ($chunk =~ /\(\s*\)\s*\{\s*\}/g) { + $e1 = pos $chunk; + push @inlines, $b + $b1, $b + $e1; + $chunk =~ /(?=\S)/g; + $b1 = pos $chunk; + $b1 = length $chunk, last unless defined $b1; + } + if ($e - $b - $b1 > 0) { + my ($isvar, $isfunc) = (1, 1); + substr ($chunk, 0, $b1) = ''; + if ($chunk =~ /,/) { # Contains multiple declarations. + push @mdecls, $b + $b1, $e; + } else { # Non-multiple. + # Since leading \s* is not optimized, this is quadratic! + $chunk =~ s{ + ( ( const | __const + | __attribute__ \s* \( \s* \) + ) \s* )* ( ; \s* )? \Z # Strip from the end + }()x; + $chunk =~ s/\s*\Z//; + if ($chunk =~ /\)\Z/) { # Function declaration ends on ")"! + if ($chunk !~ m{ + \( .* \( # Multiple parenths + }x + and $chunk =~ / \w \s* \( /x) { # Most probably pointer to a function? + $isvar = 0; + } + } elsif ($chunk =~ / + ^ \s* (enum|struct|union|class) \s+ \w+ \s* $ + /x) { + $isvar = $isfunc = 0; + } + if ($isvar) { # Heuristically variable + push @vdecls, $b + $b1, $e; + } elsif ($isfunc) { + push @fdecls, $b + $b1, $e; + } + } + push @decls, $b + $b1, $e if $isvar || $isfunc; + } + $in =~ /\G\s*/g ; + $b = pos $in; + } + [\@inlines, \@decls, \@mdecls, \@vdecls, \@fdecls]; +} + +# XXXX This is heuristical in many respects... +# Recipe: remove all struct-ish chunks. Remove all array specifiers. +# Remove GCC attribute specifiers. +# What remains may contain function's arguments, old types, and newly +# defined types. +# Remove function arguments using heuristics methods. +# Now out of several words in a row the last one is a newly defined type. + +sub whited_decl { # Input is sanitized. + my $keywords_rex = shift; + my $in = shift; # Text of a declaration + + #typedef ret_type*(*func) -> typedef ret_type* (*func) + $in =~ s/\*\(\*/* \(*/; + + my $rest = $in; + my $out = $in; # Whited out $in + + # Remove all the structs + while ($out =~ /(\b(struct|union|class|enum)(\s+\w+)?\s*\{)/g) { + my $pos_start = pos($out) - length $1; + + matchingbrace($out); + my $pos_end = pos $out; + substr($out, $pos_start, $pos_end - $pos_start) = + ' ' x ($pos_end - $pos_start); + pos $out = $pos_end; + } + + # Deal with glibc's wierd ass __attribute__ tag. Just dump it. + # Maaaybe this should check to see if you're using GCC, but I don't + # think so since glibc is nice enough to do that for you. [MGS] + while ( $out =~ m/(\b(__attribute__|attribute)\s*\((?=\s*\())/g ) { + my $att_pos_start = pos($out) - length($1); + + # Need to figure out where ((..)) ends. + matchingbrace($out); + my $att_pos_end = pos $out; + + # Remove the __attribute__ tag. + substr($out, $att_pos_start, $att_pos_end - $att_pos_start) = + ' ' x ($att_pos_end - $att_pos_start); + pos $out = $att_pos_end; + } + + # Remove arguments of functions (heuristics only). + # These things (start) arglist of a declared function: + # paren word comma + # paren word space non-paren + # paren keyword paren + # start a list of arguments. (May be "cdecl *myfunc"?) XXXXX ????? + while ( $out =~ /(\(\s*(\w+(,|\s*[^\)\s])|$keywords_rex\s*\)))/g ) { + my $pos_start = pos($out) - length($1); + pos $out = $pos_start + 1; + matchingbrace($out); + substr ($out, $pos_start + 1, pos($out) - 2 - $pos_start) + = ' ' x (pos($out) - 2 - $pos_start); + } + # Remove array specifiers + $out =~ s/(\[[\w\s\+]*\])/ ' ' x length $1 /ge; + my $tout = $out; + # Several words in a row cannot be new typedefs, but the last one. + $out =~ s/((\w+\**\s+)+(?=[^\s,;\[\{\)]))/ ' ' x length $1 /ge; + unless ($out =~ /\w/) { + # Probably a function-type declaration: typedef int f(int); + # Redo scan leaving the last word of the first group of words: + if ($tout =~ /(\w+\s+)*(\w+)\s*\(/g) { + $out = ' ' x (pos($tout) - length $2) + . $2 . ' ' x (length($tout) - pos($tout)); + } + else { + # try a different approach to get the last type + my $len = length $tout; + # cut all non-words at the end of the definition + my $end = $tout =~ s/(\W*)$// ? length $1 : 0; + # remove everything but the last word + my $mid = $tout =~ s/.*?(\w*)$/$1/ ? length $1 : 0; + # restore the length + $out = $tout . ' ' x ($len - $mid); + } + # warn "function typedef\n\t'$in'\nwhited-out as\n\t'$out'\n"; + } + warn "panic: length mismatch\n\t'$in'\nwhited-out as\n\t'$out'\n" + if length($in) != length $out; + # Sanity check + warn "panic: multiple types without intervening comma in\n\t'$in'\nwhited-out as\n\t'$out'\n" + if $out =~ /\w[^\w,]+\w/; + warn "panic: no types found in\n\t'$in'\nwhited-out as\n\t'$out'\n" + unless $out =~ /\w/; + $out +} + +sub matchingbrace { + # pos($_[0]) is after the opening brace now + my $n = 0; + while ($_[0] =~ /([\{\[\(])|([\]\)\}])/g) { + $1 ? $n++ : $n-- ; + return 1 if $n < 0; + } + # pos($_[0]) is after the closing brace now + return; # false +} + +sub remove_Comments_no_Strings { # We expect that no strings are around + my $in = shift; + $in =~ s,/(/.*|\*[\s\S]*?\*/),,g ; # C and C++ + die "Unfinished comment" if $in =~ m,/\*, ; + $in; +} + +sub sanitize { # We expect that no strings are around + my $in = shift; + # C and C++, strings and characters + $in =~ s{ / ( + / .* # C++ style + | + \* [\s\S]*? \*/ # C style + ) # (1) + | '((?:[^\\\']|\\.)+)' # (2) Character constants + | "((?:[^\\\"]|\\.)*)" # (3) Strings + | ( ^ \s* \# .* # (4) Preprocessor + ( \\ $ \n .* )* ) # and continuation lines + } { + # We want to preserve the length, so that one may go back + defined $1 ? ' ' x (1 + length $1) : + defined $4 ? ' ' x length $4 : + defined $2 ? "'" . ' ' x length($2) . "'" : + defined $3 ? '"' . ' ' x length($3) . '"' : '???' + }xgem ; + die "Unfinished comment" if $in =~ m{ /\* }x; + $in; +} + +sub top_level { # We expect argument is sanitized + # Note that this may remove the variable in declaration: int (*func)(); + my $in = shift; + my $start; + my $out = $in; + while ($in =~ /[\[\{\(]/g ) { + $start = pos $in; + matchingbrace($in); + substr($out, $start, pos($in) - 1 - $start) + = ' ' x (pos($in) - 1 - $start); + } + $out; +} + +sub remove_type_decl { # We suppose that the arg is top-level only. + my $in = shift; + $in =~ s/(\b__extension__)(\s+typedef\b)/(' ' x length $1) . $2/gse; + $in =~ s/(\btypedef\b.*?;)/' ' x length $1/gse; + # The following form may appear only in the declaration of the type itself: + $in =~ + s/(\b(enum|struct|union|class)\b[\s\w]*\{\s*\}\s*;)/' ' x length $1/gse; + $in; +} + +sub new { + my $class = shift; + my $out = SUPER::new $class $recipes; + $out->set(@_); + $out; +} + +sub do_declarations { + my @d = map do_declaration($_, $_[1], $_[2]), @{ $_[0] }; + \@d; +} + +# Forth argument: if defined, there maybe no identifier. Generate one +# basing on this argument. + +sub do_declaration { + my ($decl, $typedefs, $keywords, $argnum) = @_; + $decl =~ s/;?\s*$//; + + my ($type, $typepre, $typepost, $ident, $args, $w, $pos, $repeater); + $decl =~ s/[\r\n]\s*/ /g; +#warn "DECLAR [$decl][$argnum]\n"; + $decl =~ s/^\s*__extension__\b\s*//; + $decl =~ s/^\s*extern\b\s*//; + $decl =~ s/^\s*__inline\b\s*//; + $pos = 0; + while ($decl =~ /(\w+)/g and ($typedefs->{$1} or $keywords->{$1})) { + $w = $1; + if ($w =~ /^(struct|class|enum|union)$/) { + $decl =~ /\G\s+\w+/g or die "`$w' is not followed by word in `$decl'"; + } + $pos = pos $decl; + } +#warn "pos: $pos\n"; + pos $decl = $pos; + $decl =~ /\G[\s*]*\*/g or pos $decl = $pos; + $type = substr $decl, 0, pos $decl; + $decl =~ /\G\s*/g or pos $decl = length $type; # ???? + $pos = pos $decl; +#warn "pos: $pos\n"; + if (defined $argnum) { + if ($decl =~ /\G(\w+)((\s*\[[^][]*\])*)/g) { # The best we can do with [2] + $ident = $1; + $repeater = $2; + $pos = pos $decl; + } else { + pos $decl = $pos = length $decl; + $type = $decl; + $ident = "arg$argnum"; + } + } else { + die "Cannot process declaration `$decl' without an identifier" + unless $decl =~ /\G(\w+)/g; + $ident = $1; + $pos = pos $decl; + } +#warn "pos: $pos\n"; + $decl =~ /\G\s*/g or pos $decl = $pos; + $pos = pos $decl; +#my $st = length $decl; +#warn substr($decl, 0, $pos), "\n"; +#warn "pos: $pos $st\n"; +#warn "DECLAR [$decl][$argnum]\n"; + if (pos $decl != length $decl) { + pos $decl = $pos; + die "Expecting parenth after identifier in `$decl'\nafter `", + substr($decl, 0, $pos), "'" + unless $decl =~ /\G\(/g; + my $argstring = substr($decl, pos($decl) - length $decl); + matchingbrace($argstring) or die "Cannot find matching parenth in `$decl'"; + $argstring = substr($argstring, 0, pos($argstring) - 1); + $argstring =~ s/ ^ ( \s* void )? \s* $ //x; + $args = []; + my @args; + if ($argstring ne '') { + my $top = top_level $argstring; + my $p = 0; + my $arg; + while ($top =~ /,/g) { + $arg = substr($argstring, $p, pos($top) - 1 - $p); + $arg =~ s/^\s+|\s+$//gs; + push @args, $arg; + $p = pos $top; + } + $arg = substr $argstring, $p; + $arg =~ s/^\s+|\s+$//gs; + push @args, $arg; + } + my $i = 0; + for (@args) { + push @$args, do_declaration1($_, $typedefs, $keywords, $i++); + } + } + [$type, $ident, $args, $decl, $repeater]; +} + +sub do_declaration1 { + my ($decl, $typedefs, $keywords, $argnum) = @_; + $decl =~ s/;?\s*$//; +#warn "DECLARO [$decl][$argnum]\n"; + my ($type, $typepre, $typepost, $ident, $args, $w, $pos, $repeater); + $pos = 0; + while ($decl =~ /(\w+)/g and ($typedefs->{$1} or $keywords->{$1})) { + $w = $1; + if ($w =~ /^(struct|class|enum|union)$/) { + $decl =~ /\G\s+\w+/g or die "`$w' is not followed by word in `$decl'"; + } + $pos = pos $decl; + } +#warn "POS: $pos\n"; + pos $decl = $pos; + $decl =~ /\G[\s*]*\*/g or pos $decl = $pos; + $type = substr $decl, 0, pos $decl; + $decl =~ /\G\s*/g or pos $decl = length $type; # ???? + $pos = pos $decl; + if (defined $argnum) { + if ($decl =~ /\G(\w+)((\s*\[[^][]*\])*)/g) { # The best we can do with [2] + $ident = $1; + $repeater = $2; + $pos = pos $decl; + } else { + pos $decl = $pos = length $decl; + $type = $decl; + $ident = "arg$argnum"; + } + } else { + die "Cannot process declaration `$decl' without an identifier" + unless $decl =~ /\G(\w+)/g; + $ident = $1; + $pos = pos $decl; + } + $decl =~ /\G\s*/g or pos $decl = $pos; + $pos = pos $decl; +#warn "DECLAR1 [$decl][$argnum]\n"; +#my $st = length $decl; +#warn substr($decl, 0, $pos), "\n"; +#warn "pos: $pos $st\n"; + if (pos $decl != length $decl) { + pos $decl = $pos; + die "Expecting parenth after identifier in `$decl'\nafter `", + substr($decl, 0, $pos), "'" + unless $decl =~ /\G\(/g; + my $argstring = substr($decl, pos($decl) - length $decl); + matchingbrace($argstring) or die "Cannot find matching parenth in `$decl'"; + $argstring = substr($argstring, 0, pos($argstring) - 1); + $argstring =~ s/ ^ ( \s* void )? \s* $ //x; + $args = []; + my @args; + if ($argstring ne '') { + my $top = top_level $argstring; + my $p = 0; + my $arg; + while ($top =~ /,/g) { + $arg = substr($argstring, $p, pos($top) - 1 - $p); + $arg =~ s/^\s+|\s+$//gs; + push @args, $arg; + $p = pos $top; + } + $arg = substr $argstring, $p; + $arg =~ s/^\s+|\s+$//gs; + push @args, $arg; + } + my $i = 0; + for (@args) { + push @$args, do_declaration1($_, $typedefs, $keywords, $i++); + } + } + [$type, $ident, $args, $decl, $repeater]; +} + +############################################################ + +package C::Preprocessed; +use Symbol; +use File::Basename; +use Config; +use constant WIN32 => $^O eq 'MSWin32'; + +sub new { + die "usage: C::Preprocessed->new(filename[, defines[, includes[, cpp]]])" + if @_ < 2 or @_ > 5; + my ($class, $filename, $Defines, $Includes, $Cpp) + = (shift, shift, shift, shift, shift); + $Cpp ||= \%Config::Config; + my $filedir = dirname $filename || '.'; + $Includes ||= [$filedir, '/usr/local/include', '.']; + my $addincludes = ""; + $addincludes = "-I" . join(" -I", @$Includes) + if defined $Includes and @$Includes; + my ($sym) = gensym; + my $cmd = WIN32 ? + "$Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $filename |" : + "echo '\#include \"$filename\"' | $Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $Cpp->{cppminus} | grep -v '^#' |"; + #my $cmd = "echo '\#include <$filename>' | $Cpp->{cppstdin} $Defines $addincludes $Cpp->{cppflags} $Cpp->{cppminus} |"; + + (open($sym, $cmd) or die "Cannot open pipe from `$cmd': $!") + and bless $sym => $class; +} + +sub text { + my $class = shift; + my $filter = shift; + if (defined $filter) { + return text_only_from($class, $filter, @_); + } + my $stream = $class->new(@_); + my $oh = select $stream; + local $/; + select $oh; + <$stream>; +} + +sub text_only_from { + my $class = shift; + my $from = shift || die "Expecting argument in `text_only_from'"; + my $stream = $class->new(@_); + my $on = $from eq $_[0]; + my $eqregexp = $on ? '\"\"|' : ''; + my @out; + while (<$stream>) { + #print; + + $on = /$eqregexp[\"\/]\Q$from\"/ if /^\#/; + push @out, $_ if $on; + } + join '', @out; +} + +sub DESTROY { + close($_[0]) + or die "Cannot close pipe from `$Config::Config{cppstdin}': err $?, $!\n"; +} + +# Autoload methods go after __END__, and are processed by the autosplit program. +# Return to the principal package. +package ModPerl::CScan; + +1; +__END__ + +=head1 NAME + +ModPerl::CScan - scan C language files for easily recognized constructs. + +=head1 SYNOPSIS + +=head1 DESCRIPTION + +See the C<C::Scan> manpage. This package is just a fork to fix certain +things that didn't work in the original C<C::Scan>, which is not +maintained any longer. These fixes required to make it work with the +Apache 2 source code. + +=cut
diff --git a/2_0_13/lib/ModPerl/Code.pm b/2_0_13/lib/ModPerl/Code.pm new file mode 100644 index 0000000..fa6dfe7 --- /dev/null +++ b/2_0_13/lib/ModPerl/Code.pm
@@ -0,0 +1,1180 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::Code; + +use strict; +use warnings FATAL => 'all'; + +use Config; +use File::Spec::Functions qw(catfile catdir); + +use mod_perl2 (); +use Apache2::Build (); + +use Apache::TestConfig (); +use Apache::TestTrace; + +our $VERSION = '0.01'; +our @ISA = qw(Apache2::Build); + +my %handlers = ( + Process => [qw(ChildInit ChildExit)], #Restart PreConfig + Files => [qw(OpenLogs PostConfig)], + PerSrv => [qw(PostReadRequest Trans MapToStorage)], + PerDir => [qw(HeaderParser + Access Authen Authz + Type Fixup Response Log Cleanup + InputFilter OutputFilter)], + Connection => [qw(ProcessConnection)], + PreConnection => [qw(PreConnection)], +); + +my %hooks = map { $_, canon_lc($_) } + map { @{ $handlers{$_} } } keys %handlers; + +my %not_ap_hook = map { $_, 1 } qw(child_exit response cleanup + output_filter input_filter); + +my %not_request_hook = map { $_, 1 } qw(child_init process_connection + pre_connection open_logs post_config); + +my %hook_proto = ( + Process => { + ret => 'void', + args => [{type => 'apr_pool_t', name => 'p'}, + {type => 'server_rec', name => 's'}, + {type => 'dummy', name => 'MP_HOOK_VOID'}], + }, + Files => { + ret => 'int', + args => [{type => 'apr_pool_t', name => 'pconf'}, + {type => 'apr_pool_t', name => 'plog'}, + {type => 'apr_pool_t', name => 'ptemp'}, + {type => 'server_rec', name => 's'}, + {type => 'dummy', name => 'MP_HOOK_RUN_ALL'}], + }, + PerSrv => { + ret => 'int', + args => [{type => 'request_rec', name => 'r'}, + {type => 'dummy', name => 'MP_HOOK_RUN_ALL'}], + }, + Connection => { + ret => 'int', + args => [{type => 'conn_rec', name => 'c'}, + {type => 'dummy', name => 'MP_HOOK_RUN_FIRST'}], + }, + PreConnection => { + ret => 'int', + args => [{type => 'conn_rec', name => 'c'}, + {type => 'void', name => 'csd'}, + {type => 'dummy', name => 'MP_HOOK_RUN_ALL'}], + }, +); + +my %cmd_push = ( + InputFilter => 'modperl_cmd_push_filter_handlers', + OutputFilter => 'modperl_cmd_push_filter_handlers', +); +my $cmd_push_default = 'modperl_cmd_push_handlers'; +sub cmd_push { + $cmd_push{+shift} || $cmd_push_default; +} + +$hook_proto{PerDir} = $hook_proto{PerSrv}; + +my $scfg_get = 'MP_dSCFG(parms->server)'; + +my $dcfg_get = "$scfg_get;\n" . + ' modperl_config_dir_t *dcfg = (modperl_config_dir_t *)dummy'; + +my %directive_proto = ( + PerSrv => { + args => [{type => 'cmd_parms', name => 'parms'}, + {type => 'void', name => 'dummy'}, + {type => 'const char', name => 'arg'}], + cfg => {get => $scfg_get, name => 'scfg'}, + scope => 'RSRC_CONF', + }, + PerDir => { + args => [{type => 'cmd_parms', name => 'parms'}, + {type => 'void', name => 'dummy'}, + {type => 'const char', name => 'arg'}], + cfg => {get => $dcfg_get, name => 'dcfg'}, + scope => 'OR_ALL', + }, +); + +for my $class (qw(Process Connection PreConnection Files)) { + $directive_proto{$class}->{cfg}->{name} = 'scfg'; + $directive_proto{$class}->{cfg}->{get} = $scfg_get; + + for (qw(args scope)) { + $directive_proto{$class}->{$_} = $directive_proto{PerSrv}->{$_}; + } +} + +while (my ($k,$v) = each %directive_proto) { + $directive_proto{$k}->{ret} = 'const char *'; + my $handlers = join '_', 'handlers', canon_lc($k); + $directive_proto{$k}->{handlers} = + join '->', $directive_proto{$k}->{cfg}->{name}, $handlers; +} + +#XXX: allow disabling of PerDir hooks on a PerDir basis +my @hook_flags = sort(map { canon_uc($_) } keys %hooks); +my @ithread_opts = qw(CLONE PARENT); +my %flags = ( + Srv => ['NONE', @ithread_opts, qw(ENABLE AUTOLOAD MERGE_HANDLERS), + @hook_flags, 'UNSET','INHERIT_SWITCHES'], + Dir => [qw(NONE PARSE_HEADERS SETUP_ENV MERGE_HANDLERS GLOBAL_REQUEST UNSET)], + Req => [qw(NONE SET_GLOBAL_REQUEST PARSE_HEADERS SETUP_ENV + CLEANUP_REGISTERED PERL_SET_ENV_DIR PERL_SET_ENV_SRV)], + Interp => [qw(NONE IN_USE CLONED BASE)], + Handler => [qw(NONE PARSED METHOD OBJECT ANON AUTOLOAD DYNAMIC FAKE)], +); + +$flags{DirSeen} = $flags{Dir}; + +my %flags_options = map { $_,1 } qw(Srv Dir); + +my %flags_field = ( + DirSeen => 'flags->opts_seen', + (map { $_, 'flags->opts' } keys %flags_options), +); + +sub new { + my $class = shift; + bless { + handlers => \%handlers, + hook_proto => \%hook_proto, + directive_proto => \%directive_proto, + flags => \%flags, + path => 'src/modules/perl', + }, $class; +} + +sub path { shift->{path} } + +sub handler_desc { + my ($self, $h_add, $c_add) = @_; + local $" = ",\n"; + foreach my $class (sort keys %{ $self->{handler_index_desc} }) { + my $h = $self->{handler_index_desc}->{$class}; + my $func = canon_func('handler', 'desc', $class); + my $array = join '_', 'MP', $func; + my $proto = "const char *$func(int idx)"; + + $$h_add .= "$proto;\n"; + + $$c_add .= <<EOF; +static const char * $array [] = { +@{ [ map { $_ ? qq( "$_") : ' NULL' } @$h, '' ] } +}; + +$proto +{ + return $array [idx]; +} + +EOF + } +} + +sub generate_handler_index { + my ($self, $h_fh) = @_; + + my $type = 1; + + foreach my $class (sort keys %{ $self->{handlers} }) { + my $handlers = $self->{handlers}->{$class}; + my $i = 0; + my $n = @$handlers; + my $handler_type = canon_define('HANDLER_TYPE', $class); + + print $h_fh "\n#define ", + canon_define('HANDLER_NUM', $class), " $n\n\n"; + + print $h_fh "#define $handler_type $type\n\n"; + + $type++; + + for my $name (@$handlers) { + my $define = canon_define($name, 'handler'); + $self->{handler_index}->{$class}->[$i] = $define; + $self->{handler_index_type}->{$class}->[$i] = $handler_type; + $self->{handler_index_desc}->{$class}->[$i] = "Perl${name}Handler"; + print $h_fh "#define $define $i\n"; + $i++; + } + } +} + +sub generate_handler_hooks { + my ($self, $h_fh, $c_fh) = @_; + + my @register_hooks; + + foreach my $class (sort keys %{ $self->{hook_proto} }) { + my $prototype = $self->{hook_proto}->{$class}; + my $callback = canon_func('callback', $class); + my $return = $prototype->{ret} eq 'void' ? '' : 'return'; + my $i = -1; + + for my $handler (@{ $self->{handlers}{$class} }) { + my $name = canon_func($handler, 'handler'); + $i++; + + if (my $hook = $hooks{$handler}) { + next if $not_ap_hook{$hook}; + + my $order = $not_request_hook{$hook} ? 'APR_HOOK_FIRST' + : 'APR_HOOK_REALLY_FIRST'; + + push @register_hooks, + " ap_hook_$hook($name, NULL, NULL, $order);"; + } + + my ($protostr, $pass) = canon_proto($prototype, $name); + my $ix = $self->{handler_index}->{$class}->[$i]; + + if ($callback =~ m/modperl_callback_per_(dir|srv)/) { + if ($ix =~ m/AUTH|TYPE|TRANS|MAP/) { + $pass =~ s/MP_HOOK_RUN_ALL/MP_HOOK_RUN_FIRST/; + } + } + + print $h_fh "\n$protostr;\n"; + + print $c_fh <<EOF; +$protostr +{ + $return $callback($ix, $pass); +} + +EOF + } + } + + local $" = "\n"; + my $hooks_proto = 'void modperl_register_handler_hooks(void)'; + my $h_add = "$hooks_proto;\n"; + my $c_add = "$hooks_proto {\n@register_hooks\n}\n"; + + $self->handler_desc(\$h_add, \$c_add); + + return ($h_add, $c_add); +} + +sub generate_handler_find { + my ($self, $h_fh, $c_fh) = @_; + + my $proto = 'int modperl_handler_lookup(const char *name, int *type)'; + my (%ix, %switch); + + print $h_fh "$proto;\n"; + + print $c_fh <<EOF; +$proto +{ + if (*name == 'P' && strnEQ(name, "Perl", 4)) { + name += 4; + } + + switch (*name) { +EOF + + foreach my $class (sort keys %{ $self->{handlers} }) { + my $handlers = $self->{handlers}->{$class}; + my $i = 0; + + for my $name (@$handlers) { + $name =~ /^([A-Z])/; + push @{ $switch{$1} }, $name; + $ix{$name}->{name} = $self->{handler_index}->{$class}->[$i]; + $ix{$name}->{type} = $self->{handler_index_type}->{$class}->[$i++]; + } + } + + for my $key (sort keys %switch) { + my $names = $switch{$key}; + print $c_fh " case '$key':\n"; + + #support $r->push_handlers(PerlHandler => ...) + if ($key eq 'H') { + print $c_fh <<EOF; + if (strEQ(name, "Handler")) { + *type = $ix{'Response'}->{type}; + return $ix{'Response'}->{name}; + } +EOF + } + + for my $name (@$names) { + my $n = length($name); + print $c_fh <<EOF; + if (strnEQ(name, "$name", $n)) { + *type = $ix{$name}->{type}; + return $ix{$name}->{name}; + } +EOF + } + } + + print $c_fh " };\n return -1;\n}\n"; + + return ("", ""); +} + +sub generate_handler_directives { + my ($self, $h_fh, $c_fh) = @_; + + my @cmd_entries; + + foreach my $class (sort keys %{ $self->{handlers} }) { + my $handlers = $self->{handlers}->{$class}; + my $prototype = $self->{directive_proto}->{$class}; + my $i = 0; + + for my $h (@$handlers) { + my $h_name = join $h, qw(Perl Handler); + my $name = canon_func('cmd', $h, 'handlers'); + my $cmd_name = canon_define('cmd', $h, 'entry'); + my $protostr = canon_proto($prototype, $name); + my $flag = 'MpSrv' . canon_uc($h); + my $ix = $self->{handler_index}->{$class}->[$i++]; + my $av = "$prototype->{handlers} [$ix]"; + my $cmd_push = cmd_push($h); + + print $h_fh "$protostr;\n"; + + push @cmd_entries, $cmd_name; + + print $h_fh <<EOF; + +#define $cmd_name \\ +AP_INIT_ITERATE("$h_name", $name, NULL, \\ + $prototype->{scope}, "Subroutine name") + +EOF + print $c_fh <<EOF; + +$protostr +{ + $prototype->{cfg}->{get}; + if (!MpSrvENABLE(scfg)) { + return apr_pstrcat(parms->pool, + "Perl is disabled for server ", + parms->server->server_hostname, NULL); + } + if (!$flag(scfg)) { + return apr_pstrcat(parms->pool, + "$h_name is disabled for server ", + parms->server->server_hostname, NULL); + } + MP_TRACE_d(MP_FUNC, "push \@%s, %s", parms->cmd->name, arg); + return $cmd_push(&($av), arg, parms->pool); +} +EOF + } + } + + my $h_add = '#define MP_CMD_ENTRIES \\' . "\n" . join ', \\'."\n", @cmd_entries; + + return ($h_add, ""); +} + +sub generate_flags { + my ($self, $h_fh, $c_fh) = @_; + + my $n = 1; + + (my $dlsrc = uc $Config{dlsrc}) =~ s/\.xs$//i; + + print $h_fh "\n#define MP_SYS_$dlsrc 1\n"; + + foreach my $class (sort keys %{ $self->{flags} }) { + my $opts = $self->{flags}->{$class}; + my @lookup = (); + my %lookup = (); + my $lookup_proto = ""; + my %dumper; + if ($flags_options{$class}) { + $lookup_proto = join canon_func('flags', 'lookup', $class), + 'U32 ', '(const char *str)'; + push @lookup, "$lookup_proto {"; + } + + my $flags = join $class, qw(Mp FLAGS); + my $field = $flags_field{$class} || 'flags'; + + print $h_fh "\n#define $flags(p) (p)->$field\n"; + + $class = "Mp$class"; + print $h_fh "\n#define ${class}Type $n\n"; + $n++; + + my $i = 0; + my $max_len = 0; + for my $f (@$opts) { + my $x = sprintf "0x%08x", $i; + my $flag = "${class}_f_$f"; + my $cmd = $class . $f; + my $name = canon_name($f); + $lookup{$name} = $flag; + $max_len = length $name if $max_len < length $name; + print $h_fh <<EOF; + +/* $f */ +#define $flag $x +#define $cmd(p) ($flags(p) & $flag) +#define ${cmd}_On(p) ($flags(p) |= $flag) +#define ${cmd}_Off(p) ($flags(p) &= ~$flag) + +EOF + $dumper{$name} = + qq{modperl_trace(NULL, " $name %s", \\ + ($flags(p) & $x) ? "On " : "Off");}; + + $i += $i || 1; + } + if (@lookup) { + my $indent1 = " " x 4; + my $indent2 = " " x 8; + my %switch = (); + for (sort keys %lookup) { + if (/^(\w)/) { + my $gap = " " x ($max_len - length $_); + push @{ $switch{$1} }, + qq{if (strEQ(str, "$_"))$gap return $lookup{$_};}; + } + } + + push @lookup, '', $indent1 . "switch (*str) {"; + for (sort keys %switch) { + push @lookup, $indent1 . " case '$_':"; + push @lookup, map { $indent2 . $_ } @{ $switch{$_} }; + } + push @lookup, map { $indent1 . $_ } ("}\n", "return -1;\n}\n\n"); + + print $c_fh join "\n", @lookup; + print $h_fh "$lookup_proto;\n"; + } + + delete $dumper{None}; #NONE + print $h_fh join ' \\'."\n", + "#define ${class}_dump_flags(p, str)", + qq{modperl_trace(NULL, "$class flags dump (%s):", str);}, + map $dumper{$_}, sort keys %dumper; + } + + print $h_fh "\n#define MpSrvHOOKS_ALL_On(p) MpSrvFLAGS(p) |= (", + (join '|', map { 'MpSrv_f_' . $_ } @hook_flags), ")\n"; + + print $h_fh "\n#define MpSrvOPT_ITHREAD_ONLY(o) \\\n", + (join ' || ', map("(o == MpSrv_f_$_)", @ithread_opts)), "\n"; + + (); +} + +my %trace = ( + 'a' => 'Apache API interaction', + 'c' => 'configuration for directive handlers', + 'd' => 'directive processing', + 'e' => 'environment variables', + 'f' => 'filters', + 'g' => 'globals management', + 'h' => 'handlers', + 'i' => 'interpreter pool management', + 'm' => 'memory allocations', + 'o' => 'I/O', + 'r' => 'Perl runtime interaction', + 's' => 'Perl sections', + 't' => 'benchmark-ish timings', +); + +sub generate_trace { + my ($self, $h_fh) = @_; + + my $v = $self->{build}->{VERSION}; + my $api_v = $self->{build}->{API_VERSION}; + + print $h_fh qq(#define MP_VERSION_STRING "mod_perl/$v"\n); + + # this needs to be a string, not an int, because of the + # macro definition. patches welcome. + print $h_fh qq(#define MP_API_VERSION "$api_v"\n); + + my $i = 1; + my @trace = sort keys %trace; + my $opts = join '', @trace; + my $tl = "MP_debug_level"; + + print $h_fh <<EOF; +#define MP_TRACE_OPTS "$opts" + +#ifdef MP_TRACE +#define MP_TRACE_any if ($tl) modperl_trace +#define MP_TRACE_any_do(exp) if ($tl) { \\ +exp; \\ +} +#else +#define MP_TRACE_any if (0) modperl_trace +#define MP_TRACE_any_do(exp) +#endif + +EOF + + my @dumper; + for my $type (sort @trace) { + my $define = "#define MP_TRACE_$type"; + my $define_do = join '_', $define, 'do'; + + print $h_fh <<EOF; +#ifdef MP_TRACE +$define if ($tl & $i) modperl_trace +$define_do(exp) if ($tl & $i) { \\ +exp; \\ +} +#else +$define if (0) modperl_trace +$define_do(exp) +#endif +EOF + push @dumper, + qq{modperl_trace(NULL, " $type %s ($trace{$type})", ($tl & $i) ? "On " : "Off");}; + $i += $i; + } + + print $h_fh join ' \\'."\n", + '#define MP_TRACE_dump_flags()', + qq{modperl_trace(NULL, "mod_perl trace flags dump:");}, + @dumper; + + (); +} + +sub generate_largefiles { + my ($self, $h_fh) = @_; + + my $flags = $self->perl_config('ccflags_uselargefiles'); + + return unless $flags; + + for my $flag (split /\s+/, $flags) { + next if $flag =~ /^-/; # skip -foo flags + my ($name, $val) = split '=', $flag; + $val ||= ''; + $name =~ s/^-D//; + print $h_fh "#define $name $val\n"; + } +} + +sub ins_underscore { + $_[0] =~ s/([a-z])([A-Z])/$1_$2/g; + $_[0] =~ s/::/_/g; +} + +sub canon_uc { + my $s = shift; + ins_underscore($s); + uc $s; +} + +sub canon_lc { + my $s = shift; + ins_underscore($s); + lc $s; +} + +sub canon_func { + join '_', 'modperl', map { canon_lc($_) } @_; +} + +sub canon_name { + local $_ = shift; + s/([A-Z]+)/ucfirst(lc($1))/ge; + s/_//g; + $_; +} + +sub canon_define { + join '_', 'MP', map { canon_uc($_) } @_; +} + +sub canon_args { + my $args = shift->{args}; + my @pass = map { $_->{name} } @$args; + my @in; + foreach my $href (@$args) { + push @in, "$href->{type} *$href->{name}" + unless $href->{type} eq 'dummy'; + } + return wantarray ? (\@in, \@pass) : \@in; +} + +sub canon_proto { + my ($prototype, $name) = @_; + my ($in,$pass) = canon_args($prototype); + + local $" = ', '; + + my $p = "$prototype->{ret} $name(@$in)"; + $p =~ s/\* /*/; + return wantarray ? ($p, "@$pass") : $p; +} + +my %sources = ( + generate_handler_index => {h => 'modperl_hooks.h'}, + generate_handler_hooks => {h => 'modperl_hooks.h', + c => 'modperl_hooks.c'}, + generate_handler_directives => {h => 'modperl_directives.h', + c => 'modperl_directives.c'}, + generate_handler_find => {h => 'modperl_hooks.h', + c => 'modperl_hooks.c'}, + generate_flags => {h => 'modperl_flags.h', + c => 'modperl_flags.c'}, + generate_trace => {h => 'modperl_trace.h'}, + generate_largefiles => {h => 'modperl_largefiles.h'}, + generate_constants => {h => 'modperl_constants.h', + c => 'modperl_constants.c'}, + generate_exports => {c => 'modperl_exports.c'}, +); + +my @c_src_names = qw(interp tipool log config cmd options callback handler + gtop util io io_apache filter bucket mgv pcw global env + cgi perl perl_global perl_pp sys module svptr_table + const constants apache_compat error debug + common_util common_log); +my @h_src_names = qw(perl_unembed); +my @g_c_names = map { "modperl_$_" } qw(hooks directives flags xsinit exports); +my @c_names = ('mod_perl', (map "modperl_$_", @c_src_names)); +sub c_files { [map { "$_.c" } @c_names, @g_c_names] } +sub o_files { [map { "$_.o" } @c_names, @g_c_names] } +sub o_pic_files { [map { "$_.lo" } @c_names, @g_c_names] } + +my @g_h_names = map { "modperl_$_" } qw(hooks directives flags trace + largefiles); +my @h_names = (@c_names, map { "modperl_$_" } @h_src_names, + qw(types time apache_includes perl_includes apr_includes + apr_compat common_includes common_types)); +sub h_files { [map { "$_.h" } @h_names, @g_h_names] } + +sub clean_files { + my @c_names = @g_c_names; + my @h_names = @g_h_names; + + for (\@c_names, \@h_names) { + push @$_, 'modperl_constants'; + } + + [(map { "$_.c" } @c_names), (map { "$_.h" } @h_names)]; +} + +sub classname { + my $self = shift || __PACKAGE__; + ref($self) || $self; +} + +sub noedit_warning_c { + my $class = classname(shift); + + my $v = join '/', $class, $class->VERSION; + my $trace = Apache::TestConfig::calls_trace(); + $trace =~ s/^/ * /mg; + return <<EOF; + +/* + * *********** WARNING ************** + * This file generated by $v + * Any changes made here will be lost + * *********************************** +$trace */ + +EOF +} + +#this is named hash after the `#' character +#rather than named perl, since #comments are used +#non-Perl files, e.g. Makefile, typemap, etc. +sub noedit_warning_hash { + my $class = classname(shift); + + (my $warning = noedit_warning_c($class)) =~ s/^/\# /mg; + return $warning; +} + +sub init_file { + my ($self, $name) = @_; + + return unless $name; + return if $self->{init_files}->{$name}++; + + my (@preamble); + if ($name =~ /\.h$/) { + (my $d = uc $name) =~ s/\./_/; + push @preamble, "#ifndef $d\n#define $d\n"; + push @{ $self->{postamble}->{$name} }, "\n#endif /* $d */\n"; + } + elsif ($name =~ /\.c/) { + push @preamble, qq{\#include "mod_perl.h"\n\n}; + } + + my $file = "$self->{path}/$name"; + debug "generating...$file"; + unlink $file; + open my $fh, '>>', $file or die "open $file: $!"; + print $fh @preamble, noedit_warning_c(); + + $self->{fh}->{$name} = $fh; +} + +sub fh { + my ($self, $name) = @_; + return unless $name; + $self->{fh}->{$name}; +} + +sub postamble { + my $self = shift; + for my $name (sort keys %{ $self->{fh} }) { + next unless my $av = $self->{postamble}->{$name}; + print { $self->fh($name) } @$av; + } +} + +sub generate { + my ($self, $build) = @_; + + $self->{build} = $build; + + for my $s (values %sources) { + for (qw(h c)) { + $self->init_file($s->{$_}); + } + } + + for my $method (reverse sort keys %sources) { + my ($h_fh, $c_fh) = map { + $self->fh($sources{$method}->{$_}); + } qw(h c); + my ($h_add, $c_add) = $self->$method($h_fh, $c_fh); + if ($h_add) { + print $h_fh $h_add; + } + if ($c_add) { + print $c_fh $c_add; + } + debug "$method...done"; + } + + $self->postamble; + + my $xsinit = "$self->{path}/modperl_xsinit.c"; + debug "generating...$xsinit"; + + # There's a possibility that $Config{static_ext} may contain spaces + # and ExtUtils::Embed::xsinit won't handle the situation right. In + # this case we'll get buggy "boot_" statements in modperl_xsinit.c. + # Fix this by cleaning the @Extensions array. + + # Loads @Extensions if not loaded + ExtUtils::Embed::static_ext(); + + @ExtUtils::Embed::Extensions = grep{$_} @ExtUtils::Embed::Extensions; + + #create bootstrap method for static xs modules + my $static_xs = [sort keys %{ $build->{XS} }]; + ExtUtils::Embed::xsinit($xsinit, 1, $static_xs); + + #$self->generate_constants_pod(); +} + +my $constant_prefixes = join '|', qw{APR? MODPERL_RC}; + +sub generate_constants { + my ($self, $h_fh, $c_fh) = @_; + + require Apache2::ConstantsTable; + + print $c_fh qq{\#include "modperl_const.h"\n}; + print $h_fh "#define MP_ENOCONST -3\n\n"; + + generate_constants_lookup($h_fh, $c_fh); + generate_constants_group_lookup($h_fh, $c_fh); +} + +my %shortcuts = ( + NOT_FOUND => 'HTTP_NOT_FOUND', + FORBIDDEN => 'HTTP_FORBIDDEN', + AUTH_REQUIRED => 'HTTP_UNAUTHORIZED', + SERVER_ERROR => 'HTTP_INTERNAL_SERVER_ERROR', + REDIRECT => 'HTTP_MOVED_TEMPORARILY', +); + +#backwards compat with older httpd/apr +#XXX: remove once we require newer httpd/apr +my %ifdef = map { $_, 1 } + qw(APLOG_TOCLIENT APR_LIMIT_NOFILE), # added in ??? + qw(AP_MPMQ_STARTING AP_MPMQ_RUNNING AP_MPMQ_STOPPING + AP_MPMQ_MPM_STATE), # added in 2.0.49 + qw(APR_FPROT_USETID APR_FPROT_GSETID + APR_FPROT_WSTICKY APR_FOPEN_LARGEFILE), # added in 2.0.50? + qw(OPT_INCNOEXEC OPT_INC_WITH_EXEC); # added/removed in 2.4 + +sub constants_ifdef { + my $name = shift; + + if ($ifdef{$name}) { + return ("#ifdef $name\n", "#endif /* $name */\n"); + } + + ("", ""); +} + +sub constants_lookup_code { + my ($h_fh, $c_fh, $constants, $class) = @_; + + my (%switch, %alias); + + %alias = %shortcuts; + + my $postfix = canon_lc(lc $class); + my $package = $class . '::'; + my $package_len = length $package; + my ($first_let) = $class =~ /^(\w)/; + + my $func = canon_func(qw(constants lookup), $postfix); + my $proto = "SV \*$func(pTHX_ const char *name)"; + + print $h_fh "$proto;\n"; + + print $c_fh <<EOF; + +$proto +{ + if (*name == '$first_let' && strnEQ(name, "$package", $package_len)) { + name += $package_len; + } + + switch (*name) { +EOF + + for (@$constants) { + if (s/^($constant_prefixes)(_)?//o) { + $alias{$_} = join $2 || "", $1, $_; + } + else { + $alias{$_} ||= $_; + } + next unless /^([A-Z])/; + push @{ $switch{$1} }, $_; + } + + for my $key (sort keys %switch) { + my $names = $switch{$key}; + print $c_fh " case '$key':\n"; + + for my $name (@$names) { + my @ifdef = constants_ifdef($alias{$name}); + print $c_fh <<EOF; +$ifdef[0] + if (strEQ(name, "$name")) { +EOF + + if ($name eq 'DECLINE_CMD' || + $name eq 'DIR_MAGIC_TYPE' || + $name eq 'CRLF' || + $name eq 'AUTHN_PROVIDER_GROUP' || + $name eq 'AUTHZ_PROVIDER_GROUP' || + $name eq 'AUTHN_PROVIDER_VERSION' || + $name eq 'AUTHZ_PROVIDER_VERSION' || + $name eq 'AUTHN_DEFAULT_PROVIDER' || + $name eq 'AUTHN_PROVIDER_NAME_NOTE' || + $name eq 'AUTHZ_PROVIDER_NAME_NOTE' || + $name eq 'AUTHN_PREFIX' || + $name eq 'AUTHZ_PREFIX' || + $name eq 'CRLF_ASCII') { + print $c_fh <<EOF; + return newSVpv($alias{$name}, 0); +EOF + } + else { + print $c_fh <<EOF; + return newSViv($alias{$name}); +EOF + } + + print $c_fh <<EOF; + } +$ifdef[1] +EOF + } + print $c_fh " break;\n"; + } + + print $c_fh <<EOF + }; + Perl_croak(aTHX_ "unknown $class\:: constant %s", name); + return newSViv(MP_ENOCONST); +} +EOF +} + +sub generate_constants_lookup { + my ($h_fh, $c_fh) = @_; + + foreach my $class (sort keys %$Apache2::ConstantsTable) { + my $groups = $Apache2::ConstantsTable->{$class}; + my $constants = [sort map { @$_ } values %$groups]; + + constants_lookup_code($h_fh, $c_fh, $constants, $class); + } +} + +sub generate_constants_group_lookup { + my ($h_fh, $c_fh) = @_; + + foreach my $class (sort keys %$Apache2::ConstantsTable) { + my $groups = $Apache2::ConstantsTable->{$class}; + constants_group_lookup_code($h_fh, $c_fh, $class, $groups); + } +} + +sub constants_group_lookup_code { + my ($h_fh, $c_fh, $class, $groups) = @_; + my @tags; + my @code; + + $class = canon_lc(lc $class); + foreach my $group (sort keys %$groups) { + my $constants = $groups->{$group}; + push @tags, $group; + my $name = join '_', 'MP_constants', $class, $group; + print $c_fh "\nstatic const char *$name [] = { \n", + (map { + my @ifdef = constants_ifdef($_); + s/^($constant_prefixes)_?//o; + qq($ifdef[0] "$_",\n$ifdef[1]) + } @$constants), " NULL,\n};\n"; + } + + my %switch; + for (@tags) { + next unless /^([A-Z])/i; + push @{ $switch{$1} }, $_; + } + + my $func = canon_func(qw(constants group lookup), $class); + + my $proto = "const char **$func(const char *name)"; + + print $h_fh "$proto;\n"; + print $c_fh "\n$proto\n{\n", " switch (*name) {\n"; + + for my $key (sort keys %switch) { + my $val = $switch{$key}; + print $c_fh "\tcase '$key':\n"; + for my $group (@$val) { + my $name = join '_', 'MP_constants', $class, $group; + print $c_fh qq|\tif(strEQ("$group", name))\n\t return $name;\n|; + } + print $c_fh " break;\n"; + } + + print $c_fh <<EOF; + }; + Perl_croak_nocontext("unknown $class\:: group `%s'", name); + return NULL; +} +EOF +} + +my %seen_const = (); +# generates APR::Const and Apache2::Const manpages in ./tmp/ +sub generate_constants_pod { + my ($self) = @_; + + my %data = (); + generate_constants_group_lookup_doc(\%data); + generate_constants_lookup_doc(\%data); + + # XXX: may be dump %data into ModPerl::MethodLookup and provide an + # easy api to map const groups to constants and vice versa + + require File::Path; + my $file = "Const.pod"; + for my $class (sort keys %data) { + my $path = catdir "tmp", $class; + File::Path::mkpath($path, 0, 0755); + my $filepath = catfile $path, $file; + open my $fh, ">$filepath" or die "Can't open $filepath: $!\n"; + + print $fh <<"EOF"; +=head1 NAME + +$class\::Const - Perl Interface for $class Constants + +=head1 SYNOPSIS + +=head1 CONSTANTS + +EOF + + my $groups = $data{$class}; + for my $group (sort keys %$groups) { + print $fh <<"EOF"; + + + +=head2 C<:$group> + + use $class\::Const -compile qw(:$group); + +The C<:$group> group is for XXX constants. + +EOF + + for my $const (sort @{ $groups->{$group} }) { + print $fh "=head3 C<$class\::$const>\n\n\n"; + } + } + + print $fh "=cut\n"; + } +} + +sub generate_constants_lookup_doc { + my ($data) = @_; + + foreach my $class (sort keys %$Apache2::ConstantsTable) { + my $groups = $Apache2::ConstantsTable->{$class}; + my $constants = [sort map { @$_ } values %$groups]; + + constants_lookup_code_doc($constants, $class, $data); + } +} + +sub generate_constants_group_lookup_doc { + my ($data) = @_; + + foreach my $class (sort keys %$Apache2::ConstantsTable) { + my $groups = $Apache2::ConstantsTable->{$class}; + constants_group_lookup_code_doc($class, $groups, $data); + } +} + +sub constants_group_lookup_code_doc { + my ($class, $groups, $data) = @_; + my @tags; + my @code; + + while (my ($group, $constants) = each %$groups) { + $data->{$class}{$group} = [ + map { + my @ifdef = constants_ifdef($_); + s/^($constant_prefixes)_?//o; + $seen_const{$class}{$_}++; + $_; + } @$constants + ]; + } +} + +sub constants_lookup_code_doc { + my ($constants, $class, $data) = @_; + + my (%switch, %alias); + + %alias = %shortcuts; + + my $postfix = lc $class; + my $package = $class . '::'; + my $package_len = length $package; + + my $func = canon_func(qw(constants lookup), $postfix); + + for (@$constants) { + if (s/^($constant_prefixes)(_)?//o) { + $alias{$_} = join $2 || "", $1, $_; + } + else { + $alias{$_} ||= $_; + } + next unless /^([A-Z])/; + push @{ $switch{$1} }, $_; + } + + for my $key (sort keys %switch) { + my $names = $switch{$key}; + for my $name (@$names) { + my @ifdef = constants_ifdef($alias{$name}); + push @{ $data->{$class}{other} }, $name + unless $seen_const{$class}{$name} + } + } +} + +sub generate_exports { + my ($self, $c_fh) = @_; + require ModPerl::WrapXS; + ModPerl::WrapXS->generate_exports($c_fh); +} + +# src/modules/perl/*.c files needed to build APR/APR::* outside +# of mod_perl.so +sub src_apr_ext { + return map { "modperl_$_" } (qw(error bucket), + map { "common_$_" } qw(util log)); +} + +1; +__END__ + +=head1 NAME + +ModPerl::Code - Generate mod_perl glue code + +=head1 SYNOPSIS + + use ModPerl::Code (); + my $code = ModPerl::Code->new; + $code->generate; + +=head1 DESCRIPTION + +This module provides functionality for generating mod_perl glue code. +Reason this code is generated rather than written by hand include: + +=over 4 + +=item consistency + +=item thin and clean glue code + +=item enable/disable features (without #ifdefs) + +=item adapt to changes in Apache + +=item experiment with different approaches to gluing + +=back + +=head1 AUTHOR + +Doug MacEachern + +=cut
diff --git a/2_0_13/lib/ModPerl/Config.pm b/2_0_13/lib/ModPerl/Config.pm new file mode 100644 index 0000000..89b0f51 --- /dev/null +++ b/2_0_13/lib/ModPerl/Config.pm
@@ -0,0 +1,98 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::Config; + +use strict; + +use Apache2::Build (); +use Apache::TestConfig (); +use File::Spec (); + +use constant WIN32 => Apache2::Build::WIN32; + +sub as_string { + my $build = Apache2::Build->build_config; + + my $cfg = ''; + + $cfg .= "*** mod_perl version $mod_perl::VERSION\n\n";; + + my $file = File::Spec->rel2abs($INC{'Apache2/BuildConfig.pm'}); + $cfg .= "*** using $file\n\n"; + + # the widest key length + my $max_len = 0; + for (map {length} grep /^MP_/, keys %$build) { + $max_len = $_ if $_ > $max_len; + } + + # mod_perl opts + $cfg .= "*** Makefile.PL options:\n"; + $cfg .= join '', + map {sprintf " %-${max_len}s => %s\n", $_, $build->{$_}} + grep /^MP_/, sort keys %$build; + + my $command = ''; + + # httpd opts + my $test_config = Apache::TestConfig->new({thaw=>1}); + + if (my $httpd = $test_config->{vars}->{httpd}) { + $command = "$httpd -V"; + $cfg .= "\n\n*** $command\n"; + $cfg .= qx{$command}; + + $cfg .= Apache::TestConfig::ldd_as_string($httpd); + } + else { + $cfg .= "\n\n*** The httpd binary was not found\n"; + } + + # apr + $cfg .= "\n\n*** (apr|apu)-config linking info\n\n"; + my @apru_link_flags = $build->apru_link_flags; + if (@apru_link_flags) { + my $libs = join "\n", @apru_link_flags; + $cfg .= "$libs\n\n"; + } + else { + $cfg .= "(apr|apu)-config scripts were not found\n\n"; + } + + # perl opts + my $perl = $build->{MODPERL_PERLPATH}; + $command = "$perl -V"; + $cfg .= "\n\n*** $command\n"; + $cfg .= qx{$command}; + + return $cfg; + +} + +1; +__END__ + +=pod + +=head1 NAME + +ModPerl::Config - Functions to retrieve mod_perl specific env information. + +=head1 DESCRIPTION + +=cut +
diff --git a/2_0_13/lib/ModPerl/FunctionMap.pm b/2_0_13/lib/ModPerl/FunctionMap.pm new file mode 100644 index 0000000..e611132 --- /dev/null +++ b/2_0_13/lib/ModPerl/FunctionMap.pm
@@ -0,0 +1,216 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::FunctionMap; + +use strict; +use warnings FATAL => 'all'; +use ModPerl::MapUtil qw(); +use ModPerl::ParseSource (); + +our @ISA = qw(ModPerl::MapBase); + +sub new { + my $class = shift; + bless {}, $class; +} + +#for adding to function.map +sub generate { + my $self = shift; + + my $missing = $self->check; + return unless $missing; + + print " $_\n" for @$missing; +} + +sub disabled { shift->{disabled} } + +#look for functions that do not exist in *.map +sub check { + my $self = shift; + my $map = $self->get; + + my @missing; + my $mp_func = ModPerl::ParseSource->wanted_functions; + + for my $name (map $_->{name}, @{ $self->function_table() }) { + next if exists $map->{$name}; + push @missing, $name unless $name =~ /^($mp_func)/o; + } + + return @missing ? \@missing : undef; +} + +#look for functions in *.map that do not exist +my $special_name = qr{(^DEFINE_|DESTROY$)}; + +sub check_exists { + my $self = shift; + + my %functions = map { $_->{name}, 1 } @{ $self->function_table() }; + my @missing = (); + + for my $name (keys %{ $self->{map} }) { + next if $functions{$name}; + push @missing, $name unless $name =~ $special_name; + } + + return @missing ? \@missing : undef; +} + +my $keywords = join '|', qw(MODULE PACKAGE PREFIX BOOT); + +sub guess_prefix { + my $entry = shift; + + my ($name, $class) = ($entry->{name}, $entry->{class}); + my $prefix = ""; + $name =~ s/^DEFINE_//; + $name =~ s/^mpxs_//i; + + (my $modprefix = ($entry->{class} || $entry->{module}) . '_') =~ s/::/__/g; + (my $guess = lc $modprefix) =~ s/_+/_/g; + + $guess =~ s/(apache2)_/($1|ap)_{1,2}/; + + if ($name =~ s/^($guess|$modprefix).*/$1/i) { + $prefix = $1; + } + else { + if ($name =~ /^(apr?_)/) { + $prefix = $1; + } + } + + #print "GUESS prefix=$guess, name=$entry->{name} -> $prefix\n"; + + return $prefix; +} + +sub parse { + my ($self, $fh, $map) = @_; + my %cur; + my $disabled = 0; + + while ($fh->readline) { + if (/($keywords)=/o) { + $disabled = s/^\W//; #module is disabled + my %words = $self->parse_keywords($_); + + if ($words{MODULE}) { + %cur = (); + } + + if ($words{PACKAGE}) { + delete $cur{CLASS}; + } + + for (keys %words) { + $cur{$_} = $words{$_}; + } + + next; + } + + my ($name, $dispatch, $argspec, $alias) = split /\s*\|\s*/; + my $return_type; + + if ($name =~ s/^([^:]+)://) { + $return_type = $1; + $return_type =~ s/\s+$//; # allow: char * :.... + } + + if ($name =~ s/^(\W)// or not $cur{MODULE} or $disabled) { + #notimplemented or cooked by hand + die qq[function '$name' appears more than once in xs/maps files] + if $map->{$name}; + + $map->{$name} = undef; + push @{ $self->{disabled}->{ $1 || '!' } }, $name; + next; + } + + if (my $package = $cur{PACKAGE}) { + unless ($package eq 'guess') { + $cur{CLASS} = $package; + } + if ($cur{ISA}) { + $self->{isa}->{ $cur{MODULE} }->{$package} = delete $cur{ISA}; + } + if ($cur{BOOT}) { + $self->{boot}->{ $cur{MODULE} } = delete $cur{BOOT}; + } + } + else { + $cur{CLASS} = $cur{MODULE}; + } + + #XXX: make_prefix() stuff should be here, not ModPerl::WrapXS + if ($name =~ /^DEFINE_/ and $cur{CLASS}) { + $name =~ s{^(DEFINE_)(.*)} + {$1 . ModPerl::WrapXS::make_prefix($2, $cur{CLASS})}e; + } + + die qq[function '$name' appears more than once in xs/maps files] + if $map->{$name}; + + my $entry = $map->{$name} = { + name => $alias || $name, + dispatch => $dispatch, + argspec => $argspec ? [split /\s*,\s*/, $argspec] : "", + return_type => $return_type, + alias => $alias, + }; + + for (keys %cur) { + $entry->{lc $_} = $cur{$_}; + } + + #avoid 'use of uninitialized value' warnings + $entry->{$_} ||= "" for keys %{ $entry }; + if ($entry->{dispatch} =~ /_$/) { + $entry->{dispatch} .= $name; + } + } +} + +sub get { + my $self = shift; + + $self->{map} ||= $self->parse_map_files; +} + +sub prefixes { + my $self = shift; + $self = ModPerl::FunctionMap->new unless ref $self; + + my $map = $self->get; + my %prefix; + + while (my ($name, $ent) = each %$map) { + next unless $ent->{prefix}; + $prefix{ $ent->{prefix} }++; + } + + $prefix{$_} = 1 for qw(ap_ apr_); #make sure we get these + + [keys %prefix] +} + +1; +__END__
diff --git a/2_0_13/lib/ModPerl/MM.pm b/2_0_13/lib/ModPerl/MM.pm new file mode 100644 index 0000000..597a743 --- /dev/null +++ b/2_0_13/lib/ModPerl/MM.pm
@@ -0,0 +1,175 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::MM; + +use strict; +use warnings; + +use ExtUtils::MakeMaker (); +use ExtUtils::Install (); + +use Cwd (); +use Carp; + +our %PM; #add files to installation + +# MM methods that this package overrides +no strict 'refs'; +my $stash = \%{__PACKAGE__ . '::MY::'}; +my @methods = grep *{$stash->{$_}}{CODE}, keys %$stash; +my $eu_mm_mv_all_methods_overriden = 0; + +use strict 'refs'; + +sub override_eu_mm_mv_all_methods { + my @methods = @_; + + my $orig_sub = \&ExtUtils::MakeMaker::mv_all_methods; + no warnings 'redefine'; + *ExtUtils::MakeMaker::mv_all_methods = sub { + # do the normal move + $orig_sub->(@_); + # for all the overloaded methods mv_all_method installs a stab + # eval "package MY; sub $method { shift->SUPER::$method(\@_); }"; + # therefore we undefine our methods so on the recursive invocation of + # Makefile.PL they will be undef, unless defined in Makefile.PL + # and my_import will override these methods properly + for my $sym (@methods) { + my $name = "MY::$sym"; + undef &$name if defined &$name; + } + }; +} + +sub add_dep { + my ($string, $targ, $add) = @_; + $$string =~ s/($targ\s+::)/$1 $add/; +} + +sub add_dep_before { + my ($string, $targ, $before_targ, $add) = @_; + $$string =~ s/($targ\s+::.*?) ($before_targ)/$1 $add $2/; +} + +sub add_dep_after { + my ($string, $targ, $after_targ, $add) = @_; + $$string =~ s/($targ\s+::.*?$after_targ)/$1 $add/; +} + +my $build; + +sub build_config { + my $key = shift; + require Apache2::Build; + $build ||= Apache2::Build->build_config; + return $build unless $key; + $build->{$key}; +} + +#the parent WriteMakefile moves MY:: methods into a different class +#so alias them each time WriteMakefile is called in a subdir + +sub my_import { + my $package = shift; + no strict 'refs'; + my $stash = \%{$package . '::MY::'}; + for my $sym (keys %$stash) { + next unless *{$stash->{$sym}}{CODE}; + my $name = "MY::$sym"; + # the method is defined in Makefile.PL + next if defined &$name; + # do the override behind the scenes + *$name = *{$stash->{$sym}}{CODE}; + } +} + +my @default_opts = qw(CCFLAGS LIBS INC OPTIMIZE LDDLFLAGS TYPEMAPS); +my @default_dlib_opts = qw(OTHERLDFLAGS); +my @default_macro_opts = (); +my %opts = ( + CCFLAGS => sub { $build->{MODPERL_CCOPTS} }, + LIBS => sub { join ' ', $build->apache_libs, $build->modperl_libs }, + INC => sub { $build->inc; }, + OPTIMIZE => sub { $build->perl_config('optimize'); }, + LDDLFLAGS => sub { $build->perl_config('lddlflags'); }, + TYPEMAPS => sub { $build->typemaps; }, + OTHERLDFLAGS => sub { $build->otherldflags; }, +); + +sub get_def_opt { + my $opt = shift; + return $opts{$opt}->() if exists $opts{$opt}; + # handle cases when Makefile.PL wants an option we don't have a + # default for. XXX: some options expect [] rather than scalar. + Carp::carp("!!! no default argument defined for argument: $opt"); + return ''; +} + +sub WriteMakefile { + my %args = @_; + + # override ExtUtils::MakeMaker::mv_all_methods + # can't do that on loading since ModPerl::MM is also use()'d + # by ModPerl::BuildMM which itself overrides it + unless ($eu_mm_mv_all_methods_overriden) { + override_eu_mm_mv_all_methods(@methods); + $eu_mm_mv_all_methods_overriden++; + } + + $build ||= build_config(); + my_import(__PACKAGE__); + + # set top-level WriteMakefile's values if weren't set already + for my $o (@default_opts) { + $args{$o} = get_def_opt($o) unless exists $args{$o}; # already defined + } + + # set dynamic_lib-level WriteMakefile's values if weren't set already + $args{dynamic_lib} ||= {}; + my $dlib = $args{dynamic_lib}; + for my $o (@default_dlib_opts) { + $dlib->{$o} = get_def_opt($o) unless exists $dlib->{$o}; + } + + # set macro-level WriteMakefile's values if weren't set already + $args{macro} ||= {}; + my $macro = $args{macro}; + for my $o (@default_macro_opts) { + $macro->{$o} = get_def_opt($o) unless exists $macro->{$o}; + } + + ExtUtils::MakeMaker::WriteMakefile(%args); +} + +#### MM overrides #### + +sub ModPerl::MM::MY::post_initialize { + my $self = shift; + + $build ||= build_config(); + my $pm = $self->{PM}; + + while (my ($k, $v) = each %PM) { + if (-e $k) { + $pm->{$k} = $v; + } + } + + ''; +} + +1;
diff --git a/2_0_13/lib/ModPerl/Manifest.pm b/2_0_13/lib/ModPerl/Manifest.pm new file mode 100644 index 0000000..82cbdec --- /dev/null +++ b/2_0_13/lib/ModPerl/Manifest.pm
@@ -0,0 +1,128 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::Manifest; + +use strict; +use warnings FATAL => 'all'; + +use File::Basename; +use File::Find; +use Cwd (); +use Exporter (); + +our @EXPORT_OK = qw(mkmanifest); + +*import = \&Exporter::import; + +#generate a MANIFEST based on CVS/Entries +#anything to be skipped goes after __DATA__ (MANIFEST.SKIP format) +#anything else to be added should go here: +my @add_files = qw{ + MANIFEST + mod_perl.spec + Apache-Test/META.yml +}; + +sub get_svn_files { + my @files; + + my $cwd = Cwd::cwd(); + my @lines = `svn status -v` ; + foreach my $line (@lines) { + chomp $line; + if ($line =~ /(?:\d+)\s+(?:\d+)\s+(?:\w+)\s+(.*)\s*/) { + my $file = $1; + if (-e $file && ! -d $file) { + $file =~ s{\\}{/}g; + push @files, $file; + } + } + } + + # files to add which aren't under svn + push @files, qw(lib/ModPerl/DummyVersions.pm lib/ModPerl/MethodLookup.pm); + + return @files; +} + +sub mkmanifest { + my @files = (@add_files, get_svn_files()); + + my $matches = maniskip(); + open my $fh, '>', 'MANIFEST' or die "open MANIFEST: $!"; + + for my $file (sort @files) { + if ($matches->($file)) { + warn "skipping $file\n"; + next; + } + + print "$file\n"; + print $fh "$file\n"; + } + + close $fh; +} + +#copied from ExtUtils::Manifest +#uses DATA instead of MANIFEST.SKIP +sub maniskip { + my $matches = sub {0}; + my @skip; + + while (<DATA>){ + chomp; + next if /^#/; + next if /^\s*$/; + push @skip, $_; + } + + my $sub = "\$matches = " + . "sub { my (\$arg)=\@_; return 1 if " + . join (" || ", (map {s!/!\\/!g; "\$arg =~ m/$_/o"} @skip), 0) + . " }"; + + eval $sub; + + $matches; +} + +1; +__DATA__ +patches/ +#very few will have Chatbot::Eliza installed +eliza +# random failures +t/perl/ithreads.t +t/perl/ithreads2.t +t/response/TestPerl/ithreads.pm +t/response/TestPerl/ithreads_args.pm +t/response/TestPerl/ithreads_eval.pm +# broken/out-dated +t/perl/ithreads3.t +t/response/TestPerl/ithreads3.pm +# incomplete +t/apr-ext/perlio +# PAUSE breaks if a dist has more than one META.yml. the top-level +# META.yml already excludes Apache-Test from indexing +Apache-Test/META.yml +# exclude Apache-Test/MANIFEST since it confuses the mp2 build (e.g it +# wants Apache-Test/META.yml which we don't supply, see above) +Apache-Test/MANIFEST + +# this is an internal to developers sub-project +Apache-Test/Apache-TestItSelf
diff --git a/2_0_13/lib/ModPerl/MapUtil.pm b/2_0_13/lib/ModPerl/MapUtil.pm new file mode 100644 index 0000000..aa4f3d1 --- /dev/null +++ b/2_0_13/lib/ModPerl/MapUtil.pm
@@ -0,0 +1,259 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::MapUtil; + +use strict; +use warnings; +use Exporter (); +use Apache2::Build (); + +our @EXPORT_OK = qw(list_first disabled_reason + function_table structure_table + xs_glue_dirs); + +our @ISA = qw(Exporter); + +# the mapping happens in lib/ModPerl/StructureMap.pm: sub parse +# '<' => 'auto-generated but gives only a read-only access' +# '&' => 'RDWR accessor to a char* field, supporting undef arg' +# '$' => 'RONLY accessor, with WRITE accessor before child_init' +# '%' => like $, but makes sure that for the write accessor the +# original perl scalar can change or go away w/o affecting +# the object +my %disabled_map = ( + '!' => 'disabled or not yet implemented', + '~' => 'implemented but not auto-generated', + '-' => 'likely never be available to Perl', + '>' => '"private" to apache', + '?' => 'unclassified', +); + +my $function_table = []; + +sub function_table { + return $function_table if @$function_table; + my $build = Apache2::Build->new(); + my $httpd_version = $build->httpd_version; + if ($httpd_version lt '2.4.0' || ! -d "xs/tables/current24") { + push @INC, "xs/tables/current"; + } + else { + push @INC, "xs/tables/current24"; + } + require Apache2::FunctionTable; + require ModPerl::FunctionTable; + require APR::FunctionTable; + @$function_table = (@$Apache2::FunctionTable, @$ModPerl::FunctionTable, + @$APR::FunctionTable); + $function_table; +} + +my $structure_table = []; + +sub structure_table { + return $structure_table if @$structure_table; + require Apache2::StructureTable; + @$structure_table = (@$Apache2::StructureTable); + $structure_table; +} + +sub disabled_reason { + $disabled_map{+shift} || 'unknown'; +} + +sub xs_glue_dirs { + Apache2::Build->build_config->mp_xs_glue_dir; +} + +sub list_first (&@) { + my $code = shift; + + for (@_) { + return $_ if $code->(); + } + + undef; +} + +package ModPerl::MapBase; + +*function_table = \&ModPerl::MapUtil::function_table; +*structure_table = \&ModPerl::MapUtil::structure_table; + +my @condition; + +sub readline { + my $fh = shift; + + while (<$fh>) { + chomp; + s/^\s+//; s/\s+$//; + + # this implements + # #_if_ cmd + # ... + # #_else_ + # #_end_ + if (/^\s*#\s*_(if|unless|els(?:e|if)|end)_(?:\s(.+))?/) { + my ($cmd, $param) = ($1, $2); + if (defined $param) { + while ($param=~s!\\$!!) { + my $l=<$fh>; + die "$ModPerl::MapUtil::MapFile($.): unexpected EOF\n" + unless defined $l; + chomp $l; + $param.=$l; + } + } + if ($cmd eq 'if') { + unshift @condition, + 0+!!eval "#line $. $ModPerl::MapUtil::MapFile\n".$param; + die $@ if $@; + } + elsif ($cmd eq 'elsif') { + die "parse error ($ModPerl::MapUtil::MapFile line $.)". + " #_elsif_ without #_if_" + unless @condition; + if ($condition[0] == 0) { + $condition[0]+= + !!eval "#line $. $ModPerl::MapUtil::MapFile\n".$param; + die $@ if $@; + } else { + $condition[0]++; + } + } + elsif ($cmd eq 'else') { + die "parse error ($ModPerl::MapUtil::MapFile line $.)". + " #_elsif_ without #_if_" + unless @condition; + $condition[0]+=1; + } + elsif ($cmd eq 'unless') { + unshift @condition, + 0+!eval "#line $. $ModPerl::MapUtil::MapFile\n".$param; + die $@ if $@; + } + elsif ($cmd eq 'end') { + shift @condition; + } + } + next if @condition and $condition[0] != 1; + + if (/^\s*#\s*_(eval)_(?:\s(.+))?/) { + my ($cmd, $param) = ($1, $2); + if (defined $param) { + while ($param=~s!\\$!!) { + my $l=<$fh>; + die "$ModPerl::MapUtil::MapFile($.): unexpected EOF\n" + unless defined $l; + chomp $l; + $param.=$l; + } + } + if ($cmd eq 'eval') { + eval "#line $. $ModPerl::MapUtil::MapFile\n".$param; + die $@ if $@; + } + next; + } + + s/\s*\#.*//; + + next unless $_; + + if (s:\\$::) { + my $cur = $_; + $_ = $cur . $fh->readline; + return $_; + } + + return $_; + } +} + +our $MapDir; + +my $map_classes = join '|', qw(type structure function); + +sub map_files { + my $self = shift; + my $package = ref($self) || $self; + + my ($wanted) = $package =~ /($map_classes)/io; + + my (@dirs) = (($MapDir || './xs'), ModPerl::MapUtil::xs_glue_dirs()); + + my @files; + + for my $dir (map { -d "$_/maps" ? "$_/maps" : $_ } @dirs) { + opendir my $dh, $dir or warn "opendir $dir: $!"; + + for (readdir $dh) { + next unless /\.map$/; + + my $file = "$dir/$_"; + + if ($wanted) { + next unless $file =~ /$wanted/i; + } + + #print "$package => $file\n"; + push @files, $file; + } + + closedir $dh; + } + + return @files; +} + +sub parse_keywords { + my ($self, $line) = @_; + my %words; + + for my $pair (split /\s+/, $line) { + my ($key, $val) = split /=/, $pair; + + unless ($key and $val) { + die "parse error ($ModPerl::MapUtil::MapFile line $.)"; + } + + $words{$key} = $val; + } + + %words; +} + +sub parse_map_files { + my ($self) = @_; + + my $map = {}; + + for my $file (map_files($self)) { + open my $fh, $file or die "open $file: $!"; + local $ModPerl::MapUtil::MapFile = $file; + bless $fh, __PACKAGE__; + @condition=(); # see readline() above + $self->parse($fh, $map); + close $fh; + } + + return $map; +} + +1; +__END__
diff --git a/2_0_13/lib/ModPerl/ParseSource.pm b/2_0_13/lib/ModPerl/ParseSource.pm new file mode 100644 index 0000000..4b8ccb7 --- /dev/null +++ b/2_0_13/lib/ModPerl/ParseSource.pm
@@ -0,0 +1,65 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::ParseSource; + +use strict; +use Config (); +use Apache2::ParseSource (); + +our @ISA = qw(Apache2::ParseSource); +our $VERSION = '0.01'; + +sub includes { + my $self = shift; + my $dirs = $self->SUPER::includes; + return [ + '.', qw(xs src/modules/perl), + @$dirs, + "$Config::Config{archlibexp}/CORE", + ]; +} + +sub include_dirs { '.' } + +sub find_includes { + my $self = shift; + my $includes = $self->SUPER::find_includes; + #filter/sort + my @wanted = grep { /mod_perl\.h/ } @$includes; + push @wanted, grep { m:xs/modperl_xs_: } @$includes; + push @wanted, grep { m:xs/[AM]: } @$includes; + \@wanted; +} + +my $prefixes = join '|', qw(modperl mpxs mp_xs); +my $prefix_re = qr{^($prefixes)_}; +sub wanted_functions { $prefix_re } + +sub write_functions_pm { + my $self = shift; + my $file = shift || 'FunctionTable.pm'; + my $name = shift || 'ModPerl::FunctionTable'; + $self->SUPER::write_functions_pm($file, $name); +} + +for my $method (qw(get_constants get_structs write_structs_pm get_structs)) { + no strict 'refs'; + *$method = sub { die __PACKAGE__ . "->$method not implemented" }; +} + +1; +__END__
diff --git a/2_0_13/lib/ModPerl/StructureMap.pm b/2_0_13/lib/ModPerl/StructureMap.pm new file mode 100644 index 0000000..2d4c47b --- /dev/null +++ b/2_0_13/lib/ModPerl/StructureMap.pm
@@ -0,0 +1,164 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::StructureMap; + +use strict; +use warnings FATAL => 'all'; +use ModPerl::MapUtil qw(structure_table); + +our @ISA = qw(ModPerl::MapBase); + +sub new { + my $class = shift; + bless {}, $class; +} + +sub generate { + my $self = shift; + my $map = $self->get; + + for my $entry (@{ structure_table() }) { + my $type = $entry->{type}; + my $elts = $entry->{elts}; + + next unless @$elts; + next if $type =~ $self->{IGNORE_RE}; + next unless grep { + not exists $map->{$type}->{ $_->{name} } + } @$elts; + + print "<$type>\n"; + for my $e (@$elts) { + print " $e->{name}\n"; + } + print "</$type>\n\n"; + } +} + +sub disabled { shift->{disabled} } + +sub check { + my $self = shift; + my $map = $self->get; + + my @missing; + + for my $entry (@{ structure_table() }) { + my $type = $entry->{type}; + + for my $name (map $_->{name}, @{ $entry->{elts} }) { + next if exists $map->{$type}->{$name}; + next if $type =~ $self->{IGNORE_RE}; + push @missing, "$type.$name"; + } + } + + return @missing ? \@missing : undef; +} + +sub check_exists { + my $self = shift; + + my %structures; + for my $entry (@{ structure_table() }) { + $structures{ $entry->{type} } = { map { + $_->{name}, 1 + } @{ $entry->{elts} } }; + } + + my @missing; + + while (my ($type, $elts) = each %{ $self->{map} }) { + for my $name (keys %$elts) { + next if exists $structures{$type}->{$name}; + push @missing, "$type.$name"; + } + } + + return @missing ? \@missing : undef; +} + +sub parse { + my ($self, $fh, $map) = @_; + + my ($disabled, $class); + my %cur; + + while ($fh->readline) { + if (m:^(\W?)</?([^>]+)>:) { + my $args; + $disabled = $1; + ($class, $args) = split /\s+/, $2, 2; + + %cur = (); + if ($args and $args =~ /E=/) { + %cur = $self->parse_keywords($args); + } + + $self->{MODULES}->{$class} = $cur{MODULE} if $cur{MODULE}; + + next; + } + elsif (s/^(\w+):\s*//) { + push @{ $self->{$1} }, split /\s+/; + next; + } + + if (s/^(\W)\s*// or $disabled) { + # < denotes a read-only accessor + if ($1) { + if ($1 eq '<') { + $map->{$class}->{$_} = 'ro'; + } + elsif ($1 eq '&') { + $map->{$class}->{$_} = 'rw_char_undef'; + } + elsif ($1 eq '$') { + $map->{$class}->{$_} = 'r+w_startup'; + } + elsif ($1 eq '%') { + $map->{$class}->{$_} = 'r+w_startup_dup'; + } + } + else { + $map->{$class}->{$_} = undef; + push @{ $self->{disabled}->{ $1 || '!' } }, "$class.$_"; + } + + } + else { + $map->{$class}->{$_} = 'rw'; + } + } + + if (my $ignore = $self->{IGNORE}) { + $ignore = join '|', @$ignore; + $self->{IGNORE_RE} = qr{^($ignore)}; + } + else { + $self->{IGNORE_RE} = qr{^$}; + } +} + +sub get { + my $self = shift; + + $self->{map} ||= $self->parse_map_files; +} + +1; +__END__
diff --git a/2_0_13/lib/ModPerl/TestReport.pm b/2_0_13/lib/ModPerl/TestReport.pm new file mode 100644 index 0000000..f2b9825 --- /dev/null +++ b/2_0_13/lib/ModPerl/TestReport.pm
@@ -0,0 +1,104 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::TestReport; + +use strict; +use warnings FATAL => 'all'; + +use base qw(Apache::TestReportPerl); + +use ExtUtils::MakeMaker (); + +my @interesting_packages = qw( + CGI + ExtUtils::MakeMaker + Apache2::Request + mod_perl2 + LWP + Apache2 + mod_perl +); + +# we want to see only already installed packages, so skip over +# modules that are about to be installed +my @skip_dirs = qw( + blib/lib + blib/arch + lib +); +my $skip_dir_str = join '|', map { s|/|[/\\\\]|g; $_ } @skip_dirs; +my $skip_dir_pat = qr|[/\\]($skip_dir_str)[/\\]*$|; + +sub packages { + + my @inc = grep !/$skip_dir_pat/, @INC; + + my %packages = (); + my $max_len = 0; + for my $package (sort @interesting_packages ) { + $max_len = length $package if length $package > $max_len; + my $filename = package2filename($package); + my @ver = (); + for my $dir (@inc) { + my $path = "$dir/$filename"; + if (-e $path) { + my $ver = MM->parse_version($path); + # two versions could be installed (one under Apache2/) + push @{ $packages{$package} }, $ver if $ver; + } + } + } + + my @lines = "*** Packages of interest status:\n"; + + for my $package (sort @interesting_packages) { + my $vers = exists $packages{$package} + ? join ", ", sort @{ $packages{$package} } + : "-"; + push @lines, sprintf "%-${max_len}s: %s", $package, $vers; + } + + return join "\n", @lines, ''; +} + +sub config { + my $self = shift; + + my @report = (); + + # core config + push @report, ModPerl::Config::as_string(); + + # installed packages + push @report, $self->packages; + + # this report is generated by user/group + + return join "\n", @report; +} + +sub package2filename { + my $package = shift; + $package =~ s|::|/|g; + $package .= ".pm"; + return $package; +} + +sub report_to { 'modperl@perl.apache.org' } + + +1;
diff --git a/2_0_13/lib/ModPerl/TestRun.pm b/2_0_13/lib/ModPerl/TestRun.pm new file mode 100644 index 0000000..eb37692 --- /dev/null +++ b/2_0_13/lib/ModPerl/TestRun.pm
@@ -0,0 +1,74 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::TestRun; + +use strict; +use warnings FATAL => 'all'; + +use base qw(Apache::TestRunPerl); + +use Apache2::Build; + +# some mp2 tests require more than one server instance to be available +# without which the server may hang, waiting for the single server +# become available +use constant MIN_CLIENTS => 2; + +sub new_test_config { + my $self = shift; + + # default timeout in secs (threaded mpms are extremely slow to + # startup, due to a slow perl_clone operation) + $self->{conf_opts}->{startup_timeout} ||= + $ENV{APACHE_TEST_STARTUP_TIMEOUT} || + Apache2::Build->build_config->mpm_is_threaded() ? 300 : 120; + + $self->{conf_opts}->{minclients} ||= MIN_CLIENTS; + + ModPerl::TestConfig->new($self->{conf_opts}); +} + +sub bug_report { + my $self = shift; + + print <<EOI; ++--------------------------------------------------------+ +| Please file a bug report: http://perl.apache.org/bugs/ | ++--------------------------------------------------------+ +EOI +} + +package ModPerl::TestConfig; + +use base qw(Apache::TestConfig); + +sub new { + my $class = shift; + my $self = $class->SUPER::new(@_); + my $config = Apache2::Build->build_config; + $self->{conf_opts}->{httpd} ||= $config->{httpd}; + return $self; +} + +# - don't inherit LoadModule perl_module from the apache httpd.conf +# - loaded fastcgi crashes some mp2 tests +my @skip = ('mod_perl.c', qr/mod_fastcgi.*?\.c$/); + +Apache::TestConfig::autoconfig_skip_module_add(@skip); + +1; +
diff --git a/2_0_13/lib/ModPerl/TypeMap.pm b/2_0_13/lib/ModPerl/TypeMap.pm new file mode 100644 index 0000000..5548cca --- /dev/null +++ b/2_0_13/lib/ModPerl/TypeMap.pm
@@ -0,0 +1,534 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::TypeMap; + +use strict; +use warnings FATAL => 'all'; + +use ModPerl::FunctionMap (); +use ModPerl::StructureMap (); +use ModPerl::MapUtil qw(list_first); + +our @ISA = qw(ModPerl::MapBase); + +sub new { + my $class = shift; + + my $self = bless { + INCLUDE => [], + struct => [], + typedef => [], + }, $class; + + $self->{function_map} = ModPerl::FunctionMap->new, + $self->{structure_map} = ModPerl::StructureMap->new, + + $self->get; + $self; +} + +my %special = map { $_, 1 } qw(UNDEFINED NOTIMPL CALLBACK); + +sub special { + my ($self, $class) = @_; + return $special{$class}; +} + +sub function_map { shift->{function_map}->get } +sub structure_map { shift->{structure_map}->get } + +sub parse { + my ($self, $fh, $map) = @_; + + while ($fh->readline) { + if (/E=/) { + my %args = $self->parse_keywords($_); + while (my ($key,$val) = each %args) { + push @{ $self->{$key} }, $val; + } + next; + } + + my @aliases; + my ($type, $class) = (split /\s*\|\s*/, $_)[0,1]; + $class ||= 'UNDEFINED'; + + if ($type =~ s/^(struct|typedef)\s+(.*)/$2/) { + my $typemap = $1; + push @aliases, $type; + + if ($typemap eq 'struct') { + push @aliases, "const $type", "$type *", "const $type *", + "struct $type *", "const struct $type *", + "$type **"; + } + + my $cname = $class; + if ($cname =~ s/::/__/g) { + push @{ $self->{$typemap} }, [$type, $cname]; + } + } + elsif ($type =~ /_t$/) { + push @aliases, $type, "$type *", "const $type *"; + } + else { + push @aliases, $type; + } + + for (@aliases) { + $map->{$_} = $class; + } + } +} + +sub get { + my $self = shift; + + $self->{map} ||= $self->parse_map_files; +} + +my $ignore = join '|', qw{ +ap_LINK ap_HOOK _ UINT union._ +union.block_hdr cleanup process_chain +iovec struct.rlimit Sigfunc in_addr_t +}; + +sub should_ignore { + my ($self, $type) = @_; + return 1 if $type =~ /^($ignore)/o; +} + +sub is_callback { + my ($self, $type) = @_; + return 1 if $type =~ /\(/ and $type =~ /\)/; #XXX: callback +} + +sub exists { + my ($self, $type) = @_; + + return 1 if $self->is_callback($type) || $self->should_ignore($type); + + $type =~ s/\[\d+\]$//; #char foo[64] + + return exists $self->get->{$type}; +} + +sub map_type { + my ($self, $type) = @_; + my $class = $self->get->{$type}; + + return unless $class and ! $self->special($class); +# return if $type =~ /\*\*$/; #XXX + if ($class =~ /::/) { + return $class; + } + else { + return $type; + } +} + +sub null_type { + my ($self, $type) = @_; + my $class = $self->get->{$type}; + + if ($class =~ /^[INU]V/) { + return '0'; + } + else { + return 'NULL'; + } +} + +sub can_map { + my $self = shift; + my $map = shift; + + return 1 if $map->{argspec}; + + for (@_) { + return (0, $_) unless $self->map_type($_); + } + + return 1; +} + +sub map_arg { + my ($self, $arg) = @_; + + my $map_type = $self->map_type($arg->{type}); + die "unknown typemap: '$arg->{type}'" unless defined $map_type; + + return { + name => $arg->{name}, + default => $arg->{default}, + type => $map_type, + rtype => $arg->{type}, + } +} + +sub map_args { + my ($self, $func) = @_; + + my $entry = $self->function_map->{ $func->{name} }; + my $argspec = $entry->{argspec}; + my $args = []; + + if ($argspec) { + $entry->{orig_args} = [ map $_->{name}, @{ $func->{args} } ]; + + for my $arg (@$argspec) { + my $default; + ($arg, $default) = split /=/, $arg, 2; + my ($type, $name) = split ':', $arg, 2; + + if ($type and $name) { + push @$args, { + name => $name, + type => $type, + default => $default, + }; + } + else { + my $e = list_first { $_->{name} eq $arg } @{ $func->{args} }; + if ($e) { + push @$args, { %$e, default => $default }; + } + elsif ($arg eq '...') { + push @$args, { name => '...', type => 'SV *' }; + } + else { + warn "bad argspec: $func->{name} ($arg)\n"; + } + } + } + } + else { + $args = $func->{args}; + } + + return [ map $self->map_arg($_), @$args ] +} + +#this is needed for modperl-only functions +#unlike apache/apr functions which are remapped to a mpxs_ function +sub thx_fixup { + my ($self, $func) = @_; + + my $first = $func->{args}->[0]; + + return unless $first; + + if ($first->{type} =~ /PerlInterpreter/) { + shift @{ $func->{args} }; + $func->{thx} = 1; + } +} + +sub map_function { + my ($self, $func) = @_; + + my $map = $self->function_map->{ $func->{name} }; + return unless $map; + + $self->thx_fixup($func); + + my ($status, $failed_type) = + $self->can_map($map, $func->{return_type}, + map $_->{type}, @{ $func->{args} }); + + unless ($status) { + warn "unknown typemap: '$failed_type' (skipping $func->{name})\n"; + return; + } + + my $type = $map->{return_type} || $func->{return_type} || 'void'; + my $map_type = $self->map_type($type); + die "unknown typemap: '$type'" unless defined $map_type; + + my $mf = { + name => $func->{name}, + return_type => $map_type, + args => $self->map_args($func), + perl_name => $map->{name}, + thx => $func->{thx}, + }; + + for (qw(dispatch argspec orig_args prefix)) { + $mf->{$_} = $map->{$_}; + } + + unless ($mf->{class}) { + $mf->{class} = $map->{class} || $self->first_class($mf); + #print "GUESS class=$mf->{class} for $mf->{name}\n"; + } + + $mf->{prefix} ||= ModPerl::FunctionMap::guess_prefix($mf); + + $mf->{module} = $map->{module} || $mf->{class}; + + $mf; +} + +sub map_structure { + my ($self, $struct) = @_; + + my ($class, @elts); + my $stype = $struct->{type}; + + return unless $class = $self->map_type($stype); + + for my $e (@{ $struct->{elts} }) { + my ($name, $type) = ($e->{name}, $e->{type}); + my $rtype; + + # ro/rw/r+w_startup/undef(disabled) + my $access_mode = $self->structure_map->{$stype}->{$name}; + next unless $access_mode; + next unless $rtype = $self->map_type($type); + + push @elts, { + name => $name, + type => $rtype, + default => $self->null_type($type), + pool => $self->class_pool($class), + class => $self->{map}->{$type} || "", + access_mode => $access_mode, + }; + } + + return { + module => $self->{structure_map}->{MODULES}->{$stype} || $class, + class => $class, + type => $stype, + elts => \@elts, + }; +} + +sub destructor { + my ($self, $prefix) = @_; + $self->function_map->{$prefix . 'DESTROY'}; +} + +sub first_class { + my ($self, $func) = @_; + + for my $e (@{ $func->{args} }) { + next unless $e->{type} =~ /::/; + #there are alot of util functions that take an APR::Pool + #that do not belong in the APR::Pool class + next if $e->{type} eq 'APR::Pool' and $func->{name} !~ /^apr_pool/; + return $e->{type}; + } + + return $func->{name} =~ /^apr_/ ? 'APR' : 'Apache2'; +} + +sub check { + my $self = shift; + + my (@types, @missing, %seen); + + require Apache2::StructureTable; + for my $entry (@$Apache2::StructureTable) { + push @types, map $_->{type}, @{ $entry->{elts} }; + } + + for my $entry (@$Apache2::FunctionTable) { + push @types, grep { not $seen{$_}++ } + ($entry->{return_type}, + map $_->{type}, @{ $entry->{args} }) + } + + #printf "%d types\n", scalar @types; + + for my $type (@types) { + push @missing, $type unless $self->exists($type); + } + + return @missing ? \@missing : undef; +} + +#look for Apache/APR structures that do not exist in structure.map +my %ignore_check = map { $_,1 } qw{ +module_struct cmd_how kill_conditions +regex_t regmatch_t pthread_mutex_t +unsigned void va_list ... iovec char int long const +gid_t uid_t time_t pid_t size_t +sockaddr hostent +SV +}; + +sub check_exists { + my $self = shift; + + my %structures = map { $_->{type}, 1 } @{ $self->structure_table() }; + my @missing = (); + my %seen; + + for my $name (keys %{ $self->{map} }) { + 1 while $name =~ s/^\w+\s+(\w+)/$1/; + $name =~ s/\s+\**.*$//; + next if $seen{$name}++ or $structures{$name} or $ignore_check{$name}; + push @missing, $name; + } + + return @missing ? \@missing : undef; +} + +#XXX: generate this +my %class_pools = map { + (my $f = "mpxs_${_}_pool") =~ s/:/_/g; + $_, $f; +} qw{ + Apache2::RequestRec Apache2::Connection Apache2::URI APR::URI +}; + +sub class_pool : lvalue { + my ($self, $class) = @_; + $class_pools{$class}; +} + +#anything needed that mod_perl.h does not already include +#XXX: .maps should INCLUDE= these +my @includes = qw{ +apr_uuid.h +apr_sha1.h +apr_md5.h +apr_base64.h +apr_getopt.h +apr_hash.h +apr_lib.h +apr_general.h +apr_signal.h +apr_thread_rwlock.h +util_script.h +}; + +sub h_wrap { + my ($self, $file, $code) = @_; + + $file = 'modperl_xs_' . $file; + + my $h_def = uc "${file}_h"; + my $preamble = "\#ifndef $h_def\n\#define $h_def\n\n"; + my $postamble = "\n\#endif /* $h_def */\n"; + + return ("$file.h", $preamble . $code . $postamble); +} + +sub typedefs_code { + my $self = shift; + my $map = $self->get; + my %seen; + + my $file = 'modperl_xs_typedefs'; + my $h_def = uc "${file}_h"; + my $code = ""; + + for (@includes, @{ $self->{INCLUDE} }) { + $code .= qq{\#include "$_"\n} + } + + for my $t (sort {$a->[1] cmp $b->[1]} @{ $self->{struct} }) { + next if $seen{ $t->[1] }++; + $code .= "typedef $t->[0] * $t->[1];\n"; + } + + for my $t (sort {$a->[1] cmp $b->[1]} @{ $self->{typedef} }) { + next if $seen{ $t->[1] }++; + $code .= "typedef $t->[0] $t->[1];\n"; + } + + $self->h_wrap('typedefs', $code); +} + +my %convert_alias = ( + Apache2__RequestRec => 'r', + Apache2__Server => 'server', + Apache2__Connection => 'connection', + APR__Table => 'table', + APR__UUID => 'uuid', + apr_status_t => 'status', +); + +sub sv_convert_code { + my $self = shift; + my $map = $self->get; + my %seen; + my $code = ""; + + for my $ctype (sort keys %$map) { + my $ptype = $map->{$ctype}; + + next if $self->special($ptype); + next if $ctype =~ /\s/; + my $class = $ptype; + + if ($ptype =~ s/:/_/g) { + next if $seen{$ptype}++; + + my $alias; + my $expect = "expecting an $class derived object"; + my $croak = "argument is not a blessed reference"; + + #Perl -> C + my $define = "mp_xs_sv2_$ptype"; + + $code .= <<EOF; +#define $define(sv) \\ +((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \\ +|| (Perl_croak(aTHX_ "$croak ($expect)"),0) ? \\ +INT2PTR($ctype *, SvIV((SV*)SvRV(sv))) : ($ctype *)NULL) + +EOF + + if ($alias = $convert_alias{$ptype}) { + $code .= "#define mp_xs_sv2_$alias $define\n\n"; + } + + #C -> Perl + $define = "mp_xs_${ptype}_2obj"; + + $code .= <<EOF; +#define $define(ptr) \\ +sv_setref_pv(sv_newmortal(), "$class", (void*)ptr) + +EOF + + if ($alias) { + $code .= "#define mp_xs_${alias}_2obj $define\n\n"; + } + } + else { + if ($ptype =~ /^(\wV)$/) { + my $class = $1; + my $define = "mp_xs_sv2_$ctype"; + + $code .= "#define $define(sv) ($ctype)Sv$class(sv)\n\n"; + + if (my $alias = $convert_alias{$ctype}) { + $code .= "#define mp_xs_sv2_$alias $define\n\n"; + } + } + } + } + + $self->h_wrap('sv_convert', $code); +} + +1; +__END__
diff --git a/2_0_13/lib/ModPerl/WrapXS.pm b/2_0_13/lib/ModPerl/WrapXS.pm new file mode 100644 index 0000000..9f5cb08 --- /dev/null +++ b/2_0_13/lib/ModPerl/WrapXS.pm
@@ -0,0 +1,1401 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::WrapXS; + +use strict; +use warnings FATAL => 'all'; + +use constant GvUNIQUE => 0; #$] >= 5.008; +use Apache::TestTrace; +use Apache2::Build (); +use ModPerl::Code (); +use ModPerl::TypeMap (); +use ModPerl::MapUtil qw(function_table xs_glue_dirs); +use File::Path qw(rmtree mkpath); +use Cwd qw(fastcwd); +use Data::Dumper; +use File::Spec::Functions qw(catfile catdir); + +our $VERSION = '0.01'; + +my (@xs_includes) = ('mod_perl.h', + map "modperl_xs_$_.h", qw(sv_convert util typedefs)); + +my @global_structs = qw(perl_module); + +my $build = Apache2::Build->build_config; +push @global_structs, 'MP_debug_level' unless Apache2::Build::WIN32; + +sub new { + my $class = shift; + + my $self = bless { + typemap => ModPerl::TypeMap->new, + includes => \@xs_includes, + glue_dirs => [xs_glue_dirs()], + }, $class; + + $self->typemap->get; + $self; +} + +sub typemap { shift->{typemap} } + +sub includes { shift->{includes} } + +sub function_list { + my $self = shift; + my (@list) = @{ function_table() }; + + while (my ($name, $val) = each %{ $self->typemap->function_map }) { + #entries that do not exist in C::Scan generated tables + next unless $name =~ /^DEFINE_/; + push @list, $val; + } + + return \@list; +} + +sub get_functions { + my $self = shift; + my $typemap = $self->typemap; + + for my $entry (sort { $a->{name} cmp $b->{name} } @{ $self->function_list() }) { + my $func = $typemap->map_function($entry); + #print "FAILED to map $entry->{name}\n" unless $func; + next unless $func; + + my ($name, $module, $class, $args) = + @{ $func } { qw(perl_name module class args) }; + + $self->{XS}->{ $module } ||= []; + + #eg ap_fputs() + if ($name =~ s/^DEFINE_//) { + $func->{name} =~ s/^DEFINE_//; + + if (needs_prefix($func->{name})) { + #e.g. DEFINE_add_output_filter + $func->{name} = make_prefix($func->{name}, $class); + } + } + + my $xs_parms = join ', ', + map { defined $_->{default} ? + "$_->{name}=$_->{default}" : $_->{name} } @$args; + + (my $parms = $xs_parms) =~ s/=[^,]+//g; #strip defaults + + my $proto = join "\n", + (map " $_->{type} $_->{name}", @$args), ""; + + my ($dispatch, $orig_args) = + @{ $func } {qw(dispatch orig_args)}; + + if ($dispatch =~ /^MPXS_/) { + $name =~ s/^mpxs_//; + $name =~ s/^$func->{prefix}//; + push @{ $self->{newXS}->{ $module } }, + ["$class\::$name", $dispatch]; + next; + } + + my $passthru = @$args && $args->[0]->{name} eq '...'; + if ($passthru) { + $parms = '...'; + $proto = ''; + } + + my $return_type = + $name =~ /^DESTROY$/ ? 'void' : $func->{return_type}; + + my $attrs = $self->attrs($name); + + my $code = <<EOF; +$return_type +$name($xs_parms) +$proto +$attrs +EOF + + if ($dispatch || $orig_args || $func->{thx}) { + my $thx = $func->{thx} ? 'aTHX_ ' : ""; + + if ($dispatch) { + $thx = 'aTHX_ ' if $dispatch =~ /^mpxs_/i; + } + else { + if ($orig_args and @$orig_args == @$args) { + #args were reordered + $parms = join ', ', @$orig_args; + } + + $dispatch = $func->{name}; + } + + if ($passthru) { + $thx ||= 'aTHX_ '; + $parms = 'items, MARK+1, SP'; + } + + $thx =~ s/_ $// unless $parms; + + my $retval = $return_type eq 'void' ? + ["", ""] : ["RETVAL = ", "OUTPUT:\n RETVAL\n"]; + + my $avoid_warning = ""; + if (@$args and not $passthru) { + $avoid_warning = " /* avoiding -Wall warnings */\n"; + $avoid_warning .= join "\n", + (map " $_->{name} = $_->{name};", @$args), ""; + } + $code .= <<EOF; + CODE: +$avoid_warning + $retval->[0]$dispatch($thx$parms); + + $retval->[1] +EOF + } + + $func->{code} = $code; + push @{ $self->{XS}->{ $module } }, $func; + } +} + +sub get_value { + my $e = shift; + my $val = 'val'; + + if ($e->{class} eq 'PV') { + if (my $pool = $e->{pool}) { + $pool .= '(obj)'; + $val = "(SvOK(ST(1)) ? + apr_pstrndup($pool, val, val_len) : NULL)" + } + } + + return $val; +} + +sub get_structures { + my $self = shift; + my $typemap = $self->typemap; + + require Apache2::StructureTable; + for my $entry (@$Apache2::StructureTable) { + my $struct = $typemap->map_structure($entry); + next unless $struct; + + my $class = $struct->{class}; + + for my $e (@{ $struct->{elts} }) { + my ($name, $default, $type, $access_mode) = + @{$e}{qw(name default type access_mode)}; + + (my $cast = $type) =~ s/:/_/g; + my $val = get_value($e); + + my $type_in = $type; + my $preinit = "/*nada*/"; + if ($e->{class} eq 'PV' and $val ne 'val') { + $type_in =~ s/char/char_len/; + $preinit = "STRLEN val_len;"; + } + + my $attrs = $self->attrs($name); + + my $code; + if ($access_mode eq 'ro') { + $code = <<EOF; +$type +$name(obj) + $class obj + +$attrs + + CODE: + RETVAL = ($cast) obj->$name; + + OUTPUT: + RETVAL + +EOF + } + elsif ($access_mode eq 'rw' or $access_mode eq 'r+w_startup') { + + my $check_runtime = $access_mode eq 'rw' + ? '' + : qq[MP_CROAK_IF_THREADS_STARTED("setting $name");]; + + $code = <<EOF; +$type +$name(obj, val=$default) + $class obj + $type_in val + + PREINIT: + $preinit +$attrs + + CODE: + RETVAL = ($cast) obj->$name; + + if (items > 1) { + $check_runtime + obj->$name = ($cast) $val; + } + + OUTPUT: + RETVAL + +EOF + } + elsif ($access_mode eq 'r+w_startup_dup') { + + my $convert = $cast !~ /\bchar\b/ + ? "mp_xs_sv2_$cast" + : "SvPV_nolen"; + + $code = <<EOF; +$type +$name(obj, val=(SV *)NULL) + $class obj + SV *val + + PREINIT: + $preinit +$attrs + + CODE: + RETVAL = ($cast) obj->$name; + + if (items > 1) { + SV *dup = get_sv("_modperl_private::server_rec_$name", TRUE); + MP_CROAK_IF_THREADS_STARTED("setting $name"); + sv_setsv(dup, val); + obj->$name = ($cast)$convert(dup); + } + + OUTPUT: + RETVAL + +EOF + } + elsif ($access_mode eq 'rw_char_undef') { + my $pool = $e->{pool} + or die "rw_char_undef accessors need pool"; + $pool .= '(obj)'; +# XXX: not sure where val=$default is coming from, but for now use +# hardcoded (SV *)NULL + $code = <<EOF; +$type +$name(obj, val_sv=(SV *)NULL) + $class obj + SV *val_sv + + PREINIT: +$attrs + + CODE: + RETVAL = ($cast) obj->$name; + + if (val_sv) { + if (SvOK(val_sv)) { + STRLEN val_len; + char *val = (char *)SvPV(val_sv, val_len); + obj->$name = apr_pstrndup($pool, val, val_len); + } + else { + obj->$name = NULL; + } + } + + OUTPUT: + RETVAL + +EOF + } + + push @{ $self->{XS}->{ $struct->{module} } }, { + code => $code, + class => $class, + name => $name, + }; + } + } +} + +sub prepare { + my $self = shift; + $self->{DIR} = 'WrapXS'; + $self->{XS_DIR} = catdir fastcwd(), 'xs'; + + my $verbose = Apache::TestTrace::trace_level() eq 'debug' ? 1 : 0; + + if (-e $self->{DIR}) { + rmtree([$self->{DIR}], $verbose, 1); + } + + mkpath [$self->{DIR}], $verbose, 0755; +} + +sub class_dirname { + my ($self, $class) = @_; + my ($base, $sub) = split '::', $class; + return "$self->{DIR}/$base" unless $sub; #Apache2 | APR + return $sub if $sub eq $self->{DIR}; #WrapXS + return "$base/$sub"; +} + +sub class_dir { + my ($self, $class) = @_; + + my $dirname = $self->class_dirname($class); + my $dir = ($dirname =~ m:/: and $dirname !~ m:^$self->{DIR}:) ? + catdir($self->{DIR}, $dirname) : $dirname; + + unless (-d $dir) { + mkpath [$dir], 0, 0755; + debug "mkdir.....$dir"; + } + + $dir; +} + +sub class_file { + my ($self, $class, $file) = @_; + catfile $self->class_dir($class), $file; +} + +sub cname { + my ($self, $class) = @_; + $class =~ s/:/_/g; + $class; +} + +sub open_class_file { + my ($self, $class, $file) = @_; + + if ($file =~ /^\./) { + my $sub = (split '::', $class)[-1]; + $file = $sub . $file; + } + + my $name = $self->class_file($class, $file); + + open my $fh, '>', $name or die "open $name: $!"; + debug "writing...$name"; + + return $fh; +} + +sub module_version { + local $_ = shift; + require mod_perl2; + # XXX: for now APR gets its libapr-0.9 version + return /^APR/ ? "0.009000" : "$mod_perl2::VERSION"; +} + +sub write_makefilepl { + my ($self, $class) = @_; + + my $fh = $self->open_class_file($class, 'Makefile.PL'); + + my $includes = $self->includes; + my $xs = (split '::', $class)[-1] . '.c'; + my $deps = {$xs => ""}; + + if (my $mod_h = $self->mod_h($class, 1)) { + $deps->{$xs} .= " $mod_h"; + } + + local $Data::Dumper::Terse = 1; + $deps = Dumper $deps; + + my $noedit_warning = $self->ModPerl::Code::noedit_warning_hash(); + require mod_perl2; + my $version = module_version($class); + + print $fh <<EOF; +$noedit_warning + +use lib qw(../../../lib); #for Apache2::BuildConfig +use ModPerl::BuildMM (); + +ModPerl::BuildMM::WriteMakefile( + 'NAME' => '$class', + 'VERSION' => '$version', + 'depend' => $deps, +); +EOF + + close $fh; +} + +sub mod_h { + my ($self, $module, $complete) = @_; + + my $dirname = $self->class_dirname($module); + my $cname = $self->cname($module); + my $mod_h = "$dirname/$cname.h"; + + for ($self->{XS_DIR}, @{ $self->{glue_dirs} }) { + my $file = "$_/$mod_h"; + $mod_h = $file if $complete; + return $mod_h if -e $file; + } + + undef; +} + +sub mod_pm { + my ($self, $module, $complete) = @_; + + my $dirname = $self->class_dirname($module); + my ($base, $sub) = split '::', $module; + my $mod_pm = "$dirname/${sub}_pm"; + + for ($self->{XS_DIR}, @{ $self->{glue_dirs} }) { + my $file = "$_/$mod_pm"; + $mod_pm = $file if $complete; + return $mod_pm if -e $file; + } + + undef; +} + +sub class_c_prefix { + my $class = shift; + $class =~ s/:/_/g; + $class; +} + +sub class_mpxs_prefix { + my $class = shift; + my $class_prefix = class_c_prefix($class); + "mpxs_${class_prefix}_"; +} + +sub needs_prefix { + my $name = shift; + $name !~ /^(ap|apr|mpxs)_/i; +} + +sub make_prefix { + my ($name, $class) = @_; + my $class_prefix = class_mpxs_prefix($class); + return $name if $name =~ /^$class_prefix/; + $class_prefix . $name; +} + +sub isa_str { + my ($self, $module) = @_; + my $str = ""; + + if (my $isa = $self->typemap->{function_map}->{isa}->{$module}) { + foreach my $sub (sort keys %$isa) { + my $base = $isa->{$sub}; +#XXX cannot set isa in the BOOT: section because XSLoader local-ises +#ISA during bootstrap +# $str .= qq{ av_push(get_av("$sub\::ISA", TRUE), +# newSVpv("$base",0));} + $str .= qq{\@$sub\::ISA = '$base';\n} + } + } + + $str; +} + +sub boot { + my ($self, $module) = @_; + my $str = ""; + + if (my $boot = $self->typemap->{function_map}->{boot}->{$module}) { + $str = ' mpxs_' . $self->cname($module) . "_BOOT(aTHX);\n"; + } + + $str; +} + +my $notshared = join '|', qw(TIEHANDLE); #not sure why yet + +sub attrs { + my ($self, $name) = @_; + my $str = ""; + return $str if $name =~ /$notshared$/o; + $str = " ATTRS: unique\n" if GvUNIQUE; + $str; +} + +sub write_xs { + my ($self, $module, $functions) = @_; + + my $fh = $self->open_class_file($module, '.xs'); + print $fh $self->ModPerl::Code::noedit_warning_c(), "\n"; + print $fh "\n#define MP_IN_XS\n\n"; + + my @includes = @{ $self->includes }; + + if (my $mod_h = $self->mod_h($module)) { + push @includes, $mod_h; + } + + for (@includes) { + print $fh qq{\#include "$_"\n\n}; + } + + my $last_prefix = ""; + + for my $func (@$functions) { + my $class = $func->{class}; + my $prefix = $func->{prefix}; + $last_prefix = $prefix if $prefix; + + if ($func->{name} =~ /^mpxs_/) { + #e.g. mpxs_Apache2__RequestRec_ + my $class_prefix = class_c_prefix($class); + if ($func->{name} =~ /$class_prefix/) { + $prefix = class_mpxs_prefix($class); + } + } + + $prefix = $prefix ? " PREFIX = $prefix" : ""; + print $fh "MODULE = $module PACKAGE = $class $prefix\n\n"; + + print $fh $func->{code}; + } + + if (my $destructor = $self->typemap->destructor($last_prefix)) { + my $arg = $destructor->{argspec}[0]; + + print $fh <<EOF; +void +$destructor->{name}($arg) + $destructor->{class} $arg + +EOF + } + + print $fh "MODULE = $module\n"; + print $fh "PROTOTYPES: disabled\n\n"; + print $fh "BOOT:\n"; + print $fh $self->boot($module); + print $fh " items = items; /* -Wall */\n\n"; + + if (my $newxs = $self->{newXS}->{$module}) { + for my $xs (sort { $a->[0] cmp $b->[0] } @$newxs) { + print $fh qq{ cv = newXS("$xs->[0]", $xs->[1], __FILE__);\n}; + print $fh qq{ GvUNIQUE_on(CvGV(cv));\n} if GvUNIQUE; + } + } + + if ($module eq 'APR::Pool' && Apache2::Build::PERL_HAS_ITHREADS) { + print $fh " modperl_opt_interp_unselect = APR_RETRIEVE_OPTIONAL_FN(modperl_interp_unselect);\n\n"; + print $fh " modperl_opt_thx_interp_get = APR_RETRIEVE_OPTIONAL_FN(modperl_thx_interp_get);\n\n"; + } + + close $fh; +} + +sub write_pm { + my ($self, $module) = @_; + + my $isa = $self->isa_str($module); + + my $code = ""; + if (my $mod_pm = $self->mod_pm($module, 1)) { + open my $fh, '<', $mod_pm; + local $/; + $code = <$fh>; + close $fh; + } + + my $base = (split '::', $module)[0]; + unless (-e "lib/$base/XSLoader.pm") { + $base = 'Apache2'; + } + my $loader = join '::', $base, 'XSLoader'; + + my $fh = $self->open_class_file($module, '.pm'); + my $noedit_warning = $self->ModPerl::Code::noedit_warning_hash(); + my $use_apr = ($module =~ /^APR::\w+$/) ? 'use APR ();' : ''; + my $version = module_version($module); + + print $fh <<EOF; +$noedit_warning + +package $module; + +use strict; +use warnings FATAL => 'all'; + +$isa +$use_apr +use $loader (); +our \$VERSION = '$version'; +$loader\::load __PACKAGE__; + +$code + +1; +__END__ +EOF +} + +my %typemap = ( + 'Apache2::RequestRec' => 'T_APACHEOBJ', + 'apr_time_t' => 'T_APR_TIME', + 'APR::Table' => 'T_HASHOBJ', + 'APR::Pool' => 'T_POOLOBJ', + 'apr_size_t *' => 'T_UVPTR', +); + +sub write_typemap { + my $self = shift; + my $typemap = $self->typemap; + my $map = $typemap->get; + my %seen; + + my $fh = $self->open_class_file('ModPerl::WrapXS', 'typemap'); + print $fh $self->ModPerl::Code::noedit_warning_hash(), "\n"; + + my %entries = (); + my $max_key_len = 0; + while (my ($type, $class) = each %$map) { + $class ||= $type; + next if $seen{$type}++ || $typemap->special($class); + + if ($class =~ /::/) { + $entries{$class} = $typemap{$class} || 'T_PTROBJ'; + $max_key_len = length $class if length $class > $max_key_len; + } + else { + $entries{$type} = $typemap{$type} || "T_$class"; + $max_key_len = length $type if length $type > $max_key_len; + } + } + + for (sort keys %entries) { + printf $fh "%-${max_key_len}s %s\n", $_, $entries{$_}; + } + + close $fh; +} + +sub write_typemap_h_file { + my ($self, $method) = @_; + + $method = $method . '_code'; + my ($h, $code) = $self->typemap->$method(); + my $file = catfile $self->{XS_DIR}, $h; + + open my $fh, '>', $file or die "open $file: $!"; + print $fh $self->ModPerl::Code::noedit_warning_c(), "\n"; + print $fh $code; + close $fh; +} + +sub write_lookup_method_file { + my $self = shift; + + my %map = (); + foreach my $module (sort keys %{ $self->{XS} }) { + my $functions = $self->{XS}->{$module}; + my $last_prefix = ""; + for my $func (@$functions) { + my $class = $func->{class}; + my $prefix = $func->{prefix}; + $last_prefix = $prefix if $prefix; + + my $name = $func->{perl_name} || $func->{name}; + $name =~ s/^DEFINE_//; + + if ($name =~ /^mpxs_/) { + #e.g. mpxs_Apache2__RequestRec_ + my $class_prefix = class_c_prefix($class); + if ($name =~ /$class_prefix/) { + $prefix = class_mpxs_prefix($class); + } + } + elsif ($name =~ /^ap_sub_req/) { + $prefix = 'ap_sub_req_'; + } + + $name =~ s/^$prefix// if $prefix; + + push @{ $map{$name} }, [$module, $class]; + } + + # pure XS wrappers don't have the information about the + # arguments they receive, since they manipulate the arguments + # stack directly. therefore for these methods we can't tell + # what are the objects they are invoked on + for my $xs (@{ $self->{newXS}->{$module} || []}) { + push @{ $map{$1} }, [$module, undef] if $xs->[0] =~ /.+::(.+)/; + } + } + + local $Data::Dumper::Terse = 1; + local $Data::Dumper::Sortkeys = 1; + $Data::Dumper::Terse = $Data::Dumper::Terse; # warn + $Data::Dumper::Sortkeys = $Data::Dumper::Sortkeys; # warn + my $methods = Dumper(\%map); + $methods =~ s/\n$//; + + my $package = "ModPerl::MethodLookup"; + my $file = catfile "lib", "ModPerl", "MethodLookup.pm"; + debug "creating $file"; + open my $fh, ">$file" or die "Can't open $file: $!"; + + my $noedit_warning = $self->ModPerl::Code::noedit_warning_hash(); + + print $fh <<EOF; +$noedit_warning +package $package; + +use strict; +use warnings; + +my \$methods = $methods; + +EOF + + print $fh <<'EOF'; + +use base qw(Exporter); +use mod_perl2; + +our @EXPORT = qw(print_method print_module print_object); +our $VERSION = $mod_perl2::VERSION; +use constant MODULE => 0; +use constant OBJECT => 1; + +my $modules; +my $objects; + +sub _get_modules { + for my $method (sort keys %$methods) { + for my $item ( @{ $methods->{$method} }) { + push @{ $modules->{$item->[MODULE]} }, [$method, $item->[OBJECT]]; + } + } +} + +sub _get_objects { + for my $method (sort keys %$methods) { + for my $item ( @{ $methods->{$method} }) { + next unless defined $item->[OBJECT]; + push @{ $objects->{$item->[OBJECT]} }, [$method, $item->[MODULE]]; + } + } +} + +# if there is only one replacement method in 2.0 API we can +# automatically lookup it, up however if there are more than one +# (e.g. new()), we need to use a fully qualified value here +# of course the same if the package is not a mod_perl one. +# +# the first field represents the replacement method or undef if none +# exists, the second field is for extra comments (e.g. when there is +# no replacement method) +my $methods_compat = { + # Apache2:: + gensym => ['Symbol::gensym', + 'or use "open my $fh, $file"'], + module => ['Apache2::Module::loaded', + ''], + define => ['exists_config_define', + ''], + httpd_conf => ['add_config', + ''], + SERVER_VERSION => ['get_server_version', + ''], + can_stack_handlers=> [undef, + 'there is no more need for that method in mp2'], + + # Apache2::RequestRec + soft_timeout => [undef, + 'there is no more need for that method in mp2'], + hard_timeout => [undef, + 'there is no more need for that method in mp2'], + kill_timeout => [undef, + 'there is no more need for that method in mp2'], + reset_timeout => [undef, + 'there is no more need for that method in mp2'], + cleanup_for_exec => [undef, + 'there is no more need for that method in mp2'], + send_http_header => ['content_type', + ''], + header_in => ['headers_in', + 'this method works in mod_perl 1.0 too'], + header_out => ['headers_out', + 'this method works in mod_perl 1.0 too'], + err_header_out => ['err_headers_out', + 'this method works in mod_perl 1.0 too'], + register_cleanup => ['cleanup_register', + ''], + post_connection => ['cleanup_register', + ''], + content => [undef, # XXX: Apache2::Request::what? + 'use CGI.pm or Apache2::Request instead'], + clear_rgy_endav => ['special_list_clear', + ''], + stash_rgy_endav => [undef, + ''], + run_rgy_endav => ['special_list_call', + 'this method is no longer needed'], + seqno => [undef, + 'internal to mod_perl 1.0'], + chdir_file => [undef, # XXX: to be resolved + 'temporary unavailable till the issue with chdir' . + ' in the threaded env is resolved'], + log_reason => ['log_error', + 'not in the Apache 2.0 API'], + READLINE => [undef, # XXX: to be resolved + ''], + send_fd_length => [undef, + 'not in the Apache 2.0 API'], + send_fd => ['sendfile', + 'requires an offset argument'], + is_main => ['main', + 'not in the Apache 2.0 API'], + cgi_var => ['subprocess_env', + 'subprocess_env can be used with mod_perl 1.0'], + cgi_env => ['subprocess_env', + 'subprocess_env can be used with mod_perl 1.0'], + each_byterange => [undef, + 'now handled internally by ap_byterange_filter'], + set_byterange => [undef, + 'now handled internally by ap_byterange_filter'], + + # Apache::File + open => [undef, + ''], + close => [undef, # XXX: also defined in APR::Socket + ''], + tmpfile => [undef, + 'not in the Apache 2.0 API, ' . + 'use File::Temp instead'], + + # Apache::Util + size_string => ['format_size', + ''], + escape_uri => ['unescape_path', + ''], + escape_url => ['escape_path', + 'and requires a pool object'], + unescape_uri => ['unescape_url', + ''], + unescape_url_info => [undef, + 'use CGI::Util::unescape() instead'], + escape_html => [undef, # XXX: will be ap_escape_html + 'ap_escape_html now requires a pool object'], + parsedate => ['parse_http', + ''], + validate_password => ['password_validate', + ''], + + # Apache::Table + #new => ['make', + # ''], # XXX: there are other 'new' methods + + # Apache::Connection + auth_type => ['ap_auth_type', + 'now resides in the request object'], +}; + +sub avail_methods_compat { + return keys %$methods_compat; +} + +sub avail_methods { + return keys %$methods; +} + +sub avail_modules { + my %modules = (); + for my $method (keys %$methods) { + for my $item ( @{ $methods->{$method} }) { + $modules{$item->[MODULE]}++; + } + } + return keys %modules; +} + +sub preload_all_modules { + _get_modules() unless $modules; + eval "require $_" for sort keys %$modules; +} + +sub _print_func { + my $func = shift; + my @args = @_ ? @_ : @ARGV; + no strict 'refs'; + print( ($func->($_))[0]) for @args; +} + +sub print_module { _print_func('lookup_module', @_) } +sub print_object { _print_func('lookup_object', @_) } + +sub print_method { + my @args = @_ ? @_ : @ARGV; + while (@args) { + my $method = shift @args; + my $object = (@args && + (ref($args[0]) || $args[0] =~ /^(Apache2|ModPerl|APR)/)) + ? shift @args + : undef; + print( (lookup_method($method, $object))[0]); + } +} + +sub sep { return '-' x (shift() + 20) . "\n" } + +# what modules contain the passed method. +# an optional object or a reference to it can be passed to help +# resolve situations where there is more than one module containing +# the same method. Inheritance is supported. +sub lookup_method { + my ($method, $object) = @_; + + unless (defined $method) { + my $hint = "No 'method' argument was passed\n"; + return ($hint); + } + + # strip the package name for the fully qualified method + $method =~ s/.+:://; + + if (exists $methods_compat->{$method}) { + my ($replacement, $comment) = @{$methods_compat->{$method}}; + my $hint = "'$method' is not a part of the mod_perl 2.0 API\n"; + $comment = length $comment ? " $comment\n" : ""; + + # some removed methods have no replacement + return $hint . "$comment" unless defined $replacement; + + $hint .= "use '$replacement' instead. $comment"; + + # if fully qualified don't look up its container + return $hint if $replacement =~ /::/; + + my ($modules_hint, @modules) = lookup_method($replacement, $object); + return $hint . $modules_hint; + } + elsif (!exists $methods->{$method}) { + my $hint = "Don't know anything about method '$method'\n"; + return ($hint); + } + + my @items = @{ $methods->{$method} }; + if (@items == 1) { + my $module = $items[0]->[MODULE]; + my $hint = "To use method '$method' add:\n" . "\tuse $module ();\n"; + # we should really check that the method matches the object if + # any was passed, but it may not always work + return ($hint, $module); + } + else { + if (defined $object) { + my $class = ref $object || $object; + for my $item (@items) { + # real class or inheritance + if ($class eq $item->[OBJECT] or + (ref($object) && $object->isa($item->[OBJECT]))) { + my $module = $item->[MODULE]; + my $hint = "To use method '$method' add:\n" . + "\tuse $module ();\n"; + return ($hint, $module); + } + } + # fall-through + local $" = ", "; + my @modules = map $_->[MODULE], @items; + my $hint = "Several modules (@modules) contain method '$method' " . + "but none of them matches class '$class';\n"; + return ($hint); + + } + else { + my %modules = map { $_->[MODULE] => 1 } @items; + # remove dups if any (e.g. $s->add_input_filter and + # $r->add_input_filter are loaded by the same Apache2::Filter) + my @modules = sort keys %modules; + my $hint; + if (@modules == 1) { + $hint = "To use method '$method' add:\n\tuse $modules[0] ();\n"; + return ($hint, $modules[0]); + } + else { + $hint = "There is more than one class with method '$method'\n" . + "try one of:\n" . join '', map {"\tuse $_ ();\n"} @modules; + return ($hint, @modules); + } + } + } +} + +# what methods are contained in the passed module name +sub lookup_module { + my ($module) = shift; + + unless (defined $module) { + my $hint = "no 'module' argument was passed\n"; + return ($hint); + } + + _get_modules() unless $modules; + + unless (exists $modules->{$module}) { + my $hint = "don't know anything about module '$module'\n"; + return ($hint); + } + + my @methods; + my $max_len = 6; + for ( @{ $modules->{$module} } ) { + $max_len = length $_->[0] if length $_->[0] > $max_len; + push @methods, $_->[0]; + } + + my $format = "%-${max_len}s %s\n"; + my $banner = sprintf($format, "Method", "Invoked on object type"); + my $hint = join '', + ("\nModule '$module' contains the following XS methods:\n\n", + $banner, sep(length($banner)), + map( { sprintf $format, $_->[0], $_->[1]||'???'} + @{ $modules->{$module} }), + sep(length($banner))); + + return ($hint, @methods); +} + +# what methods can be invoked on the passed object (or its reference) +sub lookup_object { + my ($object) = shift; + + unless (defined $object) { + my $hint = "no 'object' argument was passed\n"; + return ($hint); + } + + _get_objects() unless $objects; + + # a real object was passed? + $object = ref $object || $object; + + unless (exists $objects->{$object}) { + my $hint = "don't know anything about objects of type '$object'\n"; + return ($hint); + } + + my @methods; + my $max_len = 6; + for ( @{ $objects->{$object} } ) { + $max_len = length $_->[0] if length $_->[0] > $max_len; + push @methods, $_->[0]; + } + + my $format = "%-${max_len}s %s\n"; + my $banner = sprintf($format, "Method", "Module"); + my $hint = join '', + ("\nObjects of type '$object' can invoke the following XS methods:\n\n", + $banner, sep(length($banner)), + map({ sprintf $format, $_->[0], $_->[1]} @{ $objects->{$object} }), + sep(length($banner))); + + return ($hint, @methods); + +} + +1; +EOF + close $fh; +} + +sub write_module_versions_file { + my $self = shift; + + my $file = catfile "lib", "ModPerl", "DummyVersions.pm"; + debug "creating $file"; + open my $fh, ">$file" or die "Can't open $file: $!"; + + my $noedit_warning = $self->ModPerl::Code::noedit_warning_hash(); + print $fh "$noedit_warning\n"; + + my @modules = keys %{ $self->{XS} }; + push @modules, qw(ModPerl::MethodLookup); + + my $len = 0; + for (@modules) { + $len = length $_ if length $_ > $len; + } + + require mod_perl2; + $len += length '$::VERSION'; + for (sort @modules) { + my $ver = module_version($_); + printf $fh "package %s;\n%-${len}s = %s;\n\n", + $_, '$'.$_."::VERSION", $ver; + } +} + +sub generate { + my $self = shift; + + $self->prepare; + + for (qw(ModPerl::WrapXS Apache2 APR ModPerl)) { + $self->write_makefilepl($_); + } + + $self->write_typemap; + + for (qw(typedefs sv_convert)) { + $self->write_typemap_h_file($_); + } + + $self->get_functions; + $self->get_structures; + $self->write_export_file('exp') if Apache2::Build::AIX; + $self->write_export_file('def') if Apache2::Build::WIN32; + + foreach my $module (sort keys %{ $self->{XS} }) { + my $functions = $self->{XS}->{$module}; +# my ($root, $sub) = split '::', $module; +# if (-e "$self->{XS_DIR}/$root/$sub/$sub.xs") { +# $module = join '::', $root, "Wrap$sub"; +# } + $self->write_makefilepl($module); + $self->write_xs($module, $functions); + $self->write_pm($module); + } + + $self->write_lookup_method_file; + $self->write_module_versions_file; +} + +#three .sym files are generated: +#global - global symbols +#ithreads - #ifdef USE_ITHREADS functions +#inline - __inline__ functions +#the inline symbols are needed #ifdef MP_DEBUG +#since __inline__ will be turned off + +my %multi_export = map { $_, 1 } qw(exp); + +sub open_export_files { + my ($self, $name, $ext) = @_; + + my $dir = $self->{XS_DIR}; + my %handles; + my @types = qw(global inline ithreads); + + if ($multi_export{$ext}) { + #write to multiple files + for my $type (@types) { + my $file = "$dir/${name}_$type.$ext"; + + open my $fh, '>', $file or + die "open $file: $!"; + + $handles{$type} = $fh; + } + } + else { + #write to one file + my $file = "$dir/$name.$ext"; + + open my $fh, '>', $file or + die "open $file: $!"; + + for my $type (@types) { + $handles{$type} = $fh; + } + } + + \%handles; +} + +sub func_is_static { + my ($self, $entry) = @_; + if (my $attr = $entry->{attr}) { + return 1 if grep { $_ eq 'static' } @$attr; + } + + #C::Scan doesnt always pickup static __inline__ + return 1 if $entry->{name} =~ /^mpxs_/o; + + return 0; +} + +sub func_is_inline { + my ($self, $entry) = @_; + if (my $attr = $entry->{attr}) { + return 1 if grep { $_ eq '__inline__' } @$attr; + } + return 0; +} + +sub export_file_header_exp { + my $self = shift; + "#!\n"; +} + +sub export_file_format_exp { + my ($self, $val) = @_; + "$val\n"; +} + +sub export_file_header_def { + my $self = shift; + "LIBRARY\n\nEXPORTS\n\n"; +} + +sub export_file_format_def { + my ($self, $val) = @_; + " $val\n"; +} + +my $ithreads_exports = join '|', qw{ +modperl_cmd_interp_ +modperl_interp_ +modperl_list_ +modperl_tipool_ +modperl_svptr_table_clone$ +modperl_mgv_require_module$ +}; + +sub export_func_handle { + my ($self, $entry, $handles) = @_; + + if ($self->func_is_inline($entry)) { + return $handles->{inline}; + } + elsif ($entry->{name} =~ /^($ithreads_exports)/) { + return $handles->{ithreads}; + } + + $handles->{global}; +} + +sub write_export_file { + my ($self, $ext) = @_; + + my %files = ( + modperl => $ModPerl::FunctionTable, + apache2 => $Apache2::FunctionTable, + apr => $APR::FunctionTable, + ); + + my $header = \&{"export_file_header_$ext"}; + my $format = \&{"export_file_format_$ext"}; + + foreach my $key (sort keys %files) { + my $table = $files{$key}; + my $handles = $self->open_export_files($key, $ext); + + my %seen; #only write header once if this is a single file + for my $fh (values %$handles) { + next if $seen{$fh}++; + print $fh $self->$header(); + } + + # add the symbols which aren't the function table + if ($key eq 'modperl') { + my $fh = $handles->{global}; + for my $name (@global_structs) { + print $fh $self->$format($name); + } + } + + for my $entry (@$table) { + next if $self->func_is_static($entry); + my $name = $entry->{name}; + + my $fh = $self->export_func_handle($entry, $handles); + + print $fh $self->$format($name); + } + + %seen = (); #only close handle once if this is a single file + for my $fh (values %$handles) { + next if $seen{$fh}++; + close $fh; + } + } +} + +sub stats { + my $self = shift; + + $self->get_functions; + $self->get_structures; + + my %stats; + + while (my ($module, $functions) = each %{ $self->{XS} }) { + $stats{$module} += @$functions; + if (my $newxs = $self->{newXS}->{$module}) { + $stats{$module} += @$newxs; + } + } + + return \%stats; +} + +sub generate_exports { + my ($self, $fh) = @_; + + if (!$build->should_build_apache) { + print $fh <<"EOF"; +/* This is intentionnaly left blank, only usefull for static build */ +const void *modperl_ugly_hack = NULL; +EOF + return; + } + + print $fh <<"EOF"; +/* + * This is indeed a ugly hack! + * See also src/modules/perl/mod_perl.c for modperl_ugly_hack + * If we don't build such a list of exported API functions, the over-zealous + * linker can and will remove the unused functions completely. In order to + * avoid this, we create this object and modperl_ugly_hack to create a + * dependency between all the exported API and mod_perl.c + */ +const void *modperl_ugly_hack = NULL; +EOF + + for my $entry (@$ModPerl::FunctionTable) { + next if $self->func_is_static($entry); + unless (Apache2::Build::PERL_HAS_ITHREADS) { + next if $entry->{name} =~ /^($ithreads_exports)/; + } + ( my $name ) = $entry->{name} =~ /^modperl_(.*)/; + print $fh <<"EOF"; +#ifndef modperl_$name +const void *modperl_hack_$name = (const void *)modperl_$name; +#endif + +EOF + } +} + +1; +__END__
diff --git a/2_0_13/lib/mod_perl2.pm b/2_0_13/lib/mod_perl2.pm new file mode 100644 index 0000000..b100fe7 --- /dev/null +++ b/2_0_13/lib/mod_perl2.pm
@@ -0,0 +1,61 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package mod_perl2; + +use 5.006; +use strict; + +BEGIN { + our $VERSION = "2.000013"; + our $VERSION_TRIPLET; + + if ($VERSION =~ /(\d+)\.(\d\d\d)(\d+)/) { + my $v1 = $1; + my $v2 = int $2; + my $v3 = int($3 . "0" x (3 - length $3)); + $VERSION_TRIPLET = "$v1.$v2.$v3"; + } + else { + die "bad version: $VERSION"; + } + + # for example this gives us: + # $VERSION : "2.000020" + # int $VERSION : 2.00002 + # $VERSION_TRIPLET: 2.0.20 + + # easy to parse request time API version - use + # $mod_perl2::VERSION for more granularity + our $API_VERSION = 2; +} + +# this stuff is here to assist back compat +# basically, if you +# PerlModule mod_perl2 +# or take similar steps to load mod_perl2 at +# startup you are protected against loading mod_perl.pm +# (either 1.0 or 1.99) at a later time by accident. +$mod_perl::VERSION = $mod_perl2::VERSION; +$INC{"mod_perl.pm"} = __FILE__; + +1; +__END__ + +=head1 NAME + +mod_perl - Embed a Perl interpreter in the Apache/2.x HTTP server +
diff --git a/2_0_13/patches/c-scan.pat b/2_0_13/patches/c-scan.pat new file mode 100644 index 0000000..08efb55 --- /dev/null +++ b/2_0_13/patches/c-scan.pat
@@ -0,0 +1,16 @@ +--- Scan.pm~ Thu Mar 23 06:14:18 2000 ++++ Scan.pm Sun Jan 7 11:56:04 2001 +@@ -400,7 +400,12 @@ + } else { + $vars = parse_vars($chunk); + } +- push @$struct, @$vars; ++ if ($vars) { ++ push @$struct, @$vars; ++ } ++ else { ++ warn "unable to parse chunk: `$chunk'" if $C::Scan::Warn; ++ } + } + $structs->{$structname} = $struct; + $structname;
diff --git a/2_0_13/patches/link-hack.pat b/2_0_13/patches/link-hack.pat new file mode 100644 index 0000000..cf7e757 --- /dev/null +++ b/2_0_13/patches/link-hack.pat
@@ -0,0 +1,46 @@ +Index: src/build/program.mk +=================================================================== +RCS file: /home/cvs/apache-2.0/src/build/program.mk,v +retrieving revision 1.3 +diff -u -u -r1.3 program.mk +--- src/build/program.mk 2000/03/31 07:02:31 1.3 ++++ src/build/program.mk 2000/04/16 23:43:14 +@@ -54,7 +54,10 @@ + # The build environment was provided by Sascha Schumann. + # + ++MP_SRC = ../../modperl-2.0/src/modules/perl ++MP_LDADD = $(MP_SRC)/libmodperl.a `$(MP_SRC)/ldopts` ++ + PROGRAM_OBJECTS = $(PROGRAM_SOURCES:.c=.lo) + + $(PROGRAM_NAME): $(PROGRAM_DEPENDENCIES) $(PROGRAM_OBJECTS) +- $(LINK) $(PROGRAM_LDFLAGS) $(PROGRAM_OBJECTS) $(PROGRAM_LDADD) ++ $(LINK) $(PROGRAM_LDFLAGS) $(PROGRAM_OBJECTS) $(PROGRAM_LDADD) $(MP_LDADD) + +--- src/modules.c~ Wed Apr 12 20:00:23 2000 ++++ src/modules.c Wed Apr 12 20:10:16 2000 +@@ -26,6 +26,7 @@ + extern module auth_module; + extern module setenvif_module; + extern module echo_module; ++extern module perl_module; + + /* + * Modules which implicitly form the +@@ -54,6 +55,7 @@ + &auth_module, + &setenvif_module, + &echo_module, ++ &perl_module, + NULL + }; + +@@ -84,6 +86,7 @@ + &auth_module, + &setenvif_module, + &echo_module, ++ &perl_module, + NULL + }; +
diff --git a/2_0_13/src/modules/perl/mod_perl.c b/2_0_13/src/modules/perl/mod_perl.c new file mode 100644 index 0000000..4edba4a --- /dev/null +++ b/2_0_13/src/modules/perl/mod_perl.c
@@ -0,0 +1,1149 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* make sure that mod_perl won't try to start itself, while it's + * already starting. If the flag's value is 1 * it's still starting, + * when it's 2 it is running */ +static int MP_init_status = 0; + +#define MP_IS_NOT_RUNNING (MP_init_status == 0 ? 1 : 0) +#define MP_IS_STARTING (MP_init_status == 1 ? 1 : 0) +#define MP_IS_RUNNING (MP_init_status == 2 ? 1 : 0) + +/* false while there is only the parent process and may be child + * processes, but no threads around, useful for allowing things that + * don't require locking and won't affect other threads. It should + * become true just before the child_init phase */ +static int MP_threads_started = 0; + +int modperl_threads_started(void) +{ + return MP_threads_started; +} + +static int MP_threaded_mpm = 0; + +int modperl_threaded_mpm(void) +{ + return MP_threaded_mpm; +} + +/* sometimes non-threaded mpm also needs to know whether it's still + * starting up or after post_config) */ +static int MP_post_post_config_phase = 0; + +int modperl_post_post_config_phase(void) +{ + return MP_post_post_config_phase; +} + +#ifndef USE_ITHREADS +static apr_status_t modperl_shutdown(void *data) +{ + modperl_cleanup_data_t *cdata = (modperl_cleanup_data_t *)data; + PerlInterpreter *perl = (PerlInterpreter *)cdata->data; + void **handles; + + handles = modperl_xs_dl_handles_get(aTHX); + + MP_TRACE_i(MP_FUNC, "destroying interpreter=0x%lx", + (unsigned long)perl); + + modperl_perl_destruct(perl); + + modperl_xs_dl_handles_close(handles); + + return APR_SUCCESS; +} +#endif + +static const char *MP_xs_loaders[] = { + "Apache2", "APR", NULL, +}; + +#define MP_xs_loader_name "%s::XSLoader::BOOTSTRAP" + +/* ugly hack to have access to startup pool and server during xs_init */ +static struct { + apr_pool_t *p; + server_rec *s; +} MP_boot_data = {NULL,NULL}; + +#define MP_boot_data_set(pool, server) \ + MP_boot_data.p = pool; \ + MP_boot_data.s = server + +#define MP_dBOOT_DATA \ + apr_pool_t *p = MP_boot_data.p; \ + server_rec *s = MP_boot_data.s + +static void modperl_boot(pTHX_ void *data) +{ + MP_dBOOT_DATA; + int i; + + modperl_env_clear(aTHX); + + modperl_env_default_populate(aTHX); + + modperl_env_configure_server(aTHX_ p, s); + + modperl_perl_core_global_init(aTHX); + + for (i=0; MP_xs_loaders[i]; i++) { + char *name = Perl_form(aTHX_ MP_xs_loader_name, MP_xs_loaders[i]); + newCONSTSUB(PL_defstash, name, newSViv(1)); + } + + /* outside mod_perl this is done by ModPerl::Const.xs */ + newXS("ModPerl::Const::compile", XS_modperl_const_compile, __FILE__); + + /* make sure DynaLoader is loaded before XSLoader + * - to workaround bug in 5.6.1 that can trigger a segv + * when using modperl as a dso + * - also needed when <Perl> sections are loaded from +Parent vhost + */ + modperl_require_module(aTHX_ "DynaLoader", FALSE); + + IoFLUSH_on(PL_stderrgv); /* unbuffer STDERR */ +} + +static void modperl_xs_init(pTHX) +{ + xs_init(aTHX); /* see modperl_xsinit.c */ + + /* XXX: in 5.7.2+ we can call the body of modperl_boot here + * but in 5.6.1 the Perl runtime is not properly setup yet + * so we have to pull this stunt to delay + */ + SAVEDESTRUCTOR_X(modperl_boot, 0); +} + +/* + * the "server_pool" is a subpool of the parent pool (aka "pconf") + * this is where we register the cleanups that teardown the interpreter. + * the parent process will run the cleanups since server_pool is a subpool + * of pconf. we manually clear the server_pool to run cleanups in the + * child processes + * + * the "server_user_pool" is a subpool of the "server_pool", this is + * the pool which is exposed to users, so that they can register + * cleanup callbacks. This is needed so that the perl cleanups won't + * be run before user cleanups are executed. + * + */ +static apr_pool_t *server_pool = NULL; +static apr_pool_t *server_user_pool = NULL; + +apr_pool_t *modperl_server_pool(void) +{ + return server_pool; +} + +apr_pool_t *modperl_server_user_pool(void) +{ + return server_user_pool; +} + +static void set_taint_var(PerlInterpreter *perl) +{ + dTHXa(perl); + +/* 5.7.3+ has a built-in special ${^TAINT}, backport it to 5.6.0+ */ +#if MP_PERL_VERSION_AT_MOST(5, 7, 2) + { + GV *gv = gv_fetchpv("\024AINT", GV_ADDMULTI, SVt_IV); + sv_setiv(GvSV(gv), PL_tainting); + SvREADONLY_on(GvSV(gv)); + } +#endif /* perl v < 5.7.3 */ + +#ifdef MP_COMPAT_1X + { + GV *gv = gv_fetchpv("Apache2::__T", GV_ADDMULTI, SVt_PV); + sv_setiv(GvSV(gv), PL_tainting); + SvREADONLY_on(GvSV(gv)); + } +#endif /* MP_COMPAT_1X */ + +} + +PerlInterpreter *modperl_startup(server_rec *s, apr_pool_t *p) +{ + AV *endav; + dTHXa(NULL); + MP_dSCFG(s); + PerlInterpreter *perl; + int status; + char **argv; + int argc; +#ifndef USE_ITHREADS + modperl_cleanup_data_t *cdata; +#endif + + /* ensure that we start the base server's perl, before vhost's + * one, if modperl_startup was called by vhost before the former + * was started */ + if (MP_init_status != 2) { + server_rec *base_server = modperl_global_get_server_rec(); + PerlInterpreter *base_perl; + + MP_init_status = 2; /* calls itself, so set the flag early */ + base_perl = modperl_startup(base_server, p); + + if (base_server == s ) { + return base_perl; + } + } + +#ifdef MP_TRACE + { + server_rec *base_server = modperl_global_get_server_rec(); + const char *desc = modperl_server_desc(s, p); + if (base_server == s) { + MP_init_status = 1; /* temporarily reset MP_init_status */ + MP_TRACE_i(MP_FUNC, + "starting the parent perl for the base server", desc); + MP_init_status = 2; + } + else { + MP_TRACE_i(MP_FUNC, + "starting the parent perl for vhost %s", desc); + } + } +#endif + +#ifdef MP_USE_GTOP + MP_TRACE_m_do( + modperl_gtop_do_proc_mem_before(MP_FUNC, "perl_parse"); + ); +#endif + + argv = modperl_config_srv_argv_init(scfg, &argc); + + if (!(perl = perl_alloc())) { + perror("perl_alloc"); + exit(1); + } + +#ifdef USE_ITHREADS + aTHX = perl; +#endif + + perl_construct(perl); + + modperl_hash_seed_set(aTHX); + + modperl_io_apache_init(aTHX); + + PL_perl_destruct_level = 2; + + MP_boot_data_set(p, s); + status = perl_parse(perl, modperl_xs_init, argc, argv, NULL); + MP_boot_data_set(NULL, NULL); + + if (status) { + perror("perl_parse"); + exit(1); + } + + modperl_env_init(aTHX); + + /* suspend END blocks to be run at server shutdown */ + endav = PL_endav; + PL_endav = (AV *)NULL; + +/* This was fixed in 5.9.0/5.8.1 (17775), but won't compile after 19122 */ +#if MP_PERL_VERSION(5, 8, 0) && \ + defined(USE_REENTRANT_API) && defined(HAS_CRYPT_R) && defined(__GLIBC__) + /* workaround perl5.8.0/glibc bug */ + PL_reentrant_buffer->_crypt_struct.current_saltbits = 0; +#endif + + /* We need to reset $0 to argv[0] (httpd) since perl_parse() will + * have set it to '-e'. Being magic-aware ensures that some + * OS-specific magic will happen (i.e. setproctitle() on *BSDs) + */ + PL_origalen = strlen(argv[0]) + 1; + sv_setpv_mg(get_sv("0",0), argv[0]); + + perl_run(perl); + +#ifdef USE_ITHREADS + /* base server / virtual host w/ +Parent gets its own mip */ + modperl_interp_init(s, p, perl); + + /* mark the parent perl to be destroyed */ + MpInterpBASE_On(scfg->mip->parent); +#endif + + PL_endav = endav; + + set_taint_var(perl); + + MP_TRACE_i(MP_FUNC, "constructed interpreter=0x%lx", + (unsigned long)perl); + +#ifdef MP_USE_GTOP + MP_TRACE_m_do( + modperl_gtop_do_proc_mem_after(MP_FUNC, "perl_parse"); + ); +#endif + +#ifdef MP_COMPAT_1X + { + char *path, *path1; + apr_finfo_t finfo; + /* 1) push @INC, $ServerRoot */ + av_push(GvAV(PL_incgv), newSVpv(ap_server_root, 0)); + + /* 2) push @INC, $ServerRoot/lib/perl only if it exists */ + apr_filepath_merge(&path, ap_server_root, "lib", + APR_FILEPATH_NATIVE, p); + apr_filepath_merge(&path1, path, "perl", + APR_FILEPATH_NATIVE, p); + if (APR_SUCCESS == apr_stat(&finfo, path1, APR_FINFO_TYPE, p)) { + if (finfo.filetype == APR_DIR) { + av_push(GvAV(PL_incgv), newSVpv(path1, 0)); + } + } + } +#endif /* MP_COMPAT_1X */ + + /* base perl and each vhost +Parent should have this init'ed */ + modperl_handler_anon_init(aTHX_ p); + + if (!modperl_config_apply_PerlRequire(s, scfg, perl, p)) { + exit(1); + } + + if (!modperl_config_apply_PerlModule(s, scfg, perl, p)) { + exit(1); + } + +#ifndef USE_ITHREADS + cdata = modperl_cleanup_data_new(server_pool, (void*)perl); + apr_pool_cleanup_register(server_pool, cdata, + modperl_shutdown, apr_pool_cleanup_null); +#endif + + return perl; +} + +int modperl_init_vhost(server_rec *s, apr_pool_t *p, + server_rec *base_server) +{ + MP_dSCFG(s); + modperl_config_srv_t *base_scfg; + PerlInterpreter *base_perl; + PerlInterpreter *perl; + const char *vhost = modperl_server_desc(s, p); + + if (!scfg) { + MP_TRACE_i(MP_FUNC, "server %s has no mod_perl config", vhost); + return OK; + } + + if (base_server == NULL) { + base_server = modperl_global_get_server_rec(); + } + + MP_TRACE_i(MP_FUNC, "Init vhost %s: s=0x%lx, base_s=0x%lx", + vhost, s, base_server); + + if (base_server == s) { + MP_TRACE_i(MP_FUNC, "base server is not vhost, skipping %s", + vhost); + return OK; + } + + base_scfg = modperl_config_srv_get(base_server); + +#ifdef USE_ITHREADS + perl = base_perl = base_scfg->mip->parent->perl; +#else + perl = base_perl = base_scfg->perl; +#endif /* USE_ITHREADS */ + +#ifdef USE_ITHREADS + + if (scfg->mip) { + MP_TRACE_i(MP_FUNC, "server %s already initialized", vhost); + return OK; + } + + /* the base server could have mod_perl callbacks disabled, but it + * still needs perl to drive the vhosts */ + if (!MpSrvENABLE(scfg) && s->is_virtual) { + MP_TRACE_i(MP_FUNC, "mod_perl disabled for server %s", vhost); + scfg->mip = NULL; + return OK; + } + + PERL_SET_CONTEXT(perl); + modperl_thx_interp_set(perl, base_scfg->mip->parent); + +#endif /* USE_ITHREADS */ + + MP_TRACE_d_do(MpSrv_dump_flags(scfg, s->server_hostname)); + + /* if alloc flags is On, virtual host gets its own parent perl */ + if (MpSrvPARENT(scfg)) { + perl = modperl_startup(s, p); + MP_TRACE_i(MP_FUNC, + "created parent interpreter for VirtualHost %s", + modperl_server_desc(s, p)); + } + else { +#ifdef USE_ITHREADS + /* virtual host w/ +Clone gets its own mip */ + if (MpSrvCLONE(scfg)) { + modperl_interp_init(s, p, perl); + } +#endif + + if (!modperl_config_apply_PerlRequire(s, scfg, perl, p)) { + return HTTP_INTERNAL_SERVER_ERROR; + } + + if (!modperl_config_apply_PerlModule(s, scfg, perl, p)) { + return HTTP_INTERNAL_SERVER_ERROR; + } + } + +#ifdef USE_ITHREADS + if (!scfg->mip) { + /* since mips are created after merge_server_configs() + * need to point to the base mip here if this vhost + * doesn't have its own + */ + MP_TRACE_i(MP_FUNC, "%s mip inherited from %s", + vhost, modperl_server_desc(base_server, p)); + scfg->mip = base_scfg->mip; + } +#endif /* USE_ITHREADS */ + + return OK; +} + +void modperl_init(server_rec *base_server, apr_pool_t *p) +{ + server_rec *s; + PerlInterpreter *base_perl; +#if defined(MP_TRACE) || defined(USE_ITHREADS) + modperl_config_srv_t *base_scfg = modperl_config_srv_get(base_server); +#endif + + MP_TRACE_d_do(MpSrv_dump_flags(base_scfg, + base_server->server_hostname)); + +#ifndef USE_ITHREADS + if (modperl_threaded_mpm()) { + ap_log_error(APLOG_MARK, APLOG_ERR, 0, base_server, + "cannot use threaded MPM without ithreads enabled Perl"); + exit(1); + } +#endif + + base_perl = modperl_startup(base_server, p); + + for (s=base_server->next; s; s=s->next) { + if (modperl_init_vhost(s, p, base_server) != OK) { + exit(1); /*XXX*/ + } + } + +#ifdef USE_ITHREADS + /* after other parent perls were started in vhosts, make sure that + * the context is set to the base_perl */ + PERL_SET_CONTEXT(base_perl); + modperl_thx_interp_set(base_perl, base_scfg->mip->parent); +#endif + +} + +static int modperl_post_config_require(server_rec *s, apr_pool_t *p) +{ + for (; s; s=s->next) { + MP_dSCFG(s); + if (!modperl_config_apply_PerlPostConfigRequire(s, scfg, p)) { + return FALSE; + } + } + return TRUE; +} + +#ifdef USE_ITHREADS +static void modperl_init_clones(server_rec *s, apr_pool_t *p) +{ +#ifdef MP_TRACE + modperl_config_srv_t *base_scfg = modperl_config_srv_get(s); + char *base_name = modperl_server_desc(s, p); +#endif /* MP_TRACE */ + + if (!modperl_threaded_mpm()) { + MP_TRACE_i(MP_FUNC, "no clones created for non-threaded mpm"); + return; + } + + for (; s; s=s->next) { + MP_dSCFG(s); +#ifdef MP_TRACE + char *name = modperl_server_desc(s, p); +#else + char *name = NULL; +#endif /* MP_TRACE */ + + if (scfg->mip->tipool->idle) { +#ifdef MP_TRACE + if (scfg->mip == base_scfg->mip) { + MP_TRACE_i(MP_FUNC, + "%s interp pool inherited from %s", + name, base_name); + } + else { + MP_TRACE_i(MP_FUNC, + "%s interp pool already initialized", + name); + } +#endif /* MP_TRACE */ + } + else { + MP_TRACE_i(MP_FUNC, "initializing interp pool for %s", + name); + modperl_tipool_init(scfg->mip->tipool); + } + } +} +#endif /* USE_ITHREADS */ + +void modperl_init_globals(server_rec *s, apr_pool_t *pconf) +{ + ap_mpm_query(AP_MPMQ_IS_THREADED, &MP_threaded_mpm); + + MP_TRACE_g(MP_FUNC, "mod_perl globals are configured"); + + modperl_global_init_pconf(pconf, pconf); + modperl_global_init_server_rec(pconf, s); + + modperl_tls_create_request_rec(pconf); + + /* init the counter to 0 */ + modperl_global_anon_cnt_init(pconf); +} + +/* + * modperl_sys_{init,term} are things that happen + * once per-parent process, not per-interpreter + */ +static apr_status_t modperl_sys_init(void) +{ + int argc = 0; + char **argv = NULL, **env = NULL; + + MP_TRACE_i(MP_FUNC, "mod_perl sys init"); + + /* not every OS uses those vars in PERL_SYS_INIT3 macro */ + argc = argc; argv = argv; env = env; + + PERL_SYS_INIT3(&argc, &argv, &env); + +#if 0 /*XXX*/ +#ifdef PTHREAD_ATFORK + if (!ap_exists_config_define("PERL_PTHREAD_ATFORK_DONE")) { + PTHREAD_ATFORK(Perl_atfork_lock, + Perl_atfork_unlock, + Perl_atfork_unlock); + *(char **)apr_array_push(ap_server_config_defines) = + "PERL_PTHREAD_ATFORK_DONE"; + } +#endif +#endif + + /* modifies PL_ppaddr */ + modperl_perl_pp_set_all(); + + return APR_SUCCESS; +} + +static apr_status_t modperl_sys_term(void *data) +{ + /* PERL_SYS_TERM() needs 'my_perl' as of 5.9.5 */ +#if MP_PERL_VERSION_AT_LEAST(5, 9, 5) && defined(USE_ITHREADS) + modperl_cleanup_data_t *cdata = (modperl_cleanup_data_t *)data; + PERL_UNUSED_DECL PerlInterpreter *my_perl = cdata == NULL ? NULL : (PerlInterpreter *)cdata->data; +#endif + MP_init_status = 0; + MP_threads_started = 0; + MP_post_post_config_phase = 0; + + MP_PERL_FREE_THREAD_KEY_WORKAROUND; + + MP_TRACE_i(MP_FUNC, "mod_perl sys term"); + + modperl_perl_pp_unset_all(); + + PERL_SYS_TERM(); + + return APR_SUCCESS; +} + +int modperl_hook_init(apr_pool_t *pconf, apr_pool_t *plog, + apr_pool_t *ptemp, server_rec *s) +{ + if (MP_IS_STARTING || MP_IS_RUNNING) { + return OK; + } + + MP_init_status = 1; /* now starting */ + + modperl_restart_count_inc(s); + + apr_pool_create(&server_pool, pconf); + apr_pool_tag(server_pool, "mod_perl server pool"); + + apr_pool_create(&server_user_pool, pconf); + apr_pool_tag(server_user_pool, "mod_perl server user pool"); + + modperl_sys_init(); + apr_pool_cleanup_register(server_pool, NULL, + modperl_sys_term, apr_pool_cleanup_null); + + modperl_init(s, pconf); + + return OK; +} + +/* + * if we need to init earlier than post_config, + * e.g. <Perl> sections or directive handlers. + */ +int modperl_run(void) +{ + return modperl_hook_init(modperl_global_get_pconf(), + NULL, + NULL, + modperl_global_get_server_rec()); +} + +int modperl_is_running(void) +{ + return MP_IS_RUNNING; +} + +int modperl_hook_pre_config(apr_pool_t *p, apr_pool_t *plog, + apr_pool_t *ptemp) +{ +#if AP_MODULE_MAGIC_AT_LEAST(20110329,0) + ap_reserve_module_slots_directive("PerlLoadModule"); +#endif + + /* we can't have PerlPreConfigHandler without first configuring mod_perl */ + + /* perl 5.8.1+ */ + modperl_hash_seed_init(p); + + return OK; +} + +static int modperl_hook_pre_connection(conn_rec *c, void *csd) +{ + modperl_input_filter_add_connection(c); + modperl_output_filter_add_connection(c); + return OK; +} + +static int modperl_hook_post_config_last(apr_pool_t *pconf, apr_pool_t *plog, + apr_pool_t *ptemp, server_rec *s) +{ + /* in the threaded environment, no server_rec/process_rec + * modifications should be done beyond this point */ +#ifdef USE_ITHREADS + MP_dSCFG(s); + dTHXa(scfg->mip->parent->perl); +#endif + + if (!modperl_post_config_require(s, pconf)) { + exit(1); + } + + if (modperl_threaded_mpm()) { + MP_threads_started = 1; + } + + MP_post_post_config_phase = 1; + +#ifdef MP_TRACE + /* httpd core open_logs handler re-opens s->error_log, which might + * change, even though it still points to the same physical file + * (.e.g on win32 the filehandle will be different. Therefore + * reset the tracing logfile setting here, since this is the + * earliest place, happening after the open_logs phase. + * + * Moreover, we need to dup the filehandle so that when the server + * shuts down, we will be able to log to error_log after Apache + * has closed it (which happens too early for our likening). + */ + { + apr_file_t *dup; + MP_RUN_CROAK(apr_file_dup(&dup, s->error_log, pconf), + "mod_perl core post_config"); + modperl_trace_logfile_set(dup); + } +#endif + +#if MP_PERL_VERSION_AT_LEAST(5, 9, 0) +#define MP_PERL_VERSION_STAMP "Perl/%" SVf +#else +#define MP_PERL_VERSION_STAMP "Perl/v%vd" +#endif + + ap_add_version_component(pconf, MP_VERSION_STRING); + ap_add_version_component(pconf, + Perl_form(aTHX_ MP_PERL_VERSION_STAMP, + PL_patchlevel)); + + modperl_mgv_hash_handlers(pconf, s); + modperl_modglobal_hash_keys(aTHX); + modperl_env_hash_keys(aTHX); +#ifdef USE_ITHREADS + modperl_init_clones(s, pconf); +#endif + +#ifdef MP_NEED_HASH_SEED_FIXUP + ap_log_error(APLOG_MARK, APLOG_INFO, 0, s, + "mod_perl: using Perl HASH_SEED: %"UVuf, MP_init_hash_seed); +#endif + + return OK; +} + +static int modperl_hook_create_request(request_rec *r) +{ + MP_dRCFG; + +#ifdef USE_ITHREADS + /* XXX: this is necessary to make modperl_interp_pool_select() work + * which is used at runtime only to merge dir-configs by + * modperl_module_config_merge(). + * + * Since most requests won't need it it would be good to add some logic + * (cheaper logic in terms of CPU cycles) to identify those cases and + * avoid the hash operation. + */ + MP_TRACE_i(MP_FUNC, "setting userdata MODPERL_R in pool %#lx to %lx", + (unsigned long)r->pool, (unsigned long)r); + (void)apr_pool_userdata_set((void *)r, "MODPERL_R", NULL, r->pool); +#endif + + modperl_config_req_init(r, rcfg); + modperl_config_req_cleanup_register(r, rcfg); + + /* set the default for cgi header parsing On as early as possible + * so $r->content_type in any phase after header_parser could turn + * it off. wb->header_parse will be set to 1 only if this flag + * wasn't turned off and MpDirPARSE_HEADERS is on + */ + MpReqPARSE_HEADERS_On(rcfg); + + return OK; +} + +static int modperl_hook_post_read_request(request_rec *r) +{ +#ifdef USE_ITHREADS + MP_TRACE_i(MP_FUNC, "%s %s:%d%s", + r->method, r->connection->local_addr->hostname, + r->connection->local_addr->port, r->unparsed_uri); +#endif + + /* if 'PerlOptions +GlobalRequest' is outside a container */ + modperl_global_request_cfg_set(r); + + return OK; +} + +static int modperl_hook_header_parser(request_rec *r) +{ + /* if 'PerlOptions +GlobalRequest' is inside a container */ + modperl_global_request_cfg_set(r); + + return OK; +} + +static int modperl_destruct_level = 2; /* default is full tear down */ + +int modperl_perl_destruct_level(void) +{ + return modperl_destruct_level; +} + +#ifdef USE_ITHREADS + +static apr_status_t +modperl_perl_call_endav_mip(pTHX_ modperl_interp_pool_t *mip, + void *data) +{ + modperl_perl_call_endav(aTHX); + return APR_SUCCESS; +} + +#endif /* USE_ITHREADS */ + +static apr_status_t modperl_child_exit(void *data) +{ + char *level = NULL; + server_rec *s = (server_rec *)data; + + modperl_callback_process(MP_CHILD_EXIT_HANDLER, server_pool, s, + MP_HOOK_VOID); + + if ((level = getenv("PERL_DESTRUCT_LEVEL"))) { + modperl_destruct_level = atoi(level); + } + else { + /* default to no teardown in the children */ + modperl_destruct_level = 0; + } + + if (modperl_destruct_level) { + apr_pool_clear(server_pool); + } + else { + /* run the END blocks of this child process if + * modperl_perl_destruct is not called for this process */ +#ifdef USE_ITHREADS + modperl_interp_mip_walk_servers(NULL, s, + modperl_perl_call_endav_mip, + (void*)NULL); +#else + modperl_perl_call_endav(aTHX); +#endif + } + + server_pool = NULL; + + return APR_SUCCESS; +} + +static void modperl_hook_child_init(apr_pool_t *p, server_rec *s) +{ + modperl_perl_init_ids_server(s); + + apr_pool_cleanup_register(p, (void *)s, modperl_child_exit, + apr_pool_cleanup_null); +} + +#define MP_FILTER_HANDLER(f) f, NULL + +void modperl_register_hooks(apr_pool_t *p) +{ + +#ifdef USE_ITHREADS + APR_REGISTER_OPTIONAL_FN(modperl_interp_unselect); + APR_REGISTER_OPTIONAL_FN(modperl_thx_interp_get); +#endif + + /* for <IfDefine MODPERL2> and Apache2->define("MODPERL2") */ + *(char **)apr_array_push(ap_server_config_defines) = + apr_pstrdup(ap_server_config_defines->pool, "MODPERL2"); + + ap_hook_pre_config(modperl_hook_pre_config, + NULL, NULL, APR_HOOK_MIDDLE); + + ap_hook_open_logs(modperl_hook_init, + NULL, NULL, APR_HOOK_FIRST); + + ap_hook_post_config(modperl_hook_post_config_last, + NULL, NULL, APR_HOOK_REALLY_LAST); + + ap_hook_handler(modperl_response_handler, + NULL, NULL, APR_HOOK_MIDDLE); + + ap_hook_handler(modperl_response_handler_cgi, + NULL, NULL, APR_HOOK_MIDDLE); + + ap_hook_insert_filter(modperl_output_filter_add_request, + NULL, NULL, APR_HOOK_LAST); + + ap_hook_insert_filter(modperl_input_filter_add_request, + NULL, NULL, APR_HOOK_LAST); + + ap_register_output_filter(MP_FILTER_REQUEST_OUTPUT_NAME, + MP_FILTER_HANDLER(modperl_output_filter_handler), + AP_FTYPE_RESOURCE); + + ap_register_input_filter(MP_FILTER_REQUEST_INPUT_NAME, + MP_FILTER_HANDLER(modperl_input_filter_handler), + AP_FTYPE_RESOURCE); + + ap_register_output_filter(MP_FILTER_CONNECTION_OUTPUT_NAME, + MP_FILTER_HANDLER(modperl_output_filter_handler), + AP_FTYPE_CONNECTION); + + ap_register_input_filter(MP_FILTER_CONNECTION_INPUT_NAME, + MP_FILTER_HANDLER(modperl_input_filter_handler), + AP_FTYPE_CONNECTION); + + ap_hook_pre_connection(modperl_hook_pre_connection, + NULL, NULL, APR_HOOK_FIRST); + + ap_hook_create_request(modperl_hook_create_request, + NULL, NULL, APR_HOOK_MIDDLE); + + /* both of these hooks need to run really, really first. + * otherwise, the global request_rec will be set up _after_ some + * Perl handlers run. + */ + ap_hook_post_read_request(modperl_hook_post_read_request, + NULL, NULL, MODPERL_HOOK_REALLY_REALLY_FIRST); + + ap_hook_header_parser(modperl_hook_header_parser, + NULL, NULL, MODPERL_HOOK_REALLY_REALLY_FIRST); + + ap_hook_child_init(modperl_hook_child_init, + NULL, NULL, MODPERL_HOOK_REALLY_REALLY_FIRST); + + modperl_register_handler_hooks(); +} + +static const command_rec modperl_cmds[] = { + MP_CMD_SRV_ITERATE("PerlSwitches", switches, "Perl Switches"), + MP_CMD_DIR_ITERATE("PerlModule", modules, "PerlModule"), + MP_CMD_DIR_ITERATE("PerlRequire", requires, "PerlRequire"), + MP_CMD_SRV_ITERATE("PerlConfigRequire", config_requires, "PerlConfigRequire"), + MP_CMD_SRV_ITERATE("PerlPostConfigRequire", post_config_requires, "PerlPostConfigRequire"), +#if AP_SERVER_MAJORVERSION_NUMBER>2 || \ + (AP_SERVER_MAJORVERSION_NUMBER == 2 && AP_SERVER_MINORVERSION_NUMBER>=3) + MP_CMD_SRV_TAKE2("PerlAddAuthzProvider", authz_provider, "PerlAddAuthzProvider"), + MP_CMD_SRV_TAKE2("PerlAddAuthnProvider", authn_provider, "PerlAddAuthnProvider"), +#endif + MP_CMD_DIR_ITERATE("PerlOptions", options, "Perl Options"), + MP_CMD_DIR_ITERATE("PerlInitHandler", init_handlers, "Subroutine name"), + MP_CMD_DIR_TAKE2("PerlSetVar", set_var, "PerlSetVar"), + MP_CMD_DIR_ITERATE2("PerlAddVar", add_var, "PerlAddVar"), + MP_CMD_DIR_TAKE2("PerlSetEnv", set_env, "PerlSetEnv"), + MP_CMD_SRV_TAKE1("PerlPassEnv", pass_env, "PerlPassEnv"), + MP_CMD_SRV_RAW_ARGS_ON_READ("<Perl", perl, "Perl Code"), + MP_CMD_SRV_RAW_ARGS("Perl", perldo, "Perl Code"), + + MP_CMD_DIR_TAKE1("PerlSetInputFilter", set_input_filter, + "filter[;filter]"), + MP_CMD_DIR_TAKE1("PerlSetOutputFilter", set_output_filter, + "filter[;filter]"), + + MP_CMD_SRV_RAW_ARGS_ON_READ("=pod", pod, "Start of POD"), + MP_CMD_SRV_RAW_ARGS_ON_READ("=back", pod, "End of =over"), + MP_CMD_SRV_RAW_ARGS_ON_READ("=cut", pod_cut, "End of POD"), + MP_CMD_SRV_RAW_ARGS_ON_READ("__END__", END, "Stop reading config"), + + MP_CMD_SRV_RAW_ARGS("PerlLoadModule", load_module, "A Perl module"), +#ifdef MP_TRACE + MP_CMD_SRV_TAKE1("PerlTrace", trace, "Trace level"), +#endif +#ifdef USE_ITHREADS + MP_CMD_SRV_TAKE1("PerlInterpStart", interp_start, + "Number of Perl interpreters to start"), + MP_CMD_SRV_TAKE1("PerlInterpMax", interp_max, + "Max number of running Perl interpreters"), + MP_CMD_SRV_TAKE1("PerlInterpMaxSpare", interp_max_spare, + "Max number of spare Perl interpreters"), + MP_CMD_SRV_TAKE1("PerlInterpMinSpare", interp_min_spare, + "Min number of spare Perl interpreters"), + MP_CMD_SRV_TAKE1("PerlInterpMaxRequests", interp_max_requests, + "Max number of requests per Perl interpreters"), +#endif +#ifdef MP_COMPAT_1X + MP_CMD_DIR_FLAG("PerlSendHeader", send_header, + "Tell mod_perl to scan output for HTTP headers"), + MP_CMD_DIR_FLAG("PerlSetupEnv", setup_env, + "Turn setup of %ENV On or Off"), + MP_CMD_DIR_ITERATE("PerlHandler", response_handlers, + "Subroutine name"), + MP_CMD_SRV_FLAG("PerlTaintCheck", taint_check, + "Turn on -T switch"), + MP_CMD_SRV_FLAG("PerlWarn", warn, + "Turn on -w switch"), +#endif + MP_CMD_ENTRIES, + { NULL }, +}; + +void modperl_response_init(request_rec *r) +{ + MP_dRCFG; + MP_dDCFG; + modperl_wbucket_t *wb; + + if (!rcfg->wbucket) { + rcfg->wbucket = + (modperl_wbucket_t *)apr_palloc(r->pool, + sizeof(*rcfg->wbucket)); + } + + wb = rcfg->wbucket; + + /* setup buffer for output */ + wb->pool = r->pool; + wb->filters = &r->output_filters; + wb->outcnt = 0; + wb->header_parse = MpDirPARSE_HEADERS(dcfg) && MpReqPARSE_HEADERS(rcfg) + ? 1 : 0; + wb->r = r; +} + +apr_status_t modperl_response_finish(request_rec *r) +{ + MP_dRCFG; + + /* flush output buffer */ + return modperl_wbucket_flush(rcfg->wbucket, FALSE); +} + +static int modperl_response_handler_run(request_rec *r) +{ + int retval; + + modperl_response_init(r); + + retval = modperl_callback_per_dir(MP_RESPONSE_HANDLER, r, MP_HOOK_RUN_FIRST); + + if ((retval == DECLINED) && r->content_type) { + r->handler = r->content_type; /* let http_core or whatever try */ + } + + return retval; +} + +int modperl_response_handler(request_rec *r) +{ + MP_dDCFG; + apr_status_t retval, rc; + MP_dINTERP; + + if (!strEQ(r->handler, "modperl")) { + return DECLINED; + } + + MP_INTERPa(r, r->connection, r->server); + + /* default is -SetupEnv, add if PerlOption +SetupEnv */ + if (MpDirSETUP_ENV(dcfg)) { + modperl_env_request_populate(aTHX_ r); + } + + retval = modperl_response_handler_run(r); + rc = modperl_response_finish(r); + if (rc != APR_SUCCESS) { + retval = rc; + } + + MP_INTERP_PUTBACK(interp, aTHX); + + return retval; +} + +int modperl_response_handler_cgi(request_rec *r) +{ + MP_dDCFG; + GV *h_stdin, *h_stdout; + apr_status_t retval, rc; + MP_dRCFG; + MP_dINTERP; + + if (!strEQ(r->handler, "perl-script")) { + return DECLINED; + } + + MP_INTERPa(r, r->connection, r->server); + + modperl_perl_global_request_save(aTHX_ r); + + /* default is +SetupEnv, skip if PerlOption -SetupEnv */ + if (MpDirSETUP_ENV(dcfg) || !MpDirSeenSETUP_ENV(dcfg)) { + modperl_env_request_populate(aTHX_ r); + } + + /* default is +GlobalRequest, skip if PerlOption -GlobalRequest */ + if (MpDirGLOBAL_REQUEST(dcfg) || !MpDirSeenGLOBAL_REQUEST(dcfg)) { + modperl_global_request_set(r); + } + + /* need to create a block around the IO setup so the temp vars + * will be automatically cleaned up when we are done with IO */ + ENTER;SAVETMPS; + h_stdin = modperl_io_override_stdin(aTHX_ r); + h_stdout = modperl_io_override_stdout(aTHX_ r); + + modperl_env_request_tie(aTHX_ r); + + retval = modperl_response_handler_run(r); + + modperl_env_request_untie(aTHX_ r); + + modperl_perl_global_request_restore(aTHX_ r); + + modperl_io_restore_stdin(aTHX_ h_stdin); + modperl_io_restore_stdout(aTHX_ h_stdout); + FREETMPS;LEAVE; + + MP_INTERP_PUTBACK(interp, aTHX); + + /* flush output buffer after interpreter is putback */ + rc = modperl_response_finish(r); + if (rc != APR_SUCCESS) { + retval = rc; + } + + switch (rcfg->status) { + case HTTP_MOVED_TEMPORARILY: + /* set by modperl_cgi_header_parse */ + retval = HTTP_MOVED_TEMPORARILY; + break; + } + + return retval; +} + +/* This ugly hack pulls in any function listed in + * modperl_exports.c. Otherwise, the over-zealous + * linker would remove unused api functions + */ +const void *modperl_suck_in_ugly_hack(void); +const void *modperl_suck_in_ugly_hack(void) +{ + extern const void *modperl_ugly_hack; + return modperl_ugly_hack; +} + +module AP_MODULE_DECLARE_DATA perl_module = { + STANDARD20_MODULE_STUFF, + modperl_config_dir_create, /* dir config creater */ + modperl_config_dir_merge, /* dir merger --- default is to override */ + modperl_config_srv_create, /* server config */ + modperl_config_srv_merge, /* merge server config */ + modperl_cmds, /* table of config file commands */ + modperl_register_hooks, /* register hooks */ +}; + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/mod_perl.h b/2_0_13/src/modules/perl/mod_perl.h new file mode 100644 index 0000000..e11e7a8 --- /dev/null +++ b/2_0_13/src/modules/perl/mod_perl.h
@@ -0,0 +1,207 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MOD_PERL_H +#define MOD_PERL_H + +#include "modperl_apache_includes.h" +#include "modperl_common_includes.h" +#include "modperl_apache_compat.h" + +#ifdef WIN32 +#define MP_THREADED 1 +#else +#define MP_THREADED (defined(USE_ITHREADS) && APR_HAS_THREADS) +#endif + +extern module AP_MODULE_DECLARE_DATA perl_module; + +#include "modperl_error.h" +#include "modperl_flags.h" +#include "modperl_hooks.h" +#include "modperl_perl_global.h" +#include "modperl_perl_pp.h" +#include "modperl_sys.h" +#include "modperl_const.h" +#include "modperl_constants.h" + +/* both perl and apr have largefile support enabled */ +#if defined(USE_LARGE_FILES) && APR_HAS_LARGE_FILES +#define MP_LARGE_FILES_ENABLED +#endif + +/* both perl and apr have largefile support disabled */ +#if (!defined(USE_LARGE_FILES)) && !APR_HAS_LARGE_FILES +#define MP_LARGE_FILES_DISABLED +#endif + +/* perl largefile support is enabled, apr support is disabled */ +#if defined(USE_LARGE_FILES) && !APR_HAS_LARGE_FILES +#define MP_LARGE_FILES_PERL_ONLY +#endif + +/* apr largefile support is enabled, perl support is disabled */ +#if (!defined(USE_LARGE_FILES)) && APR_HAS_LARGE_FILES +#define MP_LARGE_FILES_APR_ONLY +#endif + +/* conflict due to not have either both perl and apr + * support enabled or both disabled + */ +#if defined(MP_LARGE_FILES_APR_ONLY) || defined(MP_LARGE_FILES_PERL_ONLY) +#define MP_LARGE_FILES_CONFLICT +#endif + +#ifdef MP_USE_GTOP +#include "modperl_gtop.h" +#endif +#include "modperl_time.h" +#include "modperl_types.h" +#include "modperl_util.h" +#include "modperl_config.h" +#include "modperl_cmd.h" +#include "modperl_handler.h" +#include "modperl_callback.h" +#include "modperl_tipool.h" +#include "modperl_interp.h" +#include "modperl_log.h" +#include "modperl_options.h" +#include "modperl_directives.h" +#include "modperl_io.h" +#include "modperl_io_apache.h" +#include "modperl_filter.h" +#include "modperl_bucket.h" +#include "modperl_pcw.h" +#include "modperl_mgv.h" +#include "modperl_global.h" +#include "modperl_env.h" +#include "modperl_cgi.h" +#include "modperl_perl.h" +#include "modperl_svptr_table.h" +#include "modperl_module.h" +#include "modperl_debug.h" + +int modperl_threads_started(void); +int modperl_threaded_mpm(void); +int modperl_post_post_config_phase(void); + +#define MP_CROAK_IF_THREADS_STARTED(what) \ + if (modperl_threads_started()) { \ + Perl_croak(aTHX_ "Can't run '%s' in the threaded " \ + "environment after server startup", what); \ + } + +#define MP_CROAK_IF_THREADED_MPM(what) \ + if (modperl_threaded_mpm()) { \ + Perl_croak(aTHX_ "Can't run '%s' in a threaded mpm", \ + what); \ + } + +#define MP_CROAK_IF_POST_POST_CONFIG_PHASE(what) \ + if (modperl_post_post_config_phase()) { \ + Perl_croak(aTHX_ "Can't run '%s' after server startup", \ + what); \ + } + +int modperl_init_vhost(server_rec *s, apr_pool_t *p, + server_rec *base_server); +void modperl_init(server_rec *s, apr_pool_t *p); +void modperl_init_globals(server_rec *s, apr_pool_t *pconf); +int modperl_run(void); +int modperl_is_running(void); +int modperl_hook_init(apr_pool_t *pconf, apr_pool_t *plog, + apr_pool_t *ptemp, server_rec *s); +int modperl_hook_pre_config(apr_pool_t *p, apr_pool_t *plog, + apr_pool_t *ptemp); +void modperl_register_hooks(apr_pool_t *p); +apr_pool_t *modperl_server_pool(void); +apr_pool_t *modperl_server_user_pool(void); +PerlInterpreter *modperl_startup(server_rec *s, apr_pool_t *p); +int modperl_perl_destruct_level(void); +void xs_init(pTHX); + +void modperl_response_init(request_rec *r); +apr_status_t modperl_response_finish(request_rec *r); +int modperl_response_handler(request_rec *r); +int modperl_response_handler_cgi(request_rec *r); + +#define MgTypeExt(mg) (mg->mg_type == '~') + +typedef void MP_FUNC_NONSTD_T(modperl_var_modify_t) (apr_table_t *, + apr_table_t *, + const char *, + const char *); + +/* we need to hook a few internal things before APR_HOOK_REALLY_FIRST */ +#define MODPERL_HOOK_REALLY_REALLY_FIRST (-20) + +#ifdef USE_ITHREADS +APR_DECLARE_OPTIONAL_FN(apr_status_t,modperl_interp_unselect,(void *)); +APR_DECLARE_OPTIONAL_FN(modperl_interp_t *,modperl_thx_interp_get,(PerlInterpreter *)); +#endif + +/* + * perl context overriding and restoration is required when + * PerlOptions +Parent/+Clone is used in vhosts, and perl is used to + * at the server startup. So that <Perl> sections, PerlLoadModule, + * PerlModule and PerlRequire are all run using the right perl context + * and restore to the original context when they are done. + * + * As of perl-5.8.3 it's unfortunate that it uses PERL_GET_CONTEXT and + * doesn't rely on the passed pTHX internally. When and if perl is + * fixed to always use pTHX if available, this context switching mess + * can be removed. + */ +#ifdef USE_ITHREADS + +#define MP_PERL_CONTEXT_DECLARE \ + PerlInterpreter *orig_perl = NULL; \ + pTHX; + +#define MP_PERL_CONTEXT_STORE \ + orig_perl = PERL_GET_CONTEXT; + +#define MP_PERL_CONTEXT_OVERRIDE(new_perl) \ + aTHX = new_perl; \ + PERL_SET_CONTEXT(aTHX); + +#define MP_PERL_CONTEXT_STORE_OVERRIDE(new_perl) \ + MP_PERL_CONTEXT_STORE; \ + MP_PERL_CONTEXT_OVERRIDE(new_perl) + +#define MP_PERL_CONTEXT_RESTORE \ + if (orig_perl) { \ + PERL_SET_CONTEXT(orig_perl); \ + } + +#else /* #ifdef USE_ITHREADS */ + +#define MP_PERL_CONTEXT_DECLARE +#define MP_PERL_CONTEXT_STORE +#define MP_PERL_CONTEXT_OVERRIDE(new_perl) +#define MP_PERL_CONTEXT_STORE_OVERRIDE(new_perl) +#define MP_PERL_CONTEXT_RESTORE + +#endif /* end of #ifdef USE_ITHREADS */ + +#endif /* MOD_PERL_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_apache_compat.c b/2_0_13/src/modules/perl/modperl_apache_compat.c new file mode 100644 index 0000000..1c1700b --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_apache_compat.c
@@ -0,0 +1,79 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define AP_DECLARE_EXPORT +#include "mod_perl.h" + +/* back compat adjustements for older Apache versions + * BACK_COMPAT_MARKER: make back compat issues easy to find :) + */ + +/* use the following format: + * #if ! AP_MODULE_MAGIC_AT_LEAST(20020903,4) + * [compat code] + * #endif + * and don't forget to insert comments explaining exactly + * which httpd release allows us to remove the compat code + */ + +/* pre-APACHE_2.2.4 */ +#if ! AP_MODULE_MAGIC_AT_LEAST(20051115,4) + +#define modperl_warn_fallback_http_function(ver, fallback) \ + { \ + dTHX; \ + Perl_warn(aTHX_ "%s() not available until httpd/%s " \ + "falling back to %s()", \ + MP_FUNC, ver, fallback); \ + } + +/* added in APACHE_2.2.4 */ +AP_DECLARE(const char *) ap_get_server_description(void) { + modperl_warn_fallback_http_function("2.2.4", "ap_get_server_version"); + return ap_get_server_version(); +} + +AP_DECLARE(const char *) ap_get_server_banner(void) { + modperl_warn_fallback_http_function("2.2.4", "ap_get_server_version"); + return ap_get_server_version(); +} + +#endif /* pre-APACHE_2.2.4 */ + +/* since-APACHE-2.3.0 */ +#if AP_MODULE_MAGIC_AT_LEAST(20060905,0) +#define modperl_warn_deprecated_http_function(ver, fallback) \ + { \ + dTHX; \ + Perl_warn(aTHX_ "%s() is deprecated since httpd/%s " \ + "try using %s() instead", \ + MP_FUNC, ver, fallback); \ + } + +AP_DECLARE(const char *) ap_get_server_version(void) { + modperl_warn_deprecated_http_function("2.3.0", + "ap_get_server_(description|banner)"); + return ap_get_server_banner(); +} + +#endif /* since-APACHE-2.3.0 */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_apache_compat.h b/2_0_13/src/modules/perl/modperl_apache_compat.h new file mode 100644 index 0000000..0d7058b --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_apache_compat.h
@@ -0,0 +1,111 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_APACHE_COMPAT_H +#define MODPERL_APACHE_COMPAT_H + +/* back compat adjustements for older Apache versions */ + +#if !APR_HAS_THREADS +typedef unsigned long apr_os_thread_t; +typedef void * apr_thread_mutex_t; +typedef void * apr_thread_rwlock_t; +#endif + +/* back compat adjustements for older Apache versions + * BACK_COMPAT_MARKER: make back compat issues easy to find :) + */ + +/* use the following format: + * #if ! AP_MODULE_MAGIC_AT_LEAST(20020903,4) + * [compat code] + * #endif + * and don't forget to insert comments explaining exactly + * which httpd release allows us to remove the compat code + */ + +/* pre-APACHE_2.2.4 */ +#if ! AP_MODULE_MAGIC_AT_LEAST(20051115,4) + +/* added in APACHE_2.2.4 */ +AP_DECLARE(const char *) ap_get_server_description(void); +AP_DECLARE(const char *) ap_get_server_banner(void); + +#endif /* pre-APACHE_2.2.4 */ + +/* since-APACHE-2.3.0 */ +#if AP_MODULE_MAGIC_AT_LEAST(20060905,0) + +/* removed in APACHE-2.3.0 */ +AP_DECLARE(const char *) ap_get_server_version(void); + +#endif /* since-APACHE-2.3.0 */ + +/* ap_http_scheme is called ap_http_method in httpd 2.0 */ +#ifndef ap_http_scheme +#define ap_http_scheme(r) ap_http_method(r) +#endif + +#if AP_SERVER_MAJORVERSION_NUMBER>2 || AP_SERVER_MINORVERSION_NUMBER>=2 +#define MP_HTTPD_HAS_OVERRIDE_OPTS +#endif + +#define MP_HTTPD_OVERRIDE_HTACCESS (OR_LIMIT|OR_OPTIONS|OR_FILEINFO|OR_AUTHCFG|OR_INDEXES) + +#define MP_HTTPD_OVERRIDE_OPTS_UNSET (-1) +#if AP_SERVER_MAJORVERSION_NUMBER>2 || \ + (AP_SERVER_MAJORVERSION_NUMBER == 2 && AP_SERVER_MINORVERSION_NUMBER>=3) + +/* 2.4 API */ +#define MP_HTTPD_OVERRIDE_OPTS_DEFAULT (OPT_UNSET | \ + OPT_ALL | \ + OPT_SYM_OWNER | \ + OPT_MULTI) +#define mp_add_loaded_module(modp, pool, name) \ + ap_add_loaded_module((modp), (pool), (name)) + +#define mp_loglevel(s) ((s)->log.level) +#define mp_module_index_ perl_module.module_index, + +#else +/* 2.2 API */ +#define MP_HTTPD_OVERRIDE_OPTS_DEFAULT (OPT_UNSET | \ + OPT_ALL | \ + OPT_INCNOEXEC | \ + OPT_SYM_OWNER | \ + OPT_MULTI) +#define mp_add_loaded_module(modp, pool, name) \ + ap_add_loaded_module((modp), (pool)) + +#define mp_loglevel(s) ((s)->loglevel) +#define mp_module_index_ + +#define ap_unixd_config unixd_config + +#endif /* 2.4 vs. 2.2 API */ + +#ifndef PROXYREQ_RESPONSE +#define PROXYREQ_RESPONSE (3) +#endif + +#endif /* MODPERL_APACHE_COMPAT_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_apache_includes.h b/2_0_13/src/modules/perl/modperl_apache_includes.h new file mode 100644 index 0000000..a06cc2b --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_apache_includes.h
@@ -0,0 +1,59 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_APACHE_INCLUDES_H +#define MODPERL_APACHE_INCLUDES_H + +/* header files for Apache */ + +#ifndef CORE_PRIVATE +#define CORE_PRIVATE +#endif + +#include "ap_mmn.h" +#include "httpd.h" +#include "http_config.h" +#include "http_log.h" +#include "http_protocol.h" +#include "http_main.h" +#include "http_request.h" +#include "http_connection.h" +#include "http_core.h" +#include "http_vhost.h" +#include "ap_mpm.h" + +#include "util_filter.h" + +#include "util_script.h" + +#if !defined(MP_IN_XS) && AP_MODULE_MAGIC_AT_LEAST(20100606, 0) +APLOG_USE_MODULE(perl); +#endif + +#if AP_SERVER_MAJORVERSION_NUMBER>2 || \ + (AP_SERVER_MAJORVERSION_NUMBER == 2 && AP_SERVER_MINORVERSION_NUMBER>=3) +#include "ap_provider.h" +#include "mod_auth.h" +#endif + +#endif /* MODPERL_APACHE_INCLUDES_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_apr_compat.h b/2_0_13/src/modules/perl/modperl_apr_compat.h new file mode 100644 index 0000000..e9d5da4 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_apr_compat.h
@@ -0,0 +1,162 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_APR_COMPAT_H +#define MODPERL_APR_COMPAT_H + +/* back compat adjustements for older libapr versions */ + +/* BACK_COMPAT_MARKER: make back compat issues easy to find :) */ + +/* use the following format: + * #if ! AP_MODULE_MAGIC_AT_LEAST(20020903,4) + * [compat code] + * #endif + * and don't forget to insert comments explaining exactly + * which httpd release allows us to remove the compat code + */ + +/* apr_filetype_e entries rename */ + +#ifndef APR_FILETYPE_NOFILE +#define APR_FILETYPE_NOFILE APR_NOFILE +#endif +#ifndef APR_FILETYPE_REG +#define APR_FILETYPE_REG APR_REG +#endif +#ifndef APR_FILETYPE_DIR +#define APR_FILETYPE_DIR APR_DIR +#endif +#ifndef APR_FILETYPE_CHR +#define APR_FILETYPE_CHR APR_CHR +#endif +#ifndef APR_FILETYPE_BLK +#define APR_FILETYPE_BLK APR_BLK +#endif +#ifndef APR_FILETYPE_PIPE +#define APR_FILETYPE_PIPE APR_PIPE +#endif +#ifndef APR_FILETYPE_LNK +#define APR_FILETYPE_LNK APR_LNK +#endif +#ifndef APR_FILETYPE_SOCK +#define APR_FILETYPE_SOCK APR_SOCK +#endif +#ifndef APR_FILETYPE_UNKFILE +#define APR_FILETYPE_UNKFILE APR_UNKFILE +#endif + + +/* apr file permissions group rename (has no enum) */ + +#if defined(APR_USETID) && !defined(APR_FPROT_USETID) +#define APR_FPROT_USETID APR_USETID +#endif +#ifndef APR_FPROT_UREAD +#define APR_FPROT_UREAD APR_UREAD +#endif +#ifndef APR_FPROT_UWRITE +#define APR_FPROT_UWRITE APR_UWRITE +#endif +#ifndef APR_FPROT_UEXECUTE +#define APR_FPROT_UEXECUTE APR_UEXECUTE +#endif +#if defined(APR_GSETID) && !defined(APR_FPROT_GSETID) +#define APR_FPROT_GSETID APR_GSETID +#endif +#ifndef APR_FPROT_GREAD +#define APR_FPROT_GREAD APR_GREAD +#endif +#ifndef APR_FPROT_GWRITE +#define APR_FPROT_GWRITE APR_GWRITE +#endif +#ifndef APR_FPROT_GEXECUTE +#define APR_FPROT_GEXECUTE APR_GEXECUTE +#endif +#if defined(APR_WSTICKY) && !defined(APR_FPROT_WSTICKY) +#define APR_FPROT_WSTICKY APR_WSTICKY +#endif +#ifndef APR_FPROT_WREAD +#define APR_FPROT_WREAD APR_WREAD +#endif +#ifndef APR_FPROT_WWRITE +#define APR_FPROT_WWRITE APR_WWRITE +#endif +#ifndef APR_FPROT_WEXECUTE +#define APR_FPROT_WEXECUTE APR_WEXECUTE +#endif +#ifndef APR_FPROT_OS_DEFAULT +#define APR_FPROT_OS_DEFAULT APR_OS_DEFAULT +#endif +/* APR_FPROT_FILE_SOURCE_PERMS seems to have only an internal apr + * use */ + +/* apr_file_open flag group rename (has no enum) */ + +#ifndef APR_FOPEN_READ +#define APR_FOPEN_READ APR_READ +#endif +#ifndef APR_FOPEN_WRITE +#define APR_FOPEN_WRITE APR_WRITE +#endif +#ifndef APR_FOPEN_CREATE +#define APR_FOPEN_CREATE APR_CREATE +#endif +#ifndef APR_FOPEN_APPEND +#define APR_FOPEN_APPEND APR_APPEND +#endif +#ifndef APR_FOPEN_TRUNCATE +#define APR_FOPEN_TRUNCATE APR_TRUNCATE +#endif +#ifndef APR_FOPEN_BINARY +#define APR_FOPEN_BINARY APR_BINARY +#endif +#ifndef APR_FOPEN_EXCL +#define APR_FOPEN_EXCL APR_EXCL +#endif +#ifndef APR_FOPEN_BUFFERED +#define APR_FOPEN_BUFFERED APR_BUFFERED +#endif +#ifndef APR_FOPEN_DELONCLOSE +#define APR_FOPEN_DELONCLOSE APR_DELONCLOSE +#endif +#ifndef APR_FOPEN_XTHREAD +#define APR_FOPEN_XTHREAD APR_XTHREAD +#endif +#ifndef APR_FOPEN_SHARELOCK +#define APR_FOPEN_SHARELOCK APR_SHARELOCK +#endif +#ifndef APR_FOPEN_NOCLEANUP +#define APR_FOPEN_NOCLEANUP APR_FILE_NOCLEANUP +#endif +#ifndef APR_FOPEN_SENDFILE_ENABLED +#define APR_FOPEN_SENDFILE_ENABLED APR_SENDFILE_ENABLED +#endif +#ifndef APR_FOPEN_LARGEFILE +/* added in 2.0.50 */ +#ifdef APR_LARGEFILE +#define APR_FOPEN_LARGEFILE APR_LARGEFILE +#endif +#endif + +#endif /* MODPERL_APR_COMPAT_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_apr_includes.h b/2_0_13/src/modules/perl/modperl_apr_includes.h new file mode 100644 index 0000000..ec6e3d6 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_apr_includes.h
@@ -0,0 +1,51 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_APR_INCLUDES_H +#define MODPERL_APR_INCLUDES_H + +/* header files for APR */ + +#ifndef CORE_PRIVATE +#define CORE_PRIVATE +#endif + +#include "apr_version.h" +#include "apr_poll.h" +#include "apr_lib.h" +#include "apr_strings.h" +#include "apr_uri.h" +#include "apr_date.h" +#include "apr_buckets.h" +#include "apr_time.h" +#include "apr_network_io.h" +#include "apr_general.h" +#include "apr_uuid.h" +#include "apr_env.h" +#include "apu_version.h" +#if APU_MAJOR_VERSION > 1 \ + || (APU_MAJOR_VERSION == 1 && APU_MINOR_VERSION > 3) +#include "apu_errno.h" +#endif + +#endif /* MODPERL_APR_INCLUDES_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_bucket.c b/2_0_13/src/modules/perl/modperl_bucket.c new file mode 100644 index 0000000..f5f2c98 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_bucket.c
@@ -0,0 +1,165 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* + * modperl_bucket_sv code derived from mod_snake's ModSnakePyBucket + * by Jon Travis + */ + +typedef struct { + apr_bucket_refcount refcount; + SV *sv; + PerlInterpreter *perl; +} modperl_bucket_sv_t; + +static apr_status_t +modperl_bucket_sv_read(apr_bucket *bucket, const char **str, + apr_size_t *len, apr_read_type_e block) +{ + modperl_bucket_sv_t *svbucket = bucket->data; + dTHXa(svbucket->perl); + STRLEN svlen; + char *pv = SvPV(svbucket->sv, svlen); + + *str = pv + bucket->start; + *len = bucket->length; + + if (svlen < bucket->start + bucket->length) { + /* XXX log error? */ + return APR_EGENERAL; + } + + return APR_SUCCESS; +} + +static void modperl_bucket_sv_destroy(void *data) +{ + modperl_bucket_sv_t *svbucket = data; + dTHXa(svbucket->perl); + + if (!apr_bucket_shared_destroy(svbucket)) { + MP_TRACE_f(MP_FUNC, "bucket refcnt=%d", + ((apr_bucket_refcount *)svbucket)->refcount); + return; + } + + MP_TRACE_f(MP_FUNC, "sv=0x%lx, refcnt=%d", + (unsigned long)svbucket->sv, SvREFCNT(svbucket->sv)); + + SvREFCNT_dec(svbucket->sv); + + apr_bucket_free(svbucket); +} + +static +apr_status_t modperl_bucket_sv_setaside(apr_bucket *bucket, apr_pool_t *pool) +{ + modperl_bucket_sv_t *svbucket = bucket->data; + dTHXa(svbucket->perl); + STRLEN svlen; + char *pv = SvPV(svbucket->sv, svlen); + + if (svlen < bucket->start + bucket->length) { + /* XXX log error? */ + return APR_EGENERAL; + } + + pv = apr_pstrmemdup(pool, pv + bucket->start, bucket->length); + if (pv == NULL) { + return APR_ENOMEM; + } + + /* changes bucket guts by reference */ + if (apr_bucket_pool_make(bucket, pv, bucket->length, pool) == NULL) { + return APR_ENOMEM; + } + + modperl_bucket_sv_destroy(svbucket); + return APR_SUCCESS; +} + +static const apr_bucket_type_t modperl_bucket_sv_type = { + "mod_perl SV bucket", 4, +#if MODULE_MAGIC_NUMBER >= 20020602 + APR_BUCKET_DATA, +#endif + modperl_bucket_sv_destroy, + modperl_bucket_sv_read, + modperl_bucket_sv_setaside, + apr_bucket_shared_split, + apr_bucket_shared_copy, +}; + +static apr_bucket *modperl_bucket_sv_make(pTHX_ + apr_bucket *bucket, + SV *sv, + apr_off_t offset, + apr_size_t len) +{ + modperl_bucket_sv_t *svbucket; + + svbucket = apr_bucket_alloc(sizeof(*svbucket), bucket->list); + + bucket = apr_bucket_shared_make(bucket, svbucket, offset, len); + if (!bucket) { + apr_bucket_free(svbucket); + return NULL; + } + +#ifdef USE_ITHREADS + svbucket->perl = aTHX; +#endif + + /* PADTMP SVs belong to perl and can't be stored away, since perl + * is going to reuse them, so we have no choice but to copy the + * data away, before storing sv */ + if (SvPADTMP(sv)) { + STRLEN len; + char *pv = SvPV(sv, len); + svbucket->sv = newSVpvn(pv, len); + } + else { + svbucket->sv = sv; + (void)SvREFCNT_inc(svbucket->sv); + } + + MP_TRACE_f(MP_FUNC, "sv=0x%lx, refcnt=%d", + (unsigned long)svbucket->sv, SvREFCNT(svbucket->sv)); + + bucket->type = &modperl_bucket_sv_type; + return bucket; +} + +apr_bucket *modperl_bucket_sv_create(pTHX_ apr_bucket_alloc_t *list, SV *sv, + apr_off_t offset, apr_size_t len) +{ + apr_bucket *bucket; + + bucket = apr_bucket_alloc(sizeof(*bucket), list); + APR_BUCKET_INIT(bucket); + bucket->list = list; + bucket->free = apr_bucket_free; + return modperl_bucket_sv_make(aTHX_ bucket, sv, offset, len); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_bucket.h b/2_0_13/src/modules/perl/modperl_bucket.h new file mode 100644 index 0000000..f01506a --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_bucket.h
@@ -0,0 +1,30 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_BUCKET_H +#define MODPERL_BUCKET_H + +apr_bucket *modperl_bucket_sv_create(pTHX_ apr_bucket_alloc_t *list, SV *sv, + apr_off_t offset, apr_size_t len); + +#endif /* MODPERL_BUCKET_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_callback.c b/2_0_13/src/modules/perl/modperl_callback.c new file mode 100644 index 0000000..04f4317 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_callback.c
@@ -0,0 +1,397 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +int modperl_callback(pTHX_ modperl_handler_t *handler, apr_pool_t *p, + request_rec *r, server_rec *s, AV *args) +{ + CV *cv = (CV *)NULL; + I32 flags = G_EVAL|G_SCALAR; + dSP; + int count, status = OK; + + /* handler callbacks shouldn't affect each other's taintedness + * state, so start every callback with a clear tainted status + * before and after the callback one of the main problems we are + * trying to solve is that when modperl_croak called (which calls + * perl's croak((char *)NULL) to throw an error object) it leaves + * the interpreter in the tainted state which later affects other + * callbacks that call eval, etc., which triggers perl crash with: + * Insecure dependency in eval while running setgid. Callback + * called exit. + */ + TAINT_NOT; + + if ((status = modperl_handler_resolve(aTHX_ &handler, p, s)) != OK) { + TAINT_NOT; + return status; + } + + ENTER;SAVETMPS; + PUSHMARK(SP); + + if (MpHandlerMETHOD(handler)) { + GV *gv; + if (!handler->mgv_obj) { + Perl_croak(aTHX_ "panic: %s method handler object is NULL!", + modperl_handler_name(handler)); + } + gv = modperl_mgv_lookup(aTHX_ handler->mgv_obj); + XPUSHs(modperl_mgv_sv(gv)); + } + + if (args) { + I32 items = AvFILLp(args) + 1; + + EXTEND(SP, items); + Copy(AvARRAY(args), SP + 1, items, SV*); + SP += items; + } + + PUTBACK; + + if (MpHandlerANON(handler)) { +#ifdef USE_ITHREADS + cv = modperl_handler_anon_get(aTHX_ handler->mgv_obj); +#else + cv = handler->cv; +#endif + } + else { + GV *gv = modperl_mgv_lookup_autoload(aTHX_ handler->mgv_cv, s, p); + if (gv) { + cv = modperl_mgv_cv(gv); + } + else { + const char *name; + modperl_mgv_t *symbol = handler->mgv_cv; + + /* XXX: need to validate *symbol */ + if (symbol && symbol->name) { + name = modperl_mgv_as_string(aTHX_ symbol, p, 0); + } + else { + name = handler->name; + } + + MP_TRACE_h(MP_FUNC, "[%s] lookup of %s failed", + modperl_server_desc(s, p), name); + ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, + "lookup of '%s' failed", name); + status = HTTP_INTERNAL_SERVER_ERROR; + } + } + + if (status == OK) { + count = call_sv((SV*)cv, flags); + + SPAGAIN; + + if (count != 1) { + /* XXX can this really happen with G_EVAL|G_SCALAR? */ + status = OK; + } + else { + SV *status_sv = POPs; + + if (status_sv == &PL_sv_undef) { + /* ModPerl::Util::exit() and Perl_croak internally + * arrange to return PL_sv_undef with G_EVAL|G_SCALAR */ + status = OK; + } + else { + status = SvIVx(status_sv); + } + } + + PUTBACK; + } + + FREETMPS;LEAVE; + + if (SvTRUE(ERRSV)) { + MP_TRACE_h(MP_FUNC, "$@ = %s", SvPV_nolen(ERRSV)); + status = HTTP_INTERNAL_SERVER_ERROR; + } + + if (status == HTTP_INTERNAL_SERVER_ERROR) { + if (r && r->notes) { + apr_table_merge(r->notes, "error-notes", SvPV_nolen(ERRSV)); + } + } + + TAINT_NOT; + + return status; +} + +int modperl_callback_run_handlers(int idx, int type, + request_rec *r, conn_rec *c, + server_rec *s, + apr_pool_t *pconf, + apr_pool_t *plog, + apr_pool_t *ptemp, + modperl_hook_run_mode_e run_mode) +{ + MP_dINTERP; + MP_dSCFG(s); + MP_dDCFG; + MP_dRCFG; + modperl_handler_t **handlers; + apr_pool_t *p = NULL; + MpAV *av, **avp; + int i, status = OK; + const char *desc = NULL; + AV *av_args = (AV *)NULL; + + if (!MpSrvENABLE(scfg)) { + MP_TRACE_h(MP_FUNC, "PerlOff for server %s:%u", + s->server_hostname, s->port); + return DECLINED; + } + + if (r || c) { + p = c ? c->pool : r->pool; + } + else { + p = pconf; + } + + avp = modperl_handler_lookup_handlers(dcfg, scfg, rcfg, p, + type, idx, FALSE, &desc); + + if (!(avp && (av = *avp))) { + MP_TRACE_h(MP_FUNC, "no %s handlers configured (%s)", + desc, r ? r->uri : ""); + return DECLINED; + } + + MP_INTERPa(r, c, s); + + switch (type) { + case MP_HANDLER_TYPE_PER_SRV: + modperl_handler_make_args(aTHX_ &av_args, + "Apache2::RequestRec", r, NULL); + + /* per-server PerlSetEnv and PerlPassEnv - only once per-request */ + if (! MpReqPERL_SET_ENV_SRV(rcfg)) { + modperl_env_configure_request_srv(aTHX_ r); + } + + break; + case MP_HANDLER_TYPE_PER_DIR: + modperl_handler_make_args(aTHX_ &av_args, + "Apache2::RequestRec", r, NULL); + + /* per-server PerlSetEnv and PerlPassEnv - only once per-request */ + if (! MpReqPERL_SET_ENV_SRV(rcfg)) { + modperl_env_configure_request_srv(aTHX_ r); + } + + /* per-directory PerlSetEnv - only once per-request */ + if (! MpReqPERL_SET_ENV_DIR(rcfg)) { + modperl_env_configure_request_dir(aTHX_ r); + } + + break; + case MP_HANDLER_TYPE_PRE_CONNECTION: + case MP_HANDLER_TYPE_CONNECTION: + modperl_handler_make_args(aTHX_ &av_args, + "Apache2::Connection", c, NULL); + break; + case MP_HANDLER_TYPE_FILES: + modperl_handler_make_args(aTHX_ &av_args, + "APR::Pool", pconf, + "APR::Pool", plog, + "APR::Pool", ptemp, + "Apache2::ServerRec", s, NULL); + break; + case MP_HANDLER_TYPE_PROCESS: + modperl_handler_make_args(aTHX_ &av_args, + "APR::Pool", pconf, + "Apache2::ServerRec", s, NULL); + break; + }; + + modperl_callback_current_callback_set(desc); + + MP_TRACE_h(MP_FUNC, "running %d %s handlers", av->nelts, desc); + handlers = (modperl_handler_t **)av->elts; + + for (i=0; i<av->nelts; i++) { + status = modperl_callback(aTHX_ handlers[i], p, r, s, av_args); + + MP_TRACE_h(MP_FUNC, "callback '%s' returned %d", + modperl_handler_name(handlers[i]), status); + + /* follow Apache's lead and let OK terminate the phase for + * MP_HOOK_RUN_FIRST handlers. MP_HOOK_RUN_ALL handlers keep + * going on OK. MP_HOOK_VOID handlers ignore all errors. + */ + + if (run_mode == MP_HOOK_RUN_ALL) { + /* special case */ + if (type == MP_HANDLER_TYPE_FILES && status != OK) { + /* open_logs and post_config require OK return code or + * the server aborts, so we need to log an error in + * case the handler didn't fail but returned something + * different from OK */ + if (SvTRUE(ERRSV)) { + status = modperl_errsv(aTHX_ status, r, s); + } + else { + ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, + "Callback '%s' returned %d, whereas " + "Apache2::Const::OK (%d) is the only valid " + "return value for %s handlers", + modperl_handler_name(handlers[i]), + status, OK, desc); + } + break; + } + /* the normal case: + * OK and DECLINED continue + * errors end the phase + */ + else if ((status != OK) && (status != DECLINED)) { + + status = modperl_errsv(aTHX_ status, r, s); +#ifdef MP_TRACE + if (i+1 != av->nelts) { + MP_TRACE_h(MP_FUNC, "error status %d leaves %d " + "uncalled %s handlers", + status, av->nelts-i-1, desc); + } +#endif + break; + } + } + else if (run_mode == MP_HOOK_RUN_FIRST) { + /* the exceptional case: + * OK and errors end the phase + * DECLINED continues + */ + + if (status == OK) { +#ifdef MP_TRACE + if (i+1 != av->nelts) { + MP_TRACE_h(MP_FUNC, "OK ends the %s stack, " + "leaving %d uncalled %s handlers", + desc, av->nelts-i-1, desc); + } +#endif + break; + } + if (status != DECLINED) { + status = modperl_errsv(aTHX_ status, r, s); +#ifdef MP_TRACE + if (i+1 != av->nelts) { + MP_TRACE_h(MP_FUNC, "error status %d leaves %d " + "uncalled %s handlers", + status, av->nelts-i-1, desc); + } +#endif + break; + } + } + else { + /* the rare case. + * MP_HOOK_VOID handlers completely ignore the return status + * Apache should handle whatever mod_perl returns, + * so there is no need to mess with the status + */ + } + + /* it's possible that during the last callback a new handler + * was pushed onto the same phase it's running from. av needs + * to be updated. + * + * XXX: would be nice to somehow optimize that + */ + avp = modperl_handler_lookup_handlers(dcfg, scfg, rcfg, p, + type, idx, FALSE, NULL); + if (avp && (av = *avp)) { + handlers = (modperl_handler_t **)av->elts; + } + } + + SvREFCNT_dec((SV*)av_args); + + MP_INTERP_PUTBACK(interp, aTHX); + + return status; +} + +int modperl_callback_per_dir(int idx, request_rec *r, + modperl_hook_run_mode_e run_mode) +{ + return modperl_callback_run_handlers(idx, MP_HANDLER_TYPE_PER_DIR, + r, NULL, r->server, + NULL, NULL, NULL, run_mode); +} + +int modperl_callback_per_srv(int idx, request_rec *r, + modperl_hook_run_mode_e run_mode) +{ + return modperl_callback_run_handlers(idx, + MP_HANDLER_TYPE_PER_SRV, + r, NULL, r->server, + NULL, NULL, NULL, run_mode); +} + +int modperl_callback_connection(int idx, conn_rec *c, + modperl_hook_run_mode_e run_mode) +{ + return modperl_callback_run_handlers(idx, + MP_HANDLER_TYPE_CONNECTION, + NULL, c, c->base_server, + NULL, NULL, NULL, run_mode); +} + +int modperl_callback_pre_connection(int idx, conn_rec *c, void *csd, + modperl_hook_run_mode_e run_mode) +{ + return modperl_callback_run_handlers(idx, + MP_HANDLER_TYPE_PRE_CONNECTION, + NULL, c, c->base_server, + NULL, NULL, NULL, run_mode); +} + +void modperl_callback_process(int idx, apr_pool_t *p, server_rec *s, + modperl_hook_run_mode_e run_mode) +{ + modperl_callback_run_handlers(idx, MP_HANDLER_TYPE_PROCESS, + NULL, NULL, s, + p, NULL, NULL, run_mode); +} + +int modperl_callback_files(int idx, + apr_pool_t *pconf, apr_pool_t *plog, + apr_pool_t *ptemp, server_rec *s, + modperl_hook_run_mode_e run_mode) +{ + return modperl_callback_run_handlers(idx, MP_HANDLER_TYPE_FILES, + NULL, NULL, s, + pconf, plog, ptemp, run_mode); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_callback.h b/2_0_13/src/modules/perl/modperl_callback.h new file mode 100644 index 0000000..8441b2d --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_callback.h
@@ -0,0 +1,75 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_CALLBACK_H +#define MODPERL_CALLBACK_H + +/* alias some hook names to match Perl*Handler names */ +#define ap_hook_trans ap_hook_translate_name +#define ap_hook_access ap_hook_access_checker +#define ap_hook_authen ap_hook_check_user_id +#define ap_hook_authz ap_hook_auth_checker +#define ap_hook_type ap_hook_type_checker +#define ap_hook_fixup ap_hook_fixups +#define ap_hook_log ap_hook_log_transaction + +#define modperl_callback_current_callback_sv \ + get_sv("Apache2::__CurrentCallback", TRUE) + +#define modperl_callback_current_callback_set(desc) \ + sv_setpv(modperl_callback_current_callback_sv, desc) + +#define modperl_callback_current_callback_get() \ + SvPVX(modperl_callback_current_callback_sv) + +int modperl_callback(pTHX_ modperl_handler_t *handler, apr_pool_t *p, + request_rec *r, server_rec *s, AV *args); + +int modperl_callback_run_handlers(int idx, int type, + request_rec *r, conn_rec *c, server_rec *s, + apr_pool_t *pconf, + apr_pool_t *plog, + apr_pool_t *ptemp, + modperl_hook_run_mode_e run_mode); + +int modperl_callback_per_dir(int idx, request_rec *r, + modperl_hook_run_mode_e run_mode); + +int modperl_callback_per_srv(int idx, request_rec *r, + modperl_hook_run_mode_e run_mode); + +int modperl_callback_connection(int idx, conn_rec *c, + modperl_hook_run_mode_e run_mode); + +int modperl_callback_pre_connection(int idx, conn_rec *c, void *csd, + modperl_hook_run_mode_e run_mode); + +void modperl_callback_process(int idx, apr_pool_t *p, server_rec *s, + modperl_hook_run_mode_e run_mode); + +int modperl_callback_files(int idx, + apr_pool_t *pconf, apr_pool_t *plog, + apr_pool_t *ptemp, server_rec *s, + modperl_hook_run_mode_e run_mode); + +#endif /* MODPERL_CALLBACK_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_cgi.c b/2_0_13/src/modules/perl/modperl_cgi.c new file mode 100644 index 0000000..66743e6 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_cgi.c
@@ -0,0 +1,110 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +MP_INLINE int modperl_cgi_header_parse(request_rec *r, char *buffer, + apr_size_t *len, const char **body) +{ + int status; + int termarg; + const char *location; + const char *tmp; + apr_size_t tlen, newln; + + if (!buffer) { + return DECLINED; + } + + /* ap_scan_script_header_err_strs won't handle correctly binary + * data following the headers, e.g. when the terminating /\n\r?\n/ + * is followed by \0\0 which is a part of the response + * body. Therefore we need to separate the headers from the body + * and not rely on ap_scan_script_header_err_strs to do that for + * us. + */ + tmp = buffer; + newln = 0; + tlen = *len; + while (tlen--) { + /* that strange mix of CR and \n (and not LF) copied from + * util_script.c:ap_scan_script_header_err_core + */ + if (*tmp != CR && *tmp != '\n') { + newln = 0; + } + if (*tmp == '\n') { + newln++; + } + tmp++; + if (newln == 2) { + break; + } + } + + if (tmp - buffer >= *len) { + *body = NULL; /* no body along with headers */ + *len = 0; + } + else { + *body = tmp; + *len = *len - (tmp - buffer); + } + + status = ap_scan_script_header_err_strs(r, NULL, NULL, + &termarg, buffer, NULL); + + /* code below from mod_cgi.c */ + location = apr_table_get(r->headers_out, "Location"); + + if (location && (location[0] == '/') && (r->status == 200)) { + r->method = apr_pstrdup(r->pool, "GET"); + r->method_number = M_GET; + + /* We already read the message body (if any), so don't allow + * the redirected request to think it has one. We can ignore + * Transfer-Encoding, since we used REQUEST_CHUNKED_ERROR. + */ + apr_table_unset(r->headers_in, "Content-Length"); + + ap_internal_redirect_handler(location, r); + + return OK; + } + else if (location && (r->status == 200)) { + MP_dRCFG; + + /* Note that if a script wants to produce its own Redirect + * body, it now has to explicitly *say* "Status: 302" + */ + + /* XXX: this is a hack. + * filter return value doesn't seem to impact anything. + */ + rcfg->status = HTTP_MOVED_TEMPORARILY; + + return HTTP_MOVED_TEMPORARILY; + } + + return status; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_cgi.h b/2_0_13/src/modules/perl/modperl_cgi.h new file mode 100644 index 0000000..4924257 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_cgi.h
@@ -0,0 +1,45 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_CGI_H +#define MODPERL_CGI_H + +/** + * split the HTTP headers from the body (if any) and feed them to + * Apache. Populate the pointer to the remaining data in the buffer + * (body if any or NULL) + * + * @param r request_rec + * @param buffer a string with headers and potentially body + * (could be non-null terminated) + * @param len length of 'buffer' on entry + * length of 'body' on return + * @param body pointer to the body within the 'buffer' on return + * NULL if the buffer contained only headers + * + * @return status + */ +MP_INLINE int modperl_cgi_header_parse(request_rec *r, char *buffer, + apr_size_t *len, const char **body); + +#endif /* MODPERL_CGI_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_cmd.c b/2_0_13/src/modules/perl/modperl_cmd.c new file mode 100644 index 0000000..5b28771 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_cmd.c
@@ -0,0 +1,822 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* This ensures that a given directive is either in Server context + * or in a .htaccess file, usefull for things like PerlRequire + */ +#define MP_CHECK_SERVER_OR_HTACCESS_CONTEXT \ + if (parms->path && (parms->override & ACCESS_CONF)) { \ + ap_directive_t *d = parms->directive; \ + return apr_psprintf(parms->pool, \ + "%s directive not allowed in a %s> block", \ + d->directive, \ + d->parent->directive); \ + } + +static char *modperl_cmd_unclosed_directive(cmd_parms *parms) +{ + return apr_pstrcat(parms->pool, parms->cmd->name, + "> directive missing closing '>'", NULL); +} + +static char *modperl_cmd_too_late(cmd_parms *parms) +{ + return apr_pstrcat(parms->pool, "mod_perl is already running, " + "too late for ", parms->cmd->name, NULL); +} + +char *modperl_cmd_push_handlers(MpAV **handlers, const char *name, + apr_pool_t *p) +{ + modperl_handler_t *h = modperl_handler_new(p, name); + + if (!*handlers) { + *handlers = modperl_handler_array_new(p); + MP_TRACE_d(MP_FUNC, "created handler stack"); + } + + /* XXX parse_handler if Perl is running */ + + modperl_handler_array_push(*handlers, h); + MP_TRACE_d(MP_FUNC, "pushed handler: %s", h->name); + + return NULL; +} + +char *modperl_cmd_push_filter_handlers(MpAV **handlers, + const char *name, + apr_pool_t *p) +{ + modperl_handler_t *h = modperl_handler_new(p, name); + + /* filter modules need to be autoloaded, because their attributes + * need to be known long before the callback is issued + */ + if (*name == '-') { + MP_TRACE_h(MP_FUNC, + "warning: filter handler %s will be not autoloaded. " + "Unless the module defining this handler is explicitly " + "preloaded, filter attributes will be ignored."); + } + else { + MpHandlerAUTOLOAD_On(h); + MP_TRACE_h(MP_FUNC, + "filter handler %s will be autoloaded (to make " + "the filter attributes available)", h->name); + } + + if (!*handlers) { + *handlers = modperl_handler_array_new(p); + MP_TRACE_d(MP_FUNC, "created handler stack"); + } + + modperl_handler_array_push(*handlers, h); + MP_TRACE_d(MP_FUNC, "pushed httpd filter handler: %s", h->name); + + return NULL; +} + +static char *modperl_cmd_push_httpd_filter_handlers(MpAV **handlers, + const char *name, + apr_pool_t *p) +{ + modperl_handler_t *h = modperl_handler_new(p, name); + + /* this is not a real mod_perl handler, we just re-use the + * handlers structure to be able to mix mod_perl and non-mod_perl + * filters */ + MpHandlerFAKE_On(h); + h->attrs = MP_FILTER_HTTPD_HANDLER; + + if (!*handlers) { + *handlers = modperl_handler_array_new(p); + MP_TRACE_d(MP_FUNC, "created handler stack"); + } + + modperl_handler_array_push(*handlers, h); + MP_TRACE_d(MP_FUNC, "pushed httpd filter handler: %s", h->name); + + return NULL; +} + + +#define MP_CMD_SRV_TRACE \ + MP_TRACE_d(MP_FUNC, "%s %s", parms->cmd->name, arg) + +#define MP_CMD_SRV_CHECK \ +MP_CMD_SRV_TRACE; \ +{ \ + const char *err = ap_check_cmd_context(parms, GLOBAL_ONLY); \ + if (err) return err; \ +} + +MP_CMD_SRV_DECLARE(trace) +{ + MP_CMD_SRV_CHECK; + modperl_trace_level_set_apache(parms->server, arg); + return NULL; +} + +/* this test shows whether the perl for the current s is running + * (either base or vhost) */ +static int modperl_vhost_is_running(server_rec *s) +{ +#ifdef USE_ITHREADS + if (s->is_virtual){ + MP_dSCFG(s); + return scfg->mip ? TRUE : FALSE; + } +#endif + + return modperl_is_running(); + +} + +MP_CMD_SRV_DECLARE(switches) +{ + server_rec *s = parms->server; + MP_dSCFG(s); + if (modperl_vhost_is_running(s)) { + return modperl_cmd_too_late(parms); + } + MP_TRACE_d(MP_FUNC, "arg = %s", arg); + + if (!strncasecmp(arg, "+inherit", 8)) { + modperl_cmd_options(parms, mconfig, "+InheritSwitches"); + } + else { + modperl_config_srv_argv_push(arg); + } + return NULL; +} + +MP_CMD_SRV_DECLARE(modules) +{ + MP_dSCFG(parms->server); + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + MP_PERL_CONTEXT_DECLARE; + + MP_CHECK_SERVER_OR_HTACCESS_CONTEXT; + + if (modperl_is_running() && + modperl_init_vhost(parms->server, parms->pool, NULL) != OK) + { + return "init mod_perl vhost failed"; + } + + if (modperl_is_running()) { + char *error = NULL; + + MP_TRACE_d(MP_FUNC, "load PerlModule %s", arg); + + MP_PERL_CONTEXT_STORE_OVERRIDE(scfg->mip->parent->perl); + if (!modperl_require_module(aTHX_ arg, FALSE)) { + error = SvPVX(ERRSV); + } + else { + modperl_env_sync_srv_env_hash2table(aTHX_ parms->pool, scfg); + modperl_env_sync_dir_env_hash2table(aTHX_ parms->pool, dcfg); + } + MP_PERL_CONTEXT_RESTORE; + + return error; + } + else { + MP_TRACE_d(MP_FUNC, "push PerlModule %s", arg); + *(const char **)apr_array_push(scfg->PerlModule) = arg; + return NULL; + } +} + +MP_CMD_SRV_DECLARE(requires) +{ + MP_dSCFG(parms->server); + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + MP_PERL_CONTEXT_DECLARE; + + MP_CHECK_SERVER_OR_HTACCESS_CONTEXT; + + if (modperl_is_running() && + modperl_init_vhost(parms->server, parms->pool, NULL) != OK) + { + return "init mod_perl vhost failed"; + } + + if (modperl_is_running()) { + char *error = NULL; + + MP_TRACE_d(MP_FUNC, "load PerlRequire %s", arg); + + MP_PERL_CONTEXT_STORE_OVERRIDE(scfg->mip->parent->perl); + if (!modperl_require_file(aTHX_ arg, FALSE)) { + error = SvPVX(ERRSV); + } + else { + modperl_env_sync_srv_env_hash2table(aTHX_ parms->pool, scfg); + modperl_env_sync_dir_env_hash2table(aTHX_ parms->pool, dcfg); + } + MP_PERL_CONTEXT_RESTORE; + + return error; + } + else { + MP_TRACE_d(MP_FUNC, "push PerlRequire %s", arg); + *(const char **)apr_array_push(scfg->PerlRequire) = arg; + return NULL; + } +} + +MP_CMD_SRV_DECLARE(config_requires) +{ + /* we must init earlier than normal */ + modperl_run(); + + /* PerlConfigFile is only different from PerlRequires by forcing + * an immediate init. + */ + return modperl_cmd_requires(parms, mconfig, arg); +} + +MP_CMD_SRV_DECLARE(post_config_requires) +{ + apr_pool_t *p = parms->temp_pool; + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + MP_dSCFG(parms->server); + + modperl_require_file_t *require = apr_pcalloc(p, sizeof(*require)); + MP_TRACE_d(MP_FUNC, "push PerlPostConfigRequire for %s", arg); + require->file = arg; + require->dcfg = dcfg; + + *(modperl_require_file_t **) + apr_array_push(scfg->PerlPostConfigRequire) = require; + + return NULL; +} + +static void modperl_cmd_addvar_func(apr_table_t *configvars, + apr_table_t *setvars, + const char *key, const char *val) +{ + apr_table_addn(configvars, key, val); +} + +/* Conceptually, setvar is { unsetvar; addvar; } */ + +static void modperl_cmd_setvar_func(apr_table_t *configvars, + apr_table_t *setvars, + const char * key, const char *val) +{ + apr_table_setn(setvars, key, val); + apr_table_setn(configvars, key, val); +} + +static const char *modperl_cmd_modvar(modperl_var_modify_t varfunc, + cmd_parms *parms, + modperl_config_dir_t *dcfg, + const char *arg1, const char *arg2) +{ + varfunc(dcfg->configvars, dcfg->setvars, arg1, arg2); + + MP_TRACE_d(MP_FUNC, "%s DIR: arg1 = %s, arg2 = %s", + parms->cmd->name, arg1, arg2); + + /* make available via Apache2->server->dir_config */ + if (!parms->path) { + MP_dSCFG(parms->server); + varfunc(scfg->configvars, scfg->setvars, arg1, arg2); + + MP_TRACE_d(MP_FUNC, "%s SRV: arg1 = %s, arg2 = %s", + parms->cmd->name, arg1, arg2); + } + + return NULL; +} + +MP_CMD_SRV_DECLARE2(add_var) +{ + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + return modperl_cmd_modvar(modperl_cmd_addvar_func, parms, dcfg, arg1, arg2); +} + +MP_CMD_SRV_DECLARE2(set_var) +{ + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + return modperl_cmd_modvar(modperl_cmd_setvar_func, parms, dcfg, arg1, arg2); +} + +MP_CMD_SRV_DECLARE2(set_env) +{ + MP_dSCFG(parms->server); + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + +#ifdef ENV_IS_CASELESS /* i.e. WIN32 */ + /* we turn off env magic during hv_store later, so do this now, + * else lookups on keys with lowercase characters will fails + * because Perl will uppercase them prior to lookup. + */ + modperl_str_toupper((char *)arg1); +#endif + + MP_TRACE_d(MP_FUNC, "arg1 = %s, arg2 = %s", arg1, arg2); + + if (!parms->path) { + /* will be propagated to environ */ + apr_table_setn(scfg->SetEnv, arg1, arg2); + /* sync SetEnv => %ENV only for the top-level values */ + if (modperl_vhost_is_running(parms->server)) { + MP_PERL_CONTEXT_DECLARE; + MP_PERL_CONTEXT_STORE_OVERRIDE(scfg->mip->parent->perl); + modperl_env_hv_store(aTHX_ arg1, arg2); + MP_PERL_CONTEXT_RESTORE; + } + } + + apr_table_setn(dcfg->SetEnv, arg1, arg2); + + return NULL; +} + +MP_CMD_SRV_DECLARE(pass_env) +{ + MP_dSCFG(parms->server); + char *val = getenv(arg); + +#ifdef ENV_IS_CASELESS /* i.e. WIN32 */ + /* we turn off env magic during hv_store later, so do this now, + * else lookups on keys with lowercase characters will fails + * because Perl will uppercase them prior to lookup. + */ + modperl_str_toupper((char *)arg); +#endif + + if (val) { + apr_table_setn(scfg->PassEnv, arg, apr_pstrdup(parms->pool, val)); + if (modperl_vhost_is_running(parms->server)) { + MP_PERL_CONTEXT_DECLARE; + MP_PERL_CONTEXT_STORE_OVERRIDE(scfg->mip->parent->perl); + modperl_env_hv_store(aTHX_ arg, val); + MP_PERL_CONTEXT_RESTORE; + } + MP_TRACE_d(MP_FUNC, "arg = %s, val = %s", arg, val); + } + else { + MP_TRACE_d(MP_FUNC, "arg = %s: not found via getenv()", arg); + } + + return NULL; +} + +MP_CMD_SRV_DECLARE(options) +{ + MP_dSCFG(parms->server); + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + int is_per_dir = parms->path ? 1 : 0; + modperl_options_t *opts = is_per_dir ? dcfg->flags : scfg->flags; + apr_pool_t *p = parms->temp_pool; + const char *error; + + MP_TRACE_d(MP_FUNC, "arg = %s", arg); + if ((error = modperl_options_set(p, opts, arg)) && !is_per_dir) { + /* maybe a per-directory option outside of a container */ + if (modperl_options_set(p, dcfg->flags, arg) == NULL) { + error = NULL; + } + } + + if (error) { + return error; + } + + return NULL; +} + +MP_CMD_SRV_DECLARE(init_handlers) +{ + if (parms->path) { + return modperl_cmd_header_parser_handlers(parms, mconfig, arg); + } + + return modperl_cmd_post_read_request_handlers(parms, mconfig, arg); +} + +#if AP_SERVER_MAJORVERSION_NUMBER>2 || \ + (AP_SERVER_MAJORVERSION_NUMBER == 2 && AP_SERVER_MINORVERSION_NUMBER>=3) + +MP_CMD_SRV_DECLARE2(authz_provider) +{ + apr_pool_t *p = parms->pool; + char *name = apr_pstrdup(p, arg1); + char *cb = apr_pstrdup(p, arg2); + + modperl_register_auth_provider_name(p, AUTHZ_PROVIDER_GROUP, name, + AUTHZ_PROVIDER_VERSION, cb, NULL, + AP_AUTH_INTERNAL_PER_CONF); + return NULL; +} + +MP_CMD_SRV_DECLARE2(authn_provider) +{ + apr_pool_t *p = parms->pool; + char *name = apr_pstrdup(p, arg1); + char *cb = apr_pstrdup(p, arg2); + + modperl_register_auth_provider_name(p, AUTHN_PROVIDER_GROUP, name, + AUTHN_PROVIDER_VERSION, cb, NULL, + AP_AUTH_INTERNAL_PER_CONF); + return NULL; +} + +#endif + +static const char *modperl_cmd_parse_args(apr_pool_t *p, + const char *args, + apr_table_t **t) +{ + const char *orig_args = args; + char *pair, *key, *val; + *t = apr_table_make(p, 2); + + while (*(pair = ap_getword(p, &args, ',')) != '\0') { + key = ap_getword_nc(p, &pair, '='); + val = pair; + + if (!(*key && *val)) { + return apr_pstrcat(p, "invalid args spec: ", + orig_args, NULL); + } + + apr_table_set(*t, key, val); + } + + return NULL; +} + +MP_CMD_SRV_DECLARE(perl) +{ + apr_pool_t *p = parms->pool; + const char *endp = ap_strrchr_c(arg, '>'); + const char *errmsg; + char *code = ""; + char line[MAX_STRING_LEN]; + apr_table_t *args; + ap_directive_t **current = mconfig; + int line_num; + + if (!endp) { + return modperl_cmd_unclosed_directive(parms); + } + + MP_CHECK_SERVER_OR_HTACCESS_CONTEXT; + + arg = apr_pstrndup(p, arg, endp - arg); + + if ((errmsg = modperl_cmd_parse_args(p, arg, &args))) { + return errmsg; + } + + line_num = parms->config_file->line_number+1; + while (!ap_cfg_getline(line, sizeof(line), parms->config_file)) { + /*XXX: Not sure how robust this is */ + if (strEQ(line, "</Perl>")) { + break; + } + + /*XXX: Less than optimal */ + code = apr_pstrcat(p, code, line, "\n", NULL); + } + + /* Here, we have to replace our current config node for the next pass */ + if (!*current) { + *current = apr_pcalloc(p, sizeof(**current)); + } + + (*current)->filename = parms->config_file->name; + (*current)->line_num = line_num; + (*current)->directive = apr_pstrdup(p, "Perl"); + (*current)->args = code; + (*current)->data = args; + + return NULL; +} + +#define MP_DEFAULT_PERLSECTION_HANDLER "Apache2::PerlSections" +#define MP_DEFAULT_PERLSECTION_PACKAGE "Apache2::ReadConfig" +#define MP_PERLSECTIONS_SAVECONFIG_SV \ + get_sv("Apache2::PerlSections::Save", FALSE) +#define MP_PERLSECTIONS_SERVER_SV \ + get_sv("Apache2::PerlSections::Server", TRUE) + +MP_CMD_SRV_DECLARE(perldo) +{ + apr_pool_t *p = parms->pool; + server_rec *s = parms->server; + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + apr_table_t *options; + modperl_handler_t *handler = NULL; + const char *pkg_name = NULL; + ap_directive_t *directive = parms->directive; + MP_dSCFG(s); + MP_PERL_CONTEXT_DECLARE; + + if (!(arg && *arg)) { + return NULL; + } + + MP_CHECK_SERVER_OR_HTACCESS_CONTEXT; + + /* we must init earlier than normal */ + modperl_run(); + + if (modperl_init_vhost(s, p, NULL) != OK) { + return "init mod_perl vhost failed"; + } + + MP_PERL_CONTEXT_STORE_OVERRIDE(scfg->mip->parent->perl); + + /* data will be set by a <Perl> section */ + if ((options = directive->data)) { + const char *pkg_namespace; + const char *pkg_base; + const char *handler_name; + const char *line_header; + + if (!(handler_name = apr_table_get(options, "handler"))) { + handler_name = apr_pstrdup(p, MP_DEFAULT_PERLSECTION_HANDLER); + apr_table_set(options, "handler", handler_name); + } + + handler = modperl_handler_new(p, handler_name); + + if (!(pkg_base = apr_table_get(options, "package"))) { + pkg_base = apr_pstrdup(p, MP_DEFAULT_PERLSECTION_PACKAGE); + } + + pkg_namespace = modperl_file2package(p, directive->filename); + + pkg_name = apr_psprintf(p, "%s::%s::line_%d", + pkg_base, + pkg_namespace, + directive->line_num); + + apr_table_set(options, "package", pkg_name); + + line_header = apr_psprintf(p, "\n#line %d %s\n", + directive->line_num, + directive->filename); + + /* put the code about to be executed in the configured package */ + arg = apr_pstrcat(p, "package ", pkg_name, ";", line_header, + arg, NULL); + } + +#ifdef USE_ITHREADS + MP_TRACE_i(MP_FUNC, "using interp %lx to execute perl section:\n%s", + scfg->mip->parent, arg); +#endif + + { + SV *server = MP_PERLSECTIONS_SERVER_SV; + SV *code = newSVpv(arg, 0); + GV *gv = gv_fetchpv("0", TRUE, SVt_PV); + ENTER;SAVETMPS; + save_scalar(gv); /* local $0 */ +#if MP_PERL_VERSION_AT_LEAST(5, 9, 0) + TAINT_NOT; /* XXX: temp workaround, see my p5p post */ +#endif + sv_setref_pv(server, "Apache2::ServerRec", (void*)s); + sv_setpv_mg(GvSV(gv), directive->filename); + eval_sv(code, G_SCALAR|G_KEEPERR); + SvREFCNT_dec(code); + modperl_env_sync_srv_env_hash2table(aTHX_ p, scfg); + modperl_env_sync_dir_env_hash2table(aTHX_ p, dcfg); + FREETMPS;LEAVE; + } + + if (SvTRUE(ERRSV)) { + MP_PERL_CONTEXT_RESTORE; + return SvPVX(ERRSV); + } + + if (handler) { + int status; + SV *saveconfig = MP_PERLSECTIONS_SAVECONFIG_SV; + AV *args = (AV *)NULL; + + modperl_handler_make_args(aTHX_ &args, + "Apache2::CmdParms", parms, + "APR::Table", options, + NULL); + + status = modperl_callback(aTHX_ handler, p, NULL, s, args); + + SvREFCNT_dec((SV*)args); + + if (!(saveconfig && SvTRUE(saveconfig))) { + modperl_package_unload(aTHX_ pkg_name); + } + + if (status != OK) { + char *error = SvTRUE(ERRSV) ? SvPVX(ERRSV) : + apr_psprintf(p, "<Perl> handler %s failed with status=%d", + handler->name, status); + MP_PERL_CONTEXT_RESTORE; + return error; + } + } + + MP_PERL_CONTEXT_RESTORE; + return NULL; +} + +#define MP_POD_FORMAT(s) \ + (ap_strstr_c(s, "httpd") || ap_strstr_c(s, "apache")) + +MP_CMD_SRV_DECLARE(pod) +{ + char line[MAX_STRING_LEN]; + + if (arg && *arg && !(MP_POD_FORMAT(arg) || strstr("pod", arg))) { + return "Unknown =back format"; + } + + while (!ap_cfg_getline(line, sizeof(line), parms->config_file)) { + if (strEQ(line, "=cut")) { + break; + } + if (strnEQ(line, "=over", 5) && MP_POD_FORMAT(line)) { + break; + } + } + + return NULL; +} + +MP_CMD_SRV_DECLARE(pod_cut) +{ + return "=cut without =pod"; +} + +MP_CMD_SRV_DECLARE(END) +{ + char line[MAX_STRING_LEN]; + + while (!ap_cfg_getline(line, sizeof(line), parms->config_file)) { + /* soak up rest of the file */ + } + + return NULL; +} + +/* + * XXX: the name of this directive may or may not stay. + * need a way to note that a module has config directives. + * don't want to start mod_perl when we see a non-special PerlModule. + */ +MP_CMD_SRV_DECLARE(load_module) +{ + const char *errmsg; + + MP_TRACE_d(MP_FUNC, "PerlLoadModule %s", arg); + + /* we must init earlier than normal */ + modperl_run(); + + if ((errmsg = modperl_cmd_modules(parms, mconfig, arg))) { + return errmsg; + } + + return NULL; +} + +/* propogate filters insertion ala SetInputFilter */ +MP_CMD_SRV_DECLARE(set_input_filter) +{ + MP_dSCFG(parms->server); + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + char *filter; + + if (!MpSrvENABLE(scfg)) { + return apr_pstrcat(parms->pool, + "Perl is disabled for server ", + parms->server->server_hostname, NULL); + } + if (!MpSrvINPUT_FILTER(scfg)) { + return apr_pstrcat(parms->pool, + "PerlSetInputFilter is disabled for server ", + parms->server->server_hostname, NULL); + } + + while (*arg && (filter = ap_getword(parms->pool, &arg, ';'))) { + modperl_cmd_push_httpd_filter_handlers( + &(dcfg->handlers_per_dir[MP_INPUT_FILTER_HANDLER]), + filter, parms->pool); + } + + return NULL; +} + +/* propogate filters insertion ala SetOutputFilter */ +MP_CMD_SRV_DECLARE(set_output_filter) +{ + MP_dSCFG(parms->server); + modperl_config_dir_t *dcfg = (modperl_config_dir_t *)mconfig; + char *filter; + + if (!MpSrvENABLE(scfg)) { + return apr_pstrcat(parms->pool, + "Perl is disabled for server ", + parms->server->server_hostname, NULL); + } + if (!MpSrvINPUT_FILTER(scfg)) { + return apr_pstrcat(parms->pool, + "PerlSetOutputFilter is disabled for server ", + parms->server->server_hostname, NULL); + } + + while (*arg && (filter = ap_getword(parms->pool, &arg, ';'))) { + modperl_cmd_push_httpd_filter_handlers( + &(dcfg->handlers_per_dir[MP_OUTPUT_FILTER_HANDLER]), + filter, parms->pool); + } + + return NULL; +} + + +#ifdef MP_COMPAT_1X + +MP_CMD_SRV_DECLARE_FLAG(taint_check) +{ + if (flag_on) { + return modperl_cmd_switches(parms, mconfig, "-T"); + } + + return NULL; +} + +MP_CMD_SRV_DECLARE_FLAG(warn) +{ + if (flag_on) { + return modperl_cmd_switches(parms, mconfig, "-w"); + } + + return NULL; +} + +MP_CMD_SRV_DECLARE_FLAG(send_header) +{ + char *arg = flag_on ? "+ParseHeaders" : "-ParseHeaders"; + return modperl_cmd_options(parms, mconfig, arg); +} + +MP_CMD_SRV_DECLARE_FLAG(setup_env) +{ + char *arg = flag_on ? "+SetupEnv" : "-SetupEnv"; + return modperl_cmd_options(parms, mconfig, arg); +} + +#endif /* MP_COMPAT_1X */ + +#ifdef USE_ITHREADS + +#define MP_CMD_INTERP_POOL_IMP(xitem) \ +const char *modperl_cmd_interp_##xitem(cmd_parms *parms, \ + void *mconfig, const char *arg) \ +{ \ + MP_dSCFG(parms->server); \ + int item = atoi(arg); \ + scfg->interp_pool_cfg->xitem = item; \ + MP_TRACE_d(MP_FUNC, "%s %d", parms->cmd->name, item); \ + return NULL; \ +} + +MP_CMD_INTERP_POOL_IMP(start); +MP_CMD_INTERP_POOL_IMP(max); +MP_CMD_INTERP_POOL_IMP(max_spare); +MP_CMD_INTERP_POOL_IMP(min_spare); +MP_CMD_INTERP_POOL_IMP(max_requests); + +#endif /* USE_ITHREADS */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_cmd.h b/2_0_13/src/modules/perl/modperl_cmd.h new file mode 100644 index 0000000..883259d --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_cmd.h
@@ -0,0 +1,150 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_CMD_H +#define MODPERL_CMD_H + +char *modperl_cmd_push_handlers(MpAV **handlers, const char *name, + apr_pool_t *p); + +char *modperl_cmd_push_filter_handlers(MpAV **handlers, + const char *name, + apr_pool_t *p); + +#define MP_CMD_SRV_DECLARE(item) \ + const char *modperl_cmd_##item(cmd_parms *parms, void *mconfig, \ + const char *arg) + +#define MP_CMD_SRV_DECLARE2(item) \ + const char *modperl_cmd_##item(cmd_parms *parms, void *mconfig, \ + const char *arg1, const char *arg2) + +#define MP_CMD_SRV_DECLARE_FLAG(item) \ + const char *modperl_cmd_##item(cmd_parms *parms, \ + void *mconfig, int flag_on) + +MP_CMD_SRV_DECLARE(trace); +MP_CMD_SRV_DECLARE(switches); +MP_CMD_SRV_DECLARE(modules); +MP_CMD_SRV_DECLARE(requires); +MP_CMD_SRV_DECLARE(config_requires); +MP_CMD_SRV_DECLARE(post_config_requires); +#if AP_SERVER_MAJORVERSION_NUMBER>2 || \ + (AP_SERVER_MAJORVERSION_NUMBER == 2 && AP_SERVER_MINORVERSION_NUMBER>=3) +MP_CMD_SRV_DECLARE2(authz_provider); +MP_CMD_SRV_DECLARE2(authn_provider); +#endif +MP_CMD_SRV_DECLARE2(set_var); +MP_CMD_SRV_DECLARE2(add_var); +MP_CMD_SRV_DECLARE2(set_env); +MP_CMD_SRV_DECLARE(pass_env); +MP_CMD_SRV_DECLARE(options); +MP_CMD_SRV_DECLARE(init_handlers); +MP_CMD_SRV_DECLARE(perl); +MP_CMD_SRV_DECLARE(perldo); +MP_CMD_SRV_DECLARE(pod); +MP_CMD_SRV_DECLARE(pod_cut); +MP_CMD_SRV_DECLARE(END); +MP_CMD_SRV_DECLARE(load_module); +MP_CMD_SRV_DECLARE(set_input_filter); +MP_CMD_SRV_DECLARE(set_output_filter); + +#ifdef MP_COMPAT_1X + +MP_CMD_SRV_DECLARE_FLAG(taint_check); +MP_CMD_SRV_DECLARE_FLAG(warn); +MP_CMD_SRV_DECLARE_FLAG(send_header); +MP_CMD_SRV_DECLARE_FLAG(setup_env); + +#endif /* MP_COMPAT_1X */ + +#ifdef USE_ITHREADS +MP_CMD_SRV_DECLARE(interp_start); +MP_CMD_SRV_DECLARE(interp_max); +MP_CMD_SRV_DECLARE(interp_max_spare); +MP_CMD_SRV_DECLARE(interp_min_spare); +MP_CMD_SRV_DECLARE(interp_max_requests); + +#endif /* USE_ITHREADS */ + +#define MP_CMD_SRV_RAW_ARGS(name, item, desc) \ + AP_INIT_RAW_ARGS( name, modperl_cmd_##item, NULL, \ + RSRC_CONF, desc ) + +#define MP_CMD_SRV_RAW_ARGS_ON_READ(name, item, desc) \ + AP_INIT_RAW_ARGS( name, modperl_cmd_##item, NULL, \ + RSRC_CONF|EXEC_ON_READ, desc ) + +#define MP_CMD_SRV_FLAG(name, item, desc) \ + AP_INIT_FLAG( name, modperl_cmd_##item, NULL, \ + RSRC_CONF, desc ) + +#define MP_CMD_SRV_TAKE1(name, item, desc) \ + AP_INIT_TAKE1( name, modperl_cmd_##item, NULL, \ + RSRC_CONF, desc ) + +#define MP_CMD_SRV_TAKE2(name, item, desc) \ + AP_INIT_TAKE2( name, modperl_cmd_##item, NULL, \ + RSRC_CONF, desc ) + +#define MP_CMD_SRV_ITERATE(name, item, desc) \ + AP_INIT_ITERATE( name, modperl_cmd_##item, NULL, \ + RSRC_CONF, desc ) + +#define MP_CMD_SRV_ITERATE_ON_READ(name, item, desc) \ + AP_INIT_ITERATE( name, modperl_cmd_##item, NULL, \ + RSRC_CONF|EXEC_ON_READ, desc ) + +#define MP_CMD_SRV_ITERATE2(name, item, desc) \ + AP_INIT_ITERATE2( name, modperl_cmd_##item, NULL, \ + RSRC_CONF, desc ) + +#define MP_CMD_DIR_TAKE1(name, item, desc) \ + AP_INIT_TAKE1( name, modperl_cmd_##item, NULL, \ + OR_ALL, desc ) + +#define MP_CMD_DIR_TAKE2(name, item, desc) \ + AP_INIT_TAKE2( name, modperl_cmd_##item, NULL, \ + OR_ALL, desc ) + +#define MP_CMD_DIR_ITERATE(name, item, desc) \ + AP_INIT_ITERATE( name, modperl_cmd_##item, NULL, \ + OR_ALL, desc ) + +#define MP_CMD_DIR_ITERATE2(name, item, desc) \ + AP_INIT_ITERATE2( name, modperl_cmd_##item, NULL, \ + OR_ALL, desc ) + +#define MP_CMD_DIR_FLAG(name, item, desc) \ + AP_INIT_FLAG( name, modperl_cmd_##item, NULL, \ + OR_ALL, desc ) + +#define MP_CMD_DIR_RAW_ARGS(name, item, desc) \ + AP_INIT_RAW_ARGS( name, modperl_cmd_##item, NULL, \ + OR_ALL, desc ) + +#define MP_CMD_DIR_RAW_ARGS_ON_READ(name, item, desc) \ + AP_INIT_RAW_ARGS( name, modperl_cmd_##item, NULL, \ + OR_ALL|EXEC_ON_READ, desc ) + +#endif /* MODPERL_CMD_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_common_debug.c b/2_0_13/src/modules/perl/modperl_common_debug.c new file mode 100644 index 0000000..4ae508e --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_common_debug.c
@@ -0,0 +1,26 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +/* This file must not contain any symbols from apache/mod_perl + * (apr and perl are OK) */ +#include "modperl_common_includes.h" + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_common_debug.h b/2_0_13/src/modules/perl/modperl_common_debug.h new file mode 100644 index 0000000..342986b --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_common_debug.h
@@ -0,0 +1,28 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_COMMON_DEBUG_H +#define MODPERL_COMMON_DEBUG_H + + +#endif /* MODPERL_COMMON_DEBUG_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_common_includes.h b/2_0_13/src/modules/perl/modperl_common_includes.h new file mode 100644 index 0000000..971b2bd --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_common_includes.h
@@ -0,0 +1,34 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_COMMON_INCLUDES_H +#define MODPERL_COMMON_INCLUDES_H + +/* header files which are independet of Apache/mod_perl */ + +#include "modperl_apr_includes.h" +#include "modperl_apr_compat.h" +#include "modperl_perl_includes.h" +#include "modperl_common_types.h" + +#endif /* MODPERL_COMMON_INCLUDES_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_common_log.c b/2_0_13/src/modules/perl/modperl_common_log.c new file mode 100644 index 0000000..3bdb359 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_common_log.c
@@ -0,0 +1,131 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "modperl_common_includes.h" +#include "modperl_common_log.h" +#include "modperl_debug.h" + +#undef getenv /* from XSUB.h */ + +static apr_file_t *logfile = NULL; + +#ifdef WIN32 +static unsigned long debug_level = 0; +#else +unsigned long MP_debug_level = 0; +#define debug_level MP_debug_level +#endif + +unsigned long modperl_debug_level(void) +{ + return debug_level; +} + +void modperl_trace_logfile_set(apr_file_t *logfile_new) +{ + logfile = logfile_new; +} + +void modperl_trace(const char *func, const char *fmt, ...) +{ + char vstr[8192]; + apr_size_t vstr_len = 0; + va_list args; + + if (!logfile) { + return; + } + + /* for more information on formatting codes see + http://apr.apache.org/docs/apr/1.4/group__apr__lib.html#gad2cd3594aeaafd45931d1034965f48c1 + */ + +#ifndef MP_IN_XS + /* PERL_GET_CONTEXT yields nonsense until the first interpreter is + * created. Hence the modperl_is_running() question. */ + if (modperl_threaded_mpm()) { + if (modperl_threads_started()) { + apr_os_thread_t tid = apr_os_thread_current(); + apr_file_printf(logfile, "[pid=%lu, tid=%pt, perl=%pp] ", + (unsigned long)getpid(), &tid, + modperl_is_running() ? PERL_GET_CONTEXT : NULL); + } + else { + apr_file_printf(logfile, "[pid=%lu, perl=%pp] ", + (unsigned long)getpid(), + modperl_is_running() ? PERL_GET_CONTEXT : NULL); + } + } + else { +#ifdef USE_ITHREADS + apr_file_printf(logfile, "[pid=%lu, perl=%pp] ", + (unsigned long)getpid(), + modperl_is_running() ? PERL_GET_CONTEXT : NULL); +#else + apr_file_printf(logfile, "[pid=%lu] ", (unsigned long)getpid()); +#endif + } +#endif + + if (func && *func) { + apr_file_printf(logfile, "%s: ", func); + } + + va_start(args, fmt); + vstr_len = apr_vsnprintf(vstr, sizeof(vstr), fmt, args); + va_end(args); + + apr_file_write(logfile, vstr, &vstr_len); + apr_file_printf(logfile, "\n"); +} + +void modperl_trace_level_set(apr_file_t *logfile, const char *level) +{ + if (!level) { + if (!(level = getenv("MOD_PERL_TRACE"))) { + return; + } + } + debug_level = 0x0; + + if (strcasecmp(level, "all") == 0) { + debug_level = 0xffffffff; + } + else if (apr_isalpha(level[0])) { + static char debopts[] = MP_TRACE_OPTS; + char *d; + + for (; *level && (d = strchr(debopts, *level)); level++) { + debug_level |= 1 << (d - debopts); + } + } + else { + debug_level = atoi(level); + } + + debug_level |= 0x80000000; + + modperl_trace_logfile_set(logfile); + + MP_TRACE_any_do(MP_TRACE_dump_flags()); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_common_log.h b/2_0_13/src/modules/perl/modperl_common_log.h new file mode 100644 index 0000000..46c9491 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_common_log.h
@@ -0,0 +1,67 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_COMMON_LOG_H +#define MODPERL_COMMON_LOG_H + +#define MP_STRINGIFY(n) MP_STRINGIFY_HELPER(n) +#define MP_STRINGIFY_HELPER(n) #n + +# if defined(__GNUC__) +# if (__GNUC__ > 2) +# define MP_FUNC __func__ +# else +# define MP_FUNC __FUNCTION__ +# endif +# else +# define MP_FUNC __FILE__ ":" MP_STRINGIFY(__LINE__) +# endif + +#include "modperl_apr_includes.h" +#include "apr_lib.h" +#include "modperl_trace.h" + +#ifdef _PTHREAD_H +#define modperl_thread_self() pthread_self() +#else +#define modperl_thread_self() 0 +#endif + +#define MP_TIDF \ +(unsigned long)modperl_thread_self() + +void modperl_trace_logfile_set(apr_file_t *logfile_new); + +unsigned long modperl_debug_level(void); + +#ifdef WIN32 +#define MP_debug_level modperl_debug_level() +#else +extern unsigned long MP_debug_level; +#endif + +void modperl_trace(const char *func, const char *fmt, ...); + +void modperl_trace_level_set(apr_file_t *logfile, const char *level); + +#endif /* MODPERL_COMMON_LOG_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_common_types.h b/2_0_13/src/modules/perl/modperl_common_types.h new file mode 100644 index 0000000..bb4eb6c --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_common_types.h
@@ -0,0 +1,35 @@ + +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_COMMON_TYPES_H +#define MODPERL_COMMON_TYPES_H + +/* subclass apr_uri_t */ +typedef struct { + apr_uri_t uri; + apr_pool_t *pool; + char *path_info; +} modperl_uri_t; + +#endif /* MODPERL_COMMON_TYPES_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_common_util.c b/2_0_13/src/modules/perl/modperl_common_util.c new file mode 100644 index 0000000..c5f285f --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_common_util.c
@@ -0,0 +1,161 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +/* This file must not contain any symbols from apache/mod_perl (apr + * and perl are OK). Also try to keep all the mod_perl specific + * functions (even if they don't contain symbols from apache/mod_perl + * on in modperl_util.c, unless we want them elsewhere. That is + * needed in order to keep the libraries used outside mod_perl + * small */ + +#include "modperl_common_util.h" + +/* Prefetch magic requires perl 5.8 */ +#if MP_PERL_VERSION_AT_LEAST(5, 8, 0) + +/* A custom MGVTBL with mg_copy slot filled in allows us to FETCH a + * table entry immediately during iteration. For multivalued keys + * this is essential in order to get the value corresponding to the + * current key, otherwise values() will always report the first value + * repeatedly. With this MGVTBL the keys() list always matches up + * with the values() list, even in the multivalued case. We only + * prefetch the value during iteration, because the prefetch adds + * overhead (an unnecessary FETCH call) to EXISTS and STORE + * operations. This way they are only "penalized" when the perl + * program is iterating via each(), which seems to be a reasonable + * tradeoff. + */ + +MP_INLINE static +int modperl_table_magic_copy(pTHX_ SV *sv, MAGIC *mg, SV *nsv, + const char *name, int namelen) +{ + /* prefetch the value whenever we're iterating over the keys */ + MAGIC *tie_magic = mg_find(nsv, PERL_MAGIC_tiedelem); + SV *obj = SvRV(tie_magic->mg_obj); + if (SvCUR(obj)) { + SvGETMAGIC(nsv); + } + return 0; +} + + +static const MGVTBL modperl_table_magic_prefetch = {0, 0, 0, 0, 0, + modperl_table_magic_copy}; +#endif /* End of prefetch magic */ + +MP_INLINE SV *modperl_hash_tie(pTHX_ + const char *classname, + SV *tsv, void *p) +{ + SV *hv = (SV*)newHV(); + SV *rsv = sv_newmortal(); + + sv_setref_pv(rsv, classname, p); + + /* Prefetch magic requires perl 5.8 */ +#if MP_PERL_VERSION_AT_LEAST(5, 8, 0) + + sv_magicext(hv, NULL, PERL_MAGIC_ext, NULL, (char *)NULL, -1); + SvMAGIC(hv)->mg_virtual = (MGVTBL *)&modperl_table_magic_prefetch; + SvMAGIC(hv)->mg_flags |= MGf_COPY; + +#endif /* End of prefetch magic */ + + sv_magic(hv, rsv, PERL_MAGIC_tied, (char *)NULL, 0); + + return SvREFCNT_inc(sv_bless(sv_2mortal(newRV_noinc(hv)), + gv_stashpv(classname, TRUE))); +} + +MP_INLINE SV *modperl_hash_tied_object_rv(pTHX_ + const char *classname, + SV *tsv) +{ + if (sv_derived_from(tsv, classname)) { + if (SVt_PVHV == SvTYPE(SvRV(tsv))) { + SV *hv = SvRV(tsv); + MAGIC *mg; + + if (SvMAGICAL(hv)) { + if ((mg = mg_find(hv, PERL_MAGIC_tied))) { + return mg->mg_obj; + } + else { + Perl_warn(aTHX_ "Not a tied hash: (magic=%c)", mg->mg_type); + } + } + else { + Perl_warn(aTHX_ "SV is not tied"); + } + } + else { + return tsv; + } + } + else { + Perl_croak(aTHX_ + "argument is not a blessed reference " + "(expecting an %s derived object)", classname); + } + + return &PL_sv_undef; +} + +MP_INLINE void *modperl_hash_tied_object(pTHX_ + const char *classname, + SV *tsv) +{ + SV *rv = modperl_hash_tied_object_rv(aTHX_ classname, tsv); + if (SvROK(rv)) { + return INT2PTR(void *, SvIVX(SvRV(rv))); + } + else { + return NULL; + } +} + +/* same as Symbol::gensym() */ +SV *modperl_perl_gensym(pTHX_ char *pack) +{ + GV *gv = newGVgen(pack); + SV *rv = newRV((SV*)gv); + (void)hv_delete(gv_stashpv(pack, TRUE), + GvNAME(gv), GvNAMELEN(gv), G_DISCARD); + return rv; +} + +/* XXX: sv_setref_uv does not exist in 5.6.x */ +MP_INLINE SV *modperl_perl_sv_setref_uv(pTHX_ SV *rv, + const char *classname, UV uv) +{ + sv_setuv(newSVrv(rv, classname), uv); + return rv; +} + +MP_INLINE modperl_uri_t *modperl_uri_new(apr_pool_t *p) +{ + modperl_uri_t *uri = (modperl_uri_t *)apr_pcalloc(p, sizeof(*uri)); + uri->pool = p; + return uri; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_common_util.h b/2_0_13/src/modules/perl/modperl_common_util.h new file mode 100644 index 0000000..55f1600 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_common_util.h
@@ -0,0 +1,119 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "modperl_common_includes.h" + +#ifndef MODPERL_COMMON_UTIL_H +#define MODPERL_COMMON_UTIL_H + +#ifdef MP_DEBUG +#define MP_INLINE +#else +#define MP_INLINE APR_INLINE +#endif + +#ifdef CYGWIN +#define MP_STATIC +#else +#define MP_STATIC static +#endif + +#ifdef WIN32 +# define MP_FUNC_T(name) (_stdcall *name) +# define MP_FUNC_NONSTD_T(name) (*name) +/* XXX: not all functions get inlined + * so its unclear what to and not to include in the .def files + */ +# undef MP_INLINE +# define MP_INLINE +#else +# define MP_FUNC_T(name) (*name) +# define MP_FUNC_NONSTD_T(name) (*name) +#endif + + +#define MP_SSTRLEN(string) (sizeof(string)-1) + +#ifndef strcaseEQ +# define strcaseEQ(s1,s2) (!strcasecmp(s1,s2)) +#endif +#ifndef strncaseEQ +# define strncaseEQ(s1,s2,l) (!strncasecmp(s1,s2,l)) +#endif + +#ifndef SvCLASS +#define SvCLASS(o) HvNAME(SvSTASH(SvRV(o))) +#endif + +#define SvObjIV(o) SvIV((SV*)SvRV(o)) +#define MgObjIV(m) SvIV((SV*)SvRV(m->mg_obj)) + +#define MP_SvGROW(sv, len) \ + (void)SvUPGRADE(sv, SVt_PV); \ + SvGROW(sv, len+1) + +#define MP_SvCUR_set(sv, len) \ + SvCUR_set(sv, len); \ + *SvEND(sv) = '\0'; \ + SvPOK_only(sv) + +#define MP_magical_untie(sv, mg_flags) \ + mg_flags = SvMAGICAL((SV*)sv); \ + SvMAGICAL_off((SV*)sv) + +#define MP_magical_tie(sv, mg_flags) \ + SvFLAGS((SV*)sv) |= mg_flags + +/* some wrapper macros to detect perl versions + * and prevent code clutter */ +#define MP_PERL_VERSION_AT_LEAST(r, v, s) \ + (PERL_REVISION == r && \ + ((PERL_VERSION == v && PERL_SUBVERSION > s-1) || PERL_VERSION > v)) + +#define MP_PERL_VERSION_AT_MOST(r, v, s) \ + (PERL_REVISION == r && \ + (PERL_VERSION < v || (PERL_VERSION == v && PERL_SUBVERSION < s+1))) + +#define MP_PERL_VERSION(r, v, s) \ + (PERL_REVISION == r && PERL_VERSION == v && PERL_SUBVERSION == s) + +/* tie %hash */ +MP_INLINE SV *modperl_hash_tie(pTHX_ const char *classname, + SV *tsv, void *p); + +/* tied %hash */ +MP_INLINE SV *modperl_hash_tied_object_rv(pTHX_ + const char *classname, + SV *tsv); +/* tied %hash */ +MP_INLINE void *modperl_hash_tied_object(pTHX_ const char *classname, + SV *tsv); + +MP_INLINE SV *modperl_perl_sv_setref_uv(pTHX_ SV *rv, + const char *classname, UV uv); + +MP_INLINE modperl_uri_t *modperl_uri_new(apr_pool_t *p); + +SV *modperl_perl_gensym(pTHX_ char *pack); + +#endif /* MODPERL_COMMON_UTIL_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_config.c b/2_0_13/src/modules/perl/modperl_config.c new file mode 100644 index 0000000..6603065 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_config.c
@@ -0,0 +1,680 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +void *modperl_config_dir_create(apr_pool_t *p, char *dir) +{ + modperl_config_dir_t *dcfg = modperl_config_dir_new(p); + + dcfg->location = dir; + + MP_TRACE_d(MP_FUNC, "dir %s", dir); + + return dcfg; +} + +#define merge_item(item) \ + mrg->item = add->item ? add->item : base->item + +static apr_table_t *modperl_table_overlap(apr_pool_t *p, + apr_table_t *base, + apr_table_t *add) +{ + /* take the base (parent) values, and override with add (child) values, + * generating a new table. entries in add but not in base will be + * added to the new table. all using core apr table routines. + * + * note that this is equivalent to apr_table_overlap except a new + * table is generated, which is required (otherwise we would clobber + * the existing parent or child configurations) + * + * note that this is *not* equivalent to apr_table_overlap, although + * I think it should be, because apr_table_overlap seems to clear + * its first argument when the tables have different pools. I think + * this is wrong -- rici + */ + apr_table_t *merge = apr_table_overlay(p, base, add); + + /* compress will squash each key to the last value in the table. this + * is acceptable for all tables that expect only a single value per key + * such as PerlPassEnv and PerlSetEnv. PerlSetVar/PerlAddVar get their + * own, non-standard, merge routines in merge_table_config_vars. + */ + apr_table_compress(merge, APR_OVERLAP_TABLES_SET); + + return merge; +} + +#define merge_table_overlap_item(item) \ + mrg->item = modperl_table_overlap(p, base->item, add->item) + +static apr_table_t *merge_config_add_vars(apr_pool_t *p, + const apr_table_t *base, + const apr_table_t *unset, + const apr_table_t *add) +{ + apr_table_t *temp = apr_table_copy(p, base); + + const apr_array_header_t *arr; + apr_table_entry_t *entries; + int i; + + /* for each key in unset do apr_table_unset(temp, key); */ + arr = apr_table_elts(unset); + entries = (apr_table_entry_t *)arr->elts; + + /* hopefully this is faster than using apr_table_do */ + for (i = 0; i < arr->nelts; i++) { + if (entries[i].key) { + apr_table_unset(temp, entries[i].key); + } + } + + return apr_table_overlay(p, temp, add); +} + +#define merge_handlers(merge_flag, array) \ + if (merge_flag(mrg)) { \ + mrg->array = modperl_handler_array_merge(p, \ + base->array, \ + add->array); \ + } \ + else { \ + merge_item(array); \ + } + +void *modperl_config_dir_merge(apr_pool_t *p, void *basev, void *addv) +{ + int i; + modperl_config_dir_t + *base = (modperl_config_dir_t *)basev, + *add = (modperl_config_dir_t *)addv, + *mrg = modperl_config_dir_new(p); + + MP_TRACE_d(MP_FUNC, "basev==0x%lx, addv==0x%lx, mrg==0x%lx", + (unsigned long)basev, (unsigned long)addv, + (unsigned long)mrg); + + mrg->flags = modperl_options_merge(p, base->flags, add->flags); + + merge_item(location); + + merge_table_overlap_item(SetEnv); + + /* this is where we merge PerlSetVar and PerlAddVar together */ + mrg->configvars = merge_config_add_vars(p, + base->configvars, + add->setvars, add->configvars); + merge_table_overlap_item(setvars); + + /* XXX: check if Perl*Handler is disabled */ + for (i=0; i < MP_HANDLER_NUM_PER_DIR; i++) { + merge_handlers(MpDirMERGE_HANDLERS, handlers_per_dir[i]); + } + + return mrg; +} + +modperl_config_req_t *modperl_config_req_new(request_rec *r) +{ + modperl_config_req_t *rcfg = + (modperl_config_req_t *)apr_pcalloc(r->pool, sizeof(*rcfg)); + + MP_TRACE_d(MP_FUNC, "0x%lx", (unsigned long)rcfg); + + return rcfg; +} + +modperl_config_con_t *modperl_config_con_new(conn_rec *c) +{ + modperl_config_con_t *ccfg = + (modperl_config_con_t *)apr_pcalloc(c->pool, sizeof(*ccfg)); + + MP_TRACE_d(MP_FUNC, "0x%lx", (unsigned long)ccfg); + + return ccfg; +} + +modperl_config_srv_t *modperl_config_srv_new(apr_pool_t *p, server_rec *s) +{ + modperl_config_srv_t *scfg = (modperl_config_srv_t *) + apr_pcalloc(p, sizeof(*scfg)); + + scfg->flags = modperl_options_new(p, MpSrvType); + MpSrvENABLE_On(scfg); /* mod_perl enabled by default */ + MpSrvHOOKS_ALL_On(scfg); /* all hooks enabled by default */ + + scfg->PerlModule = apr_array_make(p, 2, sizeof(char *)); + scfg->PerlRequire = apr_array_make(p, 2, sizeof(char *)); + scfg->PerlPostConfigRequire = + apr_array_make(p, 1, sizeof(modperl_require_file_t *)); + + /* 2 arguments + NULL terminator */ + scfg->argv = apr_array_make(p, 3, sizeof(char *)); + + scfg->setvars = apr_table_make(p, 2); + scfg->configvars = apr_table_make(p, 2); + + scfg->PassEnv = apr_table_make(p, 2); + scfg->SetEnv = apr_table_make(p, 2); + +#ifdef MP_USE_GTOP + scfg->gtop = modperl_gtop_new(p); +#endif + + /* make sure httpd's argv[0] is the first argument so $0 is + * correctly connected to the real thing */ + modperl_config_srv_argv_push(s->process->argv[0]); + + MP_TRACE_d(MP_FUNC, "new scfg: 0x%lx", (unsigned long)scfg); + + return scfg; +} + +modperl_config_dir_t *modperl_config_dir_new(apr_pool_t *p) +{ + modperl_config_dir_t *dcfg = (modperl_config_dir_t *) + apr_pcalloc(p, sizeof(modperl_config_dir_t)); + + dcfg->flags = modperl_options_new(p, MpDirType); + + dcfg->setvars = apr_table_make(p, 2); + dcfg->configvars = apr_table_make(p, 2); + + dcfg->SetEnv = apr_table_make(p, 2); + + MP_TRACE_d(MP_FUNC, "new dcfg: 0x%lx", (unsigned long)dcfg); + + return dcfg; +} + +#ifdef MP_TRACE +static void dump_argv(modperl_config_srv_t *scfg) +{ + int i; + char **argv = (char **)scfg->argv->elts; + modperl_trace(NULL, "modperl_config_srv_argv_init =>"); + for (i=0; i<scfg->argv->nelts; i++) { + modperl_trace(NULL, " %d = %s", i, argv[i]); + } +} +#endif + +char **modperl_config_srv_argv_init(modperl_config_srv_t *scfg, int *argc) +{ + modperl_config_srv_argv_push("-e;0"); + + *argc = scfg->argv->nelts; + + /* perl_parse() expects a NULL terminated argv array */ + modperl_config_srv_argv_push(NULL); + + MP_TRACE_g_do(dump_argv(scfg)); + + return (char **)scfg->argv->elts; +} + +void *modperl_config_srv_create(apr_pool_t *p, server_rec *s) +{ + modperl_config_srv_t *scfg = modperl_config_srv_new(p, s); + + if (!s->is_virtual) { + + /* give a chance to MOD_PERL_TRACE env var to set + * PerlTrace. This place is the earliest point in mod_perl + * configuration parsing, when we have the server object + */ + modperl_trace_level_set_apache(s, NULL); + + /* Must store the global server record as early as possible, + * because if mod_perl happens to be started from within a + * vhost (e.g., PerlLoadModule) the base server record won't + * be available to vhost and things will blow up + */ + modperl_init_globals(s, p); + } + + MP_TRACE_d(MP_FUNC, "p=0x%lx, s=0x%lx, virtual=%d", + p, s, s->is_virtual); + +#ifdef USE_ITHREADS + + scfg->interp_pool_cfg = + (modperl_tipool_config_t *) + apr_pcalloc(p, sizeof(*scfg->interp_pool_cfg)); + + /* XXX: determine reasonable defaults */ + scfg->interp_pool_cfg->start = 3; + scfg->interp_pool_cfg->max_spare = 3; + scfg->interp_pool_cfg->min_spare = 3; + scfg->interp_pool_cfg->max = 5; + scfg->interp_pool_cfg->max_requests = 2000; +#endif /* USE_ITHREADS */ + + scfg->server = s; + + return scfg; +} + +/* XXX: this is not complete */ +void *modperl_config_srv_merge(apr_pool_t *p, void *basev, void *addv) +{ + int i; + modperl_config_srv_t + *base = (modperl_config_srv_t *)basev, + *add = (modperl_config_srv_t *)addv, + *mrg = modperl_config_srv_new(p, add->server); + + MP_TRACE_d(MP_FUNC, "basev==0x%lx, addv==0x%lx, mrg==0x%lx", + (unsigned long)basev, (unsigned long)addv, + (unsigned long)mrg); + + merge_item(modules); + merge_item(PerlModule); + merge_item(PerlRequire); + merge_item(PerlPostConfigRequire); + + merge_table_overlap_item(SetEnv); + merge_table_overlap_item(PassEnv); + + /* this is where we merge PerlSetVar and PerlAddVar together */ + mrg->configvars = merge_config_add_vars(p, + base->configvars, + add->setvars, add->configvars); + merge_table_overlap_item(setvars); + + merge_item(server); + +#ifdef USE_ITHREADS + merge_item(interp_pool_cfg); +#else + merge_item(perl); +#endif + + if (MpSrvINHERIT_SWITCHES(add)) { + /* only inherit base PerlSwitches if explicitly told to */ + mrg->argv = base->argv; + } + else { + mrg->argv = add->argv; + } + + mrg->flags = modperl_options_merge(p, base->flags, add->flags); + + /* XXX: check if Perl*Handler is disabled */ + for (i=0; i < MP_HANDLER_NUM_PER_SRV; i++) { + merge_handlers(MpSrvMERGE_HANDLERS, handlers_per_srv[i]); + } + for (i=0; i < MP_HANDLER_NUM_FILES; i++) { + merge_handlers(MpSrvMERGE_HANDLERS, handlers_files[i]); + } + for (i=0; i < MP_HANDLER_NUM_PROCESS; i++) { + merge_handlers(MpSrvMERGE_HANDLERS, handlers_process[i]); + } + for (i=0; i < MP_HANDLER_NUM_PRE_CONNECTION; i++) { + merge_handlers(MpSrvMERGE_HANDLERS, handlers_pre_connection[i]); + } + for (i=0; i < MP_HANDLER_NUM_CONNECTION; i++) { + merge_handlers(MpSrvMERGE_HANDLERS, handlers_connection[i]); + } + + if (modperl_is_running()) { + if (modperl_init_vhost(mrg->server, p, NULL) != OK) { + exit(1); /*XXX*/ + } + } + +#ifdef USE_ITHREADS + merge_item(mip); +#endif + + return mrg; +} + +/* any per-request cleanup goes here */ + +apr_status_t modperl_config_request_cleanup(pTHX_ request_rec *r) +{ + apr_status_t retval; + MP_dRCFG; + + retval = modperl_callback_per_dir(MP_CLEANUP_HANDLER, r, MP_HOOK_RUN_ALL); + + /* undo changes to %ENV caused by +SetupEnv, perl-script, or + * $r->subprocess_env, so the values won't persist */ + if (MpReqSETUP_ENV(rcfg)) { + modperl_env_request_unpopulate(aTHX_ r); + } + + return retval; +} + +apr_status_t modperl_config_req_cleanup(void *data) +{ + request_rec *r = (request_rec *)data; + apr_status_t rc; + MP_dINTERPa(r, NULL, NULL); + + rc = modperl_config_request_cleanup(aTHX_ r); + + MP_INTERP_PUTBACK(interp, aTHX); + + return rc; +} + +void *modperl_get_perl_module_config(ap_conf_vector_t *cv) +{ + return ap_get_module_config(cv, &perl_module); +} + +void modperl_set_perl_module_config(ap_conf_vector_t *cv, void *cfg) +{ + ap_set_module_config(cv, &perl_module, cfg); +} + +int modperl_config_apply_PerlModule(server_rec *s, + modperl_config_srv_t *scfg, + PerlInterpreter *perl, apr_pool_t *p) +{ + char **entries; + int i; + dTHXa(perl); + + entries = (char **)scfg->PerlModule->elts; + for (i = 0; i < scfg->PerlModule->nelts; i++){ + if (modperl_require_module(aTHX_ entries[i], TRUE)){ + MP_TRACE_d(MP_FUNC, "loaded Perl module %s for server %s", + entries[i], modperl_server_desc(s,p)); + } + else { + ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, + "Can't load Perl module %s for server %s, exiting...", + entries[i], modperl_server_desc(s,p)); + return FALSE; + } + } + + return TRUE; +} + +int modperl_config_apply_PerlRequire(server_rec *s, + modperl_config_srv_t *scfg, + PerlInterpreter *perl, apr_pool_t *p) +{ + char **entries; + int i; + dTHXa(perl); + + entries = (char **)scfg->PerlRequire->elts; + for (i = 0; i < scfg->PerlRequire->nelts; i++){ + if (modperl_require_file(aTHX_ entries[i], TRUE)){ + MP_TRACE_d(MP_FUNC, "loaded Perl file: %s for server %s", + entries[i], modperl_server_desc(s,p)); + } + else { + ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, + "Can't load Perl file: %s for server %s, exiting...", + entries[i], modperl_server_desc(s,p)); + return FALSE; + } + } + + return TRUE; +} + +int modperl_config_apply_PerlPostConfigRequire(server_rec *s, + modperl_config_srv_t *scfg, + apr_pool_t *p) +{ + modperl_require_file_t **requires; + int i; + MP_PERL_CONTEXT_DECLARE; + + requires = (modperl_require_file_t **)scfg->PerlPostConfigRequire->elts; + for (i = 0; i < scfg->PerlPostConfigRequire->nelts; i++){ + int retval; + + MP_PERL_CONTEXT_STORE_OVERRIDE(scfg->mip->parent->perl); + retval = modperl_require_file(aTHX_ requires[i]->file, TRUE); + modperl_env_sync_srv_env_hash2table(aTHX_ p, scfg); + modperl_env_sync_dir_env_hash2table(aTHX_ p, requires[i]->dcfg); + MP_PERL_CONTEXT_RESTORE; + + if (retval) { + MP_TRACE_d(MP_FUNC, "loaded Perl file: %s for server %s", + requires[i]->file, modperl_server_desc(s, p)); + } + else { + ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, + "Can't load Perl file: %s for server %s, exiting...", + requires[i]->file, modperl_server_desc(s, p)); + + return FALSE; + } + } + + return TRUE; +} + +typedef struct { + AV *av; + I32 ix; + PerlInterpreter *perl; +} svav_param_t; + +static +#if AP_MODULE_MAGIC_AT_LEAST(20110329,0) +apr_status_t +#else +void * +#endif +svav_getstr(void *buf, size_t bufsiz, void *param) +{ + svav_param_t *svav_param = (svav_param_t *)param; + dTHXa(svav_param->perl); + AV *av = svav_param->av; + SV *sv; + STRLEN n_a; + + if (svav_param->ix > AvFILL(av)) { +#if AP_MODULE_MAGIC_AT_LEAST(20110329,0) + return APR_EOF; +#else + return NULL; +#endif + } + + sv = AvARRAY(av)[svav_param->ix++]; + SvPV_force(sv, n_a); + + apr_cpystrn(buf, SvPVX(sv), bufsiz); + +#if AP_MODULE_MAGIC_AT_LEAST(20110329,0) + return APR_SUCCESS; +#else + return buf; +#endif +} + +const char *modperl_config_insert(pTHX_ server_rec *s, + apr_pool_t *p, + apr_pool_t *ptmp, + int override, + char *path, + int override_options, + ap_conf_vector_t *conf, + SV *lines) +{ + const char *errmsg; + cmd_parms parms; + svav_param_t svav_parms; + ap_directive_t *conftree = NULL; + + memset(&parms, '\0', sizeof(parms)); + + parms.limited = -1; + parms.server = s; + parms.override = override; + parms.path = apr_pstrdup(p, path); + parms.pool = p; +#ifdef MP_HTTPD_HAS_OVERRIDE_OPTS + if (override_options == MP_HTTPD_OVERRIDE_OPTS_UNSET) { + parms.override_opts = MP_HTTPD_OVERRIDE_OPTS_DEFAULT; + } + else { + parms.override_opts = override_options; + } +#endif + + if (ptmp) { + parms.temp_pool = ptmp; + } + else { + apr_pool_create(&parms.temp_pool, p); + } + + if (!(SvROK(lines) && (SvTYPE(SvRV(lines)) == SVt_PVAV))) { + return "not an array reference"; + } + + svav_parms.av = (AV*)SvRV(lines); + svav_parms.ix = 0; +#ifdef USE_ITHREADS + svav_parms.perl = aTHX; +#endif + + parms.config_file = ap_pcfg_open_custom(p, "mod_perl", + &svav_parms, NULL, + svav_getstr, NULL); + + errmsg = ap_build_config(&parms, p, parms.temp_pool, &conftree); + + if (!errmsg) { + errmsg = ap_walk_config(conftree, &parms, conf); + } + + ap_cfg_closefile(parms.config_file); + + if (ptmp != parms.temp_pool) { + apr_pool_destroy(parms.temp_pool); + } + + return errmsg; +} + +const char *modperl_config_insert_parms(pTHX_ cmd_parms *parms, + SV *lines) +{ + return modperl_config_insert(aTHX_ + parms->server, + parms->pool, + parms->temp_pool, + parms->override, + parms->path, +#ifdef MP_HTTPD_HAS_OVERRIDE_OPTS + parms->override_opts, +#else + MP_HTTPD_OVERRIDE_OPTS_UNSET, +#endif + parms->context, + lines); +} + + +const char *modperl_config_insert_server(pTHX_ server_rec *s, SV *lines) +{ + int override = (RSRC_CONF | OR_ALL) & ~(OR_AUTHCFG | OR_LIMIT); + apr_pool_t *p = s->process->pconf; + + return modperl_config_insert(aTHX_ s, p, NULL, override, NULL, + MP_HTTPD_OVERRIDE_OPTS_UNSET, + s->lookup_defaults, lines); +} + +const char *modperl_config_insert_request(pTHX_ + request_rec *r, + SV *lines, + int override, + char *path, + int override_options) +{ + const char *errmsg; + ap_conf_vector_t *dconf = ap_create_per_dir_config(r->pool); + + if (!path) { + /* pass a non-NULL path if nothing else given and for compatibility */ + path = "/"; + } + + errmsg = modperl_config_insert(aTHX_ + r->server, r->pool, r->pool, + override, path, override_options, + dconf, lines); + + if (errmsg) { + return errmsg; + } + + r->per_dir_config = + ap_merge_per_dir_configs(r->pool, + r->per_dir_config, + dconf); + + return NULL; +} + + +/* if r!=NULL check for dir PerlOptions, otherwise check for server + * PerlOptions, (s must be always set) + */ +int modperl_config_is_perl_option_enabled(pTHX_ request_rec *r, + server_rec *s, const char *name) +{ + U32 flag; + + /* XXX: should we test whether perl is disabled for this server? */ + /* if (!MpSrvENABLE(scfg)) { */ + /* return 0; */ + /* } */ + + if (r) { + if ((flag = modperl_flags_lookup_dir(name)) != -1) { + MP_dDCFG; + return MpDirFLAGS(dcfg) & flag ? 1 : 0; + } + else { + Perl_croak(aTHX_ "PerlOptions %s is not a directory option", name); + } + } + else { + if ((flag = modperl_flags_lookup_srv(name)) != -1) { + MP_dSCFG(s); + return MpSrvFLAGS(scfg) & flag ? 1 : 0; + } + else { + Perl_croak(aTHX_ "PerlOptions %s is not a server option", name); + } + } + +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_config.h b/2_0_13/src/modules/perl/modperl_config.h new file mode 100644 index 0000000..9139e20 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_config.h
@@ -0,0 +1,165 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_CONFIG_H +#define MODPERL_CONFIG_H + +void *modperl_config_dir_create(apr_pool_t *p, char *dir); + +void *modperl_config_dir_merge(apr_pool_t *p, void *basev, void *addv); + +modperl_config_srv_t *modperl_config_srv_new(apr_pool_t *p, server_rec *s); + +modperl_config_dir_t *modperl_config_dir_new(apr_pool_t *p); + +modperl_config_req_t *modperl_config_req_new(request_rec *r); + +modperl_config_con_t *modperl_config_con_new(conn_rec *c); + +void *modperl_config_srv_create(apr_pool_t *p, server_rec *s); + +void *modperl_config_srv_merge(apr_pool_t *p, void *basev, void *addv); + +char **modperl_config_srv_argv_init(modperl_config_srv_t *scfg, int *argc); + +#define modperl_config_srv_argv_push(arg) \ + *(const char **)apr_array_push(scfg->argv) = (arg) + +apr_status_t modperl_config_request_cleanup(pTHX_ request_rec *r); + +apr_status_t modperl_config_req_cleanup(void *data); + +/* use a subpool here to ensure that a PerlCleanupHandler is run before + * any other pool cleanup - suppools are destroyed first. Particularly a + * PerlCleanupHandler must run before request pnotes are dropped. + */ +#define modperl_config_req_cleanup_register(r, rcfg) \ + if (r && !MpReqCLEANUP_REGISTERED(rcfg)) { \ + apr_pool_t *p; \ + apr_pool_create(&p, (r)->pool); \ + apr_pool_cleanup_register(p, \ + (void*)(r), \ + modperl_config_req_cleanup, \ + apr_pool_cleanup_null); \ + MpReqCLEANUP_REGISTERED_On(rcfg); \ + } + +void *modperl_get_perl_module_config(ap_conf_vector_t *cv); +void modperl_set_perl_module_config(ap_conf_vector_t *cv, void *cfg); + +#if defined(MP_IN_XS) && defined(WIN32) +# define modperl_get_module_config(v) \ + modperl_get_perl_module_config((v)) + +# define modperl_set_module_config(v, c) \ + modperl_set_perl_module_config((v), (c)) +#else +# define modperl_get_module_config(v) \ + ap_get_module_config((v), &perl_module) + +# define modperl_set_module_config(v, c) \ + ap_set_module_config((v), &perl_module, (c)) +#endif + +#define modperl_config_req_init(r, rcfg) \ + if (!(rcfg)) { \ + (rcfg) = modperl_config_req_new(r); \ + modperl_set_module_config((r)->request_config, (rcfg)); \ + } + +#define modperl_config_req_get(r) \ + (r ? (modperl_config_req_t *) \ + modperl_get_module_config((r)->request_config) : NULL) + +#define MP_dRCFG \ + modperl_config_req_t *rcfg = modperl_config_req_get(r) + +#define modperl_config_con_init(c, ccfg) \ + if (!ccfg) { \ + ccfg = modperl_config_con_new(c); \ + modperl_set_module_config((c)->conn_config, (ccfg)); \ + } + +#define modperl_config_con_get(c) \ + (c ? (modperl_config_con_t *) \ + modperl_get_module_config((c)->conn_config) : NULL) + +#define MP_dCCFG \ + modperl_config_con_t *ccfg = modperl_config_con_get(c) + +#define modperl_config_dir_get(r) \ + (r ? (modperl_config_dir_t *) \ + modperl_get_module_config((r)->per_dir_config) : NULL) + +#define modperl_config_dir_get_defaults(s) \ + (modperl_config_dir_t *) \ + modperl_get_module_config((s)->lookup_defaults) + +#define MP_dDCFG \ + modperl_config_dir_t *dcfg = modperl_config_dir_get(r) + +#define modperl_config_srv_get(s) \ + (modperl_config_srv_t *) \ + modperl_get_module_config(s->module_config) + +#define MP_dSCFG(s) \ + modperl_config_srv_t *scfg = modperl_config_srv_get(s) + +int modperl_config_apply_PerlModule(server_rec *s, + modperl_config_srv_t *scfg, + PerlInterpreter *perl, apr_pool_t *p); + +int modperl_config_apply_PerlRequire(server_rec *s, + modperl_config_srv_t *scfg, + PerlInterpreter *perl, apr_pool_t *p); + +int modperl_config_apply_PerlPostConfigRequire(server_rec *s, + modperl_config_srv_t *scfg, + apr_pool_t *p); + +const char *modperl_config_insert(pTHX_ server_rec *s, + apr_pool_t *p, + apr_pool_t *ptmp, + int override, + char *path, + int override_options, + ap_conf_vector_t *conf, + SV *lines); + +const char *modperl_config_insert_parms(pTHX_ cmd_parms *parms, + SV *lines); + +const char *modperl_config_insert_server(pTHX_ server_rec *s, SV *lines); + +const char *modperl_config_insert_request(pTHX_ + request_rec *r, + SV *lines, + int override, + char *path, + int override_options); + +int modperl_config_is_perl_option_enabled(pTHX_ request_rec *r, + server_rec *s, const char *name); + + +#endif /* MODPERL_CONFIG_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_const.c b/2_0_13/src/modules/perl/modperl_const.c new file mode 100644 index 0000000..209226b --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_const.c
@@ -0,0 +1,140 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" +#include "modperl_const.h" + +typedef SV *(*constants_lookup)(pTHX_ const char *); +typedef const char ** (*constants_group_lookup)(const char *); + +static void new_constsub(pTHX_ constants_lookup lookup, + HV *caller_stash, HV *stash, + const char *name) +{ + int name_len = strlen(name); + GV **gvp = (GV **)hv_fetch(stash, name, name_len, TRUE); + + /* dont redefine */ + if (!isGV(*gvp) || !GvCV(*gvp)) { + SV *val = (*lookup)(aTHX_ name); + +#if 0 + Perl_warn(aTHX_ "newCONSTSUB(%s, %s, %s)\n", + HvNAME(stash), name, SvPV_nolen(val)); +#endif + + newCONSTSUB(stash, (char *)name, val); +#ifdef GvSHARED + GvSHARED_on(*gvp); +#endif + } + + /* export into callers namespace */ + if (caller_stash) { + GV *alias = *(GV **)hv_fetch(caller_stash, + (char *)name, name_len, TRUE); + + if (!isGV(alias)) { + gv_init(alias, caller_stash, name, name_len, TRUE); + } + +#ifdef MUTABLE_CV + GvCV_set(alias, MUTABLE_CV(SvREFCNT_inc(GvCV(*gvp)))); +#else + GvCV_set(alias, (CV*)(SvREFCNT_inc(GvCV(*gvp)))); +#endif + } +} + +int modperl_const_compile(pTHX_ const char *classname, + const char *arg, + const char *name) +{ + HV *stash = gv_stashpv(classname, TRUE); + HV *caller_stash = (HV *)NULL; + constants_lookup lookup; + constants_group_lookup group_lookup; + + if (strnEQ(classname, "APR", 3)) { + lookup = modperl_constants_lookup_apr_const; + group_lookup = modperl_constants_group_lookup_apr_const; + } + else if (strnEQ(classname, "Apache2", 7)) { + lookup = modperl_constants_lookup_apache2_const; + group_lookup = modperl_constants_group_lookup_apache2_const; + } + else { + lookup = modperl_constants_lookup_modperl; + group_lookup = modperl_constants_group_lookup_modperl; + } + + if (*arg != '-') { + /* only export into callers namespace without -compile arg */ + caller_stash = gv_stashpv(arg, TRUE); + } + + if (*name == ':') { + int i; + const char **group; + + name++; + + group = (*group_lookup)(name); + + for (i=0; group[i]; i++) { + new_constsub(aTHX_ lookup, caller_stash, stash, group[i]); + } + } + else { + if (*name == '&') { + name++; + } + new_constsub(aTHX_ lookup, caller_stash, stash, name); + } + + return 1; +} + +XS(XS_modperl_const_compile) +{ + I32 i; + STRLEN n_a; + char *stashname = HvNAME(GvSTASH(CvGV(cv))); + const char *classname, *arg; + dXSARGS; + + if (items < 2) { + Perl_croak(aTHX_ "Usage: %s->compile(...)", stashname); + } + + classname = *(stashname + 1) == 'P' + ? "APR::Const" + : (*stashname == 'A' ? "Apache2::Const" : "ModPerl"); + arg = SvPV(ST(1),n_a); + + for (i=2; i<items; i++) { + (void)modperl_const_compile(aTHX_ classname, arg, SvPV(ST(i), n_a)); + } + + XSRETURN_EMPTY; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_const.h b/2_0_13/src/modules/perl/modperl_const.h new file mode 100644 index 0000000..f6ef50c --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_const.h
@@ -0,0 +1,40 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_CONST_H +#define MODPERL_CONST_H + +#include "modperl_constants.h" + +int modperl_const_compile(pTHX_ const char *classname, + const char *arg, + const char *name); + +XS(XS_modperl_const_compile); + +#define MP_newModPerlConstXS(name) \ + newXS(name "::Const::compile", \ + CvXSUB(get_cv("ModPerl::Const::compile", TRUE)), \ + __FILE__) + +#endif /* MODPERL_CONST_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_debug.c b/2_0_13/src/modules/perl/modperl_debug.c new file mode 100644 index 0000000..8b880d9 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_debug.c
@@ -0,0 +1,84 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +char *modperl_server_desc(server_rec *s, apr_pool_t *p) +{ + return apr_psprintf(p, "%s:%u", s->server_hostname, s->port); +} + +#ifdef MP_TRACE +void modperl_apr_table_dump(pTHX_ apr_table_t *table, char *name) +{ + int i, tmp_len, len = 0; + char *fmt; + const apr_array_header_t *array = apr_table_elts(table); + apr_table_entry_t *elts = (apr_table_entry_t *)array->elts; + + modperl_trace(MP_FUNC, "*** Contents of table '%s' ***", name); + for (i = 0; i < array->nelts; i++) { + if (elts[i].key && elts[i].val) { + tmp_len = strlen(elts[i].key); + if (tmp_len > len) { + len = tmp_len; + } + } + } + /* dump the table with keys aligned */ + fmt = Perl_form(aTHX_ "%%-%ds => %%s", len); + + for (i = 0; i < array->nelts; i++) { + if (!elts[i].key || !elts[i].val) { + continue; + } + modperl_trace(MP_FUNC, fmt, elts[i].key, elts[i].val); + } + modperl_trace(MP_FUNC, ""); +} +#endif + +#ifdef MP_TRACE +void modperl_perl_modglobal_dump(pTHX) +{ + HV *hv = PL_modglobal; + AV *val; + char *key; + I32 klen; + hv_iterinit(hv); + + MP_TRACE_g(MP_FUNC, "|-------- PL_modglobal --------"); +#ifdef USE_ITHREADS + MP_TRACE_g(MP_FUNC, "| perl 0x%lx", (unsigned long)aTHX); +#endif + MP_TRACE_g(MP_FUNC, "| PL_modglobal 0x%lx", + (unsigned long)PL_modglobal); + + while ((val = (AV*)hv_iternextsv(hv, &key, &klen))) { + MP_TRACE_g(MP_FUNC, "| %s => 0x%lx", key, val); + } + + MP_TRACE_g(MP_FUNC, "|-------- PL_modglobal --------"); + +} +#endif + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_debug.h b/2_0_13/src/modules/perl/modperl_debug.h new file mode 100644 index 0000000..da7fc4b --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_debug.h
@@ -0,0 +1,49 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_DEBUG_H +#define MODPERL_DEBUG_H + +#include "mod_perl.h" + +#ifdef MP_DEBUG +# define MP_ASSERT(exp) ap_assert(exp) +#else +# define MP_ASSERT(exp) ((void)0) +#endif + +#ifdef USE_ITHREADS +# define MP_ASSERT_CONTEXT(perl) MP_ASSERT((perl) == PERL_GET_CONTEXT) +#else +# define MP_ASSERT_CONTEXT(perl) ((void)0) +#endif + +char *modperl_server_desc(server_rec *s, apr_pool_t *p); + +#ifdef MP_TRACE +void modperl_apr_table_dump(pTHX_ apr_table_t *table, char *name); +/* dump the contents of PL_modglobal */ +void modperl_perl_modglobal_dump(pTHX); +#endif + +#endif /* MODPERL_DEBUG_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_env.c b/2_0_13/src/modules/perl/modperl_env.c new file mode 100644 index 0000000..62d4030 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_env.c
@@ -0,0 +1,727 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +#define EnvMgOK ((SV*)ENVHV && SvMAGIC((SV*)ENVHV)) +#define EnvMgObj (EnvMgOK ? SvMAGIC((SV*)ENVHV)->mg_ptr : NULL) +#define EnvMgLen (EnvMgOK ? SvMAGIC((SV*)ENVHV)->mg_len : 0) +#define EnvMgObjSet(val){ \ + if (EnvMgOK) SvMAGIC((SV*)ENVHV)->mg_ptr = (char *)val;} +#define EnvMgLenSet(val) {\ + if (EnvMgOK) SvMAGIC((SV*)ENVHV)->mg_len = val;} + +/* XXX: move to utils? */ +static unsigned long modperl_interp_address(pTHX) +{ +#ifdef USE_ITHREADS + return (unsigned long)aTHX; +#else + return (unsigned long)0; /* just one interpreter */ +#endif +} + +#define MP_ENV_HV_STORE(hv, key, val) STMT_START { \ + I32 klen = strlen(key); \ + SV **svp = hv_fetch(hv, key, klen, FALSE); \ + SV *sv; \ + \ + if (svp) { \ + sv_setpv(*svp, val); \ + } \ + else { \ + sv = newSVpv(val, 0); \ + (void)hv_store(hv, key, klen, sv, FALSE); \ + modperl_envelem_tie(sv, key, klen); \ + svp = &sv; \ + } \ + MP_TRACE_e(MP_FUNC, "$ENV{%s} = \"%s\";", key, val); \ + \ + SvTAINTED_on(*svp); \ + } STMT_END + +void modperl_env_hv_store(pTHX_ const char *key, const char *val) +{ + MP_ENV_HV_STORE(ENVHV, key, val); +} + +static MP_INLINE +void modperl_env_hv_delete(pTHX_ HV *hv, char *key) +{ + I32 klen = strlen(key); + if (hv_exists(hv, key, klen)) { + (void)hv_delete(hv, key, strlen(key), G_DISCARD); + } +} + +typedef struct { + const char *key; + I32 klen; + const char *val; + I32 vlen; + U32 hash; +} modperl_env_ent_t; + +#define MP_ENV_ENT(k,v) \ +{ k, MP_SSTRLEN(k), v, MP_SSTRLEN(v), 0 } + +static modperl_env_ent_t MP_env_const_vars[] = { + MP_ENV_ENT("MOD_PERL", MP_VERSION_STRING), + MP_ENV_ENT("MOD_PERL_API_VERSION", MP_API_VERSION), + { NULL } +}; + +void modperl_env_hash_keys(pTHX) +{ + modperl_env_ent_t *ent = MP_env_const_vars; + + while (ent->key) { + PERL_HASH(ent->hash, ent->key, ent->klen); + MP_TRACE_e(MP_FUNC, "[0x%lx] PERL_HASH: %s (len: %d)", + modperl_interp_address(aTHX), ent->key, ent->klen); + ent++; + } +} + +void modperl_env_clear(pTHX) +{ + HV *hv = ENVHV; + U32 mg_flags; + + modperl_env_untie(mg_flags); + + MP_TRACE_e(MP_FUNC, "[0x%lx] %%ENV = ();", modperl_interp_address(aTHX)); + + hv_clear(hv); + + modperl_env_tie(mg_flags); +} + +#define MP_ENV_HV_STORE_TABLE_ENTRY(hv, elt) \ + MP_ENV_HV_STORE(hv, elt.key, elt.val); + +static void modperl_env_table_populate(pTHX_ apr_table_t *table) +{ + HV *hv = ENVHV; + U32 mg_flags; + int i; + const apr_array_header_t *array; + apr_table_entry_t *elts; + + modperl_env_init(aTHX); + modperl_env_untie(mg_flags); + + array = apr_table_elts(table); + elts = (apr_table_entry_t *)array->elts; + + for (i = 0; i < array->nelts; i++) { + if (!elts[i].key || !elts[i].val) { + continue; + } + MP_ENV_HV_STORE_TABLE_ENTRY(hv, elts[i]); + } + + modperl_env_tie(mg_flags); +} + +static void modperl_env_table_unpopulate(pTHX_ apr_table_t *table) +{ + HV *hv = ENVHV; + U32 mg_flags; + int i; + const apr_array_header_t *array; + apr_table_entry_t *elts; + + modperl_env_untie(mg_flags); + + array = apr_table_elts(table); + elts = (apr_table_entry_t *)array->elts; + + for (i = 0; i < array->nelts; i++) { + if (!elts[i].key) { + continue; + } + modperl_env_hv_delete(aTHX_ hv, elts[i].key); + MP_TRACE_e(MP_FUNC, "delete $ENV{%s};", elts[i].key); + } + + modperl_env_tie(mg_flags); +} + +/* see the comment in modperl_env_sync_env_hash2table */ +static void modperl_env_sync_table(pTHX_ apr_table_t *table) +{ + int i; + const apr_array_header_t *array; + apr_table_entry_t *elts; + HV *hv = ENVHV; + SV **svp; + + array = apr_table_elts(table); + elts = (apr_table_entry_t *)array->elts; + + for (i = 0; i < array->nelts; i++) { + if (!elts[i].key) { + continue; + } + svp = hv_fetch(hv, elts[i].key, strlen(elts[i].key), FALSE); + if (svp) { + apr_table_set(table, elts[i].key, SvPV_nolen(*svp)); + MP_TRACE_e(MP_FUNC, "(Set|Pass)Env '%s' '%s'", elts[i].key, + SvPV_nolen(*svp)); + } + } + TAINT_NOT; /* SvPV_* causes the taint issue */ +} + +/* Make per-server PerlSetEnv and PerlPassEnv in sync with %ENV at + * config time (if perl is running), by copying %ENV values to the + * PerlSetEnv and PerlPassEnv tables (only for keys which are already + * in those tables) + */ +void modperl_env_sync_srv_env_hash2table(pTHX_ apr_pool_t *p, + modperl_config_srv_t *scfg) +{ + modperl_env_sync_table(aTHX_ scfg->SetEnv); + modperl_env_sync_table(aTHX_ scfg->PassEnv); +} + +void modperl_env_sync_dir_env_hash2table(pTHX_ apr_pool_t *p, + modperl_config_dir_t *dcfg) +{ + modperl_env_sync_table(aTHX_ dcfg->SetEnv); +} + +/* list of environment variables to pass by default */ +static const char *MP_env_pass_defaults[] = { + "PATH", "TZ", NULL +}; + +void modperl_env_configure_server(pTHX_ apr_pool_t *p, server_rec *s) +{ + MP_dSCFG(s); + int i = 0; + + /* make per-server PerlSetEnv and PerlPassEnv entries visible + * to %ENV at config time + */ + + for (i=0; MP_env_pass_defaults[i]; i++) { + const char *key = MP_env_pass_defaults[i]; + char *val; + + if (apr_table_get(scfg->SetEnv, key) || + apr_table_get(scfg->PassEnv, key)) + { + continue; /* already configured */ + } + + if ((val = getenv(key))) { + apr_table_set(scfg->PassEnv, key, val); + } + } + + MP_TRACE_e(MP_FUNC, "\t[0x%lx/%s]" + "\n\t@ENV{keys scfg->SetEnv} = values scfg->SetEnv;", + modperl_interp_address(aTHX), + modperl_server_desc(s, p)); + modperl_env_table_populate(aTHX_ scfg->SetEnv); + + MP_TRACE_e(MP_FUNC, "\t[0x%lx/%s]" + "\n\t@ENV{keys scfg->PassEnv} = values scfg->PassEnv;", + modperl_interp_address(aTHX), + modperl_server_desc(s, p)); + modperl_env_table_populate(aTHX_ scfg->PassEnv); +} + +#define overlay_subprocess_env(r, tab) \ + r->subprocess_env = apr_table_overlay(r->pool, \ + r->subprocess_env, \ + tab) + +void modperl_env_configure_request_dir(pTHX_ request_rec *r) +{ + MP_dRCFG; + MP_dDCFG; + + /* populate %ENV and r->subprocess_env with per-directory + * PerlSetEnv entries. + * + * note that per-server PerlSetEnv entries, as well as + * PerlPassEnv entries (which are only per-server), are added + * to %ENV and r->subprocess_env via modperl_env_configure_request_srv + */ + + if (!apr_is_empty_table(dcfg->SetEnv)) { + apr_table_t *setenv_copy; + + /* add per-directory PerlSetEnv entries to %ENV + * collisions with per-server PerlSetEnv entries are + * resolved via the nature of a Perl hash + */ + MP_TRACE_e(MP_FUNC, "\t[0x%lx/%s]" + "\n\t@ENV{keys dcfg->SetEnv} = values dcfg->SetEnv;", + modperl_interp_address(aTHX), + modperl_server_desc(r->server, r->pool)); + modperl_env_table_populate(aTHX_ dcfg->SetEnv); + + /* make sure the entries are in the subprocess_env table as well. + * we need to use apr_table_overlap (not apr_table_overlay) because + * r->subprocess_env might have per-server PerlSetEnv entries in it + * and using apr_table_overlay would generate duplicate entries. + * in order to use apr_table_overlap, though, we need to copy the + * the dcfg table so that pool requirements are satisfied */ + + setenv_copy = apr_table_copy(r->pool, dcfg->SetEnv); + apr_table_overlap(r->subprocess_env, setenv_copy, APR_OVERLAP_TABLES_SET); + } + + MpReqPERL_SET_ENV_DIR_On(rcfg); +} + +void modperl_env_configure_request_srv(pTHX_ request_rec *r) +{ + MP_dRCFG; + MP_dSCFG(r->server); + + /* populate %ENV and r->subprocess_env with per-server PerlSetEnv + * and PerlPassEnv entries. + * + * although both are setup in %ENV in modperl_request_configure_server + * %ENV will be reset via modperl_env_request_unpopulate. + */ + + if (!apr_is_empty_table(scfg->SetEnv)) { + MP_TRACE_e(MP_FUNC, "\t[0x%lx/%s]" + "\n\t@ENV{keys scfg->SetEnv} = values scfg->SetEnv;", + modperl_interp_address(aTHX), + modperl_server_desc(r->server, r->pool)); + modperl_env_table_populate(aTHX_ scfg->SetEnv); + + overlay_subprocess_env(r, scfg->SetEnv); + } + + if (!apr_is_empty_table(scfg->PassEnv)) { + MP_TRACE_e(MP_FUNC, "\t[0x%lx/%s]" + "\n\t@ENV{keys scfg->PassEnv} = values scfg->PassEnv;", + modperl_interp_address(aTHX), + modperl_server_desc(r->server, r->pool)); + modperl_env_table_populate(aTHX_ scfg->PassEnv); + + overlay_subprocess_env(r, scfg->PassEnv); + } + + MpReqPERL_SET_ENV_SRV_On(rcfg); +} + +void modperl_env_default_populate(pTHX) +{ + modperl_env_ent_t *ent = MP_env_const_vars; + HV *hv = ENVHV; + U32 mg_flags; + + modperl_env_untie(mg_flags); + + while (ent->key) { + SV *sv = newSVpvn(ent->val, ent->vlen); + (void)hv_store(hv, ent->key, ent->klen, + sv, ent->hash); + MP_TRACE_e(MP_FUNC, "$ENV{%s} = \"%s\";", ent->key, ent->val); + modperl_envelem_tie(sv, ent->key, ent->klen); + ent++; + } + + modperl_env_tie(mg_flags); +} + +void modperl_env_request_populate(pTHX_ request_rec *r) +{ + MP_dRCFG; + + /* this is called under the following conditions + * - if PerlOptions +SetupEnv + * - if $r->subprocess_env() is called in a void context with no args + * + * normally, %ENV is only populated once per request (if at all) - + * just prior to content generation if +SetupEnv. + * + * however, in the $r->subprocess_env() case it will be called + * more than once - once for each void call, and once again just + * prior to content generation. while costly, the multiple + * passes are required, otherwise void calls would prohibit later + * phases from populating %ENV with new subprocess_env table entries + */ + + MP_TRACE_e(MP_FUNC, "\t[0x%lx/%s%s]" + "\n\t@ENV{keys r->subprocess_env} = values r->subprocess_env;", + modperl_interp_address(aTHX), + modperl_server_desc(r->server, r->pool), r->uri); + + /* we can eliminate some of the cost by only doing CGI variables once + * per-request no matter how many times $r->subprocess_env() is called + */ + if (! MpReqSETUP_ENV(rcfg)) { + + ap_add_common_vars(r); + ap_add_cgi_vars(r); + + } + + modperl_env_table_populate(aTHX_ r->subprocess_env); + + /* don't set up CGI variables again this request. + * this also triggers modperl_env_request_unpopulate, which + * resets %ENV between requests - see modperl_config_request_cleanup + */ + MpReqSETUP_ENV_On(rcfg); +} + +void modperl_env_request_unpopulate(pTHX_ request_rec *r) +{ + MP_dRCFG; + + /* unset only once */ + if (!MpReqSETUP_ENV(rcfg)) { + return; + } + + MP_TRACE_e(MP_FUNC, + "\n\t[0x%lx/%s%s]\n\tdelete @ENV{keys r->subprocess_env};", + modperl_interp_address(aTHX), + modperl_server_desc(r->server, r->pool), r->uri); + modperl_env_table_unpopulate(aTHX_ r->subprocess_env); + + MpReqSETUP_ENV_Off(rcfg); +} + +void modperl_env_request_tie(pTHX_ request_rec *r) +{ + EnvMgObjSet(r); + EnvMgLenSet(-1); + +#ifdef MP_PERL_HV_GMAGICAL_AWARE + MP_TRACE_e(MP_FUNC, "[0x%lx] tie %%ENV, $r\t (%s%s)", + modperl_interp_address(aTHX), + modperl_server_desc(r->server, r->pool), r->uri); + SvGMAGICAL_on((SV*)ENVHV); +#endif +} + +void modperl_env_request_untie(pTHX_ request_rec *r) +{ + EnvMgObjSet(NULL); + +#ifdef MP_PERL_HV_GMAGICAL_AWARE + MP_TRACE_e(MP_FUNC, "[0x%lx] untie %%ENV; # from r\t (%s%s)", + modperl_interp_address(aTHX), + modperl_server_desc(r->server, r->pool), r->uri); + SvGMAGICAL_off((SV*)ENVHV); +#endif +} + +/* handy access to perl's original virtual tables + */ +#define MP_PL_vtbl_call(name, meth) \ + PL_vtbl_##name.svt_##meth(aTHX_ sv, mg) + +#define MP_dENV_KEY \ + STRLEN klen; \ + const char *key = (const char *)MgPV(mg,klen) + +#define MP_dENV_VAL \ + STRLEN vlen; \ + const char *val = (const char *)SvPV(sv,vlen) + +/* + * XXX: what we do here might change: + * - make it optional for %ENV to be tied to r->subprocess_env + * - make it possible to modify environ + * - we could allow modification of environ if mpm isn't threaded + * - we could allow modification of environ if variable isn't a CGI + * variable (still could cause problems) + */ +/* + * problems we are trying to solve: + * - environ is shared between threads + * + Perl does not serialize access to environ + * + even if it did, CGI variables cannot be shared between threads! + * problems we create by trying to solve above problems: + * - a forked process will not inherit the current %ENV + * - C libraries might rely on environ, e.g. DBD::Oracle + */ +static int modperl_env_magic_set_all(pTHX_ SV *sv, MAGIC *mg) +{ + request_rec *r = (request_rec *)EnvMgObj; + + if (r) { + if (PL_localizing) { + /* local %ENV = (FOO => 'bar', BIZ => 'baz') */ + HE *entry; + STRLEN n_a; + + hv_iterinit((HV*)sv); + while ((entry = hv_iternext((HV*)sv))) { + I32 keylen; + apr_table_set(r->subprocess_env, + hv_iterkey(entry, &keylen), + SvPV(hv_iterval((HV*)sv, entry), n_a)); + MP_TRACE_e(MP_FUNC, "[0x%lx] localizing: %s => %s", + modperl_interp_address(aTHX), + hv_iterkey(entry, &keylen), + SvPV(hv_iterval((HV*)sv, entry), n_a)); + } + } + } + else { +#ifdef MP_TRACE + HE *entry; + STRLEN n_a; + + MP_TRACE_e(MP_FUNC, "\n\t[0x%lx] populating %%ENV:", + modperl_interp_address(aTHX)); + + hv_iterinit((HV*)sv); + + while ((entry = hv_iternext((HV*)sv))) { + I32 keylen; + MP_TRACE_e(MP_FUNC, "$ENV{%s} = \"%s\";", + hv_iterkey(entry, &keylen), + SvPV(hv_iterval((HV*)sv, entry), n_a)); + } +#endif + return MP_PL_vtbl_call(env, set); + } + + return 0; +} + +static int modperl_env_magic_clear_all(pTHX_ SV *sv, MAGIC *mg) +{ + request_rec *r = (request_rec *)EnvMgObj; + + if (r) { + apr_table_clear(r->subprocess_env); + MP_TRACE_e(MP_FUNC, "[0x%lx] clearing all magic off r->subprocess_env", + modperl_interp_address(aTHX)); + } + else { + MP_TRACE_e(MP_FUNC, "[0x%lx] %%ENV = ();", + modperl_interp_address(aTHX)); + return MP_PL_vtbl_call(env, clear); + } + + return 0; +} + +static int modperl_env_magic_copy(pTHX_ SV *sv, MAGIC *mg, SV *nsv, const char *name, I32 namlen) +{ + MP_TRACE_e(MP_FUNC, "setting up %%ENV element magic"); + sv_magicext(nsv, mg->mg_obj, toLOWER(mg->mg_type), &MP_vtbl_envelem, name, namlen); + + return 1; +} + +static int modperl_env_magic_local_all(pTHX_ SV *nsv, MAGIC *mg) +{ + MAGIC *nmg; + MP_TRACE_e(MP_FUNC, "localizing %%ENV"); + nmg = sv_magicext(nsv, mg->mg_obj, mg->mg_type, &MP_vtbl_env, (char*)NULL, 0); + nmg->mg_ptr = mg->mg_ptr; + nmg->mg_flags |= MGf_COPY; +#if (PERL_REVISION == 5 && PERL_VERSION == 8 && PERL_SUBVERSION > 8) || \ + MP_PERL_VERSION_AT_LEAST(5, 9, 3) + nmg->mg_flags |= MGf_LOCAL; +#endif + + return 1; +} + +static int modperl_env_magic_set(pTHX_ SV *sv, MAGIC *mg) +{ + request_rec *r = (request_rec *)EnvMgObj; + + if (r) { + MP_dENV_KEY; + MP_dENV_VAL; + apr_table_set(r->subprocess_env, key, val); + MP_TRACE_e(MP_FUNC, "[0x%lx] r->subprocess_env set: %s => %s", + modperl_interp_address(aTHX), key, val); + } + else { +#ifdef MP_TRACE + MP_dENV_KEY; + MP_dENV_VAL; + MP_TRACE_e(MP_FUNC, + "[0x%lx] $ENV{%s} = \"%s\";", + modperl_interp_address(aTHX), key, val); +#endif + return MP_PL_vtbl_call(envelem, set); + } + + return 0; +} + +static int modperl_env_magic_clear(pTHX_ SV *sv, MAGIC *mg) +{ + request_rec *r = (request_rec *)EnvMgObj; + + if (r) { + MP_dENV_KEY; + apr_table_unset(r->subprocess_env, key); + MP_TRACE_e(MP_FUNC, "[0x%lx] r->subprocess_env unset: %s", + modperl_interp_address(aTHX), key); + } + else { +#ifdef MP_TRACE + MP_dENV_KEY; + MP_TRACE_e(MP_FUNC, "[0x%lx] delete $ENV{%s};", + modperl_interp_address(aTHX), key); +#endif + return MP_PL_vtbl_call(envelem, clear); + } + + return 0; +} + +#ifdef MP_PERL_HV_GMAGICAL_AWARE +static int modperl_env_magic_get(pTHX_ SV *sv, MAGIC *mg) +{ + request_rec *r = (request_rec *)EnvMgObj; + + if (r) { + MP_dENV_KEY; + const char *val; + + if ((val = apr_table_get(r->subprocess_env, key))) { + sv_setpv(sv, val); + MP_TRACE_e(MP_FUNC, + "[0x%lx] r->subprocess_env get: %s => %s", + modperl_interp_address(aTHX), key, val); + } + else { + sv_setsv(sv, &PL_sv_undef); + MP_TRACE_e(MP_FUNC, + "[0x%lx] r->subprocess_env get: %s => undef", + modperl_interp_address(aTHX), key); + } + } + else { + /* there is no svt_get in PL_vtbl_envelem */ +#ifdef MP_TRACE + MP_dENV_KEY; + MP_TRACE_e(MP_FUNC, + "[0x%lx] there is no svt_get in PL_vtbl_envelem: %s", + modperl_interp_address(aTHX), key); +#endif + } + + return 0; +} +#endif + +/* override %ENV virtual tables with our own */ +MGVTBL MP_vtbl_env = { + 0, + modperl_env_magic_set_all, + 0, + modperl_env_magic_clear_all, + 0, + modperl_env_magic_copy, + 0, + modperl_env_magic_local_all +}; + +MGVTBL MP_vtbl_envelem = { + 0, + modperl_env_magic_set, + 0, + modperl_env_magic_clear, + 0 +}; + +void modperl_env_init(pTHX) +{ + MAGIC *mg; + + /* Find the 'E' magic on %ENV */ + if (!PL_envgv) + return; + if (!SvRMAGICAL(ENVHV)) + return; + mg = mg_find((const SV *)ENVHV, PERL_MAGIC_env); + if (!mg) + return; + + /* Ignore it if it isn't perl's original version */ + if (mg->mg_virtual != &PL_vtbl_env) + return; + + MP_TRACE_e(MP_FUNC, "env_init - ptr: %x obj: %x flags: %x", + mg->mg_ptr, mg->mg_obj, mg->mg_flags); + + /* Remove it */ +#if MP_PERL_VERSION_AT_LEAST(5, 13, 6) + mg_free_type((SV*)ENVHV, PERL_MAGIC_env); +#else + mg_free((SV*)ENVHV); +#endif + + /* Add our version instead */ + mg = sv_magicext((SV*)ENVHV, (SV*)NULL, PERL_MAGIC_env, &MP_vtbl_env, (char*)NULL, 0); + mg->mg_flags |= MGf_COPY; +#if (PERL_REVISION == 5 && PERL_VERSION == 8 && PERL_SUBVERSION > 8) || \ + MP_PERL_VERSION_AT_LEAST(5, 9, 3) + mg->mg_flags |= MGf_LOCAL; +#endif +} + +void modperl_env_unload(pTHX) +{ + MAGIC *mg; + + /* Find the 'E' magic on %ENV */ + if (!PL_envgv) + return; + if (!SvRMAGICAL(ENVHV)) + return; + mg = mg_find((const SV *)ENVHV, PERL_MAGIC_env); + if (!mg) + return; + + /* Ignore it if it isn't our version */ + if (mg->mg_virtual != &MP_vtbl_env) + return; + + MP_TRACE_e(MP_FUNC, "env_unload - ptr: %x obj: %x flags: %x", + mg->mg_ptr, mg->mg_obj, mg->mg_flags); + + /* Remove it */ +#if MP_PERL_VERSION_AT_LEAST(5, 13, 6) + mg_free_type((SV*)ENVHV, PERL_MAGIC_env); +#else + mg_free((SV*)ENVHV); +#endif + + /* Restore perl's original version */ + sv_magicext((SV*)ENVHV, (SV*)NULL, PERL_MAGIC_env, &PL_vtbl_env, (char*)NULL, 0); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_env.h b/2_0_13/src/modules/perl/modperl_env.h new file mode 100644 index 0000000..3f8f60b --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_env.h
@@ -0,0 +1,75 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_ENV_H +#define MODPERL_ENV_H + +#ifndef ENVHV +# define ENVHV GvHV(PL_envgv) +#endif + +#define modperl_env_untie(mg_flags) \ + MP_magical_untie(ENVHV, mg_flags) + +#define modperl_env_tie(mg_flags) \ + MP_magical_tie(ENVHV, mg_flags) + +#define modperl_envelem_tie(sv, key, klen) \ + sv_magicext(sv, (SV *)NULL, PERL_MAGIC_envelem, &MP_vtbl_envelem, key, klen) + +void modperl_env_hash_keys(pTHX); + +void modperl_env_clear(pTHX); + +void modperl_env_hv_store(pTHX_ const char *key, const char *val); + +void modperl_env_sync_srv_env_hash2table(pTHX_ apr_pool_t *p, + modperl_config_srv_t *scfg); + +void modperl_env_sync_dir_env_hash2table(pTHX_ apr_pool_t *p, + modperl_config_dir_t *dcfg); + +void modperl_env_configure_server(pTHX_ apr_pool_t *p, server_rec *s); + +void modperl_env_configure_request_srv(pTHX_ request_rec *r); + +void modperl_env_configure_request_dir(pTHX_ request_rec *r); + +void modperl_env_default_populate(pTHX); + +void modperl_env_request_populate(pTHX_ request_rec *r); + +void modperl_env_request_unpopulate(pTHX_ request_rec *r); + +void modperl_env_request_tie(pTHX_ request_rec *r); + +void modperl_env_request_untie(pTHX_ request_rec *r); + +void modperl_env_init(pTHX); + +void modperl_env_unload(pTHX); + +extern MGVTBL MP_vtbl_env; +extern MGVTBL MP_vtbl_envelem; + +#endif /* MODPERL_ENV_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_error.c b/2_0_13/src/modules/perl/modperl_error.c new file mode 100644 index 0000000..2f83216 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_error.c
@@ -0,0 +1,102 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +static const char *MP_error_strings[] = { + "exit was called", /* MODPERL_RC_EXIT */ + "filter handler has failed", /* MODPERL_FILTER_ERROR */ +}; + +#define MP_error_strings_size \ + sizeof(MP_error_strings) / sizeof(MP_error_strings[0]) + +char *modperl_error_strerror(pTHX_ apr_status_t rc) +{ + char *ptr; + char buf[256]; + + if (rc >= APR_OS_START_USERERR && + rc < APR_OS_START_USERERR + MP_error_strings_size) { + /* custom mod_perl errors */ + ptr = (char*)MP_error_strings[(int)(rc - APR_OS_START_USERERR)]; + } + else { + /* apache apr errors */ + ptr = apr_strerror(rc, buf, sizeof(buf)); + } + + /* must copy the string and not return a pointer to the local + * address. Using a single (per interpreter) static buffer. + */ + return Perl_form(aTHX_ "%s", ptr ? ptr : "unknown error"); +} + + +/* modperl_croak notes: under -T we can't really do anything when die + * was called in the stacked eval_sv (which is the case when a + * response handler calls a filter handler and that filter calls die + * ""). for example trying to require a file in modperl_croak(), will + * cause 'panic: POPSTACK' and the process will exit. Dave fixed that + * in perl Change 23209 by davem@davem-percy on 2004/08/09 19:48:57, + * which will hopefully appear in perl 5.8.6. for now workaround this + * perl bug by setting the taint mode off for the APR/Error loading. + */ + +/* croak with $@ as a APR::Error object + * rc - set to apr_status_t value + * file - set to the callers filename + * line - set to the callers line number + * func - set to the function name + */ +void modperl_croak(pTHX_ apr_status_t rc, const char* func) +{ + HV *stash; + HV *data; + int is_tainted = PL_tainted; + + /* see the explanation above */ + if (is_tainted) { + TAINT_NOT; + } + Perl_require_pv(aTHX_ "APR/Error.pm"); + if (is_tainted) { + TAINT; + } + + if (SvTRUE(ERRSV)) { + Perl_croak(aTHX_ (char *)NULL); + } + + stash = gv_stashpvn("APR::Error", 10, FALSE); + data = newHV(); + /* $@ = bless {}, "APR::Error"; */ + sv_setsv(ERRSV, sv_bless(newRV_noinc((SV*)data), stash)); + + sv_setiv(*hv_fetch(data, "rc", 2, 1), rc); + sv_setpv(*hv_fetch(data, "file", 4, 1), CopFILE(PL_curcop)); + sv_setiv(*hv_fetch(data, "line", 4, 1), CopLINE(PL_curcop)); + sv_setpv(*hv_fetch(data, "func", 4, 1), func); + + Perl_croak(aTHX_ (char *)NULL); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_error.h b/2_0_13/src/modules/perl/modperl_error.h new file mode 100644 index 0000000..0a4d82c --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_error.h
@@ -0,0 +1,115 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_ERROR_H +#define MODPERL_ERROR_H + +/*** mod_perl custom errors come here ***/ + +/* to check whether $@ is set by ModPerl::Util::exit */ +#define MODPERL_RC_EXIT APR_OS_START_USERERR + 0 +/* indicate the filter error problem */ +#define MODPERL_FILTER_ERROR APR_OS_START_USERERR + 1 + +/** + * return the string representation of the error code + * @param rc error code + * @return the error string + * + * The return value must be immediately copied unless used only in a + * limited visible scope where it's clear that Perl_form() is not + * called again (which could happen indirectly). If unsure, copy. + */ +char *modperl_error_strerror(pTHX_ apr_status_t rc); + +void modperl_croak(pTHX_ apr_status_t rc, const char* func); + +#ifdef USE_ITHREADS +#define MP_PUTBACK_IF_USED() STMT_START \ + { \ + modperl_interp_t *interp = modperl_thx_interp_get(aTHX); \ + if (interp && interp->refcnt > 1) { \ + modperl_interp_unselect(interp); \ + } \ + } STMT_END +#else +#define MP_PUTBACK_IF_USED() NOOP +#endif + +#define MP_CROAK_PUTBACK(rc, func) STMT_START \ + { \ + MP_PUTBACK_IF_USED(); \ + modperl_croak(aTHX_ rc, func); \ + } STMT_END + +#define MP_RUN_CROAK(rc_run, func) STMT_START \ + { \ + apr_status_t rc = rc_run; \ + if (rc != APR_SUCCESS) { \ + modperl_croak(aTHX_ rc, func); \ + } \ + } STMT_END + +#define MP_RUN_CROAK_PUTBACK(rc_run, func) STMT_START \ + { \ + apr_status_t rc = rc_run; \ + if (rc != APR_SUCCESS) { \ + MP_PUTBACK_IF_USED(); \ + modperl_croak(aTHX_ rc, func); \ + } \ + } STMT_END + +#define MP_RUN_CROAK_RESET_OK(s, rc_run, func) STMT_START \ + { \ + apr_status_t rc = rc_run; \ + if (rc != APR_SUCCESS) { \ + if (APR_STATUS_IS_ECONNRESET(rc) || \ + APR_STATUS_IS_ECONNABORTED(rc)) { \ + ap_log_error(APLOG_MARK, APLOG_INFO, 0, s, \ + "%s got: %s", func, \ + modperl_error_strerror(aTHX_ rc)); \ + } \ + else { \ + modperl_croak(aTHX_ rc, func); \ + } \ + } \ + } STMT_END + +#define MP_RUN_CROAK_RESET_OK_PUTBACK(s, rc_run, func) STMT_START \ + { \ + apr_status_t rc = rc_run; \ + if (rc != APR_SUCCESS) { \ + if (APR_STATUS_IS_ECONNRESET(rc) || \ + APR_STATUS_IS_ECONNABORTED(rc)) { \ + ap_log_error(APLOG_MARK, APLOG_INFO, 0, s, \ + "%s got: %s", func, \ + modperl_error_strerror(aTHX_ rc)); \ + } \ + else { \ + MP_PUTBACK_IF_USED(); \ + modperl_croak(aTHX_ rc, func); \ + } \ + } \ + } STMT_END + +#endif /* MODPERL_ERROR_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_filter.c b/2_0_13/src/modules/perl/modperl_filter.c new file mode 100644 index 0000000..76be3e0 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_filter.c
@@ -0,0 +1,1301 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* helper funcs */ + +#define MP_FILTER_NAME_FORMAT " %s\n\n\t" + +#define MP_FILTER_NAME(f) \ + (is_modperl_filter(f) \ + ? modperl_handler_name( \ + ((modperl_filter_ctx_t *)(f)->ctx)->handler) \ + : (f)->frec->name) + +#define MP_FILTER_TYPE(filter) \ + (is_modperl_filter(filter->f) \ + ? ((modperl_filter_ctx_t *)(filter)->f->ctx)->handler->attrs & \ + MP_FILTER_CONNECTION_HANDLER ? "connection" : "request" \ + : "unknown") + +#define MP_FILTER_MODE(filter) \ + (filter->mode == MP_INPUT_FILTER_MODE ? "input" : "output") + +#define MP_FILTER_POOL(f) f->r ? f->r->pool : f->c->pool + +/* allocate wbucket memory using a sub-pool and not a ap_filter_t + * pool, since we may need many of these if the filter is invoked + * multiple times */ +#define WBUCKET_INIT(filter) \ + if (!filter->wbucket) { \ + modperl_wbucket_t *wb = \ + (modperl_wbucket_t *)apr_pcalloc(filter->temp_pool, \ + sizeof(*wb)); \ + wb->pool = filter->pool; \ + wb->filters = &(filter->f->next); \ + wb->outcnt = 0; \ + wb->r = NULL; \ + wb->header_parse = 0; \ + filter->wbucket = wb; \ + } + +#define FILTER_FREE(filter) \ + apr_pool_destroy(filter->temp_pool); + +/* Save the value of $@ if it was set */ +#define MP_FILTER_SAVE_ERRSV(tmpsv) \ + if (SvTRUE(ERRSV)) { \ + tmpsv = newSVsv(ERRSV); \ + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT \ + "Saving $@='%s'", \ + MP_FILTER_NAME(filter->f), \ + SvPVX(tmpsv) \ + ); \ + } + +/* Restore previously saved value of $@. if there was a filter error + * it'd have been logged by modperl_errsv call following + * modperl_callback */ +#define MP_FILTER_RESTORE_ERRSV(tmpsv) \ + if (tmpsv) { \ + sv_setsv(ERRSV, tmpsv); \ + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT \ + "Restoring $@='%s'", \ + MP_FILTER_NAME(filter->f), \ + SvPVX(tmpsv) \ + ); \ + } + +/* this function is for tracing only, it's not optimized for performance */ +static int is_modperl_filter(ap_filter_t *f) +{ + const char *name = f->frec->name; + + /* frec->name is always lowercased */ + if (!strcasecmp(name, MP_FILTER_CONNECTION_INPUT_NAME) || + !strcasecmp(name, MP_FILTER_CONNECTION_OUTPUT_NAME) || + !strcasecmp(name, MP_FILTER_REQUEST_INPUT_NAME) || + !strcasecmp(name, MP_FILTER_REQUEST_OUTPUT_NAME) ) { + return 1; + } + else { + return 0; + } +} + + +MP_INLINE static apr_status_t send_input_eos(modperl_filter_t *filter) +{ + apr_bucket_alloc_t *ba = filter->f->c->bucket_alloc; + apr_bucket *b = apr_bucket_eos_create(ba); + APR_BRIGADE_INSERT_TAIL(filter->bb_out, b); + ((modperl_filter_ctx_t *)filter->f->ctx)->sent_eos = 1; + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "write out: EOS bucket", MP_FILTER_NAME(filter->f)); + return APR_SUCCESS; +} + +MP_INLINE static apr_status_t send_input_flush(modperl_filter_t *filter) +{ + apr_bucket_alloc_t *ba = filter->f->c->bucket_alloc; + apr_bucket *b = apr_bucket_flush_create(ba); + APR_BRIGADE_INSERT_TAIL(filter->bb_out, b); + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "write out: FLUSH bucket", MP_FILTER_NAME(filter->f)); + return APR_SUCCESS; +} + +MP_INLINE static apr_status_t send_output_eos(ap_filter_t *f) +{ + apr_bucket_alloc_t *ba = f->c->bucket_alloc; + apr_bucket_brigade *bb = apr_brigade_create(MP_FILTER_POOL(f), + ba); + apr_bucket *b = apr_bucket_eos_create(ba); + APR_BRIGADE_INSERT_TAIL(bb, b); + ((modperl_filter_ctx_t *)f->ctx)->sent_eos = 1; + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "write out: EOS bucket in separate bb", MP_FILTER_NAME(f)); + return ap_pass_brigade(f->next, bb); +} + +MP_INLINE static apr_status_t send_output_flush(ap_filter_t *f) +{ + apr_bucket_alloc_t *ba = f->c->bucket_alloc; + apr_bucket_brigade *bb = apr_brigade_create(MP_FILTER_POOL(f), + ba); + apr_bucket *b = apr_bucket_flush_create(ba); + APR_BRIGADE_INSERT_TAIL(bb, b); + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "write out: FLUSH bucket in separate bb", MP_FILTER_NAME(f)); + return ap_pass_brigade(f, bb); +} + +/* simple buffer api */ + +MP_INLINE apr_status_t modperl_wbucket_pass(modperl_wbucket_t *wb, + const char *buf, apr_size_t len, + int add_flush_bucket) +{ + apr_bucket_alloc_t *ba = (*wb->filters)->c->bucket_alloc; + apr_bucket_brigade *bb; + apr_bucket *bucket; + + /* reset the counter to 0 as early as possible and in one place, + * since this function will always either pass the data out (and + * it has 'len' already) or return an error. + */ + wb->outcnt = 0; + + if (wb->header_parse) { + request_rec *r = wb->r; + const char *body; + int status; + + MP_TRACE_f(MP_FUNC, "parsing headers: %db [%s]", len, + MP_TRACE_STR_TRUNC(wb->pool, buf, len)); + + status = modperl_cgi_header_parse(r, (char *)buf, &len, &body); + + wb->header_parse = 0; /* only once per-request */ + + if (status == HTTP_MOVED_TEMPORARILY) { + return APR_SUCCESS; /* XXX: HTTP_MOVED_TEMPORARILY ? */ + } + else if (status != OK) { + ap_log_error(APLOG_MARK, APLOG_WARNING, + 0, r->server, "%s did not send an HTTP header", + r->uri); + r->status = status; + /* XXX: body == NULL here */ + return APR_SUCCESS; + } + else if (!len) { + return APR_SUCCESS; + } + + buf = body; + } + + /* this is a note for filter writers who may decide that there is + * a bug in mod_perl. We send a transient bucket. That means that + * this bucket can't be stored inside a filter without copying the + * data in it. This is done automatically by apr_bucket_setaside, + * which is written exactly for the purpose to make setaside + * operation transparent to the kind of bucket. + */ + bucket = apr_bucket_transient_create(buf, len, ba); + bb = apr_brigade_create(wb->pool, ba); + APR_BRIGADE_INSERT_TAIL(bb, bucket); + + if (add_flush_bucket) { + /* append the flush bucket rather then calling ap_rflush, to + * prevent a creation of yet another bb, which will cause an + * extra call for each filter in the chain */ + apr_bucket *bucket = apr_bucket_flush_create(ba); + APR_BRIGADE_INSERT_TAIL(bb, bucket); + } + + MP_TRACE_f(MP_FUNC, "\n\n\twrite out: %db [%s]" + "\t\tfrom %s\n\t\tto %s filter handler", + len, + MP_TRACE_STR_TRUNC(wb->pool, buf, len), + ((wb->r && wb->filters == &wb->r->output_filters) + ? "response handler" : "current filter handler"), + MP_FILTER_NAME(*(wb->filters))); + + return ap_pass_brigade(*(wb->filters), bb); +} + +/* flush data if any, + * if add_flush_bucket is TRUE + * if there is data to flush + * a flush bucket is added to the tail of bb with data + * else + * a flush bucket is sent in its own bb + * else + * nothing is sent + */ +MP_INLINE apr_status_t modperl_wbucket_flush(modperl_wbucket_t *wb, + int add_flush_bucket) +{ + apr_status_t rv = APR_SUCCESS; + + if (wb->outcnt) { + rv = modperl_wbucket_pass(wb, wb->outbuf, wb->outcnt, + add_flush_bucket); + } + else if (add_flush_bucket) { + rv = send_output_flush(*(wb->filters)); + } + + return rv; +} + +MP_INLINE apr_status_t modperl_wbucket_write(pTHX_ modperl_wbucket_t *wb, + const char *buf, + apr_size_t *wlen) +{ + apr_size_t len = *wlen; + *wlen = 0; + + if ((len + wb->outcnt) > sizeof(wb->outbuf)) { + apr_status_t rv; + if ((rv = modperl_wbucket_flush(wb, FALSE)) != APR_SUCCESS) { + return rv; + } + } + + if (len >= sizeof(wb->outbuf)) { + *wlen = len; + return modperl_wbucket_pass(wb, buf, len, FALSE); + } + else { + memcpy(&wb->outbuf[wb->outcnt], buf, len); + wb->outcnt += len; + *wlen = len; + return APR_SUCCESS; + } +} + +/* generic filter routines */ + +/* all ap_filter_t filter cleanups should go here */ +static apr_status_t modperl_filter_f_cleanup(void *data) +{ + ap_filter_t *f = (ap_filter_t *)data; + modperl_filter_ctx_t *ctx = (modperl_filter_ctx_t *)(f->ctx); + + /* mod_perl filter ctx cleanup */ + if (ctx->data){ +#ifdef USE_ITHREADS + dTHXa(ctx->interp->perl); +// MP_ASSERT_CONTEXT(aTHX); +#endif + if (SvOK(ctx->data) && SvREFCNT(ctx->data)) { + SvREFCNT_dec(ctx->data); + ctx->data = NULL; + } + MP_INTERP_PUTBACK(ctx->interp, aTHX); + } + + return APR_SUCCESS; +} + +modperl_filter_t *modperl_filter_new(ap_filter_t *f, + apr_bucket_brigade *bb, + modperl_filter_mode_e mode, + ap_input_mode_t input_mode, + apr_read_type_e block, + apr_off_t readbytes) +{ + apr_pool_t *p = MP_FILTER_POOL(f); + apr_pool_t *temp_pool; + modperl_filter_t *filter; + + /* we can't allocate memory from the pool here, since potentially + * a filter can be called hundreds of times during the same + * request/connection resulting in enormous memory demands + * (sizeof(*filter)*number of invocations). so we use a sub-pool + * which will get destroyed at the end of each modperl_filter + * invocation. + */ + apr_status_t rv = apr_pool_create(&temp_pool, p); + if (rv != APR_SUCCESS) { + /* XXX: how do we handle the error? assert? */ + return NULL; + } + filter = (modperl_filter_t *)apr_pcalloc(temp_pool, sizeof(*filter)); + +#ifdef MP_DEBUG + apr_pool_tag(temp_pool, "mod_perl temp filter"); +#endif + + filter->temp_pool = temp_pool; + filter->mode = mode; + filter->f = f; + filter->pool = p; + filter->wbucket = NULL; + + if (mode == MP_INPUT_FILTER_MODE) { + filter->bb_in = NULL; + filter->bb_out = bb; + filter->input_mode = input_mode; + filter->block = block; + filter->readbytes = readbytes; + } + else { + filter->bb_in = bb; + filter->bb_out = NULL; + } + + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "new: %s %s filter (modperl_filter_t *0x%lx), " + "f (ap_filter_t *0x%lx)", + MP_FILTER_NAME(f), + MP_FILTER_TYPE(filter), + MP_FILTER_MODE(filter), + (unsigned long)filter, + (unsigned long)filter->f); + + return filter; +} + +static void modperl_filter_mg_set(pTHX_ SV *obj, modperl_filter_t *filter) +{ + sv_magic(SvRV(obj), (SV *)NULL, PERL_MAGIC_ext, NULL, -1); + SvMAGIC(SvRV(obj))->mg_ptr = (char *)filter; +} + +modperl_filter_t *modperl_filter_mg_get(pTHX_ SV *obj) +{ + MAGIC *mg = mg_find(SvRV(obj), PERL_MAGIC_ext); + return mg ? (modperl_filter_t *)mg->mg_ptr : NULL; +} + +/* eval "package Foo; \&init_handler" */ +int modperl_filter_resolve_init_handler(pTHX_ modperl_handler_t *handler, + apr_pool_t *p) +{ + char *init_handler_pv_code = NULL; + + if (handler->mgv_cv) { + GV *gv = modperl_mgv_lookup(aTHX_ handler->mgv_cv); + if (gv) { + CV *cv = modperl_mgv_cv(gv); + if (cv && SvMAGICAL(cv)) { + MAGIC *mg = mg_find((SV*)(cv), PERL_MAGIC_ext); + init_handler_pv_code = mg ? mg->mg_ptr : NULL; + } + else { + /* XXX: should we complain in such a case? */ + return 0; + } + } + } + + if (init_handler_pv_code) { + char *package_name = + modperl_mgv_as_string(aTHX_ handler->mgv_cv, p, 1); + /* fprintf(stderr, "PACKAGE: %s\n", package_name ); */ + + /* eval the code in the parent handler's package's context */ + char *code = apr_pstrcat(p, "package ", package_name, ";", + init_handler_pv_code, NULL); + SV *sv; + modperl_handler_t *init_handler; + + ENTER;SAVETMPS; + sv = eval_pv(code, TRUE); + /* fprintf(stderr, "code: %s\n", code); */ + init_handler = modperl_handler_new_from_sv(aTHX_ p, sv); + FREETMPS;LEAVE; + + if (init_handler) { + modperl_mgv_resolve(aTHX_ init_handler, p, init_handler->name, 1); + + MP_TRACE_h(MP_FUNC, "found init handler %s", + modperl_handler_name(init_handler)); + + if (!(init_handler->attrs & MP_FILTER_INIT_HANDLER)) { + Perl_croak(aTHX_ "handler %s doesn't have " + "the FilterInitHandler attribute set", + modperl_handler_name(init_handler)); + } + + handler->next = init_handler; + return 1; + } + else { + Perl_croak(aTHX_ "failed to eval code: %s", code); + + } + } + + return 1; +} + +static int modperl_run_filter_init(ap_filter_t *f, + modperl_filter_mode_e mode, + modperl_handler_t *handler) +{ + AV *args = (AV *)NULL; + int status; + + request_rec *r = f->r; + conn_rec *c = f->c; + server_rec *s = r ? r->server : c->base_server; + apr_pool_t *p = r ? r->pool : c->pool; + modperl_filter_t *filter = modperl_filter_new(f, NULL, mode, 0, 0, 0); + + MP_dINTERPa(r, c, s); + + MP_TRACE_h(MP_FUNC, "running filter init handler %s", + modperl_handler_name(handler)); + + modperl_handler_make_args(aTHX_ &args, + "Apache2::Filter", f, + NULL); + + modperl_filter_mg_set(aTHX_ AvARRAY(args)[0], filter); + + /* XXX filter_init return status is propagated back to Apache over + * in C land, making it possible to use filter_init to return, say, + * BAD_REQUEST. this implementation, however, ignores the return status + * even though we're trapping it here - modperl_filter_add_request sees + * the error and propagates it, but modperl_output_filter_add_request + * is void so the error is lost */ + if ((status = modperl_callback(aTHX_ handler, p, r, s, args)) != OK) { + status = modperl_errsv(aTHX_ status, r, s); + } + + FILTER_FREE(filter); + SvREFCNT_dec((SV*)args); + + MP_INTERP_PUTBACK(interp, aTHX); + + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "return: %d", modperl_handler_name(handler), status); + + return status; +} + +int modperl_run_filter(modperl_filter_t *filter) +{ + AV *args = (AV *)NULL; + SV *errsv = (SV *)NULL; + int status; + modperl_handler_t *handler = + ((modperl_filter_ctx_t *)filter->f->ctx)->handler; + + request_rec *r = filter->f->r; + conn_rec *c = filter->f->c; + server_rec *s = r ? r->server : c->base_server; + apr_pool_t *p = r ? r->pool : c->pool; + + MP_dINTERPa(r, c, s); + + MP_FILTER_SAVE_ERRSV(errsv); + + modperl_handler_make_args(aTHX_ &args, + "Apache2::Filter", filter->f, + "APR::Brigade", + (filter->mode == MP_INPUT_FILTER_MODE + ? filter->bb_out + : filter->bb_in), + NULL); + + modperl_filter_mg_set(aTHX_ AvARRAY(args)[0], filter); + + if (filter->mode == MP_INPUT_FILTER_MODE) { + av_push(args, newSViv(filter->input_mode)); + av_push(args, newSViv(filter->block)); + av_push(args, newSViv(filter->readbytes)); + } + + /* while filters are VOID handlers, we need to log any errors, + * because most perl coders will forget to check the return errors + * from read() and print() calls. and if the caller is not a perl + * program they won't make any sense of ERRSV or $! + */ + if ((status = modperl_callback(aTHX_ handler, p, r, s, args)) != OK) { + status = modperl_errsv(aTHX_ status, r, s); + } + + SvREFCNT_dec((SV*)args); + + /* when the streaming filter is invoked it should be able to send + * extra data, after the read in a while() loop is finished. + * Therefore we need to postpone propogating the EOS bucket, up + * until the filter handler is returned and only then send the EOS + * bucket if the stream had one. + */ + if (filter->seen_eos) { + filter->eos = 1; + filter->seen_eos = 0; + } + + if (filter->mode == MP_INPUT_FILTER_MODE) { + if (filter->bb_in) { + if (status == DECLINED) { + /* make sure the filter doesn't try to make mod_perl + * pass the bucket brigade through after it called + * $f->read(), since it causes a pre-fetch of the + * bb */ + MP_CROAK_PUTBACK(MODPERL_FILTER_ERROR, + "a filter calling $f->read " + "must return OK and not DECLINED"); + } + /* in the streaming mode filter->bb_in is populated on the + * first modperl_input_filter_read, so it must be + * destroyed at the end of the filter invocation + */ + apr_brigade_destroy(filter->bb_in); + filter->bb_in = NULL; + } + MP_RUN_CROAK_RESET_OK_PUTBACK(s, modperl_input_filter_flush(filter), + "Apache2::Filter internal flush"); + } + else { + MP_RUN_CROAK_RESET_OK_PUTBACK(s, modperl_output_filter_flush(filter), + "Apache2::Filter internal flush"); + } + + MP_FILTER_RESTORE_ERRSV(errsv); + + MP_INTERP_PUTBACK(interp, aTHX); + + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "return: %d", modperl_handler_name(handler), status); + + return status; +} + +/* unrolled APR_BRIGADE_FOREACH loop */ + +#define MP_FILTER_EMPTY(filter) \ + APR_BRIGADE_EMPTY(filter->bb_in) + +#define MP_FILTER_SENTINEL(filter) \ + APR_BRIGADE_SENTINEL(filter->bb_in) + +#define MP_FILTER_FIRST(filter) \ + APR_BRIGADE_FIRST(filter->bb_in) + +#define MP_FILTER_NEXT(filter) \ + APR_BUCKET_NEXT(filter->bucket) + +#define MP_FILTER_IS_EOS(filter) \ + APR_BUCKET_IS_EOS(filter->bucket) + +#define MP_FILTER_IS_FLUSH(filter) \ + APR_BUCKET_IS_FLUSH(filter->bucket) + +MP_INLINE static int get_bucket(modperl_filter_t *filter) +{ + if (!filter->bb_in || MP_FILTER_EMPTY(filter)) { + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "read in: bucket brigade is empty", + MP_FILTER_NAME(filter->f)); + return 0; + } + + if (!filter->bucket) { + filter->bucket = MP_FILTER_FIRST(filter); + } + else if (filter->bucket != MP_FILTER_SENTINEL(filter)) { + filter->bucket = MP_FILTER_NEXT(filter); + } + + if (filter->bucket == MP_FILTER_SENTINEL(filter)) { + filter->bucket = NULL; + /* can't destroy bb_in since the next read will need a brigade + * to try to read from */ + apr_brigade_cleanup(filter->bb_in); + return 0; + } + + if (MP_FILTER_IS_EOS(filter)) { + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "read in: EOS bucket", + MP_FILTER_NAME(filter->f)); + + filter->seen_eos = 1; + /* there should be only one EOS sent, modperl_filter_read will + * not come here, since filter->seen_eos is set + */ + return 0; + } + else if (MP_FILTER_IS_FLUSH(filter)) { + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "read in: FLUSH bucket", + MP_FILTER_NAME(filter->f)); + filter->flush = 1; + return 0; + } + else { + return 1; + } +} + + +MP_INLINE static apr_size_t modperl_filter_read(pTHX_ + modperl_filter_t *filter, + SV *buffer, + apr_size_t wanted) +{ + int num_buckets = 0; + apr_size_t len = 0; + + (void)SvUPGRADE(buffer, SVt_PV); + SvCUR(buffer) = 0; + + /* calling SvPOK_only here may leave buffer an invalid state since + * SvPVX may be NULL. But it's very likely that something is copied. + * So, we turn the POK flag on here. Later we check if SvPVX is NULL + * and turn the flag off again if so. */ + SvPOK_only(buffer); + + /* sometimes the EOS bucket arrives in the same brigade with other + * buckets, so that particular read() will not return 0 and will + * be called again if called in the while ($filter->read(...)) + * loop. In that case we return 0. + */ + if (filter->seen_eos) { + return 0; + } + + /* modperl_brigade_dump(filter->bb_in, NULL); */ + + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "wanted: %db", + MP_FILTER_NAME(filter->f), + wanted); + + if (filter->remaining) { + if (filter->remaining >= wanted) { + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "eating and returning %d [%s]\n\tof " + "remaining %db", + MP_FILTER_NAME(filter->f), + wanted, + MP_TRACE_STR_TRUNC(filter->pool, filter->leftover, wanted), + filter->remaining); + SvGROW(buffer, wanted+1); + sv_catpvn(buffer, filter->leftover, wanted); + filter->leftover += wanted; + filter->remaining -= wanted; + return wanted; + } + else { + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "eating remaining %db", + MP_FILTER_NAME(filter->f), + filter->remaining); + SvGROW(buffer, filter->remaining+1); + sv_catpvn(buffer, filter->leftover, filter->remaining); + len = filter->remaining; + filter->remaining = 0; + filter->leftover = NULL; + } + } + + while (1) { + const char *buf; + apr_size_t buf_len; + + if (!get_bucket(filter)) { + break; + } + + num_buckets++; + + filter->rc = apr_bucket_read(filter->bucket, &buf, &buf_len, 0); + + if (filter->rc == APR_SUCCESS) { + MP_TRACE_f(MP_FUNC, + MP_FILTER_NAME_FORMAT + "read in: %s bucket with %db (0x%lx)", + MP_FILTER_NAME(filter->f), + filter->bucket->type->name, + buf_len, + (unsigned long)filter->bucket); + } + else { + SvREFCNT_dec(buffer); + modperl_croak(aTHX_ filter->rc, "Apache2::Filter::read"); + } + + if (buf_len) { + if ((SvCUR(buffer) + buf_len) >= wanted) { + int nibble = wanted - SvCUR(buffer); + SvGROW(buffer, SvCUR(buffer)+nibble+1); + sv_catpvn(buffer, buf, nibble); + filter->leftover = (char *)buf+nibble; + filter->remaining = buf_len - nibble; + len += nibble; + break; + } + else { + len += buf_len; + SvGROW(buffer, SvCUR(buffer)+buf_len+1); + sv_catpvn(buffer, buf, buf_len); + } + } + } + + if (!SvPVX(buffer)) { + SvPOK_off(buffer); + } + + MP_TRACE_f(MP_FUNC, + MP_FILTER_NAME_FORMAT + "return: %db from %d bucket%s [%s]\n\t(%db leftover)", + MP_FILTER_NAME(filter->f), + len, num_buckets, ((num_buckets == 1) ? "" : "s"), + MP_TRACE_STR_TRUNC(filter->pool, SvPVX(buffer), len), + filter->remaining); + + return len; +} + +MP_INLINE apr_size_t modperl_input_filter_read(pTHX_ + modperl_filter_t *filter, + SV *buffer, + apr_size_t wanted) +{ + apr_size_t len = 0; + + if (!filter->bb_in) { + /* This should be read only once per handler invocation! */ + filter->bb_in = apr_brigade_create(filter->pool, + filter->f->c->bucket_alloc); + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "retrieving bb: 0x%lx", + MP_FILTER_NAME(filter->f), + (unsigned long)(filter->bb_in)); + MP_RUN_CROAK(ap_get_brigade(filter->f->next, filter->bb_in, + filter->input_mode, filter->block, + filter->readbytes), + "Apache2::Filter::read"); + } + + len = modperl_filter_read(aTHX_ filter, buffer, wanted); + + if (filter->flush && len == 0) { + /* if len > 0 then $filter->write will flush */ + apr_status_t rc = modperl_input_filter_flush(filter); + if (rc != APR_SUCCESS) { + SvREFCNT_dec(buffer); + modperl_croak(aTHX_ rc, "Apache2::Filter::read"); + } + } + + return len; +} + + +MP_INLINE apr_size_t modperl_output_filter_read(pTHX_ + modperl_filter_t *filter, + SV *buffer, + apr_size_t wanted) +{ + apr_size_t len = 0; + len = modperl_filter_read(aTHX_ filter, buffer, wanted); + + if (filter->flush && len == 0) { + /* if len > 0 then $filter->write will flush */ + apr_status_t rc = modperl_output_filter_flush(filter); + if (rc != APR_SUCCESS) { + SvREFCNT_dec(buffer); + modperl_croak(aTHX_ rc, "Apache2::Filter::read"); + } + } + + return len; +} + + +MP_INLINE apr_status_t modperl_input_filter_flush(modperl_filter_t *filter) +{ + if (((modperl_filter_ctx_t *)filter->f->ctx)->sent_eos) { + /* no data should be sent after EOS has been sent */ + return filter->rc; + } + + if (filter->flush) { + filter->rc = send_input_flush(filter); + filter->flush = 0; + } + + if (filter->eos) { + filter->rc = send_input_eos(filter); + filter->eos = 0; + } + + return filter->rc; +} + +MP_INLINE apr_status_t modperl_output_filter_flush(modperl_filter_t *filter) +{ + int add_flush_bucket = FALSE; + + if (((modperl_filter_ctx_t *)filter->f->ctx)->sent_eos) { + /* no data should be sent after EOS has been sent */ + return filter->rc; + } + + if (filter->flush) { + add_flush_bucket = TRUE; + filter->flush = 0; + } + + WBUCKET_INIT(filter); + filter->rc = modperl_wbucket_flush(filter->wbucket, add_flush_bucket); + if (filter->rc != APR_SUCCESS) { + return filter->rc; + } + + if (filter->eos) { + filter->rc = send_output_eos(filter->f); + if (filter->bb_in) { + apr_brigade_destroy(filter->bb_in); + filter->bb_in = NULL; + } + filter->eos = 0; + } + + return filter->rc; +} + +MP_INLINE apr_status_t modperl_input_filter_write(pTHX_ + modperl_filter_t *filter, + const char *buf, + apr_size_t *len) +{ + apr_bucket_alloc_t *ba = filter->f->c->bucket_alloc; + char *copy = apr_pmemdup(filter->pool, buf, *len); + apr_bucket *bucket = apr_bucket_transient_create(copy, *len, ba); + MP_TRACE_f(MP_FUNC, MP_FILTER_NAME_FORMAT + "write out: %db [%s]:", + MP_FILTER_NAME(filter->f), *len, + MP_TRACE_STR_TRUNC(filter->pool, copy, *len)); + APR_BRIGADE_INSERT_TAIL(filter->bb_out, bucket); + /* modperl_brigade_dump(filter->bb_out, NULL); */ + return APR_SUCCESS; +} + +MP_INLINE apr_status_t modperl_output_filter_write(pTHX_ + modperl_filter_t *filter, + const char *buf, + apr_size_t *len) +{ + WBUCKET_INIT(filter); + + return modperl_wbucket_write(aTHX_ filter->wbucket, buf, len); +} + +apr_status_t modperl_output_filter_handler(ap_filter_t *f, + apr_bucket_brigade *bb) +{ + modperl_filter_t *filter; + int status; + + if (((modperl_filter_ctx_t *)f->ctx)->sent_eos) { + MP_TRACE_f(MP_FUNC, + MP_FILTER_NAME_FORMAT + "write_out: EOS was already sent, " + "passing through the brigade", + MP_FILTER_NAME(f)); + return ap_pass_brigade(f->next, bb); + } + else { + filter = modperl_filter_new(f, bb, MP_OUTPUT_FILTER_MODE, + 0, 0, 0); + status = modperl_run_filter(filter); + FILTER_FREE(filter); + } + + switch (status) { + case OK: + return APR_SUCCESS; + case DECLINED: + return ap_pass_brigade(f->next, bb); + default: + return status; /*XXX*/ + } +} + +apr_status_t modperl_input_filter_handler(ap_filter_t *f, + apr_bucket_brigade *bb, + ap_input_mode_t input_mode, + apr_read_type_e block, + apr_off_t readbytes) +{ + modperl_filter_t *filter; + int status; + + if (((modperl_filter_ctx_t *)f->ctx)->sent_eos) { + MP_TRACE_f(MP_FUNC, + MP_FILTER_NAME_FORMAT + "write out: EOS was already sent, " + "passing through the brigade", + MP_FILTER_NAME(f)); + return ap_get_brigade(f->next, bb, input_mode, block, readbytes); + } + else { + filter = modperl_filter_new(f, bb, MP_INPUT_FILTER_MODE, + input_mode, block, readbytes); + status = modperl_run_filter(filter); + FILTER_FREE(filter); + } + + switch (status) { + case OK: + return APR_SUCCESS; + case DECLINED: + return ap_get_brigade(f->next, bb, input_mode, block, readbytes); + case HTTP_INTERNAL_SERVER_ERROR: + /* XXX: later may introduce separate error codes for + * modperl_run_filter and modperl_run_filter_init */ + return MODPERL_FILTER_ERROR; + default: + return status; /*XXX*/ + } +} + +static int modperl_filter_add_connection(conn_rec *c, + int idx, + const char *name, + modperl_filter_add_t addfunc, + const char *type) +{ + modperl_config_dir_t *dcfg = + modperl_config_dir_get_defaults(c->base_server); + MpAV *av; + + if ((av = dcfg->handlers_per_dir[idx])) { + modperl_handler_t **handlers = (modperl_handler_t **)av->elts; + int i; + + for (i=0; i<av->nelts; i++) { + modperl_filter_ctx_t *ctx; + ap_filter_t *f; + + /* process non-mod_perl filter handlers */ + if ((handlers[i]->attrs & MP_FILTER_HTTPD_HANDLER)) { + + /* non-mp2 filters below PROTOCOL level can't be added + * at the connection level, so we need to go through + * the pain of figuring out the type of the filter */ + ap_filter_rec_t *frec; + char *normalized_name = apr_pstrdup(c->pool, + handlers[i]->name); + ap_str_tolower(normalized_name); + frec = idx == MP_INPUT_FILTER_HANDLER + ? ap_get_input_filter_handle(normalized_name) + : ap_get_output_filter_handle(normalized_name); + if (frec && frec->ftype < AP_FTYPE_PROTOCOL) { + MP_TRACE_f(MP_FUNC, "a non-mod_perl %s handler %s " + "skipped (not a connection filter)", + type, handlers[i]->name); + continue; + } + + addfunc(handlers[i]->name, NULL, NULL, c); + MP_TRACE_f(MP_FUNC, + "a non-mod_perl %s handler %s configured " + "(connection)", type, handlers[i]->name); + continue; + } + + /* skip non-connection level filters, e.g. request filters + * configured outside the resource container */ + if (!(handlers[i]->attrs & MP_FILTER_CONNECTION_HANDLER)) { + MP_TRACE_f(MP_FUNC, + "%s is not a FilterConnection handler, skipping", + handlers[i]->name); + continue; + } + + ctx = (modperl_filter_ctx_t *)apr_pcalloc(c->pool, sizeof(*ctx)); + ctx->handler = handlers[i]; + + f = addfunc(name, (void*)ctx, NULL, c); + + /* ap_filter_t filter cleanup */ + apr_pool_cleanup_register(c->pool, (void *)f, + modperl_filter_f_cleanup, + apr_pool_cleanup_null); + + if (handlers[i]->attrs & MP_FILTER_HAS_INIT_HANDLER && + handlers[i]->next) { + int status = modperl_run_filter_init( + f, + (idx == MP_INPUT_FILTER_HANDLER + ? MP_INPUT_FILTER_MODE : MP_OUTPUT_FILTER_MODE), + handlers[i]->next); + if (status != OK) { + return status; + } + } + + MP_TRACE_h(MP_FUNC, "%s handler %s configured (connection)", + type, handlers[i]->name); + } + + return OK; + } + + MP_TRACE_h(MP_FUNC, "no %s handlers configured (connection)", type); + + return DECLINED; +} + +static int modperl_filter_add_request(request_rec *r, + int idx, + const char *name, + modperl_filter_add_t addfunc, + const char *type, + ap_filter_t *filters) +{ + MP_dDCFG; + MpAV *av; + + if ((av = dcfg->handlers_per_dir[idx])) { + modperl_handler_t **handlers = (modperl_handler_t **)av->elts; + int i; + + for (i=0; i<av->nelts; i++) { + modperl_filter_ctx_t *ctx; + int registered = 0; + ap_filter_t *f; + + /* process non-mod_perl filter handlers */ + if ((handlers[i]->attrs & MP_FILTER_HTTPD_HANDLER)) { + addfunc(handlers[i]->name, NULL, r, r->connection); + MP_TRACE_f(MP_FUNC, + "a non-mod_perl %s handler %s configured (%s)", + type, handlers[i]->name, r->uri); + continue; + } + + /* skip non-request level filters, e.g. connection filters + * configured outside the resource container, merged into + * resource's dcfg->handlers_per_dir[] entry. + */ + if ((handlers[i]->attrs & MP_FILTER_CONNECTION_HANDLER)) { + MP_TRACE_f(MP_FUNC, + "%s is not a FilterRequest handler, skipping", + handlers[i]->name); + continue; + } + + /* XXX: I fail to see where this feature is used, since + * modperl_filter_add_connection doesn't register request + * filters. may be it'll be still useful when the same + * filter handler is configured to run more than once? + * e.g. snooping filter [stas] */ + f = filters; + while (f) { + const char *fname = f->frec->name; + + /* XXX: I think this won't work as f->frec->name gets + * lowercased when added to the chain */ + if (*fname == 'M' && strEQ(fname, name)) { + modperl_handler_t *ctx_handler = + ((modperl_filter_ctx_t *)f->ctx)->handler; + + if (modperl_handler_equal(ctx_handler, handlers[i])) { + /* skip if modperl_filter_add_connection + * already registered this handler + * XXX: set a flag in the modperl_handler_t instead + */ + registered = 1; + break; + } + } + + f = f->next; + } + + if (registered) { + MP_TRACE_f(MP_FUNC, + "%s %s already registered", + handlers[i]->name, type); + continue; + } + + ctx = (modperl_filter_ctx_t *)apr_pcalloc(r->pool, sizeof(*ctx)); + ctx->handler = handlers[i]; + + f = addfunc(name, (void*)ctx, r, r->connection); + + /* ap_filter_t filter cleanup */ + apr_pool_cleanup_register(r->pool, (void *)f, + modperl_filter_f_cleanup, + apr_pool_cleanup_null); + + if (handlers[i]->attrs & MP_FILTER_HAS_INIT_HANDLER && + handlers[i]->next) { + int status = modperl_run_filter_init( + f, + (idx == MP_INPUT_FILTER_HANDLER + ? MP_INPUT_FILTER_MODE : MP_OUTPUT_FILTER_MODE), + handlers[i]->next); + if (status != OK) { + return status; + } + } + + MP_TRACE_h(MP_FUNC, "%s handler %s configured (%s)", + type, handlers[i]->name, r->uri); + } + + return OK; + } + + MP_TRACE_h(MP_FUNC, "no %s handlers configured (%s)", + type, r->uri); + + return DECLINED; +} + +void modperl_output_filter_add_connection(conn_rec *c) +{ + modperl_filter_add_connection(c, + MP_OUTPUT_FILTER_HANDLER, + MP_FILTER_CONNECTION_OUTPUT_NAME, + ap_add_output_filter, + "OutputFilter"); +} + +void modperl_output_filter_add_request(request_rec *r) +{ + modperl_filter_add_request(r, + MP_OUTPUT_FILTER_HANDLER, + MP_FILTER_REQUEST_OUTPUT_NAME, + ap_add_output_filter, + "OutputFilter", + r->connection->output_filters); +} + +void modperl_input_filter_add_connection(conn_rec *c) +{ + modperl_filter_add_connection(c, + MP_INPUT_FILTER_HANDLER, + MP_FILTER_CONNECTION_INPUT_NAME, + ap_add_input_filter, + "InputFilter"); +} + +void modperl_input_filter_add_request(request_rec *r) +{ + modperl_filter_add_request(r, + MP_INPUT_FILTER_HANDLER, + MP_FILTER_REQUEST_INPUT_NAME, + ap_add_input_filter, + "InputFilter", + r->connection->input_filters); +} + +void modperl_filter_runtime_add(pTHX_ request_rec *r, conn_rec *c, + const char *name, + modperl_filter_mode_e mode, + modperl_filter_add_t addfunc, + SV *callback, const char *type) +{ + apr_pool_t *pool = r ? r->pool : c->pool; + modperl_handler_t *handler = + modperl_handler_new_from_sv(aTHX_ pool, callback); + + if (handler) { + ap_filter_t *f; + modperl_filter_ctx_t *ctx = + (modperl_filter_ctx_t *)apr_pcalloc(pool, sizeof(*ctx)); + + ctx->handler = handler; + f = addfunc(name, (void*)ctx, r, c); + + /* ap_filter_t filter cleanup */ + apr_pool_cleanup_register(pool, (void *)f, + modperl_filter_f_cleanup, + apr_pool_cleanup_null); + + /* has to resolve early so we can check for init functions */ + if (!modperl_mgv_resolve(aTHX_ handler, pool, handler->name, TRUE)) { + Perl_croak(aTHX_ "unable to resolve handler %s\n", + modperl_handler_name(handler)); + } + + /* verify that the filter handler is of the right kind */ + if (r == NULL) { + /* needs to have the FilterConnectionHandler attribute */ + if (!(handler->attrs & MP_FILTER_CONNECTION_HANDLER)) { + Perl_croak(aTHX_ "Can't add connection filter handler '%s' " + "since it doesn't have the " + "FilterConnectionHandler attribute set", + modperl_handler_name(handler)); + } + } + else { + /* needs to have the FilterRequestHandler attribute, but + * since by default request filters are not required to + * have the FilterRequestHandler attribute, croak only if + * some other attribute is set, but not + * FilterRequestHandler */ + if (handler->attrs && + !(handler->attrs & MP_FILTER_REQUEST_HANDLER)) { + Perl_croak(aTHX_ "Can't add request filter handler '%s' " + "since it doesn't have the " + "FilterRequestHandler attribute set", + modperl_handler_name(handler)); + } + } + + if (handler->attrs & MP_FILTER_HAS_INIT_HANDLER && handler->next) { + int status = modperl_run_filter_init(f, mode, handler->next); + if (status != OK) { + modperl_croak(aTHX_ status, strEQ("InputFilter", type) + ? "Apache2::Filter::add_input_filter" + : "Apache2::Filter::add_output_filter"); + } + } + + MP_TRACE_h(MP_FUNC, "%s handler %s configured (connection)", + type, name); + + return; + } + + Perl_croak(aTHX_ "unable to resolve handler 0x%lx\n", + (unsigned long)callback); +} + +void modperl_brigade_dump(apr_bucket_brigade *bb, apr_file_t *file) +{ + apr_bucket *bucket; + int i = 0; +#ifndef WIN32 + if (file == NULL) { + file = modperl_global_get_server_rec()->error_log; + } + + apr_file_printf(file, "dump of brigade 0x%lx\n", (unsigned long)bb); + + for (bucket = APR_BRIGADE_FIRST(bb); + bucket != APR_BRIGADE_SENTINEL(bb); + bucket = APR_BUCKET_NEXT(bucket)) + { + apr_file_printf(file, + " %d: bucket=%s(0x%lx), length=%ld, data=0x%lx\n", + i, bucket->type->name, + (unsigned long)bucket, + (long)bucket->length, + (unsigned long)bucket->data); + /* apr_file_printf(file, " : %s\n", (char *)bucket->data); */ + + i++; + } +#endif +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_filter.h b/2_0_13/src/modules/perl/modperl_filter.h new file mode 100644 index 0000000..939f054 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_filter.h
@@ -0,0 +1,123 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_FILTER_H +#define MODPERL_FILTER_H + +#define MP_FILTER_CONNECTION_OUTPUT_NAME "MODPERL_CONNECTION_OUTPUT" +#define MP_FILTER_CONNECTION_INPUT_NAME "MODPERL_CONNECTION_INPUT" + +#define MP_FILTER_REQUEST_OUTPUT_NAME "MODPERL_REQUEST_OUTPUT" +#define MP_FILTER_REQUEST_INPUT_NAME "MODPERL_REQUEST_INPUT" + +#define MP_FILTER_CONNECTION_HANDLER 0x01 +#define MP_FILTER_REQUEST_HANDLER 0x02 +#define MP_FILTER_HAS_INIT_HANDLER 0x04 +#define MP_FILTER_INIT_HANDLER 0x08 +#define MP_FILTER_HTTPD_HANDLER 0x10 + +typedef ap_filter_t * MP_FUNC_T(modperl_filter_add_t) (const char *, void *, + request_rec *, + conn_rec *); + +/* simple buffer api */ +MP_INLINE apr_status_t modperl_wbucket_pass(modperl_wbucket_t *b, + const char *buf, apr_size_t len, + int add_flush_bucket); + +MP_INLINE apr_status_t modperl_wbucket_flush(modperl_wbucket_t *b, + int add_flush_bucket); + +MP_INLINE apr_status_t modperl_wbucket_write(pTHX_ + modperl_wbucket_t *b, + const char *buf, + apr_size_t *wlen); + +/* generic filter routines */ + +modperl_filter_t *modperl_filter_new(ap_filter_t *f, + apr_bucket_brigade *bb, + modperl_filter_mode_e mode, + ap_input_mode_t input_mode, + apr_read_type_e block, + apr_off_t readbytes); + +modperl_filter_t *modperl_filter_mg_get(pTHX_ SV *obj); + +int modperl_filter_resolve_init_handler(pTHX_ modperl_handler_t *handler, + apr_pool_t *p); + +int modperl_run_filter(modperl_filter_t *filter); + +/* output filters */ +apr_status_t modperl_output_filter_handler(ap_filter_t *f, + apr_bucket_brigade *bb); + +void modperl_output_filter_add_connection(conn_rec *c); + +void modperl_output_filter_add_request(request_rec *r); + +MP_INLINE apr_status_t modperl_output_filter_flush(modperl_filter_t *filter); +MP_INLINE apr_status_t modperl_input_filter_flush(modperl_filter_t *filter); + + +MP_INLINE apr_size_t modperl_output_filter_read(pTHX_ + modperl_filter_t *filter, + SV *buffer, + apr_size_t wanted); + +MP_INLINE apr_status_t modperl_output_filter_write(pTHX_ + modperl_filter_t *filter, + const char *buf, + apr_size_t *len); + +void modperl_brigade_dump(apr_bucket_brigade *bb, apr_file_t *file); + +/* input filters */ +apr_status_t modperl_input_filter_handler(ap_filter_t *f, + apr_bucket_brigade *bb, + ap_input_mode_t input_mode, + apr_read_type_e block, + apr_off_t readbytes); + +void modperl_input_filter_add_connection(conn_rec *c); + +void modperl_input_filter_add_request(request_rec *r); + +MP_INLINE apr_size_t modperl_input_filter_read(pTHX_ + modperl_filter_t *filter, + SV *buffer, + apr_size_t wanted); + +MP_INLINE apr_status_t modperl_input_filter_write(pTHX_ + modperl_filter_t *filter, + const char *buf, + apr_size_t *len); + +void modperl_filter_runtime_add(pTHX_ request_rec *r, conn_rec *c, + const char *name, + modperl_filter_mode_e mode, + modperl_filter_add_t addfunc, + SV *callback, const char *type); + +#endif /* MODPERL_FILTER_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_global.c b/2_0_13/src/modules/perl/modperl_global.c new file mode 100644 index 0000000..750110c --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_global.c
@@ -0,0 +1,312 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +void modperl_global_request_cfg_set(request_rec *r) +{ + MP_dDCFG; + MP_dRCFG; + + /* only if PerlOptions +GlobalRequest and not done already */ + if (MpDirGLOBAL_REQUEST(dcfg) && !MpReqSET_GLOBAL_REQUEST(rcfg)) { + modperl_global_request_set(r); + } +} + +void modperl_global_request_set(request_rec *r) +{ + MP_dRCFG; + request_rec *old_r = NULL; + + /* reset old value, important for subrequests */ + (void)modperl_tls_get_request_rec(&old_r); + modperl_tls_reset_cleanup_request_rec(r->pool, old_r); + + modperl_tls_set_request_rec(r); + + /* so 'PerlOptions +GlobalRequest' doesnt wipe us out */ + MpReqSET_GLOBAL_REQUEST_On(rcfg); +} + +/* get/set */ +request_rec *modperl_global_request(pTHX_ SV *svr) +{ + request_rec *cur = NULL; + apr_status_t status = modperl_tls_get_request_rec(&cur); + if (status != APR_SUCCESS) { + /* an internal problem */ + Perl_croak(aTHX_ "failed to retrieve the request object"); + } + + if (GIMME_V != G_VOID && !cur) { + /* wrong configuration */ + Perl_croak(aTHX_ "Global $r object is not available. Set:\n" + "\tPerlOptions +GlobalRequest\nin httpd.conf"); + } + + if (svr) { + modperl_global_request_obj_set(aTHX_ svr); + } + + return cur; +} + +void modperl_global_request_obj_set(pTHX_ SV *svr) +{ + /* XXX: support sublassing */ + request_rec *r = modperl_sv2request_rec(aTHX_ svr); + modperl_global_request_set(r); +} + +#if MP_THREADED +static apr_status_t modperl_global_cleanup(void *data) +{ + modperl_global_t *global = (modperl_global_t *)data; + + MP_TRACE_g(MP_FUNC, "destroy lock for %s", global->name); + MUTEX_DESTROY(&global->glock); + + return APR_SUCCESS; +} +#endif + +void modperl_global_init(modperl_global_t *global, apr_pool_t *p, + void *data, const char *name) +{ + Zero(global, 1, modperl_global_t); + + global->data = data; + global->name = name; + +#if MP_THREADED + MUTEX_INIT(&global->glock); + + apr_pool_cleanup_register(p, (void *)global, + modperl_global_cleanup, + apr_pool_cleanup_null); +#endif + + MP_TRACE_g(MP_FUNC, "init %s", name); +} + +void modperl_global_lock(modperl_global_t *global) +{ +#if MP_THREADED + MP_TRACE_g(MP_FUNC, "locking %s", global->name); + MUTEX_LOCK(&global->glock); +#endif +} + +void modperl_global_unlock(modperl_global_t *global) +{ +#if MP_THREADED + MP_TRACE_g(MP_FUNC, "unlocking %s", global->name); + MUTEX_UNLOCK(&global->glock); +#endif +} + +void *modperl_global_get(modperl_global_t *global) +{ + return global->data; +} + +void modperl_global_set(modperl_global_t *global, void *data) +{ + global->data = data; +} + +/* hopefully there wont be many of these */ + +#define MP_GLOBAL_IMPL(gname, type) \ + \ +static modperl_global_t MP_global_##gname; \ + \ +void modperl_global_init_##gname(apr_pool_t *p, \ + type gname) \ +{ \ + modperl_global_init(&MP_global_##gname, p, \ + (void *)gname, #gname); \ +} \ + \ +void modperl_global_lock_##gname(void) \ +{ \ + modperl_global_lock(&MP_global_##gname); \ +} \ + \ +void modperl_global_unlock_##gname(void) \ +{ \ + modperl_global_unlock(&MP_global_##gname); \ +} \ + \ +type modperl_global_get_##gname(void) \ +{ \ + return (type ) \ + modperl_global_get(&MP_global_##gname); \ +} \ + \ +void modperl_global_set_##gname(void *data) \ +{ \ + modperl_global_set(&MP_global_##gname, data); \ +} \ + +MP_GLOBAL_IMPL(pconf, apr_pool_t *) +MP_GLOBAL_IMPL(server_rec, server_rec *) + + + + + +/*** anon handlers code ***/ + +static modperl_global_t MP_global_anon_cnt; + +void modperl_global_anon_cnt_init(apr_pool_t *p) +{ + int *data = (int *)apr_pcalloc(p, sizeof(int)); + *data = 0; + modperl_global_init(&MP_global_anon_cnt, p, (void *)data, "anon_cnt"); +} + +int modperl_global_anon_cnt_next(void) +{ + int next; + /* XXX: inline lock/unlock? */ + modperl_global_lock(&MP_global_anon_cnt); + + next = ++*(int *)(MP_global_anon_cnt.data); + + modperl_global_unlock(&MP_global_anon_cnt); + + return next; +} + + + +/*** TLS ***/ + +#if MP_THREADED +static apr_status_t modperl_tls_cleanup(void *data) +{ + return apr_threadkey_private_delete((apr_threadkey_t *)data); +} +#endif + +apr_status_t modperl_tls_create(apr_pool_t *p, modperl_tls_t **key) +{ +#if MP_THREADED + apr_status_t status = apr_threadkey_private_create(key, NULL, p); + apr_pool_cleanup_register(p, (void *)*key, + modperl_tls_cleanup, + apr_pool_cleanup_null); + return status; +#else + *key = apr_pcalloc(p, sizeof(**key)); + return APR_SUCCESS; +#endif +} + +apr_status_t modperl_tls_get(modperl_tls_t *key, void **data) +{ +#if MP_THREADED + if (!key) { + *data = NULL; + return APR_SUCCESS; + } + return apr_threadkey_private_get(data, key); +#else + *data = modperl_global_get((modperl_global_t *)key); + return APR_SUCCESS; +#endif +} + +apr_status_t modperl_tls_set(modperl_tls_t *key, void *data) +{ +#if MP_THREADED + return apr_threadkey_private_set(data, key); +#else + modperl_global_set((modperl_global_t *)key, data); + return APR_SUCCESS; +#endif +} + +typedef struct { + modperl_tls_t *key; + void *data; +} modperl_tls_cleanup_data_t; + +static apr_status_t modperl_tls_reset(void *data) +{ + modperl_tls_cleanup_data_t *cdata = + (modperl_tls_cleanup_data_t *)data; + return modperl_tls_set(cdata->key, cdata->data); +} + +void modperl_tls_reset_cleanup(apr_pool_t *p, modperl_tls_t *key, + void *data) +{ + modperl_tls_cleanup_data_t *cdata = + (modperl_tls_cleanup_data_t *)apr_palloc(p, sizeof(*cdata)); + + cdata->key = key; + cdata->data = data; + + apr_pool_cleanup_register(p, (void *)cdata, + modperl_tls_reset, + apr_pool_cleanup_null); +} + +/* hopefully there wont be many of these either */ + +#define MP_TLS_IMPL(gname, type) \ + \ +static modperl_tls_t *MP_tls_##gname; \ + \ +apr_status_t \ +modperl_tls_create_##gname(apr_pool_t *p) \ +{ \ + return modperl_tls_create(p, &MP_tls_##gname); \ +} \ + \ +apr_status_t modperl_tls_get_##gname(type *data) \ +{ \ + void *ptr; \ + apr_status_t status = \ + modperl_tls_get(MP_tls_##gname, &ptr); \ + *data = (type )ptr; \ + return status; \ +} \ + \ +apr_status_t modperl_tls_set_##gname(void *data) \ +{ \ + return modperl_tls_set(MP_tls_##gname, data); \ +} \ + \ +void modperl_tls_reset_cleanup_##gname(apr_pool_t *p, \ + type data) \ +{ \ + modperl_tls_reset_cleanup(p, MP_tls_##gname, \ + (void *)data); \ +} + +MP_TLS_IMPL(request_rec, request_rec *) + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_global.h b/2_0_13/src/modules/perl/modperl_global.h new file mode 100644 index 0000000..8d4f05a --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_global.h
@@ -0,0 +1,90 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_GLOBAL_H +#define MODPERL_GLOBAL_H + +typedef struct { +#if MP_THREADED + perl_mutex glock; +#endif + int flags; + void *data; + const char *name; +} modperl_global_t; + +#if MP_THREADED +typedef apr_threadkey_t modperl_tls_t; +#else +typedef modperl_global_t modperl_tls_t; +#endif + +void modperl_global_request_cfg_set(request_rec *r); + +request_rec *modperl_global_request(pTHX_ SV *svr); + +void modperl_global_request_set(request_rec *r); + +void modperl_global_request_obj_set(pTHX_ SV *svr); + +void modperl_global_init(modperl_global_t *global, apr_pool_t *p, + void *data, const char *name); + +void modperl_global_lock(modperl_global_t *global); + +void modperl_global_unlock(modperl_global_t *global); + +void *modperl_global_get(modperl_global_t *global); + +void modperl_global_set(modperl_global_t *global, void *data); + +#define MP_GLOBAL_DECL(gname, type) \ + void modperl_global_init_##gname(apr_pool_t *p, type gname); \ + void modperl_global_lock_##gname(void); \ + void modperl_global_unlock_##gname(void); \ + type modperl_global_get_##gname(void); \ + void modperl_global_set_##gname(void *) + +/* modperl_global_get_pconf returns a thread un-safe object */ +MP_GLOBAL_DECL(pconf, apr_pool_t *); + +/* modperl_global_get_server_rec returns a thread un-safe object */ +MP_GLOBAL_DECL(server_rec, server_rec *); + +void modperl_global_anon_cnt_init(apr_pool_t *p); +int modperl_global_anon_cnt_next(void); + +apr_status_t modperl_tls_create(apr_pool_t *p, modperl_tls_t **key); +apr_status_t modperl_tls_get(modperl_tls_t *key, void **data); +apr_status_t modperl_tls_set(modperl_tls_t *key, void *data); +void modperl_tls_reset_cleanup(apr_pool_t *p, modperl_tls_t *key, void *data); + +#define MP_TLS_DECL(gname, type) \ +apr_status_t modperl_tls_create_##gname(apr_pool_t *p); \ +apr_status_t modperl_tls_get_##gname(type *data); \ +apr_status_t modperl_tls_set_##gname(void *data); \ +void modperl_tls_reset_cleanup_##gname(apr_pool_t *p, type data) + +MP_TLS_DECL(request_rec, request_rec *); + +#endif /* MODPERL_GLOBAL_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_gtop.c b/2_0_13/src/modules/perl/modperl_gtop.c new file mode 100644 index 0000000..170cfd1 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_gtop.c
@@ -0,0 +1,154 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +#ifdef MP_USE_GTOP + +static int modperl_gtop_size_string(size_t size, char *size_string) +{ + if (size == (size_t)-1) { + apr_snprintf(size_string, MP_GTOP_SSS, "-"); + } + else if (!size) { + apr_snprintf(size_string, MP_GTOP_SSS, "0k"); + } + else if (size < 1024) { + apr_snprintf(size_string, MP_GTOP_SSS, "1k"); + } + else if (size < 1048576) { + apr_snprintf(size_string, MP_GTOP_SSS, "%dk", + (int)(size + 512) / 1024); + } + else if (size < 103809024) { + apr_snprintf(size_string, MP_GTOP_SSS, "%.1fM", + size / 1048576.0); + } + else { + apr_snprintf(size_string, MP_GTOP_SSS, "%dM", + (int)(size + 524288) / 1048576); + } + + return 1; +} + +static apr_status_t modperl_gtop_exit(void *data) +{ + glibtop_close(); + return APR_SUCCESS; +} + +modperl_gtop_t *modperl_gtop_new(apr_pool_t *p) +{ + modperl_gtop_t *gtop = + (modperl_gtop_t *)apr_pcalloc(p, sizeof(*gtop)); + + gtop->pid = getpid(); + glibtop_init(); + apr_pool_cleanup_register(p, NULL, + modperl_gtop_exit, apr_pool_cleanup_null); + + return gtop; +} + +void modperl_gtop_get_proc_mem_before(modperl_gtop_t *gtop) +{ + glibtop_get_proc_mem(>op->before.proc_mem, gtop->pid); +} + +void modperl_gtop_get_proc_mem_after(modperl_gtop_t *gtop) +{ + glibtop_get_proc_mem(>op->after.proc_mem, gtop->pid); +} + +#define modperl_gtop_diff(item) \ +(gtop->after.item - gtop->before.item) + +#define ss_fmt "size=%s, vsize=%s, resident=%s, share=%s, rss=%s" + +#define SS_TYPE_BEFORE 1 +#define SS_TYPE_AFTER 2 +#define SS_TYPE_DIFF 3 + +/* + * XXX: this is pretty ugly, + * but avoids allocating buffers for the size string + */ +static void modperl_gtop_proc_mem_size_string(modperl_gtop_t *gtop, int type) +{ + int is_diff = (type == SS_TYPE_DIFF); + glibtop_proc_mem *pm = NULL; + + if (!is_diff) { + pm = (type == SS_TYPE_BEFORE) ? + >op->before.proc_mem : >op->after.proc_mem; + } + +#define ss_call(item) \ + modperl_gtop_size_string(is_diff ? \ + modperl_gtop_diff(proc_mem.item) : pm->item, \ + gtop->proc_mem_ss.item) + + ss_call(size); + ss_call(vsize); + ss_call(resident); + ss_call(share); + ss_call(rss); +#undef ss_call +} + +void modperl_gtop_report_proc_mem(modperl_gtop_t *gtop, + char *when, const char *func, char *msg) +{ +#define ss_item(item) gtop->proc_mem_ss.item + + fprintf(stderr, "%s : %s %s: " ss_fmt "\n", + func, (msg ? msg : ""), when, + ss_item(size), + ss_item(vsize), + ss_item(resident), + ss_item(share), + ss_item(rss)); + +#undef ss_item +} + +void modperl_gtop_report_proc_mem_diff(modperl_gtop_t *gtop, const char *func, char *msg) +{ + modperl_gtop_proc_mem_size_string(gtop, SS_TYPE_DIFF); + modperl_gtop_report_proc_mem(gtop, "diff", func, msg); +} + +void modperl_gtop_report_proc_mem_before(modperl_gtop_t *gtop, const char *func, char *msg) +{ + modperl_gtop_proc_mem_size_string(gtop, SS_TYPE_BEFORE); + modperl_gtop_report_proc_mem(gtop, "before", func, msg); +} + +void modperl_gtop_report_proc_mem_after(modperl_gtop_t *gtop, const char *func, char *msg) +{ + modperl_gtop_proc_mem_size_string(gtop, SS_TYPE_AFTER); + modperl_gtop_report_proc_mem(gtop, "after", func, msg); +} + +#endif /* MP_USE_GTOP */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_gtop.h b/2_0_13/src/modules/perl/modperl_gtop.h new file mode 100644 index 0000000..61554de --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_gtop.h
@@ -0,0 +1,81 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_GTOP_H +#define MODPERL_GTOP_H + +#ifndef MP_TRACE +# undef MP_USE_GTOP +#endif + +#ifdef MP_USE_GTOP +/* prevent undef symbol errors (glibtop_error_vr) */ +#define __GLIBTOP_ERROR_H__ +#include <glibtop.h> +#include <glibtop/open.h> +#include <glibtop/close.h> +#ifndef GTOP_2_5_PLUS +#include <glibtop/xmalloc.h> +#endif +#include <glibtop/parameter.h> +#include <glibtop/union.h> +#include <glibtop/sysdeps.h> + +#define MP_GTOP_SSS 16 + +typedef struct { + char size[MP_GTOP_SSS]; + char vsize[MP_GTOP_SSS]; + char resident[MP_GTOP_SSS]; + char share[MP_GTOP_SSS]; + char rss[MP_GTOP_SSS]; +} modperl_gtop_proc_mem_ss; + +typedef struct { + glibtop_union before; + glibtop_union after; + pid_t pid; + modperl_gtop_proc_mem_ss proc_mem_ss; +} modperl_gtop_t; + +modperl_gtop_t *modperl_gtop_new(apr_pool_t *p); +void modperl_gtop_get_proc_mem_before(modperl_gtop_t *gtop); +void modperl_gtop_get_proc_mem_after(modperl_gtop_t *gtop); +void modperl_gtop_report_proc_mem(modperl_gtop_t *gtop, + char *when, const char *func, char *msg); +void modperl_gtop_report_proc_mem_diff(modperl_gtop_t *gtop, const char* func, char *msg); +void modperl_gtop_report_proc_mem_before(modperl_gtop_t *gtop, const char* func, char *msg); +void modperl_gtop_report_proc_mem_after(modperl_gtop_t *gtop, const char* func, char *msg); + +#define modperl_gtop_do_proc_mem_before(func, msg) \ + modperl_gtop_get_proc_mem_before(scfg->gtop); \ + modperl_gtop_report_proc_mem_before(scfg->gtop, func, msg) + +#define modperl_gtop_do_proc_mem_after(func, msg) \ + modperl_gtop_get_proc_mem_after(scfg->gtop); \ + modperl_gtop_report_proc_mem_after(scfg->gtop, func, msg); \ + modperl_gtop_report_proc_mem_diff(scfg->gtop, func, msg) + +#endif /* MP_USE_GTOP */ + +#endif /* MODPERL_GTOP_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_handler.c b/2_0_13/src/modules/perl/modperl_handler.c new file mode 100644 index 0000000..fe935d7 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_handler.c
@@ -0,0 +1,642 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +modperl_handler_t *modperl_handler_new(apr_pool_t *p, const char *name) +{ + modperl_handler_t *handler = + (modperl_handler_t *)apr_pcalloc(p, sizeof(*handler)); + + switch (*name) { + case '+': + ++name; + MpHandlerAUTOLOAD_On(handler); + break; + case '-': + ++name; + /* XXX: currently a noop; should disable autoload of given handler + * if PerlOptions +AutoLoad is configured + * see: modperl_hash_handlers in modperl_mgv.c + */ + MpHandlerAUTOLOAD_Off(handler); + break; + } + + /* not necessary due to apr_pcalloc */ + /* handler->cv = NULL; */ + handler->name = name; + MP_TRACE_h(MP_FUNC, "new handler %s", handler->name); + + return handler; +} + +/* How anon-subs are handled: + * We have two ways anon-subs can be registered + * A) at startup from httpd.conf: + * PerlTransHandler 'sub { ... }' + * B) run-time perl code + * $r->push_handlers(PerlTransHandler => sub { .... }); + * $s->push_handlers(PerlTransHandler => sub { .... }); + * + * In the case of non-threaded perl, we just compile A or grab B and + * store it in the mod_perl struct and call it when it's used. No + * problems here + * + * In the case of threads, things get more complicated. we no longer + * can store the CV value of the compiled anon-sub, since when + * perl_clone is called each interpreter will have a different CV + * value. since we need to be able to have 1 entry for each anon-sub + * across all interpreters a different solution is needed. to remind + * in the case of named subs, we just store the name of the sub and + * look its corresponding CV when we need it. + * + * The used solution: each process has a global counter, which always + * grows. Every time a new anon-sub is encountered, a new ID is + * allocated from that process-global counter and that ID is stored in + * the mod_perl struct. The compiled CV is stored as + * $PL_modglobal{ANONSUB}{$id} = CV; + * when perl_clone is called, each clone will clone that CV value, but + * we will still be able to find it, since we stored it in the + * hash. so we retrieve the CV value, whatever it is and we run it. + * + * that explanation can be written and run in perl: + * + * use threads; + * our %h; + * $h{x} = eval 'sub { print qq[this is sub @_\n] }'; + * $h{x}->("main"); + * threads->new(sub { $h{x}->(threads->self->tid)}); + * + * XXX: more nuances will follow + */ + +void modperl_handler_anon_init(pTHX_ apr_pool_t *p) +{ + modperl_modglobal_key_t *gkey = + modperl_modglobal_lookup(aTHX_ "ANONSUB"); + MP_TRACE_h(MP_FUNC, "init $PL_modglobal{ANONSUB} = []"); + (void)MP_MODGLOBAL_STORE_HV(gkey); +} + +/* allocate and populate the anon handler sub-struct */ +MP_INLINE modperl_mgv_t *modperl_handler_anon_next(pTHX_ apr_pool_t *p) +{ + /* re-use modperl_mgv_t entry which is otherwise is not used + * by anon handlers */ + modperl_mgv_t *anon = + (modperl_mgv_t *)apr_pcalloc(p, sizeof(*anon)); + + anon->name = apr_psprintf(p, "anon%d", modperl_global_anon_cnt_next()); + anon->len = strlen(anon->name); + PERL_HASH(anon->hash, anon->name, anon->len); + + MP_TRACE_h(MP_FUNC, "new anon handler: '%s'", anon->name); + return anon; +} + +MP_INLINE void modperl_handler_anon_add(pTHX_ modperl_mgv_t *anon, CV *cv) +{ + modperl_modglobal_key_t *gkey = + modperl_modglobal_lookup(aTHX_ "ANONSUB"); + HE *he = MP_MODGLOBAL_FETCH(gkey); + HV *hv; + + if (!(he && (hv = (HV*)HeVAL(he)))) { + Perl_croak(aTHX_ "modperl_handler_anon_add: " + "can't find ANONSUB top entry (get)"); + } + + SvREFCNT_inc(cv); + if (!(*hv_store(hv, anon->name, anon->len, (SV*)cv, anon->hash))) { + SvREFCNT_dec(cv); + Perl_croak(aTHX_ "hv_store of anonsub '%s' has failed!", anon->name); + } + + MP_TRACE_h(MP_FUNC, "anonsub '%s' added", anon->name); +} + +MP_INLINE CV *modperl_handler_anon_get(pTHX_ modperl_mgv_t *anon) +{ + modperl_modglobal_key_t *gkey = + modperl_modglobal_lookup(aTHX_ "ANONSUB"); + HE *he = MP_MODGLOBAL_FETCH(gkey); + HV *hv; + SV *sv; + + if (!(he && (hv = (HV*)HeVAL(he)))) { + Perl_croak(aTHX_ "modperl_handler_anon_get: " + "can't find ANONSUB top entry (get)"); + } + + if ((he = hv_fetch_he(hv, anon->name, anon->len, anon->hash))) { + sv = HeVAL(he); + MP_TRACE_h(MP_FUNC, "anonsub gets name '%s'", anon->name); + } + else { + Perl_croak(aTHX_ "can't find ANONSUB's '%s' entry", anon->name); + } + + return (CV*)sv; +} + +static +modperl_handler_t *modperl_handler_new_anon(pTHX_ apr_pool_t *p, CV *cv) +{ + modperl_handler_t *handler = + (modperl_handler_t *)apr_pcalloc(p, sizeof(*handler)); + MpHandlerPARSED_On(handler); + MpHandlerANON_On(handler); + +#ifdef USE_ITHREADS + handler->cv = NULL; + handler->name = NULL; + handler->mgv_obj = modperl_handler_anon_next(aTHX_ p); + modperl_handler_anon_add(aTHX_ handler->mgv_obj, cv); +#else + /* it's safe to cache and later use the cv, since the same perl + * interpeter is always used */ + SvREFCNT_inc((SV*)cv); + handler->cv = cv; + handler->name = NULL; + + MP_TRACE_h(MP_FUNC, "new cached cv anon handler"); +#endif + + return handler; +} + +MP_INLINE +const char *modperl_handler_name(modperl_handler_t *handler) +{ + /* a handler containing an anonymous sub doesn't have a normal sub + * name */ + if (handler->name) { + return handler->name; + } + else { + /* anon sub stores the internal modperl name in mgv_obj */ + return handler->mgv_obj ? handler->mgv_obj->name : "anonsub"; + } +} + + +int modperl_handler_resolve(pTHX_ modperl_handler_t **handp, + apr_pool_t *p, server_rec *s) +{ + int duped=0; + modperl_handler_t *handler = *handp; + +#ifdef USE_ITHREADS + if (modperl_threaded_mpm() && p && + !MpHandlerPARSED(handler) && !MpHandlerDYNAMIC(handler)) { + /* + * under threaded mpm we cannot update the handler structure + * at request time without locking, so just copy it + */ + handler = *handp = modperl_handler_dup(p, handler); + duped = 1; + } +#endif + + MP_TRACE_h_do(MpHandler_dump_flags(handler, + modperl_handler_name(handler))); + + if (!MpHandlerPARSED(handler)) { + apr_pool_t *rp = duped ? p : s->process->pconf; + MpHandlerAUTOLOAD_On(handler); + + MP_TRACE_h(MP_FUNC, + "[%s] handler %s hasn't yet been resolved, " + "attempting to resolve using %s pool 0x%lx", + modperl_server_desc(s, p), + modperl_handler_name(handler), + duped ? "current" : "server conf", + (unsigned long)rp); + + if (!modperl_mgv_resolve(aTHX_ handler, rp, handler->name, FALSE)) { + modperl_errsv_prepend(aTHX_ + "failed to resolve handler `%s': ", + handler->name); + return HTTP_INTERNAL_SERVER_ERROR; + } + } + + return OK; +} + +modperl_handler_t *modperl_handler_dup(apr_pool_t *p, + modperl_handler_t *h) +{ + MP_TRACE_h(MP_FUNC, "dup handler %s", modperl_handler_name(h)); + return modperl_handler_new(p, h->name); +} + +int modperl_handler_equal(modperl_handler_t *h1, modperl_handler_t *h2) +{ + if (h1->mgv_cv && h2->mgv_cv) { + return modperl_mgv_equal(h1->mgv_cv, h2->mgv_cv); + } + return strEQ(h1->name, h2->name); +} + +MpAV *modperl_handler_array_merge(apr_pool_t *p, MpAV *base_a, MpAV *add_a) +{ + int i, j; + modperl_handler_t **base_h, **add_h; + MpAV *mrg_a; + + if (!add_a) { + return base_a; + } + + if (!base_a) { + return add_a; + } + + mrg_a = apr_array_copy(p, base_a); + + base_h = (modperl_handler_t **)base_a->elts; + add_h = (modperl_handler_t **)add_a->elts; + + for (i=0; i<base_a->nelts; i++) { + for (j=0; j<add_a->nelts; j++) { + if (modperl_handler_equal(base_h[i], add_h[j])) { + MP_TRACE_d(MP_FUNC, "both base and new config contain %s", + add_h[j]->name); + } + else { + modperl_handler_array_push(mrg_a, add_h[j]); + MP_TRACE_d(MP_FUNC, "base does not contain %s", + add_h[j]->name); + } + } + } + + return mrg_a; +} + +void modperl_handler_make_args(pTHX_ AV **avp, ...) +{ + va_list args; + + if (!*avp) { + *avp = newAV(); /* XXX: cache an intialized AV* per-request */ + } + + va_start(args, avp); + + for (;;) { + char *classname = va_arg(args, char *); + void *ptr; + SV *sv; + + if (classname == NULL) { + break; + } + + ptr = va_arg(args, void *); + + switch (*classname) { + case 'A': + if (strEQ(classname, "APR::Table")) { + sv = modperl_hash_tie(aTHX_ classname, (SV *)NULL, ptr); + break; + } + case 'I': + if (strEQ(classname, "IV")) { + sv = ptr ? newSViv(PTR2IV(ptr)) : &PL_sv_undef; + break; + } + case 'P': + if (strEQ(classname, "PV")) { + sv = ptr ? newSVpv((char *)ptr, 0) : &PL_sv_undef; + break; + } + case 'H': + if (strEQ(classname, "HV")) { + sv = newRV_noinc((SV*)ptr); + break; + } + default: + sv = modperl_ptr2obj(aTHX_ classname, ptr); + break; + } + + av_push(*avp, sv); + } + + va_end(args); +} + +#define set_desc(dtype) \ + if (desc) *desc = modperl_handler_desc_##dtype(idx) + +/* We should be able to use PERL_GET_CONTEXT here. The rcfg condition + * makes sure there is a request being processed. The action > GET part + * means it is a $r->set_handlers or $r->push_handlers operation. This + * can only happen if called by perl code. + */ +#define check_modify(dtype) \ + if ((action > MP_HANDLER_ACTION_GET) && rcfg) { \ + dTHXa(PERL_GET_CONTEXT); \ + MP_ASSERT(aTHX+0); \ + Perl_croak(aTHX_ "too late to modify %s handlers", \ + modperl_handler_desc_##dtype(idx)); \ + } + +/* + * generic function to lookup handlers for use in modperl_callback(), + * $r->{push,set,get}_handlers, $s->{push,set,get}_handlers + * $s->push/set at startup time are the same as configuring Perl*Handlers + * $r->push/set at request time will create entries in r->request_config + * push will first merge with configured handlers, unless an entry + * in r->request_config already exists. in this case, push or set has + * already been called for the given handler, + * r->request_config entries then override those in r->per_dir_config + */ + +MpAV **modperl_handler_lookup_handlers(modperl_config_dir_t *dcfg, + modperl_config_srv_t *scfg, + modperl_config_req_t *rcfg, + apr_pool_t *p, + int type, int idx, + modperl_handler_action_e action, + const char **desc) +{ + MpAV **avp = NULL, **ravp = NULL; + + switch (type) { + case MP_HANDLER_TYPE_PER_DIR: + avp = &dcfg->handlers_per_dir[idx]; + if (rcfg) { + ravp = &rcfg->handlers_per_dir[idx]; + } + set_desc(per_dir); + break; + case MP_HANDLER_TYPE_PER_SRV: + avp = &scfg->handlers_per_srv[idx]; + if (rcfg) { + ravp = &rcfg->handlers_per_srv[idx]; + } + set_desc(per_srv); + break; + case MP_HANDLER_TYPE_PRE_CONNECTION: + avp = &scfg->handlers_pre_connection[idx]; + check_modify(pre_connection); + set_desc(pre_connection); + break; + case MP_HANDLER_TYPE_CONNECTION: + avp = &scfg->handlers_connection[idx]; + check_modify(connection); + set_desc(connection); + break; + case MP_HANDLER_TYPE_FILES: + avp = &scfg->handlers_files[idx]; + check_modify(files); + set_desc(files); + break; + case MP_HANDLER_TYPE_PROCESS: + avp = &scfg->handlers_process[idx]; + check_modify(files); + set_desc(process); + break; + }; + + if (!avp) { + /* should never happen */ +#if 0 + fprintf(stderr, "PANIC: no such handler type: %d\n", type); +#endif + return NULL; + } + + switch (action) { + case MP_HANDLER_ACTION_GET: + /* just a lookup */ + break; + case MP_HANDLER_ACTION_PUSH: + if (ravp) { + if (!*ravp) { + if (*avp) { + /* merge with existing configured handlers */ + *ravp = apr_array_copy(p, *avp); + } + else { + /* no request handlers have been previously pushed or set */ + *ravp = modperl_handler_array_new(p); + } + } + } + else if (!*avp) { + /* directly modify the configuration at startup time */ + *avp = modperl_handler_array_new(p); + } + break; + case MP_HANDLER_ACTION_SET: + if (ravp) { + if (*ravp) { + /* wipe out existing pushed/set request handlers */ + (*ravp)->nelts = 0; + } + else { + /* no request handlers have been previously pushed or set */ + *ravp = modperl_handler_array_new(p); + } + } + else if (*avp) { + /* wipe out existing configuration, only at startup time */ + (*avp)->nelts = 0; + } + else { + /* no configured handlers for this phase */ + *avp = modperl_handler_array_new(p); + } + break; + } + + return (ravp && *ravp) ? ravp : avp; +} + +MpAV **modperl_handler_get_handlers(request_rec *r, conn_rec *c, server_rec *s, + apr_pool_t *p, const char *name, + modperl_handler_action_e action) +{ + MP_dSCFG(s); + MP_dDCFG; + MP_dRCFG; + + int idx, type; + + if (!r) { + /* so $s->{push,set}_handlers can configured request-time handlers */ + dcfg = modperl_config_dir_get_defaults(s); + } + + if ((idx = modperl_handler_lookup(name, &type)) == DECLINED) { + return FALSE; + } + + return modperl_handler_lookup_handlers(dcfg, scfg, rcfg, p, + type, idx, + action, NULL); +} + +modperl_handler_t *modperl_handler_new_from_sv(pTHX_ apr_pool_t *p, SV *sv) +{ + char *name = NULL; + GV *gv; + + if (SvROK(sv)) { + sv = SvRV(sv); + } + + switch (SvTYPE(sv)) { + case SVt_PV: + name = SvPVX(sv); + return modperl_handler_new(p, apr_pstrdup(p, name)); + break; + case SVt_PVCV: + if (CvANON((CV*)sv)) { + return modperl_handler_new_anon(aTHX_ p, (CV*)sv); + } + if (!(gv = CvGV((CV*)sv))) { + Perl_croak(aTHX_ "can't resolve the code reference"); + } + name = apr_pstrcat(p, HvNAME(GvSTASH(gv)), "::", GvNAME(gv), NULL); + return modperl_handler_new(p, name); + default: + break; + }; + + return NULL; +} + +int modperl_handler_push_handlers(pTHX_ apr_pool_t *p, + MpAV *handlers, SV *sv) +{ + modperl_handler_t *handler = modperl_handler_new_from_sv(aTHX_ p, sv); + + if (handler) { + modperl_handler_array_push(handlers, handler); + return TRUE; + } + + MP_TRACE_h(MP_FUNC, "unable to push_handler 0x%lx", + (unsigned long)sv); + + return FALSE; +} + +/* convert array header of modperl_handlers_t's to AV ref of CV refs */ +SV *modperl_handler_perl_get_handlers(pTHX_ MpAV **handp, apr_pool_t *p) +{ + AV *av = newAV(); + int i; + modperl_handler_t **handlers; + + if (!(handp && *handp)) { + return &PL_sv_undef; + } + + av_extend(av, (*handp)->nelts - 1); + + handlers = (modperl_handler_t **)(*handp)->elts; + + for (i=0; i<(*handp)->nelts; i++) { + modperl_handler_t *handler = NULL; + GV *gv; + + if (MpHandlerPARSED(handlers[i])) { + handler = handlers[i]; + } + else { +#ifdef USE_ITHREADS + if (!MpHandlerDYNAMIC(handlers[i])) { + handler = modperl_handler_dup(p, handlers[i]); + } +#endif + if (!handler) { + handler = handlers[i]; + } + + if (!modperl_mgv_resolve(aTHX_ handler, p, handler->name, TRUE)) { + MP_TRACE_h(MP_FUNC, "failed to resolve handler %s", + handler->name); + } + + } + + if (handler->mgv_cv) { + if ((gv = modperl_mgv_lookup(aTHX_ handler->mgv_cv))) { + CV *cv = modperl_mgv_cv(gv); + av_push(av, newRV_inc((SV*)cv)); + } + } + else { + av_push(av, newSVpv(handler->name, 0)); + } + } + + return newRV_noinc((SV*)av); +} + +#define push_sv_handler \ + if ((modperl_handler_push_handlers(aTHX_ p, *handlers, sv))) { \ + MpHandlerDYNAMIC_On(modperl_handler_array_last(*handlers)); \ + } + +/* allow push/set of single cv ref or array ref of cv refs */ +int modperl_handler_perl_add_handlers(pTHX_ + request_rec *r, + conn_rec *c, + server_rec *s, + apr_pool_t *p, + const char *name, + SV *sv, + modperl_handler_action_e action) +{ + I32 i; + AV *av = (AV *)NULL; + MpAV **handlers = + modperl_handler_get_handlers(r, c, s, + p, name, action); + + if (!(handlers && *handlers)) { + return FALSE; + } + + if (SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVAV)) { + av = (AV*)SvRV(sv); + + for (i=0; i <= AvFILL(av); i++) { + sv = *av_fetch(av, i, FALSE); + push_sv_handler; + } + } + else { + push_sv_handler; + } + + return TRUE; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_handler.h b/2_0_13/src/modules/perl/modperl_handler.h new file mode 100644 index 0000000..af3a8dd --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_handler.h
@@ -0,0 +1,94 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_HANDLER_H +#define MODPERL_HANDLER_H + +typedef enum { + MP_HANDLER_ACTION_GET, + MP_HANDLER_ACTION_PUSH, + MP_HANDLER_ACTION_SET +} modperl_handler_action_e; + +void modperl_handler_anon_init(pTHX_ apr_pool_t *p); +MP_INLINE modperl_mgv_t *modperl_handler_anon_next(pTHX_ apr_pool_t *p); +MP_INLINE void modperl_handler_anon_add(pTHX_ modperl_mgv_t *anon, CV *cv); +MP_INLINE CV *modperl_handler_anon_get(pTHX_ modperl_mgv_t *anon); + +#define modperl_handler_array_new(p) \ +apr_array_make(p, 1, sizeof(modperl_handler_t *)) + +#define modperl_handler_array_push(handlers, h) \ +*(modperl_handler_t **)apr_array_push(handlers) = h + +#define modperl_handler_array_item(handlers, idx) \ +((modperl_handler_t **)(handlers)->elts)[idx] + +#define modperl_handler_array_last(handlers) \ +modperl_handler_array_item(handlers, ((handlers)->nelts - 1)) + +modperl_handler_t *modperl_handler_new(apr_pool_t *p, const char *name); + +modperl_handler_t *modperl_handler_new_from_sv(pTHX_ apr_pool_t *p, SV *sv); + +MP_INLINE const char *modperl_handler_name(modperl_handler_t *handler); + +int modperl_handler_resolve(pTHX_ modperl_handler_t **handp, + apr_pool_t *p, server_rec *s); + +modperl_handler_t *modperl_handler_dup(apr_pool_t *p, + modperl_handler_t *h); + +int modperl_handler_equal(modperl_handler_t *h1, modperl_handler_t *h2); + +MpAV *modperl_handler_array_merge(apr_pool_t *p, MpAV *base_a, MpAV *add_a); + +void modperl_handler_make_args(pTHX_ AV **avp, ...); + +MpAV **modperl_handler_lookup_handlers(modperl_config_dir_t *dcfg, + modperl_config_srv_t *scfg, + modperl_config_req_t *rcfg, + apr_pool_t *p, + int type, int idx, + modperl_handler_action_e action, + const char **desc); + +MpAV **modperl_handler_get_handlers(request_rec *r, conn_rec *c,server_rec *s, + apr_pool_t *p, const char *name, + modperl_handler_action_e action); + +int modperl_handler_push_handlers(pTHX_ apr_pool_t *p, + MpAV *handlers, SV *sv); + +SV *modperl_handler_perl_get_handlers(pTHX_ MpAV **handp, apr_pool_t *p); + +int modperl_handler_perl_add_handlers(pTHX_ + request_rec *r, + conn_rec *c, + server_rec *s, + apr_pool_t *p, + const char *name, + SV *sv, + modperl_handler_action_e action); + +#endif /* MODPERL_HANDLER_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_interp.c b/2_0_13/src/modules/perl/modperl_interp.c new file mode 100644 index 0000000..35f5cea --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_interp.c
@@ -0,0 +1,565 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* + * XXX: this is not the most efficent interpreter pool implementation + * but it will do for proof-of-concept + */ + +#ifdef USE_ITHREADS + +void modperl_interp_clone_init(modperl_interp_t *interp) +{ + dTHXa(interp->perl); + + MpInterpCLONED_On(interp); + + MP_ASSERT_CONTEXT(aTHX); + + /* clear @DynaLoader::dl_librefs so we only dlclose() those + * which are opened by the clone + */ + modperl_xs_dl_handles_clear(aTHX); +} + +modperl_interp_t *modperl_interp_new(modperl_interp_pool_t *mip, + PerlInterpreter *perl) +{ + UV clone_flags = CLONEf_KEEP_PTR_TABLE; + modperl_interp_t *interp = + (modperl_interp_t *)malloc(sizeof(*interp)); + + memset(interp, '\0', sizeof(*interp)); + + interp->mip = mip; + interp->refcnt = 0; + + if (perl) { +#ifdef MP_USE_GTOP + MP_dSCFG(mip->server); + MP_TRACE_m_do( + modperl_gtop_do_proc_mem_before(MP_FUNC, "perl_clone"); + ); +#endif + +#if defined(WIN32) && defined(CLONEf_CLONE_HOST) + clone_flags |= CLONEf_CLONE_HOST; +#endif + + PERL_SET_CONTEXT(perl); + + interp->perl = perl_clone(perl, clone_flags); + + MP_ASSERT_CONTEXT(interp->perl); + + { + PTR_TBL_t *source = modperl_module_config_table_get(perl, FALSE); + if (source) { + PTR_TBL_t *table = modperl_svptr_table_clone(interp->perl, + perl, + source); + + modperl_module_config_table_set(interp->perl, table); + } + } + + /* + * we keep the PL_ptr_table past perl_clone so it can be used + * within modperl_svptr_table_clone. Perl_sv_dup() uses it. + * Don't confuse our svptr_table with Perl's ptr_table. They + * are different things, although they use the same type. + */ + if ((clone_flags & CLONEf_KEEP_PTR_TABLE)) { + dTHXa(interp->perl); + ptr_table_free(PL_ptr_table); + PL_ptr_table = NULL; + } + + modperl_interp_clone_init(interp); + + PERL_SET_CONTEXT(perl); + +#ifdef MP_USE_GTOP + MP_TRACE_m_do( + modperl_gtop_do_proc_mem_after(MP_FUNC, "perl_clone"); + ); +#endif + } + + MP_TRACE_i(MP_FUNC, "0x%lx / perl: 0x%lx / parent perl: 0x%lx", + (unsigned long)interp, (unsigned long)interp->perl, + (unsigned long)perl); + + return interp; +} + +void modperl_interp_destroy(modperl_interp_t *interp) +{ + void **handles; + dTHXa(interp->perl); + + PERL_SET_CONTEXT(interp->perl); + + MP_TRACE_i(MP_FUNC, "interp == 0x%lx / perl: 0x%lx", + (unsigned long)interp, (unsigned long)interp->perl); + + if (MpInterpIN_USE(interp)) { + MP_TRACE_i(MP_FUNC, "*error - still in use!*"); + } + + handles = modperl_xs_dl_handles_get(aTHX); + + modperl_perl_destruct(interp->perl); + + modperl_xs_dl_handles_close(handles); + + free(interp); +} + +apr_status_t modperl_interp_cleanup(void *data) +{ + modperl_interp_destroy((modperl_interp_t *)data); + return APR_SUCCESS; +} + +modperl_interp_t *modperl_interp_get(server_rec *s) +{ + MP_dSCFG(s); + modperl_interp_t *interp = NULL; + modperl_interp_pool_t *mip = scfg->mip; + modperl_list_t *head; + + head = modperl_tipool_pop(mip->tipool); + interp = (modperl_interp_t *)head->data; + + MP_TRACE_i(MP_FUNC, "head == 0x%lx, parent == 0x%lx", + (unsigned long)head, (unsigned long)mip->parent); + + MP_TRACE_i(MP_FUNC, "selected 0x%lx (perl==0x%lx)", + (unsigned long)interp, + (unsigned long)interp->perl); + +#ifdef MP_TRACE + interp->tid = MP_TIDF; + MP_TRACE_i(MP_FUNC, "thread == 0x%lx", interp->tid); +#endif + + MpInterpIN_USE_On(interp); + + return interp; +} + +apr_status_t modperl_interp_pool_destroy(void *data) +{ + modperl_interp_pool_t *mip = (modperl_interp_pool_t *)data; + + if (mip->tipool) { + modperl_tipool_destroy(mip->tipool); + mip->tipool = NULL; + } + + if (MpInterpBASE(mip->parent)) { + /* multiple mips might share the same parent + * make sure its only destroyed once + */ + MP_TRACE_i(MP_FUNC, "parent == 0x%lx", + (unsigned long)mip->parent); + + modperl_interp_destroy(mip->parent); + } + + return APR_SUCCESS; +} + +static void *interp_pool_grow(modperl_tipool_t *tipool, void *data) +{ + modperl_interp_pool_t *mip = (modperl_interp_pool_t *)data; + MP_TRACE_i(MP_FUNC, "adding new interpreter to the pool"); + return (void *)modperl_interp_new(mip, mip->parent->perl); +} + +static void interp_pool_shrink(modperl_tipool_t *tipool, void *data, + void *item) +{ + modperl_interp_destroy((modperl_interp_t *)item); +} + +static void interp_pool_dump(modperl_tipool_t *tipool, void *data, + modperl_list_t *listp) +{ + while (listp) { + modperl_interp_t *interp = (modperl_interp_t *)listp->data; + MP_TRACE_i(MP_FUNC, "listp==0x%lx, interp==0x%lx, requests=%d", + (unsigned long)listp, (unsigned long)interp, + interp->num_requests); + listp = listp->next; + } +} + +static modperl_tipool_vtbl_t interp_pool_func = { + interp_pool_grow, + interp_pool_grow, + interp_pool_shrink, + interp_pool_shrink, + interp_pool_dump, +}; + +void modperl_interp_init(server_rec *s, apr_pool_t *p, + PerlInterpreter *perl) +{ + apr_pool_t *server_pool = modperl_server_pool(); + pTHX; + MP_dSCFG(s); + modperl_interp_pool_t *mip = + (modperl_interp_pool_t *)apr_pcalloc(p, sizeof(*mip)); + + MP_TRACE_i(MP_FUNC, "server=%s", modperl_server_desc(s, p)); + + if (modperl_threaded_mpm()) { + mip->tipool = modperl_tipool_new(p, scfg->interp_pool_cfg, + &interp_pool_func, mip); + } + + mip->server = s; + mip->parent = modperl_interp_new(mip, NULL); + aTHX = mip->parent->perl = perl; + + /* this happens post-config in mod_perl.c:modperl_init_clones() */ + /* modperl_tipool_init(tipool); */ + + apr_pool_cleanup_register(server_pool, (void*)mip, + modperl_interp_pool_destroy, + apr_pool_cleanup_null); + + scfg->mip = mip; +} + +apr_status_t modperl_interp_unselect(void *data) +{ + modperl_interp_t *interp = (modperl_interp_t *)data; + modperl_interp_pool_t *mip = interp->mip; + + MP_ASSERT(interp && MpInterpIN_USE(interp) && interp->refcnt > 0); + MP_TRACE_i(MP_FUNC, "unselect(interp=%pp): refcnt=%d", + interp, interp->refcnt); + + --interp->refcnt; + + if (interp->refcnt > 0) { + MP_TRACE_i(MP_FUNC, "interp=0x%lx, refcnt=%d -- interp still in use", + (unsigned long)interp, interp->refcnt); + return APR_SUCCESS; + } + + if (!MpInterpIN_USE(interp)){ + MP_TRACE_i(MP_FUNC, "interp=0x%pp, refcnt=%d -- interp already not in use", + interp, interp->refcnt); + return APR_SUCCESS; + } + + MpInterpIN_USE_Off(interp); + + modperl_thx_interp_set(interp->perl, NULL); +#ifdef MP_DEBUG + PERL_SET_CONTEXT(NULL); +#endif + + if (interp == mip->parent) { + MP_TRACE_i(MP_FUNC, "parent interp=%pp freed", interp); + } + else { + interp->ccfg->interp = NULL; + modperl_tipool_putback_data(mip->tipool, data, interp->num_requests); + MP_TRACE_i(MP_FUNC, "interp=%pp freed, tipool(size=%ld, in_use=%ld)", + interp, mip->tipool->size, mip->tipool->in_use); + } + + return APR_SUCCESS; +} + +/* XXX: + * interp is marked as in_use for the scope of the pool it is + * stashed in. this is done to avoid the tipool->tlock whenever + * possible. neither approach is ideal. + */ +#define MP_INTERP_KEY "MODPERL_INTERP" + +#define get_interp(p) \ + (void)apr_pool_userdata_get((void **)&interp, MP_INTERP_KEY, p) + +#define set_interp(p) \ + (void)apr_pool_userdata_set((void *)interp, MP_INTERP_KEY, \ + modperl_interp_unselect, \ + p) + +modperl_interp_t *modperl_interp_pool_get(apr_pool_t *p) +{ + modperl_interp_t *interp = NULL; + get_interp(p); + return interp; +} + +void modperl_interp_pool_set(apr_pool_t *p, + modperl_interp_t *interp) +{ + (void)apr_pool_userdata_set((void *)interp, MP_INTERP_KEY, NULL, p); +} + +/* + * used in the case where we don't have a request_rec or conn_rec, + * such as for directive handlers per-{dir,srv} create and merge. + * "request time pool" is most likely a request_rec->pool. + */ +modperl_interp_t *modperl_interp_pool_select(apr_pool_t *p, + server_rec *s) +{ + int is_startup = (p == s->process->pconf); + modperl_interp_t *interp = NULL; + + if (is_startup) { + MP_dSCFG(s); + if (scfg) { + MP_TRACE_i(MP_FUNC, "using parent interpreter at startup"); + + if (!scfg->mip) { + /* we get here if directive handlers are invoked + * before server merge. + */ + modperl_init_vhost(s, p, NULL); + if (!scfg->mip) { + /* FIXME: We get here if global "server_rec" == s, scfg->mip + * is not created then. I'm not sure if that's bug or + * bad/good design decicision. For now just return NULL. + */ + return NULL; + } + } + + interp = scfg->mip->parent; + } + else { + if (!(interp = modperl_interp_pool_get(p))) { + interp = modperl_interp_get(s); + modperl_interp_pool_set(p, interp); + + MP_TRACE_i(MP_FUNC, "set interp %pp in pconf pool %pp", + interp, p); + } + else { + MP_TRACE_i(MP_FUNC, "found interp %pp in pconf pool %pp", + interp, p); + } + } + + MpInterpIN_USE_On(interp); + interp->refcnt++; + /* set context (THX) for this thread */ + PERL_SET_CONTEXT(interp->perl); + /* let the perl interpreter point back to its interp */ + modperl_thx_interp_set(interp->perl, interp); + + return interp; + } + else { + request_rec *r; + apr_pool_userdata_get((void **)&r, "MODPERL_R", p); + MP_ASSERT(r); + MP_TRACE_i(MP_FUNC, "found userdata MODPERL_R in pool %#lx as %lx", + (unsigned long)r->pool, (unsigned long)r); + return modperl_interp_select(r, NULL, NULL); + } +} + +modperl_interp_t *modperl_interp_select(request_rec *r, conn_rec *c, + server_rec *s) +{ + MP_dSCFG((r ? s=r->server : c ? s=c->base_server : s)); + MP_dDCFG; + modperl_config_con_t *ccfg; + const char *desc = NULL; + modperl_interp_t *interp = NULL; + apr_pool_t *p = NULL; + + /* What does the following condition mean? + * (r || c): if true we are at runtime. There is some kind of request + * being processed. + * threaded_mpm: self-explanatory + * + * Thus, it is true if we are either at initialization time or at runtime + * but with prefork-MPM. */ + if (!((r || c) && modperl_threaded_mpm())) { + interp = scfg->mip->parent; + MpInterpIN_USE_On(interp); + interp->refcnt++; + /* XXX: if no VirtualHosts w/ PerlOptions +Parent we can skip this */ + PERL_SET_CONTEXT(interp->perl); + /* let the perl interpreter point back to its interp */ + modperl_thx_interp_set(interp->perl, interp); + + MP_TRACE_i(MP_FUNC, + "using parent 0x%pp (perl=0x%pp) for %s:%d refcnt set to %d", + interp, interp->perl, s->server_hostname, s->port, + interp->refcnt); + return interp; + } + + if(!c) c = r->connection; + ccfg = modperl_config_con_get(c); + + if (ccfg && ccfg->interp) { + ccfg->interp->refcnt++; + + MP_TRACE_i(MP_FUNC, + "found interp 0x%lx in con config, refcnt incremented to %d", + (unsigned long)ccfg->interp, ccfg->interp->refcnt); + /* set context (THX) for this thread */ + PERL_SET_CONTEXT(ccfg->interp->perl); + /* modperl_thx_interp_set() is not called here because the interp + * already belongs to the perl interpreter + */ + return ccfg->interp; + } + + MP_TRACE_i(MP_FUNC, + "fetching interp for %s:%d", s->server_hostname, s->port); + interp = modperl_interp_get(s); + MP_TRACE_i(MP_FUNC, " --> got %pp (perl=%pp)", interp, interp->perl); + ++interp->num_requests; /* should only get here once per request */ + interp->refcnt = 1; + + /* set context (THX) for this thread */ + PERL_SET_CONTEXT(interp->perl); + /* let the perl interpreter point back to its interp */ + modperl_thx_interp_set(interp->perl, interp); + + /* make sure ccfg is initialized */ + modperl_config_con_init(c, ccfg); + ccfg->interp = interp; + interp->ccfg = ccfg; + + MP_TRACE_i(MP_FUNC, + "pulled interp %pp (perl=%pp) from mip, num_requests is %d", + interp, interp->perl, interp->num_requests); + + return interp; +} + +/* currently up to the caller if mip needs locking */ +void modperl_interp_mip_walk(PerlInterpreter *current_perl, + PerlInterpreter *parent_perl, + modperl_interp_pool_t *mip, + modperl_interp_mip_walker_t walker, + void *data) +{ + modperl_list_t *head = mip->tipool ? mip->tipool->idle : NULL; + + if (!current_perl) { + current_perl = PERL_GET_CONTEXT; + } + + if (parent_perl) { + PERL_SET_CONTEXT(parent_perl); + walker(parent_perl, mip, data); + } + + while (head) { + PerlInterpreter *perl = ((modperl_interp_t *)head->data)->perl; + PERL_SET_CONTEXT(perl); + walker(perl, mip, data); + head = head->next; + } + + PERL_SET_CONTEXT(current_perl); +} + +void modperl_interp_mip_walk_servers(PerlInterpreter *current_perl, + server_rec *base_server, + modperl_interp_mip_walker_t walker, + void *data) +{ + server_rec *s = base_server->next; + modperl_config_srv_t *base_scfg = modperl_config_srv_get(base_server); + PerlInterpreter *base_perl = base_scfg->mip->parent->perl; + + modperl_interp_mip_walk(current_perl, base_perl, + base_scfg->mip, walker, data); + + while (s) { + MP_dSCFG(s); + PerlInterpreter *perl = scfg->mip->parent->perl; + modperl_interp_pool_t *mip = scfg->mip; + + /* skip vhosts who share parent perl */ + if (perl == base_perl) { + perl = NULL; + } + + /* skip vhosts who share parent mip */ + if (scfg->mip == base_scfg->mip) { + mip = NULL; + } + + if (perl || mip) { + modperl_interp_mip_walk(current_perl, perl, + mip, walker, data); + } + + s = s->next; + } +} + +#define MP_THX_INTERP_KEY "modperl2::thx_interp_key" +modperl_interp_t *modperl_thx_interp_get(pTHX) +{ + modperl_interp_t *interp; + SV **svp = hv_fetch(PL_modglobal, MP_THX_INTERP_KEY, + strlen(MP_THX_INTERP_KEY), 0); + if (!svp) return NULL; + interp = INT2PTR(modperl_interp_t *, SvIV(*svp)); + return interp; +} + +void modperl_thx_interp_set(pTHX_ modperl_interp_t *interp) +{ + (void)hv_store(PL_modglobal, MP_THX_INTERP_KEY, strlen(MP_THX_INTERP_KEY), + newSViv(PTR2IV(interp)), 0); + return; +} + +#else + +void modperl_interp_init(server_rec *s, apr_pool_t *p, + PerlInterpreter *perl) +{ + MP_dSCFG(s); + scfg->perl = perl; +} + +apr_status_t modperl_interp_cleanup(void *data) +{ + return APR_SUCCESS; +} + +#endif /* USE_ITHREADS */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_interp.h b/2_0_13/src/modules/perl/modperl_interp.h new file mode 100644 index 0000000..f3f4037 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_interp.h
@@ -0,0 +1,158 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_INTERP_H +#define MODPERL_INTERP_H + +void modperl_interp_init(server_rec *s, apr_pool_t *p, + PerlInterpreter *perl); + +apr_status_t modperl_interp_cleanup(void *data); + +#ifdef USE_ITHREADS + +modperl_interp_t *modperl_thx_interp_get(PerlInterpreter *thx); +void modperl_thx_interp_set(PerlInterpreter *thx, modperl_interp_t *interp); + +void modperl_interp_clone_init(modperl_interp_t *interp); + +modperl_interp_t *modperl_interp_new(modperl_interp_pool_t *mip, + PerlInterpreter *perl); + +void modperl_interp_destroy(modperl_interp_t *interp); + +modperl_interp_t *modperl_interp_get(server_rec *s); + +apr_status_t modperl_interp_unselect(void *data); + +modperl_interp_t *modperl_interp_pool_get(apr_pool_t *p); + +void modperl_interp_pool_set(apr_pool_t *p, + modperl_interp_t *interp); + +modperl_interp_t *modperl_interp_pool_select(apr_pool_t *p, + server_rec *s); + +modperl_interp_t *modperl_interp_select(request_rec *r, conn_rec *c, + server_rec *s); + +#define MP_dINTERP pTHX; modperl_interp_t *interp = NULL + +#define MP_INTERPa(r, c, s) \ + MP_TRACE_i(MP_FUNC, "selecting interp: r=%pp, c=%pp, s=%pp", \ + (r), (c), (s)); \ + interp = modperl_interp_select((r), (c), (s)); \ + if (interp) { \ + MP_TRACE_i(MP_FUNC, " --> got (0x%pp)->refcnt=%d, perl=%pp", \ + interp, interp->refcnt, interp->perl); \ + aTHX = interp->perl; \ + } \ + else { \ + aTHX = NULL; \ + MP_TRACE_i(MP_FUNC, " --> failed"); \ + } \ + NOOP + +#define MP_dINTERPa(r, c, s) \ + MP_dINTERP; \ + MP_INTERPa((r), (c), (s)) + +#define MP_INTERP_POOLa(p, s) \ + MP_TRACE_i(MP_FUNC, "selecting interp: p=%pp, s=%pp", (p), (s)); \ + interp = modperl_interp_pool_select((p), (s)); \ + if (interp) { \ + MP_TRACE_i(MP_FUNC, " --> got (0x%pp)->refcnt=%d", \ + interp, interp->refcnt); \ + aTHX = interp->perl; \ + } \ + else { \ + aTHX = NULL; \ + MP_TRACE_i(MP_FUNC, " --> failed"); \ + } \ + NOOP + +#define MP_dINTERP_POOLa(p, s) \ + MP_dINTERP; \ + MP_INTERP_POOLa((p), (s)) + +#ifdef MP_DEBUG +#define MP_INTERP_PUTBACK(interp, thx) \ + MP_TRACE_i(MP_FUNC, "unselecting interp: (0x%pp)->refcnt=%ld", \ + (interp), (interp)->refcnt); \ + modperl_interp_unselect(interp); \ + interp = NULL; \ + if( thx ) thx = NULL +#else /* MP_DEBUG */ +#define MP_INTERP_PUTBACK(interp, thx) \ + modperl_interp_unselect(interp) +#endif + +#define MP_INTERP_REFCNT_inc(interp) (interp)->refcnt++ + +#define MP_INTERP_REFCNT_dec(interp) MP_INTERP_PUTBACK(interp, NULL) + +#define MP_HAS_INTERP(interp) (interp != NULL) + +#define MP_aTHX aTHX + +apr_status_t modperl_interp_pool_destroy(void *data); + +typedef apr_status_t (*modperl_interp_mip_walker_t)(pTHX_ + modperl_interp_pool_t *mip, + void *data); + +void modperl_interp_mip_walk(PerlInterpreter *current_perl, + PerlInterpreter *parent_perl, + modperl_interp_pool_t *mip, + modperl_interp_mip_walker_t walker, + void *data); + +void modperl_interp_mip_walk_servers(PerlInterpreter *current_perl, + server_rec *base_server, + modperl_interp_mip_walker_t walker, + void *data); +#else + +#define MP_dINTERP dNOOP + +#define MP_INTERPa(r, c, s) NOOP + +#define MP_dINTERPa(r, c, s) NOOP + +#define MP_INTERP_POOLa(p, s) NOOP + +#define MP_dINTERP_POOLa(p, s) NOOP + +#define MP_INTERP_PUTBACK(interp, thx) NOOP + +#define MP_INTERP_REFCNT_inc(interp) NOOP + +#define MP_INTERP_REFCNT_dec(interp) NOOP + +#define MP_HAS_INTERP(interp) (1) + +#define MP_aTHX 0 + +#endif /* USE_ITHREADS */ + +#endif /* MODPERL_INTERP_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_io.c b/2_0_13/src/modules/perl/modperl_io.c new file mode 100644 index 0000000..7a0baf0 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_io.c
@@ -0,0 +1,183 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +#define TIEHANDLE(handle,r) \ +modperl_io_handle_tie(aTHX_ handle, "Apache2::RequestRec", (void *)r) + +#define TIED(handle) \ +modperl_io_handle_tied(aTHX_ handle, "Apache2::RequestRec") + +MP_INLINE void modperl_io_handle_tie(pTHX_ GV *handle, + char *classname, void *ptr) +{ + SV *obj = modperl_ptr2obj(aTHX_ classname, ptr); + + modperl_io_handle_untie(aTHX_ handle); + + sv_magic(TIEHANDLE_SV(handle), obj, PERL_MAGIC_tiedscalar, (char *)NULL, 0); + + SvREFCNT_dec(obj); /* since sv_magic did SvREFCNT_inc */ + + MP_TRACE_r(MP_FUNC, "tie *%s(0x%lx) => %s, REFCNT=%d", + GvNAME(handle), (unsigned long)handle, classname, + SvREFCNT(TIEHANDLE_SV(handle))); +} + +MP_INLINE GV *modperl_io_tie_stdin(pTHX_ request_rec *r) +{ +#if defined(MP_IO_TIE_SFIO) + /* XXX */ +#else + dHANDLE("STDIN"); + + if (TIED(handle)) { + return handle; + } + + TIEHANDLE(handle, r); + + return handle; +#endif +} + +MP_INLINE GV *modperl_io_tie_stdout(pTHX_ request_rec *r) +{ +#if defined(MP_IO_TIE_SFIO) + /* XXX */ +#else + dHANDLE("STDOUT"); + + if (TIED(handle)) { + return handle; + } + + IoFLUSH_off(PL_defoutgv); /* $|=0 */ + + TIEHANDLE(handle, r); + + return handle; +#endif +} + +MP_INLINE int modperl_io_handle_tied(pTHX_ GV *handle, char *classname) +{ + MAGIC *mg; + SV *sv = TIEHANDLE_SV(handle); + + if (SvMAGICAL(sv) && (mg = mg_find(sv, PERL_MAGIC_tiedscalar))) { + char *package = HvNAME(SvSTASH((SV*)SvRV(mg->mg_obj))); + + if (!strEQ(package, classname)) { + MP_TRACE_r(MP_FUNC, "%s tied to %s", GvNAME(handle), package); + return TRUE; + } + } + + return FALSE; +} + +MP_INLINE void modperl_io_handle_untie(pTHX_ GV *handle) +{ +#ifdef MP_TRACE + if (mg_find(TIEHANDLE_SV(handle), PERL_MAGIC_tiedscalar)) { + MP_TRACE_r(MP_FUNC, "untie *%s(0x%lx), REFCNT=%d", + GvNAME(handle), (unsigned long)handle, + SvREFCNT(TIEHANDLE_SV(handle))); + } +#endif + + sv_unmagic(TIEHANDLE_SV(handle), PERL_MAGIC_tiedscalar); +} + +MP_INLINE static void +modperl_io_perlio_override_stdhandle(pTHX_ request_rec *r, int mode) +{ + dHANDLE(mode == O_RDONLY ? "STDIN" : "STDOUT"); + int status; + SV *sv = sv_newmortal(); + + MP_TRACE_o(MP_FUNC, "start STD%s", mode == O_RDONLY ? "IN" : "OUT"); + + save_gp(handle, 1); + + sv_setref_pv(sv, "Apache2::RequestRec", (void*)r); + status = do_openn(handle, mode == O_RDONLY ? "<:Apache2" : ">:Apache2", + 9, FALSE, mode, 0, (PerlIO *)NULL, &sv, 1); + if (status == 0) { + Perl_croak(aTHX_ "Failed to open STD%s: %" SVf, + mode == O_RDONLY ? "IN" : "OUT", get_sv("!", TRUE)); + } + + MP_TRACE_o(MP_FUNC, "end STD%s", mode==O_RDONLY ? "IN" : "OUT"); +} + +MP_INLINE static void +modperl_io_perlio_restore_stdhandle(pTHX_ int mode) +{ + GV *handle_orig = gv_fetchpv(mode == O_RDONLY ? "STDIN" : "STDOUT", + FALSE, SVt_PVIO); + + MP_TRACE_o(MP_FUNC, "start STD%s", mode == O_RDONLY ? "IN" : "OUT"); + + /* since closing unflushed STDOUT may trigger a subrequest + * (e.g. via mod_include), resulting in potential another response + * handler call, which may try to close STDOUT too. We will + * segfault, if that subrequest doesn't return before the the top + * level STDOUT is attempted to be closed. To prevent this + * situation always explicitly flush STDOUT, before reopening it. + */ + if (mode != O_RDONLY && + GvIOn(handle_orig) && IoOFP(GvIOn(handle_orig)) && + (PerlIO_flush(IoOFP(GvIOn(handle_orig))) == -1)) { + Perl_croak(aTHX_ "Failed to flush STDOUT: %" SVf, get_sv("!", TRUE)); + } + + /* close the overriding filehandle */ + do_close(handle_orig, FALSE); + + MP_TRACE_o(MP_FUNC, "end STD%s", mode == O_RDONLY ? "IN" : "OUT"); +} + +MP_INLINE GV *modperl_io_perlio_override_stdin(pTHX_ request_rec *r) +{ + modperl_io_perlio_override_stdhandle(aTHX_ r, O_RDONLY); + return NULL; +} + +MP_INLINE GV *modperl_io_perlio_override_stdout(pTHX_ request_rec *r) +{ + modperl_io_perlio_override_stdhandle(aTHX_ r, O_WRONLY); + return NULL; +} + +MP_INLINE void modperl_io_perlio_restore_stdin(pTHX_ GV *handle) +{ + modperl_io_perlio_restore_stdhandle(aTHX_ O_RDONLY); +} + +MP_INLINE void modperl_io_perlio_restore_stdout(pTHX_ GV *handle) +{ + modperl_io_perlio_restore_stdhandle(aTHX_ O_WRONLY); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_io.h b/2_0_13/src/modules/perl/modperl_io.h new file mode 100644 index 0000000..cfb9402 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_io.h
@@ -0,0 +1,84 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_IO_H +#define MODPERL_IO_H + +#include "modperl_io_apache.h" + +/* + * bleedperl change #11639 switch tied handle magic + * from living in the gv to the GvIOp(gv), so we have to deal + * with both to support 5.6.x + */ +#if MP_PERL_VERSION_AT_LEAST(5, 7, 0) +# define TIEHANDLE_SV(handle) (SV*)GvIOp((SV*)handle) +#else +# define TIEHANDLE_SV(handle) (SV*)handle +#endif + +#define dHANDLE(name) GV *handle = gv_fetchpv(name, TRUE, SVt_PVIO) + +#define IoFLUSH_off(gv) \ +IoFLAGS(GvIOp((gv))) &= ~IOf_FLUSH + +#define IoFLUSH_on(gv) \ +IoFLAGS(GvIOp((gv))) |= IOf_FLUSH + +#define IoFLUSH(gv) \ +(IoFLAGS(GvIOp((gv))) & IOf_FLUSH) + +MP_INLINE void modperl_io_handle_tie(pTHX_ GV *handle, + char *classname, void *ptr); +MP_INLINE GV *modperl_io_tie_stdout(pTHX_ request_rec *r); + +MP_INLINE GV *modperl_io_tie_stdin(pTHX_ request_rec *r); + +MP_INLINE int modperl_io_handle_tied(pTHX_ GV *handle, char *classname); + +MP_INLINE void modperl_io_handle_untie(pTHX_ GV *handle); + +MP_INLINE GV *modperl_io_perlio_override_stdin(pTHX_ request_rec *r); + +MP_INLINE GV *modperl_io_perlio_override_stdout(pTHX_ request_rec *r); + +MP_INLINE void modperl_io_perlio_restore_stdin(pTHX_ GV *handle); + +MP_INLINE void modperl_io_perlio_restore_stdout(pTHX_ GV *handle); + +#if defined(MP_IO_TIE_SFIO) + /* XXX */ +#elif defined(MP_IO_TIE_PERLIO) +#define modperl_io_override_stdin modperl_io_perlio_override_stdin +#define modperl_io_override_stdout modperl_io_perlio_override_stdout +#define modperl_io_restore_stdin modperl_io_perlio_restore_stdin +#define modperl_io_restore_stdout modperl_io_perlio_restore_stdout +#else +#define modperl_io_override_stdin modperl_io_tie_stdin +#define modperl_io_override_stdout modperl_io_tie_stdout +#define modperl_io_restore_stdin modperl_io_handle_untie +#define modperl_io_restore_stdout modperl_io_handle_untie +#endif + + +#endif /* MODPERL_IO_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_io_apache.c b/2_0_13/src/modules/perl/modperl_io_apache.c new file mode 100644 index 0000000..c10031c --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_io_apache.c
@@ -0,0 +1,343 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +#ifdef MP_IO_TIE_PERLIO + +/*************************** + * The PerlIO Apache layer * + ***************************/ + +/* PerlIO ":Apache2" layer is used to use the Apache callbacks to read + * from STDIN and write to STDOUT. The PerlIO API is documented in + * perliol.pod */ + +typedef struct { + struct _PerlIO base; + request_rec *r; +} PerlIOApache; + +/* _open just allocates the layer, _pushed does the real job of + * filling the data in */ +static PerlIO * +PerlIOApache_open(pTHX_ PerlIO_funcs *self, PerlIO_list_t *layers, IV n, + const char *mode, int fd, int imode, int perm, + PerlIO *f, int narg, SV **args) +{ + if (!f) { + f = PerlIO_allocate(aTHX); + } + if ( (f = PerlIO_push(aTHX_ f, self, mode, args[0])) ) { + PerlIOBase(f)->flags |= PERLIO_F_OPEN; + } + + MP_TRACE_o(MP_FUNC, "mode %s", mode); + + return f; +} + +/* this callback is used by pushed() and binmode() to add the layer */ +static IV +PerlIOApache_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, + PerlIO_funcs *tab) +{ + IV code; + PerlIOApache *st = PerlIOSelf(f, PerlIOApache); + + if (arg) { + st->r = modperl_sv2request_rec(aTHX_ arg); + MP_TRACE_o(MP_FUNC, "stored request_rec obj: 0x%lx", st->r); + } + else { + Perl_croak(aTHX_"failed to insert the :Apache2 layer. " + "Apache2::RequestRec object argument is required"); + /* XXX: try to get Apache2->request? */ + } + + /* this method also sets the right flags according to the + * 'mode' */ + code = PerlIOBase_pushed(aTHX_ f, mode, (SV *)NULL, tab); + + return code; +} + +static SV * +PerlIOApache_getarg(pTHX_ PerlIO *f, CLONE_PARAMS *param, int flags) +{ + PerlIOApache *st = PerlIOSelf(f, PerlIOApache); + SV *sv; + + if (!st->r) { + Perl_croak(aTHX_ "an attempt to getarg from a stale io handle"); + } + + sv = newSV(0); + sv_setref_pv(sv, "Apache2::RequestRec", (void*)(st->r)); + + MP_TRACE_o(MP_FUNC, "retrieved request_rec obj: 0x%lx", st->r); + + return sv; +} + +static IV +PerlIOApache_fileno(pTHX_ PerlIO *f) +{ + /* XXX: we could return STDIN => 0, STDOUT => 1, but that wouldn't + * be correct, as the IO goes through the socket, may be we should + * return the filedescriptor of the socket? + * + * -1 in this case indicates that the layer cannot provide fileno + */ + MP_TRACE_o(MP_FUNC, "did nothing"); + return -1; +} + +static SSize_t +PerlIOApache_read(pTHX_ PerlIO *f, void *vbuf, Size_t count) +{ + PerlIOApache *st = PerlIOSelf(f, PerlIOApache); + request_rec *r = st->r; + + if (!(PerlIOBase(f)->flags & PERLIO_F_CANREAD) || + PerlIOBase(f)->flags & (PERLIO_F_EOF|PERLIO_F_ERROR)) { + return 0; + } + + return modperl_request_read(aTHX_ r, (char*)vbuf, count); +} + +static SSize_t +PerlIOApache_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) +{ + PerlIOApache *st = PerlIOSelf(f, PerlIOApache); + modperl_config_req_t *rcfg = modperl_config_req_get(st->r); + apr_size_t bytes = 0; + + if (!(PerlIOBase(f)->flags & PERLIO_F_CANWRITE)) { + return 0; + } + + MP_CHECK_WBUCKET_INIT("print"); + + MP_TRACE_o(MP_FUNC, "%4db [%s]", count, + MP_TRACE_STR_TRUNC(rcfg->wbucket->pool, vbuf, count)); + + MP_RUN_CROAK(modperl_wbucket_write(aTHX_ rcfg->wbucket, vbuf, &count), + ":Apache2 IO write"); + + bytes += count; + + return (SSize_t) bytes; +} + +static IV +PerlIOApache_flush(pTHX_ PerlIO *f) +{ + PerlIOApache *st = PerlIOSelf(f, PerlIOApache); + modperl_config_req_t *rcfg; + + if (!st->r) { + Perl_warn(aTHX_ "an attempt to flush a stale IO handle"); + return -1; + } + + /* no flush on readonly io handle */ + if (! (PerlIOBase(f)->flags & PERLIO_F_CANWRITE) ) { + return -1; + } + + rcfg = modperl_config_req_get(st->r); + + MP_CHECK_WBUCKET_INIT("flush"); + + MP_TRACE_o(MP_FUNC, "%4db [%s]", rcfg->wbucket->outcnt, + MP_TRACE_STR_TRUNC(rcfg->wbucket->pool, + rcfg->wbucket->outbuf, + rcfg->wbucket->outcnt)); + + MP_RUN_CROAK_RESET_OK(st->r->server, + modperl_wbucket_flush(rcfg->wbucket, FALSE), + ":Apache2 IO flush"); + + return 0; +} + +/* 5.8.0 doesn't export PerlIOBase_noop_fail, so we duplicate it here */ +static IV PerlIOApache_noop_fail(pTHX_ PerlIO *f) +{ + return -1; +} + +static IV +PerlIOApache_close(pTHX_ PerlIO *f) +{ + IV code = PerlIOBase_close(aTHX_ f); + PerlIOApache *st = PerlIOSelf(f, PerlIOApache); + + MP_TRACE_o(MP_FUNC, "done with request_rec obj: 0x%lx", st->r); + /* prevent possible bugs where a stale r will be attempted to be + * reused (e.g. dupped filehandle) */ + st->r = NULL; + + return code; +} + +static IV +PerlIOApache_popped(pTHX_ PerlIO *f) +{ + /* XXX: just temp for tracing */ + MP_TRACE_o(MP_FUNC, "done"); + return PerlIOBase_popped(aTHX_ f); +} + + +static PerlIO_funcs PerlIO_Apache = { + sizeof(PerlIO_funcs), + "Apache2", + sizeof(PerlIOApache), + PERLIO_K_MULTIARG | PERLIO_K_RAW, + PerlIOApache_pushed, + PerlIOApache_popped, + PerlIOApache_open, + PerlIOBase_binmode, + PerlIOApache_getarg, + PerlIOApache_fileno, + PerlIOBase_dup, + PerlIOApache_read, + PerlIOBase_unread, + PerlIOApache_write, + NULL, /* can't seek on STD{IN|OUT}, fail on call*/ + NULL, /* can't tell on STD{IN|OUT}, fail on call*/ + PerlIOApache_close, + PerlIOApache_flush, + PerlIOApache_noop_fail, /* fill */ + PerlIOBase_eof, + PerlIOBase_error, + PerlIOBase_clearerr, + PerlIOBase_setlinebuf, + NULL, /* get_base */ + NULL, /* get_bufsiz */ + NULL, /* get_ptr */ + NULL, /* get_cnt */ + NULL, /* set_ptrcnt */ +}; + +/* ***** End of PerlIOApache tab ***** */ + +MP_INLINE void modperl_io_apache_init(pTHX) +{ + PerlIO_define_layer(aTHX_ &PerlIO_Apache); +} + +#endif /* defined MP_IO_TIE_PERLIO */ + +/****** Other request IO functions *******/ + + +MP_INLINE SSize_t modperl_request_read(pTHX_ request_rec *r, + char *buffer, Size_t len) +{ + SSize_t total = 0; + Size_t wanted = len; + int seen_eos = 0; + char *tmp = buffer; + apr_bucket_brigade *bb; + + if (len <= 0) { + return 0; + } + + bb = apr_brigade_create(r->pool, r->connection->bucket_alloc); + if (bb == NULL) { + r->connection->keepalive = AP_CONN_CLOSE; + Perl_croak(aTHX_ "failed to create bucket brigade"); + } + + do { + apr_size_t read; + apr_status_t rc; + + rc = ap_get_brigade(r->input_filters, bb, AP_MODE_READBYTES, + APR_BLOCK_READ, len); + if (rc != APR_SUCCESS) { + /* if we fail here, we want to stop trying to read data + * from the client. + */ + r->connection->keepalive = AP_CONN_CLOSE; + apr_brigade_destroy(bb); + modperl_croak(aTHX_ rc, "Apache2::RequestIO::read"); + } + + /* If this fails, it means that a filter is written + * incorrectly and that it needs to learn how to properly + * handle APR_BLOCK_READ requests by returning data when + * requested. + */ + if (APR_BRIGADE_EMPTY(bb)) { + apr_brigade_destroy(bb); + /* we can't tell which filter is broken, since others may + * just pass data through */ + Perl_croak(aTHX_ "Apache2::RequestIO::read: " + "Aborting read from client. " + "One of the input filters is broken. " + "It returned an empty bucket brigade for " + "the APR_BLOCK_READ mode request"); + } + + if (APR_BUCKET_IS_EOS(APR_BRIGADE_LAST(bb))) { + seen_eos = 1; + } + + read = len; + rc = apr_brigade_flatten(bb, tmp, &read); + if (rc != APR_SUCCESS) { + apr_brigade_destroy(bb); + modperl_croak(aTHX_ rc, "Apache2::RequestIO::read"); + } + + total += read; + tmp += read; + len -= read; + + /* XXX: what happens if the downstream filter returns more + * data than the caller has asked for? We can't return more + * data than requested, so it needs to be stored somewhere and + * dealt with on the subsequent calls to this function. or may + * be we should just assert, blaming a bad filter. at the + * moment I couldn't find a spec telling whether it's wrong + * for the filter to return more data than it was asked for in + * the AP_MODE_READBYTES mode. + */ + + apr_brigade_cleanup(bb); + + } while (len > 0 && !seen_eos); + + apr_brigade_destroy(bb); + + MP_TRACE_o(MP_FUNC, "wanted %db, read %db [%s]", wanted, total, + MP_TRACE_STR_TRUNC(r->pool, buffer, total)); + + return total; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_io_apache.h b/2_0_13/src/modules/perl/modperl_io_apache.h new file mode 100644 index 0000000..a372222 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_io_apache.h
@@ -0,0 +1,67 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_IO_APACHE_H +#define MODPERL_IO_APACHE_H + +#ifdef PERLIO_LAYERS + +#include "perliol.h" +/* XXX: should this be a Makefile.PL config option? */ +#define MP_IO_TIE_PERLIO + +#include "apr_portable.h" +#include "apr_file_io.h" +#include "apr_errno.h" + +typedef enum { + MODPERL_IO_APACHE_HOOK_READ, + MODPERL_IO_APACHE_HOOK_WRITE +} modperl_io_apache_hook_e; + +#define PERLIO_Apache_DEBUG + +MP_INLINE void modperl_io_apache_init(pTHX); + +#else /* #ifdef PERLIO_LAYERS */ + +#define modperl_io_apache_init(pTHX) + +#endif /* #ifdef PERLIO_LAYERS */ + +/** + * read 'len' bytes from the request record 'r' into 'buffer' + * + * this call will block until all 'len' bytes are read, eof is reached + * or will return an error otherwise + * + * @param r request record + * @param buffer preallocated buffer of size 'len' to store the data in + * @param len how many bytes to read + * @return how many bytes were read, + * -1 on error (in which case ERRSV ($!) is set) + */ +MP_INLINE SSize_t modperl_request_read(pTHX_ request_rec *r, + char *buffer, Size_t len); + +#endif /* MODPERL_IO_APACHE_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_log.c b/2_0_13/src/modules/perl/modperl_log.c new file mode 100644 index 0000000..a806e00 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_log.c
@@ -0,0 +1,24 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "modperl_log.h" + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_log.h b/2_0_13/src/modules/perl/modperl_log.h new file mode 100644 index 0000000..7e5f303 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_log.h
@@ -0,0 +1,54 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_LOG_H +#define MODPERL_LOG_H + +#include "modperl_common_log.h" +#include "modperl_apache_includes.h" + +#define modperl_trace_level_set_apache(s, level) \ + modperl_trace_level_set(s->error_log, level); + +#define modperl_log_warn(s, msg) \ + ap_log_error(APLOG_MARK, APLOG_WARNING, 0, s, "%s", msg) + +#define modperl_log_error(s, msg) \ + ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, "%s", msg) + +#define modperl_log_notice(s, msg) \ + ap_log_error(APLOG_MARK, APLOG_NOTICE, 0, s, "%s", msg) + +#define modperl_log_debug(s, msg) \ + ap_log_error(APLOG_MARK, APLOG_DEBUG, 0, s, "%s", msg) + +#define modperl_log_reason(r, msg, file) \ + ap_log_error(APLOG_MARK, APLOG_ERR, 0, r->server, \ + "access to %s failed for %s, reason: %s", \ + file, \ + ap_get_remote_host(r->connection, \ + r->per_dir_config, REMOTE_NAME, \ + NULL), \ + msg) + +#endif /* MODPERL_LOG_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_mgv.c b/2_0_13/src/modules/perl/modperl_mgv.c new file mode 100644 index 0000000..c6286f0 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_mgv.c
@@ -0,0 +1,541 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* + * mgv = ModPerl Glob Value || Mostly Glob Value + * as close to GV as we can get without actually using a GV + * need config structures to be free of Perl structures + */ + +#define modperl_mgv_new_w_name(mgv, p, n, copy) \ + mgv = modperl_mgv_new(p); \ + mgv->len = strlen(n); \ + mgv->name = (copy ? apr_pstrndup(p, n, mgv->len) : n) + +#define modperl_mgv_new_name(mgv, p, n) \ + modperl_mgv_new_w_name(mgv, p, n, 1) + +#define modperl_mgv_new_namen(mgv, p, n) \ + modperl_mgv_new_w_name(mgv, p, n, 0) + +int modperl_mgv_equal(modperl_mgv_t *mgv1, + modperl_mgv_t *mgv2) +{ + for (; mgv1 && mgv2; mgv1=mgv1->next, mgv2=mgv2->next) { + if (mgv1->hash != mgv2->hash) { + return FALSE; + } + if (mgv1->len != mgv2->len) { + return FALSE; + } + if (memNE(mgv1->name, mgv2->name, mgv1->len)) { + return FALSE; + } + } + + return TRUE; +} + +modperl_mgv_t *modperl_mgv_new(apr_pool_t *p) +{ + return (modperl_mgv_t *)apr_pcalloc(p, sizeof(modperl_mgv_t)); +} + +#define modperl_mgv_get_next(mgv) \ + if (mgv->name) { \ + mgv->next = modperl_mgv_new(p); \ + mgv = mgv->next; \ + } + +#define modperl_mgv_hash(mgv) \ + PERL_HASH(mgv->hash, mgv->name, mgv->len) + /* MP_TRACE_h(MP_FUNC, "%s...hash=%ld", mgv->name, mgv->hash) */ + +modperl_mgv_t *modperl_mgv_compile(pTHX_ apr_pool_t *p, + register const char *name) +{ + register const char *namend; + I32 len; + modperl_mgv_t *symbol = modperl_mgv_new(p); + modperl_mgv_t *mgv = symbol; + + /* @mgv = split '::', $name */ + for (namend = name; *namend; namend++) { + if (*namend == ':' && namend[1] == ':') { + if ((len = (namend - name)) > 0) { + modperl_mgv_get_next(mgv); + mgv->name = apr_palloc(p, len+3); + Copy(name, mgv->name, len, char); + mgv->name[len++] = ':'; + mgv->name[len++] = ':'; + mgv->name[len] = '\0'; + mgv->len = len; + modperl_mgv_hash(mgv); + } + name = namend + 2; + } + } + + modperl_mgv_get_next(mgv); + + mgv->len = namend - name; + mgv->name = apr_pstrndup(p, name, mgv->len); + modperl_mgv_hash(mgv); + + return symbol; +} + +void modperl_mgv_append(pTHX_ apr_pool_t *p, modperl_mgv_t *symbol, + const char *name) +{ + modperl_mgv_t *mgv = symbol; + + while (mgv->next) { + mgv = mgv->next; + } + + mgv->name = apr_pstrcat(p, mgv->name, "::", NULL); + mgv->len += 2; + modperl_mgv_hash(mgv); + + mgv->next = modperl_mgv_compile(aTHX_ p, name); +} + +/* faster replacement for gv_fetchpv() */ +GV *modperl_mgv_lookup(pTHX_ modperl_mgv_t *symbol) +{ + HV *stash = PL_defstash; + modperl_mgv_t *mgv; + + if (!symbol->hash) { + /* special case for MyClass->handler */ + return (GV*)sv_2mortal(newSVpvn(symbol->name, symbol->len)); + } + + for (mgv = symbol; mgv; mgv = mgv->next) { + HE *he = hv_fetch_he(stash, mgv->name, mgv->len, mgv->hash); + if (he) { + if (mgv->next) { + stash = GvHV((GV *)HeVAL(he)); + } + else { + return (GV *)HeVAL(he); + } + } + else { + return (GV *)NULL; + } + } + + return (GV *)NULL; +} + +#ifdef USE_ITHREADS +MP_INLINE GV *modperl_mgv_lookup_autoload(pTHX_ modperl_mgv_t *symbol, + server_rec *s, apr_pool_t *p) +{ + MP_dSCFG(s); + GV *gv = modperl_mgv_lookup(aTHX_ symbol); + + if (gv || !MpSrvPARENT(scfg)) { + return gv; + } + + /* + * this VirtualHost has its own parent interpreter + * must require the module again with this server's THX + */ + modperl_mgv_require_module(aTHX_ symbol, s, p); + + return modperl_mgv_lookup(aTHX_ symbol); +} +#else +MP_INLINE GV *modperl_mgv_lookup_autoload(pTHX_ modperl_mgv_t *symbol, + server_rec *s, apr_pool_t *p) +{ + return modperl_mgv_lookup(aTHX_ symbol); +} +#endif + +/* currently used for complex filters attributes parsing */ +/* XXX: may want to generalize it for any handlers */ +#define MODPERL_MGV_DEEP_RESOLVE(handler, p) \ + if (handler->attrs & MP_FILTER_HAS_INIT_HANDLER) { \ + modperl_filter_resolve_init_handler(aTHX_ handler, p); \ + } + +int modperl_mgv_resolve(pTHX_ modperl_handler_t *handler, + apr_pool_t *p, const char *name, int logfailure) +{ + CV *cv; + GV *gv; + HV *stash = (HV *)NULL; + char *handler_name = "handler"; + char *tmp; + + if (MpHandlerANON(handler)) { + /* already resolved anonymous handler */ + return 1; + } + + if (strnEQ(name, "sub ", 4)) { + SV *sv; + CV *cv; + MpHandlerPARSED_On(handler); + MpHandlerANON_On(handler); + + ENTER;SAVETMPS; + sv = eval_pv(name, TRUE); + if (!(SvROK(sv) && (cv = (CV*)SvRV(sv)) && (CvFLAGS(cv) & CVf_ANON))) { + + Perl_croak(aTHX_ "expected anonymous sub, got '%s'\n", name); + } + +#ifdef USE_ITHREADS + handler->cv = NULL; + handler->name = NULL; + handler->mgv_obj = modperl_handler_anon_next(aTHX_ p); + modperl_handler_anon_add(aTHX_ handler->mgv_obj, cv); + MP_TRACE_h(MP_FUNC, "new anon handler"); +#else + SvREFCNT_inc(cv); + handler->cv = cv; + handler->name = NULL; + MP_TRACE_h(MP_FUNC, "new cached-cv anon handler"); +#endif + + FREETMPS;LEAVE; + + return 1; + } + + if ((tmp = strstr((char *)name, "->"))) { + int package_len = strlen(name) - strlen(tmp); + char *package = apr_pstrndup(p, name, package_len); + + name = package; + handler_name = &tmp[2]; + + MpHandlerMETHOD_On(handler); + + if (*package == '$') { + GV *gv; + SV *obj; + + handler->mgv_obj = modperl_mgv_compile(aTHX_ p, package + 1); + gv = modperl_mgv_lookup(aTHX_ handler->mgv_obj); + obj = gv ? GvSV(gv) : (SV *)NULL; + + if (SvTRUE(obj)) { + if (SvROK(obj) && sv_isobject(obj)) { + stash = SvSTASH(SvRV(obj)); + MpHandlerOBJECT_On(handler); + MP_TRACE_h(MP_FUNC, "handler object %s isa %s", + package, HvNAME(stash)); + } + else { + MP_TRACE_h(MP_FUNC, "%s is not an object, pv=%s", + package, SvPV_nolen(obj)); + return 0; + } + } + else { + MP_TRACE_h(MP_FUNC, "failed to thaw %s", package); + return 0; + } + } + + if (!stash) { + if ((stash = gv_stashpvn(package, package_len, FALSE))) { + MP_TRACE_h(MP_FUNC, "handler method %s isa %s", + name, HvNAME(stash)); + } + } + } + else { + if ((cv = get_cv(name, FALSE))) { + handler->attrs = *modperl_code_attrs(aTHX_ cv); + handler->mgv_cv = + modperl_mgv_compile(aTHX_ p, HvNAME(GvSTASH(CvGV(cv)))); + modperl_mgv_append(aTHX_ p, handler->mgv_cv, GvNAME(CvGV(cv))); + MpHandlerPARSED_On(handler); + MODPERL_MGV_DEEP_RESOLVE(handler, p); + return 1; + } + } + + if (!stash && MpHandlerAUTOLOAD(handler)) { + if (!modperl_perl_module_loaded(aTHX_ name)) { /* not in %INC */ + MP_TRACE_h(MP_FUNC, + "package %s not in %INC, attempting to load it", + name); + + if (modperl_require_module(aTHX_ name, logfailure)) { + MP_TRACE_h(MP_FUNC, "loaded %s package", name); + } + else { + if (logfailure) { + /* the caller doesn't handle the error checking */ + Perl_croak(aTHX_ "failed to load %s package\n", name); + } + else { + /* the caller handles the error checking */ + MP_TRACE_h(MP_FUNC, "failed to load %s package", name); + return 0; + } + } + } + else { + MP_TRACE_h(MP_FUNC, "package %s seems to be loaded", name); + } + } + + /* try to lookup the stash only after loading the module, to avoid + * the case where a stash is autovivified by a user before the + * module was loaded, preventing from loading the module + */ + if (!(stash || (stash = gv_stashpv(name, FALSE)))) { + MP_TRACE_h(MP_FUNC, "%s's stash is not found", name); + return 0; + } + + if ((gv = gv_fetchmethod(stash, handler_name)) && (cv = GvCV(gv))) { + if (CvFLAGS(cv) & CVf_METHOD) { /* sub foo : method {}; */ + MpHandlerMETHOD_On(handler); + } + + if (!stash) { + return 0; + } + + + if (MpHandlerMETHOD(handler) && !handler->mgv_obj) { + char *name = HvNAME(stash); + if (!name) { + name = ""; + } + modperl_mgv_new_name(handler->mgv_obj, p, name); + } + + handler->attrs = *modperl_code_attrs(aTHX_ cv); + /* note: this is the real function after @ISA lookup */ + handler->mgv_cv = modperl_mgv_compile(aTHX_ p, HvNAME(GvSTASH(gv))); + modperl_mgv_append(aTHX_ p, handler->mgv_cv, handler_name); + + MpHandlerPARSED_On(handler); + MP_TRACE_h(MP_FUNC, "found `%s' in class `%s' as a %s", + handler_name, HvNAME(stash), + MpHandlerMETHOD(handler) ? "method" : "function"); + MODPERL_MGV_DEEP_RESOLVE(handler, p); + return 1; + } + + /* at least modperl_hash_handlers needs to verify that an + * autoloaded-marked handler needs to be loaded, since it doesn't + * check success failure, and handlers marked to be autoloaded are + * the same as PerlModule and the failure should be fatal */ + if (MpHandlerAUTOLOAD(handler)) { + Perl_croak(aTHX_ "failed to resolve handler %s\n", name); + } + +#ifdef MP_TRACE + /* complain only if the class was actually loaded/created */ + if (stash) { + MP_TRACE_h(MP_FUNC, "`%s' not found in class `%s'", + handler_name, name); + } +#endif + + return 0; +} + +modperl_mgv_t *modperl_mgv_last(modperl_mgv_t *symbol) +{ + while (symbol->next) { + symbol = symbol->next; + } + + return symbol; +} + +char *modperl_mgv_last_name(modperl_mgv_t *symbol) +{ + symbol = modperl_mgv_last(symbol); + return symbol->name; +} + +char *modperl_mgv_as_string(pTHX_ modperl_mgv_t *symbol, + apr_pool_t *p, int package) +{ + char *string, *ptr; + modperl_mgv_t *mgv; + int len = 0; + + for (mgv = symbol; (package ? mgv->next : mgv); mgv = mgv->next) { + len += mgv->len; + } + + ptr = string = apr_palloc(p, len+1); + + for (mgv = symbol; (package ? mgv->next : mgv); mgv = mgv->next) { + Copy(mgv->name, ptr, mgv->len, char); + ptr += mgv->len; + } + + if (package) { + *(ptr-2) = '\0'; /* trim trailing :: */ + } + else { + *ptr = '\0'; + } + + return string; +} + +#ifdef USE_ITHREADS +int modperl_mgv_require_module(pTHX_ modperl_mgv_t *symbol, + server_rec *s, apr_pool_t *p) +{ + char *package = + modperl_mgv_as_string(aTHX_ symbol, p, 1); + + if (modperl_require_module(aTHX_ package, TRUE)) { + MP_TRACE_h(MP_FUNC, "reloaded %s for server %s", + package, modperl_server_desc(s, p)); + return TRUE; + } + + return FALSE; +} +#endif + +/* precompute the hash(es) for handler names, preload handlers + * configured to be autoloaded */ +static void modperl_hash_handlers(pTHX_ apr_pool_t *p, server_rec *s, + MpAV *entry, void *data) +{ + MP_dSCFG(s); + int i; + modperl_handler_t **handlers; + + if (!entry) { + return; + } + + handlers = (modperl_handler_t **)entry->elts; + + for (i=0; i < entry->nelts; i++) { + modperl_handler_t *handler = handlers[i]; + + if (MpHandlerFAKE(handler)) { + /* do nothing with fake handlers */ + } + else if (MpHandlerPARSED(handler)) { +#ifdef USE_ITHREADS + if ((MpSrvPARENT(scfg) && MpSrvAUTOLOAD(scfg)) + && !modperl_mgv_lookup(aTHX_ handler->mgv_cv)) { + /* + * this VirtualHost has its own parent interpreter + * must require the module again with this server's THX + */ + modperl_mgv_require_module(aTHX_ handler->mgv_cv, + s, p); + } +#endif + MP_TRACE_h(MP_FUNC, "%s already resolved in server %s", + modperl_handler_name(handler), + modperl_server_desc(s, p)); + } + else { + if (MpSrvAUTOLOAD(scfg)) { + MpHandlerAUTOLOAD_On(handler); + } + + modperl_mgv_resolve(aTHX_ handler, p, handler->name, TRUE); + } + } +} + +static int modperl_hash_handlers_dir(apr_pool_t *p, server_rec *s, + void *cfg, char *d, void *data) +{ + int i; + modperl_config_dir_t *dir_cfg = (modperl_config_dir_t *)cfg; + dTHXa(data); + + if (!dir_cfg) { + return 1; + } + + for (i=0; i < MP_HANDLER_NUM_PER_DIR; i++) { + modperl_hash_handlers(aTHX_ p, s, dir_cfg->handlers_per_dir[i], data); + } + + return 1; +} + +static int modperl_hash_handlers_srv(apr_pool_t *p, server_rec *s, + void *cfg, void *data) +{ + int i; + modperl_config_srv_t *scfg = (modperl_config_srv_t *)cfg; + dTHXa(data); + + for (i=0; i < MP_HANDLER_NUM_PER_SRV; i++) { + modperl_hash_handlers(aTHX_ p, s, + scfg->handlers_per_srv[i], data); + } + + for (i=0; i < MP_HANDLER_NUM_PROCESS; i++) { + modperl_hash_handlers(aTHX_ p, s, + scfg->handlers_process[i], data); + } + + for (i=0; i < MP_HANDLER_NUM_CONNECTION; i++) { + modperl_hash_handlers(aTHX_ p, s, + scfg->handlers_connection[i], data); + } + + for (i=0; i < MP_HANDLER_NUM_FILES; i++) { + modperl_hash_handlers(aTHX_ p, s, + scfg->handlers_files[i], data); + } + + return 1; +} + +void modperl_mgv_hash_handlers(apr_pool_t *p, server_rec *s) +{ + MP_dINTERPa(NULL, NULL, s); + ap_pcw_walk_config(p, s, &perl_module, +#ifdef USE_ITHREADS + aTHX, +#else + NULL, +#endif + modperl_hash_handlers_dir, + modperl_hash_handlers_srv); + MP_INTERP_PUTBACK(interp, aTHX); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_mgv.h b/2_0_13/src/modules/perl/modperl_mgv.h new file mode 100644 index 0000000..50ce5b8 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_mgv.h
@@ -0,0 +1,65 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_MGV_H +#define MODPERL_MGV_H + +modperl_mgv_t *modperl_mgv_new(apr_pool_t *p); + +int modperl_mgv_equal(modperl_mgv_t *mgv1, + modperl_mgv_t *mgv2); + +modperl_mgv_t *modperl_mgv_compile(pTHX_ apr_pool_t *p, const char *name); + +GV *modperl_mgv_lookup(pTHX_ modperl_mgv_t *symbol); + +GV *modperl_mgv_lookup_autoload(pTHX_ modperl_mgv_t *symbol, + server_rec *s, apr_pool_t *p); + +int modperl_mgv_resolve(pTHX_ modperl_handler_t *handler, + apr_pool_t *p, const char *name, int logfailure); + +void modperl_mgv_append(pTHX_ apr_pool_t *p, modperl_mgv_t *symbol, + const char *name); + +modperl_mgv_t *modperl_mgv_last(modperl_mgv_t *symbol); + +char *modperl_mgv_last_name(modperl_mgv_t *symbol); + +char *modperl_mgv_as_string(pTHX_ modperl_mgv_t *symbol, + apr_pool_t *p, int package); + +#ifdef USE_ITHREADS +int modperl_mgv_require_module(pTHX_ modperl_mgv_t *symbol, + server_rec *s, apr_pool_t *p); +#endif + +void modperl_mgv_hash_handlers(apr_pool_t *p, server_rec *s); + +#define modperl_mgv_sv(sv) \ +(isGV(sv) ? GvSV(sv) : (SV*)sv) + +#define modperl_mgv_cv(sv) \ +GvCV(sv) + +#endif /* MODPERL_MGV_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_module.c b/2_0_13/src/modules/perl/modperl_module.c new file mode 100644 index 0000000..e804bad --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_module.c
@@ -0,0 +1,911 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +typedef struct { + modperl_mgv_t *dir_create; + modperl_mgv_t *dir_merge; + modperl_mgv_t *srv_create; + modperl_mgv_t *srv_merge; + int namelen; +} modperl_module_info_t; + +typedef struct { + server_rec *server; + modperl_module_info_t *minfo; +} modperl_module_cfg_t; + +#define MP_MODULE_INFO(modp) \ + (modperl_module_info_t *)modp->dynamic_load_handle + +#define MP_MODULE_CFG_MINFO(ptr) \ + ((modperl_module_cfg_t *)ptr)->minfo + +static modperl_module_cfg_t *modperl_module_cfg_new(apr_pool_t *p) +{ + modperl_module_cfg_t *cfg = + (modperl_module_cfg_t *)apr_pcalloc(p, sizeof(*cfg)); + + return cfg; +} + +static modperl_module_cmd_data_t *modperl_module_cmd_data_new(apr_pool_t *p) +{ + modperl_module_cmd_data_t *cmd_data = + (modperl_module_cmd_data_t *)apr_pcalloc(p, sizeof(*cmd_data)); + + return cmd_data; +} + +static void *modperl_module_config_dir_create(apr_pool_t *p, char *dir) +{ + return modperl_module_cfg_new(p); +} + +static void *modperl_module_config_srv_create(apr_pool_t *p, server_rec *s) +{ + return modperl_module_cfg_new(p); +} + +static SV **modperl_module_config_hash_get(pTHX_ int create) +{ + SV **svp; + + /* XXX: could make this lookup faster */ + svp = hv_fetch(PL_modglobal, + "ModPerl::Module::ConfigTable", + MP_SSTRLEN("ModPerl::Module::ConfigTable"), + create); + + return svp; +} + +void modperl_module_config_table_set(pTHX_ PTR_TBL_t *table) +{ + SV **svp = modperl_module_config_hash_get(aTHX_ TRUE); + sv_setiv(*svp, PTR2IV(table)); +} + +PTR_TBL_t *modperl_module_config_table_get(pTHX_ int create) +{ + PTR_TBL_t *table = NULL; + + SV *sv, **svp = modperl_module_config_hash_get(aTHX_ create); + + if (!svp) { + return NULL; + } + + sv = *svp; + if (!SvIOK(sv) && create) { + table = modperl_svptr_table_new(aTHX); + sv_setiv(sv, PTR2IV(table)); + } + else { + table = INT2PTR(PTR_TBL_t *, SvIV(sv)); + } + + return table; +} + +typedef struct { +#ifdef USE_ITHREADS + modperl_interp_t *interp; +#endif + PTR_TBL_t *table; + void *ptr; +} config_obj_cleanup_t; + +/* + * any per-dir CREATE or MERGE that happens at request time + * needs to be removed from the pointer table. + */ +static apr_status_t modperl_module_config_obj_cleanup(void *data) +{ + config_obj_cleanup_t *cleanup = + (config_obj_cleanup_t *)data; +#ifdef USE_ITHREADS + dTHXa(cleanup->interp->perl); + MP_ASSERT_CONTEXT(aTHX); +#endif + + modperl_svptr_table_delete(aTHX_ cleanup->table, cleanup->ptr); + + MP_TRACE_c(MP_FUNC, "deleting ptr %pp from table %pp", + cleanup->ptr, cleanup->table); + + MP_INTERP_PUTBACK(cleanup->interp, aTHX); + + return APR_SUCCESS; +} + +static void modperl_module_config_obj_cleanup_register(pTHX_ + apr_pool_t *p, + PTR_TBL_t *table, + void *ptr) +{ + config_obj_cleanup_t *cleanup = + (config_obj_cleanup_t *)apr_palloc(p, sizeof(*cleanup)); + + cleanup->table = table; + cleanup->ptr = ptr; +#ifdef USE_ITHREADS + cleanup->interp = modperl_thx_interp_get(aTHX); + MP_INTERP_REFCNT_inc(cleanup->interp); +#endif + + apr_pool_cleanup_register(p, cleanup, + modperl_module_config_obj_cleanup, + apr_pool_cleanup_null); +} + +#define MP_CFG_MERGE_DIR 1 +#define MP_CFG_MERGE_SRV 2 + +/* + * XXX: vhosts may have different parent interpreters. + */ +static void *modperl_module_config_merge(apr_pool_t *p, + void *basev, void *addv, + int type) +{ + GV *gv; + modperl_mgv_t *method; + modperl_module_cfg_t *mrg = NULL, + *tmp, + *base = (modperl_module_cfg_t *)basev, + *add = (modperl_module_cfg_t *)addv; + server_rec *s; + int is_startup; + PTR_TBL_t *table; + SV *mrg_obj = (SV *)NULL, *base_obj, *add_obj; + MP_dINTERP; + + /* if the module is loaded in vhost, base==NULL */ + tmp = (base && base->server) ? base : add; + + if (tmp && !tmp->server) { + /* no directives for this module were encountered so far */ + return basev; + } + + s = tmp->server; + is_startup = (p == s->process->pconf); + + MP_INTERP_POOLa(p, s); + + table = modperl_module_config_table_get(aTHX_ TRUE); + base_obj = modperl_svptr_table_fetch(aTHX_ table, base); + add_obj = modperl_svptr_table_fetch(aTHX_ table, add); + + if (!base_obj || (base_obj == add_obj)) { + MP_INTERP_PUTBACK(interp, aTHX); + return addv; + } + + mrg = modperl_module_cfg_new(p); + memcpy(mrg, tmp, sizeof(*mrg)); + + method = (type == MP_CFG_MERGE_DIR) ? + mrg->minfo->dir_merge : + mrg->minfo->srv_merge; + + if (method && (gv = modperl_mgv_lookup(aTHX_ method))) { + int count; + dSP; + + MP_TRACE_c(MP_FUNC, "calling %s->%s", + SvCLASS(base_obj), modperl_mgv_last_name(method)); + + ENTER;SAVETMPS; + PUSHMARK(sp); + XPUSHs(base_obj);XPUSHs(add_obj); + + PUTBACK; + count = call_sv((SV*)GvCV(gv), G_EVAL|G_SCALAR); + SPAGAIN; + + if (count == 1) { + mrg_obj = SvREFCNT_inc(POPs); + } + + PUTBACK; + FREETMPS;LEAVE; + + if (SvTRUE(ERRSV)) { + /* XXX: should die here. */ + (void)modperl_errsv(aTHX_ HTTP_INTERNAL_SERVER_ERROR, + NULL, NULL); + } + } + else { + mrg_obj = SvREFCNT_inc(add_obj); + } + + modperl_svptr_table_store(aTHX_ table, mrg, mrg_obj); + + if (!is_startup) { + modperl_module_config_obj_cleanup_register(aTHX_ p, table, mrg); + } + + MP_INTERP_PUTBACK(interp, aTHX); + + return (void *)mrg; +} + +static void *modperl_module_config_dir_merge(apr_pool_t *p, + void *basev, void *addv) +{ + return modperl_module_config_merge(p, basev, addv, + MP_CFG_MERGE_DIR); +} + +static void *modperl_module_config_srv_merge(apr_pool_t *p, + void *basev, void *addv) +{ + return modperl_module_config_merge(p, basev, addv, + MP_CFG_MERGE_SRV); +} + +#define modperl_bless_cmd_parms(parms) \ + sv_2mortal(modperl_ptr2obj(aTHX_ "Apache2::CmdParms", (void *)parms)) + +static const char * +modperl_module_config_create_obj(pTHX_ + apr_pool_t *p, + PTR_TBL_t *table, + modperl_module_cfg_t *cfg, + modperl_module_cmd_data_t *info, + modperl_mgv_t *method, + cmd_parms *parms, + SV **obj) +{ + const char *mname = info->modp->name; + modperl_module_info_t *minfo = MP_MODULE_INFO(info->modp); + GV *gv; + int is_startup = (p == parms->server->process->pconf); + + /* + * XXX: if MPM is not threaded, we could modify the + * modperl_module_cfg_t * directly and avoid the ptr_table + * altogether. + */ + if ((*obj = (SV*)modperl_svptr_table_fetch(aTHX_ table, cfg))) { + /* object already exists */ + return NULL; + } + + MP_TRACE_c(MP_FUNC, "%s cfg=0x%lx for %s.%s", + method ? modperl_mgv_last_name(method) : "NULL", + (unsigned long)cfg, mname, parms->cmd->name); + + /* used by merge functions to get a Perl interp */ + cfg->server = parms->server; + cfg->minfo = minfo; + + if (method && (gv = modperl_mgv_lookup(aTHX_ method))) { + int count; + dSP; + + ENTER;SAVETMPS; + PUSHMARK(sp); + XPUSHs(sv_2mortal(newSVpv(mname, minfo->namelen))); + XPUSHs(modperl_bless_cmd_parms(parms)); + + PUTBACK; + count = call_sv((SV*)GvCV(gv), G_EVAL|G_SCALAR); + SPAGAIN; + + if (count == 1) { + *obj = SvREFCNT_inc(POPs); + } + + PUTBACK; + FREETMPS;LEAVE; + + if (SvTRUE(ERRSV)) { + return SvPVX(ERRSV); + } + } + else { + HV *stash = gv_stashpvn(mname, minfo->namelen, FALSE); + /* return bless {}, $class */ + *obj = newRV_noinc((SV*)newHV()); + *obj = sv_bless(*obj, stash); + } + + if (!is_startup) { + modperl_module_config_obj_cleanup_register(aTHX_ p, table, cfg); + } + + modperl_svptr_table_store(aTHX_ table, cfg, *obj); + + return NULL; +} + +#define PUSH_STR_ARG(arg) \ + if (arg) XPUSHs(sv_2mortal(newSVpv(arg,0))) + +static const char *modperl_module_cmd_take123(cmd_parms *parms, + void *mconfig, + const char *one, + const char *two, + const char *three) +{ + modperl_module_cfg_t *cfg = (modperl_module_cfg_t *)mconfig; + const char *retval = NULL, *errmsg; + const command_rec *cmd = parms->cmd; + server_rec *s = parms->server; + apr_pool_t *p = parms->pool; + modperl_module_cmd_data_t *info = + (modperl_module_cmd_data_t *)cmd->cmd_data; + modperl_module_info_t *minfo = MP_MODULE_INFO(info->modp); + modperl_module_cfg_t *srv_cfg; + int modules_alias = 0; + int count; + PTR_TBL_t *table; + SV *obj = (SV *)NULL; + MP_dINTERP_POOLa(p, s); + + table = modperl_module_config_table_get(aTHX_ TRUE); + + if (s->is_virtual) { + MP_dSCFG(s); + + /* if the Perl module is loaded in the base server and a vhost + * has configuration directives from that module, but no + * mod_perl.c directives, scfg == NULL when + * modperl_module_cmd_take123 is run. If the directive + * callback wants to do something with the mod_perl config + * object, it'll segfault, since it doesn't exist yet, because + * this happens before server configs are merged. So we create + * a temp struct and fill it in with things that might be + * needed by the Perl callback. + */ + if (!scfg) { + scfg = modperl_config_srv_new(p, s); + modperl_set_module_config(s->module_config, scfg); + scfg->server = s; + } + + /* if PerlLoadModule Foo is called from the base server, but + * Foo's directives are used inside a vhost, we need to + * temporary link to the base server config's 'modules' + * member. e.g. so Apache2::Module->get_config() can be called + * from a custom directive's callback, before the server/vhost + * config merge is performed + */ + if (!scfg->modules) { + modperl_config_srv_t *base_scfg = + modperl_config_srv_get(modperl_global_get_server_rec()); + if (base_scfg->modules) { + scfg->modules = base_scfg->modules; + modules_alias = 1; + } + } + + } + + errmsg = modperl_module_config_create_obj(aTHX_ p, table, cfg, info, + minfo->dir_create, + parms, &obj); + + if (errmsg) { + MP_INTERP_PUTBACK(interp, aTHX); + return errmsg; + } + + if (obj) { + MP_TRACE_c(MP_FUNC, "found per-dir obj=0x%lx for %s.%s", + (unsigned long)obj, + info->modp->name, cmd->name); + } + + /* XXX: could delay creation of srv_obj until + * Apache2::ModuleConfig->get is called. + */ + srv_cfg = ap_get_module_config(s->module_config, info->modp); + + if (srv_cfg) { + SV *srv_obj; + errmsg = modperl_module_config_create_obj(aTHX_ p, table, srv_cfg, info, + minfo->srv_create, + parms, &srv_obj); + if (errmsg) { + MP_INTERP_PUTBACK(interp, aTHX); + return errmsg; + } + + if (srv_obj) { + MP_TRACE_c(MP_FUNC, "found per-srv obj=0x%lx for %s.%s", + (unsigned long)srv_obj, + info->modp->name, cmd->name); + } + } + + { + dSP; + ENTER;SAVETMPS; + PUSHMARK(SP); + EXTEND(SP, 2); + + PUSHs(obj); + PUSHs(modperl_bless_cmd_parms(parms)); + + if (cmd->args_how != NO_ARGS) { + PUSH_STR_ARG(one); + PUSH_STR_ARG(two); + PUSH_STR_ARG(three); + } + + PUTBACK; + count = call_method(info->func_name, G_EVAL|G_SCALAR); + SPAGAIN; + + if (count == 1) { + SV *sv = POPs; + if (SvPOK(sv) && strEQ(SvPVX(sv), DECLINE_CMD)) { + retval = DECLINE_CMD; + } + } + + PUTBACK; + FREETMPS;LEAVE; + } + + if (SvTRUE(ERRSV)) { + retval = SvPVX(ERRSV); + } + + MP_INTERP_PUTBACK(interp, aTHX); + + if (modules_alias) { + MP_dSCFG(s); + /* unalias the temp aliasing */ + scfg->modules = NULL; + } + + return retval; +} + +static const char *modperl_module_cmd_take1(cmd_parms *parms, + void *mconfig, + const char *one) +{ + return modperl_module_cmd_take123(parms, mconfig, one, NULL, NULL); +} + +static const char *modperl_module_cmd_take2(cmd_parms *parms, + void *mconfig, + const char *one, + const char *two) +{ + return modperl_module_cmd_take123(parms, mconfig, one, two, NULL); +} + +static const char *modperl_module_cmd_flag(cmd_parms *parms, + void *mconfig, + int flag) +{ + char buf[2]; + + apr_snprintf(buf, sizeof(buf), "%d", flag); + + return modperl_module_cmd_take123(parms, mconfig, buf, NULL, NULL); +} + +static const char *modperl_module_cmd_no_args(cmd_parms *parms, + void *mconfig) +{ + return modperl_module_cmd_take123(parms, mconfig, NULL, NULL, NULL); +} + +#define modperl_module_cmd_raw_args modperl_module_cmd_take1 +#define modperl_module_cmd_iterate modperl_module_cmd_take1 +#define modperl_module_cmd_iterate2 modperl_module_cmd_take2 +#define modperl_module_cmd_take12 modperl_module_cmd_take2 +#define modperl_module_cmd_take23 modperl_module_cmd_take123 +#define modperl_module_cmd_take3 modperl_module_cmd_take123 +#define modperl_module_cmd_take13 modperl_module_cmd_take123 + +#if defined(AP_HAVE_DESIGNATED_INITIALIZER) +# define modperl_module_cmd_func_set(cmd, name) \ + cmd->func.name = modperl_module_cmd_##name +#else +# define modperl_module_cmd_func_set(cmd, name) \ + cmd->func = modperl_module_cmd_##name +#endif + +static int modperl_module_cmd_lookup(command_rec *cmd) +{ + switch (cmd->args_how) { + case TAKE1: + case ITERATE: + modperl_module_cmd_func_set(cmd, take1); + break; + case TAKE2: + case ITERATE2: + case TAKE12: + modperl_module_cmd_func_set(cmd, take2); + break; + case TAKE3: + case TAKE23: + case TAKE123: + case TAKE13: + modperl_module_cmd_func_set(cmd, take3); + break; + case RAW_ARGS: + modperl_module_cmd_func_set(cmd, raw_args); + break; + case FLAG: + modperl_module_cmd_func_set(cmd, flag); + break; + case NO_ARGS: + modperl_module_cmd_func_set(cmd, no_args); + break; + default: + return FALSE; + } + + return TRUE; +} + +static apr_status_t modperl_module_remove(void *data) +{ + module *modp = (module *)data; + + ap_remove_loaded_module(modp); + + return APR_SUCCESS; +} + +static const char *modperl_module_cmd_fetch(pTHX_ SV *obj, + const char *name, SV **retval) +{ + const char *errmsg = NULL; + + if (*retval) { + SvREFCNT_dec(*retval); + *retval = (SV *)NULL; + } + + if (sv_isobject(obj)) { + int count; + dSP; + ENTER;SAVETMPS; + PUSHMARK(SP); + XPUSHs(obj); + PUTBACK; + + count = call_method(name, G_EVAL|G_SCALAR); + + SPAGAIN; + + if (count == 1) { + SV *sv = POPs; + if (SvTRUE(sv)) { + *retval = SvREFCNT_inc(sv); + } + } + + if (!*retval) { + errmsg = Perl_form(aTHX_ "%s->%s did not return a %svalue", + SvCLASS(obj), name, count ? "true " : ""); + } + + PUTBACK; + FREETMPS;LEAVE; + + if (SvTRUE(ERRSV)) { + errmsg = SvPVX(ERRSV); + } + } + else if (SvROK(obj) && (SvTYPE(SvRV(obj)) == SVt_PVHV)) { + HV *hv = (HV*)SvRV(obj); + SV **svp = hv_fetch(hv, name, strlen(name), 0); + + if (svp) { + *retval = SvREFCNT_inc(*svp); + } + else { + errmsg = Perl_form(aTHX_ "HASH key %s does not exist", name); + } + } + else { + errmsg = "command entry is not an object or a HASH reference"; + } + + return errmsg; +} + +static const char *modperl_module_add_cmds(apr_pool_t *p, server_rec *s, + module *modp, SV *mod_cmds) +{ + const char *errmsg; + apr_array_header_t *cmds; + command_rec *cmd; + AV *module_cmds; + I32 i, fill; + MP_dINTERPa(NULL, NULL, s); + module_cmds = (AV*)SvRV(mod_cmds); + + fill = AvFILL(module_cmds); + cmds = apr_array_make(p, fill+1, sizeof(command_rec)); + + for (i=0; i<=fill; i++) { + SV *val = (SV *)NULL; + STRLEN len; + SV *obj = AvARRAY(module_cmds)[i]; + modperl_module_cmd_data_t *info = modperl_module_cmd_data_new(p); + + info->modp = modp; + + cmd = apr_array_push(cmds); + + if ((errmsg = modperl_module_cmd_fetch(aTHX_ obj, "name", &val))) { + MP_INTERP_PUTBACK(interp, aTHX); + return errmsg; + } + + cmd->name = apr_pstrdup(p, SvPV(val, len)); + + if ((errmsg = modperl_module_cmd_fetch(aTHX_ obj, "args_how", &val))) { + /* XXX default based on $self->func prototype */ + cmd->args_how = TAKE1; /* default */ + } + else { + if (SvIOK(val)) { + cmd->args_how = SvIV(val); + } + else { + cmd->args_how = + SvIV(modperl_constants_lookup_apache2_const(aTHX_ SvPV(val, len))); + } + } + + if (!modperl_module_cmd_lookup(cmd)) { + MP_INTERP_PUTBACK(interp, aTHX); + return apr_psprintf(p, + "no command function defined for args_how=%d", + cmd->args_how); + } + + if ((errmsg = modperl_module_cmd_fetch(aTHX_ obj, "func", &val))) { + info->func_name = cmd->name; /* default */ + } + else { + info->func_name = apr_pstrdup(p, SvPV(val, len)); + } + + if ((errmsg = modperl_module_cmd_fetch(aTHX_ obj, "req_override", &val))) { + cmd->req_override = OR_ALL; /* default */ + } + else { + if (SvIOK(val)) { + cmd->req_override = SvIV(val); + } + else { + cmd->req_override = + SvIV(modperl_constants_lookup_apache2_const(aTHX_ SvPV(val, len))); + } + } + + if ((errmsg = modperl_module_cmd_fetch(aTHX_ obj, "errmsg", &val))) { + /* default */ + /* XXX generate help msg based on args_how */ + cmd->errmsg = apr_pstrcat(p, cmd->name, " command", NULL); + } + else { + cmd->errmsg = apr_pstrdup(p, SvPV(val, len)); + } + + cmd->cmd_data = info; + + /* no default if undefined */ + if (!(errmsg = modperl_module_cmd_fetch(aTHX_ obj, "cmd_data", &val))) { + info->cmd_data = apr_pstrdup(p, SvPV(val, len)); + } + + if (val) { + SvREFCNT_dec(val); + val = (SV *)NULL; + } + } + + cmd = apr_array_push(cmds); + cmd->name = NULL; + + modp->cmds = (command_rec *)cmds->elts; + + MP_INTERP_PUTBACK(interp, aTHX); + return NULL; +} + +static void modperl_module_insert(module *modp) +{ + /* + * insert after mod_perl, rather the top of the list. + * (see ap_add_module; does not insert into ap_top_module list if + * m->next != NULL) + * this way, modperl config merging happens before this module. + */ + + modp->next = perl_module.next; + perl_module.next = modp; +} + +#define MP_isGV(gv) (gv && isGV(gv)) + +static modperl_mgv_t *modperl_module_fetch_method(pTHX_ + apr_pool_t *p, + module *modp, + const char *method) +{ + modperl_mgv_t *mgv; + + HV *stash = gv_stashpv(modp->name, FALSE); + GV *gv = gv_fetchmethod_autoload(stash, method, FALSE); + + MP_TRACE_c(MP_FUNC, "looking for method %s in package `%s'...%sfound", + method, modp->name, + MP_isGV(gv) ? "" : "not "); + + if (!MP_isGV(gv)) { + return NULL; + } + + mgv = modperl_mgv_compile(aTHX_ p, + apr_pstrcat(p, + modp->name, "::", method, NULL)); + + return mgv; +} + +const char *modperl_module_add(apr_pool_t *p, server_rec *s, + const char *name, SV *mod_cmds) +{ + MP_dSCFG(s); + const char *errmsg; + module *modp; + modperl_module_info_t *minfo; + MP_dINTERPa(NULL, NULL, s); + modp = (module *)apr_pcalloc(p, sizeof(*modp)); + minfo = (modperl_module_info_t *)apr_pcalloc(p, sizeof(*minfo)); + + /* STANDARD20_MODULE_STUFF */ + modp->version = MODULE_MAGIC_NUMBER_MAJOR; + modp->minor_version = MODULE_MAGIC_NUMBER_MINOR; + modp->module_index = -1; + modp->name = apr_pstrdup(p, name); + modp->magic = MODULE_MAGIC_COOKIE; + + /* use this slot for our context */ + modp->dynamic_load_handle = minfo; + + /* + * XXX: we should lookup here if the Perl methods exist, + * and set these pointers only if they do. + */ + modp->create_dir_config = modperl_module_config_dir_create; + modp->merge_dir_config = modperl_module_config_dir_merge; + modp->create_server_config = modperl_module_config_srv_create; + modp->merge_server_config = modperl_module_config_srv_merge; + + minfo->namelen = strlen(name); + + minfo->dir_create = + modperl_module_fetch_method(aTHX_ p, modp, "DIR_CREATE"); + + minfo->dir_merge = + modperl_module_fetch_method(aTHX_ p, modp, "DIR_MERGE"); + + minfo->srv_create = + modperl_module_fetch_method(aTHX_ p, modp, "SERVER_CREATE"); + + minfo->srv_merge = + modperl_module_fetch_method(aTHX_ p, modp, "SERVER_MERGE"); + + modp->cmds = NULL; + + if ((errmsg = modperl_module_add_cmds(p, s, modp, mod_cmds))) { + MP_INTERP_PUTBACK(interp, aTHX); + return errmsg; + } + + modperl_module_insert(modp); + + mp_add_loaded_module(modp, p, modp->name); + + apr_pool_cleanup_register(p, modp, modperl_module_remove, + apr_pool_cleanup_null); + + ap_single_module_configure(p, s, modp); + + if (!scfg->modules) { + scfg->modules = apr_hash_make(p); + } + + apr_hash_set(scfg->modules, apr_pstrdup(p, name), APR_HASH_KEY_STRING, modp); + +#ifdef USE_ITHREADS + /* + * if the Perl module is loaded in the base server and a vhost + * has configuration directives from that module, but no mod_perl.c + * directives, scfg == NULL when modperl_module_cmd_take123 is run. + * this happens before server configs are merged, so we stash a pointer + * to what will be merged as the parent interp later. i.e. "safe hack" + */ + if (!modperl_interp_pool_get(p)) { + /* for vhosts */ + MP_TRACE_i(MP_FUNC, "set interp 0x%lx in pconf pool 0x%lx", + (unsigned long)scfg->mip->parent, (unsigned long)p); + modperl_interp_pool_set(p, scfg->mip->parent); + } +#endif + + MP_INTERP_PUTBACK(interp, aTHX); + return NULL; +} + +SV *modperl_module_config_get_obj(pTHX_ SV *pmodule, server_rec *s, + ap_conf_vector_t *v) +{ + MP_dSCFG(s); + module *modp; + const char *name; + void *ptr; + PTR_TBL_t *table; + SV *obj; + + if (!v) { + v = s->module_config; + } + + if (SvROK(pmodule)) { + name = SvCLASS(pmodule); + } + else { + STRLEN n_a; + name = SvPV(pmodule, n_a); + } + + if (!(scfg->modules && + (modp = apr_hash_get(scfg->modules, name, APR_HASH_KEY_STRING)))) { + return &PL_sv_undef; + } + + if (!(ptr = ap_get_module_config(v, modp))) { + return &PL_sv_undef; + } + + if (!(table = modperl_module_config_table_get(aTHX_ FALSE))) { + return &PL_sv_undef; + } + + if (!(obj = modperl_svptr_table_fetch(aTHX_ table, ptr))) { + return &PL_sv_undef; + } + + return obj; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_module.h b/2_0_13/src/modules/perl/modperl_module.h new file mode 100644 index 0000000..41e8312 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_module.h
@@ -0,0 +1,37 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_MODULE_H +#define MODPERL_MODULE_H + +PTR_TBL_t *modperl_module_config_table_get(pTHX_ int create); + +void modperl_module_config_table_set(pTHX_ PTR_TBL_t *table); + +const char *modperl_module_add(apr_pool_t *p, server_rec *s, + const char *name, SV *mod_cmds); + +SV *modperl_module_config_get_obj(pTHX_ SV *pmodule, server_rec *s, + ap_conf_vector_t *v); + +#endif /* MODPERL_MODULE_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_options.c b/2_0_13/src/modules/perl/modperl_options.c new file mode 100644 index 0000000..5077ec4 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_options.c
@@ -0,0 +1,157 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* re-use the ->unset field to determine options type */ +#define MpOptionsType(o) (o)->unset +#define MpOptionsTypeDir(o) MpOptionsType(o) == MpDir_f_UNSET +#define MpOptionsTypeSrv(o) MpOptionsType(o) == MpSrv_f_UNSET +#define MpOptionsTypeDir_set(o) MpOptionsType(o) = MpDir_f_UNSET +#define MpOptionsTypeSrv_set(o) MpOptionsType(o) = MpSrv_f_UNSET +#define MP_OPTIONS_TYPE_DIR MpDir_f_UNSET +#define MP_OPTIONS_TYPE_SRV MpSrv_f_UNSET + +static modperl_opts_t flags_lookup(modperl_options_t *o, + const char *str) +{ + switch (MpOptionsType(o)) { + case MP_OPTIONS_TYPE_SRV: + return modperl_flags_lookup_srv(str); + case MP_OPTIONS_TYPE_DIR: + return modperl_flags_lookup_dir(str); + default: + return '\0'; + }; +} + +static const char *type_lookup(modperl_options_t *o) +{ + switch (MpOptionsType(o)) { + case MP_OPTIONS_TYPE_SRV: + return "server"; + case MP_OPTIONS_TYPE_DIR: + return "directory"; + default: + return "unknown"; + }; +} + +modperl_options_t *modperl_options_new(apr_pool_t *p, int type) +{ + modperl_options_t *options = + (modperl_options_t *)apr_pcalloc(p, sizeof(*options)); + + options->opts = options->unset = + (type == MpSrvType ? MpSrv_f_UNSET : MpDir_f_UNSET); + + return options; +} + +const char *modperl_options_set(apr_pool_t *p, modperl_options_t *o, + const char *str) +{ + modperl_opts_t opt; + char action = '\0'; + const char *error = NULL; + + if (*str == '+' || *str == '-') { + action = *(str++); + } + + if ((opt = flags_lookup(o, str)) == -1) { + error = apr_pstrcat(p, "Invalid per-", type_lookup(o), + " PerlOption: ", str, NULL); + + if (MpOptionsTypeDir(o)) { + modperl_options_t dummy; + MpOptionsTypeSrv_set(&dummy); + + if (flags_lookup(&dummy, str) == -1) { + error = apr_pstrcat(p, error, + " (only allowed per-server)", + NULL); + } + } + + return error; + } +#ifndef USE_ITHREADS + else if (MpOptionsTypeSrv(o)) { + if (MpSrvOPT_ITHREAD_ONLY(opt)) { + return apr_pstrcat(p, "PerlOption `", str, + "' requires an ithreads enabled Perl", NULL); + } + } +#endif + + o->opts_seen |= opt; + + if (action == '-') { + o->opts_remove |= opt; + o->opts_add &= ~opt; + o->opts &= ~opt; + } + else if (action == '+') { + o->opts_add |= opt; + o->opts_remove &= ~opt; + o->opts |= opt; + } + else { + o->opts |= opt; + } + + return NULL; +} + +modperl_options_t *modperl_options_merge(apr_pool_t *p, + modperl_options_t *base, + modperl_options_t *add) +{ + modperl_options_t *conf = modperl_options_new(p, 0); + memcpy((char *)conf, (const char *)base, sizeof(*base)); + + if (add->opts & add->unset) { + /* there was no explicit setting of add->opts, so we merge + * preserve the invariant (opts_add & opts_remove) == 0 + */ + conf->opts_add = + (conf->opts_add & ~add->opts_remove) | add->opts_add; + conf->opts_remove = + (conf->opts_remove & ~add->opts_add) | add->opts_remove; + conf->opts = + (conf->opts & ~conf->opts_remove) | conf->opts_add; + } + else { + /* otherwise we just copy, because an explicit opts setting + * overrides all earlier +/- modifiers + */ + conf->opts = add->opts; + conf->opts_add = add->opts_add; + conf->opts_remove = add->opts_remove; + } + + conf->opts_seen |= add->opts_seen; + + return conf; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_options.h b/2_0_13/src/modules/perl/modperl_options.h new file mode 100644 index 0000000..62d23da --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_options.h
@@ -0,0 +1,36 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_OPTIONS_H +#define MODPERL_OPTIONS_H + +modperl_options_t *modperl_options_new(apr_pool_t *p, int type); + +const char *modperl_options_set(apr_pool_t *p, modperl_options_t *o, + const char *s); + +modperl_options_t *modperl_options_merge(apr_pool_t *p, + modperl_options_t *base, + modperl_options_t *new); + +#endif /* MODPERL_OPTIONS_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_pcw.c b/2_0_13/src/modules/perl/modperl_pcw.c new file mode 100644 index 0000000..0c247b0 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_pcw.c
@@ -0,0 +1,149 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* + * pcw == Parsed Config Walker + * generic functions for walking parsed config using callbacks + */ + +void ap_pcw_walk_location_config(apr_pool_t *pconf, server_rec *s, + core_server_config *sconf, + module *modp, + ap_pcw_dir_cb_t dir_cb, void *data) +{ + int i; + ap_conf_vector_t **urls; + + if( !sconf->sec_url ) return; + + urls = (ap_conf_vector_t **)sconf->sec_url->elts; + + for (i = 0; i < sconf->sec_url->nelts; i++) { + core_dir_config *conf = + ap_get_module_config(urls[i], &core_module); + void *dir_cfg = ap_get_module_config(urls[i], modp); + + if (!dir_cb(pconf, s, dir_cfg, conf->d, data)) { + break; + } + } +} + +void ap_pcw_walk_directory_config(apr_pool_t *pconf, server_rec *s, + core_server_config *sconf, + module *modp, + ap_pcw_dir_cb_t dir_cb, void *data) +{ + int i; + ap_conf_vector_t **dirs; + + if( !sconf->sec_dir ) return; + + dirs = (ap_conf_vector_t **)sconf->sec_dir->elts; + + for (i = 0; i < sconf->sec_dir->nelts; i++) { + core_dir_config *conf = + ap_get_module_config(dirs[i], &core_module); + void *dir_cfg = ap_get_module_config(dirs[i], modp); + + if (!dir_cb(pconf, s, dir_cfg, conf->d, data)) { + break; + } + } +} + +void ap_pcw_walk_files_config(apr_pool_t *pconf, server_rec *s, + core_dir_config *dconf, + module *modp, + ap_pcw_dir_cb_t dir_cb, void *data) +{ + int i; + ap_conf_vector_t **dirs; + + if( !dconf->sec_file ) return; + + dirs = (ap_conf_vector_t **)dconf->sec_file->elts; + + for (i = 0; i < dconf->sec_file->nelts; i++) { + core_dir_config *conf = + ap_get_module_config(dirs[i], &core_module); + void *dir_cfg = ap_get_module_config(dirs[i], modp); + + if (!dir_cb(pconf, s, dir_cfg, conf->d, data)) { + break; + } + } +} + +void ap_pcw_walk_default_config(apr_pool_t *pconf, server_rec *s, + module *modp, + ap_pcw_dir_cb_t dir_cb, void *data) +{ + core_dir_config *conf = + ap_get_module_config(s->lookup_defaults, &core_module); + void *dir_cfg = + ap_get_module_config(s->lookup_defaults, modp); + + dir_cb(pconf, s, dir_cfg, conf->d, data); +} + +void ap_pcw_walk_server_config(apr_pool_t *pconf, server_rec *s, + module *modp, + ap_pcw_srv_cb_t srv_cb, void *data) +{ + void *cfg = ap_get_module_config(s->module_config, modp); + + if (!cfg) { + return; + } + + srv_cb(pconf, s, cfg, data); +} + +void ap_pcw_walk_config(apr_pool_t *pconf, server_rec *s, + module *modp, void *data, + ap_pcw_dir_cb_t dir_cb, ap_pcw_srv_cb_t srv_cb) +{ + for (; s; s = s->next) { + core_dir_config *dconf = + ap_get_module_config(s->lookup_defaults, + &core_module); + + core_server_config *sconf = + ap_get_module_config(s->module_config, + &core_module); + + if (dir_cb) { + ap_pcw_walk_location_config(pconf, s, sconf, modp, dir_cb, data); + ap_pcw_walk_directory_config(pconf, s, sconf, modp, dir_cb, data); + ap_pcw_walk_files_config(pconf, s, dconf, modp, dir_cb, data); + ap_pcw_walk_default_config(pconf, s, modp, dir_cb, data); + } + + if (srv_cb) { + ap_pcw_walk_server_config(pconf, s, modp, srv_cb, data); + } + } +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_pcw.h b/2_0_13/src/modules/perl/modperl_pcw.h new file mode 100644 index 0000000..4e97acf --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_pcw.h
@@ -0,0 +1,60 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_PCW_H +#define MODPERL_PCW_H + +typedef int (*ap_pcw_dir_cb_t) (apr_pool_t *, server_rec *, + void *, char *, void *); + +typedef int (*ap_pcw_srv_cb_t) (apr_pool_t *, server_rec *, + void *, void *); + +void ap_pcw_walk_location_config(apr_pool_t *pconf, server_rec *s, + core_server_config *sconf, + module *modp, + ap_pcw_dir_cb_t dir_cb, void *data); + +void ap_pcw_walk_directory_config(apr_pool_t *pconf, server_rec *s, + core_server_config *sconf, + module *modp, + ap_pcw_dir_cb_t dir_cb, void *data); + +void ap_pcw_walk_files_config(apr_pool_t *pconf, server_rec *s, + core_dir_config *dconf, + module *modp, + ap_pcw_dir_cb_t dir_cb, void *data); + +void ap_pcw_walk_default_config(apr_pool_t *pconf, server_rec *s, + module *modp, + ap_pcw_dir_cb_t dir_cb, void *data); + +void ap_pcw_walk_server_config(apr_pool_t *pconf, server_rec *s, + module *modp, + ap_pcw_srv_cb_t srv_cb, void *data); + +void ap_pcw_walk_config(apr_pool_t *pconf, server_rec *s, + module *modp, void *data, + ap_pcw_dir_cb_t dir_cb, ap_pcw_srv_cb_t srv_cb); + +#endif /* MODPERL_PCW_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_perl.c b/2_0_13/src/modules/perl/modperl_perl.c new file mode 100644 index 0000000..9ec744f --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_perl.c
@@ -0,0 +1,291 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* this module contains mod_perl small tweaks to the Perl runtime + * others (larger tweaks) are in their own modules, e.g. modperl_env.c + */ + +typedef struct { + const char *name; + const char *sub_name; + const char *core_name; +} modperl_perl_core_global_t; + +#define MP_PERL_CORE_GLOBAL_ENT(name) \ +{ name, "ModPerl::Util::" name, "CORE::GLOBAL::" name } + +static modperl_perl_core_global_t MP_perl_core_global_entries[] = { + MP_PERL_CORE_GLOBAL_ENT("exit"), + { NULL }, +}; + +XS(XS_ModPerl__Util_exit); /* prototype to pass -Wmissing-prototypes */ +XS(XS_ModPerl__Util_exit) +{ + dXSARGS; + int status; + if (items < 0 || items > 1) { + Perl_croak(aTHX_ "Usage: ModPerl::Util::exit(status=0)"); + } + /* default: 0 */ + status = items < 1 ? 0 : (int)SvIV(ST(0)); + modperl_perl_exit(aTHX_ status); + + XSRETURN_EMPTY; +} + +void modperl_perl_core_global_init(pTHX) +{ + modperl_perl_core_global_t *cglobals = MP_perl_core_global_entries; + + while (cglobals->name) { + GV *gv = gv_fetchpv(cglobals->core_name, TRUE, SVt_PVCV); +#ifdef MUTABLE_CV + GvCV_set(gv, + MUTABLE_CV(SvREFCNT_inc(get_cv(cglobals->sub_name, TRUE)))); +#else + GvCV_set(gv, + (CV*)(SvREFCNT_inc(get_cv(cglobals->sub_name, TRUE)))); +#endif + GvIMPORTED_CV_on(gv); + cglobals++; + } + + newXS("ModPerl::Util::exit", XS_ModPerl__Util_exit, __FILE__); +} + +static void modperl_perl_ids_get(modperl_perl_ids_t *ids) +{ + ids->pid = (I32)getpid(); +#ifdef MP_MAINTAIN_PPID + ids->ppid = (I32)getppid(); +#endif +#ifndef WIN32 + ids->uid = getuid(); + ids->euid = geteuid(); + ids->gid = getgid(); + ids->egid = getegid(); + + MP_TRACE_r(MP_FUNC, + "pid=%d, " +#ifdef MP_MAINTAIN_PPID + "ppid=%d, " +#endif + "uid=%" Uid_t_f ", euid=%" Uid_t_f ", " + "gid=%" Gid_t_f ", egid=%" Gid_t_f, + (int)ids->pid, +#ifdef MP_MAINTAIN_PPID + (int)ids->ppid, +#endif + ids->uid, ids->euid, + ids->gid, ids->egid); +#endif /* #ifndef WIN32 */ +} + +static void modperl_perl_init_ids(pTHX_ modperl_perl_ids_t *ids) +{ + sv_setiv(GvSV(gv_fetchpv("$", TRUE, SVt_PV)), ids->pid); + +#if !MP_PERL_VERSION_AT_LEAST(5, 16, 0) +#ifndef WIN32 + PL_uid = ids->uid; + PL_euid = ids->euid; + PL_gid = ids->gid; + PL_egid = ids->egid; +#endif +#ifdef MP_MAINTAIN_PPID + PL_ppid = ids->ppid; +#endif +#endif +} + + +#ifdef USE_ITHREADS + +static apr_status_t modperl_perl_init_ids_mip(pTHX_ modperl_interp_pool_t *mip, + void *data) +{ + modperl_perl_init_ids(aTHX_ (modperl_perl_ids_t *)data); + return APR_SUCCESS; +} + +#endif /* USE_ITHREADS */ + +void modperl_perl_init_ids_server(server_rec *s) +{ + modperl_perl_ids_t ids; + modperl_perl_ids_get(&ids); +#ifdef USE_ITHREADS + modperl_interp_mip_walk_servers(NULL, s, + modperl_perl_init_ids_mip, + (void*)&ids); +#else + modperl_perl_init_ids(aTHX_ &ids); +#endif +} + +void modperl_perl_destruct(PerlInterpreter *perl) +{ + char **orig_environ = NULL; + PTR_TBL_t *module_commands; + dTHXa(perl); + + PERL_SET_CONTEXT(perl); + + modperl_perl_call_endav(aTHX); + + PL_perl_destruct_level = modperl_perl_destruct_level(); + +#ifdef USE_ENVIRON_ARRAY + /* XXX: otherwise Perl may try to free() environ multiple times + * but it wasn't Perl that modified environ + * at least, not if modperl is doing things right + * this is a bug in Perl. + */ +# ifdef WIN32 + /* + * PL_origenviron = environ; doesn't work under win32 service. + * we pull a different stunt here that has the same effect of + * tricking perl into _not_ freeing the real 'environ' array. + * instead temporarily swap with a dummy array we malloc + * here which is ok to let perl free. + */ + orig_environ = environ; + environ = safemalloc(2 * sizeof(char *)); + environ[0] = NULL; +# else + PL_origenviron = environ; +# endif +#endif + + { + dTHXa(perl); + + if ((module_commands = modperl_module_config_table_get(aTHX_ FALSE))) { + modperl_svptr_table_destroy(aTHX_ module_commands); + } + } + + modperl_env_unload(aTHX); + + perl_destruct(perl); + + /* XXX: big bug in 5.6.1 fixed in 5.7.2+ + * XXX: try to find a workaround for 5.6.1 + */ +#if defined(WIN32) && !defined(CLONEf_CLONE_HOST) +# define MP_NO_PERL_FREE +#endif + +#ifndef MP_NO_PERL_FREE + perl_free(perl); +#endif + +#ifdef USE_ENVIRON_ARRAY + if (orig_environ) { + environ = orig_environ; + } +#endif +} + +void modperl_perl_call_endav(pTHX) +{ + if (PL_endav) { + modperl_perl_call_list(aTHX_ PL_endav, "END"); + } +} + +#if !(MP_PERL_VERSION_AT_MOST(5, 8, 0)) && \ + (defined(USE_HASH_SEED) || defined(USE_HASH_SEED_EXPLICIT)) +#define MP_NEED_HASH_SEED_FIXUP +#endif + +#ifdef MP_NEED_HASH_SEED_FIXUP +static UV MP_init_hash_seed = 0; +static bool MP_init_hash_seed_set = FALSE; +#endif + +/* see modperl_hash_seed_set() */ +void modperl_hash_seed_init(apr_pool_t *p) +{ +#ifdef MP_NEED_HASH_SEED_FIXUP + char *s; + /* check if there is a specific hash seed passed via the env var + * and if that's the case -- use it */ + apr_status_t rv = apr_env_get(&s, "PERL_HASH_SEED", p); + if (rv == APR_SUCCESS) { + if (s) { + while (isSPACE(*s)) s++; + } + if (s && isDIGIT(*s)) { + MP_init_hash_seed = (UV)Atol(s); /* XXX: Atoul()? */ + MP_init_hash_seed_set = TRUE; + } + } + + /* calculate our own random hash seed */ + if (!MP_init_hash_seed_set) { + apr_uuid_t *uuid = (apr_uuid_t *)apr_palloc(p, sizeof(apr_uuid_t)); + char buf[APR_UUID_FORMATTED_LENGTH + 1]; + int i; + + apr_initialize(); + apr_uuid_get(uuid); + apr_uuid_format(buf, uuid); + /* fprintf(stderr, "UUID: %s\n", buf); */ + + /* XXX: need a better alg to convert uuid string into a seed */ + for (i=0; buf[i]; i++){ + MP_init_hash_seed += (UV)(i+1)*(buf[i]+MP_init_hash_seed); + } + + MP_init_hash_seed_set = TRUE; + } +#endif +} + +/* before 5.8.1, perl was using HASH_SEED=0, starting from 5.8.1 + * it randomizes if perl was compiled with ccflags -DUSE_HASH_SEED + * or -DUSE_HASH_SEED_EXPLICIT, in which case we need to tell perl + * to use the same seed everywhere */ +void modperl_hash_seed_set(pTHX) +{ +#ifdef MP_NEED_HASH_SEED_FIXUP + if (MP_init_hash_seed_set) { +#if MP_PERL_VERSION_AT_LEAST(5, 17, 6) + memcpy(PL_hash_seed, &MP_init_hash_seed, + sizeof(PL_hash_seed) > sizeof(MP_init_hash_seed) ? + sizeof(MP_init_hash_seed) : sizeof(PL_hash_seed)); + PL_hash_seed_set = MP_init_hash_seed_set; +#elif MP_PERL_VERSION_AT_LEAST(5, 8, 2) + PL_rehash_seed = MP_init_hash_seed; + PL_rehash_seed_set = MP_init_hash_seed_set; +#else + PL_hash_seed = MP_init_hash_seed; + PL_hash_seed_set = MP_init_hash_seed_set; +#endif + } +#endif +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_perl.h b/2_0_13/src/modules/perl/modperl_perl.h new file mode 100644 index 0000000..d91ab5f --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_perl.h
@@ -0,0 +1,71 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_PERL_H +#define MODPERL_PERL_H + +/* starting from 5.8.1 perl caches ppids, so we need to maintain our + * own. some distros fetch fake 5.8.0 with changes from 5.8.1, so we + * need to do that for those fake 5.8.0 as well. real 5.8.0 doesn't + * have THREADS_HAVE_PIDS defined. + */ +#if MP_PERL_VERSION_AT_LEAST(5, 8, 0) && THREADS_HAVE_PIDS +#define MP_MAINTAIN_PPID +#endif + +typedef struct { + I32 pid; + Uid_t uid, euid; + Gid_t gid, egid; +#ifdef MP_MAINTAIN_PPID + Uid_t ppid; +#endif +} modperl_perl_ids_t; + +void modperl_perl_core_global_init(pTHX); + +void modperl_perl_init_ids_server(server_rec *s); + +void modperl_perl_destruct(PerlInterpreter *perl); + +void modperl_perl_call_endav(pTHX); + +void modperl_hash_seed_init(apr_pool_t *p); + +void modperl_hash_seed_set(pTHX); + +#ifndef GvCV_set +# define GvCV_set(gv, cv) (GvCV(gv)=(cv)) +#endif +#ifndef GvGP_set +# define GvGP_set(gv, gp) (GvGP(gv)=(gp)) +#endif + +#ifndef Newx +# define Newx(v,n,t) New(0,v,n,t) +#endif +#ifndef Newxz +# define Newxz(v,n,t) Newz(0,v,n,t) +#endif + +#endif /* MODPERL_PERL_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_perl_global.c b/2_0_13/src/modules/perl/modperl_perl_global.c new file mode 100644 index 0000000..f52e42c --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_perl_global.c
@@ -0,0 +1,503 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* XXX: PL_modglobal thingers might be useful elsewhere */ + +#define MP_MODGLOBAL_ENT(key) \ + {key, "ModPerl::" key, MP_SSTRLEN("ModPerl::") + MP_SSTRLEN(key), 0} + +static modperl_modglobal_key_t MP_modglobal_keys[] = { + MP_MODGLOBAL_ENT("END"), + MP_MODGLOBAL_ENT("ANONSUB"), + { NULL }, +}; + +void modperl_modglobal_hash_keys(pTHX) +{ + modperl_modglobal_key_t *gkey = MP_modglobal_keys; + + while (gkey->name) { + PERL_HASH(gkey->hash, gkey->val, gkey->len); + gkey++; + } +} + +modperl_modglobal_key_t *modperl_modglobal_lookup(pTHX_ const char *name) +{ + modperl_modglobal_key_t *gkey = MP_modglobal_keys; + + while (gkey->name) { + if (strEQ(gkey->name, name)) { + return gkey; + } + gkey++; + } + + return NULL; +} + +static void modperl_perl_global_init(pTHX_ modperl_perl_globals_t *globals) +{ + globals->env.gv = PL_envgv; + globals->inc.gv = PL_incgv; + globals->defout.gv = PL_defoutgv; + globals->rs.sv = &PL_rs; + globals->end.av = &PL_endav; + globals->end.key = MP_MODGLOBAL_END; +} + +/* + * if (exists $PL_modglobal{$key}{$package}) { + * return $PL_modglobal{$key}{$package}; + * } + * elsif ($autovivify) { + * return $PL_modglobal{$key}{$package} = []; + * } + * else { + * return (AV *)NULL; # a null pointer in C of course :) + * } + */ +static AV *modperl_perl_global_avcv_fetch(pTHX_ modperl_modglobal_key_t *gkey, + const char *package, I32 packlen, + I32 autovivify) +{ + HE *he = MP_MODGLOBAL_FETCH(gkey); + HV *hv; + + if (!(he && (hv = (HV*)HeVAL(he)))) { + if (autovivify) { + hv = MP_MODGLOBAL_STORE_HV(gkey); + } + else { + return (AV *)NULL; + } + } + + if ((he = hv_fetch_he(hv, (char *)package, packlen, 0))) { + return (AV*)HeVAL(he); + } + else { + if (autovivify) { + return (AV*)*hv_store(hv, package, packlen, (SV*)newAV(), 0); + } + else { + return (AV *)NULL; + } + } +} + +/* autovivify $PL_modglobal{$key}{$package} if it doesn't exist yet, + * so that in modperl_perl_global_avcv_set we will know whether to + * store blocks in it or keep them in the original list. + * + * For example in the case of END blocks, if + * $PL_modglobal{END}{$package} exists, modperl_perl_global_avcv_set + * will push newly encountered END blocks to it, otherwise it'll keep + * them in PL_endav. + */ +void modperl_perl_global_avcv_register(pTHX_ modperl_modglobal_key_t *gkey, + const char *package, I32 packlen) +{ + AV *av = modperl_perl_global_avcv_fetch(aTHX_ gkey, + package, packlen, TRUE); + + MP_TRACE_g(MP_FUNC, "register PL_modglobal %s::%s (has %d entries)", + package, (char*)gkey->name, av ? 1+av_len(av) : 0); +} + +/* if (exists $PL_modglobal{$key}{$package}) { + * for my $cv (@{ $PL_modglobal{$key}{$package} }) { + * $cv->(); + * } + * } + */ +void modperl_perl_global_avcv_call(pTHX_ modperl_modglobal_key_t *gkey, + const char *package, I32 packlen) +{ + AV *av = modperl_perl_global_avcv_fetch(aTHX_ gkey, package, packlen, + FALSE); + + MP_TRACE_g(MP_FUNC, "run PL_modglobal %s::%s (has %d entries)", + package, (char*)gkey->name, av ? 1+av_len(av) : 0); + + if (av) { + modperl_perl_call_list(aTHX_ av, gkey->name); + } +} + + +/* if (exists $PL_modglobal{$key}{$package}) { + * @{ $PL_modglobal{$key}{$package} } = (); + * } + */ +void modperl_perl_global_avcv_clear(pTHX_ modperl_modglobal_key_t *gkey, + const char *package, I32 packlen) +{ + AV *av = modperl_perl_global_avcv_fetch(aTHX_ gkey, + package, packlen, FALSE); + + MP_TRACE_g(MP_FUNC, "clear PL_modglobal %s::%s (has %d entries)", + package, (char*)gkey->name, av ? 1+av_len(av) : 0); + + if (av) { + av_clear(av); + } +} + +static int modperl_perl_global_avcv_set(pTHX_ SV *sv, MAGIC *mg) +{ + AV *mav, *av = (AV*)sv; + const char *package = HvNAME(PL_curstash); + I32 packlen = strlen(package); + modperl_modglobal_key_t *gkey = + (modperl_modglobal_key_t *)mg->mg_ptr; + + /* the argument sv, is the original list perl was operating on. + * (e.g. PL_endav). So now if we find that we have package/cv name + * (e.g. Foo/END) registered for set-aside, we remove the cv that + * was just unshifted in and push it into + * $PL_modglobal{$key}{$package}. Otherwise we do nothing, which + * keeps the unshifted cv (e.g. END block) in its original av + * (e.g. PL_endav) + */ + + mav = modperl_perl_global_avcv_fetch(aTHX_ gkey, package, packlen, FALSE); + + if (!mav) { + MP_TRACE_g(MP_FUNC, "%s::%s is not going to PL_modglobal", + package, (char*)gkey->name); + /* keep it in the tied list (e.g. PL_endav) */ + return 1; + } + + MP_TRACE_g(MP_FUNC, "%s::%s is going into PL_modglobal", + package, (char*)gkey->name); + + sv = av_shift(av); + + /* push @{ $PL_modglobal{$key}{$package} }, $cv */ + av_store(mav, AvFILLp(mav)+1, sv); + + /* print scalar @{ $PL_modglobal{$key}{$package} } */ + MP_TRACE_g(MP_FUNC, "%s::%s av now has %d entries", + package, (char*)gkey->name, 1+av_len(mav)); + + return 1; +} + +static MGVTBL modperl_vtbl_global_avcv_t = { + 0, + modperl_perl_global_avcv_set, + 0, 0, 0, +}; + +static void modperl_perl_global_avcv_tie(pTHX_ modperl_modglobal_key_e key, + AV *av) +{ + if (!SvMAGIC((SV*)av)) { + MAGIC *mg; + Newxz(mg, 1, MAGIC); + mg->mg_virtual = &modperl_vtbl_global_avcv_t; + mg->mg_ptr = (char *)&MP_modglobal_keys[key]; + mg->mg_len = -1; /* prevent free() of mg->mg_ptr */ + SvMAGIC((SV*)av) = mg; + } + + SvSMAGICAL_on((SV*)av); +} + +static void modperl_perl_global_avcv_untie(pTHX_ AV *av) +{ + SvSMAGICAL_off((SV*)av); +} + +static void +modperl_perl_global_avcv_save(pTHX_ modperl_perl_global_avcv_t *avcv) +{ + if (!*avcv->av) { + *avcv->av = newAV(); + } + + modperl_perl_global_avcv_tie(aTHX_ avcv->key, *avcv->av); +} + +static void +modperl_perl_global_avcv_restore(pTHX_ modperl_perl_global_avcv_t *avcv) +{ + modperl_perl_global_avcv_untie(aTHX_ *avcv->av); +} + +/* + * newHVhv is not good enough since it does not copy magic. + * XXX: 5.8.0+ newHVhv has some code thats faster than hv_iternext + */ +static HV *copyENV(pTHX_ HV *ohv) +{ + HE *entry, *hv_eiter; + I32 hv_riter; + register HV *hv; + STRLEN hv_max = HvMAX(ohv); + STRLEN hv_fill = HvFILL(ohv); + + hv = newHV(); + while (hv_max && hv_max + 1 >= hv_fill * 2) { + hv_max = hv_max / 2; /* Is always 2^n-1 */ + } + + HvMAX(hv) = hv_max; + + if (!hv_fill) { + return hv; + } + + hv_riter = HvRITER(ohv); /* current root of iterator */ + hv_eiter = HvEITER(ohv); /* current entry of iterator */ + + hv_iterinit(ohv); + while ((entry = hv_iternext(ohv))) { + SV *sv = newSVsv(HeVAL(entry)); + modperl_envelem_tie(sv, HeKEY(entry), HeKLEN(entry)); + (void)hv_store(hv, HeKEY(entry), HeKLEN(entry), + sv, HeHASH(entry)); + } + + HvRITER(ohv) = hv_riter; + HvEITER(ohv) = hv_eiter; + + hv_magic(hv, (GV *)NULL, 'E'); + + TAINT_NOT; + + return hv; +} + +static void +modperl_perl_global_gvhv_save(pTHX_ modperl_perl_global_gvhv_t *gvhv) +{ + HV *hv = GvHV(gvhv->gv); +#if 0 + U32 mg_flags; + MAGIC *mg = SvMAGIC(hv); + + /* + * there should only be a small number of entries in %ENV + * at this point: modperl_env.c:modperl_env_const_vars[], + * PerlPassEnv and top-level PerlSetEnv + * XXX: still; could have have something faster than newHVhv() + * especially if we add another GVHV to the globals table that + * might have more entries + */ + + /* makes newHVhv() faster in bleedperl */ + MP_magical_untie(hv, mg_flags); + + gvhv->tmphv = newHVhv(hv); + TAINT_NOT; + + /* reapply magic flags */ + MP_magical_tie(hv, mg_flags); + MP_magical_tie(gvhv->tmphv, mg_flags); + + if (mg && mg->mg_type && !SvMAGIC(gvhv->tmphv)) { + /* propagate SvMAGIC(hv) to SvMAGIC(gvhv->tmphv) */ + /* XXX: maybe newHVhv should do this? */ + hv_magic(gvhv->tmphv, (GV *)NULL, mg->mg_type); + } +#else + gvhv->tmphv = copyENV(aTHX_ hv); +#endif + + gvhv->orighv = hv; + GvHV(gvhv->gv) = gvhv->tmphv; +} + +static void +modperl_perl_global_gvhv_restore(pTHX_ modperl_perl_global_gvhv_t *gvhv) +{ + U32 mg_flags; + + GvHV(gvhv->gv) = gvhv->orighv; + + /* loose magic for hv_clear() + * e.g. for %ENV don't want to clear environ array + */ + MP_magical_untie(gvhv->tmphv, mg_flags); + SvREFCNT_dec(gvhv->tmphv); + + /* avoiding -Wall warning */ + mg_flags = mg_flags; +} + +static void +modperl_perl_global_gvav_save(pTHX_ modperl_perl_global_gvav_t *gvav) +{ + gvav->origav = GvAV(gvav->gv); + gvav->tmpav = newAV(); + modperl_perl_av_push_elts_ref(aTHX_ gvav->tmpav, gvav->origav); + GvAV(gvav->gv) = gvav->tmpav; +} + +static void +modperl_perl_global_gvav_restore(pTHX_ modperl_perl_global_gvav_t *gvav) +{ + GvAV(gvav->gv) = gvav->origav; + SvREFCNT_dec(gvav->tmpav); +} + +static void +modperl_perl_global_gvio_save(pTHX_ modperl_perl_global_gvio_t *gvio) +{ + gvio->flags = IoFLAGS(GvIOp(gvio->gv)); +} + +static void +modperl_perl_global_gvio_restore(pTHX_ modperl_perl_global_gvio_t *gvio) +{ + IoFLAGS(GvIOp(gvio->gv)) = gvio->flags; +} + +static void +modperl_perl_global_svpv_save(pTHX_ modperl_perl_global_svpv_t *svpv) +{ + svpv->cur = SvCUR(*svpv->sv); + strncpy(svpv->pv, SvPVX(*svpv->sv), sizeof(svpv->pv)); +} + +static void +modperl_perl_global_svpv_restore(pTHX_ modperl_perl_global_svpv_t *svpv) +{ + sv_setpvn(*svpv->sv, svpv->pv, svpv->cur); +} + +typedef enum { + MP_GLOBAL_AVCV, + MP_GLOBAL_GVHV, + MP_GLOBAL_GVAV, + MP_GLOBAL_GVIO, + MP_GLOBAL_SVPV +} modperl_perl_global_types_e; + +typedef struct { + char *name; + int offset; + modperl_perl_global_types_e type; +} modperl_perl_global_entry_t; + +#define MP_GLOBAL_OFFSET(m) \ + STRUCT_OFFSET(modperl_perl_globals_t, m) + +static modperl_perl_global_entry_t MP_perl_global_entries[] = { + {"END", MP_GLOBAL_OFFSET(end), MP_GLOBAL_AVCV}, /* END */ + {"ENV", MP_GLOBAL_OFFSET(env), MP_GLOBAL_GVHV}, /* %ENV */ + {"INC", MP_GLOBAL_OFFSET(inc), MP_GLOBAL_GVAV}, /* @INC */ + {"STDOUT", MP_GLOBAL_OFFSET(defout), MP_GLOBAL_GVIO}, /* $| */ + {"/", MP_GLOBAL_OFFSET(rs), MP_GLOBAL_SVPV}, /* $/ */ + {NULL} +}; + +#define MP_PERL_GLOBAL_SAVE(type, ptr) \ + modperl_perl_global_##type##_save( \ + aTHX_ (modperl_perl_global_##type##_t *)&(*ptr)) + +#define MP_PERL_GLOBAL_RESTORE(type, ptr) \ + modperl_perl_global_##type##_restore( \ + aTHX_ (modperl_perl_global_##type##_t *)&(*ptr)) + +#define MP_dGLOBAL_PTR(globals, entries) \ + apr_uint64_t **ptr = (apr_uint64_t **) \ + ((char *)globals + (int)(long)entries->offset) + +static void modperl_perl_global_save(pTHX_ modperl_perl_globals_t *globals, + modperl_perl_global_entry_t *entries) +{ + modperl_perl_global_init(aTHX_ globals); + + while (entries->name) { + MP_dGLOBAL_PTR(globals, entries); + + switch (entries->type) { + case MP_GLOBAL_AVCV: + MP_PERL_GLOBAL_SAVE(avcv, ptr); + break; + case MP_GLOBAL_GVHV: + MP_PERL_GLOBAL_SAVE(gvhv, ptr); + break; + case MP_GLOBAL_GVAV: + MP_PERL_GLOBAL_SAVE(gvav, ptr); + break; + case MP_GLOBAL_GVIO: + MP_PERL_GLOBAL_SAVE(gvio, ptr); + break; + case MP_GLOBAL_SVPV: + MP_PERL_GLOBAL_SAVE(svpv, ptr); + break; + } + + entries++; + } +} + +static void modperl_perl_global_restore(pTHX_ modperl_perl_globals_t *globals, + modperl_perl_global_entry_t *entries) +{ + while (entries->name) { + MP_dGLOBAL_PTR(globals, entries); + + switch (entries->type) { + case MP_GLOBAL_AVCV: + MP_PERL_GLOBAL_RESTORE(avcv, ptr); + break; + case MP_GLOBAL_GVHV: + MP_PERL_GLOBAL_RESTORE(gvhv, ptr); + break; + case MP_GLOBAL_GVAV: + MP_PERL_GLOBAL_RESTORE(gvav, ptr); + break; + case MP_GLOBAL_GVIO: + MP_PERL_GLOBAL_RESTORE(gvio, ptr); + break; + case MP_GLOBAL_SVPV: + MP_PERL_GLOBAL_RESTORE(svpv, ptr); + break; + } + + entries++; + } +} + +void modperl_perl_global_request_save(pTHX_ request_rec *r) +{ + MP_dRCFG; + modperl_perl_global_save(aTHX_ &rcfg->perl_globals, + MP_perl_global_entries); +} + +void modperl_perl_global_request_restore(pTHX_ request_rec *r) +{ + MP_dRCFG; + modperl_perl_global_restore(aTHX_ &rcfg->perl_globals, + MP_perl_global_entries); + +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_perl_global.h b/2_0_13/src/modules/perl/modperl_perl_global.h new file mode 100644 index 0000000..5f1fc44 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_perl_global.h
@@ -0,0 +1,98 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_PERL_GLOBAL_H +#define MODPERL_PERL_GLOBAL_H + +#define MP_MODGLOBAL_FETCH(gkey) \ + hv_fetch_he(PL_modglobal, (char *)gkey->val, gkey->len, gkey->hash) + +#define MP_MODGLOBAL_STORE_HV(gkey) \ + (HV*)*hv_store(PL_modglobal, gkey->val, gkey->len, \ + (SV*)newHV(), gkey->hash) + +typedef struct { + const char *name; + const char *val; + I32 len; + U32 hash; +} modperl_modglobal_key_t; + +typedef enum { + MP_MODGLOBAL_END +} modperl_modglobal_key_e; + +typedef struct { + AV **av; + modperl_modglobal_key_e key; +} modperl_perl_global_avcv_t; + +typedef struct { + GV *gv; + AV *tmpav; + AV *origav; +} modperl_perl_global_gvav_t; + +typedef struct { + GV *gv; + HV *tmphv; + HV *orighv; +} modperl_perl_global_gvhv_t; + +typedef struct { + GV *gv; + char flags; +} modperl_perl_global_gvio_t; + +typedef struct { + SV **sv; + char pv[256]; /* XXX: only need enough for $/ at the moment */ + I32 cur; +} modperl_perl_global_svpv_t; + +typedef struct { + modperl_perl_global_avcv_t end; + modperl_perl_global_gvhv_t env; + modperl_perl_global_gvav_t inc; + modperl_perl_global_gvio_t defout; + modperl_perl_global_svpv_t rs; +} modperl_perl_globals_t; + +void modperl_modglobal_hash_keys(pTHX); + +modperl_modglobal_key_t *modperl_modglobal_lookup(pTHX_ const char *name); + +void modperl_perl_global_request_save(pTHX_ request_rec *r); + +void modperl_perl_global_request_restore(pTHX_ request_rec *r); + +void modperl_perl_global_avcv_register(pTHX_ modperl_modglobal_key_t *gkey, + const char *package, I32 packlen); + +void modperl_perl_global_avcv_call(pTHX_ modperl_modglobal_key_t *gkey, + const char *package, I32 packlen); + +void modperl_perl_global_avcv_clear(pTHX_ modperl_modglobal_key_t *gkey, + const char *package, I32 packlen); + +#endif + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_perl_includes.h b/2_0_13/src/modules/perl/modperl_perl_includes.h new file mode 100644 index 0000000..3b85b49 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_perl_includes.h
@@ -0,0 +1,148 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_PERL_INCLUDES_H +#define MODPERL_PERL_INCLUDES_H + +/* header files for Perl */ + +#ifndef PERL_NO_GET_CONTEXT +# define PERL_NO_GET_CONTEXT +#endif + +#define PERLIO_NOT_STDIO 0 + +#include "config.h" + +/* + * sizeof(struct PerlInterpreter) changes #ifdef USE_LARGE_FILES + * apache-2.0 cannot be compiled with lfs because of sendfile.h + * the PERL_CORE optimization is a no-no in this case + */ +#if defined(USE_ITHREADS) && !defined(USE_LARGE_FILES) +# define PERL_CORE +#endif + +#ifdef MP_SOURCE_SCAN +/* XXX: C::Scan does not properly remove __attribute__ within + * function prototypes; so we just rip them all out via cpp + */ +# undef __attribute__ +# define __attribute__(arg) + +# ifdef MP_SOURCE_SCAN_NEED_ITHREADS +/* just need to have pTHX_ defined for proper prototypes */ +# define USE_ITHREADS +# endif +#endif + +#ifdef WIN32 +# define uid_t perl_uid_t +# define gid_t perl_gid_t +# ifdef exit +# undef exit +# endif +#endif + +/* needed starting from 5.8.2 to access the PERL_HASH_INTERNAL macro + * in hv.h. we use it in modperl_util.c */ +#define PERL_HASH_INTERNAL_ACCESS + +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h" + +#if defined(WIN32) && defined(USE_LARGE_FILES) +# ifdef malloc +# undef malloc +# endif +# ifdef free +# undef free +# endif +#endif + +#include "modperl_perl_unembed.h" + +/* avoiding -Wall warning */ + +#undef dNOOP +#define dNOOP extern int __attribute__ ((unused)) Perl___notused___modperl + +#ifndef G_METHOD +# define G_METHOD 64 +#endif + +#ifndef PERL_MAGIC_tied +# define PERL_MAGIC_tied 'P' +#endif + +#ifndef PERL_MAGIC_tiedscalar +# define PERL_MAGIC_tiedscalar 'q' +#endif + +#ifndef PERL_MAGIC_ext +# define PERL_MAGIC_ext '~' +#endif + +#if defined(__APPLE__) && !defined(PERL_CORE) && !defined(environ) +# include <crt_externs.h> +# define environ (*_NSGetEnviron()) +#endif + +/* sv_copypv was added in perl 5.7.3 */ +#ifndef sv_copypv +# define sv_copypv(dsv, ssv) \ + STMT_START { \ + STRLEN len; \ + char *s; \ + s = SvPV(ssv, len); \ + sv_setpvn(dsv, s, len); \ + if (SvUTF8(ssv)) { \ + SvUTF8_on(dsv); \ + } \ + else { \ + SvUTF8_off(dsv); \ + } \ + } STMT_END +#endif + + +/* perl bug workaround: with USE_ITHREADS perl leaks pthread_key_t on + * every reload of libperl.{a,so} (it's allocated on the very first + * perl_alloc() and never freed). This becomes a problem on apache + * restart: if the OS limit is 1024, 1024 restarts later things will + * start crashing */ +/* XXX: once and if it's fixed in perl, we need to disable it for the + * versions that have it fixed, otherwise it'll crash because it'll be + * freed twice */ +#ifdef USE_ITHREADS +#define MP_PERL_FREE_THREAD_KEY_WORKAROUND \ + if (PL_curinterp) { \ + FREE_THREAD_KEY; \ + PL_curinterp = NULL; \ + } +#else +#define MP_PERL_FREE_THREAD_KEY_WORKAROUND +#endif + +#endif /* MODPERL_PERL_INCLUDES_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_perl_pp.c b/2_0_13/src/modules/perl/modperl_perl_pp.c new file mode 100644 index 0000000..881d99e --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_perl_pp.c
@@ -0,0 +1,122 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +static enum opcode MP_pp_map[] = { +#ifdef MP_REFGEN_FIXUP + OP_SREFGEN, +#endif + OP_REQUIRE +}; + +typedef OP * (*modperl_pp_t)(pTHX); + +static modperl_pp_t MP_PERL_ppaddr[MP_OP_max]; + +#ifdef MP_REFGEN_FIXUP + +/* + * nasty workaround for bug fixed in bleedperl (11536 + 11553) + * XXX: when 5.8.0 is released + stable, we will require 5.8.0 + * if ithreads are enabled. + */ + +static OP *modperl_pp_srefgen(pTHX) +{ + dSP; + OP *o; + SV *sv = *SP; + + if (SvPADTMP(sv) && IS_PADGV(sv)) { + /* prevent S_refto from making a copy of the GV, + * tricking it to SvREFCNT_inc and point to this one instead. + */ + SvPADTMP_off(sv); + } + else { + sv = (SV *)NULL; + } + + /* o = Perl_pp_srefgen(aTHX) */ + o = MP_PERL_ppaddr[MP_OP_SREFGEN](aTHX); + + if (sv) { + /* restore original flags */ + SvPADTMP_on(sv); + } + + return o; +} + +#endif /* MP_REFGEN_FIXUP */ + +static OP *modperl_pp_require(pTHX) +{ + /* nothing yet */ + return MP_PERL_ppaddr[MP_OP_REQUIRE](aTHX); +} + +static modperl_pp_t MP_ppaddr[] = { +#ifdef MP_REFGEN_FIXUP + modperl_pp_srefgen, +#endif + modperl_pp_require +}; + +void modperl_perl_pp_set(modperl_perl_opcode_e idx) +{ + int pl_idx = MP_pp_map[idx]; + + /* save original */ + MP_PERL_ppaddr[idx] = PL_ppaddr[pl_idx]; + + /* replace with our own */ + PL_ppaddr[pl_idx] = MP_ppaddr[idx]; +} + +void modperl_perl_pp_set_all(void) +{ + int i; + + for (i=0; i<MP_OP_max; i++) { + modperl_perl_pp_set(i); + } +} + +void modperl_perl_pp_unset(modperl_perl_opcode_e idx) +{ + int pl_idx = MP_pp_map[idx]; + + /* restore original */ + PL_ppaddr[pl_idx] = MP_PERL_ppaddr[idx]; +} + +void modperl_perl_pp_unset_all(void) +{ + int i; + + for (i=0; i<MP_OP_max; i++) { + modperl_perl_pp_unset(i); + } +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_perl_pp.h b/2_0_13/src/modules/perl/modperl_perl_pp.h new file mode 100644 index 0000000..2386c3e --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_perl_pp.h
@@ -0,0 +1,50 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_PERL_PP_H +#define MODPERL_PERL_PP_H + +#define MP_PERL_BRANCH(r, v) \ + (PERL_REVISION == r && PERL_VERSION == v) + +#if defined(USE_ITHREADS) && MP_PERL_BRANCH(5, 6) +# define MP_REFGEN_FIXUP +#endif + +typedef enum { +#ifdef MP_REFGEN_FIXUP + MP_OP_SREFGEN, +#endif + MP_OP_REQUIRE, + MP_OP_max +} modperl_perl_opcode_e; + +void modperl_perl_pp_set(modperl_perl_opcode_e idx); + +void modperl_perl_pp_set_all(void); + +void modperl_perl_pp_unset(modperl_perl_opcode_e idx); + +void modperl_perl_pp_unset_all(void); + +#endif /* MODPERL_PERL_PP_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_perl_unembed.h b/2_0_13/src/modules/perl/modperl_perl_unembed.h new file mode 100644 index 0000000..4db14a5 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_perl_unembed.h
@@ -0,0 +1,52 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_PERL_UNEMBED_H +#define MODPERL_PERL_UNEMBED_H + +#ifdef PERL_CORE +# ifndef croak +# define croak Perl_croak_nocontext +# endif +#endif + +/* avoiding namespace collisions */ + +/* from XSUB.h */ +/* mod_perl.c calls exit() in a few places */ +#undef exit +/* modperl_tipool.c references abort() */ +#undef abort +/* these three clash with apr bucket structure member names */ +#undef link +#undef read +#undef free +/* modperl_perl.c */ +#ifdef WIN32 +# undef getpid +# undef getenv +#endif + +#undef list + +#endif /* MODPERL_PERL_UNEMBED_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_svptr_table.c b/2_0_13/src/modules/perl/modperl_svptr_table.c new file mode 100644 index 0000000..e63a3b8 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_svptr_table.c
@@ -0,0 +1,312 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* + * modperl_svptr_table api is an add-on to the Perl ptr_table_ api. + * we use a PTR_TBL_t to map config structures (e.g. from parsed + * httpd.conf or .htaccess), where each interpreter needs to have its + * own copy of the Perl SV object. we do not use an HV* for this, because + * the HV keys must be SVs with a string value, too much overhead. + * we do not use an apr_hash_t because they only have the lifetime of + * the pool used to create them. which may or may not be the same lifetime + * of the objects we need to lookup. + */ + +#ifdef USE_ITHREADS + +#if MP_PERL_BRANCH(5, 6) +# define my_sv_dup(s, p) SvREFCNT_inc(sv_dup(s)) + +typedef struct { + AV *stashes; + UV flags; + PerlInterpreter *proto_perl; +} CLONE_PARAMS; + +#else +# ifdef sv_dup_inc +# define my_sv_dup(s, p) sv_dup_inc(s, p) +# else +# define my_sv_dup(s, p) SvREFCNT_inc(sv_dup(s, p)) +# endif +#endif + +/* + * copy a PTR_TBL_t whos PTR_TBL_ENT_t values are SVs. + * the SVs are dup-ed so each interpreter has its own copy. + */ +PTR_TBL_t *modperl_svptr_table_clone(pTHX_ PerlInterpreter *proto_perl, + PTR_TBL_t *source) +{ + UV i; + PTR_TBL_t *tbl; + PTR_TBL_ENT_t **src_ary, **dst_ary; + CLONE_PARAMS parms; + + Newxz(tbl, 1, PTR_TBL_t); + tbl->tbl_max = source->tbl_max; + tbl->tbl_items = source->tbl_items; + Newxz(tbl->tbl_ary, tbl->tbl_max + 1, PTR_TBL_ENT_t *); + + dst_ary = tbl->tbl_ary; + src_ary = source->tbl_ary; + + Zero(&parms, 1, CLONE_PARAMS); + parms.flags = 0; + parms.stashes = newAV(); + + for (i=0; i < source->tbl_max; i++, dst_ary++, src_ary++) { + PTR_TBL_ENT_t *src_ent, *dst_ent=NULL; + + if (!*src_ary) { + continue; + } + + for (src_ent = *src_ary; + src_ent; + src_ent = src_ent->next) + { + if (dst_ent == NULL) { + Newxz(dst_ent, 1, PTR_TBL_ENT_t); + *dst_ary = dst_ent; + } + else { + Newxz(dst_ent->next, 1, PTR_TBL_ENT_t); + dst_ent = dst_ent->next; + } + + /* key is just a pointer we do not modify, no need to copy */ + dst_ent->oldval = src_ent->oldval; + + dst_ent->newval = my_sv_dup((SV*)src_ent->newval, &parms); + } + } + + SvREFCNT_dec(parms.stashes); + + return tbl; +} + +#endif + +/* + * need to free the SV values in addition to ptr_table_free + */ +void modperl_svptr_table_destroy(pTHX_ PTR_TBL_t *tbl) +{ + UV i; + PTR_TBL_ENT_t **ary = tbl->tbl_ary; + + for (i=0; i < tbl->tbl_max; i++, ary++) { + PTR_TBL_ENT_t *ent; + + if (!*ary) { + continue; + } + + for (ent = *ary; ent; ent = ent->next) { + if (!ent->newval) { + continue; + } + + SvREFCNT_dec((SV*)ent->newval); + ent->newval = NULL; + } + } + + modperl_svptr_table_free(aTHX_ tbl); +} + +/* + * the Perl ptr_table_ api does not provide a function to remove + * an entry from the table. we need to SvREFCNT_dec the SV value + * anyhow. + */ +void modperl_svptr_table_delete(pTHX_ PTR_TBL_t *tbl, void *key) +{ + PTR_TBL_ENT_t *entry, **oentry; + UV hash = PTR2UV(key); + + oentry = &tbl->tbl_ary[hash & tbl->tbl_max]; + entry = *oentry; + + for (; entry; oentry = &entry->next, entry = *oentry) { + if (entry->oldval == key) { + *oentry = entry->next; + SvREFCNT_dec((SV*)entry->newval); + Safefree(entry); + tbl->tbl_items--; + return; + } + } +} + +/* + * XXX: the following are a copy of the Perl 5.8.0 Perl_ptr_table api + * renamed s/Perl_ptr/modperl_svptr/g; + * two reasons: + * these functions do not exist without -DUSE_ITHREADS + * the clear/free functions do not exist in 5.6.x + */ + +/* create a new pointer-mapping table */ + +PTR_TBL_t * +modperl_svptr_table_new(pTHX) +{ + PTR_TBL_t *tbl; + Newxz(tbl, 1, PTR_TBL_t); + tbl->tbl_max = 511; + tbl->tbl_items = 0; + Newxz(tbl->tbl_ary, tbl->tbl_max + 1, PTR_TBL_ENT_t*); + return tbl; +} + +/* map an existing pointer using a table */ + +void * +modperl_svptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv) +{ + PTR_TBL_ENT_t *tblent; + UV hash = PTR2UV(sv); + MP_ASSERT(tbl); + tblent = tbl->tbl_ary[hash & tbl->tbl_max]; + for (; tblent; tblent = tblent->next) { + if (tblent->oldval == sv) + return tblent->newval; + } + return (void*)NULL; +} + +/* add a new entry to a pointer-mapping table */ + +void +modperl_svptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldv, void *newv) +{ + PTR_TBL_ENT_t *tblent, **otblent; + /* XXX this may be pessimal on platforms where pointers aren't good + * hash values e.g. if they grow faster in the most significant + * bits */ + UV hash = PTR2UV(oldv); + bool i = 1; + + MP_ASSERT(tbl); + otblent = &tbl->tbl_ary[hash & tbl->tbl_max]; + for (tblent = *otblent; tblent; i=0, tblent = tblent->next) { + if (tblent->oldval == oldv) { + tblent->newval = newv; + return; + } + } + Newxz(tblent, 1, PTR_TBL_ENT_t); + tblent->oldval = oldv; + tblent->newval = newv; + tblent->next = *otblent; + *otblent = tblent; + tbl->tbl_items++; + if (i && tbl->tbl_items > tbl->tbl_max) + modperl_svptr_table_split(aTHX_ tbl); +} + +/* double the hash bucket size of an existing ptr table */ + +void +modperl_svptr_table_split(pTHX_ PTR_TBL_t *tbl) +{ + PTR_TBL_ENT_t **ary = tbl->tbl_ary; + UV oldsize = tbl->tbl_max + 1; + UV newsize = oldsize * 2; + UV i; + + Renew(ary, newsize, PTR_TBL_ENT_t*); + Zero(&ary[oldsize], newsize-oldsize, PTR_TBL_ENT_t*); + tbl->tbl_max = --newsize; + tbl->tbl_ary = ary; + for (i=0; i < oldsize; i++, ary++) { + PTR_TBL_ENT_t **curentp, **entp, *ent; + if (!*ary) + continue; + curentp = ary + oldsize; + for (entp = ary, ent = *ary; ent; ent = *entp) { + if ((newsize & PTR2UV(ent->oldval)) != i) { + *entp = ent->next; + ent->next = *curentp; + *curentp = ent; + continue; + } + else + entp = &ent->next; + } + } +} + +/* remove all the entries from a ptr table */ + +void +modperl_svptr_table_clear(pTHX_ PTR_TBL_t *tbl) +{ + register PTR_TBL_ENT_t **array; + register PTR_TBL_ENT_t *entry; + register PTR_TBL_ENT_t *oentry = (PTR_TBL_ENT_t *)NULL; + UV riter = 0; + UV max; + + if (!tbl || !tbl->tbl_items) { + return; + } + + array = tbl->tbl_ary; + entry = array[0]; + max = tbl->tbl_max; + + for (;;) { + if (entry) { + oentry = entry; + entry = entry->next; + Safefree(oentry); + } + if (!entry) { + if (++riter > max) { + break; + } + entry = array[riter]; + } + } + + tbl->tbl_items = 0; +} + +/* clear and free a ptr table */ + +void +modperl_svptr_table_free(pTHX_ PTR_TBL_t *tbl) +{ + if (!tbl) { + return; + } + modperl_svptr_table_clear(aTHX_ tbl); + Safefree(tbl->tbl_ary); + Safefree(tbl); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_svptr_table.h b/2_0_13/src/modules/perl/modperl_svptr_table.h new file mode 100644 index 0000000..673f643 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_svptr_table.h
@@ -0,0 +1,64 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_SVPTR_TABLE_H +#define MODPERL_SVPTR_TABLE_H + +#ifdef USE_ITHREADS + +PTR_TBL_t *modperl_svptr_table_clone(pTHX_ PerlInterpreter *proto_perl, + PTR_TBL_t *source); + +#endif + +void modperl_svptr_table_destroy(pTHX_ PTR_TBL_t *tbl); + +void modperl_svptr_table_delete(pTHX_ PTR_TBL_t *tbl, void *key); + +/* + * XXX: the following are a copy of the Perl 5.8.0 Perl_ptr_table api + * renamed s/Perl_ptr/modperl_svptr/g; + * two reasons: + * these functions do not exist without -DUSE_ITHREADS + * the clear/free functions do not exist in 5.6.x + */ + +PTR_TBL_t * +modperl_svptr_table_new(pTHX); + +void * +modperl_svptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv); + +void +modperl_svptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldv, void *newv); + +void +modperl_svptr_table_split(pTHX_ PTR_TBL_t *tbl); + +void +modperl_svptr_table_clear(pTHX_ PTR_TBL_t *tbl); + +void +modperl_svptr_table_free(pTHX_ PTR_TBL_t *tbl); + +#endif /* MODPERL_SVPTR_TABLE_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_sys.c b/2_0_13/src/modules/perl/modperl_sys.c new file mode 100644 index 0000000..3ce3cbc --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_sys.c
@@ -0,0 +1,76 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "modperl_largefiles.h" +#include "mod_perl.h" + +/* + * Stat_t needs flags in modperl_largefiles.h + */ +int modperl_sys_is_dir(pTHX_ SV *sv) +{ + Stat_t statbuf; + STRLEN n_a; + char *name = SvPV(sv, n_a); + + if (PerlLIO_stat(name, &statbuf) < 0) { + return 0; + } + + return S_ISDIR(statbuf.st_mode); +} + +/* + * Perl does not provide this abstraction. + * APR does, but requires a pool. efforts to expose this area of apr + * failed. so we roll our own. *sigh* + */ +int modperl_sys_dlclose(void *handle) +{ +#if defined(MP_SYS_DL_DLOPEN) +#ifdef I_DLFCN +#include <dlfcn.h> +#else +#include <nlist.h> +#include <link.h> +#endif + return dlclose(handle) == 0; +#elif defined(MP_SYS_DL_DYLD) + return NSUnLinkModule(handle, FALSE); +#elif defined(MP_SYS_DL_HPUX) +#include <dl.h> + shl_unload((shl_t)handle); + return 1; +#elif defined(MP_SYS_DL_WIN32) + return FreeLibrary(handle); +#elif defined(MP_SYS_DL_BEOS) + return unload_add_on(handle) < B_NO_ERROR; +#elif defined(MP_SYS_DL_DLLLOAD) + return dllfree(handle) == 0; +#elif defined(MP_SYS_DL_AIX) + return dlclose(handle) == 0; +#else +#error "modperl_sys_dlclose not defined on this platform" + return 0; +#endif +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_sys.h b/2_0_13/src/modules/perl/modperl_sys.h new file mode 100644 index 0000000..a52763a --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_sys.h
@@ -0,0 +1,37 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_SYS_H +#define MODPERL_SYS_H + +/* + * system specific type stuff. + * hopefully won't be much here since Perl/APR/Apache + * take care of most portablity issues. + */ + +int modperl_sys_is_dir(pTHX_ SV *sv); + +int modperl_sys_dlclose(void *handle); + +#endif /* MODPERL_SYS_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_time.h b/2_0_13/src/modules/perl/modperl_time.h new file mode 100644 index 0000000..bc7cbf8 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_time.h
@@ -0,0 +1,59 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_TIME_H +#define MODPERL_TIME_H + +#ifdef HZ +# define MP_HZ HZ +#else +# define MP_HZ 100 +#endif + +#ifdef MP_TRACE +#define dMP_TIMES \ + struct tms start_time; \ + struct tms end_time +#else +#define dMP_TIMES dNOOP +#endif + +#define MP_START_TIMES() \ + MP_TRACE_t_do((void)PerlProc_times(&start_time)) + +#define MP_END_TIMES() \ + MP_TRACE_t_do((void)PerlProc_times(&end_time)) + +#define MP_PRINT_TIMES(label) \ + MP_TRACE_t_do({ \ + double utime = \ + (double)(end_time.tms_utime - start_time.tms_utime)/MP_HZ; \ + double stime = \ + (double)(end_time.tms_stime - start_time.tms_stime)/MP_HZ; \ + if (utime || stime) { \ + MP_TRACE_t(MP_FUNC, "%s %5.2f user %5.2f sys", \ + label, utime, stime); \ + } \ + }) + +#endif /* MODPERL_TIME_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_tipool.c b/2_0_13/src/modules/perl/modperl_tipool.c new file mode 100644 index 0000000..9cb0ad0 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_tipool.c
@@ -0,0 +1,410 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +#ifdef USE_ITHREADS + +/* + * tipool == "thread item pool" + * this module is intended to provide generic stuctures/functions + * for managing a "pool" of a given items (data structures) within a threaded + * process. at the moment, mod_perl uses this module to manage a pool + * of PerlInterpreter objects. it should be quite easy to reuse for + * other data, such as database connection handles and the like. + * while it is "generic" it is also tuned for Apache, making use of + * apr_pool_t and the like, and implementing start/max/{min,max}_spare/ + * max_requests configuration. + * this is another "proof-of-concept", plenty of room for improvement here + */ + +modperl_list_t *modperl_list_new() +{ + modperl_list_t *listp = + (modperl_list_t *)malloc(sizeof(*listp)); + memset(listp, '\0', sizeof(*listp)); + return listp; +} + +modperl_list_t *modperl_list_last(modperl_list_t *list) +{ + while (list->next) { + list = list->next; + } + + return list; +} + +modperl_list_t *modperl_list_first(modperl_list_t *list) +{ + while (list->prev) { + list = list->prev; + } + + return list; +} + +modperl_list_t *modperl_list_append(modperl_list_t *list, + modperl_list_t *new_list) +{ + modperl_list_t *last; + + new_list->prev = new_list->next = NULL; + + if (!list) { + return new_list; + } + + last = modperl_list_last(list); + + last->next = new_list; + new_list->prev = last; + + return list; +} + +modperl_list_t *modperl_list_prepend(modperl_list_t *list, + modperl_list_t *new_list) +{ + new_list->prev = new_list->next = NULL; + + if (!list) { + return new_list; + } + + if (list->prev) { + list->prev->next = new_list; + new_list->prev = list->prev; + } + + list->prev = new_list; + new_list->next = list; + + return new_list; +} + +modperl_list_t *modperl_list_remove(modperl_list_t *list, + modperl_list_t *rlist) +{ + modperl_list_t *tmp = list; + + while (tmp) { + if (tmp != rlist) { + tmp = tmp->next; + } + else { + if (tmp->prev) { + tmp->prev->next = tmp->next; + } + if (tmp->next) { + tmp->next->prev = tmp->prev; + } + if (list == tmp) { + list = list->next; + } + + break; + } + } + +#ifdef MP_TRACE + if (!tmp) { + /* should never happen */ + MP_TRACE_i(MP_FUNC, "failed to find 0x%lx in list 0x%lx", + (unsigned long)rlist, (unsigned long)list); + } +#endif + + return list; +} + +modperl_list_t *modperl_list_remove_data(modperl_list_t *list, + void *data, + modperl_list_t **listp) +{ + modperl_list_t *tmp = list; + + while (tmp) { + if (tmp->data != data) { + tmp = tmp->next; + } + else { + *listp = tmp; + if (tmp->prev) { + tmp->prev->next = tmp->next; + } + if (tmp->next) { + tmp->next->prev = tmp->prev; + } + if (list == tmp) { + list = list->next; + } + + break; + } + } + + return list; +} + +modperl_tipool_t *modperl_tipool_new(apr_pool_t *p, + modperl_tipool_config_t *cfg, + modperl_tipool_vtbl_t *func, + void *data) +{ + modperl_tipool_t *tipool = + (modperl_tipool_t *)apr_pcalloc(p, sizeof(*tipool)); + + tipool->cfg = cfg; + tipool->func = func; + tipool->data = data; + + MUTEX_INIT(&tipool->tiplock); + COND_INIT(&tipool->available); + + return tipool; +} + +void modperl_tipool_init(modperl_tipool_t *tipool) +{ + int i; + + for (i=0; i<tipool->cfg->start; i++) { + void *item = + (*tipool->func->tipool_sgrow)(tipool, tipool->data); + + modperl_tipool_add(tipool, item); + } + + MP_TRACE_i(MP_FUNC, "start=%d, max=%d, min_spare=%d, max_spare=%d", + tipool->cfg->start, tipool->cfg->max, + tipool->cfg->min_spare, tipool->cfg->max_spare); + +} + +void modperl_tipool_destroy(modperl_tipool_t *tipool) +{ + while (tipool->idle) { + modperl_list_t *listp; + + if (tipool->func->tipool_destroy) { + (*tipool->func->tipool_destroy)(tipool, tipool->data, + tipool->idle->data); + } + tipool->size--; + listp = tipool->idle->next; + free(tipool->idle); + tipool->idle = listp; + } + + if (tipool->busy) { + MP_TRACE_i(MP_FUNC, "ERROR: %d items still in use", + tipool->in_use); + } + + MUTEX_DESTROY(&tipool->tiplock); + COND_DESTROY(&tipool->available); +} + +void modperl_tipool_add(modperl_tipool_t *tipool, void *data) +{ + modperl_list_t *listp = modperl_list_new(); + + listp->data = data; + + /* assuming tipool->tiplock has already been acquired */ + + tipool->idle = modperl_list_append(tipool->idle, listp); + + tipool->size++; + + MP_TRACE_i(MP_FUNC, "added 0x%lx (size=%d)", + (unsigned long)listp, tipool->size); +} + +void modperl_tipool_remove(modperl_tipool_t *tipool, modperl_list_t *listp) +{ + /* assuming tipool->tiplock has already been acquired */ + + tipool->idle = modperl_list_remove(tipool->idle, listp); + + tipool->size--; + MP_TRACE_i(MP_FUNC, "removed 0x%lx (size=%d)", + (unsigned long)listp, tipool->size); +} + +modperl_list_t *modperl_tipool_pop(modperl_tipool_t *tipool) +{ + modperl_list_t *head; + + modperl_tipool_lock(tipool); + + if (tipool->size == tipool->in_use) { + if (tipool->size < tipool->cfg->max) { + MP_TRACE_i(MP_FUNC, + "no idle items, size %d < %d max", + tipool->size, tipool->cfg->max); + if (tipool->func->tipool_rgrow) { + void * item = + (*tipool->func->tipool_rgrow)(tipool, tipool->data); + + modperl_tipool_add(tipool, item); + } + } + /* block until an item becomes available */ + modperl_tipool_wait(tipool); + } + + head = tipool->idle; + + tipool->idle = modperl_list_remove(tipool->idle, head); + tipool->busy = modperl_list_append(tipool->busy, head); + + tipool->in_use++; + + /* XXX: this should never happen */ + if (!head) { + MP_TRACE_i(MP_FUNC, "PANIC: no items available, %d of %d in use", + tipool->in_use, tipool->size); + abort(); + } + + modperl_tipool_unlock(tipool); + + return head; +} + +static void modperl_tipool_putback_base(modperl_tipool_t *tipool, + modperl_list_t *listp, + void *data, + int num_requests) +{ + int max_spare, max_requests; + + modperl_tipool_lock(tipool); + + /* remove from busy list, add back to idle */ + /* XXX: option to sort list, e.g. on num_requests */ + + if (listp) { + tipool->busy = modperl_list_remove(tipool->busy, listp); + } + else { + tipool->busy = modperl_list_remove_data(tipool->busy, data, &listp); + } + + if (!listp) { + /* XXX: Attempt to putback something that was never there */ + modperl_tipool_unlock(tipool); + return; + } + + tipool->idle = modperl_list_prepend(tipool->idle, listp); + + tipool->in_use--; + +#ifdef MP_TRACE + if (!tipool->busy && tipool->func->tipool_dump) { + MP_TRACE_i(MP_FUNC, "all items idle:"); + MP_TRACE_i_do((*tipool->func->tipool_dump)(tipool, + tipool->data, + tipool->idle)); + } +#endif + + MP_TRACE_i(MP_FUNC, "0x%lx now available (%d in use, %d running)", + (unsigned long)listp->data, tipool->in_use, tipool->size); + + modperl_tipool_broadcast(tipool); + if (tipool->in_use == (tipool->cfg->max - 1)) { + /* hurry up, another thread may be blocking */ + modperl_tipool_unlock(tipool); + return; + } + + max_spare = ((tipool->size - tipool->in_use) > tipool->cfg->max_spare); + max_requests = ((num_requests > 0) && + (num_requests > tipool->cfg->max_requests)); + + if (max_spare) { + MP_TRACE_i(MP_FUNC, + "shrinking pool: max_spare=%d, only %d of %d in use", + tipool->cfg->max_spare, tipool->in_use, tipool->size); + } + else if (max_requests) { + MP_TRACE_i(MP_FUNC, "shrinking pool: max requests %d reached", + tipool->cfg->max_requests); + } + + /* XXX: this management should probably be happening elsewhere + * like in a thread spawned at startup + */ + if (max_spare || max_requests) { + modperl_tipool_remove(tipool, listp); + + if (tipool->func->tipool_destroy) { + (*tipool->func->tipool_destroy)(tipool, tipool->data, + listp->data); + } + + free(listp); /* gone for good */ + + if (max_requests && ((tipool->size - tipool->in_use) < + tipool->cfg->min_spare)) { + if (tipool->func->tipool_rgrow) { + void *item = + (*tipool->func->tipool_rgrow)(tipool, + tipool->data); + + MP_TRACE_i(MP_FUNC, + "growing pool: min_spare=%d, %d of %d in use", + tipool->cfg->min_spare, tipool->in_use, + tipool->size); + + modperl_tipool_add(tipool, item); + } + } + } + + modperl_tipool_unlock(tipool); +} + +/* _data functions are so structures (e.g. modperl_interp_t) don't + * need to maintain a pointer back to the modperl_list_t + */ + +void modperl_tipool_putback_data(modperl_tipool_t *tipool, + void *data, + int num_requests) +{ + modperl_tipool_putback_base(tipool, NULL, data, num_requests); +} + +void modperl_tipool_putback(modperl_tipool_t *tipool, + modperl_list_t *listp, + int num_requests) +{ + modperl_tipool_putback_base(tipool, listp, NULL, num_requests); +} + +#endif /* USE_ITHREADS */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_tipool.h b/2_0_13/src/modules/perl/modperl_tipool.h new file mode 100644 index 0000000..c2d15b8 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_tipool.h
@@ -0,0 +1,96 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_TIPOOL_H +#define MODPERL_TIPOOL_H + +#ifdef USE_ITHREADS + +modperl_list_t *modperl_list_new(void); + +modperl_list_t *modperl_list_last(modperl_list_t *list); + +modperl_list_t *modperl_list_first(modperl_list_t *list); + +modperl_list_t *modperl_list_append(modperl_list_t *list, + modperl_list_t *new_list); + +modperl_list_t *modperl_list_prepend(modperl_list_t *list, + modperl_list_t *new_list); + +modperl_list_t *modperl_list_remove(modperl_list_t *list, + modperl_list_t *rlist); + +modperl_tipool_t *modperl_tipool_new(apr_pool_t *p, + modperl_tipool_config_t *cfg, + modperl_tipool_vtbl_t *func, + void *data); + +void modperl_tipool_init(modperl_tipool_t *tipool); + +void modperl_tipool_destroy(modperl_tipool_t *tipool); + +void modperl_tipool_add(modperl_tipool_t *tipool, void *data); + +void modperl_tipool_remove(modperl_tipool_t *tipool, modperl_list_t *listp); + +modperl_list_t *modperl_list_remove_data(modperl_list_t *list, + void *data, + modperl_list_t **listp); + +modperl_list_t *modperl_tipool_pop(modperl_tipool_t *tipool); + +void modperl_tipool_putback(modperl_tipool_t *tipool, + modperl_list_t *listp, + int num_requests); + +void modperl_tipool_putback_data(modperl_tipool_t *tipool, void *data, + int num_requests); + +#define modperl_tipool_wait(tipool) \ + while (tipool->size == tipool->in_use) { \ + MP_TRACE_i(MP_FUNC, \ + "waiting for available tipool item in thread 0x%lx", \ + MP_TIDF); \ + MP_TRACE_i(MP_FUNC, "(%d items in use, %d alive)", \ + tipool->in_use, tipool->size); \ + COND_WAIT(&tipool->available, &tipool->tiplock); \ + } + +#define modperl_tipool_broadcast(tipool) \ + MP_TRACE_i(MP_FUNC, "broadcast available tipool item"); \ + COND_SIGNAL(&tipool->available) + +#define modperl_tipool_lock(tipool) \ + MP_TRACE_i(MP_FUNC, "about to lock tipool in thread 0x%lx", MP_TIDF); \ + MUTEX_LOCK(&tipool->tiplock); \ + MP_TRACE_i(MP_FUNC, "acquired tipool lock") + +#define modperl_tipool_unlock(tipool) \ + MP_TRACE_i(MP_FUNC, "about to unlock tipool in thread 0x%lx", MP_TIDF); \ + MUTEX_UNLOCK(&tipool->tiplock); \ + MP_TRACE_i(MP_FUNC, "released tipool lock") + +#endif /* USE_ITHREADS */ + +#endif /* MODPERL_TIPOOL_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_types.h b/2_0_13/src/modules/perl/modperl_types.h new file mode 100644 index 0000000..8438f35 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_types.h
@@ -0,0 +1,289 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_TYPES_H +#define MODPERL_TYPES_H + +#ifndef MP_IOBUFSIZE +# ifdef AP_IOBUFSIZE +# define MP_IOBUFSIZE AP_IOBUFSIZE +# else +# define MP_IOBUFSIZE 8192 +# endif +#endif + +/* aliases */ + +typedef request_rec subrequest_rec; +typedef apr_array_header_t MpAV; +typedef apr_table_t MpHV; +typedef char char_len; /* see xs/typemap */ + +/* mod_perl structures */ + +typedef struct { + request_rec *r; + conn_rec *c; + server_rec *s; +} modperl_rcs_t; + +typedef struct modperl_config_con_t modperl_config_con_t; + +#ifdef USE_ITHREADS + +typedef struct modperl_list_t modperl_list_t; + +struct modperl_list_t { + modperl_list_t *prev, *next; + void *data; +}; + +typedef struct modperl_interp_t modperl_interp_t; +typedef struct modperl_interp_pool_t modperl_interp_pool_t; +typedef struct modperl_tipool_t modperl_tipool_t; +typedef struct modperl_tipool_config_t modperl_tipool_config_t; + +struct modperl_interp_t { + modperl_interp_pool_t *mip; + PerlInterpreter *perl; + int num_requests; + U8 flags; + modperl_config_con_t *ccfg; + int refcnt; +#ifdef MP_TRACE + unsigned long tid; +#endif +}; + +typedef struct { + /* s == startup grow + * r == runtime grow + */ + void * (*tipool_sgrow)(modperl_tipool_t *tipool, void *data); + void * (*tipool_rgrow)(modperl_tipool_t *tipool, void *data); + void (*tipool_shrink)(modperl_tipool_t *tipool, void *data, + void *item); + void (*tipool_destroy)(modperl_tipool_t *tipool, void *data, + void *item); + void (*tipool_dump)(modperl_tipool_t *tipool, void *data, + modperl_list_t *listp); +} modperl_tipool_vtbl_t; + +struct modperl_tipool_config_t { + int start; /* number of items to create at startup */ + int min_spare; /* minimum number of spare items */ + int max_spare; /* maximum number of spare items */ + int max; /* maximum number of items */ + int max_requests; /* maximum number of requests per item */ +}; + +struct modperl_tipool_t { + perl_mutex tiplock; + perl_cond available; + modperl_list_t *idle, *busy; + int in_use; /* number of items currrently in use */ + int size; /* current number of items */ + void *data; /* user data */ + modperl_tipool_config_t *cfg; + modperl_tipool_vtbl_t *func; +}; + +struct modperl_interp_pool_t { + server_rec *server; + modperl_tipool_t *tipool; + modperl_interp_t *parent; /* from which to perl_clone() */ +}; + +#endif /* USE_ITHREADS */ + +typedef U32 modperl_opts_t; + +typedef struct { + modperl_opts_t opts; + modperl_opts_t opts_add; + modperl_opts_t opts_remove; + modperl_opts_t opts_override; + modperl_opts_t opts_seen; + int unset; +} modperl_options_t; + +typedef struct { + MpHV *setvars; + MpHV *configvars; + MpHV *SetEnv; + MpHV *PassEnv; + MpAV *PerlRequire, *PerlModule, *PerlPostConfigRequire; + MpAV *handlers_per_srv[MP_HANDLER_NUM_PER_SRV]; + MpAV *handlers_files[MP_HANDLER_NUM_FILES]; + MpAV *handlers_process[MP_HANDLER_NUM_PROCESS]; + MpAV *handlers_pre_connection[MP_HANDLER_NUM_PRE_CONNECTION]; + MpAV *handlers_connection[MP_HANDLER_NUM_CONNECTION]; +#ifdef USE_ITHREADS + modperl_interp_pool_t *mip; + modperl_tipool_config_t *interp_pool_cfg; +#else + PerlInterpreter *perl; +#endif +#ifdef MP_USE_GTOP + modperl_gtop_t *gtop; +#endif + MpAV *argv; + modperl_options_t *flags; + apr_hash_t *modules; + server_rec *server; +} modperl_config_srv_t; + +typedef struct { + char *location; + char *PerlDispatchHandler; + MpAV *handlers_per_dir[MP_HANDLER_NUM_PER_DIR]; + MpHV *SetEnv; + MpHV *setvars; + MpHV *configvars; + modperl_options_t *flags; +} modperl_config_dir_t; + +typedef struct { + const char *file; + modperl_config_dir_t *dcfg; +} modperl_require_file_t; + +typedef struct modperl_mgv_t modperl_mgv_t; + +struct modperl_mgv_t { + char *name; + int len; + UV hash; + modperl_mgv_t *next; +}; + +typedef struct modperl_handler_t modperl_handler_t; + +struct modperl_handler_t { + /* could be: + * - the lightweight gv for named subs + * - the lookup data in $PL_modperl{ANONSUB} + */ + modperl_mgv_t *mgv_obj; + modperl_mgv_t *mgv_cv; + /* could be: + * - a subroutine name for named subs + * - NULL for anon subs + */ + const char *name; + CV *cv; + U8 flags; + U16 attrs; + modperl_handler_t *next; +}; + +#define MP_HANDLER_TYPE_CHAR 1 +#define MP_HANDLER_TYPE_SV 2 + +typedef struct { + int outcnt; + char outbuf[MP_IOBUFSIZE]; + apr_pool_t *pool; + ap_filter_t **filters; + int header_parse; + request_rec *r; +} modperl_wbucket_t; + +typedef enum { + MP_INPUT_FILTER_MODE, + MP_OUTPUT_FILTER_MODE +} modperl_filter_mode_e; + +typedef struct { + int seen_eos; + int eos; + int flush; + ap_filter_t *f; + char *leftover; + apr_ssize_t remaining; + modperl_wbucket_t *wbucket; + apr_bucket *bucket; + apr_bucket_brigade *bb_in; + apr_bucket_brigade *bb_out; + ap_input_mode_t input_mode; + apr_read_type_e block; + apr_off_t readbytes; + apr_status_t rc; + modperl_filter_mode_e mode; + apr_pool_t *pool; + apr_pool_t *temp_pool; +} modperl_filter_t; + +typedef struct { + int sent_eos; + SV *data; + modperl_handler_t *handler; +#ifdef USE_ITHREADS + modperl_interp_t *interp; +#endif +} modperl_filter_ctx_t; + +typedef struct { + HV *pnotes; + apr_pool_t *pool; +#ifdef USE_ITHREADS + modperl_interp_t *interp; +#endif +} modperl_pnotes_t; + +typedef struct { + modperl_pnotes_t pnotes; + SV *global_request_obj; + U8 flags; + int status; + modperl_wbucket_t *wbucket; + MpAV *handlers_per_dir[MP_HANDLER_NUM_PER_DIR]; + MpAV *handlers_per_srv[MP_HANDLER_NUM_PER_SRV]; + modperl_perl_globals_t perl_globals; +} modperl_config_req_t; + +struct modperl_config_con_t { + modperl_pnotes_t pnotes; +#ifdef USE_ITHREADS + modperl_interp_t *interp; +#endif +}; + +typedef struct { + apr_pool_t *pool; + void *data; +} modperl_cleanup_data_t; + +typedef struct { + module *modp; + const char *cmd_data; + const char *func_name; +} modperl_module_cmd_data_t; + +typedef enum { + MP_HOOK_RUN_ALL, + MP_HOOK_RUN_FIRST, + MP_HOOK_VOID +} modperl_hook_run_mode_e; + +#endif /* MODPERL_TYPES_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_util.c b/2_0_13/src/modules/perl/modperl_util.c new file mode 100644 index 0000000..dc06cde --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_util.c
@@ -0,0 +1,1268 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +int modperl_require_module(pTHX_ const char *pv, int logfailure) +{ + SV *sv; + + dSP; + PUSHSTACKi(PERLSI_REQUIRE); + ENTER;SAVETMPS; + PUTBACK; + sv = sv_newmortal(); + sv_setpv(sv, "require "); + sv_catpv(sv, pv); + eval_sv(sv, G_DISCARD); + SPAGAIN; + POPSTACK; + FREETMPS;LEAVE; + + if (SvTRUE(ERRSV)) { + if (logfailure) { + (void)modperl_errsv(aTHX_ HTTP_INTERNAL_SERVER_ERROR, + NULL, NULL); + } + return FALSE; + } + + return TRUE; +} + +int modperl_require_file(pTHX_ const char *pv, int logfailure) +{ + require_pv(pv); + + if (SvTRUE(ERRSV)) { + if (logfailure) { + (void)modperl_errsv(aTHX_ HTTP_INTERNAL_SERVER_ERROR, + NULL, NULL); + } + return FALSE; + } + + return TRUE; +} + +static SV *modperl_hv_request_find(pTHX_ SV *in, char *classname, CV *cv) +{ + static char *r_keys[] = { "r", "_r", NULL }; + HV *hv = (HV *)SvRV(in); + SV *sv = (SV *)NULL; + int i; + + for (i=0; r_keys[i]; i++) { + int klen = i + 1; /* assumes r_keys[] will never change */ + SV **svp; + + if ((svp = hv_fetch(hv, r_keys[i], klen, FALSE)) && (sv = *svp)) { + if (SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVHV)) { + /* dig deeper */ + return modperl_hv_request_find(aTHX_ sv, classname, cv); + } + break; + } + } + + if (!sv) { + Perl_croak(aTHX_ + "method `%s' invoked by a `%s' object with no `r' key!", + cv ? GvNAME(CvGV(cv)) : "unknown", + (SvRV(in) && SvSTASH(SvRV(in))) + ? HvNAME(SvSTASH(SvRV(in))) + : "unknown"); + } + + return SvROK(sv) ? SvRV(sv) : sv; +} + + +/* notice that if sv is not an Apache2::ServerRec object and + * Apache2->request is not available, the returned global object might + * be not thread-safe under threaded mpms, so use with care + */ + +MP_INLINE server_rec *modperl_sv2server_rec(pTHX_ SV *sv) +{ + if (SvOBJECT(sv) || (SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG))) { + return INT2PTR(server_rec *, SvObjIV(sv)); + } + + /* next see if we have Apache2->request available */ + { + request_rec *r = NULL; + (void)modperl_tls_get_request_rec(&r); + if (r) { + return r->server; + } + } + + /* modperl_global_get_server_rec is not thread safe w/o locking */ + return modperl_global_get_server_rec(); +} + +MP_INLINE request_rec *modperl_sv2request_rec(pTHX_ SV *sv) +{ + return modperl_xs_sv2request_rec(aTHX_ sv, NULL, (CV *)NULL); +} + +request_rec *modperl_xs_sv2request_rec(pTHX_ SV *in, char *classname, CV *cv) +{ + SV *sv = (SV *)NULL; + MAGIC *mg; + + if (SvROK(in)) { + SV *rv = (SV*)SvRV(in); + + switch (SvTYPE(rv)) { + case SVt_PVMG: + sv = rv; + break; + case SVt_PVHV: + sv = modperl_hv_request_find(aTHX_ in, classname, cv); + break; + default: + Perl_croak(aTHX_ "panic: unsupported request_rec type %d", + (int)SvTYPE(rv)); + } + } + + /* might be Apache2::ServerRec::warn method */ + if (!sv && !(classname && SvPOK(in) && !strEQ(classname, SvPVX(in)))) { + request_rec *r = NULL; + (void)modperl_tls_get_request_rec(&r); + + if (!r) { + Perl_croak(aTHX_ + "Apache2->%s called without setting Apache2->request!", + cv ? GvNAME(CvGV(cv)) : "unknown"); + } + + return r; + } + + /* there could be pool magic attached to custom $r object, so make + * sure that mg->mg_ptr is set */ + if ((mg = mg_find(sv, PERL_MAGIC_ext)) && mg->mg_ptr) { + return (request_rec *)mg->mg_ptr; + } + else { + if (classname && !sv_derived_from(in, classname)) { + /* XXX: find something faster than sv_derived_from */ + return NULL; + } + return INT2PTR(request_rec *, SvIV(sv)); + } + + return NULL; +} + +MP_INLINE SV *modperl_newSVsv_obj(pTHX_ SV *stashsv, SV *obj) +{ + SV *newobj; + + if (!obj) { + obj = stashsv; + stashsv = (SV *)NULL; + } + + newobj = newSVsv(obj); + + if (stashsv) { + HV *stash = gv_stashsv(stashsv, TRUE); + return sv_bless(newobj, stash); + } + + return newobj; +} + +MP_INLINE SV *modperl_ptr2obj(pTHX_ char *classname, void *ptr) +{ + SV *sv = newSV(0); + + MP_TRACE_h(MP_FUNC, "sv_setref_pv(%s, 0x%lx)", + classname, (unsigned long)ptr); + sv_setref_pv(sv, classname, ptr); + + return sv; +} + +int modperl_errsv(pTHX_ int status, request_rec *r, server_rec *s) +{ + SV *sv = ERRSV; + STRLEN n_a; + + if (SvTRUE(sv)) { + if (sv_derived_from(sv, "APR::Error") && + SvIVx(sv) == MODPERL_RC_EXIT) { + /* ModPerl::Util::exit was called */ + return OK; + } +#if 0 + if (modperl_sv_is_http_code(ERRSV, &status)) { + return status; + } +#endif + if (r) { + ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "%s", SvPV(sv, n_a)); + } + else { + ap_log_error(APLOG_MARK, APLOG_ERR, 0, s, "%s", SvPV(sv, n_a)); + } + + return status; + } + + return status; +} + +/* prepends the passed sprintf-like arguments to ERRSV, which also + * gets stringified on the way */ +void modperl_errsv_prepend(pTHX_ const char *pat, ...) +{ + SV *sv; + va_list args; + + va_start(args, pat); + sv = vnewSVpvf(pat, &args); + va_end(args); + + sv_catsv(sv, ERRSV); + sv_copypv(ERRSV, sv); + sv_free(sv); +} + +#define dl_librefs "DynaLoader::dl_librefs" +#define dl_modules "DynaLoader::dl_modules" + +void modperl_xs_dl_handles_clear(pTHX) +{ + AV *librefs = get_av(dl_librefs, FALSE); + if (librefs) { + av_clear(librefs); + } +} + +void **modperl_xs_dl_handles_get(pTHX) +{ + I32 i; + AV *librefs = get_av(dl_librefs, FALSE); + AV *modules = get_av(dl_modules, FALSE); + void **handles; + + if (!librefs) { + MP_TRACE_r(MP_FUNC, + "Could not get @%s for unloading.", + dl_librefs); + return NULL; + } + + if (!(AvFILL(librefs) >= 0)) { + /* dl_librefs and dl_modules are empty */ + return NULL; + } + + handles = (void **)malloc(sizeof(void *) * (AvFILL(librefs)+2)); + + for (i=0; i<=AvFILL(librefs); i++) { + void *handle; + SV *handle_sv = *av_fetch(librefs, i, FALSE); + SV *module_sv = *av_fetch(modules, i, FALSE); + + if(!handle_sv) { + MP_TRACE_r(MP_FUNC, + "Could not fetch $%s[%d]!", + dl_librefs, (int)i); + continue; + } + handle = INT2PTR(void *, SvIV(handle_sv)); + + MP_TRACE_r(MP_FUNC, "%s dl handle == 0x%lx", + SvPVX(module_sv), (unsigned long)handle); + if (handle) { + handles[i] = handle; + } + } + + av_clear(modules); + av_clear(librefs); + + handles[i] = (void *)0; + + return handles; +} + +void modperl_xs_dl_handles_close(void **handles) +{ + int i; + + if (!handles) { + return; + } + + for (i=0; handles[i]; i++) { + MP_TRACE_r(MP_FUNC, "close 0x%lx", (unsigned long)handles[i]); + modperl_sys_dlclose(handles[i]); + } + + free(handles); +} + +/* XXX: There is no XS accessible splice() */ +static void modperl_av_remove_entry(pTHX_ AV *av, I32 index) +{ + I32 i; + AV *tmpav = newAV(); + + /* stash the entries _before_ the item to delete */ + for (i=0; i<=index; i++) { + av_store(tmpav, i, SvREFCNT_inc(av_shift(av))); + } + + /* make size at the beginning of the array */ + av_unshift(av, index-1); + + /* add stashed entries back */ + for (i=0; i<index; i++) { + av_store(av, i, *av_fetch(tmpav, i, 0)); + } + + sv_free((SV *)tmpav); +} + +static void modperl_package_unload_dynamic(pTHX_ const char *package, + I32 dl_index) +{ + AV *librefs = get_av(dl_librefs, 0); + SV *libref = *av_fetch(librefs, dl_index, 0); + + modperl_sys_dlclose(INT2PTR(void *, SvIV(libref))); + + /* remove package from @dl_librefs and @dl_modules */ + modperl_av_remove_entry(aTHX_ get_av(dl_librefs, 0), dl_index); + modperl_av_remove_entry(aTHX_ get_av(dl_modules, 0), dl_index); + + return; +} + +static int modperl_package_is_dynamic(pTHX_ const char *package, + I32 *dl_index) +{ + I32 i; + AV *modules = get_av(dl_modules, FALSE); + + for (i=0; i<av_len(modules); i++) { + SV *module = *av_fetch(modules, i, 0); + if (strEQ(package, SvPVX(module))) { + *dl_index = i; + return TRUE; + } + } + return FALSE; +} + +modperl_cleanup_data_t *modperl_cleanup_data_new(apr_pool_t *p, void *data) +{ + modperl_cleanup_data_t *cdata = + (modperl_cleanup_data_t *)apr_pcalloc(p, sizeof(*cdata)); + cdata->pool = p; + cdata->data = data; + return cdata; +} + +MP_INLINE void modperl_perl_av_push_elts_ref(pTHX_ AV *dst, AV *src) +{ + I32 i, j, src_fill = AvFILLp(src), dst_fill = AvFILLp(dst); + + av_extend(dst, src_fill); + AvFILLp(dst) += src_fill+1; + + for (i=dst_fill+1, j=0; j<=AvFILLp(src); i++, j++) { + AvARRAY(dst)[i] = SvREFCNT_inc(AvARRAY(src)[j]); + } +} + +/* + * similar to hv_fetch_ent, but takes string key and key len rather than SV + * also skips magic and utf8 fu, since we are only dealing with internal tables + */ +HE *modperl_perl_hv_fetch_he(pTHX_ HV *hv, + register char *key, + register I32 klen, + register U32 hash) +{ + register XPVHV *xhv; + register HE *entry; + + xhv = (XPVHV *)SvANY(hv); + if (!HvARRAY(hv)) { + return 0; + } + +#ifdef HvREHASH + if (HvREHASH(hv)) { + PERL_HASH_INTERNAL(hash, key, klen); + } + else +#endif + if (!hash) { + PERL_HASH(hash, key, klen); + } + + entry = ((HE**)HvARRAY(hv))[hash & (I32)xhv->xhv_max]; + + for (; entry; entry = HeNEXT(entry)) { + if (HeHASH(entry) != hash) { + continue; + } + if (HeKLEN(entry) != klen) { + continue; + } + if (HeKEY(entry) != key && memNE(HeKEY(entry), key, klen)) { + continue; + } + return entry; + } + + return 0; +} + +void modperl_str_toupper(char *str) +{ + while (*str) { + *str = apr_toupper(*str); + ++str; + } +} + +/* XXX: same as Perl_do_sprintf(); + * but Perl_do_sprintf() is not part of the "public" api + */ +void modperl_perl_do_sprintf(pTHX_ SV *sv, I32 len, SV **sarg) +{ + STRLEN patlen; + char *pat = SvPV(*sarg, patlen); + bool do_taint = FALSE; + + sv_vsetpvfn(sv, pat, patlen, (va_list *)NULL, sarg + 1, len - 1, &do_taint); + SvSETMAGIC(sv); + if (do_taint) { + SvTAINTED_on(sv); + } +} + +void modperl_perl_call_list(pTHX_ AV *subs, const char *name) +{ + I32 i, oldscope = PL_scopestack_ix; + SV **ary = AvARRAY(subs); + + MP_TRACE_g(MP_FUNC, MP_TRACEf_PERLID + " running %d %s subs", MP_TRACEv_PERLID_ + AvFILLp(subs)+1, name); + + for (i=0; i<=AvFILLp(subs); i++) { + CV *cv = (CV*)ary[i]; + SV *atsv = ERRSV; + + PUSHMARK(PL_stack_sp); + call_sv((SV*)cv, G_EVAL|G_DISCARD); + + if (SvCUR(atsv)) { + Perl_sv_catpvf(aTHX_ atsv, "%s failed--call queue aborted", + name); + while (PL_scopestack_ix > oldscope) { + LEAVE; + } + Perl_croak(aTHX_ "%s", SvPVX(atsv)); + } + } +} + +void modperl_perl_exit(pTHX_ int status) +{ + ENTER; + SAVESPTR(PL_diehook); + PL_diehook = (SV *)NULL; + modperl_croak(aTHX_ MODPERL_RC_EXIT, "ModPerl::Util::exit"); +} + +MP_INLINE SV *modperl_dir_config(pTHX_ request_rec *r, server_rec *s, + char *key, SV *sv_val) +{ + SV *retval = &PL_sv_undef; + + if (r && r->per_dir_config) { + MP_dDCFG; + retval = modperl_table_get_set(aTHX_ dcfg->configvars, + key, sv_val, FALSE); + } + + if (!SvOK(retval)) { + if (s && s->module_config) { + MP_dSCFG(s); + SvREFCNT_dec(retval); /* in case above did newSV(0) */ + retval = modperl_table_get_set(aTHX_ scfg->configvars, + key, sv_val, FALSE); + } + else { + retval = &PL_sv_undef; + } + } + + return retval; +} + +SV *modperl_table_get_set(pTHX_ apr_table_t *table, char *key, + SV *sv_val, int do_taint) +{ + SV *retval = &PL_sv_undef; + + if (table == NULL) { + /* do nothing */ + } + else if (key == NULL) { + retval = modperl_hash_tie(aTHX_ "APR::Table", + (SV *)NULL, (void*)table); + } + else if (!sv_val) { /* no val was passed */ + char *val; + if ((val = (char *)apr_table_get(table, key))) { + retval = newSVpv(val, 0); + } + else { + retval = newSV(0); + } + if (do_taint) { + SvTAINTED_on(retval); + } + } + else if (!SvOK(sv_val)) { /* val was passed in as undef */ + apr_table_unset(table, key); + } + else { + apr_table_set(table, key, SvPV_nolen(sv_val)); + } + + return retval; +} + +static char *package2filename(const char *package, int *len) +{ + const char *s; + char *d; + char *filename; + + filename = malloc((strlen(package)+4)*sizeof(char)); + + for (s = package, d = filename; *s; s++, d++) { + if (*s == ':' && s[1] == ':') { + *d = '/'; + s++; + } + else { + *d = *s; + } + } + *d++ = '.'; + *d++ = 'p'; + *d++ = 'm'; + *d = '\0'; + + *len = d - filename; + return filename; +} + +MP_INLINE int modperl_perl_module_loaded(pTHX_ const char *name) +{ + SV **svp; + int len; + char *filename = package2filename(name, &len); + svp = hv_fetch(GvHVn(PL_incgv), filename, len, 0); + free(filename); + + return (svp && *svp != &PL_sv_undef) ? 1 : 0; +} + +#define SLURP_SUCCESS(action) \ + if (rc != APR_SUCCESS) { \ + SvREFCNT_dec(sv); \ + modperl_croak(aTHX_ rc, \ + apr_psprintf(r->pool, \ + "slurp_filename('%s') / " action, \ + r->filename)); \ + } + +MP_INLINE SV *modperl_slurp_filename(pTHX_ request_rec *r, int tainted) +{ + SV *sv; + apr_status_t rc; + apr_size_t size; + apr_file_t *file; + + size = r->finfo.size; + sv = newSV(size); + + /* XXX: could have checked whether r->finfo.filehand is valid and + * save the apr_file_open call, but apache gives us no API to + * check whether filehand is valid. we can't test whether it's + * NULL or not, as it may contain garbagea + */ + rc = apr_file_open(&file, r->filename, APR_READ|APR_BINARY, + APR_OS_DEFAULT, r->pool); + SLURP_SUCCESS("opening"); + + rc = apr_file_read(file, SvPVX(sv), &size); + SLURP_SUCCESS("reading"); + + MP_TRACE_o(MP_FUNC, "read %d bytes from '%s'", size, r->filename); + + if (r->finfo.size != size) { + SvREFCNT_dec(sv); + Perl_croak(aTHX_ "Error: read %d bytes, expected %d ('%s')", + size, (apr_size_t)r->finfo.size, r->filename); + } + + rc = apr_file_close(file); + SLURP_SUCCESS("closing"); + + SvPVX(sv)[size] = '\0'; + SvCUR_set(sv, size); + SvPOK_on(sv); + + if (tainted) { + SvTAINTED_on(sv); + } + else { + SvTAINTED_off(sv); + } + + return newRV_noinc(sv); +} + +#define MP_VALID_PKG_CHAR(c) (isalnum(c) ||(c) == '_') +#define MP_VALID_PATH_DELIM(c) ((c) == '/' || (c) =='\\') +char *modperl_file2package(apr_pool_t *p, const char *file) +{ + char *package; + char *c; + const char *f; + int len = strlen(file)+1; + + /* First, skip invalid prefix characters */ + while (!MP_VALID_PKG_CHAR(*file)) { + file++; + len--; + } + + /* Then figure out how big the package name will be like */ + for (f = file; *f; f++) { + if (MP_VALID_PATH_DELIM(*f)) { + len++; + } + } + + package = apr_pcalloc(p, len); + + /* Then, replace bad characters with '_' */ + for (c = package; *file; c++, file++) { + if (MP_VALID_PKG_CHAR(*file)) { + *c = *file; + } + else if (MP_VALID_PATH_DELIM(*file)) { + + /* Eliminate subsequent duplicate path delim */ + while (*(file+1) && MP_VALID_PATH_DELIM(*(file+1))) { + file++; + } + + /* path delim not until end of line */ + if (*(file+1)) { + *c = *(c+1) = ':'; + c++; + } + } + else { + *c = '_'; + } + } + + return package; +} + +SV *modperl_apr_array_header2avrv(pTHX_ apr_array_header_t *array) +{ + AV *av = newAV(); + + if (array) { + int i; + for (i = 0; i < array->nelts; i++) { + av_push(av, newSVpv(((char **)array->elts)[i], 0)); + } + } + return newRV_noinc((SV*)av); +} + +apr_array_header_t *modperl_avrv2apr_array_header(pTHX_ apr_pool_t *p, + SV *avrv) +{ + AV *av; + apr_array_header_t *array; + int i, av_size; + + if (!(SvROK(avrv) && (SvTYPE(SvRV(avrv)) == SVt_PVAV))) { + Perl_croak(aTHX_ "Not an array reference"); + } + + av = (AV*)SvRV(avrv); + av_size = av_len(av); + array = apr_array_make(p, av_size+1, sizeof(char *)); + + for (i = 0; i <= av_size; i++) { + SV *sv = *av_fetch(av, i, FALSE); + char **entry = (char **)apr_array_push(array); + *entry = apr_pstrdup(p, SvPV_nolen(sv)); + } + + return array; +} + +/* Remove a package from %INC */ +static void modperl_package_delete_from_inc(pTHX_ const char *package) +{ + int len; + char *filename = package2filename(package, &len); + (void)hv_delete(GvHVn(PL_incgv), filename, len, G_DISCARD); + free(filename); +} + +/* Destroy a package's stash */ +#define MP_STASH_SUBSTASH(key, len) ((len >= 2) && \ + (key[len-1] == ':') && \ + (key[len-2] == ':')) +#define MP_STASH_DEBUGGER(key, len) ((len >= 2) && \ + (key[0] == '_') && \ + (key[1] == '<')) +#define MP_SAFE_STASH(key, len) (!(MP_STASH_SUBSTASH(key,len)|| \ + (MP_STASH_DEBUGGER(key, len)))) +static void modperl_package_clear_stash(pTHX_ const char *package) +{ + HV *stash; + if ((stash = gv_stashpv(package, FALSE))) { + HE *he; + I32 len; + char *key; + hv_iterinit(stash); + while ((he = hv_iternext(stash))) { + key = hv_iterkey(he, &len); + if (MP_SAFE_STASH(key, len)) { + SV *val = hv_iterval(stash, he); + /* The safe thing to do is to skip over stash entries + * that don't come from the package we are trying to + * unload + */ + if (GvSTASH(val) == stash) { + (void)hv_delete(stash, key, len, G_DISCARD); + } + } + } + } +} + +/* Unload a module as completely and cleanly as possible */ +void modperl_package_unload(pTHX_ const char *package) +{ + I32 dl_index; + + modperl_package_clear_stash(aTHX_ package); + modperl_package_delete_from_inc(aTHX_ package); + + if (modperl_package_is_dynamic(aTHX_ package, &dl_index)) { + modperl_package_unload_dynamic(aTHX_ package, dl_index); + } + +} + +#define MP_RESTART_COUNT_KEY "mod_perl_restart_count" + +/* passing the main server object here, just because we don't have the + * modperl_server_pool available yet, later on we can access it + * through the modperl_server_pool() call. + */ +void modperl_restart_count_inc(server_rec *base_server) +{ + void *data; + int *counter; + apr_pool_t *p = base_server->process->pool; + + apr_pool_userdata_get(&data, MP_RESTART_COUNT_KEY, p); + if (data) { + counter = data; + (*counter)++; + } + else { + counter = apr_palloc(p, sizeof *counter); + *counter = 1; + apr_pool_userdata_set(counter, MP_RESTART_COUNT_KEY, + apr_pool_cleanup_null, p); + } +} + +int modperl_restart_count(void) +{ + void *data; + apr_pool_userdata_get(&data, MP_RESTART_COUNT_KEY, + modperl_global_get_server_rec()->process->pool); + return data ? *(int *)data : 0; + } + +static MP_INLINE +apr_status_t modperl_cleanup_pnotes(void *data) { + modperl_pnotes_t *pnotes = data; + + dTHXa(pnotes->interp->perl); + MP_ASSERT_CONTEXT(aTHX); + + SvREFCNT_dec(pnotes->pnotes); + pnotes->pnotes = NULL; + pnotes->pool = NULL; + + MP_INTERP_PUTBACK(pnotes->interp, aTHX); + return APR_SUCCESS; +} + +void modperl_pnotes_kill(void *data) { + modperl_pnotes_t *pnotes = data; + + if( !pnotes->pnotes ) return; + + apr_pool_cleanup_kill(pnotes->pool, pnotes, modperl_cleanup_pnotes); + modperl_cleanup_pnotes(pnotes); +} + +SV *modperl_pnotes(pTHX_ modperl_pnotes_t *pnotes, SV *key, SV *val, + apr_pool_t *pool) { + SV *retval = (SV *)NULL; + + if (!pnotes->pnotes) { + pnotes->pool = pool; +#ifdef USE_ITHREADS + pnotes->interp = modperl_thx_interp_get(aTHX); + pnotes->interp->refcnt++; + MP_TRACE_i(MP_FUNC, "TO: (0x%lx)->refcnt incremented to %ld", + pnotes->interp, pnotes->interp->refcnt); +#endif + pnotes->pnotes = newHV(); + apr_pool_cleanup_register(pool, pnotes, + modperl_cleanup_pnotes, + apr_pool_cleanup_null); + } + + if (key) { + STRLEN len; + char *k = SvPV(key, len); + + if (val) { + retval = *hv_store(pnotes->pnotes, k, len, SvREFCNT_inc(val), 0); + } + else if (hv_exists(pnotes->pnotes, k, len)) { + retval = *hv_fetch(pnotes->pnotes, k, len, FALSE); + } + + return retval ? SvREFCNT_inc(retval) : &PL_sv_undef; + } + return newRV_inc((SV *)pnotes->pnotes); +} + +U16 *modperl_code_attrs(pTHX_ CV *cv) { + MAGIC *mg; + + if (!(SvMAGICAL(cv) && (mg = mg_find((SV*)cv, PERL_MAGIC_ext)))) { + sv_magic((SV*)cv, (SV *)NULL, PERL_MAGIC_ext, NULL, -1); + } + + mg = mg_find((SV*)cv, PERL_MAGIC_ext); + return &(mg->mg_private); +} + +#if AP_SERVER_MAJORVERSION_NUMBER>2 || \ + (AP_SERVER_MAJORVERSION_NUMBER == 2 && AP_SERVER_MINORVERSION_NUMBER>=3) + +static apr_hash_t *global_authz_providers = NULL; +static apr_hash_t *global_authn_providers = NULL; + +typedef struct { + SV *cb1; + SV *cb2; + modperl_handler_t *cb1_handler; + modperl_handler_t *cb2_handler; +} auth_callback; + +static apr_status_t cleanup_perl_global_providers(void *ctx) +{ + global_authz_providers = NULL; + global_authn_providers = NULL; + return APR_SUCCESS; +} + +static authz_status perl_check_authorization(request_rec *r, + const char *require_args, + const void *parsed_require_args) +{ + authz_status ret = AUTHZ_DENIED; + int count; + AV *args = (AV *)NULL; + const char *key; + auth_callback *ab; + MP_dINTERPa(r, NULL, NULL); + + if (global_authz_providers == NULL) { + MP_INTERP_PUTBACK(interp, aTHX); + return ret; + } + + key = apr_table_get(r->notes, AUTHZ_PROVIDER_NAME_NOTE); + ab = apr_hash_get(global_authz_providers, key, APR_HASH_KEY_STRING); + if (ab == NULL) { + MP_INTERP_PUTBACK(interp, aTHX); + return ret; + } + + if (ab->cb1 == NULL) { + if (ab->cb1_handler == NULL) { + MP_INTERP_PUTBACK(interp, aTHX); + return ret; + } + + modperl_handler_make_args(aTHX_ &args, "Apache2::RequestRec", r, + "PV", require_args, NULL); + ret = modperl_callback(aTHX_ ab->cb1_handler, r->pool, r, r->server, + args); + SvREFCNT_dec((SV*)args); + MP_INTERP_PUTBACK(interp, aTHX); + return ret; + } + + { + dSP; + ENTER; + SAVETMPS; + PUSHMARK(SP); + XPUSHs(sv_2mortal(modperl_ptr2obj(aTHX_ "Apache2::RequestRec", r))); + XPUSHs(sv_2mortal(newSVpv(require_args, 0))); + PUTBACK; + count = call_sv(ab->cb1, G_SCALAR); + SPAGAIN; + + if (count == 1) { + ret = (authz_status) POPi; + } + + PUTBACK; + FREETMPS; + LEAVE; + } + + MP_INTERP_PUTBACK(interp, aTHX); + return ret; +} + +static const char *perl_parse_require_line(cmd_parms *cmd, + const char *require_line, + const void **parsed_require_line) +{ + char *ret = NULL; + void *key; + auth_callback *ab; + + if (global_authz_providers == NULL || + apr_hash_count(global_authz_providers) == 0) + { + return NULL; + } + + apr_pool_userdata_get(&key, AUTHZ_PROVIDER_NAME_NOTE, cmd->temp_pool); + ab = apr_hash_get(global_authz_providers, (char *) key, APR_HASH_KEY_STRING); + if (ab == NULL || ab->cb2 == NULL) { + return NULL; + } + + { + /* PerlAddAuthzProvider currently does not support an optional second + * handler, so ab->cb2 should always be NULL above and we will never get + * here. If such support is added in the future then this code will be + * reached, but cannot succeed in the absence of an interpreter. The + * second handler would be called at init to check a Require line for + * errors, but in the current design there is no interpreter available + * at that time. + */ + MP_dINTERP_POOLa(cmd->pool, cmd->server); + if (!MP_HAS_INTERP(interp)) { + return "Require handler is not currently supported in this context"; + } + + { + SV *ret_sv; + int count; + dSP; + + ENTER; + SAVETMPS; + PUSHMARK(SP); + XPUSHs(sv_2mortal(modperl_ptr2obj(aTHX_ "Apache2::CmdParms", cmd))); + XPUSHs(sv_2mortal(newSVpv(require_line, 0))); + PUTBACK; + count = call_sv(ab->cb2, G_SCALAR); + SPAGAIN; + + if (count == 1) { + ret_sv = POPs; + if (SvOK(ret_sv)) { + char *tmp = SvPV_nolen(ret_sv); + if (*tmp != '\0') { + ret = apr_pstrdup(cmd->pool, tmp); + } + } + } + + PUTBACK; + FREETMPS; + LEAVE; + } + + MP_INTERP_PUTBACK(interp, aTHX); + } + return ret; +} + +static authn_status perl_check_password(request_rec *r, const char *user, + const char *password) +{ + authn_status ret = AUTH_DENIED; + int count; + AV *args = (AV *)NULL; + const char *key; + auth_callback *ab; + MP_dINTERPa(r, NULL, NULL); + + if (global_authn_providers == NULL) { + MP_INTERP_PUTBACK(interp, aTHX); + return ret; + } + + key = apr_table_get(r->notes, AUTHN_PROVIDER_NAME_NOTE); + ab = apr_hash_get(global_authn_providers, key, + APR_HASH_KEY_STRING); + if (ab == NULL || ab->cb1) { + MP_INTERP_PUTBACK(interp, aTHX); + return ret; + } + + if (ab->cb1 == NULL) { + if (ab->cb1_handler == NULL) { + MP_INTERP_PUTBACK(interp, aTHX); + return ret; + } + + modperl_handler_make_args(aTHX_ &args, "Apache2::RequestRec", r, + "PV", user, + "PV", password, NULL); + ret = modperl_callback(aTHX_ ab->cb1_handler, r->pool, r, r->server, + args); + SvREFCNT_dec((SV*)args); + MP_INTERP_PUTBACK(interp, aTHX); + return ret; + } + + { + dSP; + ENTER; + SAVETMPS; + PUSHMARK(SP); + XPUSHs(sv_2mortal(modperl_ptr2obj(aTHX_ "Apache2::RequestRec", r))); + XPUSHs(sv_2mortal(newSVpv(user, 0))); + XPUSHs(sv_2mortal(newSVpv(password, 0))); + PUTBACK; + count = call_sv(ab->cb1, G_SCALAR); + SPAGAIN; + + if (count == 1) { + ret = (authn_status) POPi; + } + + PUTBACK; + FREETMPS; + LEAVE; + } + + MP_INTERP_PUTBACK(interp, aTHX); + return ret; +} + +static authn_status perl_get_realm_hash(request_rec *r, const char *user, + const char *realm, char **rethash) +{ + authn_status ret = AUTH_USER_NOT_FOUND; + const char *key; + auth_callback *ab; + + if (global_authn_providers == NULL || + apr_hash_count(global_authn_providers) == 0) + { + return AUTH_GENERAL_ERROR; + } + + key = apr_table_get(r->notes, AUTHN_PROVIDER_NAME_NOTE); + ab = apr_hash_get(global_authn_providers, key, APR_HASH_KEY_STRING); + if (ab == NULL || ab->cb2 == NULL) { + return AUTH_GENERAL_ERROR; + } + + { + /* PerlAddAuthnProvider currently does not support an optional second + * handler, so ab->cb2 should always be NULL above and we will never get + * here. If such support is added in the future then this code will be + * reached. Unlike the PerlAddAuthzProvider case, the second handler here + * would be called during request_rec processing to obtain a password hash + * for the realm so there should be no problem grabbing an interpreter. + */ + MP_dINTERPa(r, NULL, NULL); + + { + SV* rh = sv_2mortal(newSVpv("", 0)); + int count; + dSP; + + ENTER; + SAVETMPS; + PUSHMARK(SP); + XPUSHs(sv_2mortal(modperl_ptr2obj(aTHX_ "Apache2::RequestRec", r))); + XPUSHs(sv_2mortal(newSVpv(user, 0))); + XPUSHs(sv_2mortal(newSVpv(realm, 0))); + XPUSHs(newRV_noinc(rh)); + PUTBACK; + count = call_sv(ab->cb2, G_SCALAR); + SPAGAIN; + + if (count == 1) { + const char *tmp = SvPV_nolen(rh); + ret = (authn_status) POPi; + if (*tmp != '\0') { + *rethash = apr_pstrdup(r->pool, tmp); + } + } + + PUTBACK; + FREETMPS; + LEAVE; + } + + MP_INTERP_PUTBACK(interp, aTHX); + } + + return ret; +} + +static const authz_provider authz_perl_provider = { perl_check_authorization, + perl_parse_require_line }; + +static const authn_provider authn_perl_provider = { perl_check_password, + perl_get_realm_hash }; + +static apr_status_t register_auth_provider(apr_pool_t *pool, + const char *provider_group, + const char *provider_name, + const char *provider_version, + auth_callback *ab, int type) +{ + void *provider_ = NULL; + + if (global_authz_providers == NULL) { + global_authz_providers = apr_hash_make(pool); + global_authn_providers = apr_hash_make(pool); + /* We have to use pre_cleanup here, otherwise this cleanup method + * would be called after another cleanup method which unloads + * mod_perl module. + */ + apr_pool_pre_cleanup_register(pool, NULL, + cleanup_perl_global_providers); + } + + if (strcmp(provider_group, AUTHZ_PROVIDER_GROUP) == 0) { + provider_ = (void *) &authz_perl_provider; + apr_hash_set(global_authz_providers, provider_name, + APR_HASH_KEY_STRING, ab); + } + else { + provider_ = (void *) &authn_perl_provider; + apr_hash_set(global_authn_providers, provider_name, + APR_HASH_KEY_STRING, ab); + } + + return ap_register_auth_provider(pool, provider_group, provider_name, + provider_version, provider_, type); + +} + +apr_status_t modperl_register_auth_provider(apr_pool_t *pool, + const char *provider_group, + const char *provider_name, + const char *provider_version, + SV *callback1, SV *callback2, + int type) +{ + char *provider_name_dup; + auth_callback *ab = NULL; + + provider_name_dup = apr_pstrdup(pool, provider_name); + ab = apr_pcalloc(pool, sizeof(auth_callback)); + ab->cb1 = callback1; + ab->cb2 = callback2; + + return register_auth_provider(pool, provider_group, provider_name_dup, + provider_version, ab, type); +} + +apr_status_t modperl_register_auth_provider_name(apr_pool_t *pool, + const char *provider_group, + const char *provider_name, + const char *provider_version, + const char *callback1, + const char *callback2, + int type) +{ + char *provider_name_dup; + auth_callback *ab = NULL; + + provider_name_dup = apr_pstrdup(pool, provider_name); + ab = apr_pcalloc(pool, sizeof(auth_callback)); + ab->cb1_handler = modperl_handler_new(pool, callback1); + if (callback2) { + ab->cb2_handler = modperl_handler_new(pool, callback2); + } + + return register_auth_provider(pool, provider_group, provider_name_dup, + provider_version, ab, type); +} + +#endif /* httpd-2.4 */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/src/modules/perl/modperl_util.h b/2_0_13/src/modules/perl/modperl_util.h new file mode 100644 index 0000000..83e51d4 --- /dev/null +++ b/2_0_13/src/modules/perl/modperl_util.h
@@ -0,0 +1,168 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_UTIL_H +#define MODPERL_UTIL_H + +#include "modperl_common_util.h" + +/* check whether the response phase has been initialized already */ +#define MP_CHECK_WBUCKET_INIT(func) \ + if (!rcfg->wbucket) { \ + Perl_croak(aTHX_ "%s: " func " can't be called " \ + "before the response phase", MP_FUNC); \ + } + +/* turn off cgi header parsing. in case we are already inside + * modperl_callback_per_dir(MP_RESPONSE_HANDLER, r, MP_HOOK_RUN_FIRST); + * but haven't sent any data yet, it's too late to change + * MpReqPARSE_HEADERS, so change the wbucket's private flag directly + */ +#define MP_CGI_HEADER_PARSER_OFF(rcfg) \ + MpReqPARSE_HEADERS_Off(rcfg); \ + if (rcfg->wbucket) { \ + rcfg->wbucket->header_parse = 0; \ + } + +MP_INLINE server_rec *modperl_sv2server_rec(pTHX_ SV *sv); +MP_INLINE request_rec *modperl_sv2request_rec(pTHX_ SV *sv); + +request_rec *modperl_xs_sv2request_rec(pTHX_ SV *sv, char *classname, CV *cv); + +MP_INLINE SV *modperl_newSVsv_obj(pTHX_ SV *stashsv, SV *obj); + +MP_INLINE SV *modperl_ptr2obj(pTHX_ char *classname, void *ptr); + +int modperl_errsv(pTHX_ int status, request_rec *r, server_rec *s); + +void modperl_errsv_prepend(pTHX_ const char *pat, ...); + +int modperl_require_module(pTHX_ const char *pv, int logfailure); +int modperl_require_file(pTHX_ const char *pv, int logfailure); + +void modperl_xs_dl_handles_clear(pTHX); + +void **modperl_xs_dl_handles_get(pTHX); + +void modperl_xs_dl_handles_close(void **handles); + +modperl_cleanup_data_t *modperl_cleanup_data_new(apr_pool_t *p, void *data); + +MP_INLINE void modperl_perl_av_push_elts_ref(pTHX_ AV *dst, AV *src); + +HE *modperl_perl_hv_fetch_he(pTHX_ HV *hv, + register char *key, + register I32 klen, + register U32 hash); + +#define hv_fetch_he(hv,k,l,h) \ + modperl_perl_hv_fetch_he(aTHX_ hv, k, l, h) + +void modperl_str_toupper(char *str); + +void modperl_perl_do_sprintf(pTHX_ SV *sv, I32 len, SV **sarg); + +void modperl_perl_call_list(pTHX_ AV *subs, const char *name); + +void modperl_perl_exit(pTHX_ int status); + +MP_INLINE SV *modperl_dir_config(pTHX_ request_rec *r, server_rec *s, + char *key, SV *sv_val); + +SV *modperl_table_get_set(pTHX_ apr_table_t *table, char *key, + SV *sv_val, int do_taint); + +MP_INLINE int modperl_perl_module_loaded(pTHX_ const char *name); + +/** + * slurp the contents of r->filename and return them as a scalar + * @param r request record + * @param tainted whether the SV should be marked tainted or not + * @return a PV scalar with the contents of the file + */ +SV *modperl_slurp_filename(pTHX_ request_rec *r, int tainted); + +char *modperl_file2package(apr_pool_t *p, const char *file); + +SV *modperl_apr_array_header2avrv(pTHX_ apr_array_header_t *array); +apr_array_header_t *modperl_avrv2apr_array_header(pTHX_ apr_pool_t *p, + SV *avrv); +void modperl_package_unload(pTHX_ const char *package); +#if defined(MP_TRACE) && defined(USE_ITHREADS) +#define MP_TRACEf_PERLID "perl id 0x%lx" +#define MP_TRACEv_PERLID (unsigned long)my_perl +#define MP_TRACEv_PERLID_ MP_TRACEv_PERLID, +#define MP_TRACEv__PERLID ,MP_TRACEv_PERLID +#else +#define MP_TRACEf_PERLID +#define MP_TRACEv_PERLID +#define MP_TRACEv_PERLID_ +#define MP_TRACEv__PERLID +#endif /* USE_ITHREADS */ + +/* dumping hundreds of lines in the trace, makes it less useful. Get a + * string chunk of MP_TRACE_STR_LEN bytes or less. Not too long so it + * won't wrap when posted in email. Notice that we copy 'count' bytes + * of the string even if count < MP_TRACE_STR_LEN, because the 'str' + * buffer doesn't necessarily have \0 terminator at 'count'. As this + * is for debug tracing, not to be used in production, it doesn't make + * any difference if it's not efficient. + */ +#define MP_TRACE_STR_LEN 35 +#define MP_TRACE_STR_TRUNC(p, str, count) \ + count < MP_TRACE_STR_LEN \ + ? (char *)apr_pstrmemdup(p, str, count) \ + : (char *)apr_psprintf(p, "%s...", \ + apr_pstrmemdup(p, str, MP_TRACE_STR_LEN)) + +/* functions maintaining the amount of times mod_perl was restarted, + * e.g. on Apache start, it restarts itself, so the count will be + * first 1, and on on restart 2 */ +void modperl_restart_count_inc(server_rec *base_server); +int modperl_restart_count(void); + +void modperl_pnotes_kill(void *data); + +SV *modperl_pnotes(pTHX_ modperl_pnotes_t *pnotes, SV *key, SV *val, + apr_pool_t *pool ); + +U16 *modperl_code_attrs(pTHX_ CV *cv); + +#if AP_SERVER_MAJORVERSION_NUMBER>2 || \ + (AP_SERVER_MAJORVERSION_NUMBER == 2 && AP_SERVER_MINORVERSION_NUMBER>=3) +apr_status_t +modperl_register_auth_provider(apr_pool_t *pool, const char *provider_group, + const char *provider_name, + const char *provider_version, SV *callback1, + SV *callback2, int type); + +apr_status_t +modperl_register_auth_provider_name(apr_pool_t *pool, + const char *provider_group, + const char *provider_name, + const char *provider_version, + const char *callback1, + const char *callback2, int type); +#endif + +#endif /* MODPERL_UTIL_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/t/apache/add_config.t b/2_0_13/t/apache/add_config.t new file mode 100644 index 0000000..90edaec --- /dev/null +++ b/2_0_13/t/apache/add_config.t
@@ -0,0 +1,6 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# the handler is configured in modperl_extra.pl via +# Apache2::ServerUtil->server->add_config +use Apache::TestRequest 'GET_BODY_ASSERT'; + +print GET_BODY_ASSERT "/apache/add_config";
diff --git a/2_0_13/t/apache/cgihandler.t b/2_0_13/t/apache/cgihandler.t new file mode 100644 index 0000000..ace671c --- /dev/null +++ b/2_0_13/t/apache/cgihandler.t
@@ -0,0 +1,21 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 2; + +my $location = "/TestApache__cgihandler"; + +my $expected = "1..3\nok 1\nok 2\nok 3\n"; + +my $received = POST_BODY $location, content => $expected; + +ok t_cmp $received, $expected, "POST cgihandler"; + +$received = GET_BODY $location; + +ok t_cmp $received, $expected, "GET cgihandler";
diff --git a/2_0_13/t/apache/constants.t b/2_0_13/t/apache/constants.t new file mode 100644 index 0000000..81fe6aa --- /dev/null +++ b/2_0_13/t/apache/constants.t
@@ -0,0 +1,84 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use ExtUtils::testlib; +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +# -compile puts constants into the Apache2:: namespace +use Apache2::Const -compile => qw(:http :common :mpmq :proxy + TAKE23 &OPT_EXECCGI + DECLINE_CMD DIR_MAGIC_TYPE + CRLF); + +# without -compile, constants are in the +# caller namespace. also defaults to :common +use Apache2::Const; + +plan tests => 18; + +ok t_cmp(REDIRECT, 302, 'REDIRECT'); + +ok t_cmp(AUTH_REQUIRED, 401, 'AUTH_REQUIRED'); + +ok t_cmp(OK, 0, 'OK'); + +ok t_cmp(Apache2::Const::OK, 0, 'Apache2::Const::OK'); + +ok t_cmp(Apache2::Const::DECLINED, -1, 'Apache2::Const::DECLINED'); + +ok t_cmp(Apache2::Const::HTTP_GONE, 410, 'Apache2::Const::HTTP_GONE'); + +ok t_cmp(Apache2::Const::DIR_MAGIC_TYPE, + 'httpd/unix-directory', + 'Apache2::Const::DIR_MAGIC_TYPE'); + +ok t_cmp(Apache2::Const::MPMQ_MAX_SPARE_DAEMONS, + 9, + 'Apache2::Const::MPMQ_MAX_SPARE_DAEMONS'); + +ok t_cmp(Apache2::Const::PROXYREQ_REVERSE, + 2, + 'Apache2::Const::PROXYREQ_REVERSE'); + +# the rest of the tests don't fit into the t_cmp() meme +# for one reason or anothre... + +print "testing Apache2::Const::OPT_EXECCGI is defined\n"; +ok defined Apache2::Const::OPT_EXECCGI; + +print "testing Apache2::Const::DECLINE_CMD\n"; +ok Apache2::Const::DECLINE_CMD eq "\x07\x08"; + +# try and weed out EBCDIC - this is the test httpd uses +if (chr(0xC1) eq 'A') { + print "testing Apache2::Const::CRLF (EBCDIC)\n"; + ok Apache2::Const::CRLF eq "\r\n"; +} +else { + print "testing Apache2::Const::CRLF (ASCII)\n"; + ok Apache2::Const::CRLF eq "\015\012"; + +} + +print "testing M_GET not yet defined\n"; +ok ! defined &M_GET; + +Apache2::Const->import('M_GET'); + +print "testing M_GET now defined\n"; +ok defined &M_GET; + +for (qw(BOGUS :bogus -foobar)) { + + eval { Apache2::Const->import($_) }; + + print "testing bogus import $_\n"; + ok $@; +} + +print "testing explicit call to compile()\n"; +eval { Apache2::Const::compile() }; + +ok $@;
diff --git a/2_0_13/t/apache/content_length_header.t b/2_0_13/t/apache/content_length_header.t new file mode 100644 index 0000000..2b414e4 --- /dev/null +++ b/2_0_13/t/apache/content_length_header.t
@@ -0,0 +1,158 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 12 * 2 + 3; + +my $location = "/TestApache__content_length_header"; + +# 1. because Apache proclaims itself governor of the C-L header via +# the C-L filter (ap_content_length_filter at +# httpd-2.0/server/protocol.c), test whether GET and HEAD behave the +# same wrt C-L under varying circumstances. for the most part GET +# and HEAD should behave exactly the same. however, when Apache +# sees a HEAD request with a C-L header of zero it takes special +# action and removes the C-L header. this is done to protect against +# handlers that called r->header_only (which was ok in 1.3 but is +# not in 2.0). So, GET and HEAD behave the same except when the +# content handler (plus filters) end up sending no content. see +# the lengthy comments in ap_http_header_filter in http_protocol.c. +# +# for more discussion on +# why it is important to get HEAD requests right, see these threads +# from the mod_perl list +# http://marc.theaimsgroup.com/?l=apache-modperl&m=108647669726915&w=2 +# http://marc.theaimsgroup.com/?t=109122984600001&r=1&w=2 +# as well as this bug report from mozilla, which shows how they +# are using HEAD requests in the wild +# http://bugzilla.mozilla.org/show_bug.cgi?id=245447 + +foreach my $method (qw(GET HEAD)) { + + no strict qw(refs); + + { + # if the response handler sends no data, and sets no C-L header, + # the client doesn't get C-L header at all. + # + # in 2.0 GET requests get a C-L of zero, while HEAD requests do + # not due to special processing. + my $uri = $location; + my $res = $method->($uri); + + my $cl = 0; + my $head_cl = undef; + + ok t_cmp $res->code, 200, "$method $uri code"; + ok t_cmp ($res->header('Content-Length'), + $method eq 'GET' ? $cl : $head_cl, + "$method $uri C-L header"); + ok t_cmp $res->content, "", "$method $uri content"; + } + + { + # if the response handler sends no data and sets C-L header, + # the client should receive the set content length. in 2.1 + # this is the way it happens. see protocol.c -r1.150 -r1.151 + # + # in 2.0 the client doesn't get C-L header for HEAD requests + # due to special processing, and GET requests get a calculated + # C-L of zero. + my $uri = "$location?set_content_length"; + my $res = $method->($uri); + + my $cl = 0; + my $head_cl; + + ## 2.2.1, 2.0.56, 2.0.57 were not released + ## but we use the versions the changes went into + ## to protect against wierd SVN checkout building. + ## XXX: I'm starting to think this test is more + ## trouble then its worth. + if (have_min_apache_version("2.2.1")) { + $head_cl = 25; + } + elsif (have_min_apache_version("2.2.0")) { + # $head_cl = undef; # avoid warnings + } + elsif (have_min_apache_version("2.0.56")) { + $head_cl = 25; + } + else { + # $head_cl = undef; # avoid warnings + } + + ok t_cmp $res->code, 200, "$method $uri code"; + ok t_cmp ($res->header('Content-Length'), + $method eq 'GET' ? $cl : $head_cl, + "$method $uri C-L header"); + ok t_cmp $res->content, "", "$method $uri content"; + } + + { + # if the response handler sends data, and sets no C-L header, + # the client doesn't get C-L header. + my $uri = "$location?send_body"; + my $res = $method->($uri); + ok t_cmp $res->code, 200, "$method $uri code"; + ok t_cmp $res->header('Content-Length'), undef, + "$method $uri C-L header"; + + my $content = $method eq 'GET' ? 'This is a response string' : ''; + ok t_cmp $res->content, $content, "$method $uri content"; + } + + { + # if the response handler sends data (e.g. one char string), and + # sets C-L header, the client gets the C-L header + my $uri = "$location?send_body+set_content_length"; + my $res = $method->($uri); + ok t_cmp $res->code, 200, "$method $uri code"; + ok t_cmp $res->header('Content-Length'), 25, + "$method $uri C-L header"; + + my $content = $method eq 'GET' ? 'This is a response string' : ''; + ok t_cmp $res->content, $content, "$method $uri content"; + } +} + +# 2. even though the spec says that content handlers should send an +# identical response for GET and HEAD requests, some folks try to +# avoid the overhead of generating the response body, which Apache is +# going to discard anyway for HEAD requests. The following discussion +# assumes that we deal with a HEAD request. +# +# When Apache sees EOS and no headers and no response body were sent, +# ap_content_length_filter (httpd-2.0/server/protocol.c) sets C-L to +# 0. Later on ap_http_header_filter +# (httpd-2.0/modules/http/http_protocol.c) removes the C-L header for +# the HEAD requests +# +# the workaround is to force the sending of the response headers, +# before EOS was sent. The simplest solution is to use rflush(): +# +# if ($r->header_only) { # HEAD +# $body_len = calculate_body_len(); +# $r->set_content_length($body_len); +# $r->rflush; +# } +# else { # GET +# # generate and send the body +# } +# +# now if the handler sets the C-L header it'll be delivered to the +# client unmodified. + +{ + # if the response handler sends data (e.g. one char string), and + # sets C-L header, the client gets the C-L header + my $uri = "$location?head_no_body+set_content_length"; + my $res = HEAD $uri; + ok t_cmp $res->code, 200, "HEAD $uri code"; + ok t_cmp $res->header('Content-Length'), 25, "HEAD $uri C-L header"; + ok t_cmp $res->content, '', "HEAD $uri content"; +}
diff --git a/2_0_13/t/apache/discard_rbody.t b/2_0_13/t/apache/discard_rbody.t new file mode 100644 index 0000000..49caab0 --- /dev/null +++ b/2_0_13/t/apache/discard_rbody.t
@@ -0,0 +1,18 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; +use Apache::TestRequest; + +my $location = "/TestApache__discard_rbody"; +my $content = "Y" x 100000; # more than one bucket + +plan tests => 3; + +for my $test (qw(none partial all)) { + my $received = POST_BODY "$location?$test", content => $content; + ok t_cmp($received, $test, "data consumption: $test"); +} +
diff --git a/2_0_13/t/apache/post.t b/2_0_13/t/apache/post.t new file mode 100644 index 0000000..ba0f573 --- /dev/null +++ b/2_0_13/t/apache/post.t
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 2; + +my $location = "/TestApache__post"; +my $str; + +my @data = (arizona => 'wildcats'); +my %data = @data; + +$str = POST_BODY $location, content => "@data"; + +ok $str; + +my $data = join '&', map { "$_=$data{$_}" } keys %data; + +$str = POST_BODY $location, content => $data; +ok t_cmp($str, + join(':', length($data), $data), + "POST");
diff --git a/2_0_13/t/apache/read.t b/2_0_13/t/apache/read.t new file mode 100644 index 0000000..9f7f504 --- /dev/null +++ b/2_0_13/t/apache/read.t
@@ -0,0 +1,52 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +use File::Spec::Functions qw(catfile); + +plan tests => 1; + +#force test to go over http, since this doesn't work with t/TEST -ssl +Apache::TestRequest::scheme('http'); + +my $location = "/TestApache__read"; + +my $socket = Apache::TestRequest::vhost_socket('default'); + +my $file = catfile Apache::Test::vars('serverroot'), "..", 'Makefile'; + +open my $fh, $file or die "open $file: $!"; +my $data = join '', <$fh>; +close $fh; + +my $size = length $data; + +for my $string ("POST $location HTTP/1.0", + "Content-length: $size", + "") { + my $line = "$string\r\n"; + syswrite $socket, $line, length($line); +} + +my $written = 0; +my $bufsiz = 240; + +my $sleeps = 2; + +while ($written < length($data)) { + my $remain = length($data) - $written; + my $len = $remain > $bufsiz ? $bufsiz : $remain; + $written += syswrite $socket, $data, $len, $written; + sleep 1 if $sleeps-- > 0; +} + +while (<$socket>) { + last if /^\015?\012$/; #skip over headers +} + +my $return = join '', <$socket>; + +ok $data eq $return;
diff --git a/2_0_13/t/apache/read2.t b/2_0_13/t/apache/read2.t new file mode 100644 index 0000000..fc585d7 --- /dev/null +++ b/2_0_13/t/apache/read2.t
@@ -0,0 +1,4 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache::TestRequest 'POST_BODY_ASSERT'; +print POST_BODY_ASSERT "/TestApache__read2", + content => "foobar";
diff --git a/2_0_13/t/apache/read3.t b/2_0_13/t/apache/read3.t new file mode 100644 index 0000000..e4fbee4 --- /dev/null +++ b/2_0_13/t/apache/read3.t
@@ -0,0 +1,4 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache::TestRequest 'POST_BODY_ASSERT'; +print POST_BODY_ASSERT "/TestApache__read3", + content => "foobar"x2000;
diff --git a/2_0_13/t/apache/read4.t b/2_0_13/t/apache/read4.t new file mode 100644 index 0000000..eeb7341 --- /dev/null +++ b/2_0_13/t/apache/read4.t
@@ -0,0 +1,4 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache::TestRequest 'POST_BODY_ASSERT'; +print POST_BODY_ASSERT "/TestApache__read4", + content => "foobar"x2;
diff --git a/2_0_13/t/apache/scanhdrs.t b/2_0_13/t/apache/scanhdrs.t new file mode 100644 index 0000000..da305c5 --- /dev/null +++ b/2_0_13/t/apache/scanhdrs.t
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 4; + +my $module = 'TestApache::scanhdrs'; +my $location = "/" . Apache::TestRequest::module2path($module); + +my $res = GET $location; + +t_debug $res->as_string; + +ok t_cmp($res->content, qr/^ok 1$/m); + +ok t_cmp($res->header('Content-Type'), + 'text/test-output', + "standard header"); + +ok t_cmp($res->header('X-Perl-Module'), + $module, + "custom header"); + +ok t_cmp($res->message, qr/beer/);
diff --git a/2_0_13/t/apache/scanhdrs2.t b/2_0_13/t/apache/scanhdrs2.t new file mode 100644 index 0000000..7956b84 --- /dev/null +++ b/2_0_13/t/apache/scanhdrs2.t
@@ -0,0 +1,35 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 5, need 'HTML::HeadParser'; + +my $module = 'TestApache__scanhdrs2'; +my $location = "/$module"; + +my $redirect = 'http://perl.apache.org/'; + +my $res = GET "$location?$redirect", redirect_ok => 0; + +ok t_cmp($res->header('Location')||'', $redirect, + "Location header"); + +ok t_cmp($res->code, 302, + "status == 302"); + +$redirect = '/index.html'; + +$res = GET "$location?$redirect", redirect_ok => 0; + +ok t_cmp(!$res->header('Location'), 1, + "no Location header"); + +ok t_cmp($res->code, 200, + "status == 200"); + +ok t_cmp($res->content, qr{welcome to}, + "content is index.html");
diff --git a/2_0_13/t/apache/send_cgi_header.t b/2_0_13/t/apache/send_cgi_header.t new file mode 100644 index 0000000..6a2bd53 --- /dev/null +++ b/2_0_13/t/apache/send_cgi_header.t
@@ -0,0 +1,32 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 4; + +my $location = "/TestApache__send_cgi_header"; +my $res = GET $location; + +ok t_cmp($res->header('X-Foo'), + 'X-Bar', + "header test"); + +ok t_cmp($res->header('Set-Cookie'), + 'Bad Programmer, No cookie!', + "header test2"); + +my $expected = "\0\0This not the end of the world\0\0\n"; +my $received = $res->content; + +ok t_cmp(length($received), + length($expected), + "body length test"); + +# \000 aren't seen when printed +ok t_cmp($received, + $expected, + "body content test");
diff --git a/2_0_13/t/api/access2.t b/2_0_13/t/api/access2.t new file mode 100644 index 0000000..f106dcd --- /dev/null +++ b/2_0_13/t/api/access2.t
@@ -0,0 +1,39 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +if (!have_min_apache_version("2.4.0")) { + +plan tests => 6, need need_lwp, need_auth, need_access, 'mod_version.c', + 'HTML::HeadParser'; + +my $location = "/TestAPI__access2"; + +ok !GET_OK $location; + +my $rc = GET_RC $location; +ok t_cmp $rc, 401, "no credentials passed"; + +# bad user +ok !GET_OK $location, username => 'root', password => '1234'; + +# good user/bad pass +ok !GET_OK $location, username => 'goo', password => 'foo'; + +# good user/good pass +ok GET_OK $location, username => 'goo', password => 'goopass'; + +# any user/any pass POST works +ok POST_OK $location, username => 'bar', password => 'goopass1', + content => "a"; + +} +else { + +plan tests => 1, need {"mod_perl is not compiled with httpd-2.2" => 0}; + +}
diff --git a/2_0_13/t/api/access2_24.t b/2_0_13/t/api/access2_24.t new file mode 100644 index 0000000..3852c04 --- /dev/null +++ b/2_0_13/t/api/access2_24.t
@@ -0,0 +1,38 @@ +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +if (have_min_apache_version("2.4.0")) { + +plan tests => 6, need need_lwp, need_auth, need_access, 'mod_access_compat.c', + 'mod_version.c', 'HTML::HeadParser'; + +my $location = "/TestAPI__access2"; + +ok !GET_OK $location; + +my $rc = GET_RC $location; +ok t_cmp $rc, 401, "no credentials passed"; + +# bad user +ok !GET_OK $location, username => 'root', password => '1234'; + +# good user/bad pass +ok !GET_OK $location, username => 'goo', password => 'foo'; + +# good user/good pass +ok GET_OK $location, username => 'goo', password => 'goopass'; + +# any user/any pass POST works +ok POST_OK $location, username => 'bar', password => 'goopass1', + content => "a"; + +} +else { + +plan tests => 1, need {"mod_perl is not compiled with httpd-2.4" => 0}; + +}
diff --git a/2_0_13/t/api/add_config.t b/2_0_13/t/api/add_config.t new file mode 100644 index 0000000..20a1b7a --- /dev/null +++ b/2_0_13/t/api/add_config.t
@@ -0,0 +1,14 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY_ASSERT); +use Apache::Test; +use Apache::TestUtil; + +my $module = 'TestAPI::add_config'; +my $url = Apache::TestRequest::module2url($module) . "/"; + +t_debug("connecting to $url"); +print GET_BODY_ASSERT $url; +
diff --git a/2_0_13/t/api/content_encoding.t b/2_0_13/t/api/content_encoding.t new file mode 100644 index 0000000..d030f00 --- /dev/null +++ b/2_0_13/t/api/content_encoding.t
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1, need_min_module_version("Compress::Zlib", "1.09"); + +my $location = '/TestAPI__content_encoding'; + +my $expected = 'This is a clear text'; + +my $res = POST $location, content => $expected; + +my $received = $res->content; +#t_debug($received); + +if ($res->header('Content-Encoding') =~ /gzip/) { + require Compress::Zlib; + + # gzip already produces data in a network order, so no extra + # transformation seem to be necessary + $received = Compress::Zlib::memGunzip($received); +} + +ok t_cmp $received, $expected, "Content-Encoding: gzip test"; +
diff --git a/2_0_13/t/api/custom_response.t b/2_0_13/t/api/custom_response.t new file mode 100644 index 0000000..3986008 --- /dev/null +++ b/2_0_13/t/api/custom_response.t
@@ -0,0 +1,49 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use File::Spec::Functions qw(catfile); + +use Apache2::Const -compile => qw(FORBIDDEN); + +my $module = 'TestAPI::custom_response'; +my $location = '/' . Apache::TestRequest::module2path($module); + +my $config = Apache::Test::config(); +my $hostport = Apache::TestRequest::hostport($config); +t_debug("connecting to $hostport"); + +my $file = catfile Apache::Test::vars('documentroot'), + qw(api custom_response.txt); + +open my $fh, $file or die "Can't open $file: $!"; +my $data = do { binmode $fh; local $/; <$fh> }; +close $fh; + +plan tests => 4, need need_lwp, 'HTML::HeadParser'; + +{ + # custom text response + my $expected = "This_is_a_custom_text_response"; + my $res = GET "$location?$expected"; + ok t_cmp $res->code, Apache2::Const::FORBIDDEN, "custom text response (code)"; + ok t_cmp $res->content, $expected, "custom text response (body)"; +} + +{ + # custom relative url response + my $url = "/api/custom_response.txt"; + my $res = GET "$location?$url"; + ok t_cmp $res->content, $data, "custom file response (body)"; +} +{ + my $url = "http://$hostport/api/custom_response.txt"; + # custom full url response + my $res = GET "$location?$url"; + ok t_cmp $res->content, $data, "custom file response (body)"; +} +
diff --git a/2_0_13/t/api/err_headers_out.t b/2_0_13/t/api/err_headers_out.t new file mode 100644 index 0000000..a1eb446 --- /dev/null +++ b/2_0_13/t/api/err_headers_out.t
@@ -0,0 +1,61 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 6, need 'HTML::HeadParser'; + +my $location = '/TestAPI__err_headers_out'; + +{ + # with 2xx responses any of the err_headers_out and headers_out + # headers make it through + + my $res = GET "$location?200"; + + #t_debug $res->as_string; + + ok t_cmp $res->code, 200, "OK"; + + # HTTP::Headers 6.00 makes the next 2 tests fail. When the response comes + # in the header name is stored as "x-err_headers_out". But when it is to + # be read below it is referred as "x-err-headers-out" and hence not found. + local $HTTP::Headers::TRANSLATE_UNDERSCORE= + $HTTP::Headers::TRANSLATE_UNDERSCORE; + undef $HTTP::Headers::TRANSLATE_UNDERSCORE + if defined HTTP::Headers->VERSION and HTTP::Headers->VERSION >= 6.00; + + ok t_cmp $res->header('X-err_headers_out'), "err_headers_out", + "X-err_headers_out: made it"; + + ok t_cmp $res->header('X-headers_out'), "headers_out", + "X-headers_out: made it"; +} + +{ + # with non-2xx responses only the err_headers_out headers make it + # through. the headers_out do not make it. + + my $res = GET "$location?404"; + + #t_debug $res->as_string; + + ok t_cmp $res->code, 404, "not found"; + + # HTTP::Headers 6.00 makes this test fail. When the response comes in + # the header name is stored as "x-err_headers_out". But when it is to + # be read below it is referred as "x-err-headers-out" and hence not found. + local $HTTP::Headers::TRANSLATE_UNDERSCORE= + $HTTP::Headers::TRANSLATE_UNDERSCORE; + undef $HTTP::Headers::TRANSLATE_UNDERSCORE + if defined HTTP::Headers->VERSION and HTTP::Headers->VERSION >= 6.00; + + ok t_cmp $res->header('X-err_headers_out'), "err_headers_out", + "X-err_headers_out: made it"; + + ok !$res->header('X-headers_out'); +} +
diff --git a/2_0_13/t/api/in_out_filters.t b/2_0_13/t/api/in_out_filters.t new file mode 100644 index 0000000..f9aa7a1 --- /dev/null +++ b/2_0_13/t/api/in_out_filters.t
@@ -0,0 +1,22 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $location = '/TestAPI__in_out_filters'; + +my $content = join '', 'AA'..'ZZ', 1..99999; + +my $expected = lc $content; +my $received = POST_BODY $location, content => $content; + +# don't use t_cmp in this test, because the data length is 500K. +# You don't want to see 500K * 2 when you run t/TEST -verbose + +ok $received eq $expected; +
diff --git a/2_0_13/t/api/internal_redirect.t b/2_0_13/t/api/internal_redirect.t new file mode 100644 index 0000000..ecdd9bd --- /dev/null +++ b/2_0_13/t/api/internal_redirect.t
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# test internal redirects originating from 'SetHandler modperl' and +# 'SetHandler perl-script' main handlers, and sub-requests handled by +# the handlers of the same and the opposite kind + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $uri = "/TestAPI__internal_redirect"; + +my %map = ( + "modperl => modperl" => "${uri}_modperl?uri=${uri}_modperl", + "perl-script => modperl" => "${uri}_perl_script?uri=${uri}_modperl", + "perl-script => perl-script" => "${uri}_perl_script?uri=${uri}_perl_script", + "modperl => perl-script" => "${uri}_modperl?uri=${uri}_perl_script", +); + +plan tests => scalar keys %map; + +while (my ($key, $val) = each %map) { + my $expected = "internal redirect: $key"; + my $received = GET_BODY_ASSERT $val; + ok t_cmp($received, $expected); +}
diff --git a/2_0_13/t/api/internal_redirect_handler.t b/2_0_13/t/api/internal_redirect_handler.t new file mode 100644 index 0000000..26237d1 --- /dev/null +++ b/2_0_13/t/api/internal_redirect_handler.t
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $uri = "/TestAPI__internal_redirect_handler"; + +my @ct_types = qw(text/plain text/html); + +plan tests => scalar @ct_types; + +for my $type (@ct_types) { + my $expected = $type; + my $received = GET_BODY_ASSERT "$uri?ct=$type"; + ok t_cmp $received, $expected, "Content-type: $type"; +}
diff --git a/2_0_13/t/api/lookup_misc.t b/2_0_13/t/api/lookup_misc.t new file mode 100644 index 0000000..e73079b --- /dev/null +++ b/2_0_13/t/api/lookup_misc.t
@@ -0,0 +1,35 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use File::Spec; + +my $uri = "/TestAPI__lookup_misc"; + +my $file = File::Spec->rel2abs(__FILE__); +open my $fh, $file or die "Can't open $file: $!"; +my $data = do { binmode $fh; local $/; <$fh> }; +close $fh; + +plan tests => 2; + +# lookup_file +{ + my $args = "subreq=lookup_file;file=$file"; + my $expected = $data; + my $received = GET_BODY_ASSERT "$uri?$args"; + t_debug "lookup_file"; + ok $received eq $expected; +} + +# lookup_method_uri +{ + my $args = "subreq=lookup_method_uri;uri=/lookup_method_uri"; + my $expected = "ok"; + my $received = GET_BODY_ASSERT "$uri?$args"; + ok t_cmp $received, $expected, "lookup_method_uri"; +}
diff --git a/2_0_13/t/api/lookup_uri.t b/2_0_13/t/api/lookup_uri.t new file mode 100644 index 0000000..7864a01 --- /dev/null +++ b/2_0_13/t/api/lookup_uri.t
@@ -0,0 +1,30 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $uri = "/TestAPI__lookup_uri"; + +use constant PREFIX => 0; +use constant SUFFIX => 1; + +my %opts = ( + first => [2, 2], # all filters run twice + second => [1, 2], # the top level req filter skipped for the subreq + none => [1, 1], # no request filters run by subreq + default => [1, 1], # same as none +); + +plan tests => scalar keys %opts; + +while (my ($filter, $runs) = each %opts) { + my $args = "subreq=lookup_uri;filter=$filter"; + my $prefix = "pre+" x $runs->[PREFIX]; + my $suffix = "+suf" x $runs->[SUFFIX]; + my $expected = "$prefix$args$suffix"; + my $received = GET_BODY_ASSERT "$uri?$args"; + ok t_cmp $received, $expected, "$args"; +}
diff --git a/2_0_13/t/api/request_rec.t b/2_0_13/t/api/request_rec.t new file mode 100644 index 0000000..f9163ab --- /dev/null +++ b/2_0_13/t/api/request_rec.t
@@ -0,0 +1,6 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest 'GET_BODY_ASSERT'; +print GET_BODY_ASSERT "/TestAPI__request_rec/my_path_info?my_args=3";
diff --git a/2_0_13/t/api/rflush.t b/2_0_13/t/api/rflush.t new file mode 100644 index 0000000..8f4fca0 --- /dev/null +++ b/2_0_13/t/api/rflush.t
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +my $location = '/TestAPI__rflush'; + +plan tests => 2; + +{ + my $response = GET_BODY "$location?nontied"; + ok t_cmp($response, "[1][2][3][4][56]", + "non-tied rflush creates bucket brigades"); +} + +{ + my $response = GET_BODY "$location?tied"; + ok t_cmp($response, "[1][2][3456]", + "tied STDOUT internal rflush creates bucket brigades"); +} +
diff --git a/2_0_13/t/api/sendfile.t b/2_0_13/t/api/sendfile.t new file mode 100644 index 0000000..6c3d5e5 --- /dev/null +++ b/2_0_13/t/api/sendfile.t
@@ -0,0 +1,64 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use File::Spec::Functions qw(catfile); + +my $url = '/TestAPI__sendfile'; + +my $file = catfile Apache::Test::vars('serverroot'), + 'response/TestAPI/sendfile.pm'; + +my $contents; +open my $fh, $file or die "can't open $file: $!"; +# need binmode on Win32 so as not to strip \r, which +# are included when sending with sendfile(). +binmode $fh; +{ local $/; $contents = <$fh>; } +close $fh; + +plan tests => 7, need 'HTML::HeadParser'; + +{ + my $header = "This is a header\n"; + my $footer = "This is a footer\n"; + + my $received = GET_BODY "$url?withwrapper"; + my $expected = join '', $header, $contents, $footer; + #t_debug($received); + ok $received && $received eq $expected; +} + +{ + my $received = GET_BODY "$url?offset"; + my $expected = substr $contents, 3; + #t_debug($received); + ok $received && $received eq $expected; +} + +{ + my $received = GET_BODY "$url?len"; + my $expected = substr $contents, 3, 50; + #t_debug($received); + ok $received && $received eq $expected; +} + +{ + # rc is checked and handled by the code + my $res = GET "$url?noexist.txt"; + ok t_cmp($res->code, 500, "failed sendfile"); + #t_debug($res->content); + ok $res->content =~ /an internal error/; +} + +{ + # rc is not checked in this one, testing the exception throwing + my $res = GET "$url?noexist-n-nocheck.txt"; + ok t_cmp($res->code, 500, "failed sendfile"); + #t_debug($res->content); + ok $res->content =~ /an internal error/; +}
diff --git a/2_0_13/t/api/slurp_filename.t b/2_0_13/t/api/slurp_filename.t new file mode 100644 index 0000000..b75da7e --- /dev/null +++ b/2_0_13/t/api/slurp_filename.t
@@ -0,0 +1,7 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache::TestRequest 'GET_BODY_ASSERT'; + +# we want r->filename to be "/slurp/slurp.pl", even though the +# response handler is TestAPI::slurp_filename + +print GET_BODY_ASSERT "/slurp/slurp.pl";
diff --git a/2_0_13/t/api/status.t b/2_0_13/t/api/status.t new file mode 100644 index 0000000..534da3b --- /dev/null +++ b/2_0_13/t/api/status.t
@@ -0,0 +1,44 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# testing $r->status/status_line + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 6; + +my $location = "/TestAPI__status"; + +{ + # test a valid HTTP/1.1 status code (303). In this test + # the handler returns OK, but sets a custom status. Apache will + # lookup the message "See Other" on its own + my $code = 303; # Apache2::Const::HTTP_SEE_OTHER + my $message = "See Other"; + my $res = GET "$location?$code="; + ok t_cmp $res->code, $code, "code"; + ok t_cmp $res->message, $message, "code message"; + ok t_cmp $res->content, "", "content"; +} + +{ + # test a non-existing HTTP/1.1 status code (499). In this test + # the handler returns OK, but sets a custom status_line. + # it also tries to set status (to a different value), but it + # should be ignored by Apache, since status_line is supposed to + # override status. the handler also sets a custom code message + # modules/http/http_filters.c r372958 + # httpd 'zaps' the status_line if it doesn't match the status + # as of 2.2.1 (not released) so 2.2.2 (released) + + my $code = 499; # not in HTTP/1.1 + my $message = "FooBared"; + my $res = GET "$location?$code=$message"; + ok t_cmp $res->code, $code, "code"; + ok t_cmp $res->message, $message, "code message"; + ok t_cmp $res->content, "", "content"; +} +
diff --git a/2_0_13/t/apr-ext/base64.t b/2_0_13/t/apr-ext/base64.t new file mode 100644 index 0000000..0a6926c --- /dev/null +++ b/2_0_13/t/apr-ext/base64.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::base64; + +plan tests => TestAPRlib::base64::num_of_tests(); + +TestAPRlib::base64::test();
diff --git a/2_0_13/t/apr-ext/brigade.t b/2_0_13/t/apr-ext/brigade.t new file mode 100644 index 0000000..ce65cda --- /dev/null +++ b/2_0_13/t/apr-ext/brigade.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::brigade; + +plan tests => TestAPRlib::brigade::num_of_tests(); + +TestAPRlib::brigade::test();
diff --git a/2_0_13/t/apr-ext/bucket.t b/2_0_13/t/apr-ext/bucket.t new file mode 100644 index 0000000..5f7937f --- /dev/null +++ b/2_0_13/t/apr-ext/bucket.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::bucket; + +plan tests => TestAPRlib::bucket::num_of_tests(); + +TestAPRlib::bucket::test();
diff --git a/2_0_13/t/apr-ext/date.t b/2_0_13/t/apr-ext/date.t new file mode 100644 index 0000000..675d5c0 --- /dev/null +++ b/2_0_13/t/apr-ext/date.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::date; + +plan tests => TestAPRlib::date::num_of_tests(); + +TestAPRlib::date::test();
diff --git a/2_0_13/t/apr-ext/error.t b/2_0_13/t/apr-ext/error.t new file mode 100644 index 0000000..297637a --- /dev/null +++ b/2_0_13/t/apr-ext/error.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::error; + +plan tests => TestAPRlib::error::num_of_tests(); + +TestAPRlib::error::test();
diff --git a/2_0_13/t/apr-ext/finfo.t b/2_0_13/t/apr-ext/finfo.t new file mode 100644 index 0000000..828edee --- /dev/null +++ b/2_0_13/t/apr-ext/finfo.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::finfo; + +plan tests => TestAPRlib::finfo::num_of_tests(); + +TestAPRlib::finfo::test();
diff --git a/2_0_13/t/apr-ext/os.t b/2_0_13/t/apr-ext/os.t new file mode 100644 index 0000000..bc3ca57 --- /dev/null +++ b/2_0_13/t/apr-ext/os.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::os; + +plan tests => TestAPRlib::os::num_of_tests(); + +TestAPRlib::os::test();
diff --git a/2_0_13/t/apr-ext/perlio.t b/2_0_13/t/apr-ext/perlio.t new file mode 100644 index 0000000..543e57d --- /dev/null +++ b/2_0_13/t/apr-ext/perlio.t
@@ -0,0 +1,242 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; + +# XXX: this is pretty much the same test as +# t/response/TestAPR/perlio.pm, but used outside mod_perl +# consider avoiding the code duplication. + +use Apache::Test; +use Apache::TestUtil; +use Apache2::Build (); + +use Fcntl (); +use File::Spec::Functions qw(catfile); + +#XXX: APR::LARGE_FILES_CONFLICT constant? +#XXX: you can set to zero if largefile support is not enabled in Perl +use constant LARGE_FILES_CONFLICT => 1; + +my $build = Apache2::Build->build_config; + +# XXX: only when apr-config is found APR will be linked against +# libapr/libaprutil, probably need a more intuitive method for this +# prerequisite +# also need to check whether we build against the source tree, in +# which case we APR.so won't be linked against libapr/libaprutil +my $has_apr_config = $build->{apr_config_path} && + !$build->httpd_is_source_tree; + +my $has_perlio_layers = 0; +if ($has_apr_config) { + require APR; + require APR::PerlIO; + $has_perlio_layers = 1 if APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED(); +} + +my $tests = 12; +my $lfs_tests = 3; + +$tests += $lfs_tests unless LARGE_FILES_CONFLICT; +require APR; require APR::PerlIO; +plan tests => $tests, + need {"this build couldn't find apr-config" => $has_apr_config, + "this build doesn't support PerlIO layers" => $has_perlio_layers, + }; + +require APR::Pool; + +my $pool = APR::Pool->new(); + +my $vars = Apache::Test::config()->{vars}; +my $dir = catfile $vars->{documentroot}, "perlio-ext"; + +t_mkdir($dir); + +my $sep = "-- sep --\n"; +my @lines = ("This is a test: $$\n", "test line --sep two\n"); + +my $expected = $lines[0]; +my $expected_all = join $sep, @lines; + +# write file +my $file = catfile $dir, "test"; +t_debug "open file $file for writing"; +my $foo = "bar"; +open my $fh, ">:APR", $file, $pool + or die "Cannot open $file for writing: $!"; +ok ref($fh) eq 'GLOB'; + +t_debug "write to a file:\n$expected\n"; +print $fh $expected_all; +close $fh; + +# open() failure test +{ + # workaround for locale setups where the error message may be + # in a different language + open my $fh, "perlio_this_file_cannot_exist"; + my $errno_string = "$!"; + + # non-existent file + my $file = "/this/file/does/not/exist"; + if (open my $fh, "<:APR", $file, $pool) { + t_debug "must not be able to open $file!"; + ok 0; + close $fh; + } else { + ok t_cmp("$!", + $errno_string, + "expected failure"); + } +} + +# seek/tell() tests +unless (LARGE_FILES_CONFLICT) { + open my $fh, "<:APR", $file, $pool + or die "Cannot open $file for reading: $!"; + + # read the whole file so we can test the buffer flushed + # correctly on seek. + my $dummy = join '', <$fh>; + + # Fcntl::SEEK_SET() + my $pos = 3; # rewinds after reading 6 chars above + seek $fh, $pos, Fcntl::SEEK_SET(); + my $got = tell($fh); + ok t_cmp($got, + $pos, + "seek/tell the file Fcntl::SEEK_SET"); + + # Fcntl::SEEK_CUR() + my $step = 10; + $pos = tell($fh) + $step; + seek $fh, $step, Fcntl::SEEK_CUR(); + $got = tell($fh); + ok t_cmp($got, + $pos, + "seek/tell the file Fcntl::SEEK_CUR"); + + # Fcntl::SEEK_END() + $pos = -s $file; + seek $fh, 0, Fcntl::SEEK_END(); + $got = tell($fh); + ok t_cmp($got, + $pos, + "seek/tell the file Fcntl::SEEK_END"); + + close $fh; +} + +# read() tests +{ + open my $fh, "<:APR", $file, $pool + or die "Cannot open $file for reading: $!"; + + # basic open test + ok ref($fh) eq 'GLOB'; + + # basic single line read + ok t_cmp(scalar(<$fh>), + $expected, + "single line read"); + + # slurp mode + seek $fh, 0, Fcntl::SEEK_SET(); # rewind to the start + local $/; + ok t_cmp(scalar(<$fh>), + $expected_all, + "slurp file"); + + # test ungetc (a long sep requires read ahead) + seek $fh, 0, Fcntl::SEEK_SET(); # rewind to the start + local $/ = $sep; + my @got_lines = <$fh>; + my @expect = ($lines[0] . $sep, $lines[1]); + ok t_cmp(\@got_lines, + \@expect, + "custom complex input record sep read"); + + close $fh; +} + + +# eof() tests +{ + open my $fh, "<:APR", $file, $pool + or die "Cannot open $file for reading: $!"; + + ok t_cmp(0, + int eof($fh), # returns false, not 0 + "not end of file"); + # go to the end and read so eof will return 1 + seek $fh, 0, Fcntl::SEEK_END(); + my $received = <$fh>; + + t_debug($received); + + ok t_cmp(eof($fh), + 1, + "end of file"); + close $fh; +} + +# dup() test +{ + open my $fh, "<:APR", $file, $pool + or die "Cannot open $file for reading: $!"; + + open my $dup_fh, "<&:APR", $fh + or die "Cannot dup $file for reading: $!"; + close $fh; + ok ref($dup_fh) eq 'GLOB'; + + my $received = <$dup_fh>; + + close $dup_fh; + ok t_cmp($received, + $expected, + "read/write a dupped file"); +} + +# unbuffered write +{ + open my $wfh, ">:APR", $file, $pool + or die "Cannot open $file for writing: $!"; + open my $rfh, "<:APR", $file, $pool + or die "Cannot open $file for reading: $!"; + + my $expected = "This is an un buffering write test"; + # unbuffer + my $oldfh = select($wfh); $| = 1; select($oldfh); + print $wfh $expected; # must be flushed to disk immediately + + ok t_cmp(scalar(<$rfh>), + $expected, + "file unbuffered write"); + + # buffer up + $oldfh = select($wfh); $| = 0; select($oldfh); + print $wfh $expected; # should be buffered up and not flushed + + ok t_cmp(scalar(<$rfh>), + undef, + "file buffered write"); + + close $wfh; + close $rfh; + +} + + +# XXX: need tests +# - for stdin/out/err as they are handled specially + +# XXX: tmpfile is missing: +# consider to use 5.8's syntax: +# open $fh, "+>", undef; + +# cleanup: t_mkdir will remove the whole tree including the file +
diff --git a/2_0_13/t/apr-ext/pool.t b/2_0_13/t/apr-ext/pool.t new file mode 100644 index 0000000..a2f9f15 --- /dev/null +++ b/2_0_13/t/apr-ext/pool.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::pool; + +plan tests => TestAPRlib::pool::num_of_tests(); + +TestAPRlib::pool::test();
diff --git a/2_0_13/t/apr-ext/status.t b/2_0_13/t/apr-ext/status.t new file mode 100644 index 0000000..e5232cf --- /dev/null +++ b/2_0_13/t/apr-ext/status.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::status; + +plan tests => TestAPRlib::status::num_of_tests(); + +TestAPRlib::status::test();
diff --git a/2_0_13/t/apr-ext/string.t b/2_0_13/t/apr-ext/string.t new file mode 100644 index 0000000..ec2389f --- /dev/null +++ b/2_0_13/t/apr-ext/string.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::string; + +plan tests => TestAPRlib::string::num_of_tests(); + +TestAPRlib::string::test();
diff --git a/2_0_13/t/apr-ext/table.t b/2_0_13/t/apr-ext/table.t new file mode 100644 index 0000000..2e6f599 --- /dev/null +++ b/2_0_13/t/apr-ext/table.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::table; + +plan tests => TestAPRlib::table::num_of_tests(); + +TestAPRlib::table::test();
diff --git a/2_0_13/t/apr-ext/threadmutex.t b/2_0_13/t/apr-ext/threadmutex.t new file mode 100644 index 0000000..64d9d02 --- /dev/null +++ b/2_0_13/t/apr-ext/threadmutex.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::threadmutex; + +plan tests => TestAPRlib::threadmutex::num_of_tests(), need_threads; + +TestAPRlib::threadmutex::test();
diff --git a/2_0_13/t/apr-ext/threadrwlock.t b/2_0_13/t/apr-ext/threadrwlock.t new file mode 100644 index 0000000..ba4a5db --- /dev/null +++ b/2_0_13/t/apr-ext/threadrwlock.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::threadrwlock; + +plan tests => TestAPRlib::threadrwlock::num_of_tests(), need_threads; + +TestAPRlib::threadrwlock::test();
diff --git a/2_0_13/t/apr-ext/uri.t b/2_0_13/t/apr-ext/uri.t new file mode 100644 index 0000000..88d601d --- /dev/null +++ b/2_0_13/t/apr-ext/uri.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::uri; + +plan tests => TestAPRlib::uri::num_of_tests(); + +TestAPRlib::uri::test();
diff --git a/2_0_13/t/apr-ext/util.t b/2_0_13/t/apr-ext/util.t new file mode 100644 index 0000000..dd36331 --- /dev/null +++ b/2_0_13/t/apr-ext/util.t
@@ -0,0 +1,12 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; +use Apache::Test; + +use TestAPRlib::util; + +plan tests => TestAPRlib::util::num_of_tests(); + +TestAPRlib::util::test();
diff --git a/2_0_13/t/apr-ext/uuid.t b/2_0_13/t/apr-ext/uuid.t new file mode 100644 index 0000000..973bb65 --- /dev/null +++ b/2_0_13/t/apr-ext/uuid.t
@@ -0,0 +1,31 @@ +#!perl -T +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache2::Build (); + +# XXX: only when apr-config is found APR will be linked against +# libapr/libaprutil, probably need a more intuitive method for this +# prerequisite +# also need to check whether we build against the source tree, in +# which case we APR.so won't be linked against libapr/libaprutil +# In order to do this for all the apr-ext tests, could have +# a wrapper around plan() that does a check like +####### +# my $build = Apache2::Build->build_config; +# +# my $has_apr_config = $build->{apr_config_path} && +# !$build->httpd_is_source_tree; +# plan tests => TestAPRlib::uuid::num_of_tests(), +# need {"the build couldn't find apr-config" => $has_apr_config}; +###### +# that is called from some TestAPRlib::common. + +use TestAPRlib::uuid; + +plan tests => TestAPRlib::uuid::num_of_tests(); + +TestAPRlib::uuid::test();
diff --git a/2_0_13/t/apr/constants.t b/2_0_13/t/apr/constants.t new file mode 100644 index 0000000..b9921e4 --- /dev/null +++ b/2_0_13/t/apr/constants.t
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use ExtUtils::testlib; +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache::TestUtil; + +use APR::Const -compile => qw(:common POLLIN :filetype); +use APR::Const qw(:hook); + +plan tests => 5; + +ok ! defined &POLLIN; +ok t_cmp (APR::Const::SUCCESS, 0, 'APR::Const::SUCCESS'); +ok t_cmp (APR::Const::POLLIN, 0x001, 'APR::Const::POLLIN'); +ok t_cmp (HOOK_LAST, 20, 'HOOK_LAST'); +ok t_cmp (APR::Const::FILETYPE_UNKFILE, 127, 'APR::UNKFILE');
diff --git a/2_0_13/t/apr/pool_lifetime.t b/2_0_13/t/apr/pool_lifetime.t new file mode 100644 index 0000000..4955c6f --- /dev/null +++ b/2_0_13/t/apr/pool_lifetime.t
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +Apache::TestRequest::user_agent(keep_alive => 1); + +plan tests => 2, need 'HTML::HeadParser'; + +my $module = 'TestAPR::pool_lifetime'; +my $location = '/' . Apache::TestRequest::module2path($module); + +for (1..2) { + my $expected = "Pong"; + my $received = GET $location; + + ok t_cmp( + $received->content, + $expected, + "Pong", + ); +}
diff --git a/2_0_13/t/compat/conn_authen.t b/2_0_13/t/compat/conn_authen.t new file mode 100644 index 0000000..880862f --- /dev/null +++ b/2_0_13/t/compat/conn_authen.t
@@ -0,0 +1,13 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +plan tests => 1, need need_lwp, need_auth, 'HTML::HeadParser'; + +my $location = "/TestCompat__conn_authen"; + +ok GET_OK $location, username => 'dougm', password => 'foo'; +
diff --git a/2_0_13/t/compat/request_body.t b/2_0_13/t/compat/request_body.t new file mode 100644 index 0000000..fc02b9b --- /dev/null +++ b/2_0_13/t/compat/request_body.t
@@ -0,0 +1,80 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 5; + +my $location = "/TestCompat__request_body"; + +# $r->send_http_header('text/plain'); +{ + my @data = (test => 'content-type'); + ok t_cmp( + HEAD(query(@data))->content_type(), + "text/plain", + q{$r->send_http_header('text/plain')} + ); +} + +# $r->content +{ + my @data = (test => 'content'); + my $content = join '=', @data; + ok t_cmp( + POST_BODY($location, content => $content), + "@data", + q{$r->content via POST} + ); +} + +# $r->Apache2::args +{ + my @data = (test => 'args'); + ok t_cmp( + GET_BODY(query(@data)), + "@data", + q{$r->Apache2::args} + ); +} + +# encoding/decoding +{ + my %data = ( + test => 'decoding', + body => '%DC%DC+%EC%2E+%D6%D6+%D6%2F', + ); + ok t_cmp( + GET_BODY(query(%data)), + $data{body}, + q{decoding} + ); +} + + +# big POST +{ + my %data = ( + test => 'big_input', + body => ('x' x 819_235), + ); + my $content = join '=', %data; + ok t_cmp( + POST_BODY($location, content => $content), + length($data{body}), + q{big POST} + ); +} + + + +### helper subs ### +sub query { + my (%args) = (@_ % 2) ? %{+shift} : @_; + "$location?" . join '&', map { "$_=$args{$_}" } keys %args; +} +
diff --git a/2_0_13/t/compat/send_fd.t b/2_0_13/t/compat/send_fd.t new file mode 100644 index 0000000..a2e6d97 --- /dev/null +++ b/2_0_13/t/compat/send_fd.t
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +use File::Spec::Functions qw(catfile); + +plan tests => 3, need 'HTML::HeadParser'; + +my $config = Apache::Test::config(); + +my $url = '/TestCompat__send_fd'; + +my $data = GET_BODY($url); + +ok $data; + +my $module = catfile Apache::Test::vars('serverroot'), + 'response/TestCompat/send_fd.pm'; + +ok length($data) == -s $module; + +$data = GET_BODY("$url?noexist.txt"); + +ok $data =~ /Not Found/;
diff --git a/2_0_13/t/conf/extra.conf.in b/2_0_13/t/conf/extra.conf.in new file mode 100644 index 0000000..67c2e23 --- /dev/null +++ b/2_0_13/t/conf/extra.conf.in
@@ -0,0 +1,114 @@ +# needed to test $r->psignature +ServerSignature On + +# The following tests require more than one interpreter during the +# same request: +# +# perls Test +# ----------- +# 2 t/modules/apache_status +# 2 t/filter/both_str_req_proxy +# 2 t/modules/proxy +# +# the following tests will clone a new perl interpreter via +# ithreads.pm regardless of how many interpreters mod_perl has: +# +# t/perl/ithreads +# t/perl/ithreads2 +# +# therefore we need at most 2 interpreters, the missing one loading on +# demand, but we start only with 1, so the startup is quick, +# especially since we immediately restart. We also want MaxSpare to be +# the same as Max, since we have more than one test that requires more +# than one interpreter, so don't waste time to kill and start a new +# one later -- keep it around once spawned +# +# Adjust PerlInterpMax and PerlInterpMaxSpare if the requirements change +<IfDefine PERL_USEITHREADS> + PerlInterpStart 1 + PerlInterpMax 2 + PerlInterpMinSpare 1 + PerlInterpMaxSpare 2 +</IfDefine> + +# make sure that we test under Taint and warnings mode enabled +PerlSwitches -wT + +PerlChildExitHandler ModPerl::Test::exit_handler +PerlModule TestExit::FromPerlModule + +#for t/modules/include.t +<Directory @ServerRoot@/htdocs/includes> + <IfModule mod_mime.c> + AddOutputFilter INCLUDES .shtml + </IfModule> + # #virtual include of a script that sets content type is + # considered the same as #cmd by mod_include, + # therefore can't use IncludesNOEXEC here + Options Indexes FollowSymLinks Includes +</Directory> + +<Directory @ServerRoot@/htdocs/includes-registry> + SetHandler perl-script + Options +ExecCGI +IncludesNoExec + PerlResponseHandler ModPerl::Registry + PerlOptions +ParseHeaders +GlobalRequest + <IfModule mod_mime.c> + AddOutputFilter INCLUDES .spl + </IfModule> +</Directory> + +<IfModule mod_perl.c> + <IfDefine !MODPERL2> + # This should not be touched, since we're running with mod_perl 2 + PerlModule Doesnt::Exist + </IfDefine> +</IfModule> + +# <sandbox-friendly> +# keep everything self-contained, to avoid problems with sandboxes +# which break when things try to run off /tmp +<IfModule mod_cgid.c> + ScriptSock logs/cgisock +</IfModule> +<IfModule mod_env.c> + SetEnv TMPDIR @t_logs@ + + # pass ld_library_path for non standard lib locations + # [rt.cpan.org #66085] + PassEnv LD_LIBRARY_PATH +</IfModule> +# </sandbox-friendly> + +<Location /status/perl> +# PerlSetVar StatusOptionsAll On +# PerlSetVar StatusDumper On +# PerlSetVar StatusPeek On +# PerlSetVar StatusLexInfo On +# PerlSetVar StatusDeparse On +# PerlSetVar StatusDeparseOptions "-p -sC" + PerlSetVar StatusTerse On +# PerlSetVar StatusTerseSize On +# PerlSetVar StatusTerseSizeMainSummary On + SetHandler modperl + PerlResponseHandler Apache2::Status +</Location> + +# for TestApache::util +PerlPassEnv LC_CTYPE +PerlPassEnv LC_TIME + +# for TestCompat::apache_file +PerlPassEnv TMPDIR +PerlPassEnv TEMP + +# see t/filter/out_apache.t +<VirtualHost filter_out_apache> + <IfModule mod_include.c> + # this filter is on purpose configured outside the Location + PerlSetOutputFilter INCLUDES + <Location /> + Options +Includes + </Location> + </IfModule> +</VirtualHost>
diff --git a/2_0_13/t/conf/extra.last.conf.in b/2_0_13/t/conf/extra.last.conf.in new file mode 100644 index 0000000..c9e10ad --- /dev/null +++ b/2_0_13/t/conf/extra.last.conf.in
@@ -0,0 +1,139 @@ +PerlModule Apache2::Module + +PerlPostConfigRequire @ServerRoot@/conf/post_config_startup.pl + +### --------------------------------- ### +<Perl > +use Apache::Test (); +if (Apache::Test::have_module('mod_alias.c')) { + push @Alias, ['/perl_sections', '@DocumentRoot@']; + $Location{'/perl_sections'} = { + 'PerlInitHandler' => 'ModPerl::Test::add_config', + 'AuthType' => 'Basic', + 'AuthName' => 'PerlSection', + 'PerlAuthenHandler' => 'TestHooks::authen_basic', + }; +} +</Perl> + +<Perl > +#Test tied %Location +use TestCommon::TiePerlSection (); +tie %Location, 'TestCommon::TiePerlSection'; +$Location{'/tied'} = 'test_tied'; + +$Apache2::PerlSections::Save = 1; +$Location{'/perl_sections_saved'} = { + 'AuthName' => 'PerlSection', + }; +#This is a comment +$TestDirective::perl::comments="yes"; +$TestDirective::perl::PACKAGE = __PACKAGE__; +</Perl> + +<Perl > +$Apache2::PerlSections::Save = 1; +$TestDirective::perl::filename = __FILE__; +$TestDirective::perl::dollar_zero = $0; +$TestDirective::perl::line = __LINE__; +</Perl> + +#Handle re-entrant <Perl> sections +<Perl > + use File::Spec; + my $file = File::Spec->catfile('@ServerRoot@', 'conf', 'perlsection.conf'); + open my $fh, ">$file" or die "Can't open $file: $!"; + print $fh join "\n", ('<Perl >', '$TestDirective::perl::Included++;', '</Perl>'); + close $fh; + $Include = $file; +</Perl> + +#Deprecated access to Apache2::ReadConfig:: still works +<Perl > +use Apache::Test (); +if (Apache::Test::have_module('mod_alias.c')) { + push @Apache2::ReadConfig::Alias, + ['/perl_sections_readconfig', '@DocumentRoot@']; + $Apache2::ReadConfig::Location{'/perl_sections_readconfig'} = { + 'PerlInitHandler' => 'ModPerl::Test::add_config', + 'AuthType' => 'Basic', + 'AuthName' => 'PerlSection', + 'PerlAuthenHandler' => 'TestHooks::authen_basic', + }; +} +</Perl> + +<Perl > +$TestDirective::perl::base_server = Apache2::PerlSections->server; +</Perl> + +<Perl > +# make sure that these are set at the earliest possible time +die '$ENV{MOD_PERL} not set!' unless $ENV{MOD_PERL}; +die '$ENV{MOD_PERL_API_VERSION} not set!' + unless $ENV{MOD_PERL_API_VERSION} == 2; +</Perl> + +<VirtualHost perlsections> + <Perl > + $TestDirective::perl::vhost_server = Apache2::PerlSections->server; + </Perl> +</VirtualHost> + +### --------------------------------- ### +Perl $TestDirective::perl::worked="yes"; + +### --------------------------------- ### +=pod + +The following line is not seen by Apache + +PerlSetVar TestDirective__pod_hidden whatever + +=over apache + +PerlSetVar TestDirective__pod_over_worked yes + +=back + +This is some more pod + +=cut + +PerlSetVar TestDirective__pod_cut_worked yes + +#This used to trigger a segfault on startup +#See http://thread.gmane.org/gmane.comp.apache.mod-perl/22750 +<IfDefine PERL_USEITHREADS> +<VirtualHost inherit> + PerlSwitches +inherit + PerlOptions +Parent + Perl 1 +</VirtualHost> +</IfDefine> + +#Single-line $PerlConfig +<Perl> +if (Apache::Test::have_module('mod_alias.c')) { + $PerlConfig = "Alias /perl_sections_perlconfig_scalar @DocumentRoot@"; +} +</Perl> + +#Multi-line $PerlConfig +<Perl> +if (Apache::Test::have_module('mod_alias.c')) { + $PerlConfig = "Alias /perl_sections_perlconfig_scalar1 @DocumentRoot@ + Alias /perl_sections_perlconfig_scalar2 @DocumentRoot@ + "; +} +</Perl> + +#@PerlConfig +<Perl> +if (Apache::Test::have_module('mod_alias.c')) { + @PerlConfig = ("Alias /perl_sections_perlconfig_array1 @DocumentRoot@", + "Alias /perl_sections_perlconfig_array2 @DocumentRoot@", + ); +} +</Perl> +
diff --git a/2_0_13/t/conf/modperl_extra.pl b/2_0_13/t/conf/modperl_extra.pl new file mode 100644 index 0000000..f80e416 --- /dev/null +++ b/2_0_13/t/conf/modperl_extra.pl
@@ -0,0 +1,142 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +########################################################## +### IMPORTANT: only things that must be run absolutely ### +### during the config phase should be in this file ### +########################################################## +# +# On the 2nd pass, during server-internal restart, none of the code +# running from this file (config phase) will be able to log any STDERR +# messages. This is because Apache redirects STDERR to /dev/null until +# the open_logs phase. That means that any of the code fails, the +# error message will be lost (but it should have failed on the 1st +# pass, when STDERR goes to the console and any error messages are +# properly logged). Therefore avoid putting any code here (unless +# there is no other way) and instead put all the code to be run at the +# server startup into post_config_startup.pl. when the latter is run, +# STDERR is sent to $ErrorLog. +# + +use strict; +use warnings FATAL => 'all'; + +die '$ENV{MOD_PERL} not set!' unless $ENV{MOD_PERL}; +die '$ENV{MOD_PERL_API_VERSION} not set!' + unless $ENV{MOD_PERL_API_VERSION} == 2; + +use File::Spec::Functions qw(canonpath catdir); + +use Apache2::ServerUtil (); +use Apache2::ServerRec (); +use Apache2::Process (); +use Apache2::Log (); + +use Apache2::Const -compile => ':common'; + +reorg_INC(); + +startup_info(); + +test_add_config(); + +test_add_version_component(); + +test_hooks_startup(); + +test_modperl_env(); + + + +### only subs below this line ### + +# need to run from config phase, since we want to adjust @INC as early +# as possible +sub reorg_INC { + # after Apache2 has pushed blib and core dirs including Apache2 on + # top reorg @INC to have first devel libs, then blib libs, and + # only then perl core libs + my $pool = Apache2::ServerUtil->server->process->pool; + my $project_root = canonpath + Apache2::ServerUtil::server_root_relative($pool, ".."); + my (@a, @b, @c); + for (@INC) { + if (m|^\Q$project_root\E|) { + m|blib| ? push @b, $_ : push @a, $_; + } + else { + push @c, $_; + } + } + @INC = (@a, @b, @c); +} + +# this can be run from post_config_startup.pl, but then it'll do the +# logging twice, so in this case it's actually good to have this code +# run during config phase, so it's logged only once (even though it's +# run the second time, but STDERR == /dev/null) +sub startup_info { + my $ap_mods = scalar grep { /^Apache2/ } keys %INC; + my $apr_mods = scalar grep { /^APR/ } keys %INC; + + Apache2::Log->info("$ap_mods Apache2:: modules loaded"); + Apache2::ServerRec->log->info("$apr_mods APR:: modules loaded"); + + my $server = Apache2::ServerUtil->server; + my $vhosts = 0; + for (my $s = $server->next; $s; $s = $s->next) { + $vhosts++; + } + + $server->log->info("base server + $vhosts vhosts ready to run tests"); +} + +# need to run from config phase, since it changes server config +sub test_add_config { + # testing $s->add_config() + my $conf = <<'EOC'; +# must use PerlModule here to check for segfaults +PerlModule Apache::TestHandler +<Location /apache/add_config> + SetHandler perl-script + PerlResponseHandler Apache::TestHandler::ok1 +</Location> +EOC + Apache2::ServerUtil->server->add_config([split /\n/, $conf]); + + # test a directive that triggers an early startup, so we get an + # attempt to use perl's mip early + Apache2::ServerUtil->server->add_config(['<Perl >', '1;', '</Perl>']); +} + +# need to run from config phase, since it registers PerlPostConfigHandler +sub test_add_version_component { + Apache2::ServerUtil->server->push_handlers( + PerlPostConfigHandler => \&add_my_version); + + sub add_my_version { + my ($conf_pool, $log_pool, $temp_pool, $s) = @_; + $s->add_version_component("world domination series/2.0"); + return Apache2::Const::OK; + } +} + +# cleanup files for TestHooks::startup which can't be done from the +# test itself because the files are created at the server startup and +# the test needing these files may run more than once (t/SMOKE) +# +# we need to run it at config phase since we need to cleanup before +# the open_logs phase +sub test_hooks_startup { + require Apache::Test; + my $dir = catdir Apache::Test::vars('documentroot'), qw(hooks startup); + for (<$dir/*>) { + my $file = ($_ =~ /(.*(?:open_logs|post_config)-\d+)/); + unlink $file; + } +} + +sub test_modperl_env { + # see t/response/TestModperl/env.pm + $ENV{MODPERL_EXTRA_PL} = __FILE__; +} + +1;
diff --git a/2_0_13/t/conf/post_config_startup.pl b/2_0_13/t/conf/post_config_startup.pl new file mode 100644 index 0000000..f8a09fb --- /dev/null +++ b/2_0_13/t/conf/post_config_startup.pl
@@ -0,0 +1,151 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +########################################################## +### this file contains code that should be run on the ### +### server startup but not during the config phase ### +########################################################## +use strict; +use warnings FATAL => 'all'; + +use Socket (); # test DynaLoader vs. XSLoader workaround for 5.6.x + +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Process (); +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use Apache2::Connection (); +use Apache2::Log (); + +use APR::Table (); +use APR::Pool (); + +use ModPerl::Util (); #for CORE::GLOBAL::exit + +use Apache2::Const -compile => ':common'; + +END { + warn "END in modperl_extra.pl, pid=$$\n"; +} + +test_apache_resource(); + +test_apache_status(); + +test_loglevel(); + +test_perl_ithreads(); + +test_server_shutdown_cleanup_register(); + +test_method_obj(); + + + +### only subs below this line ### + +sub test_apache_resource { + ### Apache2::Resource tests + + # load first for the menu + require Apache2::Status; + + # uncomment for local tests + #$ENV{PERL_RLIMIT_DEFAULTS} = 1; + #$Apache2::Resource::Debug = 1; + + # requires optional BSD::Resource + return unless eval { require BSD::Resource }; + + require Apache2::Resource; +} + +sub test_apache_status { + ### Apache2::Status tests + require Apache2::Status; + require Apache2::Module; + Apache2::Status->menu_item( + 'test_menu' => "Test Menu Entry", + sub { + my ($r) = @_; + return ["This is just a test entry"]; + } + ) if Apache2::Module::loaded('Apache2::Status'); +} + +# test startup loglevel setting (under threaded mpms loglevel can be +# changed only before threads are started) so here we test whether we +# can still set it after restart +sub test_loglevel { + use Apache2::Const -compile => 'LOG_INFO'; + my $s = Apache2::ServerUtil->server; + my $oldloglevel = $s->loglevel(Apache2::Const::LOG_INFO); + # restore + $s->loglevel($oldloglevel); +} + +sub test_perl_ithreads { + # this is needed for TestPerl::ithreads + # one should be able to boot ithreads at the server startup and + # then access the ithreads setup at run-time when a perl + # interpreter is running on a different native threads (testing + # that perl interpreters and ithreads aren't related to the native + # threads they are running on). This should work starting from + # perl-5.8.1 and higher. + use Config; + if ($] >= 5.008001 && $Config{useithreads}) { + eval { require threads; "threads"->import() }; + } +} + +sub test_server_shutdown_cleanup_register { + Apache2::ServerUtil::server_shutdown_cleanup_register sub { + warn <<'EOF'; +*** done with server_shutdown_cleanup_register *** +******************************************************************************** +EOF + }; + + Apache2::ServerUtil::server_shutdown_cleanup_register sub { + die "testing server_shutdown_cleanup_register\n"; + }; + + Apache2::ServerUtil::server_shutdown_cleanup_register sub { + warn <<'EOF'; +******************************************************************************** +*** This is a test for Apache2::ServerUtil::server_shutdown_cleanup_register *** +*** Following a line consisting only of * characters there should be a line *** +*** containing *** +*** "cleanup died: testing server_shutdown_cleanup_register". *** +*** The next line should then read *** +*** "done with server_shutdown_cleanup_register" *** +******************************************************************************** +EOF + }; +} + +sub ModPerl::Test::exit_handler { + my ($p, $s) = @_; + + $s->log->info("Child process pid=$$ is exiting"); + + Apache2::Const::OK; + +} + +sub test_method_obj { + # see t/modperl/methodobj + require TestModperl::methodobj; + $TestModperl::MethodObj = TestModperl::methodobj->new; +} + +sub ModPerl::Test::add_config { + my $r = shift; + + #test adding config at request time + $r->add_config(['require valid-user']); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/directive/perl.t b/2_0_13/t/directive/perl.t new file mode 100644 index 0000000..1ffe3b2 --- /dev/null +++ b/2_0_13/t/directive/perl.t
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +plan tests => 8, need need_auth, 'mod_alias.c', 'HTML::HeadParser'; + +#so we don't have to require lwp +my @auth = (Authorization => 'Basic ZG91Z206Zm9v'); #dougm:foo + + +foreach my $location ("/perl_sections/index.html", + "/perl_sections_readconfig/index.html") { + + sok { + ! GET_OK $location; + }; + + sok { + my $rc = GET_RC $location; + $rc == 401; + }; + + sok { + GET_OK $location, @auth; + }; + + sok { + ! GET_OK $location, $auth[0], $auth[1] . 'bogus'; + }; +}
diff --git a/2_0_13/t/directive/perlcleanuphandler.t b/2_0_13/t/directive/perlcleanuphandler.t new file mode 100644 index 0000000..47bbc1e --- /dev/null +++ b/2_0_13/t/directive/perlcleanuphandler.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest 'GET_BODY'; + +plan tests => 3, need_lwp; + +my $module = 'TestDirective::perlcleanuphandler'; + +Apache::TestRequest::user_agent(reset => 1, keep_alive=>1); +sub u {Apache::TestRequest::module2url($module, {path=>$_[0]})} + +t_debug("connecting to ".u('')); +ok t_cmp GET_BODY(u('/get?incr')), 'UNDEF', 'before increment'; +ok t_cmp GET_BODY(u('/get')), '1', 'incremented'; +(undef)=GET_BODY(u('/index.html?incr')); +ok t_cmp GET_BODY(u('/get')), '2', 'incremented again';
diff --git a/2_0_13/t/directive/perlloadmodule2.t b/2_0_13/t/directive/perlloadmodule2.t new file mode 100644 index 0000000..6533011 --- /dev/null +++ b/2_0_13/t/directive/perlloadmodule2.t
@@ -0,0 +1,32 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $url = "/TestDirective__perlloadmodule2"; + +plan tests => 3; + +{ + my $location = "$url?srv"; + my $expected = "srv: one two"; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "access server settings"); +} + +{ + my $location = "$url?"; + my $expected = "dir: one two three four"; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "server/dir merge"); +} + +{ + my $location = "$url/subdir"; + my $expected = "dir: one two three four five six"; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "server/dir/subdir merge"); +}
diff --git a/2_0_13/t/directive/perlloadmodule3.t b/2_0_13/t/directive/perlloadmodule3.t new file mode 100644 index 0000000..8ced2a6 --- /dev/null +++ b/2_0_13/t/directive/perlloadmodule3.t
@@ -0,0 +1,99 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $module = "TestDirective::perlloadmodule3"; +my $config = Apache::Test::config(); +my $base_hostport = Apache::TestRequest::hostport($config); +my $path = Apache::TestRequest::module2path($module); + +# XXX: probably a good idea to split into more sub-tests, that test +# smaller portions of information, but requires a more elaborate +# logic. Alternatively could use diff($expected, $received). + +plan tests => 3; + +t_debug("connecting to $base_hostport"); +{ + my $expected = <<EOI; +Processing by main server. + +Section 1: Main Server +MyAppend : MainServer +MyList : ["MainServer"] +MyOverride : MainServer +MyPlus : 5 + +Section 2: Location +MyAppend : MainServer +MyList : ["MainServer"] +MyOverride : MainServer +MyPlus : 5 +EOI + my $location = "http://$base_hostport/$path"; + my $received = GET_BODY $location; + ok t_cmp($expected, $received, "server merge"); +} + +Apache::TestRequest::module($module); +my $hostport = Apache::TestRequest::hostport($config); + +t_debug("connecting to $hostport"); +{ + my $expected = <<EOI; +Processing by virtual host. + +Section 1: Main Server +MyAppend : MainServer +MyList : ["MainServer"] +MyOverride : MainServer +MyPlus : 5 + +Section 2: Virtual Host +MyAppend : MainServer VHost +MyList : ["MainServer", "VHost"] +MyOverride : VHost +MyPlus : 7 + +Section 3: Location +MyAppend : MainServer VHost Dir +MyList : ["MainServer", "VHost", "Dir"] +MyOverride : Dir +MyPlus : 10 +EOI + my $location = "http://$hostport/$path"; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "server/dir merge"); +} + +{ + my $expected = <<EOI; +Processing by virtual host. + +Section 1: Main Server +MyAppend : MainServer +MyList : ["MainServer"] +MyOverride : MainServer +MyPlus : 5 + +Section 2: Virtual Host +MyAppend : MainServer VHost +MyList : ["MainServer", "VHost"] +MyOverride : VHost +MyPlus : 7 + +Section 3: Location +MyAppend : MainServer VHost Dir SubDir +MyList : ["MainServer", "VHost", "Dir", "SubDir"] +MyOverride : SubDir +MyPlus : 11 +EOI + + my $location = "http://$hostport/$path/subdir"; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "server/dir/subdir merge"); +}
diff --git a/2_0_13/t/directive/perlloadmodule4.t b/2_0_13/t/directive/perlloadmodule4.t new file mode 100644 index 0000000..8efff0f --- /dev/null +++ b/2_0_13/t/directive/perlloadmodule4.t
@@ -0,0 +1,14 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest; +use Apache::Test; + +my $module = "TestDirective::perlloadmodule4"; +my $config = Apache::Test::config(); +Apache::TestRequest::module($module); +my $hostport = Apache::TestRequest::hostport($config); +my $path = Apache::TestRequest::module2path($module); + +print GET_BODY_ASSERT "http://$hostport/$path";
diff --git a/2_0_13/t/directive/perlloadmodule5.t b/2_0_13/t/directive/perlloadmodule5.t new file mode 100644 index 0000000..a466dee --- /dev/null +++ b/2_0_13/t/directive/perlloadmodule5.t
@@ -0,0 +1,14 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest; +use Apache::Test; + +my $module = "TestDirective::perlloadmodule5"; +my $config = Apache::Test::config(); +Apache::TestRequest::module($module); +my $hostport = Apache::TestRequest::hostport($config); +my $path = Apache::TestRequest::module2path($module); + +print GET_BODY_ASSERT "http://$hostport/$path";
diff --git a/2_0_13/t/directive/perlloadmodule6.t b/2_0_13/t/directive/perlloadmodule6.t new file mode 100644 index 0000000..038d148 --- /dev/null +++ b/2_0_13/t/directive/perlloadmodule6.t
@@ -0,0 +1,14 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest; +use Apache::Test; + +my $module = "TestDirective::perlloadmodule6"; +my $config = Apache::Test::config(); +Apache::TestRequest::module($module); +my $hostport = Apache::TestRequest::hostport($config); +my $path = Apache::TestRequest::module2path($module); + +print GET_BODY_ASSERT "http://$hostport/$path";
diff --git a/2_0_13/t/directive/perlmodule.t b/2_0_13/t/directive/perlmodule.t new file mode 100644 index 0000000..e1b3b6f --- /dev/null +++ b/2_0_13/t/directive/perlmodule.t
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# this test tests PerlRequire configuration directive +######################################################################## + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $module = 'TestDirective::perlmodule'; + +plan tests => 1; + +Apache::TestRequest::module($module); + +my $config = Apache::Test::config(); +my $hostport = Apache::TestRequest::hostport($config); +my $path = Apache::TestRequest::module2path($module); +t_debug("connecting to $hostport"); + +ok t_cmp(GET_BODY("/$path"), + $module, + "testing PerlModule in $module"); +
diff --git a/2_0_13/t/directive/perlrequire.t b/2_0_13/t/directive/perlrequire.t new file mode 100644 index 0000000..f2b48b5 --- /dev/null +++ b/2_0_13/t/directive/perlrequire.t
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# this test tests PerlRequire configuration directive +######################################################################## + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $config = Apache::Test::config(); +my $path = Apache::TestRequest::module2path('TestDirective::perlrequire'); + +my %checks = ( + 'default' => 'PerlRequired by Parent', + 'TestDirective::perlrequire' => 'PerlRequired by VirtualHost', +); + +delete $checks{'TestDirective::perlrequire'} unless have_perl 'ithreads'; + +plan tests => scalar keys %checks; + +for my $module (sort keys %checks) { + + Apache::TestRequest::module($module); + my $hostport = Apache::TestRequest::hostport($config); + t_debug("connecting to $hostport"); + + ok t_cmp(GET_BODY("http://$hostport/$path"), + $checks{$module}, + "testing PerlRequire in $module"); +}
diff --git a/2_0_13/t/directive/setupenv.t b/2_0_13/t/directive/setupenv.t new file mode 100644 index 0000000..1778be8 --- /dev/null +++ b/2_0_13/t/directive/setupenv.t
@@ -0,0 +1,46 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 3; + +my $location = '/TestDirective__setupenv'; + +my $env = GET_BODY $location; + +ok $env; + +my %env; + +for my $line (split /\n/, $env) { + next unless $line =~ /=/; + my ($key, $val) = split /=/, $line, 2; + $env{$key} = $val || ''; +} + +ok t_cmp $env{REQUEST_URI}, $location, "testing REQUEST_URI"; + +{ + # on Win32, some user environment variables, like HOME, may be + # passed through (via Apache?) if set, while system environment + # variables are not. so try to find an existing shell variable + # (that is not passed by Apache) and use it in the test to make + # sure mod_perl doesn't see it + + my $var; + for (qw(SHELL USER OS)) { + $var = $_, last if exists $ENV{$_}; + } + + if (defined $var) { + ok t_cmp $env{$var}, undef, "env var $var=$ENV{$var} is ". + "set in shell, but shouldn't be seen inside mod_perl"; + } + else { + skip "couldn't find a suitable env var to test against", 0; + } +}
diff --git a/2_0_13/t/error/runtime.t b/2_0_13/t/error/runtime.t new file mode 100644 index 0000000..dd961a5 --- /dev/null +++ b/2_0_13/t/error/runtime.t
@@ -0,0 +1,38 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $location = "/TestError__runtime"; + +my @untrapped = qw(plain_mp_error plain_non_mp_error + die_hook_confess_mp_error die_hook_confess_non_mp_error + die_hook_custom_mp_error die_hook_custom_non_mp_error); +my @trapped = qw(eval_block_mp_error eval_block_non_mp_error + eval_string_mp_error eval_block_non_error + overload_test); + +plan tests => @untrapped + @trapped; + +for my $type (@untrapped) { + my $res = GET("$location?$type"); + #t_debug($res->content); + ok t_cmp( + $res->code, + 500, + "500 error on $type exception", + ); +} + +for my $type (@trapped) { + my $body = GET_BODY("$location?$type"); + ok t_cmp( + $body, + "ok $type", + "200 on $type exception", + ); +} +
diff --git a/2_0_13/t/error/syntax.t b/2_0_13/t/error/syntax.t new file mode 100644 index 0000000..81eaa04 --- /dev/null +++ b/2_0_13/t/error/syntax.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = "/TestError__syntax"; + +t_client_log_error_is_expected(); +my $res = GET($location); +#t_debug($res->content); +ok t_cmp( + $res->code, + 500, + "500 error on syntax error", + );
diff --git a/2_0_13/t/filter/TestFilter/both_str_con_add.pm b/2_0_13/t/filter/TestFilter/both_str_con_add.pm new file mode 100644 index 0000000..d2bbbe5 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/both_str_con_add.pm
@@ -0,0 +1,92 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::both_str_con_add; + +# insert an input filter which lowers the case of the data +# insert an output filter which adjusts s/modperl/mod_perl/ + +# see also TestFilter::echo_filter + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use APR::Bucket (); +use APR::Brigade (); +use APR::Error (); +use APR::Socket; + +use base qw(Apache2::Filter); + +use APR::Const -compile => qw(SUCCESS EOF SO_NONBLOCK); +use Apache2::Const -compile => qw(OK MODE_GETLINE); + +sub pre_connection { + my Apache2::Connection $c = shift; + + $c->add_input_filter(\&in_filter); + $c->add_output_filter(\&out_filter); + + return Apache2::Const::OK; +} + +sub in_filter : FilterConnectionHandler { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + $filter->print(lc $buffer); + } + + # test that $filter->ctx works here + $filter->ctx(1); + + Apache2::Const::OK; +} + +sub out_filter : FilterConnectionHandler { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + $buffer =~ s/modperl/mod_perl/; + $filter->print($buffer); + } + + Apache2::Const::OK; +} + +sub handler { + my Apache2::Connection $c = shift; + + # starting from Apache 2.0.49 several platforms require you to set + # the socket to a blocking IO mode + $c->client_socket->opt_set(APR::Const::SO_NONBLOCK, 0); + + my $bb = APR::Brigade->new($c->pool, $c->bucket_alloc); + + for (;;) { + $c->input_filters->get_brigade($bb, Apache2::Const::MODE_GETLINE); + last if $bb->is_empty; + + my $b = APR::Bucket::flush_create($c->bucket_alloc); + $bb->insert_tail($b); + $c->output_filters->pass_brigade($bb); + # fflush is the equivalent of the previous 3 lines of code: + # but it's tested elsewhere, here testing flush_create + # $c->output_filters->fflush($bb); + } + + $bb->destroy; + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> + <VirtualHost TestFilter::both_str_con_add> + PerlModule TestFilter::both_str_con_add + PerlPreConnectionHandler TestFilter::both_str_con_add::pre_connection + PerlProcessConnectionHandler TestFilter::both_str_con_add + </VirtualHost> +</NoAutoConfig> + +
diff --git a/2_0_13/t/filter/TestFilter/both_str_native_remove.pm b/2_0_13/t/filter/TestFilter/both_str_native_remove.pm new file mode 100644 index 0000000..8cb7a3a --- /dev/null +++ b/2_0_13/t/filter/TestFilter/both_str_native_remove.pm
@@ -0,0 +1,142 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::both_str_native_remove; + +# this tests verifies that we can remove input and output native +# (non-mod_perl filters) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Filter (); +use Apache2::FilterRec (); + +use APR::Table (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK DECLINED M_POST); + +# this filter removes the next filter in chain and itself +sub remove_includes { + my $f = shift; + + my $args = $f->r->args || ''; + if ($args eq 'remove') { + my $ff = $f->next; + $ff->remove if $ff && $ff->frec->name eq 'includes'; + } + + $f->remove; + + return Apache2::Const::DECLINED; +} + +# this filter removes the next filter in chain and itself +sub remove_deflate { + my $f = shift; + + my $args = $f->r->args || ''; + if ($args eq 'remove') { + for (my $ff = $f->r->input_filters; $ff; $ff = $ff->next) { + if ($ff->frec->name eq 'deflate') { + $ff->remove; + last; + } + } + } + $f->remove; + + return Apache2::Const::DECLINED; +} + +# this filter appends the output filter list at eos +sub print_out_flist { + my $f = shift; + + unless ($f->ctx) { + $f->ctx(1); + $f->r->headers_out->unset('Content-Length'); + } + + while ($f->read(my $buffer, 1024)) { + $f->print($buffer); + } + + if ($f->seen_eos) { + my $flist = join ',', get_flist($f->r->output_filters); + $f->print("output2: $flist\n"); + } + + return Apache2::Const::OK; +} + +sub store_in_flist { + my $f = shift; + my $r = $f->r; + + unless ($f->ctx) { + my $x = $r->pnotes('INPUT_FILTERS') || []; + push @$x, join ',', get_flist($f->r->input_filters); + $r->pnotes('INPUT_FILTERS' => $x); + } + + return Apache2::Const::DECLINED; +} + + +sub response { + my $r = shift; + + # just to make sure that print() won't flush, or we would get the + # count wrong + local $| = 0; + + $r->content_type('text/plain'); + if ($r->method_number == Apache2::Const::M_POST) { + $r->print("content: " . TestCommon::Utils::read_post($r) ."\n"); + } + + my $i=1; + for (@{ $r->pnotes('INPUT_FILTERS')||[] }) { + $r->print("input$i: $_\n"); + $i++; + } + + $r->subprocess_env(SSI_TEST => 'SSI OK'); + $r->printf("output1: %s\n", join ',', get_flist($r->output_filters)); + + $r->rflush; # this sends the data in the buffer + flush bucket + $r->print('x<!--#echo var='); + $r->rflush; # this sends the data in the buffer + flush bucket + $r->print('"SSI_TEST" -->x'."\n"); + + Apache2::Const::OK; +} + +sub get_flist { + my $f = shift; + + my @flist = (); + for (; $f; $f = $f->next) { + push @flist, $f->frec->name; + } + + return @flist; +} + +1; +__DATA__ +Options +Includes +SetHandler modperl +PerlModule TestFilter::both_str_native_remove +PerlResponseHandler TestFilter::both_str_native_remove::response +PerlOutputFilterHandler TestFilter::both_str_native_remove::remove_includes +PerlSetOutputFilter INCLUDES +PerlOutputFilterHandler TestFilter::both_str_native_remove::print_out_flist +PerlInputFilterHandler TestFilter::both_str_native_remove::store_in_flist +PerlInputFilterHandler TestFilter::both_str_native_remove::remove_deflate +PerlSetInputFilter DEFLATE +PerlInputFilterHandler TestFilter::both_str_native_remove::store_in_flist
diff --git a/2_0_13/t/filter/TestFilter/both_str_req_add.pm b/2_0_13/t/filter/TestFilter/both_str_req_add.pm new file mode 100644 index 0000000..4f76426 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/both_str_req_add.pm
@@ -0,0 +1,89 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::both_str_req_add; + +# insert an input filter which lowers the case of the data +# insert an output filter which strips spaces + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Filter (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +sub header_parser { + my $r = shift; + # test adding by coderef + $r->add_input_filter(\&in_filter); + # test adding by sub's name + $r->add_output_filter("out_filter"); + + # test adding anon sub + $r->add_output_filter(sub { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + $buffer .= "end"; + $filter->print($buffer); + } + + return Apache2::Const::OK; + }); + + return Apache2::Const::DECLINED; +} + +sub in_filter { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + $filter->print(lc $buffer); + } + + Apache2::Const::OK; +} + +sub out_filter { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + $buffer =~ s/\s+//g; + $filter->print($buffer); + } + + Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + $r->print(TestCommon::Utils::read_post($r)); + } + + return Apache2::Const::OK; +} + + + +1; +__DATA__ +<NoAutoConfig> + PerlModule TestFilter::both_str_req_add + <Location /TestFilter__both_str_req_add> + SetHandler modperl + PerlHeaderParserHandler TestFilter::both_str_req_add::header_parser + PerlResponseHandler TestFilter::both_str_req_add + </Location> +</NoAutoConfig> + + + +
diff --git a/2_0_13/t/filter/TestFilter/both_str_req_mix.pm b/2_0_13/t/filter/TestFilter/both_str_req_mix.pm new file mode 100644 index 0000000..0db61d8 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/both_str_req_mix.pm
@@ -0,0 +1,161 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::both_str_req_mix; + +# this is an elaborated test, where we mix several apache and mod_perl +# filters, both input and output and verifying that they can work +# together, preserving the order when the filters are of the same +# priority + +# in this test the client, the client sends a compressed body, +# 'DEFLATE' deflates it, then mod_perl filter 'transparent' filter +# passes data through as-is. The following 'in_adjust' mod_perl filter +# removes the string 'INPUT' from incoming data. The response handler +# simply passes the data through. Next output filters get to work: +# 'out_adjust_before_ssi' fixups the data to a valid SSI directive, by +# removing the string 'OUTPUT' from the outgoing data, then the +# 'INCLUDES' filter fetches the virtual file, and finally +# 'out_adjust_after_ssi' fixes the file contents returned by SSI, by +# removing the string 'REMOVE' +# +# Here is a visual representation of the transformations: +# +# => <network in> +# +# compressed data +# +# => DEFLATE +# +# <!--#include INPUTvirtual="/includes/OUTPUTclear.shtml" --> +# +# => transparent +# +# <!--#include INPUTvirtual="/includes/OUTPUTclear.shtml" --> +# +# => in_adjust +# +# <!--#include virtual="/includes/OUTPUTclear.shtml" --> +# +# <=> response handler +# +# <!--#include virtual="/includes/OUTPUTclear.shtml" --> +# +# <= out_adjust_before_ssi +# +# <!--#include virtual="/includes/clear.shtml" --> +# +# <= out_adjust_before_ssi +# +# <!--#include virtual="/includes/clear.shtml" --> +# +# <= INCLUDES +# +# This is a REMOVEclear text +# +# <= out_adjust_after_ssi +# +# This is a clear text +# +# <= DEFLATE +# +# compressed data +# +# <= <network out> + + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use Apache::TestTrace; + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +use constant DEBUG => 1; + +sub transparent { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)){ + debug "transparent buffer: $buffer"; + $buffer =~ s/foo//; + $filter->print($buffer); + } + + $filter->print(""); + + Apache2::Const::OK; +} + +sub in_adjust { adjust("INPUT", @_)} +sub out_adjust_before_ssi { adjust("OUTPUT", @_)} +sub out_adjust_after_ssi { adjust("REMOVE", @_)} + +sub adjust { + my ($string, $filter) = @_; + my $sig = "adjust($string):"; + + while ($filter->read(my $buffer, 1024)){ + debug "$sig before: $buffer"; + $buffer =~ s/$string//; + debug "$sig after: $buffer"; + $filter->print($buffer); + } + + Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + $r->print(TestCommon::Utils::read_post($r)); + } + + return Apache2::Const::OK; +} + + +1; +__DATA__ +<NoAutoConfig> + PerlModule TestFilter::both_str_req_mix + <Location /TestFilter__both_str_req_mix> + Options +Includes + + # DEFLATE has a higher priority (AP_FTYPE_CONTENT_SET=20) than + # mod_perl request filters (AP_FTYPE_RESOURCE=10), so it's going + # to filter input first no matter how we insert other mod_perl + # filters. (mod_perl connection filter handlers have an even + # higher priority (AP_FTYPE_PROTOCOL = 30), see + # include/util_filter.h for those definitions). + # + # PerlSetInputFilter is only useful for preserving the + # insertion order of filters with the same priority + SetInputFilter DEFLATE + #PerlInputFilterHandler TestCommon::FilterDebug::snoop_request + PerlInputFilterHandler TestFilter::both_str_req_mix::in_adjust + PerlInputFilterHandler TestFilter::both_str_req_mix::transparent + + # here INCLUDES and adjust are both of the same priority + # (AP_FTYPE_RESOURCE), so PerlSetOutputFilter + PerlOutputFilterHandler TestFilter::both_str_req_mix::out_adjust_before_ssi + PerlSetOutputFilter INCLUDES + PerlOutputFilterHandler TestFilter::both_str_req_mix::out_adjust_after_ssi + #PerlOutputFilterHandler TestCommon::FilterDebug::snoop_request + PerlSetOutputFilter DEFLATE + + SetHandler modperl + PerlResponseHandler TestFilter::both_str_req_mix + </Location> +</NoAutoConfig> + + + +
diff --git a/2_0_13/t/filter/TestFilter/both_str_req_proxy.pm b/2_0_13/t/filter/TestFilter/both_str_req_proxy.pm new file mode 100644 index 0000000..ed8ac0e --- /dev/null +++ b/2_0_13/t/filter/TestFilter/both_str_req_proxy.pm
@@ -0,0 +1,104 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::both_str_req_proxy; + +# very similar to TestFilter::both_str_req_add, but the request is +# proxified. we filter the POSTed body before it goes via the proxy and +# we filter the response after it returned from the proxy + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use Apache::TestTrace; + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +sub in_filter { + my $filter = shift; + + debug "input filter"; + + while ($filter->read(my $buffer, 1024)) { + $filter->print(lc $buffer); + } + + Apache2::Const::OK; +} + +sub out_filter { + my $filter = shift; + + debug "output filter"; + + while ($filter->read(my $buffer, 1024)) { + $buffer =~ s/\s+//g; + $filter->print($buffer); + } + + Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + debug "response handler"; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + $r->print(TestCommon::Utils::read_post($r)); + } + + return Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> + <IfModule mod_proxy.c> + <Proxy http://@servername@:@port@/*> + <IfModule mod_version.c> + <IfVersion < 2.3.0> + <IfModule @ACCESS_MODULE@> + Order Deny,Allow + Deny from all + Allow from @servername@ + </IfModule> + </IfVersion> + <IfVersion > 2.4.1> + <IfModule mod_access_compat.c> + Order Deny,Allow + Deny from all + Allow from @servername@ + </IfModule> + </IfVersion> + </IfModule> + </Proxy> + + ProxyRequests Off + + ProxyPass /TestFilter__both_str_req_proxy/ \ + http://@servername@:@port@/TestFilter__both_str_req_proxy_content/ + ProxyPassReverse /TestFilter__both_str_req_proxy/ \ + http://@servername@:@port@/TestFilter__both_str_req_proxy_content/ + </IfModule> + + PerlModule TestFilter::both_str_req_proxy + <Location /TestFilter__both_str_req_proxy> + PerlInputFilterHandler TestFilter::both_str_req_proxy::in_filter + PerlOutputFilterHandler TestFilter::both_str_req_proxy::out_filter + </Location> + <Location /TestFilter__both_str_req_proxy_content> + SetHandler modperl + PerlResponseHandler TestFilter::both_str_req_proxy + </Location> +</NoAutoConfig> + + + +
diff --git a/2_0_13/t/filter/TestFilter/in_autoload.pm b/2_0_13/t/filter/TestFilter/in_autoload.pm new file mode 100644 index 0000000..5595f44 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_autoload.pm
@@ -0,0 +1,41 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_autoload; + +# test that PerlInputFilterHandler autoloads the module containing the +# handler (since it's ::handler and not a custom sub name we don't +# have to explicitly call PerlModule) +# +# no point testing PerlOutputFilterHandler as it does the same + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Filter (); + +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK); + +sub handler { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + debug "filter read: $buffer"; + $filter->print(lc $buffer); + } + + return Apache2::Const::OK; +} + +1; + +__DATA__ +<NoAutoConfig> + PerlModule TestCommon::Handlers + <Location /TestFilter__in_autoload> + SetHandler modperl + PerlResponseHandler TestCommon::Handlers::pass_through_response_handler + # no PerlModule TestFilter::in_load on purpose + PerlInputFilterHandler TestFilter::in_autoload + </Location> +</NoAutoConfig>
diff --git a/2_0_13/t/filter/TestFilter/in_bbs_body.pm b/2_0_13/t/filter/TestFilter/in_bbs_body.pm new file mode 100644 index 0000000..3380df1 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_bbs_body.pm
@@ -0,0 +1,60 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_bbs_body; + +use strict; +use warnings FATAL => 'all'; + +use base qw(Apache2::Filter); #so we inherit MODIFY_CODE_ATTRIBUTES + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use APR::Brigade (); +use APR::Bucket (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); +use APR::Const -compile => ':common'; + +sub handler : FilterRequestHandler { + my ($filter, $bb, $mode, $block, $readbytes) = @_; + + $filter->next->get_brigade($bb, $mode, $block, $readbytes); + + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + + last if $b->is_eos; + + if ($b->read(my $data)) { + #warn"[$data]\n"; + my $nb = APR::Bucket->new($bb->bucket_alloc, scalar reverse $data); + $b->insert_before($nb); + $b->delete; + $b = $nb; + } + } + + Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + $r->puts($data); + } + else { + $r->puts("1..3\nok 1\n"); + } + + Apache2::Const::OK; +} + +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_bbs_body +PerlResponseHandler TestFilter::in_bbs_body::response
diff --git a/2_0_13/t/filter/TestFilter/in_bbs_consume.pm b/2_0_13/t/filter/TestFilter/in_bbs_consume.pm new file mode 100644 index 0000000..b83f2f4 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_bbs_consume.pm
@@ -0,0 +1,107 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_bbs_consume; + +# this test consumes a chunk of input, then consumes and throws away +# the rest of the data, finally returns to the caller that initial +# chunk. This all happens during a single filter invocation. Even +# though there about 6-7 incoming data brigades. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); +use Apache2::Connection (); +use APR::Brigade (); +use APR::Bucket (); + +use Apache::TestTrace; + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +use constant READ_SIZE => 26; + +sub handler { + my ($filter, $bb, $mode, $block, $readbytes) = @_; + my $ba = $filter->r->connection->bucket_alloc; + my $seen_eos = 0; + my $satisfied = 0; + my $buffer = ''; + debug_sub "filter called"; + + until ($satisfied) { + my $tbb = APR::Brigade->new($filter->r->pool, $ba); + $filter->next->get_brigade($tbb, $mode, $block, READ_SIZE); + debug "asking for a bb of " . READ_SIZE . " bytes\n"; + my $data; + ($data, $seen_eos) = bb_data_n_eos($tbb); + $tbb->destroy; + $buffer .= $data; + length($buffer) < READ_SIZE ? redo : $satisfied++; + } + + # consume all the remaining input + do { + my $tbb = APR::Brigade->new($filter->r->pool, $ba); + $filter->next->get_brigade($tbb, $mode, $block, $readbytes); + debug "discarding the next bb"; + $seen_eos = bb_data_n_eos($tbb, 1); # only scan + $tbb->destroy; + } while (!$seen_eos); + + if ($seen_eos) { + # flush the remainder + $bb->insert_tail(APR::Bucket->new($ba, $buffer)); + $bb->insert_tail(APR::Bucket::eos_create($ba)); + debug "seen eos, sending: " . length($buffer) . " bytes"; + } + else { + die "Something is wrong, this filter should have been called only once"; + } + + return Apache2::Const::OK; +} + +# if $scan_only is true, don't read the data, just look for eos +sub bb_data_n_eos { + my ($bb, $scan_only) = @_; + + if ($scan_only) { + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + return 1 if $b->is_eos; + } + return 0; + } + + my $seen_eos = 0; + + my @data; + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + $seen_eos++, last if $b->is_eos; + $b->read(my $bdata); + push @data, $bdata; + } + return (join('', @data), $seen_eos); +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + #warn "HANDLER READ: $data\n"; + $r->print($data); + } + + return Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_bbs_consume +PerlResponseHandler TestFilter::in_bbs_consume::response
diff --git a/2_0_13/t/filter/TestFilter/in_bbs_inject_header.pm b/2_0_13/t/filter/TestFilter/in_bbs_inject_header.pm new file mode 100644 index 0000000..5380c65 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_bbs_inject_header.pm
@@ -0,0 +1,260 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_bbs_inject_header; + +# this filter demonstrates two things: +# 1. how to write a filter that will work only on HTTP headers +# 2. how to inject extra HTTP headers +# +# the first task is simple for non-keepalive connections -- as soon as +# a bucket which matches /^[\r\n]+$/ is read we can store that event +# in the filter context and simply 'return Apache2::Const::DECLINED on the +# future invocation, so not to slow things. +# +# it becomes much trickier with keepalive connection, since Apache +# provides no API to tell you whether a new request is coming in. We +# use $c->keepalives to figure out when a new request is coming in, by +# comparing the previously stored keepalives count, which gets +# incremented by Apache when the HTTP response headers are generated. +# +# +# the second task is a bit trickier, as the headers_in core httpd +# filter is picky and it wants each header to arrive in a separate +# bucket, and moreover this bucket needs to be in its own brigade. +# so this test arranges for this to happen. +# +# the test shows how to push headers at the end of all headers +# and in the middle, whichever way you prefer. + +use strict; +use warnings FATAL => 'all'; + +use base qw(Apache2::Filter); + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Connection (); +use APR::Brigade (); +use APR::Bucket (); +use APR::Table (); + +use Apache::TestTrace; + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK DECLINED CONN_KEEPALIVE); +use APR::Const -compile => ':common'; + +my $header1_key = 'X-My-Protocol'; +my $header1_val = 'POST-IT'; + +my %headers = ( + 'X-Extra-Header2' => 'Value 2', + 'X-Extra-Header3' => 'Value 3', +); + +my $request_body = "This body shouldn't be seen by the filter"; + +# returns 1 if a bucket with a header was inserted to the $bb's tail, +# otherwise returns 0 (i.e. if there are no buckets to insert) +sub inject_header_bucket { + my ($bb, $ctx) = @_; + + return 0 unless @{ $ctx->{buckets} }; + + my $b = shift @{ $ctx->{buckets} }; + $bb->insert_tail($b); + + if (1) { + # extra debug, wasting cycles + $b->read(my $data); + debug "injected header: [$data]"; + } + else { + debug "injected header"; + } + + # next filter invocations will bring the request body if any + if ($ctx->{seen_body_separator} && !@{ $ctx->{buckets} }) { + $ctx->{done_with_headers} = 1; + $ctx->{seen_body_separator} = 0; + } + + return 1; +} + +sub context { + my $filter = shift; + + my $ctx = $filter->ctx; + my $c = $filter->c; + unless ($ctx) { + debug "filter context init"; + $ctx = { + buckets => [], + done_with_headers => 0, + seen_body_separator => 0, + keepalives => $c->keepalives, + }; + + # since we are going to manipulate the reference stored in + # ctx, it's enough to store it only once, we will get the same + # reference in the following invocations of that filter + $filter->ctx($ctx); + return $ctx; + } + + if ($c->keepalive == Apache2::Const::CONN_KEEPALIVE && + $ctx->{done_with_headers} && + $c->keepalives > $ctx->{keepalives}) { + + debug "a new request resetting the input filter state"; + + $ctx->{buckets} = []; + $ctx->{done_with_headers} = 0; + $ctx->{seen_body_separator} = 0; + $ctx->{keepalives} = $c->keepalives; + } + + return $ctx; + +} + +sub handler : FilterConnectionHandler { + my ($filter, $bb, $mode, $block, $readbytes) = @_; + + debug join '', "-" x 20 , " input filter called -", "-" x 20; + + my $ctx = context($filter); + my $c = $filter->c; + + # reset the filter state, we start a new request + if ($c->keepalive == Apache2::Const::CONN_KEEPALIVE && + $ctx->{done_with_headers} && $c->notes->get('reset_request')) { + debug "a new request resetting the input filter state"; + $c->notes->set('reset_request' => 0); + $ctx->{buckets} = []; + $ctx->{seen_body_separator} = 0; + $ctx->{done_with_headers} = 0; + } + + # handling the HTTP request body + if ($ctx->{done_with_headers}) { + # XXX: when the bug in httpd filter will be fixed all the + # code in this branch will be replaced with: + # $filter->remove; + # return Apache2::Const::DECLINED; + # at the moment (2.0.48) it doesn't work + # so meanwhile tell the mod_perl filter core to pass-through + # the brigade unmodified + debug "passing the body through unmodified"; + return Apache2::Const::DECLINED; + } + + # any custom HTTP header buckets to inject? + return Apache2::Const::OK if inject_header_bucket($bb, $ctx); + + # normal HTTP headers processing + my $ctx_bb = APR::Brigade->new($c->pool, $c->bucket_alloc); + my $rv = $filter->next->get_brigade($ctx_bb, $mode, $block, $readbytes); + return $rv unless $rv == APR::Const::SUCCESS; + + while (!$ctx_bb->is_empty) { + my $b = $ctx_bb->first; + + if ($b->is_eos) { + debug "EOS!!!"; + $b->remove; + $bb->insert_tail($b); + last; + } + + $b->read(my $data); + # remove must happen after read, since it may cause split and + # some new buckets inserted behind - if remove called too + # early, those buckets will be lost + $b->remove; + debug "filter read:\n[$data]"; + + # check that we really work only on the headers + die "This filter should not ever receive the request body, " . + "but HTTP headers" if ($data||'') eq $request_body; + + if ($data and $data =~ /^POST/) { + # demonstrate how to add a header while processing other headers + my $header = "$header1_key: $header1_val\r\n"; + push @{ $ctx->{buckets} }, APR::Bucket->new($c->bucket_alloc, $header); + debug "queued header [$header]"; + } + elsif ($data =~ /^[\r\n]+$/) { + # normally the body will start coming in the next call to + # get_brigade, so if your filter only wants to work with + # the headers, it can decline all other invocations if that + # flag is set. However since in this test we need to send + # a few extra bucket brigades, we will turn another flag + # 'done_with_headers' when 'seen_body_separator' is on and + # all headers were sent out + debug "END of original HTTP Headers"; + $ctx->{seen_body_separator}++; + + # we hit the headers and body separator, which is a good + # time to add extra headers: + for my $key (keys %headers) { + my $header = "$key: $headers{$key}\r\n"; + push @{ $ctx->{buckets} }, APR::Bucket->new($c->bucket_alloc, $header); + debug "queued header [$header]"; + } + + # but at the same time we must ensure that the + # the separator header will be sent as a last header + # so we send one newly added header and push the separator + # to the end of the queue + # XXX: this is broken: the bucket must be set-aside before + # it can be stashed away (missing $b->setaside wrapper) + push @{ $ctx->{buckets} }, $b; + debug "queued header [$data]"; + inject_header_bucket($bb, $ctx); + next; # inject_header_bucket already called insert_tail + # notice that if we didn't inject any headers, this will + # still work ok, as inject_header_bucket will send the + # separator header which we just pushed to its queue + } + else { + # fall through + } + + $bb->insert_tail($b); + } + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + # propogate the input headers and the input back to the client + # as we need to do the validations on the client side + $r->headers_out->set($header1_key => + $r->headers_in->get($header1_key)||''); + + for my $key (sort keys %headers) { + $r->headers_out->set($key => $r->headers_in->get($key)||''); + } + + my $data = TestCommon::Utils::read_post($r); + $r->print($data); + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +<VirtualHost TestFilter::in_bbs_inject_header> + PerlModule TestFilter::in_bbs_inject_header + PerlInputFilterHandler TestFilter::in_bbs_inject_header + <Location /TestFilter__in_bbs_inject_header> + SetHandler modperl + PerlResponseHandler TestFilter::in_bbs_inject_header::response + </Location> +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/filter/TestFilter/in_bbs_msg.pm b/2_0_13/t/filter/TestFilter/in_bbs_msg.pm new file mode 100644 index 0000000..12e0868 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_bbs_msg.pm
@@ -0,0 +1,75 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_bbs_msg; + +use strict; +use warnings FATAL => 'all'; + +use base qw(Apache2::Filter); + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use APR::Brigade (); +use APR::Bucket (); + +use Apache2::Const -compile => 'OK'; +use APR::Const -compile => ':common'; + +use Apache::TestTrace; + +my $from_url = '/input_filter.html'; +my $to_url = '/TestFilter__in_bbs_msg'; + +sub handler : FilterConnectionHandler { + my ($filter, $bb, $mode, $block, $readbytes) = @_; + + debug "FILTER CALLED"; + + $filter->next->get_brigade($bb, $mode, $block, $readbytes); + + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + + last if $b->is_eos; + + if ($b->read(my $data)) { + next unless $data =~ s|GET $from_url|GET $to_url|; + debug "GET line rewritten to be:\n$data"; + my $nb = APR::Bucket->new($bb->bucket_alloc, $data); + $b->insert_before($nb); + $b->delete; + $b = $nb; + } + + # XXX: currently a bug in httpd doesn't allow to remove + # the first connection filter. once it's fixed adjust the test + # to test that it was invoked only once. + # debug "removing the filter"; + # $filter->remove; # this filter is no longer needed + } + + Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + $r->puts("1..1\nok 1\n"); + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +<VirtualHost TestFilter::in_bbs_msg> + PerlModule TestFilter::in_bbs_msg + PerlInputFilterHandler TestFilter::in_bbs_msg + + <Location /TestFilter__in_bbs_msg> + SetHandler modperl + PerlResponseHandler TestFilter::in_bbs_msg::response + </Location> + +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/filter/TestFilter/in_bbs_underrun.pm b/2_0_13/t/filter/TestFilter/in_bbs_underrun.pm new file mode 100644 index 0000000..f8f33bb --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_bbs_underrun.pm
@@ -0,0 +1,154 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_bbs_underrun; + +# this test exercises the underrun filter concept. Sometimes filters +# need to read at least N bytes before they can apply their +# transformation. It's quite possible that reading one bucket brigade +# is not enough. But two or more are needed. +# +# When the filter realizes that it doesn't have enough data, it can +# stash the read data in the context, and wait for the next +# invocation, meanwhile it must return an empty bb to the filter that +# has called it. This is not efficient. Instead of returning an empty +# bb to a caller, the input filter can initiate the retrieval of extra +# bucket brigades, after one was received. Notice that this is +# absolutely transparent to any filters before or after the current +# filter. +# +# to see the filter at work, run it as: +# t/TEST -trace=debug -v filter/in_bbs_underrun +# +# and look in the error_log. You will see something like: +# +# ==> TestFilter::in_bbs_underrun::handler : filter called +# ==> asking for a bb +# ==> asking for a bb +# ==> asking for a bb +# ==> storing the remainder: 7611 bytes +# ==> TestFilter::in_bbs_underrun::handler : filter called +# ==> asking for a bb +# ==> asking for a bb +# ==> storing the remainder: 7222 bytes +# ==> TestFilter::in_bbs_underrun::handler : filter called +# ==> asking for a bb +# ==> seen eos, flushing the remaining: 8182 bytes +# +# it's clear from the log that the filter was invoked 3 times, however +# it has consumed 6 bucket brigades +# +# finally, we have to note that this is impossible to do with +# streaming filters, since they can only read data from one bucket +# brigade. So you must process bucket brigades. +# + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use Apache::TestTrace; + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +use constant SIZE => 1024*16 + 5; # ~16k + +sub handler { + my ($filter, $bb, $mode, $block, $readbytes) = @_; + my $ba = $filter->r->connection->bucket_alloc; + my $ctx = $filter->ctx; + my $buffer = defined $ctx ? $ctx : ''; + $ctx = ''; # reset + my $seen_eos = 0; + my $data; + debug_sub "filter called"; + + # fetch and consume bucket brigades untill we have at least SIZE + # bytes to work with + do { + my $tbb = APR::Brigade->new($filter->r->pool, $ba); + $filter->next->get_brigade($tbb, $mode, $block, $readbytes); + debug "asking for a bb"; + ($data, $seen_eos) = flatten_bb($tbb); + $tbb->destroy; + $buffer .= $data; + } while (!$seen_eos && length($buffer) < SIZE); + + # now create a bucket per chunk of SIZE size and put the remainder + # in ctx + for (split_buffer($buffer)) { + if (length($_) == SIZE) { + $bb->insert_tail(APR::Bucket->new($bb->bucket_alloc, $_)); + } + else { + $ctx .= $_; + } + } + + if ($seen_eos) { + # flush the remainder + $bb->insert_tail(APR::Bucket->new($bb->bucket_alloc, $ctx)); + $bb->insert_tail(APR::Bucket::eos_create($ba)); + debug "seen eos, flushing the remaining: " . length($ctx) . " bytes"; + } + else { + # will re-use the remainder on the next invocation + $filter->ctx($ctx); + debug "storing the remainder: " . length($ctx) . " bytes"; + } + + return Apache2::Const::OK; +} + +# split in words of SIZE chars and a remainder +sub split_buffer { + my $buffer = shift; + if ($] < 5.007) { + my @words = $buffer =~ /(.{@{[SIZE]}}|.+)/g; + return @words; + } + else { + # available only since 5.7.x+ + return unpack "(A" . SIZE . ")*", $buffer; + } +} + +sub flatten_bb { + my ($bb) = shift; + + my $seen_eos = 0; + + my @data; + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + $seen_eos++, last if $b->is_eos; + $b->read(my $bdata); + push @data, $bdata; + } + return (join('', @data), $seen_eos); +} + + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + #warn "HANDLER READ: $data\n"; + my $length = length $data; + $r->print("read $length chars"); + } + + return Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_bbs_underrun +PerlResponseHandler TestFilter::in_bbs_underrun::response +PerlInputFilterHandler TestFilter::in_bbs_underrun::handler +#PerlInputFilterHandler TestCommon::FilterDebug::snoop_request
diff --git a/2_0_13/t/filter/TestFilter/in_error.pm b/2_0_13/t/filter/TestFilter/in_error.pm new file mode 100644 index 0000000..633b3a3 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_error.pm
@@ -0,0 +1,53 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_error; + +# errors in filters should be properly propogated to httpd + +# XXX: need to test output as well, and separately connection and +# request filters + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); +use APR::Table (); + +use Apache::TestTrace; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +sub handler { + my $filter = shift; + + debug join '', "-" x 20 , " filter called ", "-" x 20; + + die "This filter must die"; + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + # cause taint problems, as there was a bug (panic: POPSTACK) + # caused when APR/Error.pm was attempted to be loaded from + # $r->read() when the latter was trying to croak about the failed + # read, due to the filter returning 500 + eval { system('echo', 'hello') }; + + t_server_log_error_is_expected(2); + my $len = $r->read(my $data, $r->headers_in->{'Content-Length'}); + + $r->content_type('text/plain'); + $r->print("it shouldn't be printed, because the input filter has died"); + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_error +PerlResponseHandler TestFilter::in_error::response
diff --git a/2_0_13/t/filter/TestFilter/in_init_basic.pm b/2_0_13/t/filter/TestFilter/in_init_basic.pm new file mode 100644 index 0000000..630a511 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_init_basic.pm
@@ -0,0 +1,81 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_init_basic; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use base qw(Apache2::Filter); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +use constant READ_SIZE => 1024; + +# this filter is expected to be called once +# it'll set a note, with the count +sub transparent_init : FilterInitHandler { + my $filter = shift; + + my $ctx = $filter->ctx; + $ctx->{init}++; + $filter->r->notes->set(init => $ctx->{init}); + $filter->ctx($ctx); + + return Apache2::Const::OK; +} + +# this filter passes the data through unmodified and sets a note +# counting how many times it was invoked +sub transparent : FilterRequestHandler + FilterHasInitHandler(\&transparent_init) + { + my ($filter, $bb, $mode, $block, $readbytes) = @_; + + my $ctx = $filter->ctx; + $ctx->{run}++; + $filter->r->notes->set(run => $ctx->{run}); + $filter->ctx($ctx); + + $filter->next->get_brigade($bb, $mode, $block, $readbytes); + + return Apache2::Const::OK; +} + + + +# this filter is not supposed to get a chance to run, since its init +# handler immediately removes it +sub suicide_init : FilterInitHandler { shift->remove(); Apache2::Const::OK } +sub suicide : FilterHasInitHandler(\&suicide_init) { + die "this filter is not supposed to have a chance to run"; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + $r->print(TestCommon::Utils::read_post($r)); + } + + my @keys = qw(init run); + my %times = map { $_ => $r->notes->get($_)||0 } @keys; + $r->print("$_ $times{$_}\n") for @keys; + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_init_basic +PerlResponseHandler TestFilter::in_init_basic::response +PerlInputFilterHandler TestFilter::in_init_basic::suicide +PerlInputFilterHandler TestFilter::in_init_basic::transparent
diff --git a/2_0_13/t/filter/TestFilter/in_str_bin_data.pm b/2_0_13/t/filter/TestFilter/in_str_bin_data.pm new file mode 100644 index 0000000..f304f43 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_str_bin_data.pm
@@ -0,0 +1,58 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_str_bin_data; + +# test that $r->print and $f->print handle binary data correctly +# (e.g. doesn't truncate on "\0" if there is more data after it) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); +use Apache2::RequestRec (); +use Apache2::Filter (); + +use Apache::TestTrace; + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +sub pass_through { + my $f = shift; + + while ($f->read(my $buffer, 1024)) { + debug "read: " . length ($buffer) . "b [$buffer]"; + $f->print($buffer); + } + + return Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + my $length = length $data; + debug "pass through $length bytes of $data\n"; + $r->print($data); + } + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +PerlModule TestFilter::in_str_bin_data +<Location /TestFilter__in_str_bin_data_filter> + PerlInputFilterHandler TestFilter::in_str_bin_data::pass_through + SetHandler modperl + PerlResponseHandler TestFilter::in_str_bin_data +</Location> +<Location /TestFilter__in_str_bin_data> + SetHandler modperl + PerlResponseHandler TestFilter::in_str_bin_data +</Location> +</NoAutoConfig> +
diff --git a/2_0_13/t/filter/TestFilter/in_str_consume.pm b/2_0_13/t/filter/TestFilter/in_str_consume.pm new file mode 100644 index 0000000..4bd32ce --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_str_consume.pm
@@ -0,0 +1,149 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_str_consume; + +# this test verifies that streaming filters framework handles +# gracefully the case when a filter doesn't print anything at all to +# the caller. + +# the real problem is that in the streaming filters we can't consume +# more than one bucket brigade during a single filter invocation, +# which we can in non-stream filters., (e.g. see in_bbs_underrun.pm) +# +# it seems that this works just fine (2.0.46+) and older httpds +# had problems when a filter invocation hasn't printed a thing. +# +# currently if the streaming filter doesn't print anything, the +# upstream filter gets an empty brigade brigade (easily verified with +# the snooping debug filter). Of course if the filter returns +# Apache2::Const::DECLINED the unconsumed data will be passed to upstream filter +# +# However this filter has a problem. Since it doesn't consume all the +# data, the client is left with un-read data, and when the response is +# sent a client get the broken pipe on the socket. It seems that LWP +# on linux handles that situation gracefully, but not on win32, where +# it silently dies. Other clients may have similar problems as +# well. The proper solution is to consume all the data till EOS and +# just drop it on the floor if it's unneeded. Unfortunately we waste +# the resources of passing the data through all filters in the chain +# and doing a wasteful work, but currently there is no way to tell the +# in_core network filter to discard all the data without passing it +# upstream. Notice that in this test we solve the problem in a +# different manner, we simply call $r->discard_request_body which does +# the trick. However it's inappropriate for a stand-alone filter, who +# should read all the data in instead. +# +# this test receives about 10 bbs +# it reads only the first 23 bytes of each bb and discards the rest +# since it wants only 105 bytes it partially consumes only the first 5 bbs +# since it doesn't read all the data in, it'll never see EOS +# therefore once it has read all 105 bytes, it manually sets the EOS flag +# and the rest of the bbs are ignored, the filter is invoked only 5 times +# +# to debug this filter run it as: +# +# t/TEST -v -trace=debug filter/in_str_consume +# +# to enable upstream and downstream filter snooping, uncomment the +# snooping filters directives at the end of this file and rerun: +# t/TEST -conf +# +# to see what happens inside the filter, assuming that you built +# mod_perl with MP_TRACE=1, run: +# env MOD_PERL_TRACE=f t/TEST -v -trace=debug filter/in_str_consume +# + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Filter (); +use Apache::TestTrace; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +use constant READ_BYTES_TOTAL => 105; +use constant READ_BYTES_FIRST => 23; + +sub handler { + my $filter = shift; + + my $ctx = $filter->ctx || { data => '', count => '1'}; + debug "FILTER INVOKED: $ctx->{count}"; + + # read untill READ_BYTES read, no matter how many filter + # invocations it'll take + my $wanted_total = READ_BYTES_TOTAL - length $ctx->{data}; + my $wanted_current = READ_BYTES_FIRST; + my $wanted = $wanted_total; + $wanted = $wanted_current if $wanted > $wanted_current; + debug "total wanted: $wanted_total bytes"; + debug "this bb wanted: $wanted bytes"; + while ($wanted) { + my $len = $filter->read(my $buffer, $wanted); + $ctx->{data} .= $buffer; + $wanted_total -= $len; + $wanted -= $len; + debug "FILTER READ: [$buffer]"; + debug "FILTER READ: $len ($wanted_total more to go)"; + last unless $len; # no more data to read in this bb + } + + $ctx->{count}++; + + unless ($wanted_total) { + # we don't want to read the rest if there is anything left + $filter->seen_eos(1); + # but we really should, though we workaround it in the + # response handler, by calling $r->discard_request_body + } + + if ($filter->seen_eos) { + # flush the data if we are done + $filter->print($ctx->{data}); + } + else { + # store the data away + $filter->ctx($ctx); + + # notice that it seems to work even though we don't print + # anything. the upstream filter gets an empty bb. + + # alternatively could print the chunks of data that we read, + # if we don't need to have it as a whole chunk + } + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + + # tell Apache to get rid of the rest of the request body + # if we don't a client will get a broken pipe and may fail to + # handle this situation gracefully + $r->discard_request_body; + + my $len = length $data; + debug "HANDLER READ: $len bytes\n"; + $r->print($len); + } + + return Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_str_consume +PerlResponseHandler TestFilter::in_str_consume::response +#PerlInputFilterHandler TestCommon::FilterDebug::snoop_request +PerlInputFilterHandler TestFilter::in_str_consume::handler +#PerlInputFilterHandler TestCommon::FilterDebug::snoop_request
diff --git a/2_0_13/t/filter/TestFilter/in_str_declined.pm b/2_0_13/t/filter/TestFilter/in_str_declined.pm new file mode 100644 index 0000000..07bd69e --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_str_declined.pm
@@ -0,0 +1,69 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_str_declined; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Filter (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK DECLINED M_POST); + +# make sure that if the input filter returns DECLINED without +# reading/printing data the data flow is not broken +sub handler { + my $filter = shift; + + my $ctx = $filter->ctx; + $ctx->{invoked}++; + $filter->ctx($ctx); + + # can't use $f->seen_eos, since we don't read the data, so + # we have to set the note on each invocation + $filter->r->notes->set(invoked => $ctx->{invoked}); + #warn "filter was invoked $ctx->{invoked} times\n"; + + return Apache2::Const::DECLINED; +} + +sub response { + my $r = shift; + + my $data; + if ($r->method_number == Apache2::Const::M_POST) { + # consume the data so the input filter is invoked + $data = TestCommon::Utils::read_post($r); + } + + plan $r, tests => 2; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + ok t_cmp(length $data, 20000, "the request body received ok"); + } + + # ~20k of input makes it four bucket brigades: + # - 2 full bucket brigades of 8k + # - 1 half full brigade ~4k + # - 1 bucket brigade with EOS bucket + # however different Apache versions may send extra bb or split + # data differently so we can't rely on the exact count + my $invoked = $r->notes->get('invoked') || 0; + ok $invoked > 1; + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_str_declined +PerlResponseHandler TestFilter::in_str_declined::response +
diff --git a/2_0_13/t/filter/TestFilter/in_str_declined_read.pm b/2_0_13/t/filter/TestFilter/in_str_declined_read.pm new file mode 100644 index 0000000..06b9a9d --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_str_declined_read.pm
@@ -0,0 +1,57 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_str_declined_read; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Filter (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK DECLINED M_POST); + +# a filter must not return DECLINED after calling $r->read, since the +# latter already fetches the bucket brigade in which case it's up to +# the user to complete reading it and send it out +# thefore this filter must fail +sub handler { + my $filter = shift; + + # this causes a fetch of bb + $filter->read(my $buffer, 10); + + return Apache2::Const::DECLINED; +} + +sub response { + my $r = shift; + + my $err; + if ($r->method_number == Apache2::Const::M_POST) { + # this should fail, because of the failing filter + eval { TestCommon::Utils::read_post($r) }; + $err = $@; + } + + plan $r, tests => 1; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + ok $err; + } + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_str_declined_read +PerlResponseHandler TestFilter::in_str_declined_read::response +
diff --git a/2_0_13/t/filter/TestFilter/in_str_lc.pm b/2_0_13/t/filter/TestFilter/in_str_lc.pm new file mode 100644 index 0000000..60f5a80 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_str_lc.pm
@@ -0,0 +1,43 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_str_lc; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +sub handler { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + #warn "FILTER READ: $buffer\n"; + $filter->print(lc $buffer); + } + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + #warn "HANDLER READ: $data\n"; + $r->print($data); + } + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_str_lc +PerlResponseHandler TestFilter::in_str_lc::response
diff --git a/2_0_13/t/filter/TestFilter/in_str_msg.pm b/2_0_13/t/filter/TestFilter/in_str_msg.pm new file mode 100644 index 0000000..e4582e2 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_str_msg.pm
@@ -0,0 +1,109 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_str_msg; + +# test: +# - input connection filter rewriting the first HTTP header POST +# - input request filter configured outside the resource container +# should work just fine (via PerlOptions +MergeHandlers) +# - input connection filter configured inside the resource container +# is silently skipped (at the moment we can't complain about such, +# since there could be connection filters from outside the resource +# container that will get merged inside the resource dir_config + +use strict; +use warnings FATAL => 'all'; + +use base qw(Apache2::Filter); + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use APR::Brigade (); +use APR::Bucket (); + +use Apache::Test; +use Apache::TestUtil; + +use TestCommon::Utils (); + +use Apache2::Const -compile => 'OK'; +use APR::Const -compile => ':common'; + +my $from_url = '/input_filter.html'; +my $to_url = '/TestFilter__in_str_msg'; + +sub con : FilterConnectionHandler { + my $filter = shift; + + #warn "FILTER con CALLED\n"; + my $ctx = $filter->ctx; + + while ($filter->read(my $buffer, 1024)) { + #warn "FILTER READ: $buffer\n"; + unless ($ctx) { + $buffer =~ s|POST $from_url|POST $to_url|; + $ctx = 1; # done + } + $filter->print($buffer); + } + $filter->ctx($ctx) if $ctx; + + return Apache2::Const::OK; +} + +sub req : FilterRequestHandler { + my $filter = shift; + + #warn "FILTER req CALLED\n"; + while ($filter->read(my $buffer, 1024)) { + $buffer =~ s/upcase me/UPCASED/; + $filter->print($buffer); + } + + return Apache2::Const::OK; +} + +sub con_skip : FilterConnectionHandler { + my $filter = shift; + + #warn "FILTER con_skip CALLED\n"; + while ($filter->read(my $buffer, 1024)) { + $filter->print("I'm a bogus filter. Don't run me\n"); + } + + return Apache2::Const::OK; +} + +my $expected = "UPCASED"; +sub response { + my $r = shift; + + my $received = TestCommon::Utils::read_post($r); + + plan $r, tests => 1; + + ok t_cmp($received, $expected, + "request filter must have upcased the data"); + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +<VirtualHost TestFilter::in_str_msg> + PerlModule TestFilter::in_str_msg + PerlInputFilterHandler TestFilter::in_str_msg::con + + # this request filter is outside the resource container and it + # should work just fine because of PerlOptions +MergeHandlers + PerlInputFilterHandler TestFilter::in_str_msg::req + + <Location /TestFilter__in_str_msg> + SetHandler modperl + PerlOptions +MergeHandlers + PerlInputFilterHandler TestFilter::in_str_msg::con_skip + PerlResponseHandler TestFilter::in_str_msg::response + </Location> + +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/filter/TestFilter/in_str_sandwich.pm b/2_0_13/t/filter/TestFilter/in_str_sandwich.pm new file mode 100644 index 0000000..a7a9f19 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/in_str_sandwich.pm
@@ -0,0 +1,57 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::in_str_sandwich; + +# this test verifies whether the filter can pre-insert data (using +# context) and post-insert data (using the seen_eos flag) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +sub handler { + my $filter = shift; + + my $ctx = $filter->ctx; + + unless ($ctx) { + $filter->print("HEADER\n"); + $filter->ctx(1); + } + + while ($filter->read(my $buffer, 1024)) { + #warn "FILTER READ: $buffer\n"; + $filter->print($buffer); + } + + if ($filter->seen_eos) { + $filter->print("TAIL\n"); + } + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + #warn "HANDLER READ: $data\n"; + $r->print($data); + } + + return Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::in_str_sandwich +PerlResponseHandler TestFilter::in_str_sandwich::response
diff --git a/2_0_13/t/filter/TestFilter/out_bbs_basic.pm b/2_0_13/t/filter/TestFilter/out_bbs_basic.pm new file mode 100644 index 0000000..8071992 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_bbs_basic.pm
@@ -0,0 +1,73 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_bbs_basic; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); +use APR::Brigade (); +use APR::Bucket (); +use APR::BucketType (); + +use Apache2::Const -compile => 'OK'; + +#XXX: Not implemented yet, required by Test.pm +sub Apache::TestToString::PRINTF {} + +sub handler { + my ($filter, $bb) = @_; + + unless ($filter->ctx) { + + Apache::TestToString->start; + + plan tests => 4; + + my $ba = $filter->r->connection->bucket_alloc; + + #should only have 1 bucket from the response() below + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + ok $b->type->name; + ok $b->length == 2; + $b->read(my $data); + ok (defined $data and $data eq 'ok'); + } + + my $tests = Apache::TestToString->finish; + + my $brigade = APR::Brigade->new($filter->r->pool, $ba); + my $b = APR::Bucket->new($ba, $tests); + + $brigade->insert_tail($b); + + my $ok = $brigade->first->type->name =~ /mod_perl/ ? 4 : 0; + $brigade->insert_tail(APR::Bucket->new($ba, "ok $ok\n")); + + $brigade->insert_tail(APR::Bucket::eos_create($ba)); + + $filter->next->pass_brigade($brigade); + + $filter->ctx(1); # flag that we have run this already + } + + Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + $r->puts("ok"); + + 0; +} + +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_bbs_basic +PerlResponseHandler TestFilter::out_bbs_basic::response
diff --git a/2_0_13/t/filter/TestFilter/out_bbs_ctx.pm b/2_0_13/t/filter/TestFilter/out_bbs_ctx.pm new file mode 100644 index 0000000..b6f2175 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_bbs_ctx.pm
@@ -0,0 +1,119 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_bbs_ctx; + +# this is the same test as TestFilter::context_stream, but uses the +# bucket brigade API + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use APR::Brigade (); +use APR::Bucket (); +use APR::BucketType (); + +use base qw(Apache2::Filter); + +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK M_POST); +use APR::Const -compile => ':common'; + +use constant BLOCK_SIZE => 5003; + +sub handler { + my ($filter, $bb) = @_; + + debug "filter got called"; + + my $c = $filter->c; + my $ba = $c->bucket_alloc; + my $bb_ctx = APR::Brigade->new($c->pool, $ba); + + my $ctx = $filter->ctx; + $ctx->{invoked}++; + + my $data = exists $ctx->{data} ? $ctx->{data} : ''; + + while (my $b = $bb->first) { + + if ($b->is_eos) { + debug "got EOS"; + # flush the remainings and send a stats signature + $bb_ctx->insert_tail(APR::Bucket->new($ba, "$data\n")) if $data; + my $sig = join "\n", "received $ctx->{blocks} complete blocks", + "filter invoked $ctx->{invoked} times\n"; + $bb_ctx->insert_tail(APR::Bucket->new($ba, $sig)); + $b->remove; + $bb_ctx->insert_tail($b); + last; + } + + if ($b->read(my $bdata)) { + debug "got data"; + $b->delete; + $data .= $bdata; + my $len = length $data; + + my $blocks = 0; + if ($len >= BLOCK_SIZE) { + $blocks = int($len / BLOCK_SIZE); + $len = $len % BLOCK_SIZE; + $data = substr $data, $blocks*BLOCK_SIZE, $len; + $ctx->{blocks} += $blocks; + } + if ($blocks) { + my $nb = APR::Bucket->new($ba, "#" x $blocks); + $bb_ctx->insert_tail($nb); + } + } + else { + debug "got bucket with no data: type: " . $b->type->name; + $b->remove; + $bb_ctx->insert_tail($b); + } + + } + + $ctx->{data} = $data; + $filter->ctx($ctx); + + my $rv = $filter->next->pass_brigade($bb_ctx); + return $rv unless $rv == APR::Const::SUCCESS; + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + # just to make sure that print() won't flush, or we would get the + # count wrong + local $| = 0; + + # make sure that: + # - we send big enough data so it won't fit into one buffer + # - use chunk size which doesn't nicely fit into a buffer size, so + # we have something to store in the context between filter calls + + my $blocks = 33; + my $block_size = BLOCK_SIZE + 1; + my $block = "x" x $block_size; + for (1..$blocks) { + $r->print($block); + $r->rflush; # so the filter reads a chunk at a time + } + + return Apache2::Const::OK; +} + +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_bbs_ctx +PerlResponseHandler TestFilter::out_bbs_ctx::response +
diff --git a/2_0_13/t/filter/TestFilter/out_bbs_filebucket.pm b/2_0_13/t/filter/TestFilter/out_bbs_filebucket.pm new file mode 100644 index 0000000..80f56dd --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_bbs_filebucket.pm
@@ -0,0 +1,67 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_bbs_filebucket; + +# testing how the filter handles file buckets + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter; +use Apache2::URI (); + +use APR::Brigade (); +use APR::Bucket (); + +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK); +use APR::Const -compile => qw(SUCCESS); + +use constant BLOCK_SIZE => 5003; + +sub handler { + my ($filter, $bb) = @_; + + debug "FILTER INVOKED"; + + my $cnt = 0; + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + + $cnt++; + debug "reading bucket #$cnt"; + + last if $b->is_eos; + + if (my $len = $b->read(my $data)) { + my $nb = APR::Bucket->new($bb->bucket_alloc, uc $data); + $b->insert_before($nb); + $b->delete; + $b = $nb; + } + } + + return $filter->next->pass_brigade($bb); +} + +sub response { + my $r = shift; + + debug "\n-------- new request ----------"; + + $r->content_type('text/plain'); + + my $file = $r->args; + Apache2::URI::unescape_url($file); + $r->sendfile($file); + + return Apache2::Const::OK; +} + +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_bbs_filebucket +PerlResponseHandler TestFilter::out_bbs_filebucket::response +PerlOutputFilterHandler TestFilter::out_bbs_filebucket::handler
diff --git a/2_0_13/t/filter/TestFilter/out_init_basic.pm b/2_0_13/t/filter/TestFilter/out_init_basic.pm new file mode 100644 index 0000000..ccfa876 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_init_basic.pm
@@ -0,0 +1,87 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_init_basic; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use base qw(Apache2::Filter); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +use constant READ_SIZE => 1024; + +# this filter is expected to be called once +# it'll set a note, with the count +sub init : FilterInitHandler { + my $filter = shift; + + #warn "**** init was invoked\n"; + + my $ctx = $filter->ctx; + $ctx->{init}++; + $filter->r->notes->set(init => $ctx->{init}); + $filter->ctx($ctx); + + #warn "**** init is exiting\n"; + + return Apache2::Const::OK; +} + +# testing whether we can get the pre handler callback in evolved way +sub get_pre_handler { return \&TestFilter::out_init_basic::init } + +# this filter adds a count for each time it is invoked +sub transparent : FilterRequestHandler + FilterHasInitHandler(get_pre_handler()) + { + my ($filter, $bb) = @_; + + #warn "**** filter was invoked\n"; + + my $ctx = $filter->ctx; + + $filter->print('run ', ++$ctx->{run}, "\n"); + + $filter->ctx($ctx); + + my $rv = $filter->next->pass_brigade($bb); + return $rv unless $rv == APR::Const::SUCCESS; + + #warn "**** filter is exiting\n"; + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + #warn "**** content was invoked\n"; + + $r->content_type('text/plain'); + + my $data; + if ($r->method_number == Apache2::Const::M_POST) { + $data = TestCommon::Utils::read_post($r); + } + + $r->print('init ', $r->notes->get('init'), "\n"); + $r->print($data) if $data; + + #warn "**** content is exiting\n"; + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_init_basic +PerlResponseHandler TestFilter::out_init_basic::response +PerlOutputFilterHandler TestFilter::out_init_basic::transparent
diff --git a/2_0_13/t/filter/TestFilter/out_str_api.pm b/2_0_13/t/filter/TestFilter/out_str_api.pm new file mode 100644 index 0000000..b1c6bb7 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_api.pm
@@ -0,0 +1,99 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_api; + +# Test Apache2::FilterRec and Apache2::Filter accessors + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); +use Apache2::FilterRec (); + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use Apache2::Const -compile => 'OK'; + +my $response_data = "blah blah blah"; + +#XXX: else pp_untie complains: +#untie attempted while %d inner references still exist +sub Apache2::Filter::UNTIE {} +sub Apache2::Filter::PRINTF {} + +sub handler { + my $filter = shift; + + my $data = ''; + while ($filter->read(my $buffer, 1024)) { + $data .= $buffer; + } + + tie *STDOUT, $filter; + + plan tests => 8; + + ok t_cmp($data, $response_data, "response data"); + + ok $filter->isa('Apache2::Filter'); + + { + my $frec = $filter->frec; + + ok $frec->isa('Apache2::FilterRec'); + ok t_cmp($frec->name, "modperl_request_output", '$frec->name'); + + my $next = $filter->next; + ok t_cmp($next->frec->name, "modperl_request_output", + '$filter->next->frec->name'); + + $next = $next->next; + # since we can't ensure that the next filter will be the same, + # as it's not under control, just check that we get some name + my $name = $next->frec->name; + t_debug("next->next name: $name"); + ok $name; + } + + my $r = $filter->r; + + ok $r->isa('Apache2::RequestRec'); + + my $path = '/' . Apache::TestRequest::module2path(__PACKAGE__); + ok t_cmp($r->uri, $path, "path"); + + untie *STDOUT; + + # we have done the job + $filter->remove; + + Apache2::Const::OK; +} + +sub pass_through { + return Apache2::Const::DECLINED; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + $r->puts($response_data); + + Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> +PerlModule TestFilter::out_str_api +<Location /TestFilter__out_str_api> + SetHandler modperl + PerlResponseHandler TestFilter::out_str_api::response + PerlOutputFilterHandler TestFilter::out_str_api + PerlOutputFilterHandler TestFilter::out_str_api::pass_through +</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/filter/TestFilter/out_str_buffer.pm b/2_0_13/t/filter/TestFilter/out_str_buffer.pm new file mode 100644 index 0000000..027e10f --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_buffer.pm
@@ -0,0 +1,99 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_buffer; + +# in this test we want to buffer the data, modify the length of the +# response, set the c-l header and make sure that the client sees the +# right thing +# +# notice that a bucket brigades based filter must be used. The streaming +# API lets FLUSH buckets through which causes an early flush of HTTP +# response headers + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use APR::Table (); +use APR::Bucket (); +use APR::Brigade (); + +use TestCommon::Utils (); + +use base qw(Apache2::Filter); + +use Apache2::Const -compile => qw(OK M_POST); +use APR::Const -compile => ':common'; + +sub flatten_bb { + my ($bb) = shift; + + my $seen_eos = 0; + + my @data; + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + $seen_eos++, last if $b->is_eos; + $b->read(my $bdata); + push @data, $bdata; + } + return (join('', @data), $seen_eos); +} + +sub handler { + my ($filter, $bb) = @_; + + my $ctx = $filter->ctx; + + # no need to unset the C-L header, since this filter makes sure to + # correct it before any headers go out. + #unless ($ctx) { + # $filter->r->headers_out->unset('Content-Length'); + #} + + my $data = exists $ctx->{data} ? $ctx->{data} : ''; + $ctx->{invoked}++; + my ($bdata, $seen_eos) = flatten_bb($bb); + $bdata =~ s/-//g; + $data .= $bdata if $bdata; + + if ($seen_eos) { + my $len = length $data; + $filter->r->headers_out->set('Content-Length', $len); + $filter->print($data) if $data; + } + else { + # store context for all but the last invocation + $ctx->{data} = $data; + $filter->ctx($ctx); + } + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + my $data = ''; + if ($r->method_number == Apache2::Const::M_POST) { + $data = TestCommon::Utils::read_post($r); + $r->headers_out->set('Content-Length' => length $data); + } + + for my $chunk (split /0/, $data) { + $r->print($chunk); + $r->rflush; # so the filter reads a chunk at a time + } + + return Apache2::Const::OK; +} + +1; +__DATA__ + +SetHandler modperl +PerlModule TestFilter::out_str_buffer +PerlResponseHandler TestFilter::out_str_buffer::response +
diff --git a/2_0_13/t/filter/TestFilter/out_str_ctx.pm b/2_0_13/t/filter/TestFilter/out_str_ctx.pm new file mode 100644 index 0000000..762c60b --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_ctx.pm
@@ -0,0 +1,92 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_ctx; + +# this is the same test as TestFilter::context, but uses the streaming +# API + +use strict; +use warnings;# FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use base qw(Apache2::Filter); + +use Apache2::Const -compile => qw(OK M_POST); +use APR::Const -compile => ':common'; + +use constant BLOCK_SIZE => 5003; +use constant READ_SIZE => 1024; + +sub handler { + my $filter = shift; + + my $ctx = $filter->ctx; + my $data = exists $ctx->{data} ? $ctx->{data} : ''; + $ctx->{invoked}++; + + while ($filter->read(my $bdata, READ_SIZE)) { + $data .= $bdata; + my $len = length $data; + + my $blocks = 0; + if ($len >= BLOCK_SIZE) { + $blocks = int($len / BLOCK_SIZE); + $len = $len % BLOCK_SIZE; + $data = substr $data, $blocks*BLOCK_SIZE, $len; + $ctx->{blocks} += $blocks; + } + if ($blocks) { + $filter->print("#" x $blocks); + } + } + + if ($filter->seen_eos) { + # flush the remaining data and add a statistics signature + $filter->print("$data\n") if $data; + my $sig = join "\n", "received $ctx->{blocks} complete blocks", + "filter invoked $ctx->{invoked} times\n"; + $filter->print($sig); + } + else { + # store context for all but the last invocation + $ctx->{data} = $data; + $filter->ctx($ctx); + } + + return Apache2::Const::OK; +} + + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + # just to make sure that print() flushes, or we would get the + # count wrong + local $| = 1; + + # make sure that + # - we send big enough data so it won't fit into one buffer + # - use chunk size which doesn't nicely fit into a buffer size, so + # we have something to store in the context between filter calls + + my $blocks = 33; + my $block_size = BLOCK_SIZE + 1; + my $block = "x" x $block_size; + for (1..$blocks) { + $r->print($block); + $r->rflush; # so the filter reads a chunk at a time + } + + return Apache2::Const::OK; +} + +1; +__DATA__ + +SetHandler modperl +PerlModule TestFilter::out_str_ctx +PerlResponseHandler TestFilter::out_str_ctx::response +
diff --git a/2_0_13/t/filter/TestFilter/out_str_declined.pm b/2_0_13/t/filter/TestFilter/out_str_declined.pm new file mode 100644 index 0000000..0f4cbf6 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_declined.pm
@@ -0,0 +1,82 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_declined; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Filter (); + +use Apache2::Const -compile => qw(OK DECLINED); + +use constant READ_SIZE => 1024; + +# make sure that if the input filter returns DECLINED without +# reading/printing data the data flow is not broken +sub decline { + my $filter = shift; + + my $ctx = $filter->ctx; + $ctx->{invoked}++; + $filter->ctx($ctx); + + # can't use $f->seen_eos, since we don't read the data, so + # we have to set the note on each invocation + $filter->r->notes->set(invoked => $ctx->{invoked}); + #warn "decline filter was invoked $ctx->{invoked} times\n"; + + return Apache2::Const::DECLINED; +} + +# this filter ignores all the data that comes through, though on the +# last invocation it prints how many times the filter 'decline' was called +# which it could count by itself, but we want to test that +# 'return Apache2::Const::DECLINED' works properly in output filters +sub black_hole { + my $filter = shift; + + my $ctx = $filter->ctx; + $ctx->{invoked}++; + $filter->ctx($ctx); + #warn "black_hole filter was invoked $ctx->{invoked} times\n"; + + while ($filter->read(my $data, READ_SIZE)) { + #warn "black_hole data: $data\n"; + # let the data fall between the chairs + } + + if ($filter->seen_eos) { + my $invoked = $filter->r->notes->get('invoked') || 0; + $filter->print($invoked); + } + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + # just to make sure that print() won't flush, or we would get the + # count wrong + local $| = 0; + + $r->content_type('text/plain'); + for (1..10) { + $r->print("a"); # this buffers the data + $r->rflush; # this sends the data in the buffer + flush bucket + } + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_str_declined +PerlResponseHandler TestFilter::out_str_declined::response +PerlOutputFilterHandler TestFilter::out_str_declined::decline +PerlOutputFilterHandler TestFilter::out_str_declined::black_hole
diff --git a/2_0_13/t/filter/TestFilter/out_str_eval.pm b/2_0_13/t/filter/TestFilter/out_str_eval.pm new file mode 100644 index 0000000..0201bcd --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_eval.pm
@@ -0,0 +1,45 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_eval; + +# at some point there was a problem when eval {} in a non-filter +# handler wasn't functioning when a filter was involved. the $@ value +# was getting lost when t_cmp was doing print of debug values. and a +# new invocation of a filter handler resets the value of $@. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK DECLINED); + +# dummy pass_through filter was good enough to trigger the problem +sub handler { + return Apache2::Const::DECLINED; +} + +sub response { + my $r = shift; + + plan $r, tests => 1; + # test that filters don't reset $@ + eval { i_do_not_exist_really_i_do_not() }; + # trigger the filter invocation, before using $@ + $r->print("# whatever"); + $r->rflush; + ok t_cmp($@, qr/Undefined subroutine/, "some croak"); + + return Apache2::Const::OK; +} + +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_str_eval +PerlResponseHandler TestFilter::out_str_eval::response +
diff --git a/2_0_13/t/filter/TestFilter/out_str_lc.pm b/2_0_13/t/filter/TestFilter/out_str_lc.pm new file mode 100644 index 0000000..8325b38 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_lc.pm
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_lc; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Filter (); + +use TestCommon::Utils; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + + # test that read() returns tainted data + die "read() has returned untainted data" + unless TestCommon::Utils::is_tainted($buffer); + + $filter->print(lc $buffer); + } + + Apache2::Const::OK; +} + +1; +__DATA__ + +<Location /top_dir> + PerlOutputFilterHandler TestFilter::out_str_lc +</Location> +<IfModule mod_alias.c> + Alias /top_dir @top_dir@ +</IfModule>
diff --git a/2_0_13/t/filter/TestFilter/out_str_remove.pm b/2_0_13/t/filter/TestFilter/out_str_remove.pm new file mode 100644 index 0000000..cc3d14d --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_remove.pm
@@ -0,0 +1,67 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_remove; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Filter (); + +use Apache2::Const -compile => qw(OK); + +use constant READ_SIZE => 1024; + +# this filter reads the first bb, upcases the data in it and removes itself +sub upcase_n_remove { + my $filter = shift; + + #warn "filter upcase_n_remove called\n"; + while ($filter->read(my $buffer, 1024)) { + $filter->print(uc $buffer); + } + + $filter->remove; + + return Apache2::Const::OK; +} + +# this filter inserts underscores after each character it receives +sub insert_underscores { + my $filter = shift; + + #warn "filter insert_underscores called\n"; + while ($filter->read(my $buffer, 1024)) { + $buffer =~ s/(.)/$1_/g; + $filter->print($buffer); + } + + return Apache2::Const::OK; +} + + +sub response { + my $r = shift; + + # just to make sure that print() won't flush, or we would get the + # count wrong + local $| = 0; + + $r->content_type('text/plain'); + $r->print("Foo"); + $r->rflush; # this sends the data in the buffer + flush bucket + $r->print("bar"); + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_str_remove +PerlResponseHandler TestFilter::out_str_remove::response +PerlOutputFilterHandler TestFilter::out_str_remove::insert_underscores +PerlOutputFilterHandler TestFilter::out_str_remove::upcase_n_remove
diff --git a/2_0_13/t/filter/TestFilter/out_str_req_eos.pm b/2_0_13/t/filter/TestFilter/out_str_req_eos.pm new file mode 100644 index 0000000..866c8a1 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_req_eos.pm
@@ -0,0 +1,83 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_req_eos; + +# here we test how EOS is passed from one streaming filter to another, +# making sure that it's not lost + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +my $prefix = 'PREFIX_'; +my $suffix = '_SUFFIX'; + +sub add_prefix { + my $filter = shift; + + #warn "add_prefix called\n"; + + unless ($filter->ctx) { + $filter->print($prefix); + $filter->ctx(1); + } + + while ($filter->read(my $buffer, 1024)){ + #warn "add_prefix read: [$buffer]\n"; + $filter->print($buffer); + } + + Apache2::Const::OK; +} + +sub add_suffix { + my $filter = shift; + + #warn "add_suffix called\n"; + + while ($filter->read(my $buffer, 1024)){ + #warn "add_suffix read: [$buffer]\n"; + $filter->print($buffer); + } + + if ($filter->seen_eos) { + $filter->print($suffix); + $filter->ctx(1); + } + + Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + $r->print(TestCommon::Utils::read_post($r)); + } + + return Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> + PerlModule TestFilter::out_str_req_eos + <Location /TestFilter__out_str_req_eos> + SetHandler modperl + PerlResponseHandler TestFilter::out_str_req_eos + PerlOutputFilterHandler TestFilter::out_str_req_eos::add_prefix + PerlOutputFilterHandler TestFilter::out_str_req_eos::add_suffix + </Location> +</NoAutoConfig> + + + +
diff --git a/2_0_13/t/filter/TestFilter/out_str_req_mix.pm b/2_0_13/t/filter/TestFilter/out_str_req_mix.pm new file mode 100644 index 0000000..771cb09 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_req_mix.pm
@@ -0,0 +1,87 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_req_mix; + +# in this test we verify that we can preserve the mixed order of +# modperl and non-modperl filters using the PerlSetOutputFilter +# directive, instead of SetOutputFilter for non-modperl filters. +# +# response handler prints a mangled SSI directive: +# <!--#include virtual="/includes/REMOVEclear.shtml" --> +# (which it receives via POST from the client) +# +# adjust() filter is configured to be called first and it removes the +# string 'REMOVE' from the response handler's output, so that SSI will +# find the fixed resource specification: +# <!--#include virtual="/includes/clear.shtml" --> +# +# the INCLUDES filter, which is configured to be next on the stack +# (mod_include) processes the directive and returns the contents of +# file "/includes/clear.shtml", which is: +# This is a REMOVEclear text +# +# finally the second mod_perl filter (which happens to be the same +# adjust() filter, but to all purposes it's a separate filter) +# configured to run after the INCLUDES filter fixes the data sent by +# the INCLUDES filter to be: +# This is a clear text +# +# and this is what the client is expecting to receive +# +# WARNING: notice that the adjust() filter assumes that it'll receive +# the word REMOVE in a single bucket, which is good enough for the +# test because we control all the used filters and normally Apache +# core filters won't split short data into several buckets. However +# filter developers shouldn't make any assumptions, since any data can +# be split by any of the upstream filters. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Filter (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +sub adjust { + my $filter = shift; + + #warn "adjust called\n"; + + while ($filter->read(my $buffer, 1024)){ + $buffer =~ s/REMOVE//; + $filter->print($buffer); + } + + Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + if ($r->method_number == Apache2::Const::M_POST) { + $r->print(TestCommon::Utils::read_post($r)); + } + + return Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> + PerlModule TestFilter::out_str_req_mix + <Location /TestFilter__out_str_req_mix> + Options +Includes + PerlOutputFilterHandler TestFilter::out_str_req_mix::adjust + PerlSetOutputFilter INCLUDES + PerlOutputFilterHandler TestFilter::out_str_req_mix::adjust + SetHandler modperl + PerlResponseHandler TestFilter::out_str_req_mix + </Location> +</NoAutoConfig> + + + +
diff --git a/2_0_13/t/filter/TestFilter/out_str_reverse.pm b/2_0_13/t/filter/TestFilter/out_str_reverse.pm new file mode 100644 index 0000000..5237f1f --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_reverse.pm
@@ -0,0 +1,82 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_reverse; + +# this filter tests how the data can be set-aside between filter +# invocations. here we collect a single line (which terminates with a +# new line) before we apply the reversing transformation. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK M_POST); + +use constant BUFF_LEN => 2; +use constant signature => "Reversed by mod_perl 2.0\n"; + +sub handler { + my $f = shift; + #warn "called\n"; + + my $leftover = $f->ctx; + + # We are about to change the length of the response body. Hence, we + # have to adjust the content-length header. + unless (defined $leftover) { # 1st invocation + $f->r->headers_out->{'Content-Length'}+=length signature + if exists $f->r->headers_out->{'Content-Length'}; + } + + while ($f->read(my $buffer, BUFF_LEN)) { + #warn "buffer: [$buffer]\n"; + $buffer = $leftover . $buffer if defined $leftover; + $leftover = undef; + while ($buffer =~ /([^\r\n]*)([\r\n]*)/g) { + $leftover = $1, last unless $2; + $f->print(scalar(reverse $1), $2); + } + } + + if ($f->seen_eos) { + $f->print(scalar reverse $leftover) if defined $leftover; + $f->print(signature); + } + else { + $f->ctx($leftover) if defined $leftover; + } + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + # unbuffer stdout, so we get the data split across several bbs + local $_ = 1; + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + $r->print($_) for grep length $_, split /(.{5})/, $data; + } + + return Apache2::Const::OK; +} + +1; +__DATA__ +<Base> + PerlModule TestFilter::out_str_reverse + <LocationMatch "/filter/reverse.txt"> + PerlOutputFilterHandler TestFilter::out_str_reverse + </LocationMatch> +</Base> + +SetHandler modperl +PerlResponseHandler TestFilter::out_str_reverse::response +
diff --git a/2_0_13/t/filter/TestFilter/out_str_subreq_default.pm b/2_0_13/t/filter/TestFilter/out_str_subreq_default.pm new file mode 100644 index 0000000..2ffcc0f --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_subreq_default.pm
@@ -0,0 +1,82 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_subreq_default; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache2::Filter (); + +use Apache2::Const -compile => qw(OK); + +# include the contents of a subrequest +# in the filter, a la mod_include's +# <!--#include virtual="/subrequest" --> + +sub include { + + my $filter = shift; + + unless ($filter->ctx) { + # don't forget to remove the C-L header + $filter->r->headers_out->unset('Content-Length'); + + $filter->ctx(1); + } + + while ($filter->read(my $buffer, 1024)){ + + if ($buffer eq "<tag>\n") { + my $sub = $filter->r->lookup_uri('/default_subrequest/subrequest.txt'); + my $rc = $sub->run; + } + else { + # send all other data along unaltered + $filter->print($buffer); + } + + } + + # add our own at the end + if ($filter->seen_eos) { + $filter->print("filter\n"); + $filter->ctx(1); + } + + return Apache2::Const::OK; +} + +sub response { + + my $r = shift; + + $r->content_type('text/plain'); + + $r->print("content\n"); + $r->rflush; + $r->print("<tag>\n"); + $r->rflush; + $r->print("more content\n"); + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_str_subreq_default +PerlResponseHandler TestFilter::out_str_subreq_default::response +PerlOutputFilterHandler TestFilter::out_str_subreq_default::include + +<IfModule mod_alias.c> + Alias /default_subrequest @DocumentRoot@/filter +</IfModule> + +<Location /default_subrequest> + SetHandler default-handler +</Location>
diff --git a/2_0_13/t/filter/TestFilter/out_str_subreq_modperl.pm b/2_0_13/t/filter/TestFilter/out_str_subreq_modperl.pm new file mode 100644 index 0000000..ba3b4a4 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/out_str_subreq_modperl.pm
@@ -0,0 +1,89 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestFilter::out_str_subreq_modperl; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache2::Filter (); + +use Apache2::Const -compile => qw(OK); + +# include the contents of a subrequest +# in the filter, a la mod_include's +# <!--#include virtual="/subrequest" --> + +sub include { + + my $filter = shift; + + unless ($filter->ctx) { + # don't forget to remove the C-L header + $filter->r->headers_out->unset('Content-Length'); + + $filter->ctx(1); + } + + while ($filter->read(my $buffer, 1024)){ + + if ($buffer eq "<tag>\n") { + my $sub = $filter->r->lookup_uri('/modperl_subrequest'); + my $rc = $sub->run; + } + else { + # send all other data along unaltered + $filter->print($buffer); + } + + } + + # add our own at the end + if ($filter->seen_eos) { + $filter->print("filter\n"); + $filter->ctx(1); + } + + return Apache2::Const::OK; +} + +sub subrequest { + + my $r = shift; + + $r->content_type('text/plain'); + $r->print("modperl subrequest\n"); + + return Apache2::Const::OK; +} + +sub response { + + my $r = shift; + + $r->content_type('text/plain'); + + $r->print("content\n"); + $r->rflush; + $r->print("<tag>\n"); + $r->rflush; + $r->print("more content\n"); + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler modperl +PerlModule TestFilter::out_str_subreq_modperl +PerlResponseHandler TestFilter::out_str_subreq_modperl::response +PerlOutputFilterHandler TestFilter::out_str_subreq_modperl::include + +<Location /modperl_subrequest> + SetHandler modperl + PerlResponseHandler TestFilter::out_str_subreq_modperl::subrequest +</Location>
diff --git a/2_0_13/t/filter/TestFilter/with_subrequest.pm b/2_0_13/t/filter/TestFilter/with_subrequest.pm new file mode 100644 index 0000000..1448ee4 --- /dev/null +++ b/2_0_13/t/filter/TestFilter/with_subrequest.pm
@@ -0,0 +1,38 @@ +package TestFilter::with_subrequest; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Filter (); +use Apache2::SubRequest (); + +use TestCommon::Utils; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $f = shift; + my $r = $f->r; + + my $subr; + while ($f->read(my $buffer, 1024)) { + $f->print(lc $buffer); + if (!$subr) { + $subr = $r->lookup_uri($r->uri); + my $rc = $subr->run; + } + } + + Apache2::Const::OK; +} + +1; +__DATA__ + +<Location /with_subrequest> + PerlOutputFilterHandler TestFilter::with_subrequest +</Location> + +<IfModule mod_alias.c> + Alias /with_subrequest @top_dir@ +</IfModule>
diff --git a/2_0_13/t/filter/both_str_con_add.t b/2_0_13/t/filter/both_str_con_add.t new file mode 100644 index 0000000..1937406 --- /dev/null +++ b/2_0_13/t/filter/both_str_con_add.t
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +my @test_strings = qw(MODPERL 2.0 RULES); + +# blocking socket bug fixed in 2.0.52 +my $ok = $^O !~ /^(Open|Net)BSD$/i || need_min_apache_version('2.0.52'); + +plan tests => 1 + @test_strings, $ok; + +my $module = "TestFilter::both_str_con_add"; +my $socket = Apache::TestRequest::vhost_socket($module); + +ok $socket; + +for my $str (@test_strings) { + print $socket "$str\n"; + chomp(my $reply = <$socket>||''); + $str = lc $str; + $str =~ s/modperl/mod_perl/; + ok t_cmp($reply, $str); +}
diff --git a/2_0_13/t/filter/both_str_native_remove.t b/2_0_13/t/filter/both_str_native_remove.t new file mode 100644 index 0000000..4dbc1c1 --- /dev/null +++ b/2_0_13/t/filter/both_str_native_remove.t
@@ -0,0 +1,60 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 8, need 'deflate', 'include', + need_min_module_version("Compress::Zlib", "1.09"); + +require Compress::Zlib; + +my $base = '/TestFilter__both_str_native_remove'; + +# 1. check if DEFLATE input and INCLUDES output filter work +{ + my $location = $base; + my $received = POST_BODY $location, + content => Compress::Zlib::memGzip('gzipped text'), + 'Content-Encoding' => "gzip"; + + ok t_cmp $received, qr/xSSI OK/, "INCLUDES filter"; + + ok t_cmp $received, qr/content: gzipped text/, "DEFLATE filter"; +} + + +# 2. check if DEFLATE input and INCLUDES output filter can be removed +{ + my $location = "$base?remove"; + my $received = POST_BODY $location, content => 'plain text'; + + ok t_cmp $received, + qr/input1: [\w,]+deflate/, + "DEFLATE filter is present"; + + ok !t_cmp $received, + qr/input2: [\w,]+deflate/, + "DEFLATE filter is removed"; + + ok t_cmp $received, + qr/content: plain text/, + "DEFLATE filter wasn't invoked"; + + ok t_cmp $received, + qr/output1: modperl_request_output,includes,modperl_request_output,/, + "INCLUDES filter is present"; + + ok t_cmp $received, + qr/output2: modperl_request_output,(?!includes)/, + "INCLUDES filter is removed"; + + ok t_cmp $received, + qr/x<!--#echo var="SSI_TEST" -->x/, + "INCLUDES filter wasn't invoked"; + +} + +
diff --git a/2_0_13/t/filter/both_str_req_add.t b/2_0_13/t/filter/both_str_req_add.t new file mode 100644 index 0000000..867ebf8 --- /dev/null +++ b/2_0_13/t/filter/both_str_req_add.t
@@ -0,0 +1,18 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $data = join ' ', 'A'..'Z', 0..9; +my $expected = lc $data; # that's what the input filter does +$expected =~ s/\s+//g; # that's what the output filter does +$expected .= "end"; # that's what the anon output filter does +my $location = '/TestFilter__both_str_req_add'; +my $response = POST_BODY $location, content => $data; +ok t_cmp($response, $expected, "lc input and reverse output filters"); +
diff --git a/2_0_13/t/filter/both_str_req_mix.t b/2_0_13/t/filter/both_str_req_mix.t new file mode 100644 index 0000000..fa44462 --- /dev/null +++ b/2_0_13/t/filter/both_str_req_mix.t
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1, need 'deflate', 'include', + need_min_module_version("Compress::Zlib", "1.09"); + +require Compress::Zlib; +my $location = '/TestFilter__both_str_req_mix'; + +my $request_orig = '<!--#include INPUTvirtual="/includes/OUTPUTclear.shtml" -->'; +my $response_orig = 'This is a clear text'; + +# gzip already produces data in a network order, so no extra +# transformation seem to be necessary + +my $content = Compress::Zlib::memGzip($request_orig); +my $response_raw = POST_BODY $location, + content => $content, + 'Accept-Encoding' => "gzip", + 'Content-Encoding' => "gzip"; + +#t_debug($response_raw); +my $response_clear = Compress::Zlib::memGunzip($response_raw); +#t_debug($response_clear); + +my $expected = $response_orig; +(my $received = $response_clear) =~ s{\r?\n$}{}; + +ok t_cmp($received, $expected, + "mixing httpd and mod_perl filters, while preserving order"); +
diff --git a/2_0_13/t/filter/both_str_req_proxy.t b/2_0_13/t/filter/both_str_req_proxy.t new file mode 100644 index 0000000..ae91fc7 --- /dev/null +++ b/2_0_13/t/filter/both_str_req_proxy.t
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +my @modules = qw(mod_proxy proxy_http.c); +push @modules, 'mod_access_compat.c' if have_min_apache_version("2.4.0"); +plan tests => 1, need need_module(@modules), need_access; + +my $data = join ' ', 'A'..'Z', 0..9; +my $expected = lc $data; # that's what the input filter does +$expected =~ s/\s+//g; # that's what the output filter does +my $location = '/TestFilter__both_str_req_proxy/foo'; +my $response = POST_BODY $location, content => $data; +ok t_cmp($response, $expected, "lc input and reverse output filters"); +
diff --git a/2_0_13/t/filter/in_autoload.t b/2_0_13/t/filter/in_autoload.t new file mode 100644 index 0000000..d57ae30 --- /dev/null +++ b/2_0_13/t/filter/in_autoload.t
@@ -0,0 +1,18 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = '/TestFilter__in_autoload'; + +my $data = "[Foo BaR] "; +my $expected = lc $data; +my $received = POST_BODY $location, content => $data; + +ok t_cmp($received, $expected, "input stream filter lc autoloaded") +
diff --git a/2_0_13/t/filter/in_bbs_body.t b/2_0_13/t/filter/in_bbs_body.t new file mode 100644 index 0000000..8ca5e5c --- /dev/null +++ b/2_0_13/t/filter/in_bbs_body.t
@@ -0,0 +1,14 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest; + +my $location = '/TestFilter__in_bbs_body'; + +print GET_BODY_ASSERT $location; + +for my $x (2..3) { + my $data = scalar reverse "ok $x\n"; + print POST_BODY_ASSERT $location, content => $data; +}
diff --git a/2_0_13/t/filter/in_bbs_consume.t b/2_0_13/t/filter/in_bbs_consume.t new file mode 100644 index 0000000..3defa2b --- /dev/null +++ b/2_0_13/t/filter/in_bbs_consume.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = '/TestFilter__in_bbs_consume'; + +# send a message bigger than 8k, so to make sure that the input filter +# will get more than one bucket brigade with data. +my $length = 40 * 1024 + 7; # ~40k+ (~6 incoming bucket brigades) +my $expected = join '', 'a'..'z'; +my $data = $expected . "x" x $length; +my $received = POST_BODY $location, content => $data; + +ok t_cmp($received, $expected, "input bbs filter full consume")
diff --git a/2_0_13/t/filter/in_bbs_inject_header.t b/2_0_13/t/filter/in_bbs_inject_header.t new file mode 100644 index 0000000..e45b047 --- /dev/null +++ b/2_0_13/t/filter/in_bbs_inject_header.t
@@ -0,0 +1,67 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache::TestRequest; + +my $module = 'TestFilter::in_bbs_inject_header'; +my $location = "/" . Apache::TestRequest::module2path($module); + +Apache::TestRequest::scheme('http'); #force http for t/TEST -ssl +Apache::TestRequest::module($module); + +my $config = Apache::Test::config(); +my $hostport = Apache::TestRequest::hostport($config); +t_debug("connecting to $hostport"); + +my $content = "This body shouldn't be seen by the filter"; + +my $header1_key = 'X-My-Protocol'; +my $header1_val = 'POST-IT'; + +my %headers = ( + 'X-Extra-Header2' => 'Value 2', + 'X-Extra-Header3' => 'Value 3', +); + +my $keep_alive_times = 4; +my $non_keep_alive_times = 4; +my $tests = 2 + keys %headers; +my $times = $non_keep_alive_times + $keep_alive_times + 1; + +plan tests => $tests * $times; + +# try non-keepalive conn +validate(POST($location, content => $content)) for 1..$non_keep_alive_times; + +# try keepalive conns +Apache::TestRequest::user_agent(reset => 1, keep_alive => 1); +validate(POST($location, content => $content)) for 1..$keep_alive_times; + +# try non-keepalive conn +Apache::TestRequest::user_agent(reset => 1, keep_alive => 0); +validate(POST($location, content => $content)); + +# 4 sub-tests +sub validate { + my $res = shift; + + die join "\n", + "request has failed (the response code was: " . $res->code . ")", + "see t/logs/error_log for more details\n" unless $res->is_success; + + ok t_cmp($res->content, $content, "body"); + + ok t_cmp($res->header($header1_key), + $header1_val, + "injected header $header1_key"); + + for my $key (sort keys %headers) { + ok t_cmp($res->header($key), + $headers{$key}, + "injected header $key"); + } +}
diff --git a/2_0_13/t/filter/in_bbs_msg.t b/2_0_13/t/filter/in_bbs_msg.t new file mode 100644 index 0000000..02a3027 --- /dev/null +++ b/2_0_13/t/filter/in_bbs_msg.t
@@ -0,0 +1,16 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache::Test (); +use Apache::TestUtil; + +use Apache::TestRequest 'GET_BODY_ASSERT'; + +my $module = 'TestFilter::in_bbs_msg'; + +Apache::TestRequest::scheme('http'); #force http for t/TEST -ssl +Apache::TestRequest::module($module); + +my $config = Apache::Test::config(); +my $hostport = Apache::TestRequest::hostport($config); +t_debug("connecting to $hostport"); + +print GET_BODY_ASSERT "/input_filter.html";
diff --git a/2_0_13/t/filter/in_bbs_underrun.t b/2_0_13/t/filter/in_bbs_underrun.t new file mode 100644 index 0000000..70e999b --- /dev/null +++ b/2_0_13/t/filter/in_bbs_underrun.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = '/TestFilter__in_bbs_underrun'; + +# send a message of about 40k, so to make sure that the input filter +# will get several bucket brigades with data (about 8k/brigade) +my $length = 40 * 1024 + 7; # ~40k+ (~6 incoming bucket brigades) +my $data = "x" x $length; +my $received = POST_BODY $location, content => $data; +my $expected = "read $length chars"; + +ok t_cmp($received, $expected, "input bbs filter underrun test")
diff --git a/2_0_13/t/filter/in_error.t b/2_0_13/t/filter/in_error.t new file mode 100644 index 0000000..0ac9662 --- /dev/null +++ b/2_0_13/t/filter/in_error.t
@@ -0,0 +1,15 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = '/TestFilter__in_error'; + +my $res = POST $location, content => 'foo'; +ok t_cmp($res->code, 500, "an error in a filter should cause 500"); +
diff --git a/2_0_13/t/filter/in_init_basic.t b/2_0_13/t/filter/in_init_basic.t new file mode 100644 index 0000000..a82ffaa --- /dev/null +++ b/2_0_13/t/filter/in_init_basic.t
@@ -0,0 +1,17 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $content = "content ok\n"; +# older httpds may run the input request filter twice +my $expected = join '', $content, "init 1\n", "run [12]\n"; + +my $location = '/TestFilter__in_init_basic'; +my $response = POST_BODY $location, content => $content; +ok t_cmp($response, qr/$expected/, "test filter init functionality");
diff --git a/2_0_13/t/filter/in_str_bin_data.t b/2_0_13/t/filter/in_str_bin_data.t new file mode 100644 index 0000000..da801bd --- /dev/null +++ b/2_0_13/t/filter/in_str_bin_data.t
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 4; + +my $base = "/TestFilter__in_str_bin_data"; +my @locations = map {$base . $_ } ('', '_filter'); +my $expected = "123\001456\000789"; + +# test the binary data read/print w/ and w/o pass through filter +for my $location (@locations) { + my $received = POST_BODY_ASSERT $location, content => $expected; + + ok t_cmp(length($received), + length($expected), + "$location binary response length"); + + ok t_cmp($received, + $expected, + "$location binary response data"); +} +
diff --git a/2_0_13/t/filter/in_str_consume.t b/2_0_13/t/filter/in_str_consume.t new file mode 100644 index 0000000..7ad619d --- /dev/null +++ b/2_0_13/t/filter/in_str_consume.t
@@ -0,0 +1,22 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# see the explanations in in_str_consume.pm + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = '/TestFilter__in_str_consume'; + +my $data = "*" x 80000; # about 78K => ~10 bbs +my $expected = 105; + +t_debug "sent " . length($data) . "B, expecting ${expected}B to make through"; + +my $received = POST_BODY $location, content => $data; + +ok t_cmp($received, $expected, "input stream filter partial consume")
diff --git a/2_0_13/t/filter/in_str_declined.t b/2_0_13/t/filter/in_str_declined.t new file mode 100644 index 0000000..f22db3b --- /dev/null +++ b/2_0_13/t/filter/in_str_declined.t
@@ -0,0 +1,12 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest 'POST_BODY_ASSERT';; + +my $location = '/TestFilter__in_str_declined'; + +my $chunk = "1234567890"; +my $data = $chunk x 2000; + +print POST_BODY_ASSERT $location, content => $data;
diff --git a/2_0_13/t/filter/in_str_declined_read.t b/2_0_13/t/filter/in_str_declined_read.t new file mode 100644 index 0000000..94b6618 --- /dev/null +++ b/2_0_13/t/filter/in_str_declined_read.t
@@ -0,0 +1,12 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest 'POST_BODY_ASSERT';; + +my $location = '/TestFilter__in_str_declined_read'; + +my $chunk = "1234567890"; +my $data = $chunk x 2000; + +print POST_BODY_ASSERT $location, content => $data;
diff --git a/2_0_13/t/filter/in_str_lc.t b/2_0_13/t/filter/in_str_lc.t new file mode 100644 index 0000000..e2dceaf --- /dev/null +++ b/2_0_13/t/filter/in_str_lc.t
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = '/TestFilter__in_str_lc'; + +my $chunk = "[Foo BaR] "; +my $data = $chunk x 250; +my $expected = lc $data; +my $received = POST_BODY $location, content => $data; + +ok t_cmp($received, $expected, "input stream filter lc") +
diff --git a/2_0_13/t/filter/in_str_msg.t b/2_0_13/t/filter/in_str_msg.t new file mode 100644 index 0000000..74a781f --- /dev/null +++ b/2_0_13/t/filter/in_str_msg.t
@@ -0,0 +1,16 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache::Test (); +use Apache::TestUtil; + +use Apache::TestRequest 'POST_BODY_ASSERT'; + +my $module = 'TestFilter::in_str_msg'; + +Apache::TestRequest::scheme('http'); #force http for t/TEST -ssl +Apache::TestRequest::module($module); + +my $config = Apache::Test::config(); +my $hostport = Apache::TestRequest::hostport($config); +t_debug("connecting to $hostport"); + +print POST_BODY_ASSERT "/input_filter.html", content => "upcase me";
diff --git a/2_0_13/t/filter/in_str_sandwich.t b/2_0_13/t/filter/in_str_sandwich.t new file mode 100644 index 0000000..a9d7ef6 --- /dev/null +++ b/2_0_13/t/filter/in_str_sandwich.t
@@ -0,0 +1,17 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = '/TestFilter__in_str_sandwich'; + +my $expected = join "\n", qw(HEADER BODY TAIL), ''; +my $received = POST_BODY $location, content => "BODY\n"; + +ok t_cmp($received, $expected, "input stream filter sandwich") +
diff --git a/2_0_13/t/filter/out_apache.t b/2_0_13/t/filter/out_apache.t new file mode 100644 index 0000000..79c1325 --- /dev/null +++ b/2_0_13/t/filter/out_apache.t
@@ -0,0 +1,38 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# test the situation where a native apache response filter is +# configured outside the <Location> block with PerlSet*Filter +# directive. In this case we need to make sure that mod_perl doesn't +# try to add it as connection filter + +# see the server side config in t/conf/extra.conf.in + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest 'GET_BODY_ASSERT'; +use TestCommon::LogDiff; +use File::Spec::Functions qw(catfile); + +my $path = catfile Apache::Test::vars('serverroot'), + qw(logs error_log); + +plan tests => 2, need 'include', 'HTML::HeadParser'; + +my $module = 'filter_out_apache'; +my $config = Apache::Test::config(); + +Apache::TestRequest::module($module); +my $hostport = Apache::TestRequest::hostport($config); +t_debug("connecting to $hostport"); + +my $logdiff = TestCommon::LogDiff->new($path); + +my $expected = qr/welcome to/; +my $response = GET_BODY_ASSERT "http://$hostport/"; +ok t_cmp $response, qr/$expected/, "success"; + +ok !t_cmp $logdiff->diff, + qr/content filter was added without a request: includes/, + "shouldn't [error] complain in error_log";
diff --git a/2_0_13/t/filter/out_bbs_ctx.t b/2_0_13/t/filter/out_bbs_ctx.t new file mode 100644 index 0000000..8e16c98 --- /dev/null +++ b/2_0_13/t/filter/out_bbs_ctx.t
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $blocks = 33; +my $invoked = 34; # 33 bb made of data and 1 flush bucket (unbuffered print) + # 1 bb with EOS bucket +my $sig = join "\n", "received $blocks complete blocks", + "filter invoked $invoked times\n"; +my $data = "#" x $blocks . "x" x $blocks; +my $expected = join "\n", $data, $sig; + +{ + # test the filtering of the mod_perl response handler + my $location = '/TestFilter__out_bbs_ctx'; + my $response = GET_BODY $location; + ok t_cmp($response, $expected, "context filter"); +}
diff --git a/2_0_13/t/filter/out_bbs_filebucket.t b/2_0_13/t/filter/out_bbs_filebucket.t new file mode 100644 index 0000000..53cd409 --- /dev/null +++ b/2_0_13/t/filter/out_bbs_filebucket.t
@@ -0,0 +1,47 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use File::Spec::Functions qw(catdir catfile); + +my $url = '/TestFilter__out_bbs_filebucket'; + +my $dir = catdir Apache::Test::vars('documentroot'), qw(filter); + +my @sizes = qw(1 100 500 1000 5000); + +plan tests => 2 * scalar @sizes; + +for my $size (@sizes) { + my ($file, $data) = write_file($size); + my $received = GET_BODY "$url?$file"; + + my $received_size = length $received; + my $expected_size = $size * 1024; + + ok t_cmp length($received), length($data), "length"; + ok $received && $received eq uc($data); + unlink $file; +} + +sub write_file { + my $size = shift; + + my $data = "abcd" x ($size * 256); + + my $file = catfile $dir, "data_${size}k.txt"; + open my $fh, ">$file" or die "can't open $file: $!"; + # need binmode on Win32 so as not to strip \r, which + # are included when sending with sendfile(). + binmode $fh; + print $fh $data; + close $fh; + + return ($file, $data); +} + +
diff --git a/2_0_13/t/filter/out_init_basic.t b/2_0_13/t/filter/out_init_basic.t new file mode 100644 index 0000000..ac879f7 --- /dev/null +++ b/2_0_13/t/filter/out_init_basic.t
@@ -0,0 +1,18 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $content = "content ok\n"; +my $expected = join '', "init 1\n", "run 1\n", $content, "run 2\n"; +# newer Apache versions may make yet another call, so you will see +# "run 3\n" as well. + +my $location = '/TestFilter__out_init_basic'; +my $response = POST_BODY $location, content => $content; +ok t_cmp($response, qr/^$expected/, "test filter init functionality");
diff --git a/2_0_13/t/filter/out_str_buffer.t b/2_0_13/t/filter/out_str_buffer.t new file mode 100644 index 0000000..1b48c82 --- /dev/null +++ b/2_0_13/t/filter/out_str_buffer.t
@@ -0,0 +1,23 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 2; + +my $sep = "-0-"; +my $data = join $sep, "aa" .. "zz"; + +(my $expected = $data) =~ s/$sep//g; +my $expected_len = length $expected; + +my $location = '/TestFilter__out_str_buffer'; +my $res = POST $location, content => $data; +#t_debug $res->as_string; +my $received_len = $res->header('Content-Length') || 0; +ok t_cmp $received_len, $expected_len, "Content-Length header"; +ok t_cmp $res->content, $expected, "filtered data"; +
diff --git a/2_0_13/t/filter/out_str_ctx.t b/2_0_13/t/filter/out_str_ctx.t new file mode 100644 index 0000000..4f1f44b --- /dev/null +++ b/2_0_13/t/filter/out_str_ctx.t
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $blocks = 33; +my $invoked = 67; # 33 bb made of data and 1 flush bucket (unbuffered print) + # 33 bb made of 1 flush bucket (rflush) + # 1 bb with EOS bucket +my $sig = join "\n", "received $blocks complete blocks", + "filter invoked $invoked times\n"; +my $data = "#" x $blocks . "x" x $blocks; +my $expected = join "\n", $data, $sig; + +{ + # test the filtering of the mod_perl response handler + my $location = '/TestFilter__out_str_ctx'; + my $response = GET_BODY $location; + ok t_cmp($response, $expected, "context stream filter"); +}
diff --git a/2_0_13/t/filter/out_str_declined.t b/2_0_13/t/filter/out_str_declined.t new file mode 100644 index 0000000..488cadd --- /dev/null +++ b/2_0_13/t/filter/out_str_declined.t
@@ -0,0 +1,16 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $expected = 11; # 10 flushes and 1 EOS bb + +my $location = '/TestFilter__out_str_declined'; +my $response = GET_BODY $location; +ok t_cmp($response, $expected, "an output filter handler returning DECLINED"); +
diff --git a/2_0_13/t/filter/out_str_lc.t b/2_0_13/t/filter/out_str_lc.t new file mode 100644 index 0000000..710c2e5 --- /dev/null +++ b/2_0_13/t/filter/out_str_lc.t
@@ -0,0 +1,14 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +plan tests => 1, need 'mod_alias'; + +my $location = "/top_dir/Makefile"; + +my $str = GET_BODY $location; + +ok $str !~ /[A-Z]/;
diff --git a/2_0_13/t/filter/out_str_remove.t b/2_0_13/t/filter/out_str_remove.t new file mode 100644 index 0000000..0740136 --- /dev/null +++ b/2_0_13/t/filter/out_str_remove.t
@@ -0,0 +1,15 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $expected = "F_O_O_b_a_r_"; +my $location = '/TestFilter__out_str_remove'; +my $response = GET_BODY $location; +ok t_cmp($response, $expected, "a filter that removes itself"); +
diff --git a/2_0_13/t/filter/out_str_req_eos.t b/2_0_13/t/filter/out_str_req_eos.t new file mode 100644 index 0000000..3e09ee1 --- /dev/null +++ b/2_0_13/t/filter/out_str_req_eos.t
@@ -0,0 +1,21 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1, ['include']; + +my $location = '/TestFilter__out_str_req_eos'; + +my $content = 'BODY'; +my $prefix = 'PREFIX_'; +my $suffix = '_SUFFIX'; + +my $expected = join '', $prefix, $content, $suffix; +my $received = POST_BODY $location, content => $content; + +ok t_cmp($received, $expected, + "testing the EOS bucket forwarding through the mp filters chains");
diff --git a/2_0_13/t/filter/out_str_req_mix.t b/2_0_13/t/filter/out_str_req_mix.t new file mode 100644 index 0000000..d7d839d --- /dev/null +++ b/2_0_13/t/filter/out_str_req_mix.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1, ['include']; + +my $location = '/TestFilter__out_str_req_mix'; + +my $content = '<!--#include virtual="/includes/REMOVEclear.shtml" -->'; + +my $expected = 'This is a clear text'; +my $received = POST_BODY $location, content => $content; +$received =~ s{\r?\n$}{}; + +ok t_cmp($expected, $received, + "mixing output httpd and mod_perl filters, while preserving order");
diff --git a/2_0_13/t/filter/out_str_reverse.t b/2_0_13/t/filter/out_str_reverse.t new file mode 100644 index 0000000..8513dac --- /dev/null +++ b/2_0_13/t/filter/out_str_reverse.t
@@ -0,0 +1,32 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 2; + +my @data = (join('', 'a'..'z'), join('', 0..9)); + +my $reversed_data = join '', map { scalar(reverse $_) . "\n" } @data; +my $normal_data = join '', map { $_ . "\n" } @data; +#t_debug($reversed_data); +my $sig = "Reversed by mod_perl 2.0\n"; +my $expected = $normal_data . $sig; + +{ + # test the filtering of the mod_perl response handler + my $location = '/TestFilter__out_str_reverse'; + my $response = POST_BODY $location, content => $reversed_data; + ok t_cmp($response, $expected, "reverse filter"); +} + +{ + # test the filtering of the non-mod_perl response handler (file) + my $location = '/filter/reverse.txt'; + my $response = GET_BODY $location; + $response =~ s/\r//g; + ok t_cmp($response, $expected, "reverse filter"); +}
diff --git a/2_0_13/t/filter/out_str_subreq_default.t b/2_0_13/t/filter/out_str_subreq_default.t new file mode 100644 index 0000000..1f408e5 --- /dev/null +++ b/2_0_13/t/filter/out_str_subreq_default.t
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; +use Apache::TestConfig (); + +plan tests => 1, need 'mod_alias'; + +my $location = '/TestFilter__out_str_subreq_default'; + +my $content1 = "content\n"; +my $content2 = "more content\n"; +my $filter = "filter\n"; +my $subrequest = "default-handler subrequest\n"; + +my $expected = join '', $content1, $subrequest, $content2, $filter; +my $received = GET_BODY $location; +# Win32 and Cygwin fix for line endings +$received =~ s{\r}{}g if Apache::TestConfig::WIN32 || Apache::TestConfig::CYGWIN; + +ok t_cmp($received, $expected, + "testing filter-originated lookup_uri() call to core served URI");
diff --git a/2_0_13/t/filter/out_str_subreq_modperl.t b/2_0_13/t/filter/out_str_subreq_modperl.t new file mode 100644 index 0000000..9b1a875 --- /dev/null +++ b/2_0_13/t/filter/out_str_subreq_modperl.t
@@ -0,0 +1,22 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1; + +my $location = '/TestFilter__out_str_subreq_modperl'; + +my $content1 = "content\n"; +my $content2 = "more content\n"; +my $filter = "filter\n"; +my $subrequest = "modperl subrequest\n"; + +my $expected = join '', $content1, $subrequest, $content2, $filter; +my $received = GET_BODY $location; + +ok t_cmp($received, $expected, + "testing filter-originated lookup_uri() call to modperl-served URI");
diff --git a/2_0_13/t/filter/with_subrequest.t b/2_0_13/t/filter/with_subrequest.t new file mode 100644 index 0000000..d935316 --- /dev/null +++ b/2_0_13/t/filter/with_subrequest.t
@@ -0,0 +1,13 @@ +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +plan tests => 1, need 'mod_alias'; + +my $location = "/with_subrequest/Makefile"; + +my $str = GET_BODY $location; + +ok $str !~ /[A-Z]/;
diff --git a/2_0_13/t/hooks/TestHooks/access.pm b/2_0_13/t/hooks/TestHooks/access.pm new file mode 100644 index 0000000..e78c974 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/access.pm
@@ -0,0 +1,50 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::access; + +# demonstrates the phases execution (sometimes users claim that +# PerlInitHandler is running more than once +# run with: +# t/TEST -trace=debug -v hooks/access + +use strict; +use warnings FATAL => 'all'; + +use APR::Table (); +use Apache2::Access (); +use Apache2::RequestRec (); +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK FORBIDDEN); + +my $allowed_ips = qr{^(10|127)\.}; + +sub handler { + my $r = shift; + + my $fake_ip = $r->headers_in->get('X-Forwarded-For') || ""; + + debug "access: " . ($fake_ip =~ $allowed_ips ? "OK\n" : "FORBIDDEN\n"); + + return Apache2::Const::FORBIDDEN unless $fake_ip =~ $allowed_ips; + + Apache2::Const::OK; +} + +sub fixup { debug "fixup\n"; Apache2::Const::OK } +sub init { debug "init\n"; Apache2::Const::OK } + +1; +__DATA__ +<NoAutoConfig> +PerlModule TestHooks::access +<Location /TestHooks__access> + PerlAccessHandler TestHooks::access + PerlInitHandler TestHooks::access::init + PerlFixupHandler TestHooks::access::fixup + PerlResponseHandler Apache::TestHandler::ok1 + SetHandler modperl +</Location> +#<Location /> +# PerlAccessHandler TestHooks::access +#</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/authen_basic.pm b/2_0_13/t/hooks/TestHooks/authen_basic.pm new file mode 100644 index 0000000..a7ba01e --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/authen_basic.pm
@@ -0,0 +1,51 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::authen_basic; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Access (); + +use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED SERVER_ERROR); +use constant APACHE24 => have_min_apache_version('2.4.0'); + +sub handler { + my $r = shift; + + my ($rc, $sent_pw) = $r->get_basic_auth_pw; + + return $rc if $rc != Apache2::Const::OK; + + my $user = $r->user; + + # We don't have to check for valid-user in 2.4.0+. If there is bug + # in require valid-user handling, it will result in failed test with + # bad username/password. + if (!APACHE24) { + my $requirement = $r->requires->[0]->{requirement}; + return Apache2::Const::SERVER_ERROR unless $requirement eq 'valid-user'; + } + + unless ($user eq 'dougm' and $sent_pw eq 'foo') { + $r->note_basic_auth_failure; + return Apache2::Const::HTTP_UNAUTHORIZED; + } + + Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> +<Location /TestHooks__authen_basic> + require valid-user + AuthType Basic + AuthName simple + PerlAuthenHandler TestHooks::authen_basic + PerlResponseHandler Apache::TestHandler::ok1 + SetHandler modperl +</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/authen_digest.pm b/2_0_13/t/hooks/TestHooks/authen_digest.pm new file mode 100644 index 0000000..9ccc396 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/authen_digest.pm
@@ -0,0 +1,43 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::authen_digest; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Access (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED); + +sub handler { + + my $r = shift; + + # we don't need to do the entire Digest auth round + # trip just to see if note_digest_auth_failure is + # functioning properly - see authen_digest.t for the + # header checks + if ($r->args) { + $r->note_digest_auth_failure; + return Apache2::Const::HTTP_UNAUTHORIZED; + } + + $r->user("user"); + $r->ap_auth_type("Digest"); + + return Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> +<Location /TestHooks__authen_digest> + PerlAuthenHandler TestHooks::authen_digest + PerlResponseHandler Apache::TestHandler::ok + SetHandler modperl + + require valid-user + AuthType Digest + AuthName "Simple Digest" +</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/authz.pm b/2_0_13/t/hooks/TestHooks/authz.pm new file mode 100644 index 0000000..1134eb3 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/authz.pm
@@ -0,0 +1,48 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::authz; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Access (); + +use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED); + +sub auth_any { + my $self = shift; + my $r = shift; + + my ($res, $sent_pw) = $r->get_basic_auth_pw; + return $res if $res != Apache2::Const::OK; + + unless($r->user and $sent_pw) { + # testing $r->note_auth_failure: + # AuthType Basic + note_auth_failure == note_basic_auth_failure; + $r->note_auth_failure; + return Apache2::Const::HTTP_UNAUTHORIZED; + } + + return Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + my $user = $r->user; + + return Apache2::Const::HTTP_UNAUTHORIZED unless $user; + + return Apache2::Const::HTTP_UNAUTHORIZED unless "dougm" eq $user; + + Apache2::Const::OK; +} + +1; +__DATA__ +require user dougm +AuthType Basic +AuthName simple +PerlModule TestHooks::authz +PerlAuthenHandler TestHooks::authz->auth_any +PerlResponseHandler Apache::TestHandler::ok1 +SetHandler modperl
diff --git a/2_0_13/t/hooks/TestHooks/cleanup.pm b/2_0_13/t/hooks/TestHooks/cleanup.pm new file mode 100644 index 0000000..f493e24 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/cleanup.pm
@@ -0,0 +1,67 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::cleanup; + +# test various ways to assign cleanup handlers + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use File::Spec::Functions qw(catfile); + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); + +use Apache2::Const -compile => qw(OK DECLINED); + +sub get_file { + catfile Apache::Test::vars("documentroot"), "hooks", "cleanup"; +} + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + $r->print('ok'); + $r->pnotes(items => ["cleanup"," ok"]); + $r->push_handlers(PerlCleanupHandler => \&cleanup2); + + return Apache2::Const::OK; +} + +sub cleanup1 { + my $r = shift; + + my $items = $r->pnotes('items'); + die "no items" unless $items; + my $item = $items ? $items->[0] : ''; + #warn "cleanup CALLED\n"; + t_write_file(get_file(), $item); + + return Apache2::Const::OK; +} + +sub cleanup2 { + my $r = shift; + + my $items = $r->pnotes('items'); + my $item = $items ? $items->[1] : ''; + #warn "cleanup2 CALLED\n"; + t_append_file(get_file(), $item); + + return Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> + <Location /TestHooks__cleanup> + SetHandler modperl + PerlCleanupHandler TestHooks::cleanup::cleanup1 + PerlResponseHandler TestHooks::cleanup + </Location> +</NoAutoConfig> +
diff --git a/2_0_13/t/hooks/TestHooks/cleanup2.pm b/2_0_13/t/hooks/TestHooks/cleanup2.pm new file mode 100644 index 0000000..1c68dfa --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/cleanup2.pm
@@ -0,0 +1,58 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::cleanup2; + +# test the cleanup handler removing a temp file + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use File::Spec::Functions qw(catfile); + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use APR::Pool (); + +use Apache2::Const -compile => qw(OK DECLINED); +use APR::Const -compile => 'SUCCESS'; + +my $file = catfile Apache::Test::config->{vars}->{documentroot}, + "hooks", "cleanup2"; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + t_write_file($file, "cleanup2 is ok"); + + my $status = $r->sendfile($file); + die "sendfile has failed" unless $status == APR::Const::SUCCESS; + + $r->pool->cleanup_register(\&cleanup, $file); + + return Apache2::Const::OK; +} + +sub cleanup { + my $file_arg = shift; + + debug_sub "called"; + die "Can't find file: $file_arg" unless -e $file_arg; + unlink $file_arg or die "failed to unlink $file_arg"; + + return Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> + <Location /TestHooks__cleanup2> + SetHandler modperl + PerlResponseHandler TestHooks::cleanup2 + </Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/error.pm b/2_0_13/t/hooks/TestHooks/error.pm new file mode 100644 index 0000000..6ce74fd --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/error.pm
@@ -0,0 +1,44 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::error; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Const -compile => 'OK'; + +use APR::Table (); + +sub handler { + my $r = shift; + my $args = $r->args(); + if (defined($args) && $args ne '') { + $r->notes->set('error-notes' => $args); + } + &bomb(); + Apache2::Const::OK; +} + +sub fail { + my $r = shift; + $r->print('Error: '.$r->prev->notes->get('error-notes')); + Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> + <Location /TestHooks__error> + SetHandler modperl + PerlResponseHandler TestHooks::error + ErrorDocument 500 /TestHooks__error__fail + </Location> + <Location /TestHooks__error__fail> + SetHandler modperl + PerlResponseHandler TestHooks::error::fail + </Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/fixup.pm b/2_0_13/t/hooks/TestHooks/fixup.pm new file mode 100644 index 0000000..80d6fff --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/fixup.pm
@@ -0,0 +1,35 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::fixup; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use APR::Table (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->notes->set(ok => 1); + + Apache2::Const::OK; +} + +sub response { + my $r = shift; + + plan $r, tests => 1; + + ok $r->notes->get('ok'); + + Apache2::Const::OK; +} + +1; +__DATA__ +PerlResponseHandler TestHooks::fixup::response +SetHandler modperl
diff --git a/2_0_13/t/hooks/TestHooks/headerparser.pm b/2_0_13/t/hooks/TestHooks/headerparser.pm new file mode 100644 index 0000000..780bf78 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/headerparser.pm
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::headerparser; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use APR::Table (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->notes->set(headerparser => 'set'); + + Apache2::Const::OK; +} + +sub response { + my $r = shift; + + plan $r, tests => 1; + + ok $r->notes->get('headerparser') eq 'set'; + + Apache2::Const::OK; +} + +1; +__DATA__ +PerlOptions +SetupEnv +PerlResponseHandler TestHooks::headerparser::response +SetHandler modperl
diff --git a/2_0_13/t/hooks/TestHooks/hookrun.pm b/2_0_13/t/hooks/TestHooks/hookrun.pm new file mode 100644 index 0000000..c842ee9 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/hookrun.pm
@@ -0,0 +1,156 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::hookrun; + +# this test runs all Apache phases from within the very first http +# phase + +# XXX: may be improve the test to do a full-blown test, where each +# phase does something useful. + +# see also TestProtocol::pseudo_http + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use Apache2::HookRun (); +use APR::Table (); +use ModPerl::Util (); + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK DECLINED DONE SERVER_ERROR); + +my $path = '/' . Apache::TestRequest::module2path(__PACKAGE__); + +my @phases = qw( + PerlPostReadRequestHandler + PerlTransHandler + PerlMapToStorageHandler + PerlHeaderParserHandler + PerlAccessHandler + PerlAuthenHandler + PerlAuthzHandler + PerlTypeHandler + PerlFixupHandler + PerlResponseHandler + PerlLogHandler +); + +sub post_read_request { + my $r = shift; + my $rc; + + $r->push_handlers(PerlTransHandler => \&any); + $r->push_handlers(PerlMapToStorageHandler => \&any); + $r->push_handlers(PerlHeaderParserHandler => \&any); + $r->push_handlers(PerlAccessHandler => \&any); + $r->push_handlers(PerlAuthenHandler => \&any); + $r->push_handlers(PerlAuthzHandler => \&any); + $r->push_handlers(PerlTypeHandler => \&any); + $r->push_handlers(PerlFixupHandler => \&any); + $r->push_handlers(PerlLogHandler => \&any); + + any($r); # indicate that the post_read_request phase was run + + # for the full Apache logic for running phases starting from + # post_read_request and ending with fixup see + # ap_process_request_internal in httpd-2.0/server/request.c + + $rc = $r->run_translate_name; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + $rc = $r->run_map_to_storage; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + # this must be run all a big havoc will happen in the following + # phases + $r->location_merge($path); + + $rc = $r->run_header_parser; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + my $args = $r->args || ''; + if ($args eq 'die') { + $r->die(Apache2::Const::SERVER_ERROR); + return Apache2::Const::DONE; + } + + $rc = $r->run_access_checker; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + $rc = $r->run_auth_checker; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + $rc = $r->run_check_user_id; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + $rc = $r->run_type_checker; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + $rc = $r->run_fixups; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + # $r->run_handler is called internally by $r->invoke_handler, + # invoke_handler sets all kind of filters, and does a few other + # things but it's possible to call $r->run_handler, bypassing + # invoke_handler + $rc = $r->invoke_handler; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + $rc = $r->run_log_transaction; + return $rc unless $rc == Apache2::Const::OK or $rc == Apache2::Const::DECLINED; + + return Apache2::Const::DONE; + + # Apache runs ap_finalize_request_protocol on return of this + # handler +} + +sub any { + my $r = shift; + + my $callback = ModPerl::Util::current_callback(); + + debug "running $callback\n"; + $r->notes->set($callback => 1); + + # unset the callback that was already run + $r->set_handlers($callback => []); + + Apache2::Const::OK; +} + +sub response { + my $r = shift; + + my @pre_response = (@phases)[0..($#phases-2)]; + plan tests => scalar(@pre_response); + + for my $phase (@pre_response) { + my $note = $r->notes->get($phase); + $r->print("$phase:$note\n"); + } + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +<VirtualHost TestHooks::hookrun> + PerlModule TestHooks::hookrun + PerlPostReadRequestHandler TestHooks::hookrun::post_read_request + <Location /TestHooks__hookrun> + SetHandler modperl + PerlResponseHandler TestHooks::hookrun::response + + AuthName modperl + AuthType none + Require valid-user + </Location> +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/init.pm b/2_0_13/t/hooks/TestHooks/init.pm new file mode 100644 index 0000000..dada6a8 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/init.pm
@@ -0,0 +1,69 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::init; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use APR::Table (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => qw(OK DECLINED); + +sub first { + my $r = shift; + + $r->notes->set(ok1 => 1); + + Apache2::Const::OK; +} + +sub second { + my $r = shift; + + my $ok = $r->notes->get('ok1') || 0; + + $r->notes->set(ok2 => $ok + 1); + + Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + my $ok = $r->notes->get('ok2') || 0; + + $r->notes->set(ok3 => $ok + 1); + + Apache2::Const::DECLINED; +} + +sub response { + my $r = shift; + + my $tests = 3; + plan $r, tests => $tests; + + for my $x (1..$tests) { + my $val = $r->notes->get("ok$x") || 0; + ok $val == $x; + } + + Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> + <VirtualHost TestHooks::init> + PerlModule TestHooks::init + PerlInitHandler TestHooks::init::first + <Location /TestHooks__init> + PerlInitHandler TestHooks::init::second + PerlResponseHandler TestHooks::init + PerlResponseHandler TestHooks::init::response + SetHandler modperl + </Location> + </VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/inlined_handlers.pm b/2_0_13/t/hooks/TestHooks/inlined_handlers.pm new file mode 100644 index 0000000..be25837 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/inlined_handlers.pm
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::inlined_handlers; + +# this test exercises httpd.conf inlined one-liner handlers, like: +# PerlFixupHandler 'sub { use Apache2::Const qw(DECLINED); DECLINED }' +# previously there was a bug in non-ithreaded-perl implementation +# where the cached compiled CODE ref didn't have the reference count +# right. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->print('ok'); + + Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> + <Location /TestHooks__inlined_handlers> + SetHandler modperl + PerlFixupHandler 'sub { use Apache2::Const qw(DECLINED); DECLINED }' + PerlResponseHandler TestHooks::inlined_handlers + </Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/push_handlers.pm b/2_0_13/t/hooks/TestHooks/push_handlers.pm new file mode 100644 index 0000000..2d85f6d --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/push_handlers.pm
@@ -0,0 +1,70 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::push_handlers; + +# test various ways to push handlers + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); + +use Apache2::Const -compile => qw(OK DECLINED DONE); + +sub handler { + my $r = shift; + + $r->handler("modperl"); + + $r->push_handlers(PerlResponseHandler => \&coderef); + $r->push_handlers(PerlResponseHandler => + \&TestHooks::push_handlers::full_coderef); + + $r->push_handlers(PerlResponseHandler => + [\&coderef1, __PACKAGE__.'::coderef2', \&coderef3]); + + $r->push_handlers(PerlResponseHandler => + sub { return say(shift, "anonymous") }); + + $r->push_handlers(PerlResponseHandler => + [sub { return say(shift, "anonymous1") }, + \&coderef4, + sub { return say(shift, "anonymous3") }, + ]); + + $r->push_handlers(PerlResponseHandler => \&end); + + return Apache2::Const::DECLINED; +} + +sub end { return Apache2::Const::DONE } +sub say { shift->print(shift,"\n"); return Apache2::Const::DECLINED } + +sub conf { + # this one is configured from httpd.conf + my $r= shift; + $r->content_type('text/plain'); + return say($r, "conf"); +} + +sub conf1 { return say(shift, "conf1") } +sub conf2 { return say(shift, "conf2") } +sub coderef { return say(shift, "coderef") } +sub coderef1 { return say(shift, "coderef1") } +sub coderef2 { return say(shift, "coderef2") } +sub coderef3 { return say(shift, "coderef3") } +sub coderef4 { return say(shift, "coderef4") } +sub full_coderef { return say(shift, "full_coderef") } + +1; +__DATA__ +<NoAutoConfig> + <Location /TestHooks__push_handlers> + SetHandler modperl + PerlHeaderParserHandler TestHooks::push_handlers + PerlResponseHandler TestHooks::push_handlers::conf + PerlResponseHandler TestHooks::push_handlers::conf1 TestHooks::push_handlers::conf2 + </Location> +</NoAutoConfig> +
diff --git a/2_0_13/t/hooks/TestHooks/push_handlers_anon.pm b/2_0_13/t/hooks/TestHooks/push_handlers_anon.pm new file mode 100644 index 0000000..abfd028 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/push_handlers_anon.pm
@@ -0,0 +1,63 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::push_handlers_anon; + +# in addition to other anon sub handler tests in push_handlers*, here +# we test an anon sub added at the server startup. in order not to mess +# with the rest of the test suite, we run it in its own vhost + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::ServerUtil (); +use APR::Pool (); + +use Apache2::Const -compile => qw(OK DECLINED); + +use Apache::Test; +use Apache::TestUtil; + +sub add_note { + my $r = shift; + + my $count = $r->notes->get("add_note") || 0; + $count++; + $r->notes->set("add_note", $count); + Apache2::Const::DECLINED; +} + +# PerlFixupHandlers added at the server startup should add 3 notes +sub handler { + my $r = shift; + + plan $r, tests => 1; + + my $count = $r->notes->get("add_note") || 0; + ok t_cmp $count, 3, "$count callbacks"; + + Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> +# APACHE_TEST_CONFIG_ORDER 1000 +<VirtualHost TestHooks::push_handlers_anon> + PerlModule TestHooks::push_handlers_anon + <Perl > + my $s = Apache2::PerlSections->server; + + $s->push_handlers(PerlFixupHandler => + sub { &TestHooks::push_handlers_anon::add_note }); + $s->push_handlers(PerlFixupHandler => + \&TestHooks::push_handlers_anon::add_note ); + $s->push_handlers(PerlFixupHandler => + "TestHooks::push_handlers_anon::add_note" ); + </Perl> + + <Location /TestHooks__push_handlers_anon> + SetHandler modperl + PerlResponseHandler TestHooks::push_handlers_anon + </Location> +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/push_handlers_blessed.pm b/2_0_13/t/hooks/TestHooks/push_handlers_blessed.pm new file mode 100644 index 0000000..0a5dd53 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/push_handlers_blessed.pm
@@ -0,0 +1,45 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::push_handlers_blessed; + +# test that we +# - can push and execute blessed anon handlers + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK DECLINED); + +sub handler { + my $r = shift; + + plan $r, tests => 1; + + my $sub = sub { + ok 1; + + return Apache2::Const::OK; + }; + + my $handler = bless $sub, __PACKAGE__; + + $r->push_handlers(PerlResponseHandler => $handler); + + return Apache2::Const::DECLINED; +} + +1; +__DATA__ +<NoAutoConfig> +<Location /TestHooks__push_handlers_blessed> + SetHandler modperl + PerlResponseHandler TestHooks::push_handlers_blessed +</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/push_handlers_same_phase.pm b/2_0_13/t/hooks/TestHooks/push_handlers_same_phase.pm new file mode 100644 index 0000000..6584e12 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/push_handlers_same_phase.pm
@@ -0,0 +1,67 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::push_handlers_same_phase; + +# test that we +# - can push handlers into the same phase that is currently running +# - cannot switch 'perl-script' to 'modperl' and vice versa once +# inside the response phase + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK DECLINED); + +sub handler { + my $r = shift; + + my $counter = $r->notes->get('counter') || 0; + $r->notes->set(counter => $counter+1); + + $r->push_handlers(PerlResponseHandler => \&real_response); + + return Apache2::Const::DECLINED; +} + +sub real_response { + my $r = shift; + + plan $r, tests => 3; + + # test that we don't rerun all the handlers again (it should no + # longer happen as we don't allow switching 'perl-script' <=> + # 'modperl' on the go, but test anyway) + my $counter = $r->notes->get('counter') || 0; + ok t_cmp($counter, 1, + __PACKAGE__ . "::handler must have been called only once"); + + my @handlers = @{ $r->get_handlers('PerlResponseHandler') || []}; + ok t_cmp(scalar(@handlers), + 2, + "there should be 2 response handlers"); + + # once running inside the response phase it shouldn't be possible + # to switch from 'perl-script' to 'modperl' and vice versa + eval { $r->handler("perl-script") }; + ok t_cmp($@, qr/Can't switch from/, + "can't switch from 'perl-script' to 'modperl' inside " . + "the response phase"); + + return Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +<Location /TestHooks__push_handlers_same_phase> + SetHandler modperl + PerlResponseHandler TestHooks::push_handlers_same_phase +</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/set_handlers.pm b/2_0_13/t/hooks/TestHooks/set_handlers.pm new file mode 100644 index 0000000..f64dbf1 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/set_handlers.pm
@@ -0,0 +1,46 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::set_handlers; + +# test various ways to reset/unset handlers list + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); + +use Apache2::Const -compile => qw(OK); + +sub handler { + my $r = shift; + + # the first way to reset the handlers list is to pass undef + # access handler phase will be not called for mp + $r->set_handlers(PerlAccessHandler => undef); + + # the second way to reset the handlers list is to pass [] + # fixup must be not executed + $r->set_handlers(PerlFixupHandler => \&fixup); + $r->set_handlers(PerlFixupHandler => []); + + # normal override + $r->set_handlers(PerlResponseHandler => sub { die "not to be called"}); + $r->set_handlers(PerlResponseHandler => [\&Apache::TestHandler::ok1]); + $r->handler("modperl"); + + return Apache2::Const::OK; +} + +sub fixup { + die "fixup must not be executed"; +} + +1; +__DATA__ +<NoAutoConfig> + <Location /TestHooks__set_handlers> + PerlHeaderParserHandler TestHooks::set_handlers + </Location> +</NoAutoConfig> +
diff --git a/2_0_13/t/hooks/TestHooks/stacked_handlers.pm b/2_0_13/t/hooks/TestHooks/stacked_handlers.pm new file mode 100644 index 0000000..e74a974 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/stacked_handlers.pm
@@ -0,0 +1,70 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::stacked_handlers; + +# this test exercises the execution of the stacked handlers and test +# whether the execution breaks when something different than OK or +# DECLINED is returned + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); + +use Apache2::Const -compile => qw(OK DECLINED DONE); + +sub handler { + my $r = shift; + + $r->handler("modperl"); + $r->push_handlers(PerlResponseHandler => [\&one, \&two, \&three, \&four]); + + return Apache2::Const::OK; +} + +sub one { + my $r = shift; + + $r->content_type('text/plain'); + $r->print("one\n"); + + return Apache2::Const::DECLINED; +} + +sub two { + my $r = shift; + + $r->print("two\n"); + + return Apache2::Const::DECLINED; +} + +sub three { + my $r = shift; + + $r->print("three\n"); + + return Apache2::Const::DONE; +} + +# this one shouldn't get called, because the handler 'three' has +# returned DONE +sub four { + my $r = shift; + + $r->print("four\n"); + + return Apache2::Const::OK; +} + + +1; +__DATA__ +<NoAutoConfig> + <Location /TestHooks__stacked_handlers> + SetHandler modperl + PerlHeaderParserHandler TestHooks::stacked_handlers + </Location> +</NoAutoConfig> +
diff --git a/2_0_13/t/hooks/TestHooks/stacked_handlers2.pm b/2_0_13/t/hooks/TestHooks/stacked_handlers2.pm new file mode 100644 index 0000000..25f1ca7 --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/stacked_handlers2.pm
@@ -0,0 +1,209 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::stacked_handlers2; + +# this test exercises the execution of the stacked handlers +# connection, translation, authen, authz, type, and response +# phases should end for the first handler that returns OK + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); + +use ModPerl::Util (); + +use APR::Table; + +use Apache2::Const -compile => qw(OK DECLINED AUTH_REQUIRED SERVER_ERROR); + +sub ok { + + callback(shift); + + return Apache2::Const::OK; +} + +sub ok_authen { + + my $r = shift; + callback($r); + + $r->user("user"); + $r->ap_auth_type("Basic"); + + return Apache2::Const::OK; +} + +sub declined { + + callback(shift); + + return Apache2::Const::DECLINED; +} + +sub auth_required { + + callback(shift); + + return Apache2::Const::AUTH_REQUIRED; +} + +sub server_error { + + callback(shift); + + return Apache2::Const::SERVER_ERROR; +} + +sub push_handlers { + + my $r = shift; + + $r->push_handlers(PerlFixupHandler => \&ok); + + callback($r); + + return Apache2::Const::OK; +} + +sub callback { + + my $obj = shift; + + my ($r, $callback); + + if ($obj->isa('Apache2::Filter')) { + $r = $obj->r; + $callback = 'PerlOutputFilterHandler'; + } + else { + $r = $obj + } + + $callback ||= ModPerl::Util::current_callback; + + my $count = $r->notes->get($callback) || 0; + + $r->notes->set($callback, ++$count); +} + +sub handler { + + my $r = shift; + + $r->content_type('text/plain'); + + callback($r); + + foreach my $callback (qw(PerlPostReadRequestHandler + PerlTransHandler + PerlMapToStorageHandler + PerlHeaderParserHandler + PerlAccessHandler + PerlAuthenHandler + PerlAuthzHandler + PerlTypeHandler + PerlFixupHandler + PerlResponseHandler)) { + + my $count = $r->notes->get($callback) || 0; + + $r->print("ran $count $callback handlers\n"); + } + + return Apache2::Const::OK; +} + +sub passthru { + my $filter = shift; + + unless ($filter->ctx) { + callback($filter); + $filter->ctx({seen => 1}); + } + + while ($filter->read(my $buffer, 1024)) { + $filter->print($buffer); + } + + # this should be ignored? + Apache2::Const::OK; +} + +sub filter { + my $filter = shift; + + unless ($filter->ctx) { + callback($filter); + $filter->ctx({seen => 1}); + } + + while ($filter->read(my $buffer, 1024)) { + $filter->print($buffer); + } + + if ($filter->seen_eos) { + my $count = $filter->r->notes->get('PerlOutputFilterHandler') || 0; + + $filter->print("ran $count PerlOutputFilterHandler handlers\n"); + } + + # this should be ignored? + Apache2::Const::OK; +} + +1; +__DATA__ +# create a new virtual host so we can test (almost all) all the hooks +<NoAutoConfig> +<VirtualHost TestHooks::stacked_handlers2> + + PerlModule TestHooks::stacked_handlers2 + + # all 2 run + PerlPostReadRequestHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers2::ok + + # 1 run, 1 left behind + PerlTransHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers2::server_error + + # 1 run, 1 left behind + PerlMapToStorageHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers2::server_error + + <Location /TestHooks__stacked_handlers2> + # all 4 run + PerlHeaderParserHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers2::declined + PerlHeaderParserHandler TestHooks::stacked_handlers2::declined TestHooks::stacked_handlers2::ok + + # all 2 run + PerlAccessHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers2::ok + + # 2 run, 1 left behind + PerlAuthenHandler TestHooks::stacked_handlers2::declined TestHooks::stacked_handlers2::ok_authen + PerlAuthenHandler TestHooks::stacked_handlers2::auth_required + + # 2 run, 1 left behind + PerlAuthzHandler TestHooks::stacked_handlers2::declined TestHooks::stacked_handlers2::ok + PerlAuthzHandler TestHooks::stacked_handlers2::auth_required + + # 1 run, 1 left behind + PerlTypeHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers3::server_error + + # all 4 run + PerlFixupHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers2::ok + PerlFixupHandler TestHooks::stacked_handlers2::push_handlers + + # 2 run, 2 left behind + PerlResponseHandler TestHooks::stacked_handlers2::declined TestHooks::stacked_handlers2 + PerlResponseHandler TestHooks::stacked_handlers2::ok TestHooks::stacked_handlers2::server_error + + SetHandler modperl + AuthType Basic + Require valid-user + + PerlOutputFilterHandler TestHooks::stacked_handlers2::passthru TestHooks::stacked_handlers2::filter + </Location> + +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/startup.pm b/2_0_13/t/hooks/TestHooks/startup.pm new file mode 100644 index 0000000..ecceeba --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/startup.pm
@@ -0,0 +1,135 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::startup; + +# test PerlPostConfigHandler and PerlOpenLogsHandler phases +# also test that we can run things on vhost entries from these phases + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; +use Apache::TestTrace; + +use APR::Table; +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use File::Spec::Functions qw(catfile catdir); +use File::Path qw(mkpath); + +use Apache2::Const -compile => 'OK'; + +my $dir = catdir Apache::Test::vars("documentroot"), 'hooks', 'startup'; + +sub open_logs { + my ($conf_pool, $log_pool, $temp_pool, $s) = @_; + + # main server + run("open_logs", $s); + + for (my $vhost_s = $s->next; $vhost_s; $vhost_s = $vhost_s->next) { + my $port = $vhost_s->port; + my $val = $vhost_s->dir_config->{PostConfig}; + # we have one vhost that we want to run open_logs for + next unless $val && $val eq 'VHost'; + run("open_logs", $vhost_s); + } + + Apache2::Const::OK; +} + +sub post_config { + my ($conf_pool, $log_pool, $temp_pool, $s) = @_; + + # main server + run("post_config", $s); + + for (my $vhost_s = $s->next; $vhost_s; $vhost_s = $vhost_s->next) { + my $port = $vhost_s->port; + my $val = $vhost_s->dir_config->{PostConfig}; + # we have one vhost that we want to run post_config for + next unless $val && $val eq 'VHost'; + run("post_config", $vhost_s); + } + + Apache2::Const::OK; +} + +sub run { + my ($phase, $s) = @_; + + my $val = $s->dir_config->{PostConfig} or die "Can't read PostConfig var"; + + # make sure that these are set at the earliest possible time + die '$ENV{MOD_PERL} not set!' unless $ENV{MOD_PERL}; + die '$ENV{MOD_PERL_API_VERSION} not set!' + unless $ENV{MOD_PERL_API_VERSION} == 2; + + my $port = $s->port; + my $file = catfile $dir, "$phase-$port"; + + mkpath $dir, 0, 0755; + open my $fh, ">$file" or die "can't open $file: $!"; + print $fh $val; + close $fh; + + debug "Phase $phase is completed for server at port $port"; +} + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + my $s = $r->server; + my $expected = $s->dir_config->{PostConfig} + or die "Can't read PostConfig var"; + my $port = $s->port; + + for my $phase (qw(open_logs post_config)) { + my $file = catfile $dir, "$phase-$port"; + open my $fh, "$file" or die "can't open $file: $!"; + my $received = <$fh> || ''; + close $fh; + + # can't cleanup the file here, because t/SMOKE may run this + # test more than once, so we cleanup on startup in modperl_extra.pl + # unlink $file; + + if ($expected eq $received) { + $r->print("$phase ok\n"); + } else { + warn "phase: $phase\n"; + warn "port: $port\n"; + warn "expected: $expected\n"; + warn "received: $received\n"; + } + } + Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> +<VirtualHost TestHooks::startup> + PerlSetVar PostConfig VHost + PerlModule TestHooks::startup + PerlPostConfigHandler TestHooks::startup::post_config + PerlOpenLogsHandler TestHooks::startup::open_logs + <Location /TestHooks__startup> + SetHandler modperl + PerlResponseHandler TestHooks::startup + </Location> +</VirtualHost> +PerlSetVar PostConfig Main +PerlModule TestHooks::startup +PerlPostConfigHandler TestHooks::startup::post_config +PerlOpenLogsHandler TestHooks::startup::open_logs +<Location /TestHooks__startup> + SetHandler modperl + PerlResponseHandler TestHooks::startup +</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/TestHooks/trans.pm b/2_0_13/t/hooks/TestHooks/trans.pm new file mode 100644 index 0000000..279fd5c --- /dev/null +++ b/2_0_13/t/hooks/TestHooks/trans.pm
@@ -0,0 +1,49 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestHooks::trans; + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestConfig (); + +use Apache2::RequestRec (); + +use Apache2::Const -compile => qw(OK DECLINED); + +my %trans = ( + '/TestHooks/trans.pm' => sub { + my $r = shift; + $r->filename(__FILE__); + Apache2::Const::OK; + }, + '/phooey' => sub { + my $r = shift; + $r->filename(__FILE__); #filename is currently required + $r->uri('/TestHooks::trans'); + Apache2::Const::OK; + }, +); + +sub handler { + my $r = shift; + + my $uri = $r->uri; + + my $handler = $trans{ $uri }; + + return Apache2::Const::DECLINED unless $handler; + + $handler->($r); +} + +1; +__DATA__ +<NoAutoConfig> + <VirtualHost TestHooks::trans> + PerlTransHandler TestHooks::trans + <Location /TestHooks__trans> + PerlResponseHandler Apache::TestHandler::ok1 + SetHandler modperl + </Location> + </VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/hooks/access.t b/2_0_13/t/hooks/access.t new file mode 100644 index 0000000..3266a3c --- /dev/null +++ b/2_0_13/t/hooks/access.t
@@ -0,0 +1,22 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +plan tests => 4, need 'HTML::HeadParser'; + +my $location = "/TestHooks__access"; + +ok ! GET_OK $location; + +my $rc = GET_RC $location; + +ok $rc == 403; + +ok GET_OK $location, 'X-Forwarded-For' => '127.0.0.1'; + +ok ! GET_OK $location, 'X-Forwarded-For' => '666.0.0.1'; + +
diff --git a/2_0_13/t/hooks/authen_basic.t b/2_0_13/t/hooks/authen_basic.t new file mode 100644 index 0000000..759d010 --- /dev/null +++ b/2_0_13/t/hooks/authen_basic.t
@@ -0,0 +1,34 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +plan tests => 4, need need_lwp, need_auth, 'HTML::HeadParser'; + +my $location = "/TestHooks__authen_basic"; + +sok { + ! GET_OK $location; +}; + +sok { + my $rc = GET_RC $location; + $rc == 401; +}; + +sok { + GET_OK $location, username => 'dougm', password => 'foo'; +}; + +# since LWP 5.815, the user agent retains credentials +# tell Apache::TestRequest to reinitialize its global agent +Apache::TestRequest::user_agent(reset => 1); + +sok { + ! GET_OK $location, username => 'dougm', password => 'wrong'; +}; + + +
diff --git a/2_0_13/t/hooks/authen_digest.t b/2_0_13/t/hooks/authen_digest.t new file mode 100644 index 0000000..3bc9c97 --- /dev/null +++ b/2_0_13/t/hooks/authen_digest.t
@@ -0,0 +1,52 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 7, need need_lwp, 'auth_digest', 'HTML::HeadParser'; + +my $location = '/TestHooks__authen_digest'; + +{ + my $response = GET $location; + + ok t_cmp($response->code, + 200, + 'handler returned HTTP_OK'); + + my $wwwauth = $response->header('WWW-Authenticate'); + + t_debug('response had no WWW-Authenticate header'); + ok (!$wwwauth); +} + +{ + my $response = GET "$location?fail"; + + ok t_cmp($response->code, + 401, + 'handler returned HTTP_UNAUTHORIZED'); + + my $wwwauth = $response->header('WWW-Authenticate'); + + t_debug('response had a WWW-Authenticate header'); + ok ($wwwauth); + + ok t_cmp($wwwauth, + qr/^Digest/, + 'response is using Digest authentication scheme'); + + ok t_cmp($wwwauth, + qr/realm="Simple Digest"/, + 'WWW-Authenticate header contains the proper realm'); + + ok t_cmp($wwwauth, + qr/nonce="/, + 'WWW-Authenticate header contains a nonce'); + + # other fields, such as qop, are added only if add additional + # configuration directives, such as AuthDigestQop +}
diff --git a/2_0_13/t/hooks/authz.t b/2_0_13/t/hooks/authz.t new file mode 100644 index 0000000..5ad3b8e --- /dev/null +++ b/2_0_13/t/hooks/authz.t
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; + +plan tests => 4, need need_lwp, 'HTML::HeadParser'; + +my $location = "/TestHooks__authz"; + +ok ! GET_OK $location; + +my $rc = GET_RC $location; + +ok $rc == 401; + +ok GET_OK $location, username => 'dougm', password => 'foo'; + +# since LWP 5.815, the user agent retains credentials +# tell Apache::TestRequest to reinitialize its global agent +Apache::TestRequest::user_agent(reset => 1); + +ok ! GET_OK $location, username => 'jobbob', password => 'whatever'; + +
diff --git a/2_0_13/t/hooks/cleanup.t b/2_0_13/t/hooks/cleanup.t new file mode 100644 index 0000000..d47554b --- /dev/null +++ b/2_0_13/t/hooks/cleanup.t
@@ -0,0 +1,55 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use File::Spec::Functions qw(catfile catdir); + +use constant SIZE => 10; +use constant TRIES => 20; + +my $file = catfile Apache::Test::vars("documentroot"), "hooks", "cleanup"; + +plan tests => 2; + +{ + # this registers and performs cleanups, but we test whether the + # cleanup was run only in the next sub-test + my $location = "/TestHooks__cleanup"; + my $expected = 'ok'; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "register req cleanup"); +} + +{ + # this sub-tests checks that the cleanup stage was run successfully + + # since Apache destroys the request rec after the logging has been + # finished, we have to give it some time to get there + # and fill in the file. (wait 0.25 .. 5 sec) + my $t = 0; + select undef, undef, undef, 0.25 + until -e $file && -s _ == SIZE || $t++ == TRIES; + + unless (-e $file) { + t_debug("can't find $file"); + ok 0; + } + else { + open my $fh, $file or die "Can't open $file: $!"; + my $received = <$fh> || ''; + close $fh; + my $expected = "cleanup ok"; + ok t_cmp($received, $expected, "verify req cleanup execution"); + + # XXX: while Apache::TestUtil fails to cleanup by itself + unlink $file; + } + +} + + +
diff --git a/2_0_13/t/hooks/cleanup2.t b/2_0_13/t/hooks/cleanup2.t new file mode 100644 index 0000000..fcd9e74 --- /dev/null +++ b/2_0_13/t/hooks/cleanup2.t
@@ -0,0 +1,53 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use File::Spec::Functions qw(catfile catdir); + +use constant TRIES => 20; + +my $vars = Apache::Test::config->{vars}; +my $dir = catdir $vars->{documentroot}, "hooks"; +my $file = catfile $dir, "cleanup2"; + +plan tests => 2; + +{ + # cleanup, just to make sure we start with virgin state + if (-e $file) { + unlink $file or die "Couldn't remove $file"; + } + # this registers and performs cleanups, but we test whether the + # cleanup was run only in the next sub-test + my $location = "/TestHooks__cleanup2"; + my $expected = 'cleanup2 is ok'; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "register req cleanup"); +} + +{ + # this sub-tests checks that the cleanup stage was run successfully + # which is supposed to remove the file that was created + # + # since Apache destroys the request rec after the logging has been + # finished, we have to give it some time to get there + # and remove in the file. (wait 0.25 .. 5 sec) + my $t = 0; + select undef, undef, undef, 0.25 until !-e $file || $t++ == TRIES; + + if (-e $file) { + t_debug("$file wasn't removed by the cleanup phase"); + ok 0; + unlink $file; # cleanup + } + else { + ok 1; + } +} + + +
diff --git a/2_0_13/t/hooks/error.t b/2_0_13/t/hooks/error.t new file mode 100644 index 0000000..160d43a --- /dev/null +++ b/2_0_13/t/hooks/error.t
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 2; + +{ + my $location = "/TestHooks__error"; + my $expected = qr/^Error: Undefined subroutine/; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "error-notes set on ErrorDocument"); +} + +{ + my $error_seed_text = 'seed_text'; + my $location = "/TestHooks__error?$error_seed_text"; + my $expected = qr/^Error: \Q$error_seed_text\E, Undefined subroutine/; + my $received = GET_BODY $location; + ok t_cmp($received, $expected, "seeded error-notes set on ErrorDocument"); +}
diff --git a/2_0_13/t/hooks/hookrun.t b/2_0_13/t/hooks/hookrun.t new file mode 100644 index 0000000..d1c44f1 --- /dev/null +++ b/2_0_13/t/hooks/hookrun.t
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $module = 'TestHooks::hookrun'; +my $config = Apache::Test::config(); +my $path = Apache::TestRequest::module2path($module); + +Apache::TestRequest::module($module); +my $hostport = Apache::TestRequest::hostport($config); +t_debug("connecting to $hostport"); + +plan tests => 10; + +my $ret = GET "http://$hostport/$path?die"; +ok t_cmp $ret->code, 500, '$r->die'; + +my $body = GET_BODY_ASSERT "http://$hostport/$path?normal"; +for my $line (split /\n/, $body) { + my ($phase, $value) = split /:/, $line; + ok t_cmp $value, 1, "$phase"; +}
diff --git a/2_0_13/t/hooks/init.t b/2_0_13/t/hooks/init.t new file mode 100644 index 0000000..e7355ae --- /dev/null +++ b/2_0_13/t/hooks/init.t
@@ -0,0 +1,17 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY_ASSERT); +use Apache::Test; +use Apache::TestUtil; + +my $module = 'TestHooks::init'; + +Apache::TestRequest::module($module); +my $path = Apache::TestRequest::module2path($module); +my $config = Apache::Test::config(); +my $hostport = Apache::TestRequest::hostport($config); +t_debug("connecting to $hostport"); + +print GET_BODY_ASSERT "http://$hostport/$path";
diff --git a/2_0_13/t/hooks/inlined_handlers.t b/2_0_13/t/hooks/inlined_handlers.t new file mode 100644 index 0000000..2aa7f6d --- /dev/null +++ b/2_0_13/t/hooks/inlined_handlers.t
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +use TestCommon::SameInterp; + +plan tests => 2, need 'HTML::HeadParser'; + +my $location = "/TestHooks__inlined_handlers"; + +my $expected = "ok"; +for (1..2) { + my $received = GET $location; + + ok t_cmp( + $received->content, + $expected, + "anonymous handlers in httpd.conf test", + ); +} +
diff --git a/2_0_13/t/hooks/push_handlers.t b/2_0_13/t/hooks/push_handlers.t new file mode 100644 index 0000000..c4656b6 --- /dev/null +++ b/2_0_13/t/hooks/push_handlers.t
@@ -0,0 +1,21 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my @refs = qw(conf conf1 conf2 coderef + full_coderef coderef1 coderef2 coderef3); +my @anon = qw(anonymous anonymous1 coderef4 anonymous3); + +my @strings = (@refs, @anon); + +my $location = "/TestHooks__push_handlers"; +my $expected = join "\n", @strings, ''; +my $received = GET_BODY $location; + +ok t_cmp($received, $expected, "push_handlers ways");
diff --git a/2_0_13/t/hooks/push_handlers_anon.t b/2_0_13/t/hooks/push_handlers_anon.t new file mode 100644 index 0000000..5c39d92 --- /dev/null +++ b/2_0_13/t/hooks/push_handlers_anon.t
@@ -0,0 +1,12 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# the handler is configured in modperl_extra.pl via +# Apache2::ServerUtil->server->add_config + +use Apache::TestUtil; +use Apache::TestRequest 'GET_BODY_ASSERT'; + +my $module = 'TestHooks::push_handlers_anon'; +my $url = Apache::TestRequest::module2url($module); + +t_debug("connecting to $url"); +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/hooks/stacked_handlers.t b/2_0_13/t/hooks/stacked_handlers.t new file mode 100644 index 0000000..6d6f242 --- /dev/null +++ b/2_0_13/t/hooks/stacked_handlers.t
@@ -0,0 +1,15 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1; + +my $location = "/TestHooks__stacked_handlers"; +my $expected = join "\n", qw(one two three), ''; +my $received = GET_BODY $location; + +ok t_cmp($received, $expected, "stacked_handlers");
diff --git a/2_0_13/t/hooks/stacked_handlers2.t b/2_0_13/t/hooks/stacked_handlers2.t new file mode 100644 index 0000000..9c29d12 --- /dev/null +++ b/2_0_13/t/hooks/stacked_handlers2.t
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest; +use Apache::Test; +use Apache::TestUtil; + +my $module = "TestHooks::stacked_handlers2"; +Apache::TestRequest::module($module); + +my $config = Apache::Test::config(); +my $hostport = Apache::TestRequest::hostport($config); +my $path = Apache::TestRequest::module2path($module); + +my $location = "http://$hostport/$path"; + +t_debug("connecting to $location"); + +plan tests => 1; + +my $expected = q!ran 2 PerlPostReadRequestHandler handlers +ran 1 PerlTransHandler handlers +ran 1 PerlMapToStorageHandler handlers +ran 4 PerlHeaderParserHandler handlers +ran 2 PerlAccessHandler handlers +ran 2 PerlAuthenHandler handlers +ran 2 PerlAuthzHandler handlers +ran 1 PerlTypeHandler handlers +ran 4 PerlFixupHandler handlers +ran 2 PerlResponseHandler handlers +ran 2 PerlOutputFilterHandler handlers!; + +chomp(my $received = GET_BODY_ASSERT $location); + +ok t_cmp($received, $expected, "stacked_handlers");
diff --git a/2_0_13/t/hooks/startup.t b/2_0_13/t/hooks/startup.t new file mode 100644 index 0000000..7e2c218 --- /dev/null +++ b/2_0_13/t/hooks/startup.t
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $config = Apache::Test::config(); +my $path = Apache::TestRequest::module2path('TestHooks::startup'); + +my @modules = qw(default TestHooks::startup); + +plan tests => scalar @modules; + +my $expected = join '', "open_logs ok\n", "post_config ok\n"; + +for my $module (sort @modules) { + + Apache::TestRequest::module($module); + my $hostport = Apache::TestRequest::hostport($config); + t_debug("connecting to $hostport"); + + ok t_cmp(GET_BODY_ASSERT("http://$hostport/$path"), + $expected, + "testing PostConfig"); +} +
diff --git a/2_0_13/t/hooks/trans.t b/2_0_13/t/hooks/trans.t new file mode 100644 index 0000000..95b21e9 --- /dev/null +++ b/2_0_13/t/hooks/trans.t
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use Apache2::Const ':common'; + +my $module = 'TestHooks::trans'; +Apache::TestRequest::module($module); +my $path = Apache::TestRequest::module2path($module); +my $config = Apache::Test::config(); +my $hostport = Apache::TestRequest::hostport($config); +t_debug("connecting to $hostport"); + +plan tests => 3, need 'HTML::HeadParser'; + +t_client_log_error_is_expected(); +ok t_cmp GET_RC("http://$hostport/nope"), NOT_FOUND; + +my $body = GET_BODY "http://$hostport/TestHooks/trans.pm"; + +ok $body =~ /package $module/; + +ok GET_OK "http://$hostport/phooey";
diff --git a/2_0_13/t/htdocs/TestAPI__add_config/htaccess b/2_0_13/t/htdocs/TestAPI__add_config/htaccess new file mode 100644 index 0000000..cd9bed1 --- /dev/null +++ b/2_0_13/t/htdocs/TestAPI__add_config/htaccess
@@ -0,0 +1 @@ +TestAddConfig Htaccess
diff --git a/2_0_13/t/htdocs/api/auth-groups b/2_0_13/t/htdocs/api/auth-groups new file mode 100644 index 0000000..90f5994 --- /dev/null +++ b/2_0_13/t/htdocs/api/auth-groups
@@ -0,0 +1,2 @@ +bar: goo bar +tar: mar far
diff --git a/2_0_13/t/htdocs/api/auth-users b/2_0_13/t/htdocs/api/auth-users new file mode 100644 index 0000000..272a21b --- /dev/null +++ b/2_0_13/t/htdocs/api/auth-users
@@ -0,0 +1,2 @@ +goo:$apr1$g.mxW/..$p8ILT9D4345OO6vtYt8mT0 +bar:$apr1$ALRiO/..$GxXWAshiDKPmFGUA7r66e/
diff --git a/2_0_13/t/htdocs/api/custom_response.txt b/2_0_13/t/htdocs/api/custom_response.txt new file mode 100644 index 0000000..f9e84f1 --- /dev/null +++ b/2_0_13/t/htdocs/api/custom_response.txt
@@ -0,0 +1 @@ +This is a custom file/url response
diff --git a/2_0_13/t/htdocs/api/slurp.pl b/2_0_13/t/htdocs/api/slurp.pl new file mode 100644 index 0000000..43adae0 --- /dev/null +++ b/2_0_13/t/htdocs/api/slurp.pl
@@ -0,0 +1,6 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +my $z = <<EOI; +English: Internet +Hebrew : \x{05D0}\x{05D9}\x{05E0}\x{05D8}\x{05E8}\x{05E0}\x{05D8} +EOI +$z;
diff --git a/2_0_13/t/htdocs/filter/reverse.txt b/2_0_13/t/htdocs/filter/reverse.txt new file mode 100644 index 0000000..7ca9d67 --- /dev/null +++ b/2_0_13/t/htdocs/filter/reverse.txt
@@ -0,0 +1,2 @@ +zyxwvutsrqponmlkjihgfedcba +9876543210
diff --git a/2_0_13/t/htdocs/filter/subrequest.txt b/2_0_13/t/htdocs/filter/subrequest.txt new file mode 100644 index 0000000..93dfba3 --- /dev/null +++ b/2_0_13/t/htdocs/filter/subrequest.txt
@@ -0,0 +1 @@ +default-handler subrequest
diff --git a/2_0_13/t/htdocs/includes-registry/cgipm.pl b/2_0_13/t/htdocs/includes-registry/cgipm.pl new file mode 100755 index 0000000..1f2b824 --- /dev/null +++ b/2_0_13/t/htdocs/includes-registry/cgipm.pl
@@ -0,0 +1,11 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache2::compat (); +use CGI (); + +my $cgi = CGI->new; + +print $cgi->header; + +print "cgi.pm\n"; + +__END__
diff --git a/2_0_13/t/htdocs/includes-registry/test.pl b/2_0_13/t/htdocs/includes-registry/test.pl new file mode 100755 index 0000000..87d29cc --- /dev/null +++ b/2_0_13/t/htdocs/includes-registry/test.pl
@@ -0,0 +1,4 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +print "Content-type: text/html\n\n"; + +print "Hello World<br>\n";
diff --git a/2_0_13/t/htdocs/includes-registry/test.spl b/2_0_13/t/htdocs/includes-registry/test.spl new file mode 100755 index 0000000..6ce1195 --- /dev/null +++ b/2_0_13/t/htdocs/includes-registry/test.spl
@@ -0,0 +1,23 @@ +use strict; + +#XXX: this test needs to be more robust. +#various output buffers spread across multiple prints +#more mod_include features mixed and checking that the output +#is *exactly* what we expected, not just matching a few patterns. + +print "Content-type: text/html\n\n"; + +my $r = shift; + +my $test_string = 'Perl-SSI'; + +$r->subprocess_env->set(MY_TEST => $test_string); + +print <<EOF; +Hello World from <!--#echo var="SERVER_ADMIN" --><br> +Local date is <!--#echo var="DATE_LOCAL" --><br> +Brought to you by <!--#echo var="MY_TEST" --> +<!--#echo var="SERVER_SOFTWARE" --> +<br> +EOF +
diff --git a/2_0_13/t/htdocs/includes/clear.shtml b/2_0_13/t/htdocs/includes/clear.shtml new file mode 100644 index 0000000..a636c08 --- /dev/null +++ b/2_0_13/t/htdocs/includes/clear.shtml
@@ -0,0 +1 @@ +This is a REMOVEclear text
diff --git a/2_0_13/t/htdocs/includes/footer.shtml b/2_0_13/t/htdocs/includes/footer.shtml new file mode 100644 index 0000000..cc8ce24 --- /dev/null +++ b/2_0_13/t/htdocs/includes/footer.shtml
@@ -0,0 +1,2 @@ +<hr> +<h5>footer</h5>
diff --git a/2_0_13/t/htdocs/includes/header.shtml b/2_0_13/t/htdocs/includes/header.shtml new file mode 100644 index 0000000..f595ab0 --- /dev/null +++ b/2_0_13/t/htdocs/includes/header.shtml
@@ -0,0 +1,7 @@ +<html> +<head> +<title><!--#echo var="QUERY_STRING" --></title> +<meta http-equiv="Content-Type" content="text/html"> +</head> + +<h1><!--#echo var="QUERY_STRING" --></h1>
diff --git a/2_0_13/t/htdocs/includes/test.shtml b/2_0_13/t/htdocs/includes/test.shtml new file mode 100644 index 0000000..ee62d73 --- /dev/null +++ b/2_0_13/t/htdocs/includes/test.shtml
@@ -0,0 +1,9 @@ +<!--#include virtual="/includes/header.shtml?mod_perl mod_include test" --> + +<!--#include virtual="/includes-registry/test.pl" --> + +<!--#include virtual="/includes-registry/cgipm.pl" --> + +<p align=right>[<a href="../index.html">back</a>]</p> + +<!--#include virtual="/includes/footer.shtml" -->
diff --git a/2_0_13/t/htdocs/merge3/htaccess b/2_0_13/t/htdocs/merge3/htaccess new file mode 100644 index 0000000..3182b66 --- /dev/null +++ b/2_0_13/t/htdocs/merge3/htaccess
@@ -0,0 +1,6 @@ +# htaccess file for t/response/TestModperl/merge.pm + +PerlSetEnv MergeSetEnv3 SetEnv3Merge3Val +PerlSetVar MergeSetVar3 SetVar3Merge3Val +PerlSetVar MergeAddVar3 AddVar3Merge3Val1 +PerlAddVar MergeAddVar3 AddVar3Merge3Val2
diff --git a/2_0_13/t/htdocs/modperl/setupenv2/config_require.pl b/2_0_13/t/htdocs/modperl/setupenv2/config_require.pl new file mode 100644 index 0000000..c1a7709 --- /dev/null +++ b/2_0_13/t/htdocs/modperl/setupenv2/config_require.pl
@@ -0,0 +1,6 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +TestModperl::setupenv2::register_mixed(); +TestModperl::setupenv2::register_perl(); +$ENV{EnvChangeMixedTest} = "config_require"; +$ENV{EnvChangePerlTest} = "config_require"; +1;
diff --git a/2_0_13/t/htdocs/modperl/setupenv2/module.pm b/2_0_13/t/htdocs/modperl/setupenv2/module.pm new file mode 100644 index 0000000..df7c5f2 --- /dev/null +++ b/2_0_13/t/htdocs/modperl/setupenv2/module.pm
@@ -0,0 +1,7 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package htdocs::modperl::setupenv2::module; +TestModperl::setupenv2::register_mixed(); +TestModperl::setupenv2::register_perl(); +$ENV{EnvChangeMixedTest} = "perlmodule"; +$ENV{EnvChangePerlTest} = "perlmodule"; +1;
diff --git a/2_0_13/t/htdocs/modperl/setupenv2/post_config_require.pl b/2_0_13/t/htdocs/modperl/setupenv2/post_config_require.pl new file mode 100644 index 0000000..d75fefb --- /dev/null +++ b/2_0_13/t/htdocs/modperl/setupenv2/post_config_require.pl
@@ -0,0 +1,6 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +TestModperl::setupenv2::register_mixed(); +TestModperl::setupenv2::register_perl(); +$ENV{EnvChangeMixedTest} = "post_config_require"; +$ENV{EnvChangePerlTest} = "post_config_require"; +1;
diff --git a/2_0_13/t/htdocs/modperl/setupenv2/require.pl b/2_0_13/t/htdocs/modperl/setupenv2/require.pl new file mode 100644 index 0000000..417f471 --- /dev/null +++ b/2_0_13/t/htdocs/modperl/setupenv2/require.pl
@@ -0,0 +1,6 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +TestModperl::setupenv2::register_mixed(); +TestModperl::setupenv2::register_perl(); +$ENV{EnvChangeMixedTest} = "require"; +$ENV{EnvChangePerlTest} = "require"; +1;
diff --git a/2_0_13/t/htdocs/perlio/MoonRise.jpeg b/2_0_13/t/htdocs/perlio/MoonRise.jpeg new file mode 100644 index 0000000..5a57b91 --- /dev/null +++ b/2_0_13/t/htdocs/perlio/MoonRise.jpeg Binary files differ
diff --git a/2_0_13/t/htdocs/perlio/redrum.txt b/2_0_13/t/htdocs/perlio/redrum.txt new file mode 100644 index 0000000..e0e634d --- /dev/null +++ b/2_0_13/t/htdocs/perlio/redrum.txt
@@ -0,0 +1,8 @@ +ALL wORk and NO play mAKes Jack A dull BoY. +ALl WORK and no plAy makEs JaCk a dULl boY. +All wORk AND no PLAy mAkes JACk A DULL boy. +AlL WORK and nO play MAKES JacK a dUlL bOy. +ALL wOrK ANd no PLAY makes JACk A dULl Boy. +All woRk and NO play mAKes Jack a Dull BOY. +alL work and no pLaY makeS JaCk a dull boy. +aLL wORK aND nO pLAY mAKES Jack A dULL bOY.
diff --git a/2_0_13/t/htdocs/protocols/basic-auth b/2_0_13/t/htdocs/protocols/basic-auth new file mode 100644 index 0000000..afb4872 --- /dev/null +++ b/2_0_13/t/htdocs/protocols/basic-auth
@@ -0,0 +1 @@ +stas:$apr1$qnKIk...$TRSGo5zlwo3LMc0R/iLWo/
diff --git a/2_0_13/t/htdocs/vhost/post_config.pl b/2_0_13/t/htdocs/vhost/post_config.pl new file mode 100644 index 0000000..472f80f --- /dev/null +++ b/2_0_13/t/htdocs/vhost/post_config.pl
@@ -0,0 +1,9 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache2::ServerUtil (); + +$TestVhost::config::restart_count = Apache2::ServerUtil::restart_count(); + +1;
diff --git a/2_0_13/t/htdocs/vhost/startup.pl b/2_0_13/t/htdocs/vhost/startup.pl new file mode 100644 index 0000000..ae156e6 --- /dev/null +++ b/2_0_13/t/htdocs/vhost/startup.pl
@@ -0,0 +1,34 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use warnings; +use strict; + +use Apache2::ServerUtil (); +use Apache2::ServerRec (); + +use File::Spec::Functions qw(catdir); + +# base server +# XXX: at the moment this is wrong, since it return the base server $s +# and not the vhost's one. needs to be fixed. +my $s = Apache2::ServerUtil->server; + +my $vhost_doc_root = catdir Apache2::ServerUtil::server_root, qw(htdocs vhost); + +# testing $s->add_config() in vhost +my $conf = <<"EOC"; +# must use PerlModule here to check for segfaults +# and that the module is loaded by vhost +PerlModule TestVhost::config +PerlSetVar DocumentRootCheck $vhost_doc_root +<Location /TestVhost__config> + SetHandler modperl + PerlResponseHandler TestVhost::config::my_handler +</Location> +EOC + +$s->add_config([split /\n/, $conf]); + +# this used to have problems on win32 +$s->add_config(['<Perl >', '1;', '</Perl>']); + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/base64.pm b/2_0_13/t/lib/TestAPRlib/base64.pm new file mode 100644 index 0000000..1867a4a --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/base64.pm
@@ -0,0 +1,34 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::base64; + +# testing APR::Base64 API + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Base64; + +sub num_of_tests { + return 3; +} + +sub test { + + my $str = '12345qwert!@#$%'; + my $encoded = APR::Base64::encode($str); + + t_debug("encoded string: $encoded"); + ok t_cmp($encoded, 'MTIzNDVxd2VydCFAIyQl', 'encode'); + + ok t_cmp(APR::Base64::encode_len(length $str), + length $encoded, + "encoded length"); + + ok t_cmp(APR::Base64::decode($encoded), $str, "decode"); + +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/brigade.pm b/2_0_13/t/lib/TestAPRlib/brigade.pm new file mode 100644 index 0000000..5fdcc4c --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/brigade.pm
@@ -0,0 +1,107 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::brigade; + +# testing APR::Brigade in this tests. +# Other tests do that too: +# TestAPR::flatten : flatten() +# TestAPR::bucket : is_empty(), first(), last() + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Pool (); +use APR::Brigade (); +use APR::Bucket (); +use APR::BucketAlloc (); + +use Apache2::Const -compile => 'OK'; + +sub num_of_tests { + return 14; +} + +sub test { + + my $p = APR::Pool->new(); + my $ba = APR::BucketAlloc->new($p); + + # basic + pool + destroy + { + my $bb = APR::Brigade->new($p, $ba); + + t_debug('$bb is defined'); + ok defined $bb; + + t_debug('$bb ISA APR::Brigade object'); + ok $bb->isa('APR::Brigade'); + + my $pool = $bb->pool; + + t_debug('$pool is defined'); + ok defined $pool; + + t_debug('$pool ISA APR::Pool object'); + ok $pool->isa('APR::Pool'); + + t_debug("destroy"); + $bb->destroy; + ok 1; + } + + # concat / split / length / flatten + { + my $bb1 = APR::Brigade->new($p, $ba); + $bb1->insert_head(APR::Bucket->new($ba, "11")); + $bb1->insert_tail(APR::Bucket->new($ba, "12")); + + my $bb2 = APR::Brigade->new($p, $ba); + $bb2->insert_head(APR::Bucket->new($ba, "21")); + $bb2->insert_tail(APR::Bucket->new($ba, "22")); + + # concat + $bb1->concat($bb2); + # bb1: 11, 12, 21, 22 + ok t_cmp($bb1->length, 8, "total data length in bb"); + my $len = $bb1->flatten(my $data); + ok t_cmp($len, 8, "bb flatten/len"); + ok t_cmp($data, "11122122", "bb flatten/data"); + t_debug('$bb2 is empty'); + ok $bb2->is_empty; + + # split + my $b = $bb1->first; # 11 + $b = $bb1->next($b); # 12 + my $bb3 = $bb1->split($b); + + # bb1: 11, bb3: 12, 21, 22 + $len = $bb1->flatten($data); + ok t_cmp($len, 2, "bb1 flatten/len"); + ok t_cmp($data, "11", "bb1 flatten/data"); + $len = $bb3->flatten($data); + ok t_cmp($len, 6, "bb3 flatten/len"); + ok t_cmp($data, "122122", "bb3 flatten/data"); + } + + # out-of-scope pools + { + my $bb1 = APR::Brigade->new(APR::Pool->new, $ba); + $bb1->insert_head(APR::Bucket->new($ba, "11")); + $bb1->insert_tail(APR::Bucket->new($ba, "12")); + + # try to overwrite the temp pool data + require APR::Table; + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + # now test that we are still OK + + my $len = $bb1->flatten(my $data); + ok t_cmp($data, "1112", "correct data"); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/bucket.pm b/2_0_13/t/lib/TestAPRlib/bucket.pm new file mode 100644 index 0000000..2e9b542 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/bucket.pm
@@ -0,0 +1,211 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::bucket; + +# a mix of APR::Bucket and APR::BucketType tests + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use TestCommon::Utils; + +use APR::Pool (); +use APR::Bucket (); +use APR::BucketAlloc (); +use APR::BucketType (); +use APR::Table (); + +use APR::Const -compile => 'SUCCESS'; + +sub num_of_tests { + return 21; +} + +sub test { + + my $pool = APR::Pool->new(); + my $ba = APR::BucketAlloc->new($pool); + + # new: basic + { + my $data = "foobar"; + my $b = APR::Bucket->new($ba, $data); + + t_debug('$b is defined'); + ok defined $b; + + t_debug('$b ISA APR::Bucket object'); + ok $b->isa('APR::Bucket'); + + my $type = $b->type; + ok t_cmp $type->name, 'mod_perl SV bucket', "type"; + + ok t_cmp $b->length, length($data), "modperl b->length"; + } + + # new: offset + { + my $data = "foobartar"; + my $offset = 3; + my $real = substr $data, $offset; + my $b = APR::Bucket->new($ba, $data, $offset); + my $rlen = $b->read(my $read); + ok t_cmp $read, $real, 'new($data, $offset)/buffer'; + ok t_cmp $rlen, length($read), 'new($data, $offset)/len'; + ok t_cmp $b->start, $offset, 'offset'; + + } + + # new: offset+len + { + my $data = "foobartar"; + my $offset = 3; + my $len = 3; + my $real = substr $data, $offset, $len; + my $b = APR::Bucket->new($ba, $data, $offset, $len); + my $rlen = $b->read(my $read); + ok t_cmp $read, $real, 'new($data, $offset, $len)/buffer'; + ok t_cmp $rlen, length($read), 'new($data, $offse, $lent)/len'; + } + + # new: offset+ too big len + { + my $data = "foobartar"; + my $offset = 3; + my $len = 10; + my $real = substr $data, $offset, $len; + my $b = eval { APR::Bucket->new($ba, $data, $offset, $len) }; + ok t_cmp $@, + qr/the length argument can't be bigger than the total/, + 'new($data, $offset, $len_too_big)'; + } + + # modification of the source variable, affects the data + # inside the bucket + { + my $data = "A" x 10; + my $orig = $data; + my $b = APR::Bucket->new($ba, $data); + $data =~ s/^..../BBBB/; + $b->read(my $read); + ok t_cmp $read, $data, + "data inside the bucket should get affected by " . + "the changes to the Perl variable it's created from"; + } + + + # APR::Bucket->new() with the argument PADTMP (which happens when + # some function is re-entered) and the same SV is passed to + # different buckets, which must be detected and copied away. + { + my @buckets = (); + my @data = qw(ABCD EF); + my @received = (); + for my $str (@data) { + my $b = func($ba, $str); + push @buckets, $b; + } + + # the creating of buckets and reading from them is done + # separately on purpose + for my $b (@buckets) { + $b->read(my $out); + push @received, $out; + } + + # here we used to get: two pv: "ef\0d"\0, "ef"\0, as you can see + # the first bucket had corrupted data. + my @expected = map { lc } @data; + ok t_cmp \@received, \@expected, "new(PADTMP SV)"; + + # this function will pass the same SV to new(), causing two + # buckets point to the same SV, and having the latest bucket's + # data override the previous one + sub func { + my $ba = shift; + my $data = shift; + return APR::Bucket->new($ba, lc $data); + } + + } + + # read data is tainted + { + my $data = "xxx"; + my $b = APR::Bucket->new($ba, $data); + $b->read(my $read); + ok t_cmp $read, $data, 'new($data)'; + ok TestCommon::Utils::is_tainted($read); + } + + # remove/destroy + { + my $b = APR::Bucket->new($ba, "aaa"); + # remove $b when it's not attached to anything (not sure if + # that should be an error) + $b->remove; + ok 1; + + # a dangling bucket needs to be destroyed + $b->destroy; + ok 1; + + # real remove from bb is tested in many other filter tests + } + + # setaside + { + my $data = "A" x 10; + my $expected = $data; + my $b = APR::Bucket->new($ba, $data); + my $status = $b->setaside($pool); + ok t_cmp $status, APR::Const::SUCCESS, "setaside status"; + $data =~ s/^..../BBBB/; + $b->read(my $read); + ok t_cmp $read, $expected, + "data inside the setaside bucket is unaffected by " . + "changes to the Perl variable it's created from"; + $b->destroy; + } + + # alloc_create on out-of-scope pools + { + # later may move that into a dedicated bucket_alloc test + my $ba = APR::BucketAlloc->new(APR::Pool->new); + # here if the pool is gone of scope destroy() will segfault + $ba->destroy; + ok 1; + } + + # setaside on out-of-scope pools + { + # note that at the moment APR internally handles the situation + # when the pool goes out of scope, so modperl doesn't need to do + # any special handling of the pool object passed to setaside() + # to insure that it survives as long as $b is alive + # + # to make sure that this doesn't change internally in APR, the + # sub-test remains here + my $data = "A" x 10; + my $orig = $data; + my $b = APR::Bucket->new($ba, $data); + my $status = $b->setaside(APR::Pool->new); + ok t_cmp $status, APR::Const::SUCCESS, "setaside status"; + + # try to overwrite the temp pool data + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + + # now test that we are still OK + $b->read(my $read); + ok t_cmp $read, $data, + "data inside the setaside bucket is not corrupted"; + $b->destroy; + } + + $ba->destroy; +} + +1; +
diff --git a/2_0_13/t/lib/TestAPRlib/date.pm b/2_0_13/t/lib/TestAPRlib/date.pm new file mode 100644 index 0000000..2f3dd80 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/date.pm
@@ -0,0 +1,72 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::date; + +# testing APR::Date API + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Date (); + +my @http_dates = ( + 'Sun, 06 Nov 1994 08:49:37 GMT', # RFC 822, updated by RFC 1123 + 'Sunday, 06-Nov-94 08:49:37 GMT', # RFC 850, obsoleted by RFC 1036 + 'Sun Nov 6 08:49:37 1994', # ANSI C's asctime() format +); + +my @rfc_dates = ( + 'Sun, 06 Nov 1994 08:49:37 GMT' , # RFC 822, updated by RFC 1123 + 'Sunday, 06-Nov-94 08:49:37 GMT', # RFC 850, obsoleted by RFC 1036 + 'Sun Nov 6 08:49:37 1994', # ANSI C's asctime() format + 'Sun, 6 Nov 1994 08:49:37 GMT', # RFC 822, updated by RFC 1123 + 'Sun, 06 Nov 94 08:49:37 GMT', # RFC 822 + 'Sun, 6 Nov 94 08:49:37 GMT', # RFC 822 + 'Sun, 06 Nov 94 8:49:37 GMT', # Unknown [Elm 70.85] + 'Sun, 6 Nov 94 8:49:37 GMT', # Unknown [Elm 70.85] + 'Sun, 6 Nov 1994 08:49:37 GMT', # Unknown [Postfix] +); + +my @bogus_dates = ( + 'Sun, 06 Nov 94 08:49 GMT', # Unknown [drtr@ast.cam.ac.uk] + 'Sun, 6 Nov 94 08:49 GMT', # Unknown [drtr@ast.cam.ac.uk] +); + +my $date_msec = 784111777; +my $bogus_date_msec = 784111740; + +sub num_of_tests { + return @http_dates + @rfc_dates + @bogus_dates; +} + +sub test { + + # parse_http + for my $date_str (@http_dates) { + ok t_cmp(APR::Date::parse_http($date_str), + $date_msec, + "parse_http: $date_str"); + #t_debug "testing : parse_http: $date_str"; + } + + # parse_rfc + for my $date_str (@rfc_dates) { + ok t_cmp(APR::Date::parse_rfc($date_str), + $date_msec, + "parse_rfc: $date_str"); + #t_debug "testing : parse_rfc: $date_str"; + } + + # parse_rfc (bogus formats) + for my $date_str (@bogus_dates) { + ok t_cmp(APR::Date::parse_rfc($date_str), + $bogus_date_msec, + "parse_rfc: $date_str"); + #t_debug "testing : parse_rfc: $date_str"; + } + +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/error.pm b/2_0_13/t/lib/TestAPRlib/error.pm new file mode 100644 index 0000000..233045c --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/error.pm
@@ -0,0 +1,22 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::error; + +# testing APR::Error API + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Error; + +sub num_of_tests { + return 1; +} + +sub test { + ok 1; +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/finfo.pm b/2_0_13/t/lib/TestAPRlib/finfo.pm new file mode 100644 index 0000000..1f36a92 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/finfo.pm
@@ -0,0 +1,172 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::finfo; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; +use Apache::TestConfig; + +use File::Spec::Functions qw(catfile); +use Fcntl qw(:mode); + +use APR::Finfo (); +use APR::Pool (); + +use constant WIN32 => Apache::TestConfig::WIN32; +use constant OSX => Apache::TestConfig::OSX; + +use constant APACHE_2_0_49_PLUS => have_min_apache_version('2.0.49'); +use constant APACHE_2_2_PLUS => have_min_apache_version('2.2.0'); + +use APR::Const -compile => qw(SUCCESS FINFO_NORM FINFO_PROT FILETYPE_REG + FPROT_WREAD FPROT_WWRITE + FPROT_WEXECUTE); + +sub num_of_tests { + return 27; +} + +sub test { + + # for the file to be tested, use the httpd.conf generated + # by testing, so that it has a ctime that won't (usually) + # encounter a bug in Win32's stat() function for files that + # span across DST season boundaries. + my $file = catfile Apache::Test::vars->{t_dir}, 'conf', 'httpd.conf'; + + my $pool = APR::Pool->new(); + # populate the finfo struct first + my $wanted = APR::Const::FINFO_NORM; + if (WIN32) { + $wanted &= ~APR::Const::FINFO_PROT; + } + my $finfo = APR::Finfo::stat($file, $wanted, $pool); + + ok $finfo->isa('APR::Finfo'); + + # now, get information from perl's stat() + my %stat; + + @stat{qw(device inode protection nlink user group size atime mtime + ctime)} = (stat $file)[0..5, 7..10]; + + compare_with_perl($finfo, \%stat); + + # tests for stuff not in perl's stat + { + # BACK_COMPAT_MARKER - fixed as of 2.0.49. + if (WIN32 && !APACHE_2_0_49_PLUS) { + skip "finfo.fname requires Apache 2.0.49 or later", 0; + } + else { + ok t_cmp($finfo->fname, + $file, + '$finfo->fname()'); + } + + ok t_cmp($finfo->filetype, + APR::Const::FILETYPE_REG, + '$finfo->filetype()'); + } + + # stat() on out-of-scope pools + { + my $finfo = APR::Finfo::stat($file, $wanted, APR::Pool->new); + + # try to overwrite the temp pool data + require APR::Table; + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + + # now test that we are still OK + compare_with_perl($finfo, \%stat); + } + +} + + +sub compare_with_perl { + my ($finfo, $stat) = @_; + # skip certain tests on Win32 and others + my %skip = (); + + if (WIN32) { + # atime is wrong on NTFS, but OK on FAT32 + %skip = map {$_ => 1} qw(device inode user group atime); + } + elsif (OSX) { + # XXX both apr and perl report incorrect group values. sometimes. + # XXX skip until we can really figure out what is going on. + %skip = (group => 1); + } + + # compare stat fields between perl and apr_stat + { + foreach my $method (qw(device inode nlink user group + size atime mtime ctime)) { + if ($skip{$method}) { + skip "different file semantics", 0; + } + else { + ok t_cmp($finfo->$method(), + $stat->{$method}, + "\$finfo->$method()"); + } + } + } + + # stat tests (same as perl's stat) + { + + # XXX: untested + # ->name + + # XXX: are there any platforms csize is available at all? + # We don't want to see the skipped message all the time if + # it's not really used anywhere + # if (my $csize = $finfo->csize) { + # # The storage size is at least as big as the file size + # # perl's stat() doesn't have the equivalent of csize + # t_debug "csize=$csize, size=$stat{size}"; + # ok $csize >= $stat{size}; + # } + # else { + # skip "csize is not available on this platform", 0; + # } + + # match world bits + + # on Win32, there's a bug in the apr library supplied + # with Apache/2.2 that causes the following two tests + # to fail. This is slated to be fixed after apr-1.2.7. + if (WIN32 and APACHE_2_2_PLUS) { + skip "broken apr stat on Win32", 0; + } + else { + ok t_cmp($finfo->protection & APR::Const::FPROT_WREAD, + $stat->{protection} & S_IROTH, + '$finfo->protection() & APR::Const::FPROT_WREAD'); + } + if (WIN32 and APACHE_2_2_PLUS) { + skip "broken apr stat on Win32", 0; + } + else { + ok t_cmp($finfo->protection & APR::Const::FPROT_WWRITE, + $stat->{protection} & S_IWOTH, + '$finfo->protection() & APR::Const::FPROT_WWRITE'); + } + if (WIN32) { + skip "different file semantics", 0; + } + else { + ok t_cmp($finfo->protection & APR::Const::FPROT_WEXECUTE, + $stat->{protection} & S_IXOTH, + '$finfo->protection() & APR::Const::FPROT_WEXECUTE'); + } + } +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/os.pm b/2_0_13/t/lib/TestAPRlib/os.pm new file mode 100644 index 0000000..12344fb --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/os.pm
@@ -0,0 +1,22 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::os; + +# testing APR::OS API + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::OS (); + +sub num_of_tests { + return 1; +} + +sub test { + ok 1; +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/pool.pm b/2_0_13/t/lib/TestAPRlib/pool.pm new file mode 100644 index 0000000..519cba7 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/pool.pm
@@ -0,0 +1,502 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::pool; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use APR::Pool (); +use APR::Table (); + +sub num_of_tests { + return 77; +} + +sub test { + + my $pool = APR::Pool->new(); + my $table = APR::Table::make($pool, 2); + + ### custom pools ### + + # test: explicit pool object destroy destroys the custom pool + { + my $p = APR::Pool->new; + + $p->cleanup_register(\&set_cleanup, [$table, 'new destroy']); + + ok t_cmp(ancestry_count($p), 1, + "a new pool has one ancestor: the global pool"); + + # explicity destroy the object + $p->destroy; + + my @notes = $table->get('cleanup'); + + ok t_cmp(scalar(@notes), 1, "should be 1 note"); + + ok t_cmp($notes[0], 'new destroy'); + + $table->clear; + } + + + # test: lexical scoping DESTROYs the custom pool + { + { + my $p = APR::Pool->new; + + ok t_cmp(ancestry_count($p), 1, + "a new pool has one ancestor: the global pool"); + + $p->cleanup_register(\&set_cleanup, [$table, 'new scoped']); + } + + my @notes = $table->get('cleanup'); + + ok t_cmp(scalar(@notes), 1, "should be 1 note"); + + ok t_cmp($notes[0], 'new scoped'); + + $table->clear; + } + + + + ### custom pools + sub-pools ### + + # test: basic pool and sub-pool tests + implicit destroy of pool objects + { + { + my ($pp, $sp) = both_pools_create_ok($table); + } + + both_pools_destroy_ok($table); + + $table->clear; + } + + + # test: explicitly destroying a parent pool should destroy its + # sub-pool + { + my ($pp, $sp) = both_pools_create_ok($table); + + # destroying $pp should destroy the subpool $sp too + $pp->destroy; + + both_pools_destroy_ok($table); + + $table->clear; + } + + + + # test: destroying a sub-pool before the parent pool + { + my ($pp, $sp) = both_pools_create_ok($table); + + $sp->destroy; + $pp->destroy; + + both_pools_destroy_ok($table); + + $table->clear; + } + + + # test: destroying a sub-pool explicitly after the parent pool destroy + + # the parent pool should have already destroyed the child pool, so + # the object is invalid + { + my ($pp, $sp) = both_pools_create_ok($table); + + $pp->destroy; + $sp->destroy; + + both_pools_destroy_ok($table); + + $table->clear; + } + + + # test: destroying a sub-pool before the parent pool and trying to + # call APR::Pool methods on the a subpool object which points to a + # destroyed pool + { + my ($pp, $sp) = both_pools_create_ok($table); + + # parent pool destroys child pool + $pp->destroy; + + # this should "gracefully" fail, since $sp's guts were + # destroyed when the parent pool was destroyed + eval { $pp = $sp->parent_get }; + ok t_cmp($@, + qr/invalid pool object/, + "parent pool destroys child pool"); + + # since pool $sp now contains 0 pointer, if we try to make a + # new pool out of it, it's the same as APR->new (i.e. it'll + # use the global top level pool for it), so the resulting pool + # should have an ancestry length of exactly 1 + my $ssp = $sp->new; + ok t_cmp(ancestry_count($ssp), 1, + "a new pool has one ancestor: the global pool"); + + + both_pools_destroy_ok($table); + + $table->clear; + } + + # test: make sure that one pool won't destroy/affect another pool, + # which happened to be allocated at the same memory address after + # the pointer to the first pool was destroyed + { + my $pp2; + { + my $pp = APR::Pool->new; + $pp->destroy; + # $pp2 ideally should take the exact place of apr_pool + # previously pointed to by $pp + $pp2 = APR::Pool->new; + # $pp object didn't go away yet (it'll when exiting this + # scope). in the previous implementation, $pp will be + # destroyed second time on the exit of the scope and it + # could happen to work, because $pp2 pointer has allocated + # exactly the same address. and if so it would have killed + # the pool that $pp2 points to + + # this should "gracefully" fail, since $pp's guts were + # destroyed when the parent pool was destroyed + # must make sure that it won't try to hijack the new pool + # $pp2 that (hopefully) took over $pp's place + eval { $pp->parent_get }; + ok t_cmp($@, + qr/invalid pool object/, + "a dead pool is a dead pool"); + } + + # next make sure that $pp2's pool is still alive + $pp2->cleanup_register(\&set_cleanup, [$table, 'overtake']); + $pp2->destroy; + + my @notes = $table->get('cleanup'); + + ok t_cmp(scalar(@notes), 1, "should be 1 note"); + ok t_cmp($notes[0], 'overtake'); + + $table->clear; + + } + + # test: similar to the previous test, but this time, the parent + # pool destroys the child pool. a second allocation of a new pair + # of the parent and child pools take over exactly the same + # allocations. so if there are any ghost objects, they must not + # find the other pools and use them as they own. for example they + # could destroy the pools, and the perl objects of the pair would + # have no idea that someone has destroyed the pools without their + # knowledge. the previous implementation suffered from this + # problem. the new implementation uses an SV which is stored in + # the object and in the pool. when the pool is destroyed the SV + # gets its IVX pointer set to 0, which affects any perl object + # that is a ref to that SV. so once an apr pool is destroyed all + # perl objects pointing to it get automatically invalidated and + # there is no risk of hijacking newly created pools that happen to + # be at the same memory address. + + { + my ($pp2, $sp2); + { + my $pp = APR::Pool->new; + my $sp = $pp->new; + # parent destroys $sp + $pp->destroy; + + # hopefully these pool will take over the $pp and $sp + # allocations + ($pp2, $sp2) = both_pools_create_ok($table); + } + + # $pp and $sp shouldn't have triggered any cleanups + my @notes = $table->get('cleanup'); + ok t_cmp(scalar(@notes), 0, "should be 0 notes"); + $table->clear; + + # parent pool destroys child pool + $pp2->destroy; + + both_pools_destroy_ok($table); + + $table->clear; + } + + # test: only when the last references to the pool object is gone + # it should get destroyed + { + + my $cp; + + { + my $sp = APR::Pool->new(); + + $sp->cleanup_register(\&set_cleanup, [$table, 'several references']); + + $cp = $sp; + # destroy of $sp shouldn't call apr_pool_destroy, because + # $cp still references to it + } + + my @notes = $table->get('cleanup'); + ok t_cmp(scalar(@notes), 0, "should be 0 notes"); + $table->clear; + + # now the last copy is gone and the cleanup hooks will be called + $cp->destroy; + + @notes = $table->get('cleanup'); + ok t_cmp(scalar(@notes), 1, "should be 1 note"); + ok t_cmp($notes[0], 'several references'); + + $table->clear; + } + { + # and another variation + my $pp = APR::Pool->new(); + my $sp = $pp->new; + + my $gp = $pp->parent_get; + my $pp2 = $sp->parent_get; + + # parent destroys children + $pp->destroy; + + # grand parent ($pool) is undestroyable (core pool) + $gp->destroy; + + # now all custom pools are destroyed - $sp and $pp2 point nowhere + $pp2->destroy; + $sp->destroy; + + ok 1; + } + + # cleanup_register using a function name as a callback + { + { + my $p = APR::Pool->new; + $p->cleanup_register('set_cleanup', [$table, 'function name']); + } + + my @notes = $table->get('cleanup'); + ok t_cmp($notes[0], 'function name', "function name callback"); + + $table->clear; + } + + # cleanup_register using an anon sub callback + { + { + my $p = APR::Pool->new; + + $p->cleanup_register(sub { &set_cleanup }, [$table, 'anon sub']); + } + + my @notes = $table->get('cleanup'); + ok t_cmp($notes[0], 'anon sub', "anon callback"); + + $table->clear; + } + + # registered callbacks are run in reversed order LIFO + { + { + my $p = APR::Pool->new; + + $p->cleanup_register(\&add_cleanup, [$table, 'first']); + $p->cleanup_register(\&add_cleanup, [$table, 'second']); + } + + my @notes = $table->get('cleanup'); + ok t_cmp($notes[0], 'second', "two cleanup functions"); + ok t_cmp($notes[1], 'first', "two cleanup functions"); + + $table->clear; + } + + # undefined cleanup subs + { + my $p = APR::Pool->new; + $p->cleanup_register('TestAPR::pool::some_non_existing_sub', 1); + + my @warnings; + local $SIG{__WARN__} = sub {push @warnings, @_}; + $p->destroy; + + ok t_cmp($warnings[0], + qr/Undefined subroutine/, + "non existing function"); + } + { + my $p = APR::Pool->new; + $p->cleanup_register(\&non_existing1, 1); + + my @warnings; + local $SIG{__WARN__} = sub {push @warnings, @_}; + $p->destroy; + + ok t_cmp($warnings[0], + qr/Undefined subroutine/, + "non existing function"); + } + + # cleanups throwing exceptions + { + my $p = APR::Pool->new; + $p->cleanup_register(sub {die "1\n"}, 1); + $p->cleanup_register(sub {die "2\n"}, 1); + + my @warnings; + local $SIG{__WARN__} = sub {push @warnings, @_}; + local $@="to be preserved"; + undef $p; + + ok t_cmp(\@warnings, + [map "APR::Pool: cleanup died: $_\n", 2, 1], + "exceptions thrown by cleanups"); + ok t_cmp($@, "to be preserved", '$@ is preserved'); + } + + ### $p->clear ### + { + my ($pp, $sp) = both_pools_create_ok($table); + $pp->clear; + # both pools should have run their cleanups + both_pools_destroy_ok($table); + + # sub-pool $sp should be now bogus, as clear() destroys + # subpools + eval { $sp->parent_get }; + ok t_cmp($@, + qr/invalid pool object/, + "clear destroys sub pools"); + + # now we should be able to use the parent pool without + # allocating it + $pp->cleanup_register(\&set_cleanup, [$table, 're-using pool']); + $pp->destroy; + + my @notes = $table->get('cleanup'); + ok t_cmp('re-using pool', $notes[0]); + + $table->clear; + } + + + # a pool can be tagged, so when doing low level apr_pool tracing + # (when apr is compiled with -DAPR_POOL_DEBUG) it's possible to + # grep(1) for a certain tag, so it's a useful method + { + my $p = APR::Pool->new; + $p->tag("my pool"); + + # though there is no way we can get back the value to test, + # since there is no apr_pool_tag read accessor + ok 1; + } + + # out-of-scope pools + { + my $sp = APR::Pool->new->new; + # the parent temp pool must stick around + ok t_cmp(2, ancestry_count($sp), + "parent pool is still alive + global pool"); + } + + # other stuff + { + my $p = APR::Pool->new; + + # find some method that wants a pool object and try to pass it + # an object that was already destroyed e.g. APR::Table::make($p, 2); + + # only available with -DAPR_POOL_DEBUG + #my $num_bytes = $p->num_bytes; + #ok $num_bytes; + + } +} + +# returns how many ancestor generations the pool has (parent, +# grandparent, etc.) +sub ancestry_count { + my $child = shift; + my $gen = 0; + while (my $parent = $child->parent_get) { + # prevent possible endless loops + die "child pool reports to be its own parent, corruption!" + if $parent == $child; + $gen++; + die "child knows its parent, but the parent denies having that child" + unless $parent->is_ancestor($child); + $child = $parent; + } + return $gen; +} + +sub add_cleanup { + my $arg = shift; + debug "adding cleanup note: $arg->[1]"; + $arg->[0]->add(cleanup => $arg->[1]); + 1; +} + +sub set_cleanup { + my $arg = shift; + debug "setting cleanup note: $arg->[1]"; + $arg->[0]->set(cleanup => $arg->[1]); + 1; +} + +# +4 tests +sub both_pools_create_ok { + my $table = shift; + + my $pp = APR::Pool->new; + + ok t_cmp(1, $pp->isa('APR::Pool'), "isa('APR::Pool')"); + + ok t_cmp(1, ancestry_count($pp), + "a new pool has one ancestor: the global pool"); + + my $sp = $pp->new; + + ok t_cmp($sp->isa('APR::Pool'), 1, "isa('APR::Pool')"); + + ok t_cmp(ancestry_count($sp), 2, + "a subpool has 2 ancestors: the parent and global pools"); + + $pp->cleanup_register(\&add_cleanup, [$table, 'parent']); + $sp->cleanup_register(\&set_cleanup, [$table, 'child']); + + return ($pp, $sp); + +} + +# +3 tests +sub both_pools_destroy_ok { + my $table = shift; + my @notes = $table->get('cleanup'); + + ok t_cmp(scalar(@notes), 2, "should be 2 notes"); + ok t_cmp($notes[0], 'child'); + ok t_cmp($notes[1], 'parent'); +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/status.pm b/2_0_13/t/lib/TestAPRlib/status.pm new file mode 100644 index 0000000..6bf7f50 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/status.pm
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::status; + +# Testing APR::Status + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Const -compile => qw(EAGAIN ENOPOLL); +use APR::Status (); + +sub num_of_tests { + return 2; +} + +sub test { + ok APR::Status::is_EAGAIN(APR::Const::EAGAIN); + ok ! APR::Status::is_EAGAIN(APR::Const::ENOPOLL); +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/string.pm b/2_0_13/t/lib/TestAPRlib/string.pm new file mode 100644 index 0000000..9185e3b --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/string.pm
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::string; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::String (); + +my %size_string = ( + '-1' => " - ", + 0 => " 0 ", + 42 => " 42 ", + 42_000 => " 41K", + 42_000_000 => " 40M", +# 42_000_000_000 => "40G", +); + +sub num_of_tests { + return scalar keys %size_string; +} + +sub test { + + t_debug("size_string"); + while (my ($k, $v) = each %size_string) { + ok t_cmp($v, APR::String::format_size($k)); + } +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/table.pm b/2_0_13/t/lib/TestAPRlib/table.pm new file mode 100644 index 0000000..3310674 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/table.pm
@@ -0,0 +1,380 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::table; + +# testing APR::Table API + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Table (); +use APR::Pool (); + +use APR::Const -compile => ':table'; + +use constant TABLE_SIZE => 20; +our $filter_count; + +sub num_of_tests { + my $tests = 56; + + # tied hash values() for a table w/ multiple values for the same + # key + $tests += 2 if $] >= 5.008; + + return $tests; +} + +sub test { + + $filter_count = 0; + my $pool = APR::Pool->new(); + my $table = APR::Table::make($pool, TABLE_SIZE); + + ok UNIVERSAL::isa($table, 'APR::Table'); + + # get on non-existing key + { + # in scalar context + my $val = $table->get('foo'); + ok t_cmp($val, undef, '$val = $table->get("no_such_key")'); + + # in list context + my @val = $table->get('foo'); + ok t_cmp(+@val, 0, '@val = $table->get("no_such_key")'); + } + + # set/add/get/copy normal values + { + $table->set(foo => 'bar'); + + # get scalar context + my $val = $table->get('foo'); + ok t_cmp($val, 'bar', '$val = $table->get("foo")'); + + # add + get list context + $table->add(foo => 'tar'); + $table->add(foo => 'kar'); + my @val = $table->get('foo'); + ok @val == 3 && + $val[0] eq 'bar' && + $val[1] eq 'tar' && + $val[2] eq 'kar'; + + # copy + $table->set(too => 'boo'); + my $table_copy = $table->copy($pool); + my $val_copy = $table->get('too'); + ok t_cmp($val_copy, 'boo', '$val = $table->get("too")'); + my @val_copy = $table_copy->get('foo'); + ok @val_copy == 3 && + $val_copy[0] eq 'bar' && + $val_copy[1] eq 'tar' && + $val_copy[2] eq 'kar'; + } + + # make sure 0 comes through as 0 and not undef + { + $table->set(foo => 0); + my $zero = $table->get('foo'); + ok t_cmp($zero, 0, 'table value 0 is not undef'); + } + + # unset + { + $table->set(foo => "bar"); + $table->unset('foo'); + ok t_cmp(+$table->get('foo'), undef, '$table->unset("foo")'); + } + + # merge + { + $table->set( merge => '1'); + $table->merge(merge => 'a'); + my $val = $table->get('merge'); + ok t_cmp($val, "1, a", 'one val $table->merge(...)'); + + # if there is more than one value for the same key, merge does + # the job only for the first value + $table->add( merge => '2'); + $table->merge(merge => 'b'); + my @val = $table->get('merge'); + ok t_cmp($val[0], "1, a, b", '$table->merge(...)'); + ok t_cmp($val[1], "2", 'two values $table->merge(...)'); + + # if the key is not found, works like set/add + $table->merge(miss => 'a'); + my $val_miss = $table->get('miss'); + ok t_cmp($val_miss, "a", 'no value $table->merge(...)'); + } + + # clear + { + $table->set(foo => 0); + $table->set(bar => 1); + $table->clear(); + # t_cmp forces scalar context on get + ok t_cmp($table->get('foo'), undef, '$table->clear'); + ok t_cmp($table->get('bar'), undef, '$table->clear'); + } + + # filtering + { + for (1..TABLE_SIZE) { + $table->set(chr($_+97), $_); + } + + # Simple filtering + $filter_count = 0; + $table->do("my_filter"); + ok t_cmp($filter_count, TABLE_SIZE); + + # Filtering aborting in the middle + $filter_count = 0; + $table->do("my_filter_stop"); + ok t_cmp($filter_count, int(TABLE_SIZE)/2) ; + + # Filtering with anon sub + $filter_count=0; + $table->do(sub { + my ($key,$value) = @_; + $filter_count++; + unless ($key eq chr($value+97)) { + die "arguments I recieved are bogus($key,$value)"; + } + return 1; + }); + + ok t_cmp($filter_count, TABLE_SIZE, "table size"); + + $filter_count = 0; + $table->do("my_filter", "c", "b", "e"); + ok t_cmp($filter_count, 3, "table size"); + } + + #Tied interface + { + my $table = APR::Table::make($pool, TABLE_SIZE); + + ok UNIVERSAL::isa($table, 'HASH'); + + ok UNIVERSAL::isa($table, 'HASH') && tied(%$table); + + ok $table->{'foo'} = 'bar'; + + # scalar context + ok $table->{'foo'} eq 'bar'; + + ok delete $table->{'foo'} || 1; + + ok not exists $table->{'foo'}; + + for (1..TABLE_SIZE) { + $table->{chr($_+97)} = $_; + } + + $filter_count = 0; + foreach my $key (sort keys %$table) { + my_filter($key, $table->{$key}); + } + ok $filter_count == TABLE_SIZE; + } + + + # each, values + { + my $table = APR::Table::make($pool, 2); + + $table->add("first" => 1); + $table->add("second" => 2); + $table->add("first" => 3); + + my $i = 0; + while (my ($a,$b) = each %$table) { + my $key = ("first", "second")[$i % 2]; + my $val = ++$i; + + ok t_cmp $a, $key, "table each: key test"; + ok t_cmp $b, $val, "table each: value test"; + ok t_cmp $table->{$a}, $val, "table each: get test"; + + ok t_cmp tied(%$table)->FETCH($a), $val, + "table each: tied get test"; + } + + # this doesn't work with Perl < 5.8 + if ($] >= 5.008) { + ok t_cmp "1,2,3", join(",", values %$table), + "table values"; + ok t_cmp "first,1,second,2,first,3", join(",", %$table), + "table entries"; + } + } + + # overlap and compress routines + { + my $base = APR::Table::make($pool, TABLE_SIZE); + my $add = APR::Table::make($pool, TABLE_SIZE); + + $base->set(foo => 'one'); + $base->add(foo => 'two'); + + $add->set(foo => 'three'); + $add->set(bar => 'beer'); + + my $overlay = $base->overlay($add, $pool); + + my @foo = $overlay->get('foo'); + my @bar = $overlay->get('bar'); + + ok t_cmp(+@foo, 3); + ok t_cmp($bar[0], 'beer'); + + my $overlay2 = $overlay->copy($pool); + + # compress/merge + $overlay->compress(APR::Const::OVERLAP_TABLES_MERGE); + # $add first, then $base + ok t_cmp($overlay->get('foo'), + 'three, one, two', + "\$overlay->compress/merge"); + ok t_cmp($overlay->get('bar'), + 'beer', + "\$overlay->compress/merge"); + + # compress/set + $overlay->compress(APR::Const::OVERLAP_TABLES_SET); + # $add first, then $base + ok t_cmp($overlay2->get('foo'), + 'three', + "\$overlay->compress/set"); + ok t_cmp($overlay2->get('bar'), + 'beer', + "\$overlay->compress/set"); + } + + # overlap set + { + my $base = APR::Table::make($pool, TABLE_SIZE); + my $add = APR::Table::make($pool, TABLE_SIZE); + + $base->set(bar => 'beer'); + $base->set(foo => 'one'); + $base->add(foo => 'two'); + + $add->set(foo => 'three'); + + $base->overlap($add, APR::Const::OVERLAP_TABLES_SET); + + my @foo = $base->get('foo'); + my @bar = $base->get('bar'); + + ok t_cmp(+@foo, 1, 'overlap/set'); + ok t_cmp($foo[0], 'three'); + ok t_cmp($bar[0], 'beer'); + } + + # overlap merge + { + my $base = APR::Table::make($pool, TABLE_SIZE); + my $add = APR::Table::make($pool, TABLE_SIZE); + + $base->set(foo => 'one'); + $base->add(foo => 'two'); + + $add->set(foo => 'three'); + $add->set(bar => 'beer'); + + $base->overlap($add, APR::Const::OVERLAP_TABLES_MERGE); + + my @foo = $base->get('foo'); + my @bar = $base->get('bar'); + + ok t_cmp(+@foo, 1, 'overlap/set'); + ok t_cmp($foo[0], 'one, two, three'); + ok t_cmp($bar[0], 'beer'); + } + + + # temp pool objects. + # testing here that the temp pool object doesn't go out of scope + # before the object based on it was freed. the following tests + # were previously segfaulting when using apr1/httpd2.1 built w/ + # --enable-pool-debug CPPFLAGS="-DAPR_BUCKET_DEBUG", + # the affected methods are: + # - make + # - copy + # - overlay + { + { + my $table = APR::Table::make(APR::Pool->new, 10); + $table->set($_ => $_) for 1..20; + ok t_cmp $table->get(20), 20, "no segfault"; + } + + my $pool = APR::Pool->new; + my $table = APR::Table::make($pool, 10); + $table->set($_ => $_) for 1..20; + my $table_copy = $table->copy($pool->new); + { + # verify that the temp pool used to create $table_copy was + # not freed, by allocating a new table to fill with a + # different data. if that former pool was freed + # $table_copy will now contain bogus data (and may + # segfault) + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'a'..'z'; + ok t_cmp $table->get('z'), 'z', "helper test"; + + } + ok t_cmp $table_copy->get(20), 20, "no segfault/valid data"; + + my $table2 = APR::Table::make($pool, 1); + $table2->set($_**2 => $_**2) for 1..20; + my $table2_copy = APR::Table::make($pool, 1); + $table2_copy->set($_ => $_) for 1..20; + + my $overlay = $table2_copy->overlay($table2, $pool->new); + { + # see the comment for above's: + # $table_copy = $table->copy(APR::Pool->new); + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + ok t_cmp $table->get('za'), 'za', "helper test"; + + } + ok t_cmp $overlay->get(20), 20, "no segfault/valid data"; + } + { + { + my $p = APR::Pool->new; + $p->cleanup_register(sub { "whatever" }); + $table = APR::Table::make($p, 10) + }; + $table->set(a => 5); + ok t_cmp $table->get("a"), 5, "no segfault"; + } + +} + +sub my_filter { + my ($key, $value) = @_; + $filter_count++; + unless ($key eq chr($value+97)) { + die "arguments I received are bogus($key,$value)"; + } + return 1; +} + +sub my_filter_stop { + my ($key, $value) = @_; + $filter_count++; + unless ($key eq chr($value+97)) { + die "arguments I received are bogus($key,$value)"; + } + return $filter_count == int(TABLE_SIZE)/2 ? 0 : 1; +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/threadmutex.pm b/2_0_13/t/lib/TestAPRlib/threadmutex.pm new file mode 100644 index 0000000..c632a21 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/threadmutex.pm
@@ -0,0 +1,53 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::threadmutex; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Const -compile => qw(EBUSY SUCCESS); +use APR::Pool(); + +sub num_of_tests { + return 5; +} + +sub test { + + require APR::ThreadMutex; + + my $pool = APR::Pool->new(); + my $mutex = APR::ThreadMutex->new($pool); + + ok $mutex; + + ok t_cmp($mutex->lock, APR::Const::SUCCESS, + 'lock == APR::Const::SUCCESS'); + +#XXX: don't get what we expect on win23 +#need to use APR_STATUS_IS_EBUSY ? +# ok t_cmp($mutex->trylock, APR::Const::EBUSY, +# 'trylock == APR::Const::EBUSY'); + + ok t_cmp($mutex->unlock, APR::Const::SUCCESS, + 'unlock == APR::Const::SUCCESS'); + + # out-of-scope pool + { + my $mutex = APR::ThreadMutex->new(APR::Pool->new); + # try to overwrite the temp pool data + require APR::Table; + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + # now test that we are still OK + ok t_cmp($mutex->lock, APR::Const::SUCCESS, + 'lock == APR::Const::SUCCESS'); + ok t_cmp($mutex->unlock, APR::Const::SUCCESS, + 'unlock == APR::Const::SUCCESS'); + } + +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/threadrwlock.pm b/2_0_13/t/lib/TestAPRlib/threadrwlock.pm new file mode 100644 index 0000000..df07afb --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/threadrwlock.pm
@@ -0,0 +1,40 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::threadrwlock; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Const -compile => qw(EBUSY SUCCESS); +use APR::Pool(); + +sub num_of_tests { + return 5; +} + +sub test { + + require APR::ThreadRWLock; + + my $pool = APR::Pool->new(); + my $mutex = APR::ThreadRWLock->new($pool); + + ok $mutex; + + ok t_cmp($mutex->rdlock, APR::Const::SUCCESS, + 'rdlock == APR::Const::SUCCESS'); + + ok t_cmp($mutex->unlock, APR::Const::SUCCESS, + 'unlock == APR::Const::SUCCESS'); + + ok t_cmp($mutex->wrlock, APR::Const::SUCCESS, + 'wrlock == APR::Const::SUCCESS'); + + ok t_cmp($mutex->unlock, APR::Const::SUCCESS, + 'unlock == APR::Const::SUCCESS'); + +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/uri.pm b/2_0_13/t/lib/TestAPRlib/uri.pm new file mode 100644 index 0000000..8c01282 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/uri.pm
@@ -0,0 +1,189 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::uri; + +# Testing APR::URI (more tests in TestAPI::uri) + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::URI (); +use APR::Pool (); +use APR::Const -compile => qw(URI_UNP_OMITSITEPART URI_UNP_OMITUSER + URI_UNP_REVEALPASSWORD URI_UNP_OMITQUERY + URI_UNP_OMITPASSWORD URI_UNP_OMITPATHINFO + ); + +my %default_ports = ( + ftp => 21, + gopher => 70, + http => 80, + https => 443, + nntp => 119, + prospero => 191, + snews => 563, + wais => 210, +); + +my %url = ( + scheme => ["http", "ftp" ], + user => ["user", "log" ], + password => ["password", "pass" ], + hostname => ["www.example.com", "ftp.example.com"], + port => [8000, 21 ], + path => ["/path/file.pl", "/pub" ], + query => ["query", undef ], + fragment => ["fragment", undef ], +); + +my @keys_urls = qw(scheme user password hostname port path query + fragment); +my @keys_hostinfo = qw(user password hostname port); + +sub num_of_tests { + return 36; +} + +sub test { + + my $pool = APR::Pool->new(); + + ### parse ### + my $url0 = sprintf "%s://%s:%s\@%s:%d%s?%s#%s", + map { $url{$_}[0] } @keys_urls; + # warn "URL: $url\n"; + my $hostinfo0 = sprintf "%s:%s\@%s:%d", + map { $url{$_}[0] } @keys_hostinfo; + + my $parsed = APR::URI->parse($pool, $url0); + ok $parsed; + ok $parsed->isa('APR::URI'); + + for my $method (keys %url) { + no strict 'refs'; + ok t_cmp($parsed->$method, $url{$method}[0], $method); + } + + ok t_cmp($parsed->hostinfo, $hostinfo0, "hostinfo"); + + for my $method (keys %url) { + no strict 'refs'; + $parsed->$method($url{$method}[1]); + t_debug("$method: " . ($url{$method}[1]||'undef') . + " => " . ($parsed->$method||'undef')); + } + + ### unparse ### + my $url_unparsed = $parsed->unparse; + + # hostinfo is unaffected, since it's simply a field in the parsed + # record, and it's populated when parse is called, but when + # individual fields used to compose it are updated, it doesn't get + # updated: so we see the old value here + ok t_cmp($parsed->hostinfo, $hostinfo0, "hostinfo"); + + # - since 21 is the default port for ftp, unparse omits it + # - if no flags are passed to unparse, APR::Const::URI_UNP_OMITPASSWORD + # is passed by default -- it hides the password + my $url1 = sprintf "%s://%s\@%s%s", + map { $url{$_}[1] } qw(scheme user hostname path); + ok t_cmp($url_unparsed, $url1, "unparsed url"); + + # various unparse flags # + { + # restore the query/fragment fields first + my $query_new = "my_query"; + my $fragment_new = "my_fragment"; + $parsed->query($query_new); + $parsed->fragment($fragment_new); + local $url{query}[1] = $query_new; + local $url{fragment}[1] = $fragment_new; + + # omit the site part + { + my $url_unparsed = $parsed->unparse(APR::Const::URI_UNP_OMITSITEPART); + my $url2 = sprintf "%s?%s#%s", + map { $url{$_}[1] } qw(path query fragment); + ok t_cmp($url_unparsed, $url2, "unparsed url: omit site"); + } + + # this time the password should appear as XXXXXXXX + { + local $url{password}[1] = "XXXXXXXX"; + my $url_unparsed = $parsed->unparse(0); + my $url2 = sprintf "%s://%s:%s\@%s%s?%s#%s", + map { $url{$_}[1] } grep !/^port$/, @keys_urls; + ok t_cmp($url_unparsed, $url2, "unparsed url:reveal passwd"); + } + + # this time the user and the password should appear + { + my $url_unparsed = $parsed->unparse(APR::Const::URI_UNP_REVEALPASSWORD); + my $url2 = sprintf "%s://%s:%s\@%s%s?%s#%s", + map { $url{$_}[1] } grep !/^port$/, @keys_urls; + ok t_cmp($url_unparsed, $url2, "unparsed url:reveal passwd"); + } + + # omit the user part / show password + { + my $url_unparsed = $parsed->unparse( + APR::Const::URI_UNP_OMITUSER|APR::Const::URI_UNP_REVEALPASSWORD); + my $url2 = sprintf "%s://:%s\@%s%s?%s#%s", + map { $url{$_}[1] } grep !/^(port|user)$/, @keys_urls; + ok t_cmp($url_unparsed, $url2, "unparsed url: omit user"); + } + + # omit the path, query and fragment strings + { + my $url_unparsed = $parsed->unparse( + APR::Const::URI_UNP_OMITPATHINFO|APR::Const::URI_UNP_REVEALPASSWORD); + my $url2 = sprintf "%s://%s:%s\@%s", map { $url{$_}[1] } + grep !/^(port|path|query|fragment)$/, @keys_urls; + ok t_cmp($url_unparsed, $url2, "unparsed url: omit path"); + } + + # omit the query and fragment strings + { + my $url_unparsed = $parsed->unparse( + APR::Const::URI_UNP_OMITQUERY|APR::Const::URI_UNP_OMITPASSWORD); + my $url2 = sprintf "%s://%s\@%s%s", map { $url{$_}[1] } + grep !/^(password|port|query|fragment)$/, @keys_urls; + ok t_cmp($url_unparsed, $url2, "unparsed url: omit query"); + } + } + + ### port_of_scheme ### + while (my ($scheme, $port) = each %default_ports) { + my $apr_port = APR::URI::port_of_scheme($scheme); + ok t_cmp($apr_port, $port, "scheme: $scheme"); + } + + # parse + out-of-scope pools + { + + my $url0 = sprintf "%s://%s:%s\@%s:%d%s?%s#%s", + map { $url{$_}[0] } @keys_urls; + # warn "URL: $url\n"; + my $hostinfo0 = sprintf "%s:%s\@%s:%d", + map { $url{$_}[0] } @keys_hostinfo; + + require APR::Pool; + my $parsed = APR::URI->parse(APR::Pool->new, $url0); + + # try to overwrite the temp pool data + require APR::Table; + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + + for my $method (keys %url) { + no strict 'refs'; + ok t_cmp($parsed->$method, $url{$method}[0], $method); + } + + ok t_cmp($parsed->hostinfo, $hostinfo0, "hostinfo"); + } +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/util.pm b/2_0_13/t/lib/TestAPRlib/util.pm new file mode 100644 index 0000000..cd5f761 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/util.pm
@@ -0,0 +1,57 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::util; + +# test APR::Util + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Util (); + +use constant CRYPT_WORKS => $^O !~ /^(MSWin32|beos|NetWare)$/; + +my $clear = "this is some text"; +# to get the hash values used: +# htpasswd -nb[sm] user "this is some text" +my %hashes = ( + crypt => 'pHM3JfnL6isho', + md5 => '$apr1$Kld6H/..$o5OPPPWslI3zB20S54u9s1', + sha1 => '{SHA}A5NpTRa4TethLkfOYlK9NfDYbAY=', +); + +# BACK_COMPAT_MARKER (sha1 support added in 2.0.50) +delete $hashes{sha1} unless have_min_apache_version('2.0.50'); + +sub num_of_tests { + return 1 + scalar keys %hashes; +} + +sub test { + + # password_validate + { + ok ! APR::Util::password_validate("one", "two"); + + while (my ($mode, $hash) = each %hashes) { + t_debug($mode); + if ($mode eq 'crypt' && !CRYPT_WORKS) { + t_debug("crypt is not supported on $^O"); + ok 1; # don't make noise + } + else { + ok APR::Util::password_validate($clear, $hash); + } + } + } + +#this function seems unstable on certain platforms +# my $blen = 10; +# my $bytes = APR::generate_random_bytes($blen); +# ok length($bytes) == $blen; + +} + +1;
diff --git a/2_0_13/t/lib/TestAPRlib/uuid.pm b/2_0_13/t/lib/TestAPRlib/uuid.pm new file mode 100644 index 0000000..8942c79 --- /dev/null +++ b/2_0_13/t/lib/TestAPRlib/uuid.pm
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPRlib::uuid; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +my $dummy_uuid = 'd48889bb-d11d-b211-8567-ec81968c93c6'; + +require APR; +require APR::UUID; + +#XXX: apr_generate_random_bytes may block forever on /dev/random +# my $uuid = APR::UUID->new->format; + +sub num_of_tests { + return 3; +} + +sub test { + my $uuid = $dummy_uuid; + + ok $uuid; + + my $uuid_parsed = APR::UUID->parse($uuid); + + ok $uuid_parsed; + + ok $uuid eq $uuid_parsed->format; +} + +1;
diff --git a/2_0_13/t/lib/TestCommon/FilterDebug.pm b/2_0_13/t/lib/TestCommon/FilterDebug.pm new file mode 100644 index 0000000..8836f15 --- /dev/null +++ b/2_0_13/t/lib/TestCommon/FilterDebug.pm
@@ -0,0 +1,82 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCommon::FilterDebug; + +use strict; +use warnings FATAL => 'all'; + +use base qw(Apache2::Filter); +use APR::Brigade (); +use APR::Bucket (); +use APR::BucketType (); + +use Apache2::Const -compile => qw(OK DECLINED); +use APR::Const -compile => ':common'; + +# to use these functions add any or all of these filter handlers +# PerlModule TestCommon::FilterDebug +# PerlInputFilterHandler TestCommon::FilterDebug::snoop_request +# PerlInputFilterHandler TestCommon::FilterDebug::snoop_connection +# PerlOutputFilterHandler TestCommon::FilterDebug::snoop_request +# PerlOutputFilterHandler TestCommon::FilterDebug::snoop_connection +# + +sub snoop_connection : FilterConnectionHandler { snoop("connection", @_) } +sub snoop_request : FilterRequestHandler { snoop("request", @_) } + +sub snoop { + my $type = shift; + my ($filter, $bb, $mode, $block, $readbytes) = @_; # filter args + + # $mode, $block, $readbytes are passed only for input filters + my $stream = defined $mode ? "input" : "output"; + + # read the data and pass-through the bucket brigades unchanged + if (defined $mode) { + # input filter + my $rv = $filter->next->get_brigade($bb, $mode, $block, $readbytes); + return $rv unless $rv == APR::Const::SUCCESS; + bb_dump($type, $stream, $bb); + } + else { + # output filter + bb_dump($type, $stream, $bb); + my $rv = $filter->next->pass_brigade($bb); + return $rv unless $rv == APR::Const::SUCCESS; + } + #if ($bb->is_empty) { + # return -1; + #} + + return Apache2::Const::OK; +} + +sub bb_dump { + my ($type, $stream, $bb) = @_; + + my @data; + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + $b->read(my $bdata); + push @data, $b->type->name, $bdata; + } + + # send the sniffed info to STDERR so not to interfere with normal + # output + my $direction = $stream eq 'output' ? ">>>" : "<<<"; + print STDERR "\n$direction $type $stream filter\n"; + + unless (@data) { + print STDERR " No buckets\n"; + return; + } + + my $c = 1; + while (my ($btype, $data) = splice @data, 0, 2) { + print STDERR " o bucket $c: $btype\n"; + print STDERR "[$data]\n"; + $c++; + } +} + +1; + +__END__
diff --git a/2_0_13/t/lib/TestCommon/Handlers.pm b/2_0_13/t/lib/TestCommon/Handlers.pm new file mode 100644 index 0000000..de7bf33 --- /dev/null +++ b/2_0_13/t/lib/TestCommon/Handlers.pm
@@ -0,0 +1,62 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCommon::Handlers; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use TestCommon::Utils (); + +use Apache::TestTrace; + +use Apache2::Const -compile => qw(M_POST OK); + +# read the posted body and send it back to the client as is +sub pass_through_response_handler { + my $r = shift; + + if ($r->method_number == Apache2::Const::M_POST) { + my $data = TestCommon::Utils::read_post($r); + debug "pass_through_handler read: $data\n"; + $r->print($data); + } + + Apache2::Const::OK; +} + +1; + +__END__ + +=head1 NAME + +TestCommon::Handlers - Common Handlers + + + +=head1 Synopsis + + # PerlModule TestCommon::Handlers + # PerlResponseHandler TestCommon::Handlers::pass_through_response_handler + + +=head1 Description + +Various commonly used handlers + + + + +=head1 API + +=head2 pass_through_response_handler + + # PerlModule TestCommon::Handlers + # PerlResponseHandler TestCommon::Handlers::pass_through_response_handler + +this is a response handler, which reads the posted body and sends it +back to the client as is. + +=cut
diff --git a/2_0_13/t/lib/TestCommon/LogDiff.pm b/2_0_13/t/lib/TestCommon/LogDiff.pm new file mode 100644 index 0000000..36b8314 --- /dev/null +++ b/2_0_13/t/lib/TestCommon/LogDiff.pm
@@ -0,0 +1,94 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCommon::LogDiff; + +use strict; +use warnings FATAL => 'all'; + +use POSIX (); + +sub new { + my $class = shift; + my $path = shift; + + open my $fh, "<$path" or die "Can't open $path: $!"; + seek $fh, 0, POSIX::SEEK_END(); + my $pos = tell $fh; + + my %self = ( + path => $path, + fh => $fh, + pos => $pos, + ); + + return bless \%self, $class; +} + +sub DESTROY { + my $self = shift; + close $self->{fh}; +} + +sub diff { + my $self = shift; + + # XXX: is it possible that some system will be slow to flush the + # buffers and we may need to wait a bit and retry if we see no new + # logged data? + my $fh = $self->{fh}; + seek $fh, $self->{pos}, POSIX::SEEK_SET(); # not really needed + + local $/; # slurp mode + my $diff = <$fh>; + seek $fh, 0, POSIX::SEEK_END(); + $self->{pos} = tell $fh; + + return defined $diff ? $diff : ''; +} + +1; + +__END__ + +=head1 NAME + +TestCommon::LogDiff - get log file diffs + +=head1 Synopsis + + use TestCommon::LogDiff; + use Apache::Test; + + plan tests => 2; + + my $path = "/tmp/mylog"; + open my $fh, ">>$path" or die "Can't open $path: $!"; + + my $logdiff = TestCommon::LogDiff->new($path); + + print $fh "foo 123\n"; + my $expected = qr/^foo/; + ok t_cmp $logdiff->diff, $expected; + + print $fh "bar\n"; + my $expected = 'bar'; + ok t_cmp $logdiff->diff, $expected; + + +=head1 Description + +Useful for testing the warning, error and other messages going into +the log file. + +=head1 API + +=head2 new + +open the log file and point the filehandle pointer to its end. + +=head2 diff + +extract any newly logged information since the last check and move the +filehandle to the end of the file. + +=cut +
diff --git a/2_0_13/t/lib/TestCommon/MemoryLeak.pm b/2_0_13/t/lib/TestCommon/MemoryLeak.pm new file mode 100644 index 0000000..c007005 --- /dev/null +++ b/2_0_13/t/lib/TestCommon/MemoryLeak.pm
@@ -0,0 +1,88 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCommon::MemoryLeak; + +# handy functions to measure memory leaks. since it measures the total +# memory size of the process and not just perl leaks, you get your +# C/XS leaks discovered too +# +# For example to test TestAPR::Pool::handler for leaks, add to its +# top: +# +# TestCommon::MemoryLeak::start(); +# +# and just before returning from the handler add: +# +# TestCommon::MemoryLeak::end(); +# +# now start the server with only worker server +# +# % t/TEST -maxclients 1 -start +# +# of course use maxclients 1 only if your test be handled with one +# client, e.g. proxy tests need at least two clients. +# +# Now repeat the same test several times (more than 3) +# +# % t/TEST -run apr/pool -times=10 +# +# t/logs/error_log will include something like: +# +# size vsize resident share rss +# 196k 132k 196k 0M 196k +# 104k 132k 104k 0M 104k +# 16k 0k 16k 0k 16k +# 0k 0k 0k 0k 0k +# 0k 0k 0k 0k 0k +# 0k 0k 0k 0k 0k +# +# as you can see the first few runs were allocating memory, but the +# following runs should consume no more memory. The leak tester measures +# the extra memory allocated by the process since the last test. Notice +# that perl and apr pools usually allocate more memory than they +# need, so some leaks can be hard to see, unless many tests (like a +# hundred) were run. + +use strict; +use warnings FATAL => 'all'; + +# XXX: as of 5.8.4 when spawning ithreads we get an annoying +# Attempt to free unreferenced scalar ... perlbug #24660 +# because of $gtop's CLONE'd object, so pretend that we have no gtop +# for now if perl is threaded +# GTop v0.12 is the first version that will work under threaded mpms +use Config; +use constant HAS_GTOP => eval { !$Config{useithreads} && + require GTop && GTop->VERSION >= 0.12 }; + +my $gtop = HAS_GTOP ? GTop->new : undef; +my @attrs = qw(size vsize resident share rss); +my $format = "%8s %8s %8s %8s %8s\n"; + +my %before; + +sub start { + + die "No GTop avaible, bailing out" unless HAS_GTOP; + + unless (keys %before) { + my $before = $gtop->proc_mem($$); + %before = map { $_ => $before->$_() } @attrs; + # print the header once + warn sprintf $format, @attrs; + } +} + +sub end { + + die "No GTop avaible, bailing out" unless HAS_GTOP; + + my $after = $gtop->proc_mem($$); + my %after = map {$_ => $after->$_()} @attrs; + warn sprintf $format, + map GTop::size_string($after{$_} - $before{$_}), @attrs; + %before = %after; +} + +1; + +__END__
diff --git a/2_0_13/t/lib/TestCommon/SameInterp.pm b/2_0_13/t/lib/TestCommon/SameInterp.pm new file mode 100644 index 0000000..ad7a01d --- /dev/null +++ b/2_0_13/t/lib/TestCommon/SameInterp.pm
@@ -0,0 +1,166 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCommon::SameInterp; + +use Apache::Test; +use Apache::TestUtil; + +use Exporter; +use vars qw(@ISA @EXPORT); + +@ISA = qw(Exporter); + +@EXPORT = qw(same_interp_req same_interp_req_body + same_interp_skip_not_found); + +sub same_interp_req { + my $res = eval { + Apache::TestRequest::same_interp_do(@_); + }; + return undef if $@ && $@ =~ /unable to find interp/; + die $@ if $@; + return $res; +} + +sub same_interp_req_body { + my $res = same_interp_req(@_); + return $res ? $res->content : ""; +} + +sub same_interp_skip_not_found { + my $skip_cond = shift; + if ($skip_cond) { + skip "Skip couldn't find the same interpreter", 0; + } + else { + my ($package, $filename, $line) = caller; + # trick ok() into reporting the caller filename/line when a + # sub-test fails in sok() + return eval <<EOE; +#line $line $filename + ok &t_cmp; +EOE + } +} + +1; + +__END__ + +=head1 NAME + +TestCommon::SameInterp - Helper functions for same_interp framework + +=head1 Synopsis + + use Apache::Test; + use Apache::TestUtil; + use Apache::TestRequest; + + use TestCommon::SameInterp; + + plan tests => 3; + + my $url = "/path"; + + my $same_interp = Apache::TestRequest::same_interp_tie($url); + ok $same_interp; + + my $expected = 1; + my $skip = 0; + # test GET over the same same_interp + for (1..2) { + $expected++; + my $res = same_interp_req($same_interp, \&GET, $url, foo => 'bar'); + $skip++ unless defined $res; + same_interp_skip_not_found( + $skip, + defined $res && $res->content, + $expected, + "GET over the same interp" + ); + } + + +=head1 Description + +In addition to same_interp base blocks from Apache::TestRequest, this +helper module provides extra wrappers to simplify the writing of tests + +META: consider merging those into Apache::TestRequest (or add a new +module, e.g. Apache::TestRequestSameInterp) + +=head1 API + + + +=head2 C<same_interp_req> + +normally one runs: + + my $res = GET $url, @data; + +in the same_interp framework one runs + + my $res = Apache::TestRequest::same_interp_do($same_interp, + \&GET, $url, @data); + +but if there is a failure to find the same interpreter we get an +exception. and there could be other exceptions as well (e.g. failure +to run the request). This wrapper handles all exceptions, returning +C<undef> if the exception was in a failure to find the same +interpreter, re-throws the exception otherwise. If there is no +exception, the response object is returned. + +So one passes the same arguments to this wrapper as you'd to +Apache::TestRequest::same_interp_do: + + my $res = same_interp_req($same_interp, \&GET, $url, @data); + + + +=head2 C<same_interp_req_body> + +This function calls C<L<same_interp_req|/C_same_interp_req_>> and +extracts the response body if the response object is defined. (sort of +GET_BODY for same_interp) + + +=head2 C<same_interp_skip_not_found> + +make the tests resistant to a failure of finding the same perl +interpreter, which happens randomly and not an error. so instead of running: + + my $res = same_interp_req($same_interp, \&GET, $url, @data); + ok t_cmp(defined $res && $res->content, $expected, "comment") + +one can run: + + my $res = same_interp_req($same_interp, \&GET, $url, @data); + $skip = defined $res ? 0 : 1; + same_interp_skip_not_found( + $skip, + defined $res && $res->content, + $expected, + "comment" + ); + +the first argument is used to decide whether to skip the sub-test, the +rest of the arguments are passed to 'ok t_cmp'. + +This wrapper is smart enough to report the correct line number as if +ok() was run in the test file itself and not in the wrapper, by doing: + + my ($package, $filename, $line) = caller; + return eval <<EOE; + #line $line $filename + ok &t_cmp; + EOE + +C<&t_cmp> receives C<@_>, containing all but the skip argument, as if +the wrapper was never called. + + + + +=cut +
diff --git a/2_0_13/t/lib/TestCommon/TiePerlSection.pm b/2_0_13/t/lib/TestCommon/TiePerlSection.pm new file mode 100644 index 0000000..e7c0780 --- /dev/null +++ b/2_0_13/t/lib/TestCommon/TiePerlSection.pm
@@ -0,0 +1,22 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCommon::TiePerlSection; + +use strict; +use warnings FATAL => 'all'; + +# the following is needed for the tied %Location test in <Perl> +# sections. Unfortunately it can't be defined in the section itself +# due to the bug in perl: +# http://rt.perl.org:80/rt3/Ticket/Display.html?id=29018 + +use Tie::Hash; +our @ISA = qw(Tie::StdHash); +sub FETCH { + my ($hash, $key) = @_; + if ($key eq '/tied') { + return 'TIED'; + } + return $hash->{$key}; +} + +1;
diff --git a/2_0_13/t/lib/TestCommon/Utils.pm b/2_0_13/t/lib/TestCommon/Utils.pm new file mode 100644 index 0000000..672c439 --- /dev/null +++ b/2_0_13/t/lib/TestCommon/Utils.pm
@@ -0,0 +1,122 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCommon::Utils; + +use strict; +use warnings FATAL => 'all'; + +use APR::Brigade (); +use APR::Bucket (); +use Apache2::Filter (); +use Apache2::Connection (); + +use Apache2::Const -compile => qw(MODE_READBYTES); +use APR::Const -compile => qw(SUCCESS BLOCK_READ); + +use constant IOBUFSIZE => 8192; + +# perl 5.6.x only triggers taint protection on strings which are at +# least one char long +sub is_tainted { + return ! eval { + eval join '', '#', + map defined() ? substr($_, 0, 0) : (), @_; + 1; + }; +} + +# to enable debug start with: (or simply run with -trace=debug) +# t/TEST -trace=debug -start +sub read_post { + my $r = shift; + my $debug = shift || 0; + + my $bb = APR::Brigade->new($r->pool, + $r->connection->bucket_alloc); + + my $data = ''; + my $seen_eos = 0; + my $count = 0; + do { + $r->input_filters->get_brigade($bb, Apache2::Const::MODE_READBYTES, + APR::Const::BLOCK_READ, IOBUFSIZE); + + $count++; + + warn "read_post: bb $count\n" if $debug; + + while (!$bb->is_empty) { + my $b = $bb->first; + + if ($b->is_eos) { + warn "read_post: EOS bucket:\n" if $debug; + $seen_eos++; + last; + } + + if ($b->read(my $buf)) { + warn "read_post: DATA bucket: [$buf]\n" if $debug; + $data .= $buf; + } + + $b->delete; + } + + } while (!$seen_eos); + + $bb->destroy; + + return $data; +} + +1; + +__END__ + +=head1 NAME + +TestCommon::Utils - Common Test Utils + + + +=head1 Synopsis + + use TestCommon::Utils; + + # test whether some SV is tainted + $b->read(my $data); + ok TestCommon::Utils::is_tainted($data); + + my $data = TestCommon::Utils::read_post($r); + +=head1 Description + +Various handy testing utils + + + + +=head1 API + + + +=head2 is_tainted + + is_tainted(@data); + +returns I<TRUE> if at least one element in C<@data> is tainted, +I<FALSE> otherwise. + + + +=head2 read_post + + my $data = TestCommon::Utils::read_post($r); + my $data = TestCommon::Utils::read_post($r, $debug); + +reads the posted data using bucket brigades manipulation. + +To enable debug pass a true argument C<$debug> + + +=cut +
diff --git a/2_0_13/t/lib/TestExit/FromPerlModule.pm b/2_0_13/t/lib/TestExit/FromPerlModule.pm new file mode 100644 index 0000000..774c281 --- /dev/null +++ b/2_0_13/t/lib/TestExit/FromPerlModule.pm
@@ -0,0 +1,22 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestExit::FromPerlModule; + +use strict; +use warnings FATAL => qw(all); + +use Apache2::ServerRec; +use Apache2::ServerUtil; +use Apache2::Log; +use Apache2::Const -compile => qw(OK); + +sub exit_handler { + my ($p, $s) = @_; + + $s->log->info("Child process pid=$$ is exiting - server push"); + + Apache2::Const::OK; +} + +Apache2::ServerUtil->server->push_handlers(PerlChildExitHandler => \&exit_handler); + +1;
diff --git a/2_0_13/t/modperl/cookie.t b/2_0_13/t/modperl/cookie.t new file mode 100644 index 0000000..13d275b --- /dev/null +++ b/2_0_13/t/modperl/cookie.t
@@ -0,0 +1,58 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# The Cookie HTTP header can be accessed via $r->headers_in and in certain +# situations via $ENV{HTTP_COOKIE}. +# +# 'SetHandler perl-script', combined with 'PerlOptions -SetupEnv', or +# 'SetHandler modperl' do not populate %ENV with CGI variables. So in +# this test we call $r->subprocess_env, which adds them on demand, and +# we are able to get the cookie via %ENV. +# +# the last sub-test makes sure that mod_cgi env vars don't persist +# and are properly re-set at the end of each request. +# +# since the test is run against the same interpreter we also test that +# the cookie value doesn't persist if it makes it to %ENV. + + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +Apache::TestRequest::user_agent(keep_alive => 1); + +plan tests => 3, need 'HTML::HeadParser'; + +my $module = 'TestModperl::cookie'; +my $location = '/' . Apache::TestRequest::module2path($module); + +my $cookie = 'foo=bar'; +my %cookies = ( + header => $cookie, + env => $cookie, + nocookie => '', +); + +# 'nocookie' must be run last, server-side shouldn't find a cookie +# (testing that %ENV is reset to its original values for vars set by +# $r->subprocess_env, which is run internally for 'perl-script') +# this requires that all the tests are run against the same interpter + +my @tests_ordered = qw(header env nocookie); + +GET $location; + +for my $test (@tests_ordered) { + my $expected = $test eq 'nocookie' ? '' : "bar"; + my @headers = (); + push @headers, (Cookie => $cookies{$test}) unless $test eq 'nocookie'; + + my $received = GET "$location?$test", @headers; + + ok t_cmp( + $received->content, + $expected, + "perl-script+SetupEnv/cookie: $test" + ); +}
diff --git a/2_0_13/t/modperl/cookie2.t b/2_0_13/t/modperl/cookie2.t new file mode 100644 index 0000000..e49ae21 --- /dev/null +++ b/2_0_13/t/modperl/cookie2.t
@@ -0,0 +1,44 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +# The Cookie HTTP header can be accessed via $r->headers_in and in certain +# situations via $ENV{HTTP_COOKIE}. +# +# in this test we shouldn't be able get the cookie via %ENV, +# since 'SetHandler modperl' doesn't set up CGI env var. unless the +# handler calls "$r->subprocess_env" by itself +# +# since the test is run against the same interpreter we also test that +# the cookie value doesn't persist if it makes it to %ENV. + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +Apache::TestRequest::user_agent(keep_alive => 1); + +plan tests => 3, need 'HTML::HeadParser'; + +my $module = 'TestModperl::cookie2'; +my $location = '/' . Apache::TestRequest::module2path($module); + +my %expected = +( + header => "header", + subprocess_env => "subprocess_env", + env => '', +); + +my @tests_ordered = qw(header subprocess_env env); + +for my $test (@tests_ordered) { + my $cookie = "key=$test"; + + my $received = GET "$location?$test", Cookie => $cookie; + + ok t_cmp( + $received->content, + $expected{$test}, + "perl-script+SetupEnv/cookie: $test", + ); +}
diff --git a/2_0_13/t/modperl/exit.t b/2_0_13/t/modperl/exit.t new file mode 100644 index 0000000..b519d7a --- /dev/null +++ b/2_0_13/t/modperl/exit.t
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest 'GET_BODY_ASSERT'; + +use Apache::Test; +use Apache::TestUtil; + +use ModPerl::Const -compile => 'EXIT'; + +my $location = "/TestModperl__exit"; + +plan tests => 3; + +{ + ok t_cmp(GET_BODY_ASSERT("$location?noneval"), + 'exited', + "exit in non eval context"); + +} +{ + my $exit_excpt = ModPerl::EXIT; + my $body = GET_BODY_ASSERT("$location?eval"); + ok t_cmp($body, + qr/^ModPerl::Util::exit: \($exit_excpt\) exit was called/, + "exit in eval context"); + + ok !t_cmp($body, + qr/must not be reached/, + "exit in eval context"); + +}
diff --git a/2_0_13/t/modperl/getc.t b/2_0_13/t/modperl/getc.t new file mode 100644 index 0000000..62763f1 --- /dev/null +++ b/2_0_13/t/modperl/getc.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 2; + +my $location = "/TestModperl__getc"; + +my $expect = join '', 'a'..'Z'; + +my $str = POST_BODY $location, content => $expect; + +ok $str; + +ok t_cmp($str, $expect, 'getc'); +
diff --git a/2_0_13/t/modperl/local_env.t b/2_0_13/t/modperl/local_env.t new file mode 100644 index 0000000..7aeb728 --- /dev/null +++ b/2_0_13/t/modperl/local_env.t
@@ -0,0 +1,15 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +plan tests => 1, skip_reason('local %ENV is still broken'); + +my $module = 'TestModperl::local_env'; +my $url = Apache::TestRequest::module2url($module); + +t_debug "connecting to $url"; +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/modperl/merge.t b/2_0_13/t/modperl/merge.t new file mode 100644 index 0000000..9e1a5cd --- /dev/null +++ b/2_0_13/t/modperl/merge.t
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY_ASSERT); +use Apache::Test; +use Apache::TestUtil; + +my $module = 'TestModperl::merge'; +my $url = Apache::TestRequest::module2url($module, {path => '/merge/'}); + +# test server-to-container merging (without overrides) for: +# PerlSetEnv +# PerlPassEnv +# PerlSetVar +# PerlAddVar + +t_debug("connecting to $url"); +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/modperl/merge2.t b/2_0_13/t/modperl/merge2.t new file mode 100644 index 0000000..4b64e49 --- /dev/null +++ b/2_0_13/t/modperl/merge2.t
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY_ASSERT); +use Apache::Test; +use Apache::TestUtil; + +my $module = 'TestModperl::merge'; +my $url = Apache::TestRequest::module2url($module, {path => '/merge2/'}); + +# test server-to-container merging (with overrides) for: +# PerlSetEnv +# PerlPassEnv +# PerlSetVar +# PerlAddVar + +t_debug("connecting to $url"); +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/modperl/merge3.t b/2_0_13/t/modperl/merge3.t new file mode 100644 index 0000000..b208f37 --- /dev/null +++ b/2_0_13/t/modperl/merge3.t
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY_ASSERT); +use Apache::Test; +use Apache::TestUtil; + +my $module = 'TestModperl::merge'; +my $url = Apache::TestRequest::module2url($module, {path => '/merge3/'}); + +# test multi-level merging (server-to-container-to-htaccess) for: +# PerlSetEnv +# PerlPassEnv +# PerlSetVar +# PerlAddVar + +t_debug("connecting to $url"); +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/modperl/perl_options.t b/2_0_13/t/modperl/perl_options.t new file mode 100644 index 0000000..9d99cb3 --- /dev/null +++ b/2_0_13/t/modperl/perl_options.t
@@ -0,0 +1,13 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $module = 'TestModperl::perl_options'; +my $url = Apache::TestRequest::module2url($module); + +t_debug "connecting to $url"; +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/modperl/perl_options2.t b/2_0_13/t/modperl/perl_options2.t new file mode 100644 index 0000000..9223b30 --- /dev/null +++ b/2_0_13/t/modperl/perl_options2.t
@@ -0,0 +1,13 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $module = 'TestModperl::perl_options2'; +my $url = Apache::TestRequest::module2url($module); + +t_debug "connecting to $url"; +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/modperl/pnotes.t b/2_0_13/t/modperl/pnotes.t new file mode 100644 index 0000000..3ef4b37 --- /dev/null +++ b/2_0_13/t/modperl/pnotes.t
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY_ASSERT); +use Apache::Test; +use Apache::TestUtil; + +my $module = 'TestModperl::pnotes'; +my $url = Apache::TestRequest::module2url($module); + +t_debug("connecting to $url"); + +plan tests => (26 * 3), need_lwp; + +# first with keepalives +Apache::TestRequest::user_agent(reset => 1, keep_alive => 1); +t_debug("issuing first request"); +print GET_BODY_ASSERT "$url?1"; + +# now close the connection +t_debug("issuing second request"); +print GET_BODY_ASSERT "$url?2", Connection => 'close'; + +# finally, check for a cleared $c->pnotes +t_debug("issuing final request"); +print GET_BODY_ASSERT "$url?3"; +
diff --git a/2_0_13/t/modperl/pnotes2.t b/2_0_13/t/modperl/pnotes2.t new file mode 100644 index 0000000..87f752a --- /dev/null +++ b/2_0_13/t/modperl/pnotes2.t
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY); +use Apache::Test; +use Apache::TestUtil; +use Apache::TestUtil qw/t_start_error_log_watch t_finish_error_log_watch/; + +my $module = 'TestModperl::pnotes2'; +my $url = Apache::TestRequest::module2url($module); +my ($u, $ok); + +t_debug("connecting to $url"); + +plan tests => 12, need_lwp; + +Apache::TestRequest::user_agent(reset => 1, keep_alive => 0); + +for my $i (1..12) { + t_client_log_warn_is_expected(); + t_start_error_log_watch; + $u="$url?$i"; $ok=GET_BODY $u; + select undef, undef, undef, 0.2; # give it time to write the logfile + ok t_cmp scalar(grep { + /pnotes are destroyed after cleanup passed/; + } t_finish_error_log_watch), 1, $u; +}
diff --git a/2_0_13/t/modperl/post_utf8.t b/2_0_13/t/modperl/post_utf8.t new file mode 100644 index 0000000..83e6b28 --- /dev/null +++ b/2_0_13/t/modperl/post_utf8.t
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest; + +my $location = "/TestModperl__post_utf8"; + +# From A.S.Pushkin's "Evgeniy Onegin" +my $data_ascii = "I love you, (why lying?), but I belong to another"; +my $data_utf8 = "\x{042F} \x{0432}\x{0430}\x{0441} \x{043B}\x{044E}" . + "\x{0431}\x{043B}\x{044E} (\x{043A} \x{0447}\x{0435}\x{043C}\x{0443} " . + "\x{043B}\x{0443}\x{043A}\x{0430}\x{0432}\x{0438}\x{0442}\x{044C}?),\n" . + "\x{041D}\x{043E} \x{044F} \x{0434}\x{0440}\x{0443}\x{0433}\x{043E}" . + "\x{043C}\x{0443} \x{043E}\x{0442}\x{0434}\x{0430}\x{043D}\x{0430};"; + +my $data = join '=', $data_ascii, $data_utf8; + +# must encode the utf8 request body +# we will skip the response any way if perl < 5.008 +utf8::encode($data) if $] >= 5.008; + +# Accept-Charset is not really needed, since we don't expect the +# server side to send anything back but plain ASCII. +print POST_BODY_ASSERT $location, content => $data, + 'Accept-Charset' => "ISO-8859-1,UTF-8"; + +
diff --git a/2_0_13/t/modperl/print_utf8.t b/2_0_13/t/modperl/print_utf8.t new file mode 100644 index 0000000..d29d543 --- /dev/null +++ b/2_0_13/t/modperl/print_utf8.t
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +# utf encode/decode was added only in 5.8.0 +# XXX: currently binmode is only available with perlio (used on the +# server side on the tied/perlio STDOUT) +plan tests => 1, need need_min_perl_version(5.008), need_perl('perlio'); + +my $location = "/TestModperl__print_utf8"; +my $expected = "Hello Ayhan \x{263A} perlio rules!"; + +my $res = GET $location; +my $received = $res->content; + +# response body includes wide-chars, but perl doesn't know about it +utf8::decode($received) if ($res->header('Content-Type')||'') =~ /utf-8/i; + +# needed for debugging print out of utf8 strings +binmode(STDOUT, ':utf8'); +ok t_cmp($received, $expected, 'UTF8 response via tied/perlio STDOUT'); +
diff --git a/2_0_13/t/modperl/print_utf8_2.t b/2_0_13/t/modperl/print_utf8_2.t new file mode 100644 index 0000000..9a12dd2 --- /dev/null +++ b/2_0_13/t/modperl/print_utf8_2.t
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +use Config; + +# utf encode/decode was added only in 5.8.0 +# perlio is needed only for the client side, because it calls binmode(STDOUT, ':utf8'); +plan tests => 1, need_min_perl_version(5.008); + +my $location = "/TestModperl__print_utf8_2"; +my $expected = "\$r->print() just works \x{263A}"; + +my $res = GET $location; +my $received = $res->content; + +# response body includes wide-chars, but perl doesn't know about it +utf8::decode($received) if ($res->header('Content-Type')||'') =~ /utf-8/i; + +if ($Config{useperlio}) { + # needed for debugging print out of utf8 strings + # but works only if perl is built w/ perlio + binmode(STDOUT, ':utf8'); + ok t_cmp($received, $expected, 'UTF8 response via $r->print'); +} +else { + ok $expected eq $received; +} +
diff --git a/2_0_13/t/modperl/readline.t b/2_0_13/t/modperl/readline.t new file mode 100644 index 0000000..11b4cb7 --- /dev/null +++ b/2_0_13/t/modperl/readline.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 2; + +my $location = "/TestModperl__readline"; + +my $expect = join "\n", map { $_ x 24 } 'a'..'e'; + +my $str = POST_BODY $location, content => $expect; + +ok $str; + +ok t_cmp($str, $expect, 'readline'); +
diff --git a/2_0_13/t/modperl/request_rec_perlio_api.t b/2_0_13/t/modperl/request_rec_perlio_api.t new file mode 100644 index 0000000..2801ddc --- /dev/null +++ b/2_0_13/t/modperl/request_rec_perlio_api.t
@@ -0,0 +1,30 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use Config; + +my $uri = "/TestModperl__request_rec_perlio_api"; + +plan tests => 2, need { "perl $]: TIEd IO is used instead of PerlIO" + => ($] >= 5.008 && $Config{useperlio}) }; + + +{ + my $content = join "", 'a'..'j', 'k'..'t'; + my $location = "$uri?STDIN"; + my $expected = join "", 'a'..'j', "# please", 'k'..'t'; + my $received = POST_BODY_ASSERT $location, content => $content; + ok t_cmp($received, $expected, "STDIN tests"); +} + +{ + my $location = "$uri?STDOUT"; + my $expected = "life is hard and then you die! next you reincarnate..."; + my $received = GET_BODY_ASSERT $location; + ok t_cmp($received, $expected, "STDOUT tests"); +}
diff --git a/2_0_13/t/modperl/setupenv.t b/2_0_13/t/modperl/setupenv.t new file mode 100644 index 0000000..a4611f6 --- /dev/null +++ b/2_0_13/t/modperl/setupenv.t
@@ -0,0 +1,47 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY_ASSERT); +use Apache::Test; +use Apache::TestUtil; + +my $module = 'TestModperl::setupenv'; +my $url = Apache::TestRequest::module2url($module); + +t_debug("connecting to $url"); + +my @locations = ("${url}_mpdefault", + "${url}_mpsetup", + "${url}_mpdefault", # make sure %ENV is cleared + "${url}_mpvoid", + "${url}_mpsetupvoid", + "${url}_psdefault", + "${url}_psnosetup", + "${url}_psvoid", + "${url}_psnosetupvoid"); + +# plan the tests from a handler so we can run +# tests from within handlers across multiple requests +# +# this requires keepalives and a per-connection interpreter +# to make certain we can plan in one request and test in another +# which requires LWP +unless (need_lwp() && need_module('mod_env')) { + plan tests => 63, 0; +} + +Apache::TestRequest::user_agent(keep_alive => 1); +print GET_BODY_ASSERT join '?', $url, scalar @locations; + +# this tests for when %ENV is populated with CGI variables +# as well as the contents of the subprocess_env table +# +# see setupenv.pm for a full description of the tests + +foreach my $location (@locations) { + + t_debug("trying $location"); + + print GET_BODY_ASSERT $location; +}
diff --git a/2_0_13/t/modperl/setupenv2.t b/2_0_13/t/modperl/setupenv2.t new file mode 100644 index 0000000..f8752b0 --- /dev/null +++ b/2_0_13/t/modperl/setupenv2.t
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $location = "/TestModperl__setupenv2"; + +my %expected = ( + mixed => [qw(loadmodule conf1 <perl> conf2 require conf3 + config_require conf4 perlmodule conf5 conf5 + conf6 conf7 conf8 post_config_require)], + perl => [qw(loadmodule <perl> require config_require + perlmodule post_config_require)], +); + +plan tests => 2 + scalar(@{ $expected{mixed} }) + scalar(@{ $expected{perl} }); + +while (my ($k, $v) = each %expected) { + my @expected = @$v; + my $elements = scalar @expected; + my $received = GET_BODY "$location?$k"; + t_debug "$k: $received"; + my @received = split / /, $received; + + ok t_cmp $received[$_], $expected[$_] for 0..$#expected; + + ok t_cmp scalar(@received), scalar(@expected), "elements"; + if (@received > @expected) { + t_debug "unexpected elements: " . + join " ", @received[$elements..$#received]; + } +} +
diff --git a/2_0_13/t/modperl/status.t b/2_0_13/t/modperl/status.t new file mode 100644 index 0000000..9cb8aba --- /dev/null +++ b/2_0_13/t/modperl/status.t
@@ -0,0 +1,158 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil qw(t_cmp t_server_log_error_is_expected); + +use Apache2::Const -compile => qw(OK DECLINED + NOT_FOUND SERVER_ERROR FORBIDDEN + HTTP_OK); + +plan tests => 15, need 'HTML::HeadParser'; + +my $base = "/TestModperl__status"; + +# valid Apache return codes +{ + my $uri = join '?', $base, Apache2::Const::OK; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::HTTP_OK, + $uri); +} + +{ + my $uri = join '?', $base, Apache2::Const::DECLINED; + my $code = GET_RC $uri; + + # no Alias to map us to DocumentRoot + ok t_cmp($code, + Apache2::Const::NOT_FOUND, + $uri); +} + +# standard HTTP status codes +{ + my $uri = join '?', $base, Apache2::Const::NOT_FOUND; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::NOT_FOUND, + $uri); +} + +{ + my $uri = join '?', $base, Apache2::Const::FORBIDDEN; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::FORBIDDEN, + $uri); +} + +{ + my $uri = join '?', $base, Apache2::Const::SERVER_ERROR; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::SERVER_ERROR, + $uri); +} + +# apache translates non-HTTP codes into 500 +# see ap_index_of_response +{ + my $uri = join '?', $base, 601; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::SERVER_ERROR, + $uri); +} + +{ + my $uri = join '?', $base, 313; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::SERVER_ERROR, + $uri); +} + +{ + my $uri = join '?', $base, 1; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::SERVER_ERROR, + $uri); +} + +# HTTP_OK is treated as an error, since it's not +# OK, DECLINED, or DONE. while apache's lookups +# succeed so the 200 is propagated to the client, +# there's an error beneath that 200 code. +{ + my $uri = join '?', $base, Apache2::Const::HTTP_OK; + my $response = GET $uri; + + ok t_cmp($response->code, + Apache2::Const::HTTP_OK, + $uri); + + ok t_cmp($response->content, + qr/server encountered an internal error/, + $uri); +} + +# mod_perl-specific implementation tests +{ + # ModPerl::Util::exit - voids return OK + my $uri = join '?', $base, 'exit'; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::HTTP_OK, + $uri); +} + +{ + # die gets trapped + my $uri = join '?', $base, 'die'; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::SERVER_ERROR, + $uri); +} + +{ + my $uri = join '?', $base, 'foobar'; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::HTTP_OK, + $uri); +} + +{ + my $uri = join '?', $base, 'foo9bar'; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::HTTP_OK, + $uri); +} + +{ + my $uri = join '?', $base, 'undef'; + my $code = GET_RC $uri; + + ok t_cmp($code, + Apache2::Const::HTTP_OK, + $uri); +} +
diff --git a/2_0_13/t/modules/apache_resource.t b/2_0_13/t/modules/apache_resource.t new file mode 100644 index 0000000..316365d --- /dev/null +++ b/2_0_13/t/modules/apache_resource.t
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +plan tests => 1, need qw[BSD::Resource], + { "CGI.pm (2.93 or higher) or Apache2::Request is needed" => + !!(eval { require CGI && $CGI::VERSION >= 2.93 } || + eval { require Apache2::Request })}; + +{ + # Apache2::Status menu inserted by Apache::Resource + my $url = '/status/perl?rlimit'; + my $body = GET_BODY_ASSERT $url; + ok $body =~ /RLIMIT_CPU/; +} + +# more tests would be nice, but I'm not sure how to write those w/o +# causing problems to the rest of the test suite. +# we could enable $ENV{PERL_RLIMIT_DEFAULTS} = 1; before loading +# Apache2::Resource, which sets certain default values (works for me) +# but it's not guaranteed that it'll work for others (since it's very +# OS specific)
diff --git a/2_0_13/t/modules/apache_status.t b/2_0_13/t/modules/apache_status.t new file mode 100644 index 0000000..5d07703 --- /dev/null +++ b/2_0_13/t/modules/apache_status.t
@@ -0,0 +1,50 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +my $base_url = '/status/perl'; + +my @opts = qw(script myconfig rgysubs section_config env isa_tree + symdump inc inh_tree sig); + +plan tests => @opts + 5, need 'HTML::HeadParser', + { "CGI.pm (2.93 or higher) or Apache2::Request is needed" => + !!(eval { require CGI && $CGI::VERSION >= 2.93 } || + eval { require Apache2::Request })}; + +{ + my $url = "$base_url"; + my $body = GET_BODY_ASSERT $url; + # expecting: Embedded Perl version <b>v5.8.2</b> for ... + my $pver = $^V ? sprintf "v%vd", $^V : $]; + ok t_cmp($body, qr[Embedded Perl version <b>$pver</b> for]); + # menu_item, part 1 + # expecting: Test Entry + ok $body =~ /Test Menu Entry/; +} + +{ + # menu_item, part 2 + my $url = "$base_url?test_menu"; + my $body = GET_BODY_ASSERT $url; + ok $body =~ /This is just a test entry/; +} + +for my $opt (@opts) { + my $url = "$base_url?$opt"; + ok GET_BODY_ASSERT $url; +} + +# B::Terse has an issue with XS, but Apache::Status shouldn't crash on +# that +{ + # Syntax Tree Dump: syntax and execution order options + for (qw(slow exec)) { + my $url = "$base_url/$_/Apache2::Const::OK?noh_b_terse"; + ok GET_OK $url; + } +}
diff --git a/2_0_13/t/modules/cgi.t b/2_0_13/t/modules/cgi.t new file mode 100644 index 0000000..0445d8e --- /dev/null +++ b/2_0_13/t/modules/cgi.t
@@ -0,0 +1,61 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; +use Apache2::Build (); + +my $build = Apache2::Build->build_config; + +use constant HAVE_LWP => have_lwp(); + +my $tests = 4; +$tests += 1 if HAVE_LWP; + +plan tests => $tests, need need_min_module_version('CGI', 3.08), + {"MP_COMPAT_1X is disabled" => $build->{MP_COMPAT_1X}}; + +my $module = 'TestModules::cgi'; +my $location = '/' . Apache::TestRequest::module2path($module); + +my($res, $str); + +sok { + my $url = "$location?PARAM=2"; + $res = GET $url; + $str = $res->content; + t_cmp($str, "ok 2", "GET $url"); +}; + +sok { + my $content = 'PARAM=%33'; + $str = POST_BODY $location, content => $content; + t_cmp($str, "ok 3", "POST $location\n$content"); +}; + +if (HAVE_LWP) { + sok { + t_client_log_warn_is_expected(4) + if $] < 5.008 && require CGI && $CGI::VERSION < 3.06; + $str = UPLOAD_BODY $location, content => 4; + t_cmp($str, "ok 4", 'file upload'); + }; +} + +sok { + my $header = 'Content-type'; + $res = GET $location; + t_cmp($res->header($header), + qr{^text/test-output}, + "$header header"); +}; + +sok { + my $header = 'X-Perl-Module'; + $res = GET $location; + t_cmp($res->header($header), + $module, + "$header header"); +};
diff --git a/2_0_13/t/modules/cgi2.t b/2_0_13/t/modules/cgi2.t new file mode 100644 index 0000000..491ee03 --- /dev/null +++ b/2_0_13/t/modules/cgi2.t
@@ -0,0 +1,61 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; +use Apache2::Build (); + +my $build = Apache2::Build->build_config; + +use constant HAVE_LWP => have_lwp(); + +my $tests = 4; +$tests += 1 if HAVE_LWP; + +plan tests => $tests, need + need_min_module_version(CGI => 3.08); + +my $module = 'TestModules::cgi2'; +my $location = '/' . Apache::TestRequest::module2path($module); + +my($res, $str); + +sok { + my $url = "$location?PARAM=2"; + $res = GET $url; + $str = $res->content; + t_cmp($str, "ok 2", "GET $url"); +}; + +sok { + my $content = 'PARAM=%33'; + $str = POST_BODY $location, content => $content; + t_cmp($str, "ok 3", "POST $location\n$content"); +}; + +if (HAVE_LWP) { + sok { + t_client_log_warn_is_expected(4) + if $] < 5.008 && require CGI && $CGI::VERSION < 3.06; + $str = UPLOAD_BODY $location, content => 4; + t_cmp($str, "ok 4", 'file upload'); + }; +} + +sok { + my $header = 'Content-type'; + $res = GET $location; + t_cmp($res->header($header), + qr{^text/test-output}, + "$header header"); +}; + +sok { + my $header = 'X-Perl-Module'; + $res = GET $location; + t_cmp($res->header($header), + $module, + "$header header"); +};
diff --git a/2_0_13/t/modules/cgipost.t b/2_0_13/t/modules/cgipost.t new file mode 100644 index 0000000..0cd94f2 --- /dev/null +++ b/2_0_13/t/modules/cgipost.t
@@ -0,0 +1,37 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(POST_BODY_ASSERT); + +my $module = 'TestModules::cgipost'; +my $url = '/' . Apache::TestRequest::module2path($module); + +my @data = (25, 50, 75, 100, 125, 150); + +plan tests => scalar(@data), need_min_module_version(CGI => 3.08); + +foreach my $post (@data) { + my %param = (); + + foreach my $key (1 .. $post) { + $param{$key} = 'data' x $key; + } + + my $post_data = join '&', map { "$_=$param{$_}" } + sort { $a <=> $b } keys %param; + my $expected = join ':', map { $param{$_} } + sort { $a <=> $b } keys %param; + + my $e_length = length $expected; + + my $received = POST_BODY_ASSERT $url, content => $post_data; + + my $r_length = length $received; + + t_debug "expected $e_length bytes, received $r_length bytes\n"; + ok ($expected eq $received); +} +
diff --git a/2_0_13/t/modules/cgipost2.t b/2_0_13/t/modules/cgipost2.t new file mode 100644 index 0000000..8c062f6 --- /dev/null +++ b/2_0_13/t/modules/cgipost2.t
@@ -0,0 +1,37 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest qw(POST_BODY_ASSERT); + +my $module = 'TestModules::cgipost2'; +my $url = '/' . Apache::TestRequest::module2path($module); + +my @data = (25, 50, 75, 100, 125, 150); + +plan tests => scalar(@data), need_min_module_version(CGI => 3.08); + +foreach my $post (@data) { + my %param = (); + + foreach my $key (1 .. $post) { + $param{$key} = 'data' x $key; + } + + my $post_data = join '&', map { "$_=$param{$_}" } + sort { $a <=> $b } keys %param; + my $expected = join ':', map { $param{$_} } + sort { $a <=> $b } keys %param; + + my $e_length = length $expected; + + my $received = POST_BODY_ASSERT $url, content => $post_data; + + my $r_length = length $received; + + t_debug "expected $e_length bytes, received $r_length bytes\n"; + ok ($expected eq $received); +} +
diff --git a/2_0_13/t/modules/cgiupload.t b/2_0_13/t/modules/cgiupload.t new file mode 100644 index 0000000..b0a961f --- /dev/null +++ b/2_0_13/t/modules/cgiupload.t
@@ -0,0 +1,38 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +use Apache2::Build (); + +use File::Spec::Functions qw(catfile); + +my $build = Apache2::Build->build_config; +plan tests => 2, need need_lwp(), need need_min_module_version('CGI', 3.08), + {"MP_COMPAT_1X is disabled" => $build->{MP_COMPAT_1X}}; + +my $location = "/TestModules__cgiupload"; + +my $filename; +my $pod = 'pod/perlfunc.pod'; + +for (@INC) { + if (-e "$_/$pod") { + $filename = "$_/$pod"; + last; + } +} + +$filename ||= catfile Apache::Test::vars('serverroot'), "..", 'Makefile'; + +for (1,2) { + t_client_log_warn_is_expected(4) + if $] < 5.008 && require CGI && $CGI::VERSION < 3.06; + my $str = UPLOAD_BODY $location, filename => $filename; + my $body_len = length $str; + my $file_len = -s $filename; + t_debug "body_len=$body_len, file_len=$file_len"; + ok $body_len == $file_len; +}
diff --git a/2_0_13/t/modules/cgiupload2.t b/2_0_13/t/modules/cgiupload2.t new file mode 100644 index 0000000..b298419 --- /dev/null +++ b/2_0_13/t/modules/cgiupload2.t
@@ -0,0 +1,38 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; +use Apache2::Build (); + +use File::Spec::Functions qw(catfile); + +my $build = Apache2::Build->build_config; +plan tests => 2, need need_lwp(), + need_min_module_version(CGI => 3.08); + +my $location = "/TestModules__cgiupload2"; + +my $filename; +my $pod = 'pod/perlfunc.pod'; + +for (@INC) { + if (-e "$_/$pod") { + $filename = "$_/$pod"; + last; + } +} + +$filename ||= catfile Apache::Test::vars('serverroot'), "..", 'Makefile'; + +for (1,2) { + t_client_log_warn_is_expected(4) + if $] < 5.008 && require CGI && $CGI::VERSION < 3.06; + my $str = UPLOAD_BODY $location, filename => $filename; + my $body_len = length $str; + my $file_len = -s $filename; + t_debug "body_len=$body_len, file_len=$file_len"; + ok $body_len == $file_len; +}
diff --git a/2_0_13/t/modules/include.t b/2_0_13/t/modules/include.t new file mode 100644 index 0000000..a2c54b3 --- /dev/null +++ b/2_0_13/t/modules/include.t
@@ -0,0 +1,35 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +#test for mod_include include virtual of a mod_perl script +my @patterns = ( + 'mod_perl mod_include test', + 'Hello World', + 'cgi.pm', + 'footer', +); + +plan tests => 2 + @patterns, need need_module('mod_include', 'mod_mime'), + need_min_module_version(CGI => 3.08); + +my $location = "/includes/test.shtml"; + + +my($res, $str); + +$res = GET $location; + +ok $res->is_success; + +$str = $res->content; + +ok $str; + +for my $pat (@patterns) { + ok t_cmp($str, qr{$pat}, "/$pat/"); +}
diff --git a/2_0_13/t/modules/include2.t b/2_0_13/t/modules/include2.t new file mode 100644 index 0000000..80d51dd --- /dev/null +++ b/2_0_13/t/modules/include2.t
@@ -0,0 +1,32 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +#test for mod_include parsing of mod_perl script output +#XXX: needs to be more robust. see t/htdocs/includes-registry/test.spl +my @patterns = ( + 'Perl-SSI', #MY_TEST + 'mod_perl', #SERVER_SOFTWARE +); + +plan tests => 2 + @patterns, ['include', 'mod_mime', 'HTML::HeadParser']; + +my $location = "/includes-registry/test.spl"; + +my($res, $str); + +$res = GET $location; + +ok $res->is_success; + +$str = $res->content; + +ok $str; + +for my $pat (@patterns) { + ok t_cmp($str, qr{$pat}, "/$pat/"); +}
diff --git a/2_0_13/t/modules/include_subreq.t b/2_0_13/t/modules/include_subreq.t new file mode 100644 index 0000000..8295292 --- /dev/null +++ b/2_0_13/t/modules/include_subreq.t
@@ -0,0 +1,19 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; + +my $module = 'TestModules::include_subreq'; +my $location = '/' . Apache::TestRequest::module2path($module); + +plan tests => 1, ['include']; + +my($res, $str); + +my $expected = "subreq is quite ok"; +my $received = GET_BODY_ASSERT "$location/one"; +ok t_cmp($received, $expected, "handler => filter => handler"); +
diff --git a/2_0_13/t/modules/proxy.t b/2_0_13/t/modules/proxy.t new file mode 100644 index 0000000..2f4a53f --- /dev/null +++ b/2_0_13/t/modules/proxy.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $module = 'TestModules::proxy'; +my $url = Apache::TestRequest::module2url($module); + +t_debug("connecting to $url"); + +my @modules = qw(mod_proxy proxy_http.c); +push @modules, 'mod_access_compat' if have_min_apache_version("2.4.0"); +plan tests => 1, need need_module(@modules), need_access; + +my $expected = "ok"; +my $received = GET_BODY_ASSERT $url; +ok t_cmp($received, $expected, "internally proxified request");
diff --git a/2_0_13/t/perl/hash_attack.t b/2_0_13/t/perl/hash_attack.t new file mode 100644 index 0000000..bb91ef2 --- /dev/null +++ b/2_0_13/t/perl/hash_attack.t
@@ -0,0 +1,16 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use Apache::TestRequest 'GET_BODY_ASSERT'; + +plan tests => 1, + need { "relevant only for perl 5.8.2 and up to 5.17.6" => ($] >= 5.008002 && $] < 5.017006) }; + +my $expected = "ok"; +my $received = GET_BODY_ASSERT "/TestPerl__hash_attack"; +ok($expected eq $received);
diff --git a/2_0_13/t/perl/ithreads.t b/2_0_13/t/perl/ithreads.t new file mode 100644 index 0000000..53757a0 --- /dev/null +++ b/2_0_13/t/perl/ithreads.t
@@ -0,0 +1,17 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# perl/ithreads2 is a similar test but is running from within a +# virtual host with its own perl interpreter pool (+Parent) + +use Config; + +use Apache::Test; +use Apache::TestRequest 'GET_BODY_ASSERT'; + +# perl < 5.6.0 fails to compile code with 'shared' attributes, so we must skip +# it here. +unless ($] >= 5.008001 && $Config{useithreads}) { + plan tests => 1, need + {"perl 5.8.1 or higher w/ithreads enabled is required" => 0}; +} + +print GET_BODY_ASSERT "/TestPerl__ithreads";
diff --git a/2_0_13/t/perl/ithreads2.t b/2_0_13/t/perl/ithreads2.t new file mode 100644 index 0000000..ec2718b --- /dev/null +++ b/2_0_13/t/perl/ithreads2.t
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# perl/ithreads is a similar test but is running from the global perl +# interpreter pool. whereas this test is running against a +# virtual host with its own perl interpreter pool (+Parent) + +use strict; +use warnings FATAL => 'all'; + +use Config; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest 'GET_BODY_ASSERT'; + +# perl < 5.6.0 fails to compile code with 'shared' attributes, so we must skip +# it here. +unless ($] >= 5.008001 && $Config{useithreads}) { + plan tests => 1, need + {"perl 5.8.1 or higher w/ithreads enabled is required" => 0}; +} + +my $module = 'TestPerl::ithreads'; +my $url = Apache::TestRequest::module2url($module); + +t_debug("connecting to $url"); +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/perl/ithreads3.t b/2_0_13/t/perl/ithreads3.t new file mode 100644 index 0000000..ef3feb5 --- /dev/null +++ b/2_0_13/t/perl/ithreads3.t
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest 'GET_BODY'; + +plan tests => 6, need_apache_mpm('worker') && need_perl('ithreads'); + +my $module = 'TestPerl::ithreads3'; + +sub u {Apache::TestRequest::module2url($module, {path=>$_[0]})} +sub t { + my $rc; + eval { + local $SIG{ALRM}=sub {die "Timeout\n"}; + alarm 2; + eval { + $rc=GET_BODY u(shift); + }; + alarm 0; + }; + alarm 0; + return $rc; +} + +t_debug("connecting to ".u('')); +ok t_cmp t('/perl-script?1'), 2, 'perl-script 1'; +ok t_cmp t('/modperl?1'), 2, 'modperl 1'; + +ok t_cmp t('/perl-script?2'), 5, 'perl-script 2'; +ok t_cmp t('/modperl?2'), 5, 'modperl 2'; + +ok t_cmp t('/perl-script?3'), 3, 'perl-script 3'; +ok t_cmp t('/modperl?3'), 3, 'modperl 3';
diff --git a/2_0_13/t/preconnection/TestPreConnection/note.pm b/2_0_13/t/preconnection/TestPreConnection/note.pm new file mode 100644 index 0000000..f485952 --- /dev/null +++ b/2_0_13/t/preconnection/TestPreConnection/note.pm
@@ -0,0 +1,50 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestPreConnection::note; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); + +use Apache::TestTrace; +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); +use constant APACHE24 => have_min_apache_version('2.4.0'); + +sub handler { + my Apache2::Connection $c = shift; + + my $ip = APACHE24 ? $c->client_ip : $c->remote_ip; + + debug "ip: $ip"; + + $c->notes->set(preconnection => $ip); + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + $r->print($r->connection->notes->get('preconnection') || ''); + + return Apache2::Const::OK +} + +1; +__END__ +<NoAutoConfig> + <VirtualHost TestPreConnection::note> + PerlPreConnectionHandler TestPreConnection::note + + <Location /TestPreConnection__note> + SetHandler modperl + PerlResponseHandler TestPreConnection::note::response + </Location> + </VirtualHost> +</NoAutoConfig> + +
diff --git a/2_0_13/t/preconnection/note.t b/2_0_13/t/preconnection/note.t new file mode 100644 index 0000000..29453db --- /dev/null +++ b/2_0_13/t/preconnection/note.t
@@ -0,0 +1,20 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +my $module = 'TestPreConnection::note'; +my $url = Apache::TestRequest::module2url($module); +my $config = Apache::Test::config(); + +my $remote_addr = $config->{vars}->{remote_addr}; +t_debug("connecting to $url"); +plan tests => 1; + +ok t_cmp( + GET_BODY_ASSERT($url), + $remote_addr, + "connection notes");
diff --git a/2_0_13/t/protocol/TestProtocol/echo_bbs.pm b/2_0_13/t/protocol/TestProtocol/echo_bbs.pm new file mode 100644 index 0000000..1951b0e --- /dev/null +++ b/2_0_13/t/protocol/TestProtocol/echo_bbs.pm
@@ -0,0 +1,67 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestProtocol::echo_bbs; + +# this test is similar to TestProtocol::echo_filter, but performs the +# manipulations on the buckets inside the connection handler, rather +# then using filter + +# it also demonstrates how to use a single bucket bridade to do all +# the manipulation + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use APR::Socket (); +use APR::Bucket (); +use APR::Brigade (); +use APR::Error (); + +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK MODE_GETLINE); +use APR::Const -compile => qw(SUCCESS SO_NONBLOCK); +use APR::Status (); + +sub handler { + my $c = shift; + + # starting from Apache 2.0.49 several platforms require you to set + # the socket to a blocking IO mode + $c->client_socket->opt_set(APR::Const::SO_NONBLOCK, 0); + + my $bb = APR::Brigade->new($c->pool, $c->bucket_alloc); + + while (1) { + debug "asking new line"; + my $rc = $c->input_filters->get_brigade($bb, Apache2::Const::MODE_GETLINE); + last if APR::Status::is_EOF($rc); + die APR::Error::strerror($rc) unless $rc == APR::Const::SUCCESS; + + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + + last if $b->is_eos; + + debug "processing new line"; + + if ($b->read(my $data)) { + last if $data =~ /^[\r\n]+$/; + my $nb = APR::Bucket->new($bb->bucket_alloc, uc $data); + # head->...->$nb->$b ->...->tail + # XXX: the next 3 lines could be replaced with a + # wrapper function $b->replace($nb); + $b->insert_before($nb); + $b->delete; + $b = $nb; + } + } + + $c->output_filters->fflush($bb); + } + + $bb->destroy; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/protocol/TestProtocol/echo_bbs2.pm b/2_0_13/t/protocol/TestProtocol/echo_bbs2.pm new file mode 100644 index 0000000..dacf27f --- /dev/null +++ b/2_0_13/t/protocol/TestProtocol/echo_bbs2.pm
@@ -0,0 +1,59 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestProtocol::echo_bbs2; + +# similar to TestProtocol::echo_bbs but here re-using one bucket +# brigade for input and output, using flatten to slurp all the data in +# the bucket brigade, and cleanup to get rid of the old buckets + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use APR::Socket (); +use APR::Bucket (); +use APR::Brigade (); +use APR::Error (); + +use Apache2::Const -compile => qw(OK MODE_GETLINE); +use APR::Const -compile => qw(SUCCESS SO_NONBLOCK); +use APR::Status (); + +sub handler { + my $c = shift; + + # starting from Apache 2.0.49 several platforms require you to set + # the socket to a blocking IO mode + $c->client_socket->opt_set(APR::Const::SO_NONBLOCK, 0); + + my $bb_in = APR::Brigade->new($c->pool, $c->bucket_alloc); + my $bb_out = APR::Brigade->new($c->pool, $c->bucket_alloc); + + my $last = 0; + while (1) { + my $rc = $c->input_filters->get_brigade($bb_in, + Apache2::Const::MODE_GETLINE); + last if APR::Status::is_EOF($rc); + die APR::Error::strerror($rc) unless $rc == APR::Const::SUCCESS; + + next unless $bb_in->flatten(my $data); + #warn "read: [$data]\n"; + last if $data =~ /^[\r\n]+$/; + + # transform data here + my $bucket = APR::Bucket->new($bb_in->bucket_alloc, uc $data); + $bb_out->insert_tail($bucket); + + $c->output_filters->fflush($bb_out); + + $bb_in->cleanup; + $bb_out->cleanup; + } + + # XXX: add DESTROY and remove explicit calls + $bb_in->destroy; + $bb_out->destroy; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/protocol/TestProtocol/echo_block.pm b/2_0_13/t/protocol/TestProtocol/echo_block.pm new file mode 100644 index 0000000..e13f93d --- /dev/null +++ b/2_0_13/t/protocol/TestProtocol/echo_block.pm
@@ -0,0 +1,48 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestProtocol::echo_block; + +# this test reads from/writes to the socket doing blocking IO +# +# see TestProtocol::echo_timeout for how to do the same with +# nonblocking IO but using the timeout + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use APR::Socket (); + +use TestCommon::Utils; + +use Apache2::Const -compile => 'OK'; +use APR::Const -compile => qw(SO_NONBLOCK); + +use constant BUFF_LEN => 1024; + +sub handler { + my Apache2::Connection $c = shift; + my APR::Socket $socket = $c->client_socket; + + # starting from Apache 2.0.49 several platforms require you to set + # the socket to a blocking IO mode + my $nonblocking = $socket->opt_get(APR::Const::SO_NONBLOCK); + if ($nonblocking) { + $socket->opt_set(APR::Const::SO_NONBLOCK, 0); + + # test that we really *are* in the blocking mode + !$socket->opt_get(APR::Const::SO_NONBLOCK) + or die "failed to set blocking mode"; + } + + while ($socket->recv(my $buffer, BUFF_LEN)) { + + die "recv() has returned untainted data:" + unless TestCommon::Utils::is_tainted($buffer); + + $socket->send($buffer); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/protocol/TestProtocol/echo_filter.pm b/2_0_13/t/protocol/TestProtocol/echo_filter.pm new file mode 100644 index 0000000..91d19f6 --- /dev/null +++ b/2_0_13/t/protocol/TestProtocol/echo_filter.pm
@@ -0,0 +1,64 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestProtocol::echo_filter; + +# see also TestFilter::both_str_con_add + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use APR::Socket (); +use APR::Bucket (); +use APR::Brigade (); +use APR::Error (); + +use base qw(Apache2::Filter); + +use APR::Const -compile => qw(SUCCESS SO_NONBLOCK); +use APR::Status (); +use Apache2::Const -compile => qw(OK MODE_GETLINE); + +use constant BUFF_LEN => 1024; + +sub uc_filter : FilterConnectionHandler { + my $filter = shift; + + while ($filter->read(my $buffer, BUFF_LEN)) { + $filter->print(uc $buffer); + } + + return Apache2::Const::OK; +} + +sub handler { + my $c = shift; + + # starting from Apache 2.0.49 several platforms require you to set + # the socket to a blocking IO mode + $c->client_socket->opt_set(APR::Const::SO_NONBLOCK, 0); + + my $bb = APR::Brigade->new($c->pool, $c->bucket_alloc); + + while (1) { + my $rc = $c->input_filters->get_brigade($bb, Apache2::Const::MODE_GETLINE); + last if APR::Status::is_EOF($rc); + die APR::Error::strerror($rc) unless $rc == APR::Const::SUCCESS; + + # fflush is the equivalent of the following 3 lines of code: + # + # my $b = APR::Bucket::flush_create($c->bucket_alloc); + # $bb->insert_tail($b); + # $c->output_filters->pass_brigade($bb); + $c->output_filters->fflush($bb); + } + + $bb->destroy; + + Apache2::Const::OK; +} + +1; +__END__ +PerlModule TestProtocol::echo_filter +PerlOutputFilterHandler TestProtocol::echo_filter::uc_filter +
diff --git a/2_0_13/t/protocol/TestProtocol/echo_nonblock.pm b/2_0_13/t/protocol/TestProtocol/echo_nonblock.pm new file mode 100644 index 0000000..d99d576 --- /dev/null +++ b/2_0_13/t/protocol/TestProtocol/echo_nonblock.pm
@@ -0,0 +1,80 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestProtocol::echo_nonblock; + +# this test reads from/writes to the socket doing nonblocking IO + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use APR::Socket (); +use APR::Error (); + +use Apache::TestTrace; + +use Apache2::Const -compile => 'OK'; +use APR::Const -compile => qw(SO_NONBLOCK SUCCESS POLLIN); +use APR::Status (); + +use constant BUFF_LEN => 1024; + +sub handler { + my $c = shift; + my $socket = $c->client_socket; + + $socket->opt_set(APR::Const::SO_NONBLOCK, 1); + + my $counter = 0; + my $timeout = 0; + while (1) { + + debug "counter: $counter"; + if ($counter == 1) { + # this will certainly cause timeout + $timeout = 0; + } else { + # Wait up to ten seconds for data to arrive. + $timeout = 10_000_000; + } + $counter++; + + my $rc = $socket->poll($c->pool, $timeout, APR::Const::POLLIN); + if ($rc == APR::Const::SUCCESS) { + my $buf; + my $len = eval { $socket->recv($buf, BUFF_LEN) }; + if ($@) { + # rethrow + die $@ unless ref $@ eq 'APR::Error' + && (APR::Status::is_ECONNABORTED($@) || + APR::Status::is_ECONNRESET($@)); + # ECONNABORTED == 103 + # ECONNRESET == 104 + # ECONNABORTED is not an application error + # XXX: we don't really test that we always get this + # condition, since it depends on the timing of the + # client closing the socket. may be it'd be possible + # to make sure that APR::Const::ECONNABORTED was received + # when $counter == 2 if we have slept enough, but how + # much is enough is unknown + debug "caught '104: Connection reset by peer' error"; + last; + } + + last unless $len; + + debug "sending: $buf"; + $socket->send($buf); + } + elsif (APR::Status::is_TIMEUP($rc)) { + debug "timeout"; + $socket->send("TIMEUP\n"); + } + else { + die "poll error: $rc: " . APR::Error::strerror($rc); + } + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/protocol/TestProtocol/echo_timeout.pm b/2_0_13/t/protocol/TestProtocol/echo_timeout.pm new file mode 100644 index 0000000..50c81fa --- /dev/null +++ b/2_0_13/t/protocol/TestProtocol/echo_timeout.pm
@@ -0,0 +1,53 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestProtocol::echo_timeout; + +# this test reads from/writes to the socket doing nonblocking IO but +# using the timeout +# +# see TestProtocol::echo_block for how to do the same with blocking IO + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use APR::Socket (); + +use Apache2::Const -compile => 'OK'; +use APR::Const -compile => qw(SO_NONBLOCK); +use APR::Status (); + +use constant BUFF_LEN => 1024; + +sub handler { + my Apache2::Connection $c = shift; + my APR::Socket $socket = $c->client_socket; + + # starting from Apache 2.0.49 several platforms require you to set + # the socket to a blocking IO mode + $c->client_socket->opt_set(APR::Const::SO_NONBLOCK, 0); + + # set timeout (20 sec) so later we can do error checking on + # read/write timeouts + $socket->timeout_set(20_000_000); + + while (1) { + my $buff; + my $rlen = eval { $socket->recv($buff, BUFF_LEN) }; + if ($@) { + die "timed out, giving up: $@" if APR::Status::is_TIMEUP($@); + die $@; + } + + last unless $rlen; # EOF + + my $wlen = eval { $socket->send($buff) }; + if ($@) { + die "timed out, giving up: $@" if APR::Status::is_TIMEUP($@); + die $@; + } + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/protocol/TestProtocol/eliza.pm b/2_0_13/t/protocol/TestProtocol/eliza.pm new file mode 100644 index 0000000..3e1bdac --- /dev/null +++ b/2_0_13/t/protocol/TestProtocol/eliza.pm
@@ -0,0 +1,47 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestProtocol::eliza; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use APR::Socket (); + +require Chatbot::Eliza; + +use Apache2::Const -compile => 'OK'; +use APR::Const -compile => 'SO_NONBLOCK'; + +use constant BUFF_LEN => 1024; + +my $mybot = new Chatbot::Eliza; + +sub handler { + my Apache2::Connection $c = shift; + my APR::Socket $socket = $c->client_socket; + + # starting from Apache 2.0.49 several platforms require you to set + # the socket to a blocking IO mode + my $nonblocking = $socket->opt_get(APR::Const::SO_NONBLOCK); + if ($nonblocking) { + $socket->opt_set(APR::Const::SO_NONBLOCK, 0); + + # test that we really *are* in the blocking mode + !$socket->opt_get(APR::Const::SO_NONBLOCK) + or die "failed to set blocking mode"; + } + + my $last = 0; + while ($socket->recv(my $buff, BUFF_LEN)) { + # \r is sent instead of \n if the client is talking over telnet + $buff =~ s/[\r\n]*$//; + $last++ if $buff eq "Good bye, Eliza"; + $buff = $mybot->transform( $buff ) . "\n"; + $socket->send($buff); + last if $last; + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/protocol/TestProtocol/pseudo_http.pm b/2_0_13/t/protocol/TestProtocol/pseudo_http.pm new file mode 100644 index 0000000..3aede65 --- /dev/null +++ b/2_0_13/t/protocol/TestProtocol/pseudo_http.pm
@@ -0,0 +1,196 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestProtocol::pseudo_http; + +# this is a more advanced protocol implementation. While using a +# simplistic socket communication, the protocol uses an almost +# complete HTTP AAA (access and authentication, but not authorization, +# which can be easily added) provided by mod_auth (but can be +# implemented in perl too) +# +# see the protocols.pod document for the explanations of the code + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Connection (); +use Apache2::RequestUtil (); +use Apache2::HookRun (); +use Apache2::Access (); +use APR::Socket (); + +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK DONE DECLINED); +use APR::Const -compile => qw(SO_NONBLOCK); + +my @cmds = qw(date quit); +my %commands = map { $_, \&{$_} } @cmds; + +sub handler { + my $c = shift; + my $socket = $c->client_socket; + + if ($socket->opt_get(APR::Const::SO_NONBLOCK)) { + $socket->opt_set(APR::Const::SO_NONBLOCK => 0); + } + + if ((my $rc = greet($c)) != Apache2::Const::OK) { + $socket->send("Say HELO first\n"); + return $rc; + } + + if ((my $rc = login($c)) != Apache2::Const::OK) { + $socket->send("Access Denied\n"); + return $rc; + } + + $socket->send("Welcome to " . __PACKAGE__ . + "\nAvailable commands: @cmds\n"); + + while (1) { + my $cmd; + next unless $cmd = getline($socket); + + if (my $sub = $commands{$cmd}) { + last unless $sub->($socket) == Apache2::Const::OK; + } + else { + $socket->send("Commands: @cmds\n"); + } + } + + return Apache2::Const::OK; +} + +sub greet { + my $c = shift; + my $socket = $c->client_socket; + + $socket->send("HELO\n"); + my $reply = getline($socket) || ''; + + return $reply eq 'HELO' ? Apache2::Const::OK : Apache2::Const::DECLINED; +} + +sub login { + my $c = shift; + + my $r = Apache2::RequestRec->new($c); + + # test whether we can invoke modperl HTTP handlers on the fake $r + $r->push_handlers(PerlAccessHandler => \&my_access); + + $r->location_merge(__PACKAGE__); + + for my $method (qw(run_access_checker run_check_user_id + run_auth_checker)) { + + my $rc = $r->$method(); + + if ($rc != Apache2::Const::OK and $rc != Apache2::Const::DECLINED) { + return $rc; + } + + last unless $r->some_auth_required; + + unless ($r->user) { + my $socket = $c->client_socket; + + my $username = prompt($socket, "Login"); + my $password = prompt($socket, "Password"); + + $r->set_basic_credentials($username, $password); + } + } + + return Apache2::Const::OK; +} + +sub my_access { + # just test that we can invoke a mod_perl HTTP handler + debug "running my_access"; + return Apache2::Const::OK; +} + +sub getline { + my $socket = shift; + + my $line; + $socket->recv($line, 1024); + return unless $line; + $line =~ s/[\r\n]*$//; + + return $line; +} + +sub prompt { + my ($socket, $msg) = @_; + + $socket->send("$msg:\n"); + getline($socket); +} + +sub date { + my $socket = shift; + + $socket->send("The time is: " . scalar(localtime) . "\n"); + + return Apache2::Const::OK; +} + +sub quit { + my $socket = shift; + + $socket->send("Goodbye\n"); + + return Apache2::Const::DONE +} + +1; +__END__ +<NoAutoConfig> +<VirtualHost TestProtocol::pseudo_http> + + PerlProcessConnectionHandler TestProtocol::pseudo_http + + <Location TestProtocol::pseudo_http> + + <IfModule mod_version.c> + <IfVersion < 2.3.0> + <IfModule @ACCESS_MODULE@> + Order Deny,Allow + Allow from @servername@ + </IfModule> + </IfVersion> + <IfVersion > 2.4.1> + <IfModule mod_access_compat.c> + Order Deny,Allow + Allow from @servername@ + </IfModule> + </IfVersion> + </IfModule> + + <IfModule @AUTH_MODULE@> + # htpasswd -mbc basic-auth stas foobar + # using md5 password so it'll work on win32 too + AuthUserFile @ServerRoot@/htdocs/protocols/basic-auth + </IfModule> + + AuthName TestProtocol::pseudo_http + AuthType Basic + Require user stas + <IfModule mod_version.c> + <IfVersion < 2.3.0> + Satisfy any + </IfVersion> + <IfVersion > 2.4.1> + <IfModule mod_access_compat.c> + Satisfy any + </IfModule> + </IfVersion> + </IfModule> + + </Location> + +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/protocol/echo_bbs.t b/2_0_13/t/protocol/echo_bbs.t new file mode 100644 index 0000000..a5080cf --- /dev/null +++ b/2_0_13/t/protocol/echo_bbs.t
@@ -0,0 +1,21 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +my @test_strings = qw(hello wonderful world); + +plan tests => 1 + @test_strings; + +my $socket = Apache::TestRequest::vhost_socket('TestProtocol::echo_bbs'); + +ok $socket; + +for (@test_strings) { + print $socket "$_\n"; + chomp(my $reply = <$socket>||''); + ok t_cmp($reply, uc($_)); +}
diff --git a/2_0_13/t/protocol/echo_bbs2.t b/2_0_13/t/protocol/echo_bbs2.t new file mode 100644 index 0000000..1dd3329 --- /dev/null +++ b/2_0_13/t/protocol/echo_bbs2.t
@@ -0,0 +1,21 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +my @test_strings = qw(hello world); + +plan tests => 1 + @test_strings; + +my $socket = Apache::TestRequest::vhost_socket('TestProtocol::echo_bbs2'); + +ok $socket; + +for (@test_strings) { + print $socket "$_\n"; + chomp(my $reply = <$socket>||''); + ok t_cmp($reply, uc($_)); +}
diff --git a/2_0_13/t/protocol/echo_block.t b/2_0_13/t/protocol/echo_block.t new file mode 100644 index 0000000..30715b5 --- /dev/null +++ b/2_0_13/t/protocol/echo_block.t
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +my @test_strings = qw(hello world); + +# blocking socket bug fixed in 2.0.52 +my $ok = $^O !~ /^(Open|Net)BSD$/i || need_min_apache_version('2.0.52'); + +plan tests => 1 + @test_strings, $ok; + +my $socket = Apache::TestRequest::vhost_socket('TestProtocol::echo_block'); + +ok $socket; + +for (@test_strings) { + print $socket "$_\n"; + chomp(my $reply = <$socket>||''); + ok t_cmp($reply, $_); +}
diff --git a/2_0_13/t/protocol/echo_filter.t b/2_0_13/t/protocol/echo_filter.t new file mode 100644 index 0000000..b311af1 --- /dev/null +++ b/2_0_13/t/protocol/echo_filter.t
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +my @test_strings = qw(hello world); + +# blocking socket bug fixed in 2.0.52 +my $ok = $^O !~ /^(Open|Net)BSD$/i || need_min_apache_version('2.0.52'); + +plan tests => 1 + @test_strings, $ok; + +my $socket = Apache::TestRequest::vhost_socket('TestProtocol::echo_filter'); + +ok $socket; + +for (@test_strings) { + print $socket "$_\n"; + chomp(my $reply = <$socket>||''); + ok t_cmp($reply, uc($_)); +}
diff --git a/2_0_13/t/protocol/echo_nonblock.t b/2_0_13/t/protocol/echo_nonblock.t new file mode 100644 index 0000000..0de4da8 --- /dev/null +++ b/2_0_13/t/protocol/echo_nonblock.t
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +plan tests => 3; + +my $socket = Apache::TestRequest::vhost_socket('TestProtocol::echo_nonblock'); + +ok $socket; + +my $received; +my $expected; + +$expected = "nonblocking"; +print $socket "$expected\n"; +chomp($received = <$socket> || ''); +ok t_cmp $received, $expected, "no timeout"; + +# now get a timed out request +$expected = "TIMEUP"; +sleep 1; # try to ensure a CPU context switch for the server +print $socket "should timeout\n"; +chomp($received = <$socket> || ''); +ok t_cmp $received, $expected, "timed out"; +
diff --git a/2_0_13/t/protocol/echo_timeout.t b/2_0_13/t/protocol/echo_timeout.t new file mode 100644 index 0000000..261b448 --- /dev/null +++ b/2_0_13/t/protocol/echo_timeout.t
@@ -0,0 +1,21 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +my @test_strings = qw(good bye cruel world); + +plan tests => 1 + @test_strings; + +my $socket = Apache::TestRequest::vhost_socket('TestProtocol::echo_timeout'); + +ok $socket; + +for (@test_strings) { + print $socket "$_\n"; + chomp(my $reply = <$socket>||''); + ok t_cmp($reply, $_); +}
diff --git a/2_0_13/t/protocol/eliza.t b/2_0_13/t/protocol/eliza.t new file mode 100644 index 0000000..0df216f --- /dev/null +++ b/2_0_13/t/protocol/eliza.t
@@ -0,0 +1,34 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +my @test_strings = ('Hello Eliza', + 'How are you?', + 'Why do I have core dumped?', + 'I feel like writing some tests today, what about you?', + 'Good bye, Eliza'); + +plan tests => 2 + @test_strings, need_module 'Chatbot::Eliza'; + +my $socket = Apache::TestRequest::vhost_socket('TestProtocol::eliza'); + +ok $socket; + +for (@test_strings) { + print $socket "$_\n"; + chomp(my $reply = <$socket> || ''); + t_debug "send: $_"; + t_debug "recv: $reply"; + ok $reply; +} + +# at this point 'Good bye, Eliza' should abort the connection. +my $string = 'Eliza should not hear this'; +print $socket "$string\n"; +chomp(my $reply = <$socket> || ''); +t_debug "Eliza shouldn't respond anymore"; +ok !$reply;
diff --git a/2_0_13/t/protocol/pseudo_http.t b/2_0_13/t/protocol/pseudo_http.t new file mode 100644 index 0000000..586c6ac --- /dev/null +++ b/2_0_13/t/protocol/pseudo_http.t
@@ -0,0 +1,148 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest (); + +my $module = 'TestProtocol::pseudo_http'; + +{ + # debug + Apache::TestRequest::module($module); + my $hostport = Apache::TestRequest::hostport(Apache::Test::config()); + t_debug("connecting to $hostport"); +} + +my $login = "stas"; +my $passgood = "foobar"; +my $passbad = "foObaR"; + +# blocking socket bug fixed in 2.0.52 +my $ok = $^O !~ /^(Open|Net)BSD$/i || need_min_apache_version('2.0.52'); + +my @modules = (); +push @modules, 'mod_access_compat.c' if have_min_apache_version("2.4.0"); +plan tests => 13, need need_auth, need_access, @modules, $ok; + +{ + # supply correct credential when prompted for such and ask the + # server get the secret datetime information + my $socket = Apache::TestRequest::vhost_socket($module); + ok $socket; + + #################################################################### + # ACTION SEND RECEIVE + # + # greeting HELO + # HELO + # Login: + # + # login $login + # Password + # + # good pass $passgood + # banner Welcome to TestProtocol::pseudo_http + # Available commands: date quit + # date date + # The time is: Sat Jul 8 23:51:47 2006 + # + # eot quit + # Goodbye + + { + my $response = ""; + $response = Send($socket, 'HELO'); + ok t_cmp($response, 'HELO', 'greeting 1'); + $response = getline($socket); + ok t_cmp($response, 'Login:', 'greeeting 2') + } + + { + my $response = Send($socket, $login); + ok t_cmp($response, 'Password:', 'login'); + } + + { + my $response = ""; + $response = Send($socket, $passgood); + ok t_cmp($response, 'Welcome to TestProtocol::pseudo_http', 'good pass'); + $response = getline($socket); + ok t_cmp($response, 'Available commands: date quit', 'banner'); + } + + { + my $response = Send($socket, 'date'); + ok t_cmp($response, qr/The time is:/, 'date'); + } + + { + my $response = Send($socket, 'quit'); + ok t_cmp($response, 'Goodbye', 'eot'); + } +} + +{ + # supply correct credential when prompted for such and ask the + # server get the secret datetime information + my $socket = Apache::TestRequest::vhost_socket($module); + ok $socket; + + #################################################################### + # ACTION SEND RECEIVE + # + # greeting HELO + # HELO + # Login: + # + # login $login + # Password + # + # bad pass $passbad + # Access Denied + # + # eot quit + # Goodbye + + { + my $response = ""; + $response = Send($socket, 'HELO'); + ok t_cmp($response, 'HELO', 'greeting 1'); + $response = getline($socket); + ok t_cmp($response, 'Login:', 'greeeting 2') + } + + { + my $response = Send($socket, $login); + ok t_cmp($response, 'Password:', 'login'); + } + + { + my $response = ""; + $response = Send($socket, $passbad); + ok t_cmp($response, 'Access Denied', 'eot'); + } +} + +## send() is reserved +sub Send { + my ($socket, $str) = @_; + + t_debug("send: $str"); + print $socket $str; + + chomp(my $recv = <$socket> || ''); + t_debug("recv: $recv"); + + return $recv; +} + +sub getline { + my ($socket) = @_; + + chomp(my $recv = <$socket> || ''); + t_debug("getline: $recv"); + + return $recv; +}
diff --git a/2_0_13/t/response/TestAPI/access.pm b/2_0_13/t/response/TestAPI/access.pm new file mode 100644 index 0000000..82b1a03 --- /dev/null +++ b/2_0_13/t/response/TestAPI/access.pm
@@ -0,0 +1,65 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::access; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Access (); + +use Apache2::Const -compile => qw(OK :options :override :satisfy); + +sub handler { + my $r = shift; + + plan $r, tests => 11; + + $r->allow_methods(1, qw(GET POST)); + + ok 1; + + ok $r->allow_options & Apache2::Const::OPT_INDEXES; + + ok !($r->allow_options & Apache2::Const::OPT_EXECCGI); + + ok !($r->allow_overrides & Apache2::Const::OR_LIMIT); + + ok t_cmp $r->satisfies, Apache2::Const::SATISFY_NOSPEC, "satisfies"; + + ok t_cmp $r->auth_name, 'modperl', "auth_name"; + + $r->auth_name('modperl_test'); + ok t_cmp $r->auth_name, 'modperl_test', "auth_name"; + $r->auth_name('modperl'); + + ok t_cmp $r->auth_type, 'none', "auth_type"; + + $r->auth_type('Basic'); + ok t_cmp $r->auth_type, 'Basic', "auth_type"; + $r->auth_type('none'); + + ok !$r->some_auth_required; + + # XXX: this test requires a running identd, which we have no way + # to figure out whether it's running, or how to start one. so for + # now just check that the method is call-able. + my $remote_logname = $r->get_remote_logname() || ''; + t_debug "get_remote_logname: $remote_logname"; + ok 1; + + Apache2::Const::OK; +} + +1; +__END__ +Options None +Options Indexes FollowSymLinks +AuthName modperl +AuthType none + +# this directive was moved from core in Apache 2.1 +# since we're not testing that identd is running +# anyway we probably don't need to include it at all +#IdentityCheck On
diff --git a/2_0_13/t/response/TestAPI/access2.pm b/2_0_13/t/response/TestAPI/access2.pm new file mode 100644 index 0000000..5677408 --- /dev/null +++ b/2_0_13/t/response/TestAPI/access2.pm
@@ -0,0 +1,125 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::access2; + +# testing $r->requires +# in the POST test it returns: +# +# [ +# { +# 'method_mask' => -1, +# 'requirement' => 'user goo bar' +# }, +# { +# 'method_mask' => -1, +# 'requirement' => 'group bar tar' +# } +# { +# 'method_mask' => 4, +# 'requirement' => 'valid-user' +# } +# ]; +# +# otherwise it returns the same, sans the 'valid-user' entry +# +# also test: +# - $r->some_auth_required when it's required +# - $r->satisfies when Satisfy is set + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Access (); +use Apache2::RequestRec (); + +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED SERVER_ERROR + M_POST :satisfy); + +my $users = "goo bar"; +my $groups = "bar tar"; +my %users = ( + goo => "goopass", + bar => "barpass", +); + +sub handler { + my $r = shift; + die '$r->some_auth_required failed' unless $r->some_auth_required; + + my $satisfies = $r->satisfies; + die "wanted satisfies=" . Apache2::Const::SATISFY_ALL . ", got $satisfies" + unless $r->satisfies() == Apache2::Const::SATISFY_ALL; + + my ($rc, $sent_pw) = $r->get_basic_auth_pw; + return $rc if $rc != Apache2::Const::OK; + + # extract just the requirement entries + my %require = + map { my ($k, $v) = split /\s+/, $_->{requirement}, 2; ($k, $v||'') } + @{ $r->requires }; + debug \%require; + + # silly (we don't check user/pass here), just checking when + # the Limit options are getting through + if ($r->method_number == Apache2::Const::M_POST) { + if (exists $require{"valid-user"}) { + return Apache2::Const::OK; + } + else { + return Apache2::Const::SERVER_ERROR; + } + } + else { + # non-POST requests shouldn't see the Limit enclosed entry + return Apache2::Const::SERVER_ERROR if exists $require{"valid-user"}; + } + + return Apache2::Const::SERVER_ERROR unless $require{user} eq $users; + return Apache2::Const::SERVER_ERROR unless $require{group} eq $groups; + + my $user = $r->user; + my $pass = $users{$user} || ''; + unless (defined $pass and $sent_pw eq $pass) { + $r->note_basic_auth_failure; + return Apache2::Const::HTTP_UNAUTHORIZED; + } + + Apache2::Const::OK; +} + +1; +__DATA__ + +<NoAutoConfig> +<IfModule mod_version.c> +<IfVersion < 2.3.0> +<Location /TestAPI__access2> + PerlAuthenHandler TestAPI::access2 + PerlResponseHandler Apache::TestHandler::ok1 + SetHandler modperl + + <IfModule @ACCESS_MODULE@> + # needed to test $r->satisfies + Allow from All + </IfModule> + AuthType Basic + AuthName "Access" + Require user goo bar + Require group bar tar + <Limit POST> + Require valid-user + </Limit> + Satisfy All + <IfModule @AUTH_MODULE@> + # htpasswd -mbc auth-users goo foo + # htpasswd -mb auth-users bar mar + # using md5 password so it'll work on win32 too + AuthUserFile @DocumentRoot@/api/auth-users + # group: user1 user2 ... + AuthGroupFile @DocumentRoot@/api/auth-groups + </IfModule> +</Location> +</IfVersion> +</IfModule> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestAPI/access2_24.pm b/2_0_13/t/response/TestAPI/access2_24.pm new file mode 100644 index 0000000..b9ab26f --- /dev/null +++ b/2_0_13/t/response/TestAPI/access2_24.pm
@@ -0,0 +1,132 @@ +package TestAPI::access2_24; + +# testing $r->requires +# in the POST test it returns: +# +# [ +# { +# 'method_mask' => -1, +# 'requirement' => 'user goo bar' +# }, +# { +# 'method_mask' => -1, +# 'requirement' => 'group bar tar' +# } +# { +# 'method_mask' => 4, +# 'requirement' => 'valid-user' +# } +# ]; +# +# otherwise it returns the same, sans the 'valid-user' entry +# +# also test: +# - $r->some_auth_required when it's required +# - $r->satisfies when Satisfy is set + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Access (); +use Apache2::RequestRec (); + +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK HTTP_UNAUTHORIZED SERVER_ERROR + AUTHZ_GRANTED AUTHZ_DENIED M_POST :satisfy + AUTHZ_DENIED_NO_USER); + +my $users = "goo bar"; +my $groups = "xar tar"; +my %users = ( + goo => "goopass", + bar => "barpass", +); + +sub authz_handler { + my $self = shift; + my $r = shift; + my $requires = shift; + + if (!$r->user) { + return Apache2::Const::AUTHZ_DENIED_NO_USER; + } + + return Apache2::Const::SERVER_ERROR unless + $requires eq $users or $requires eq $groups; + + my @require_args = split(/\s+/, $requires); + if (grep {$_ eq $r->user} @require_args) { + return Apache2::Const::AUTHZ_GRANTED; + } + + return Apache2::Const::AUTHZ_DENIED; +} + +sub authn_handler { + my $self = shift; + my $r = shift; + + die '$r->some_auth_required failed' unless $r->some_auth_required; + + my $satisfies = $r->satisfies; + die "wanted satisfies=" . Apache2::Const::SATISFY_ALL . ", got $satisfies" + unless $r->satisfies() == Apache2::Const::SATISFY_ALL; + + my ($rc, $sent_pw) = $r->get_basic_auth_pw; + return $rc if $rc != Apache2::Const::OK; + + if ($r->method_number == Apache2::Const::M_POST) { + return Apache2::Const::OK; + } + + my $user = $r->user; + my $pass = $users{$user} || ''; + unless (defined $pass and $sent_pw eq $pass) { + $r->note_basic_auth_failure; + return Apache2::Const::HTTP_UNAUTHORIZED; + } + + Apache2::Const::OK; +} + +1; +__DATA__ + +<NoAutoConfig> +<IfModule mod_version.c> +<IfVersion > 2.4.1> + +PerlAddAuthzProvider my-user TestAPI::access2_24->authz_handler +PerlAddAuthzProvider my-group TestAPI::access2_24->authz_handler +<Location /TestAPI__access2> + PerlAuthenHandler TestAPI::access2_24->authn_handler + PerlResponseHandler Apache::TestHandler::ok1 + SetHandler modperl + + <IfModule mod_access_compat.c> + # needed to test $r->satisfies + Allow from All + </IfModule> + AuthType Basic + AuthName "Access" + Require my-user goo bar + Require my-group xar tar + <Limit POST> + Require valid-user + </Limit> + <IfModule mod_access_compat.c> + Satisfy All + </IfModule> + <IfModule @AUTH_MODULE@> + # htpasswd -mbc auth-users goo foo + # htpasswd -mb auth-users bar mar + # using md5 password so it'll work on win32 too + AuthUserFile @DocumentRoot@/api/auth-users + # group: user1 user2 ... + AuthGroupFile @DocumentRoot@/api/auth-groups + </IfModule> +</Location> +</IfVersion> +</IfModule> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestAPI/add_config.pm b/2_0_13/t/response/TestAPI/add_config.pm new file mode 100644 index 0000000..661608c --- /dev/null +++ b/2_0_13/t/response/TestAPI/add_config.pm
@@ -0,0 +1,149 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::add_config; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Access (); +use Apache2::CmdParms (); +use Apache2::RequestUtil (); +use Apache2::Directive (); +use Apache2::ServerUtil (); +use base qw(Apache2::Module); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw( + OK + DECLINED + :options +); + +use constant KEY => "TestAddConfig"; +use constant APACHE22 => have_min_apache_version('2.2.0'); +use constant APACHE24 => have_min_apache_version('2.4.0'); + +my @directives = ( + { + name => KEY, + cmd_data => 'cmd_data', + errmsg => 'errmsg', + }, +); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub TestAddConfig { + my ($self, $parms, $args) = @_; + my $srv_cfg = $self->get_config($parms->server); + $srv_cfg->{override_opts} = $parms->override_opts(); +} + +sub map2storage { + my $r = shift; + + my $o = APACHE22 ? '=All,SymLinksIfOwnerMatch' : ''; + + eval { + $r->add_config(['AllowOverride All Options'.$o]); + }; + $r->pnotes(add_config1 => "$@"); + + eval { + $r->add_config(['Options ExecCGI'], -1, '/', 0); + }; + $r->pnotes(add_config2 => "$@"); + + # We can set AllowOverride only from .htacces in 2.4.0+ + if (!APACHE24) { + eval { + $r->add_config(['AllowOverride Options=FollowSymLinks'], -1); + }; + $r->pnotes(followsymlinks => "$@"); + } + + eval { + my $path="/a/path/to/somewhere"; + $r->add_config(['PerlResponseHandler '.__PACKAGE__], -1, $path); + # now overwrite the path in place to see if the location pointer + # is really copied: see modperl_config_dir_create + $path=~tr[a-z][n-za-m]; + }; + + return Apache2::Const::DECLINED; +} + +sub fixup { + my ($r) = @_; + + eval { + $r->add_config(['Options ExecCGI'], -1, '/', + Apache2::Const::OPT_EXECCGI); + }; + $r->pnotes(add_config3 => "$@"); + + eval { + $r->server->add_config(['ServerAdmin foo@bar.com']); + }; + $r->pnotes(add_config4 => "$@"); + + return Apache2::Const::DECLINED; +} + +sub handler : method { + my ($self, $r) = @_; + my $cf = $self->get_config($r->server); + + plan $r, tests => 9; + + ok t_cmp $r->pnotes('add_config1'), qr/.+\n/; + ok t_cmp $r->pnotes('add_config2'), (APACHE22 ? qr/.+\n/ : ''); + ok t_cmp $r->pnotes('add_config3'), ''; + ok t_cmp $r->pnotes('add_config4'), qr/after server startup/; + if (!APACHE24) { + ok t_cmp $r->pnotes('followsymlinks'), (APACHE22 ? '': qr/.*\n/); + } + else { + ok 1; + } + + my $expect = Apache2::Const::OPT_ALL | + Apache2::Const::OPT_UNSET | + (defined &Apache2::Const::OPT_INCNOEXEC + ? Apache2::Const::OPT_INCNOEXEC() : 0) | + Apache2::Const::OPT_MULTI | + Apache2::Const::OPT_SYM_OWNER; + + ok t_cmp $cf->{override_opts}, $expect; + ok t_cmp $r->allow_options, Apache2::Const::OPT_EXECCGI; + + my $opts = APACHE22 ? Apache2::Const::OPT_SYM_LINKS : $expect; + if (!APACHE24) { + ok t_cmp $r->allow_override_opts, $opts; + } + else { + ok 1; + } + + ok t_cmp $r->location, '/a/path/to/somewhere'; + + return Apache2::Const::OK; +} + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 +<NoAutoConfig> + <VirtualHost TestAPI::add_config> + PerlLoadModule TestAPI::add_config + AccessFileName htaccess + SetHandler modperl + <Directory @DocumentRoot@> + AllowOverride All + </Directory> + PerlMapToStorageHandler TestAPI::add_config::map2storage + PerlFixupHandler TestAPI::add_config::fixup + </VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestAPI/aplog.pm b/2_0_13/t/response/TestAPI/aplog.pm new file mode 100644 index 0000000..9cbef98 --- /dev/null +++ b/2_0_13/t/response/TestAPI/aplog.pm
@@ -0,0 +1,282 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::aplog; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::ServerRec qw(warn); # override warn locally +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use Apache2::Log (); +use Apache2::MPM (); + +use File::Spec::Functions qw(catfile); + +use Apache::Test; +use Apache::TestUtil; +use TestCommon::LogDiff; + +use Apache2::Const -compile => qw(OK :log); +use APR::Const -compile => qw(:error SUCCESS); +use constant APACHE24 => have_min_apache_version('2.4.0'); + +my @LogLevels = qw(emerg alert crit error warn notice info debug); +my $package = __PACKAGE__; + +my $path = catfile Apache::Test::vars('serverroot'), + qw(logs error_log); + +sub handler { + my $r = shift; + my $s = $r->server; + + plan $r, tests => (@LogLevels * 2) + 20; + + my $logdiff = TestCommon::LogDiff->new($path); + + my $rlog = $r->log; + + ok $rlog->isa('Apache2::Log::Request'); + + my $slog = $s->log; + + ok $slog->isa('Apache2::Log::Server'); + + t_server_log_warn_is_expected(); + $rlog->info($package, " test in progress"); + ok t_cmp $logdiff->diff, + qr/... TestAPI::aplog test in progress/, + '$r->log->info'; + + my ($file, $line) = Apache2::Log::LOG_MARK; + ok $file eq __FILE__; + ok $line == __LINE__ - 2; + + for my $method (@LogLevels) { + # wrap in sub {}, else Test.pm tries to run the return value + # of ->can + ok sub { $rlog->can($method) }; + ok sub { $slog->can($method) }; + } + + # log_serror + { + my $orig_log_level = 0; + if (APACHE24) { + $orig_log_level = $s->loglevel; + $s->loglevel(Apache2::Const::LOG_DEBUG); + } + t_server_log_warn_is_expected(); + $s->log_serror(Apache2::Log::LOG_MARK, + Apache2::Const::LOG_INFO|Apache2::Const::LOG_STARTUP, + APR::Const::SUCCESS, "This log message comes with no header"); + ok t_cmp $logdiff->diff, + qr/^This log message comes with no header$/m, + '$s->log_serror(LOG_MARK, LOG_INFO|LOG_STARTUP...)'; + + t_server_log_warn_is_expected(); + $s->log_serror(__FILE__, __LINE__, Apache2::Const::LOG_DEBUG, + APR::Const::SUCCESS, "log_serror test 1"); + ok t_cmp $logdiff->diff, + qr/: log_serror test 1$/m, + '$s->log_serror(__FILE__, __LINE__, LOG_DEBUG...)'; + + # the APR_EGENERAL error string changed for APR 1.0 + my $egeneral = have_min_apache_version('2.1.0') + ? qr/Internal error(?: \(specific information not available\))?/ + : "Error string not specified yet"; + + t_server_log_warn_is_expected(); + $s->log_serror(Apache2::Log::LOG_MARK, Apache2::Const::LOG_DEBUG, + APR::Const::EGENERAL, "log_serror test 2"); + ok t_cmp $logdiff->diff, + qr/$egeneral: log_serror test 2/, + '$s->log_serror(LOG_MARK, LOG_DEBUG, APR::Const::EGENERAL...)'; + if (APACHE24) { + $s->loglevel($orig_log_level); + } + } + + # log_rerror + t_server_log_error_is_expected(); + $r->log_rerror(Apache2::Log::LOG_MARK, Apache2::Const::LOG_CRIT, + APR::Const::ENOTIME, "log_rerror test"); + # can't match against the error string, since a locale may kick in + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:crit\] \[pid[^]]+\] .*?: \[[^]]+\] log_rerror test/, + '$r->log_rerror(LOG_MARK, LOG_CRIT, APR::Const::ENOTIME...)'; + } + else { + ok t_cmp $logdiff->diff, + qr/\[crit\] .*?: log_rerror test/, + '$r->log_rerror(LOG_MARK, LOG_CRIT, APR::Const::ENOTIME...)'; + } + + # log_error + { + t_server_log_error_is_expected(); + $r->log_error('$r->log_error test'); + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:error\] \[pid[^]]+\] \$r->log_error test/, + '$r->log_error(...)'; + } + else { + ok t_cmp $logdiff->diff, + qr/\[error\] \$r->log_error test/, + '$r->log_error(...)'; + } + + t_server_log_error_is_expected(); + $s->log_error('$s->log_error test'); + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:error\] \[pid[^]]+\] \$s->log_error test/, + '$s->log_error(...)'; + } + else { + ok t_cmp $logdiff->diff, + qr/\[error\] \$s->log_error test/, + '$s->log_error(...)'; + } + } + + # log_reason + { + t_server_log_error_is_expected(); + $r->log_reason('$r->log_reason test'); + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:error\] \[pid[^]]+\] access to.*failed.*reason: \$r->log_reason test/, + '$r->log_reason(msg)'; + } + else { + ok t_cmp $logdiff->diff, + qr/\[error\] access to.*failed.*reason: \$r->log_reason test/, + '$r->log_reason(msg)'; + } + + t_server_log_error_is_expected(); + $r->log_reason('$r->log_reason filename test','filename'); + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:error\] \[pid[^]]+\] access to filename failed.*\$r->log_reason filename test/, + '$r->log_reason(msg, filename)'; + } + else { + ok t_cmp $logdiff->diff, + qr/\[error\] access to filename failed.*\$r->log_reason filename test/, + '$r->log_reason(msg, filename)'; + } + } + + # XXX: at the moment we can't change loglevel after server startup + # in a threaded mpm environment + if (!Apache2::MPM->is_threaded) { + my $orig_log_level = $s->loglevel; + + $s->loglevel(Apache2::Const::LOG_INFO); + + if ($s->error_fname) { + #XXX: does not work under t/TEST -ssl + $slog->debug(sub { die "set loglevel no workie" }); + # ok t_cmp $logdiff->diff... + } + + t_server_log_warn_is_expected(); + $s->loglevel(Apache2::Const::LOG_DEBUG); + $slog->debug(sub { ok 1; "$package test done" }); + ok t_cmp $logdiff->diff, + qr/TestAPI::aplog test done/, + '$slog->debug(sub { })'; + + $s->loglevel($orig_log_level); + } + else { + ok 1; + ok 1; + } + + # notice() messages ignore the LogLevel value and always get + # logged by Apache design (unless error log is set to syslog) + if (!Apache2::MPM->is_threaded) { + my $orig_log_level = $s->loglevel; + + $r->server->loglevel(Apache2::Const::LOG_ERR); + my $ignore = $logdiff->diff; # reset fh + # notice < error + my $msg = "This message should appear with LogLevel=error!"; + $r->log->notice($msg); + ok t_cmp $logdiff->diff, + qr/[notice] .*? $msg/, + "notice() logs regardless of LogLevel"; + + $s->loglevel($orig_log_level); + } + else { + ok 1; + } + + + t_server_log_warn_is_expected(); + $s->warn('$s->warn test'); + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:warn\] \[pid[^]]+\] \$s->warn test/, + '$s->warn()'; + } + else { + ok t_cmp $logdiff->diff, + qr/\[warn\] \$s->warn test/, + '$s->warn()'; + } + + { + t_server_log_warn_is_expected(); + # this uses global server to get $s internally + Apache2::ServerRec::warn("Apache2::ServerRec::warn test"); + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:warn\] \[pid[^]]+\] Apache2::ServerRec::warn test/, + 'Apache2::ServerRec::warn() w/o Apache2::RequestUtil->request '; + } + else { + ok t_cmp $logdiff->diff, + qr/\[warn\] Apache2::ServerRec::warn test/, + 'Apache2::ServerRec::warn() w/o Apache2::RequestUtil->request '; + } + + Apache2::RequestUtil->request($r); + t_server_log_warn_is_expected(); + # this uses the global $r to get $s internally + Apache2::ServerRec::warn("Apache2::ServerRec::warn test"); + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:warn\] \[pid[^]]+\] Apache2::ServerRec::warn test/, + 'Apache2::ServerRec::warn() w/ Apache2::RequestUtil->request '; + } + else { + ok t_cmp $logdiff->diff, + qr/\[warn\] Apache2::ServerRec::warn test/, + 'Apache2::ServerRec::warn() w/ Apache2::RequestUtil->request '; + } + } + + t_server_log_warn_is_expected(); + warn "warn test"; + if (APACHE24) { + ok t_cmp $logdiff->diff, + qr/\[\w*:warn\] \[pid[^]]+\] warn test/, + 'overriden via export warn()'; + } + else { + ok t_cmp $logdiff->diff, + qr/\[warn\] warn test/, + 'overriden via export warn()'; + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/command.pm b/2_0_13/t/response/TestAPI/command.pm new file mode 100644 index 0000000..db32ea1 --- /dev/null +++ b/2_0_13/t/response/TestAPI/command.pm
@@ -0,0 +1,43 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::command; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Command (); +use Apache2::Module (); + +use Apache2::Const -compile => qw(OK ITERATE OR_ALL); + +sub handler { + my $r = shift; + + plan $r, tests => 6; + + my $mod_perl_module = Apache2::Module::find_linked_module('mod_perl.c'); + + ok $mod_perl_module; + + my $cmd = $mod_perl_module->cmds; + + ok defined $cmd; + + ok UNIVERSAL::isa($cmd, 'Apache2::Command'); + + while ($cmd) { + if ($cmd->name eq 'PerlResponseHandler') { + ok t_cmp($cmd->args_how, Apache2::Const::ITERATE, 'args_how'); + ok t_cmp($cmd->errmsg, qr/Subroutine name/, 'errmsg'); + ok t_cmp($cmd->req_override, Apache2::Const::OR_ALL, 'req_override'); + last; + } + $cmd = $cmd->next; + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/conn_rec.pm b/2_0_13/t/response/TestAPI/conn_rec.pm new file mode 100644 index 0000000..a561629 --- /dev/null +++ b/2_0_13/t/response/TestAPI/conn_rec.pm
@@ -0,0 +1,96 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::conn_rec; + +# this test module is only for testing fields in the conn_rec listed +# in apache_structures.map (but some fields are tested in other tests) + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use Apache2::Connection (); + +use Apache2::Const -compile => qw(OK CONN_CLOSE); + +use constant APACHE24 => have_min_apache_version('2.4.0'); + +sub handler { + my $r = shift; + + my $c = $r->connection; + + plan $r, tests => 16; + + ok $c; + + ok $c->pool->isa('APR::Pool'); + + ok $c->base_server->isa('Apache2::ServerRec'); + + ok $c->client_socket->isa('APR::Socket'); + + ok $c->local_addr->isa('APR::SockAddr'); + + if (APACHE24) { + ok $c->client_addr->isa('APR::SockAddr'); + + # client_ip + { + my $client_ip_org = $c->client_ip; + my $client_ip_new = "10.10.10.255"; + ok $client_ip_org; + + $c->client_ip($client_ip_new); + ok t_cmp $c->client_ip, $client_ip_new; + + # restore + $c->client_ip($client_ip_org); + ok t_cmp $c->client_ip, $client_ip_org; + } + } + else { + ok $c->remote_addr->isa('APR::SockAddr'); + # remote_ip + { + my $remote_ip_org = $c->remote_ip; + my $remote_ip_new = "10.10.10.255"; + ok $remote_ip_org; + + $c->remote_ip($remote_ip_new); + ok t_cmp $c->remote_ip, $remote_ip_new; + + + # restore + $c->remote_ip($remote_ip_org); + ok t_cmp $c->remote_ip, $remote_ip_org; + } + } + + ok $c->remote_host || 1; + + ok !$c->aborted; + + ok t_cmp($c->keepalive, + Apache2::Const::CONN_CLOSE, + "the client has issued a non-keepalive request"); + + ok $c->local_ip; + + ok $c->local_host || 1; + + t_debug "id ", ($c->id == 0 ? "zero" : $c->id); + ok $c->id || 1; + + ok $c->notes; + + # XXX: missing tests + # conn_config + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/conn_util.pm b/2_0_13/t/response/TestAPI/conn_util.pm new file mode 100644 index 0000000..b3e167f --- /dev/null +++ b/2_0_13/t/response/TestAPI/conn_util.pm
@@ -0,0 +1,38 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::conn_util; + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use Apache2::Connection (); + +use Apache2::Const -compile => qw(OK REMOTE_HOST REMOTE_NAME + REMOTE_NOLOOKUP REMOTE_DOUBLE_REV); + +sub handler { + my $r = shift; + + my $c = $r->connection; + + plan $r, tests => 7; + + ok $c->get_remote_host() || 1; + + for (Apache2::Const::REMOTE_HOST, Apache2::Const::REMOTE_NAME, + Apache2::Const::REMOTE_NOLOOKUP, Apache2::Const::REMOTE_DOUBLE_REV) { + ok $c->get_remote_host($_) || 1; + } + + ok $c->get_remote_host(Apache2::Const::REMOTE_HOST, + $r->per_dir_config) || 1; + ok $c->get_remote_host(Apache2::Const::REMOTE_HOST, $r->per_dir_config) || 1; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/content_encoding.pm b/2_0_13/t/response/TestAPI/content_encoding.pm new file mode 100644 index 0000000..a405000 --- /dev/null +++ b/2_0_13/t/response/TestAPI/content_encoding.pm
@@ -0,0 +1,34 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::content_encoding; + +# tests: $r->content_encoding("gzip"); + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK DECLINED M_POST); + +sub handler { + my $r = shift; + + return Apache2::Const::DECLINED unless $r->method_number == Apache2::Const::M_POST; + + my $data = TestCommon::Utils::read_post($r); + + require Compress::Zlib; + + $r->content_type("text/plain"); + $r->content_encoding("gzip"); + + $r->print(Compress::Zlib::memGzip($data)); + + Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestAPI/custom_response.pm b/2_0_13/t/response/TestAPI/custom_response.pm new file mode 100644 index 0000000..b7dc429 --- /dev/null +++ b/2_0_13/t/response/TestAPI/custom_response.pm
@@ -0,0 +1,34 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::custom_response; + +# custom_response() doesn't alter the response code, but is used to +# replace the standard response body + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Response (); + +use Apache2::Const -compile => qw(FORBIDDEN); + +sub handler { + my $r = shift; + + my $how = $r->args || ''; + # warn "$how"; + # could be text or url + $r->custom_response(Apache2::Const::FORBIDDEN, $how); + + return Apache2::Const::FORBIDDEN; +} + +1; +__END__ +<NoAutoConfig> +<Location /TestAPI__custom_response> + AuthName dummy + AuthType none + PerlAccessHandler TestAPI::custom_response +</Location> +</NoAutoConfig> +
diff --git a/2_0_13/t/response/TestAPI/err_headers_out.pm b/2_0_13/t/response/TestAPI/err_headers_out.pm new file mode 100644 index 0000000..c8447ab --- /dev/null +++ b/2_0_13/t/response/TestAPI/err_headers_out.pm
@@ -0,0 +1,31 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::err_headers_out; + +# tests: $r->err_headers_out + +# when sending a non-2xx response one must use $r->err_headers_out to +# set extra headers + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use APR::Table (); + +use Apache2::Const -compile => qw(OK NOT_FOUND); + +sub handler { + my $r = shift; + + # this header will always make it to the client + $r->err_headers_out->add('X-err_headers_out' => "err_headers_out"); + + # this header will make it to the client only on 2xx response + $r->headers_out->add('X-headers_out' => "headers_out"); + + return $r->args eq "404" ? Apache2::Const::NOT_FOUND : Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestAPI/in_out_filters.pm b/2_0_13/t/response/TestAPI/in_out_filters.pm new file mode 100644 index 0000000..1bb03a2 --- /dev/null +++ b/2_0_13/t/response/TestAPI/in_out_filters.pm
@@ -0,0 +1,84 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::in_out_filters; + +# testing: $r->input_filters and $r->output_filters +# it's possible to read a POST data and send a response body w/o using +# $r->read/$r->print + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); + +use APR::Brigade (); +use APR::Bucket (); +use Apache2::Filter (); + +use Apache2::Const -compile => qw(OK M_POST DECLINED MODE_READBYTES); +use APR::Const -compile => qw(SUCCESS BLOCK_READ); + +use constant IOBUFSIZE => 8192; + +sub handler { + my $r = shift; + + return Apache2::Const::DECLINED unless $r->method_number == Apache2::Const::M_POST; + + $r->content_type("text/plain"); + + my $data = read_request_body($r); + send_response_body($r, lc($data)); + + Apache2::Const::OK; +} + +sub send_response_body { + my ($r, $data) = @_; + + my $bb = APR::Brigade->new($r->pool, + $r->connection->bucket_alloc); + + my $b = APR::Bucket->new($r->connection->bucket_alloc, $data); + $bb->insert_tail($b); + $r->output_filters->fflush($bb); + $bb->destroy; +} + +sub read_request_body { + my $r = shift; + + my $bb = APR::Brigade->new($r->pool, + $r->connection->bucket_alloc); + + my $data = ''; + my $seen_eos = 0; + my $count = 0; + do { + $r->input_filters->get_brigade($bb, Apache2::Const::MODE_READBYTES, + APR::Const::BLOCK_READ, IOBUFSIZE); + + $count++; + + for (my $b = $bb->first; $b; $b = $bb->next($b)) { + if ($b->is_eos) { + $seen_eos++; + last; + } + + if ($b->read(my $buf)) { + $data .= $buf; + } + + $b->delete; + } + + } while (!$seen_eos); + + $bb->destroy; + + return $data; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestAPI/internal_redirect.pm b/2_0_13/t/response/TestAPI/internal_redirect.pm new file mode 100644 index 0000000..1918f3b --- /dev/null +++ b/2_0_13/t/response/TestAPI/internal_redirect.pm
@@ -0,0 +1,66 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::internal_redirect; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache::TestTrace; + +use Apache2::Const -compile => 'OK'; + +sub modperl { + my $r = shift; + + my %args = map { split('=', $_, 2) } split /[&]/, $r->args; + if ($args{main}) { + # sub-req + $r->content_type('text/plain'); + debug "modperl: sub-req: response"; + $r->print("internal redirect: $args{main} => modperl"); + } + else { + # main-req + my $redirect_uri = $args{uri}; + debug "modperl: main-req => $redirect_uri?main=modperl"; + $r->internal_redirect("$redirect_uri?main=modperl"); + } + + Apache2::Const::OK; +} + +sub perl_script { + my $r = shift; + + my %args = map { split('=', $_, 2) } split /[&]/, $r->args; + if ($args{main}) { + # sub-req + $r->content_type('text/plain'); + debug "perl-script: sub-req: response"; + print "internal redirect: $args{main} => perl-script"; + } + else { + # main-req + my $redirect_uri = $args{uri}; + debug "perl-script: main-req => $redirect_uri?main=perl-script"; + $r->internal_redirect("$redirect_uri?main=perl-script"); + } + + Apache2::Const::OK; +} +1; +__DATA__ +<NoAutoConfig> + PerlModule TestAPI::internal_redirect + <Location /TestAPI__internal_redirect_modperl> + SetHandler modperl + PerlResponseHandler TestAPI::internal_redirect::modperl + </Location> + <Location /TestAPI__internal_redirect_perl_script> + SetHandler perl-script + PerlResponseHandler TestAPI::internal_redirect::perl_script + </Location> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestAPI/internal_redirect_handler.pm b/2_0_13/t/response/TestAPI/internal_redirect_handler.pm new file mode 100644 index 0000000..8bab332 --- /dev/null +++ b/2_0_13/t/response/TestAPI/internal_redirect_handler.pm
@@ -0,0 +1,39 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::internal_redirect_handler; + +# $r->internal_redirect_handler() is the same as +# $r->internal_redirect() but it uses the same content-type as the +# top-level handler + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache2::Const -compile => 'OK'; + +my $uri = '/' . Apache::TestRequest::module2path(__PACKAGE__); + +sub handler { + my $r = shift; + + my %args = map { split '=', $_, 2 } split /[&]/, $r->args; + if ($args{main}) { + # sub-req should see the same content-type as the top-level + my $ct = $r->content_type; + $r->content_type('text/plain'); + $r->print($ct); + } + else { + # main-req + $r->content_type($args{ct}); + $r->internal_redirect_handler("$uri?main=1"); + } + + Apache2::Const::OK; +} + +1; +__DATA__
diff --git a/2_0_13/t/response/TestAPI/lookup_misc.pm b/2_0_13/t/response/TestAPI/lookup_misc.pm new file mode 100644 index 0000000..57d39d3 --- /dev/null +++ b/2_0_13/t/response/TestAPI/lookup_misc.pm
@@ -0,0 +1,53 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::lookup_misc; + +# testing misc lookup_ methods. TestAPI::lookup_uri includes the tests +# for lookup_uri and for filters, which should be the same for all +# other lookup_ methods + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); +use Apache2::SubRequest (); +use Apache2::URI (); + +use Apache::TestTrace; + +use Apache2::Const -compile => 'OK'; + +my $uri = '/' . Apache::TestRequest::module2path(__PACKAGE__); + +sub handler { + my $r = shift; + + my %args = map { split '=', $_, 2 } split /;/, $r->args; + + if ($args{subreq} eq 'lookup_file') { + Apache2::URI::unescape_url($args{file}); + debug "lookup_file($args{file})"; + my $subr = $r->lookup_file($args{file}); + $subr->run; + } + elsif ($args{subreq} eq 'lookup_method_uri') { + debug "lookup_method_uri($args{uri})"; + my $subr = $r->lookup_method_uri("GET", $args{uri}); + $subr->run; + } + else { + $r->print("default"); + } + + + Apache2::Const::OK; +} + + +1; +__DATA__ +<Location /lookup_method_uri> + SetHandler modperl + PerlResponseHandler Apache::TestHandler::ok +</Location>
diff --git a/2_0_13/t/response/TestAPI/lookup_uri.pm b/2_0_13/t/response/TestAPI/lookup_uri.pm new file mode 100644 index 0000000..17fd9d2 --- /dev/null +++ b/2_0_13/t/response/TestAPI/lookup_uri.pm
@@ -0,0 +1,85 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::lookup_uri; + +# tests $r->lookup_uri and its work with filters + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Filter (); +use Apache2::SubRequest (); + +use Apache2::Const -compile => 'OK'; + +my $uri = '/' . Apache::TestRequest::module2path(__PACKAGE__); + +sub handler { + my $r = shift; + + my $args = $r->args || ''; + my %args = map { split '=', $_, 2 } split /;/, $args; + + if ($args{main}) { + $args =~ s/main=1;//; + $r->print($args); + } + else { + my $new_args = "$uri?main=1;$args"; + my $subr; + $args{filter} ||= ''; + if ($args{filter} eq 'first') { + # run all request filters + $subr = $r->lookup_uri($new_args, + $r->output_filters); + } + elsif ($args{filter} eq 'second') { + # run all request filters, but the top one + $subr = $r->lookup_uri($new_args, + $r->output_filters->next); + } + elsif ($args{filter} eq 'default') { + # run none of request filters + $subr = $r->lookup_uri($new_args); + } + elsif ($args{filter} eq 'none') { + # run none of request filters + $subr = $r->lookup_uri($new_args, + $r->proto_output_filters); + } + else { + die "no filter= argument was received"; + } + + $subr->run; + } + + Apache2::Const::OK; +} + +sub prefix_filter { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + $filter->print("pre+$buffer"); + } + + Apache2::Const::OK; +} + +sub suffix_filter { + my $filter = shift; + + while ($filter->read(my $buffer, 1024)) { + $filter->print("$buffer+suf"); + } + + Apache2::Const::OK; +} + +1; +__DATA__ +PerlModule TestAPI::lookup_uri +PerlOutputFilterHandler TestAPI::lookup_uri::prefix_filter +PerlOutputFilterHandler TestAPI::lookup_uri::suffix_filter
diff --git a/2_0_13/t/response/TestAPI/lookup_uri2.pm b/2_0_13/t/response/TestAPI/lookup_uri2.pm new file mode 100644 index 0000000..c167210 --- /dev/null +++ b/2_0_13/t/response/TestAPI/lookup_uri2.pm
@@ -0,0 +1,59 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::lookup_uri2; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::SubRequest (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); + +use Apache2::Const -compile => 'OK'; + +sub myplan { + my $r = shift; + + $r->puts("1..3\nok 1\n"); + + die "must indicate a sub-request" if $r->is_initial_req(); + + Apache2::Const::OK; +} + +sub ok3 { + my $r = shift; + + $r->puts("ok 3\n"); + + Apache2::Const::OK; +} + +sub subrequest { + my ($r, $sub) = @_; + (my $uri = join '::', __PACKAGE__, $sub) =~ s!::!__!g; + $r->lookup_uri($uri)->run; +} + +sub handler { + my $r = shift; + + subrequest($r, 'myplan'); + + $r->puts("ok 2\n"); + + subrequest($r, 'ok3'); + + Apache2::Const::OK; +} + +1; +__DATA__ +<Location /TestAPI__lookup_uri2__myplan> + SetHandler modperl + PerlResponseHandler TestAPI::lookup_uri2::myplan +</Location> + +<Location /TestAPI__lookup_uri2__ok3> + SetHandler modperl + PerlResponseHandler TestAPI::lookup_uri2::ok3 +</Location>
diff --git a/2_0_13/t/response/TestAPI/module.pm b/2_0_13/t/response/TestAPI/module.pm new file mode 100644 index 0000000..4d0754f --- /dev/null +++ b/2_0_13/t/response/TestAPI/module.pm
@@ -0,0 +1,98 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::module; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestConfig; +use Apache::TestUtil; +use Apache2::BuildConfig; + +use Apache2::Module (); +use DynaLoader (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $cfg = Apache::Test::config(); + + my $top_module = Apache2::Module::top_module(); + + my $module_count = 0; + for (my $modp = $top_module; $modp; $modp = $modp->next) { + $module_count++; + } + + my $tests = 12 + ( 5 * $module_count ); + + plan $r, tests => $tests; + + my $core = Apache2::Module::find_linked_module('core.c'); + ok defined $core && $core->name eq 'core.c'; + + #.c + ok t_cmp Apache2::Module::loaded('mod_perl.c'), 1, + "Apache2::Module::loaded('mod_perl.c')"; + + ok t_cmp Apache2::Module::loaded('Apache__Module_foo.c'), 0, + "Apache2::Module::loaded('Apache__Module_foo.c')"; + + #.so + { + my $build = Apache2::BuildConfig->new; + my $expect = $build->should_build_apache ? 0 : 1; + ok t_cmp Apache2::Module::loaded('mod_perl.so'), $expect, + "Apache2::Module::loaded('mod_perl.so')"; + } + + ok t_cmp Apache2::Module::loaded('Apache__Module__foo.so'), 0, + "Apache2::Module::loaded('Apache__Module_foo.so')"; + + #perl + { + ok t_cmp Apache2::Module::loaded('Apache2::Module'), 1, + "Apache2::Module::loaded('Apache2::Module')"; + + ok t_cmp Apache2::Module::loaded('Apache__Module_foo'), 0, + "Apache2::Module::loaded('Apache__Module_foo')"; + + # TestAPI::module::foo wasn't loaded but the stash exists + $TestAPI::module::foo::test = 1; + ok t_cmp Apache2::Module::loaded('TestAPI::module::foo'), 0, + "Apache2::Module::loaded('TestAPI::module::foo')"; + + # module TestAPI wasn't loaded but the stash exists, since + # TestAPI::module was loaded + ok t_cmp Apache2::Module::loaded('TestAPI'), 0, + "Apache2::Module::loaded('TestAPI')"; + } + + #bogus + ok t_cmp Apache2::Module::loaded('Apache__Module_foo.foo'), 0, + "Apache2::Module::loaded('Apache__Module_foo.foo')"; + + ok t_cmp Apache2::Module::loaded(''), 0, + "Apache2::Module::loaded('')"; + + ok t_cmp ref($top_module), 'Apache2::Module', 'top_module'; + + my $mmn_major = $cfg->{httpd_info}{MODULE_MAGIC_NUMBER_MAJOR}; + my $mmn_minor = $cfg->{httpd_info}{MODULE_MAGIC_NUMBER_MINOR}; + for (my $modp = $top_module; $modp; $modp = $modp->next) { + my $name = $modp->name; + ok $name; + t_debug("Testing module: " . $modp->name); + ok t_cmp $modp->ap_api_major_version, $mmn_major; + ok $modp->ap_api_minor_version <= $mmn_minor; + ok $modp->module_index >= 0; + my $cmds = $modp->cmds; + ok !defined($cmds) || ref($cmds) eq 'Apache2::Command'; + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/process.pm b/2_0_13/t/response/TestAPI/process.pm new file mode 100644 index 0000000..c137646 --- /dev/null +++ b/2_0_13/t/response/TestAPI/process.pm
@@ -0,0 +1,40 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::process; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::ServerRec (); +use Apache2::Process (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 4; + + my $s = $r->server; + my $proc = $s->process; + ok t_cmp(1, $proc->isa('Apache2::Process'), "isa('Apache2::Process')"); + + my $global_pool = $proc->pool; + ok t_cmp(1, $global_pool->isa('APR::Pool'), "pglob isa('APR::Pool')"); + + my $pconf = $proc->pconf; + ok t_cmp(1, $pconf->isa('APR::Pool'), "pconf isa('APR::Pool')"); + + my $proc_name = $proc->short_name; + t_debug($proc_name); + ok $proc_name; + + Apache2::Const::OK; +} + +1; + +__END__
diff --git a/2_0_13/t/response/TestAPI/query.pm b/2_0_13/t/response/TestAPI/query.pm new file mode 100644 index 0000000..78f1148 --- /dev/null +++ b/2_0_13/t/response/TestAPI/query.pm
@@ -0,0 +1,152 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::query; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use Apache2::MPM (); + +use Apache2::Const -compile => qw(OK :mpmq); + +sub handler { + + my $r = shift; + + plan $r, tests => 5; + + # ok, this isn't particularly pretty, but I can't think + # of a better way to do it + # all of these attributes I pulled right from the C sources + # so if, say, leader all of a sudden changes its properties, + # these tests will fail + + my $mpm = lc Apache2::MPM->show; + + if ($mpm eq 'prefork') { + + { + my $query = Apache2::MPM->query(Apache2::Const::MPMQ_IS_THREADED); + + ok t_cmp($query, + Apache2::Const::MPMQ_NOT_SUPPORTED, + "MPMQ_IS_THREADED ($mpm)"); + + # is_threaded() is just a constsub set to the result from + # ap_mpm_query(AP_MPMQ_IS_THREADED) + + ok t_cmp($query, + Apache2::MPM->is_threaded, + "Apache2::MPM->is_threaded() equivalent to query(MPMQ_IS_THREADED)"); + + t_debug('Apache2::MPM->is_threaded returned ' . Apache2::MPM->is_threaded); + ok (! Apache2::MPM->is_threaded); + } + + { + my $query = Apache2::MPM->query(Apache2::Const::MPMQ_IS_FORKED); + + ok t_cmp($query, + Apache2::Const::MPMQ_DYNAMIC, + "MPMQ_IS_FORKED ($mpm)"); + } + + } + elsif ($mpm eq 'worker') { + + { + my $query = Apache2::MPM->query(Apache2::Const::MPMQ_IS_THREADED); + + ok t_cmp($query, + Apache2::Const::MPMQ_STATIC, + "MPMQ_IS_THREADED ($mpm)"); + + ok t_cmp($query, + Apache2::MPM->is_threaded, + "Apache2::MPM->is_threaded() equivalent to query(MPMQ_IS_THREADED)"); + + t_debug('Apache2::MPM->is_threaded returned ' . Apache2::MPM->is_threaded); + ok (Apache2::MPM->is_threaded); + } + + { + my $query = Apache2::MPM->query(Apache2::Const::MPMQ_IS_FORKED); + + ok t_cmp($query, + Apache2::Const::MPMQ_DYNAMIC, + "MPMQ_IS_FORKED ($mpm)"); + } + } + elsif ($mpm eq 'leader') { + + { + my $query = Apache2::MPM->query(Apache2::Const::MPMQ_IS_THREADED); + + ok t_cmp($query, + Apache2::Const::MPMQ_STATIC, + "MPMQ_IS_THREADED ($mpm)"); + + ok t_cmp($query, + Apache2::MPM->is_threaded, + "Apache2::MPM->is_threaded() equivalent to query(MPMQ_IS_THREADED)"); + + t_debug('Apache2::MPM->is_threaded returned ' . Apache2::MPM->is_threaded); + ok (Apache2::MPM->is_threaded); + } + + { + my $query = Apache2::MPM->query(Apache2::Const::MPMQ_IS_FORKED); + + ok t_cmp($query, + Apache2::Const::MPMQ_DYNAMIC, + "MPMQ_IS_FORKED ($mpm)"); + } + } + elsif ($mpm eq 'winnt') { + + { + my $query = Apache2::MPM->query(Apache2::Const::MPMQ_IS_THREADED); + + ok t_cmp($query, + Apache2::Const::MPMQ_STATIC, + "MPMQ_IS_THREADED ($mpm)"); + + ok t_cmp($query, + Apache2::MPM->is_threaded, + "Apache2::MPM->is_threaded() equivalent to query(MPMQ_IS_THREADED)"); + + t_debug('Apache2::MPM->is_threaded returned ' . Apache2::MPM->is_threaded); + ok (Apache2::MPM->is_threaded); + } + + { + my $query = Apache2::MPM->query(Apache2::Const::MPMQ_IS_FORKED); + + ok t_cmp($query, + Apache2::Const::MPMQ_NOT_SUPPORTED, + "MPMQ_IS_FORKED ($mpm)"); + } + } + else { + skip "skipping MPMQ_IS_THREADED test for $mpm MPM", 0; + skip "skipping Apache2::MPM->is_threaded equivalence test for $mpm MPM", 0; + skip "skipping MPMQ_IS_FORKED test for $mpm MPM", 0; + skip "skipping Apache2::MPM->is_threaded test for $mpm MPM", 0; + } + + # make sure that an undefined MPMQ constant yields undef + { + my $query = Apache2::MPM->query(72); + + ok t_cmp($query, + undef, + "unknown MPMQ value returns undef"); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/request_rec.pm b/2_0_13/t/response/TestAPI/request_rec.pm new file mode 100644 index 0000000..d5bfe52 --- /dev/null +++ b/2_0_13/t/response/TestAPI/request_rec.pm
@@ -0,0 +1,278 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::request_rec; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); + +use APR::Finfo (); +use APR::Pool (); + +use Apache2::Const -compile => qw(OK M_GET M_PUT); +use APR::Const -compile => qw(FINFO_SIZE); + +#this test module is only for testing fields in the request_rec +#listed in apache_structures.map +#XXX: GloabalRequest test should be moved elsewhere +# as should $| test + +sub handler { + my $r = shift; + + plan $r, tests => 55; + + #Apache2::RequestUtil->request($r); #PerlOptions +GlobalRequest takes care + my $gr = Apache2::RequestUtil->request; + + ok $$gr == $$r; + + my $newr = Apache2::RequestRec->new($r->connection, $r->pool); + Apache2::RequestUtil->request($newr); + $gr = Apache2::RequestUtil->request; + + ok $$gr == $$newr; + + Apache2::RequestUtil->request($r); + + ok $r->pool->isa('APR::Pool'); + + ok $r->connection->isa('Apache2::Connection'); + + ok $r->server->isa('Apache2::ServerRec'); + + for (qw(next prev main)) { + ok (! $r->$_()) || $r->$_()->isa('Apache2::RequestRec'); + } + + ok !$r->assbackwards; + + ok !$r->proxyreq; # see also TestModules::proxy + + ok !$r->header_only; + + ok $r->protocol =~ /http/i; + + # LWP >=6.00 uses HTTP/1.1, other HTTP/1.0 + ok t_cmp $r->proto_num, 1000+substr($r->the_request, -1), + 't->proto_num'; + + ok t_cmp lc($r->hostname), lc($r->get_server_name), '$r->hostname'; + + { + my $old_hostname = $r->hostname("other.hostname"); + ok t_cmp $r->hostname, "other.hostname", '$r->hostname rw'; + $r->hostname($old_hostname); + } + + ok $r->request_time; + + ok $r->status_line || 1; + + ok $r->status || 1; + + ok t_cmp $r->method, 'GET', '$r->method'; + + ok t_cmp $r->method_number, Apache2::Const::M_GET, '$r->method_number'; + + ok $r->headers_in; + + ok $r->headers_out; + + # tested in TestAPI::err_headers_out + ok $r->err_headers_out; + + ok $r->subprocess_env; + + ok $r->notes; + + ok $r->content_type; + + ok $r->handler; + + ok $r->ap_auth_type || 1; + + ok $r->no_cache || 1; + + ok !$r->no_local_copy; + + { + local $| = 0; + ok t_cmp $r->print("# buffered\n"), 11, "buffered print"; + ok t_cmp $r->print(), "0E0", "buffered print"; + + local $| = 1; + my $string = "# not buffered\n"; + ok t_cmp $r->print(split //, $string), length($string), + "unbuffered print"; + } + + # GET header components + { + my $args = "my_args=3"; + my $path_info = "/my_path_info"; + my $base_uri = "/TestAPI__request_rec"; + + ok t_cmp $r->unparsed_uri, "$base_uri$path_info?$args"; + + ok t_cmp $r->uri, "$base_uri$path_info", '$r->uri'; + + ok t_cmp $r->path_info, $path_info, '$r->path_info'; + + ok t_cmp $r->args, $args, '$r->args'; + + # LWP uses HTTP/1.1 since 6.00 + ok t_cmp $r->the_request, qr!GET + \x20 + \Q$base_uri$path_info\E\?\Q$args\E + \x20 + HTTP/1\.\d!x, + '$r->the_request'; + + { + my $new_request = "GET $base_uri$path_info?$args&foo=bar HTTP/1.0"; + my $old_request = $r->the_request($new_request); + ok t_cmp $r->the_request, $new_request, '$r->the_request rw'; + $r->the_request($old_request); + } + + ok $r->filename; + + my $location = '/' . Apache::TestRequest::module2path(__PACKAGE__); + ok t_cmp $r->location, $location, '$r->location'; + } + + # bytes_sent + { + $r->rflush; + my $sent = $r->bytes_sent; + t_debug "sent so far: $sent bytes"; + # at least 100 chars were sent already + ok $sent > 100; + } + + # mtime + { + my $mtime = (stat __FILE__)[9]; + $r->mtime($mtime); + ok t_cmp $r->mtime, $mtime, "mtime"; + } + + # finfo + { + my $size = (stat __FILE__)[7]; + my $finfo = APR::Finfo::stat(__FILE__, APR::Const::FINFO_SIZE, $r->pool); + $r->finfo($finfo); + # just one field test, all accessors are fully tested in + # TestAPR::finfo + ok t_cmp($r->finfo->size, + $size, + '$r->finfo'); + } + + # allowed + { + $r->allowed(1 << Apache2::Const::M_GET); + + ok $r->allowed & (1 << Apache2::Const::M_GET); + ok ! ($r->allowed & (1 << Apache2::Const::M_PUT)); + + $r->allowed($r->allowed | (1 << Apache2::Const::M_PUT)); + ok $r->allowed & (1 << Apache2::Const::M_PUT); + } + + # content_languages + { + my $def = [qw(fr)]; #default value + my $l = [qw(fr us cn)]; #new value + + if (have_module('mod_mime')) { + ok t_cmp $r->content_languages, $def, '$r->content_languages'; + } + else { + skip "Need mod_mime", 0; + } + + my $old = $r->content_languages($l); + if (have_module('mod_mime')) { + ok t_cmp $old, $def, '$r->content_languages'; + } + else { + skip "Need mod_mime", 0; + } + + ok t_cmp $r->content_languages, $l, '$r->content_languages'; + + eval { $r->content_languages({}) }; + ok t_cmp $@, qr/Not an array reference/, + '$r->content_languages(invalid)'; + } + + ### invalid $r + { + my $r = bless {}, "Apache2::RequestRec"; + my $err = q[method `uri' invoked by a `Apache2::RequestRec' ] . + q[object with no `r' key!]; + eval { $r->uri }; + ok t_cmp $@, qr/$err/, "invalid $r object"; + } + { + my $r = bless {}, "NonExisting"; + my $err = q[method `uri' invoked by a `NonExisting' ] . + q[object with no `r' key!]; + eval { Apache2::RequestRec::uri($r) }; + ok t_cmp $@, qr/$err/, "invalid $r object"; + } + { + my $r = {}; + my $err = q[method `uri' invoked by a `unknown' ] . + q[object with no `r' key!]; + eval { Apache2::RequestRec::uri($r) }; + ok t_cmp $@, qr/$err/, "invalid $r object"; + } + + # out-of-scope pools + { + my $newr = Apache2::RequestRec->new($r->connection, APR::Pool->new); + { + require APR::Table; + # try to overwrite the pool + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + } + # check if $newr is still OK + ok $newr->connection->isa('Apache2::Connection'); + } + + # tested in other tests + # - input_filters: TestAPI::in_out_filters + # - output_filters: TestAPI::in_out_filters + # - per_dir_config: in several other tests + # - content_encoding: TestAPI::content_encoding + # - user: TestHooks::authz / TestHooks::authen + + # XXX: untested + # - request_config + # - allowed_xmethods + # - allowed_methods + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +<Location /TestAPI__request_rec> + PerlOptions +GlobalRequest + <IfModule mod_mime.c> + DefaultLanguage fr + </IfModule> + SetHandler modperl + PerlResponseHandler TestAPI::request_rec +</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestAPI/request_subclass.pm b/2_0_13/t/response/TestAPI/request_subclass.pm new file mode 100644 index 0000000..1b76229 --- /dev/null +++ b/2_0_13/t/response/TestAPI/request_subclass.pm
@@ -0,0 +1,50 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::request_subclass; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +our @ISA = qw(Apache2::RequestRec); + +use Apache::Test; +use Apache::TestRequest; + +use Apache2::Const -compile => 'OK'; + +sub new { + my $class = shift; + my $r = shift; + bless { r => $r }, $class; +} + +my $location = '/' . Apache::TestRequest::module2path(__PACKAGE__); + +sub handler { + my $r = __PACKAGE__->new(shift); + + plan $r, tests => 5; + + eval { my $gr = Apache2::RequestUtil->request; }; + ok $@; + + ok $r->uri eq $location; + + ok ((bless { r => $r })->uri eq $location); #nested + + eval { (bless {})->uri }; + + ok $@ =~ /no .* key/; + + eval { (bless [])->uri }; + + ok $@ =~ /unsupported/; + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script +PerlOptions -GlobalRequest
diff --git a/2_0_13/t/response/TestAPI/request_util.pm b/2_0_13/t/response/TestAPI/request_util.pm new file mode 100644 index 0000000..2af76fe --- /dev/null +++ b/2_0_13/t/response/TestAPI/request_util.pm
@@ -0,0 +1,93 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::request_util; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestUtil (); +use Apache2::MPM (); +use Apache2::Log (); +use APR::Pool (); + +use Apache2::Const -compile => 'OK'; + +my %status_lines = ( + 200 => '200 OK', + 400 => '400 Bad Request', + 500 => '500 Internal Server Error', +); + +sub handler { + my $r = shift; + + plan $r, tests => (scalar keys %status_lines) + 11; + + # default_type() is gone as of httpd 2.3.2-dev + ok !defined(&Apache2::RequestRec::default_type) || $r->default_type; + + my $document_root = $r->document_root; + + ok $document_root; + + if (!Apache2::MPM->is_threaded) { + my $path_orig = my $path = '/tmp/foo'; + ok t_cmp($document_root, $r->document_root($path)); + # make sure that the new docroot string is copied internally, + # and later manipulations of the passed scalar don't affect it + $path .= "suffix"; + ok t_cmp($path_orig, $r->document_root($document_root)); + } + else { + eval { $r->document_root('/tmp/foo') }; + ok t_cmp($@, qr/Can't run.*in the threaded env/, + "document_root is read-only under threads"); + ok 1; + } + + ok $r->get_server_name; + + ok $r->get_server_port; + + ok $r->get_limit_req_body || 1; + + ok $r->is_initial_req; + + my $sig = $r->psignature("Here is the sig: "); + t_debug $sig; + ok $sig; + + my $pattern = + qr!(?s)GET /TestAPI__request_util.*Host:.*200 OK.*Content-Type:!; + + ok t_cmp($r->as_string, + $pattern, + "test for the request_line, host, status, and few " . + "headers that should always be there"); + + while (my ($code, $line) = each %status_lines) { + ok t_cmp(Apache2::RequestUtil::get_status_line($code), + $line, + "Apache2::RequestUtil::get_status_line($code)"); + } + + if (Apache2::MPM->is_threaded) { + eval { $r->child_terminate() }; + ok t_cmp($@, qr/Can't run.*in a threaded mpm/, "child_terminate"); + } + else { + t_server_log_error_is_expected(); + ok $r->child_terminate() || 1; + $r->pool->cleanup_register( + sub { + my $r = shift; + $r->log_error("Process $$ terminates itself\n"); + }, $r); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/response.pm b/2_0_13/t/response/TestAPI/response.pm new file mode 100644 index 0000000..352ced7 --- /dev/null +++ b/2_0_13/t/response/TestAPI/response.pm
@@ -0,0 +1,54 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::response; + +# testing Apache2::Response methods +# +# XXX: a proper test is needed (at the moment just test that methods +# can be invoked as documented) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::Response (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 7; + + my $etag = $r->make_etag(); + t_debug $etag; + ok $etag; + + $r->set_content_length(0); + + ok 1; + + ok $r->meets_conditions || 1; + + ok $r->rationalize_mtime(time) >= $r->request_time; + + my $mtime = (stat __FILE__)[9]; + + $r->update_mtime($mtime); + + ok $r->mtime == $mtime; + + ok $r->set_keepalive() || 1; + + $r->set_last_modified; + + # $r->custom_response() is tested in TestAPI::custom_response + + ok 1; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/rflush.pm b/2_0_13/t/response/TestAPI/rflush.pm new file mode 100644 index 0000000..41df75d --- /dev/null +++ b/2_0_13/t/response/TestAPI/rflush.pm
@@ -0,0 +1,79 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::rflush; + +use strict; +use warnings FATAL => 'all'; + +# this test verifies that rflush flushes bucket brigades + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Filter (); + +use Apache2::Const -compile => qw(OK); + +use constant READ_SIZE => 1024; + +sub bracket { + my $filter = shift; + + my $data = ''; + + while ($filter->read(my $buffer, 1024)) { + $data .= $buffer; + } + + $filter->print("[$data]") if $data; + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + + my $args = $r->args || ''; + if ($args eq 'nontied') { + # print is now unbuffered + local $| = 1; + $r->print("1"); # send the data in the buffer + flush bucket + $r->print("2"); # send the data in the buffer + flush bucket + + # print is now buffered + local $| = 0; + $r->print("3"); + $r->rflush; # send the data in the buffer + flush bucket + $r->print("4"); + $r->rflush; # send the data in the buffer + flush bucket + $r->print("5"); + $r->print("6"); # send the data in the buffer (end of handler) + } + elsif ($args eq 'tied') { + my $oldfh; + # print is now unbuffered ("rflush"-like functionality is + # called internally) + $oldfh = select(STDOUT); $| = 1; select($oldfh); + print "1"; # send the data in the buffer + flush bucket + print "2"; + + # print is now buffered + $oldfh = select(STDOUT); $| = 0; select($oldfh); + print "3"; + print "4"; + print "5"; + print "6"; # send the data in the buffer (end of handler) + } + + Apache2::Const::OK; +} +1; +__DATA__ +SetHandler perl-script +PerlModule TestAPI::rflush +PerlResponseHandler TestAPI::rflush::response +PerlOutputFilterHandler TestAPI::rflush::bracket
diff --git a/2_0_13/t/response/TestAPI/sendfile.pm b/2_0_13/t/response/TestAPI/sendfile.pm new file mode 100644 index 0000000..17f445a --- /dev/null +++ b/2_0_13/t/response/TestAPI/sendfile.pm
@@ -0,0 +1,49 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::sendfile; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use APR::Const -compile => 'SUCCESS'; +use Apache2::Const -compile => ':common'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + my $args = $r->args; + + if ($args eq 'withwrapper') { + # buffer output up, so we can test that sendfile flushes any + # buffered output before sending the file contents out + local $|; + $r->print("This is a header\n"); + $r->sendfile(__FILE__); + $r->print("This is a footer\n"); + } + elsif ($args eq 'offset') { + $r->sendfile(__FILE__, 3); + } + elsif ($args eq 'len') { + $r->sendfile(__FILE__, 3, 50); + } + elsif ($args eq 'noexist-n-nocheck.txt') { + eval { $r->sendfile($args) }; + return int $@; + } + else { + my $rc = $r->sendfile($args); + # warn APR::Error::strerror($rc); + return $rc unless $rc == APR::Const::SUCCESS; + } + + # XXX: can't quite test bogus offset and/or len, since ap_send_fd + # doesn't provide any error indications + + return Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/server_const.pm b/2_0_13/t/response/TestAPI/server_const.pm new file mode 100644 index 0000000..2e814ef --- /dev/null +++ b/2_0_13/t/response/TestAPI/server_const.pm
@@ -0,0 +1,61 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::server_const; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use File::Spec::Functions qw(canonpath); + +use Apache2::ServerUtil (); +use Apache2::Process (); + +use APR::Pool (); + +use Apache2::Const -compile => 'OK'; + +my $cfg = Apache::Test::config; + +my $root = $cfg->{vars}->{serverroot}; +my $built = $cfg->{httpd_info}->{BUILT}; +my $version = $cfg->{httpd_info}->{VERSION}; + +sub handler { + + my $r = shift; + + plan $r, tests => 6; + + # test Apache2::ServerUtil constant subroutines + + ok t_filepath_cmp(canonpath(Apache2::ServerUtil::server_root), + canonpath($root), + 'Apache2::ServerUtil::server_root()'); + + ok t_cmp(Apache2::ServerUtil::get_server_built, + $built, + 'Apache2::ServerUtil::get_server_built()'); + + my $server_descr = Apache2::ServerUtil::get_server_description; + ok t_cmp($server_descr, qr/^\Q$version\E/, + 'Apache2::ServerUtil::get_server_description()'); + + # added via $s->add_version_component in t/conf/modperl_extra.pl + ok t_cmp($server_descr, qr!\bworld domination series/2\.0\b!, + 'Apache2::ServerUtil::get_server_description() -- component'); + + # assuming ServerTokens Full (default) the banner equals description + ok t_cmp(Apache2::ServerUtil::get_server_banner, $server_descr, + 'Apache2::ServerUtil::get_server_banner()'); + + # version is just an alias for banner + ok t_cmp(Apache2::ServerUtil::get_server_version, $server_descr, + 'Apache2::ServerUtil::get_server_version()'); + + Apache2::Const::OK; +} + +1; + +__END__
diff --git a/2_0_13/t/response/TestAPI/server_rec.pm b/2_0_13/t/response/TestAPI/server_rec.pm new file mode 100644 index 0000000..7cd37fb --- /dev/null +++ b/2_0_13/t/response/TestAPI/server_rec.pm
@@ -0,0 +1,79 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::server_rec; + +# this test module is only for testing fields in the server_rec listed +# in apache_structures.map + +# XXX: This test needs to be mucho improved. currently it justs checks +# whether some value is set or not + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::ServerRec (); +use Apache2::ServerUtil (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $s = $r->server; + + plan $r, tests => 20; + + ok $s; + + ok $s->process; + + ok $s->next || 1; + + ok $s->server_admin; + + ok $s->server_hostname; + + ok $s->port || 1; + + ok $s->error_fname || 1; # vhost might not have its own (t/TEST -ssl) + + # XXX: error_log; + + ok $s->loglevel; + + ok $s->is_virtual || 1; + + # XXX: module_config + + # XXX: lookup_defaults + + ok $s->addrs; + + t_debug("timeout : ", $s->timeout); + ok $s->timeout; + + t_debug("keep_alive_timeout : ", $s->keep_alive_timeout); + ok $s->keep_alive_timeout || 1; + t_debug("keep_alive_max : ", $s->keep_alive_max); + ok $s->keep_alive_max || 1; + ok $s->keep_alive || 1; + + ok $s->path || 1; + + ok $s->names || 1; + + ok $s->wild_names || 1; + + ok $s->limit_req_line; + + ok $s->limit_req_fieldsize; + + ok $s->limit_req_fields; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/server_util.pm b/2_0_13/t/response/TestAPI/server_util.pm new file mode 100644 index 0000000..e7d3a05 --- /dev/null +++ b/2_0_13/t/response/TestAPI/server_util.pm
@@ -0,0 +1,139 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::server_util; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use File::Spec::Functions qw(canonpath catfile); + +use Apache2::RequestRec (); +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Process (); + +use APR::Pool (); + +use Apache2::Const -compile => 'OK'; + +my $serverroot = Apache::Test::config()->{vars}->{serverroot}; + +our @ISA = qw(Apache2::RequestRec); + +sub new { + my $class = shift; + my $r = shift; + bless { r => $r }, $class; +} + +sub handler { + my $r = shift; + + plan $r, tests => 17; + + { + my $s = $r->server; + my @expected = qw(ModPerl::Test::exit_handler TestExit::FromPerlModule::exit_handler); + my @handlers = + @{ $s->get_handlers('PerlChildExitHandler') || []}; + ok t_cmp(scalar(@handlers), scalar(@expected), "get_handlers"); + } + + t_debug('Apache2::ServerUtil::exists_config_define'); + ok Apache2::ServerUtil::exists_config_define('MODPERL2'); + ok ! Apache2::ServerUtil::exists_config_define('FOO'); + + t_debug('registering method FOO'); + ok $r->server->method_register('FOO'); + + server_root_relative_tests($r); + + eval { Apache2::ServerUtil::server_shutdown_cleanup_register( + sub { Apache2::Const::OK }); + }; + my $sub = "server_shutdown_cleanup_register"; + ok t_cmp $@, qr/Can't run '$sub' after server startup/, + "can't register server_shutdown cleanup after server startup"; + + # on start we get 1, and immediate restart gives 2 + ok t_cmp Apache2::ServerUtil::restart_count, 2, "restart count"; + + Apache2::Const::OK; +} + + +# 11 sub-tests +sub server_root_relative_tests { + my $r = shift; + + my %pools = ( + '$r->pool' => + $r->pool, + '$r->connection->pool' => + $r->connection->pool, + '$r->server->process->pool' => + $r->server->process->pool, + '$r->server->process->pconf' => + $r->server->process->pconf, + 'Apache2::ServerUtil->server->process->pconf' => + Apache2::ServerUtil->server->process->pconf, + 'APR::Pool->new' => + APR::Pool->new, + ); + + # syntax - an object or pool is required + t_debug("Apache2::ServerUtil::server_root_relative() died"); + eval { my $dir = Apache2::ServerUtil::server_root_relative() }; + t_debug("\$\@: $@"); + ok $@; + + foreach my $p (keys %pools) { + # we will leak memory here when calling the function with a + # pool whose life is longer than of $r, but it doesn't matter + # for the test + ok t_filepath_cmp( + canonpath(Apache2::ServerUtil::server_root_relative($pools{$p}, + 'conf')), + catfile($serverroot, 'conf'), + "Apache2::ServerUtil:::server_root_relative($p, 'conf')"); + } + + # syntax - unrecognized objects don't segfault + { + my $obj = bless {}, 'Apache2::Foo'; + eval { Apache2::ServerUtil::server_root_relative($obj, 'conf') }; + + ok t_cmp($@, + qr/p is not of type APR::Pool/, + "Apache2::ServerUtil::server_root_relative(\$obj, 'conf')"); + } + + # no file argument gives ServerRoot + { + my $server_root_relative = + Apache2::ServerUtil::server_root_relative($r->pool); + + ok t_filepath_cmp(canonpath($server_root_relative), + canonpath($serverroot), + 'server_root_relative($pool)'); + + # Apache2::ServerUtil::server_root is also the ServerRoot constant + ok t_filepath_cmp(canonpath(Apache2::ServerUtil::server_root), + canonpath($server_root_relative), + 'Apache2::ServerUtil::server_root'); + + } + + { + # absolute paths should resolve to themselves + my $dir1 = Apache2::ServerUtil::server_root_relative($r->pool, 'logs'); + my $dir2 = Apache2::ServerUtil::server_root_relative($r->pool, $dir1); + + ok t_filepath_cmp($dir1, $dir2, "absolute path"); + } +} + +1; + +__END__
diff --git a/2_0_13/t/response/TestAPI/show.pm b/2_0_13/t/response/TestAPI/show.pm new file mode 100644 index 0000000..aece5f0 --- /dev/null +++ b/2_0_13/t/response/TestAPI/show.pm
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::show; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::MPM (); +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 1; + + my $mpm = Apache::Test::config->{server}->{mpm}; + + ok t_cmp(Apache2::MPM->show(), + qr!$mpm!i, + 'Apache2::MPM->show()'); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/slurp_filename.pm b/2_0_13/t/response/TestAPI/slurp_filename.pm new file mode 100644 index 0000000..27bf236 --- /dev/null +++ b/2_0_13/t/response/TestAPI/slurp_filename.pm
@@ -0,0 +1,80 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::slurp_filename; + +# test slurp_filename()'s taintness options and that it works properly +# with utf8 data + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestUtil (); +use ModPerl::Util; + +use Apache2::Const -compile => 'OK'; + +my $expected = <<EOI; +English: Internet +Hebrew : \x{05D0}\x{05D9}\x{05E0}\x{05D8}\x{05E8}\x{05E0}\x{05D8} +EOI + +sub handler { + my $r = shift; + + plan $r, tests => 5, need 'mod_alias'; + + { + my $data = $r->slurp_filename(0); # untainted + my $received = eval $$data; + ok t_cmp($received, $expected, "slurp filename untainted"); + } + + { + my $data = $r->slurp_filename; # tainted + my $received = eval { eval $$data }; + ok t_cmp($@, qr/Insecure dependency in eval/, + "slurp filename tainted"); + + ModPerl::Util::untaint($$data); + $received = eval $$data; + ok t_cmp($received, $expected, "slurp filename untainted"); + } + + { + # just in case we will encounter some probs in the future, + # here is pure perl function for comparison + my $data = slurp_filename_perl($r); # tainted + my $received = eval { eval $$data }; + ok t_cmp($@, qr/Insecure dependency in eval/, + "slurp filename (perl) tainted"); + + ModPerl::Util::untaint($$data); + $received = eval $$data; + ok t_cmp($received, $expected, "slurp filename (perl) untainted"); + } + + Apache2::Const::OK; +} + +sub slurp_filename_perl { + my $r = shift; + open my $fh, $r->filename; + local $/; + my $data = <$fh>; + close $fh; + return \$data; +} + +1; +__END__ +<NoAutoConfig> + <IfModule mod_alias.c> + Alias /slurp/ @DocumentRoot@/api/ + </IfModule> + <Location /slurp/> + SetHandler modperl + PerlResponseHandler TestAPI::slurp_filename + </Location> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestAPI/status.pm b/2_0_13/t/response/TestAPI/status.pm new file mode 100644 index 0000000..b875a09 --- /dev/null +++ b/2_0_13/t/response/TestAPI/status.pm
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::status; + +# see the client for details + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Const -compile => 'OK'; + +my $body = "This is a response string"; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + my ($code, $string) = split /=/, $r->args || ''; + + if ($string) { + # status_line must be valid and match status + # or it is 'zapped' by httpd as of 2.2.1 + $r->status($code); + $r->status_line("$code $string"); + } + else { + $r->status($code); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPI/sub_request.pm b/2_0_13/t/response/TestAPI/sub_request.pm new file mode 100644 index 0000000..b5b55f0 --- /dev/null +++ b/2_0_13/t/response/TestAPI/sub_request.pm
@@ -0,0 +1,46 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::sub_request; + +# basic subrequest tests + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK SERVER_ERROR); + +my $uri = '/' . Apache::TestRequest::module2path(__PACKAGE__); + +sub handler { + my $r = shift; + + my $args = $r->args || ''; + return Apache2::Const::SERVER_ERROR if $args eq 'subreq'; + + plan $r, tests => 4; + + my $subr = $r->lookup_uri("$uri?subreq"); + ok $subr->isa('Apache2::SubRequest'); + + ok t_cmp $subr->uri, $uri, "uri"; + + my $rc = $subr->run; + ok t_cmp $rc, Apache2::Const::SERVER_ERROR, "rc"; + + # test an explicit DESTROY (which happens automatically on the + # scope exit) + undef $subr; + ok 1; + + Apache2::Const::OK; +} + +1; +__DATA__ +
diff --git a/2_0_13/t/response/TestAPI/uri.pm b/2_0_13/t/response/TestAPI/uri.pm new file mode 100644 index 0000000..87ff65d --- /dev/null +++ b/2_0_13/t/response/TestAPI/uri.pm
@@ -0,0 +1,188 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPI::uri; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use APR::Pool (); +use APR::URI (); +use Apache2::URI (); +use Apache2::RequestRec (); +use Apache2::RequestUtil (); + +use Apache2::Const -compile => 'OK'; + +my $location = '/' . Apache::TestRequest::module2path(__PACKAGE__); + +sub handler { + my $r = shift; + + plan $r, tests => 24; + + $r->args('query'); + + # basic + { + my $uri = $r->parsed_uri; + + ok $uri->isa('APR::URI'); + + ok t_cmp($uri->path, qr/^$location/, "path"); + + my $up = $uri->unparse; + ok t_cmp($up, qr/^$location/, "unparse"); + } + + # construct_server + { + my $server = $r->construct_server; + ok t_cmp(join(':', $r->get_server_name, $r->get_server_port), + $server, + "construct_server/get_server_name/get_server_port"); + } + { + my $hostname = "example.com"; + my $server = $r->construct_server($hostname); + ok t_cmp(join(':', $hostname, $r->get_server_port), + $server, + "construct_server($hostname)"); + } + { + my $hostname = "example.com"; + my $port = "9097"; + my $server = $r->construct_server($hostname, $port); + ok t_cmp(join(':', $hostname, $port), + $server, + "construct_server($hostname, $port)"); + + } + { + my $hostname = "example.com"; + my $port = "9097"; + my $server = $r->construct_server($hostname, $port, $r->pool->new); + ok t_cmp(join(':', $hostname, $port), + $server, + "construct_server($hostname, $port, new_pool)"); + + } + + # construct_url + { + # if no args are passed then only $r->uri will be included (no + # query and no fragment fields) + my $curl = $r->construct_url; + t_debug("construct_url: $curl"); + t_debug("r->uri: " . $r->uri); + my $parsed = APR::URI->parse($r->pool, $curl); + + ok $parsed->isa('APR::URI'); + + my $up = $parsed->unparse; + ok t_cmp($up, qr/$location/, "unparse"); + + my $path = '/foo/bar'; + + $parsed->path($path); + + ok t_cmp($parsed->path, $path, "parsed path"); + } + { + # this time include args in the constructed url + my $fragment = "fragment"; + $r->parsed_uri->fragment($fragment); + my $curl = $r->construct_url(sprintf "%s?%s", $r->uri, $r->args); + t_debug("construct_url: $curl"); + t_debug("r->uri: ", $r->uri); + my $parsed = APR::URI->parse($r->pool, $curl); + + my $up = $parsed->unparse; + ok t_cmp($up, qr/$location/, 'construct_url($uri)'); + ok t_cmp($parsed->query, $r->args, "args vs query"); + } + { + # this time include args and a pool object + my $curl = $r->construct_url(sprintf("%s?%s", $r->uri, $r->args), + $r->pool->new); + t_debug("construct_url: $curl"); + t_debug("r->uri: ", $r->uri); + my $up = APR::URI->parse($r->pool, $curl)->unparse; + ok t_cmp($up, qr/$location/, 'construct_url($uri, $pool)'); + } + + # segfault test + { + # test the segfault in apr < 0.9.2 (fixed on mod_perl side) + # passing only the /path + my $parsed = APR::URI->parse($r->pool, $r->uri); + # set hostname, but not the scheme + $parsed->hostname($r->get_server_name); + $parsed->port($r->get_server_port); + #$parsed->scheme('http'); + my $expected = $r->construct_url; + my $received = $parsed->unparse; + t_debug("the real received is: $received"); + # apr < 0.9.2-dev + fix in mpxs_apr_uri_unparse will return + # '://localhost.localdomain:8529/TestAPI::uri' + # apr >= 0.9.2 with internal fix will return + # '//localhost.localdomain:8529/TestAPI::uri' + # so in order to test pre-0.9.2 and post-0.9.2-dev we massage it + $expected =~ s|^http:||; + $received =~ s|^:||; + ok t_cmp($received, $expected, + "the bogus url is expected when 'hostname' is set " . + "but not 'scheme'"); + } + + # parse_uri + { + my $path = "/foo/bar"; + my $query = "query"; + my $fragment = "fragment"; + my $newr = Apache2::RequestRec->new($r->connection, $r->pool); + my $url_string = "$path?$query#$fragment"; + + # new request + $newr->parse_uri($url_string); + $newr->path_info('/bar'); + ok t_cmp($newr->uri, $path, "uri"); + ok t_cmp($newr->args, $query, "args"); + ok t_cmp($newr->path_info, '/bar', "path_info"); + + my $puri = $newr->parsed_uri; + ok t_cmp($puri->path, $path, "path"); + ok t_cmp($puri->query, $query, "query"); + ok t_cmp($puri->fragment, $fragment, "fragment"); + + #rpath + ok t_cmp($puri->rpath, '/foo', "rpath"); + + my $port = 6767; + $puri->port($port); + $puri->scheme('ftp'); + $puri->hostname('perl.apache.org'); + + ok t_cmp($puri->port, $port, "port"); + + ok t_cmp($puri->unparse, + "ftp://perl.apache.org:$port$path?$query#$fragment", + "unparse"); + } + + # unescape_url + { + my @c = qw(one two three); + my $url_string = join '%20', @c; + + Apache2::URI::unescape_url($url_string); + + ok $url_string eq "@c"; + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/base64.pm b/2_0_13/t/response/TestAPR/base64.pm new file mode 100644 index 0000000..9088fc0 --- /dev/null +++ b/2_0_13/t/response/TestAPR/base64.pm
@@ -0,0 +1,23 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::base64; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::base64; + +sub handler { + my $r = shift; + + my $num_of_tests = TestAPRlib::base64::num_of_tests(); + plan $r, tests => $num_of_tests; + + TestAPRlib::base64::test(); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/brigade.pm b/2_0_13/t/response/TestAPR/brigade.pm new file mode 100644 index 0000000..167592a --- /dev/null +++ b/2_0_13/t/response/TestAPR/brigade.pm
@@ -0,0 +1,107 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::brigade; + +# testing APR::Brigade in this tests. +# Other tests do that too: +# TestAPR::flatten : flatten() +# TestAPR::bucket : is_empty(), first(), last() + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use APR::Brigade (); + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::brigade; + +sub handler { + + my $r = shift; + my $ba = $r->connection->bucket_alloc; + + plan $r, tests => 14 + TestAPRlib::brigade::num_of_tests(); + + TestAPRlib::brigade::test(); + + # basic + pool + destroy + { + my $bb = APR::Brigade->new($r->pool, $ba); + + t_debug('$bb is defined'); + ok defined $bb; + + t_debug('$bb ISA APR::Brigade object'); + ok $bb->isa('APR::Brigade'); + + my $pool = $bb->pool; + + t_debug('$pool is defined'); + ok defined $pool; + + t_debug('$pool ISA APR::Pool object'); + ok $pool->isa('APR::Pool'); + + t_debug("destroy"); + $bb->destroy; + ok 1; + } + + # concat / split / length / flatten + { + my $bb1 = APR::Brigade->new($r->pool, $ba); + $bb1->insert_head(APR::Bucket->new($ba, "11")); + $bb1->insert_tail(APR::Bucket->new($ba, "12")); + + my $bb2 = APR::Brigade->new($r->pool, $ba); + $bb2->insert_head(APR::Bucket->new($ba, "21")); + $bb2->insert_tail(APR::Bucket->new($ba, "22")); + + # concat + $bb1->concat($bb2); + # bb1: 11, 12, 21, 22 + ok t_cmp($bb1->length, 8, "total data length in bb"); + my $len = $bb1->flatten(my $data); + ok t_cmp($len, 8, "bb flatten/len"); + ok t_cmp($data, "11122122", "bb flatten/data"); + t_debug('$bb2 is empty'); + ok $bb2->is_empty; + + # split + my $b = $bb1->first; # 11 + $b = $bb1->next($b); # 12 + my $bb3 = $bb1->split($b); + + # bb1: 11, bb3: 12, 21, 22 + $len = $bb1->flatten($data); + ok t_cmp($len, 2, "bb1 flatten/len"); + ok t_cmp($data, "11", "bb1 flatten/data"); + $len = $bb3->flatten($data); + ok t_cmp($len, 6, "bb3 flatten/len"); + ok t_cmp($data, "122122", "bb3 flatten/data"); + } + + # out-of-scope pools + { + my $bb1 = APR::Brigade->new(APR::Pool->new, $ba); + $bb1->insert_head(APR::Bucket->new($ba, "11")); + $bb1->insert_tail(APR::Bucket->new($ba, "12")); + + # try to overwrite the temp pool data + require APR::Table; + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + # now test that we are still OK + + my $len = $bb1->flatten(my $data); + ok t_cmp($data, "1112", "correct data"); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/bucket.pm b/2_0_13/t/response/TestAPR/bucket.pm new file mode 100644 index 0000000..6d85abf --- /dev/null +++ b/2_0_13/t/response/TestAPR/bucket.pm
@@ -0,0 +1,148 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::bucket; + +# a mix of APR::Brigade, APR::Bucket abd APR::BucketType tests + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use APR::Brigade (); +use APR::Bucket (); +use APR::BucketType (); +use Apache2::Connection (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::bucket; + +sub handler { + + my $r = shift; + + plan $r, tests => 20 + TestAPRlib::bucket::num_of_tests(); + + TestAPRlib::bucket::test(); + + my $ba = $r->connection->bucket_alloc; + + # eos_create / type / length + { + my $b = APR::Bucket::eos_create($ba); + my $type = $b->type; + ok t_cmp($type->name, 'EOS', "eos_create"); + + ok t_cmp($b->length, 0, "eos b->length"); + + # buckets with no data to read should return an empty string + my $rlen = $b->read(my $read); + ok t_cmp($read, "", 'eos b->read/buffer'); + ok t_cmp($rlen, 0, 'eos b->read/len'); + } + + # flush_create + { + my $b = APR::Bucket::flush_create($ba); + my $type = $b->type; + ok t_cmp($type->name, 'FLUSH', "flush_create"); + + ok t_cmp($b->length, 0, "flush b->length"); + } + + # insert_after / insert_before / is_eos / is_flush + { + my $d1 = APR::Bucket->new($ba, "d1"); + my $d2 = APR::Bucket->new($ba, "d2"); + my $f1 = APR::Bucket::flush_create($ba); + my $f2 = APR::Bucket::flush_create($ba); + my $e1 = APR::Bucket::eos_create($ba); + + ### create a chain of buckets + my $bb = APR::Brigade->new($r->pool, $ba); + + # head->tail + $bb->insert_head( $d1); # head->d1->tail + $d1->insert_after( $d2); # head->d1->d2->tail + $d2->insert_before($f1); # head->d1->f1->d2->tail + $d2->insert_after( $f2); # head->d1->f1->d2->f2->tail + $bb->insert_tail( $e1); # head->d1->f1->d2->f2->e1->tail + + ### now test + my $b = $bb->first; + $b->read(my $read); + ok t_cmp($read, "d1", "d1 bucket"); + + $b = $bb->next($b); + t_debug("is_flush"); + ok $b->is_flush; + + $b = $bb->next($b); + $b->read($read); + ok t_cmp($read, "d2", "d2 bucket"); + + $b = $bb->last(); + t_debug("is_eos"); + ok $b->is_eos; + + $b = $bb->prev($b); + t_debug("is_flush"); + ok $b->is_flush; + + t_debug("not empty"); + ok !$bb->is_empty; + + # delete all buckets from bb and test that it's empty + while (!$bb->is_empty) { + my $b = $bb->first; + $b->delete; + } + + t_debug("empty"); + ok $bb->is_empty; + } + + # check for non-existing buckets first/next/last + { + my $bb = APR::Brigade->new($r->pool, $ba); + + ok t_cmp($bb->first, undef, "no first bucket"); + ok t_cmp($bb->last, undef, "no last bucket"); + + ## now there is first + my $b = APR::Bucket->new($ba, "bbb"); + $bb->insert_head($b); + my $b_first = $bb->first; + $b->read(my $read); + ok t_cmp($read, "bbb", "first bucket"); + + # but there is no prev + ok t_cmp($bb->prev($b_first), undef, "no prev bucket"); + + # and no next + ok t_cmp($bb->next($b_first), undef, "no next bucket"); + } + + # delete+destroy + { + my $bb = APR::Brigade->new($r->pool, $ba); + $bb->insert_head(APR::Bucket->new($ba, "a")); + $bb->insert_head(APR::Bucket->new($ba, "b")); + + my $b1 = $bb->first; + $b1->remove; + $b1->destroy; + ok 1; + + # delete = remove + destroy + my $b2 = $bb->first; + $b2->delete; + ok 1; + } + + return Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/date.pm b/2_0_13/t/response/TestAPR/date.pm new file mode 100644 index 0000000..d427fbe --- /dev/null +++ b/2_0_13/t/response/TestAPR/date.pm
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::date; + +# testing APR::Date API + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::date; + +sub handler { + my $r = shift; + + my $num_of_tests = TestAPRlib::date::num_of_tests(); + plan $r, tests => $num_of_tests; + + TestAPRlib::date::test(); + + Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestAPR/finfo.pm b/2_0_13/t/response/TestAPR/finfo.pm new file mode 100644 index 0000000..49cf9df --- /dev/null +++ b/2_0_13/t/response/TestAPR/finfo.pm
@@ -0,0 +1,40 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::finfo; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use TestAPRlib::finfo; + +use APR::Finfo (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $tests = 1 + TestAPRlib::finfo::num_of_tests(); + plan $r, tests => $tests; + + { + my $finfo = $r->finfo; + my $isa = $finfo->isa('APR::Finfo'); + + t_debug "\$r->finfo $finfo"; + ok $isa; + } + + # a test assigning to $r->finfo is in TestAPI::request_rec + + TestAPRlib::finfo::test(); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/flatten.pm b/2_0_13/t/response/TestAPR/flatten.pm new file mode 100644 index 0000000..2246959 --- /dev/null +++ b/2_0_13/t/response/TestAPR/flatten.pm
@@ -0,0 +1,124 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::flatten; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use TestCommon::Utils; + +use Apache2::RequestRec (); +use APR::Bucket (); +use APR::Brigade (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + + my $r = shift; + + plan $r, tests => 26; + + # first, create a brigade + my $pool = $r->pool; + my $ba = $r->connection->bucket_alloc; + + my $bb = APR::Brigade->new($pool, $ba); + + # now, let's put several buckets in it + for (1 .. 10) { + my $data = 'x' x 20000; + my $bucket = APR::Bucket->new($ba, $data); + $bb->insert_tail($bucket); + } + + # ok, that's 10 buckets of 20,000 = 200,000 characters + ok t_cmp($bb->length, + 200000, + 'APR::Brigade::length()'); + + # syntax: require a $bb + eval { APR::Brigade::flatten("") }; + + ok t_cmp($@, + qr!usage: \$bb->flatten\(\$buf, \[\$wanted\]\)!, + 'APR::Brigade::flatten() requires a brigade'); + + # flatten() will slurp up the entire brigade + # equivalent to calling apr_brigade_pflatten + { + my $len = $bb->flatten(my $data); + + verify($len, 200000, $data, 1); + } + + # flatten(0) returns 0 bytes + { + my $len = $bb->flatten(my $data, 0); + + t_debug('$bb->flatten(0) returns a defined value'); + ok (defined $data); + + verify($len, 0, $data, 0); + } + + + # flatten($length) will return the first $length bytes + # equivalent to calling apr_brigade_flatten + { + # small + my $len = $bb->flatten(my $data, 30); + verify($len, 30, $data, 1); + } + + { + # large + my $len = $bb->flatten(my $data, 190000); + verify($len, 190000, $data, 1); + } + + { + # more than enough + my $len = $bb->flatten(my $data, 300000); + verify($len, 200000, $data, 1); + } + + # fetch from a brigade with no data in it + { + my $len = APR::Brigade->new($pool, $ba)->flatten(my $data); + + t_debug('empty brigade returns a defined value'); + ok (defined $data); + + verify($len, 0, $data, 0); + } + + Apache2::Const::OK; +} + +# this sub runs 3 sub-tests with a false $check_content +# and 4 otherwise +sub verify { + my ($len, $expected_len, $data, $check_content) = @_; + + ok t_cmp($len, + $expected_len, + "\$bb->flatten(\$data, $len) returned $len bytes"); + ok t_cmp(length($data), + $len, + "\$bb->flatten(\$data, $len) returned all expected data"); + + ok TestCommon::Utils::is_tainted($data); + + if ($check_content) { + # don't use t_cmp() here, else we get 200,000 characters + # to look at in verbose mode + t_debug("data all 'x' characters"); + ok ($data !~ m/[^x]/); + } + +} + + +1;
diff --git a/2_0_13/t/response/TestAPR/ipsubnet.pm b/2_0_13/t/response/TestAPR/ipsubnet.pm new file mode 100644 index 0000000..1aa3b2e --- /dev/null +++ b/2_0_13/t/response/TestAPR/ipsubnet.pm
@@ -0,0 +1,94 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::ipsubnet; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Connection (); +use Apache2::RequestRec (); +use APR::Pool (); +use APR::IpSubnet (); +use APR::SockAddr (); + +use Apache2::Const -compile => 'OK'; +use constant APACHE24 => have_min_apache_version('2.4.0'); + +sub handler { + my $r = shift; + my $c = $r->connection; + my $p = $r->pool; + + plan $r, tests => 8; + + my $ip = APACHE24 ? $c->client_ip : $c->remote_ip; + + ok $ip; + + if (APACHE24) { + ok t_cmp($c->client_addr->ip_get, $ip, + "client_ip eq client_addr->ip_get"); + } + else { + ok t_cmp($c->remote_addr->ip_get, $ip, + "remote_ip eq remote_addr->ip_get"); + } + + { + my $ipsub = APR::IpSubnet->new($p, $ip); + + ok $ipsub->test(APACHE24 ? $c->client_addr : $c->remote_addr); + } + + # use IP mask + { + my $ipsub = APR::IpSubnet->new($p, $ip, "255.0.0.0"); + + ok $ipsub->test(APACHE24 ? $c->client_addr : $c->remote_addr); + } + + # fail match + { + if ($ip =~ /^\d+\.\d+\.\d+\.\d+$/) { + # arrange for the subnet to match only one IP, which is + # one digit off the client IP, ensuring a mismatch + (my $mismatch = $ip) =~ s/(?<=\.)(\d+)$/$1 == 255 ? $1-1 : $1+1/e; + t_debug($mismatch); + my $ipsub = APR::IpSubnet->new($p, $mismatch, $mismatch); + ok ! $ipsub->test(APACHE24 ? $c->client_addr : $c->remote_addr); + } + else { + # XXX: similar ipv6 trick? + ok 1; + } + } + + # bogus IP + { + my $ipsub = eval { APR::IpSubnet->new($p, "345.234.678.987") }; + ok t_cmp($@, qr/The specified IP address is invalid/, "bogus IP"); + } + + # bogus mask + { + my $ipsub = eval { APR::IpSubnet->new($p, $ip, "255.0") }; + ok t_cmp($@, qr/The specified network mask is invalid/, "bogus mask"); + } + + # temp pool + { + my $ipsub = APR::IpSubnet->new(APR::Pool->new, $ip); + # try to overwrite the temp pool data + require APR::Table; + my $table = APR::Table::make(APR::Pool->new, 50); + $table->set($_ => $_) for 'aa'..'za'; + # now test that we are still OK + ok $ipsub->test(APACHE24 ? $c->client_addr : $c->remote_addr); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/os.pm b/2_0_13/t/response/TestAPR/os.pm new file mode 100644 index 0000000..0ecdafc --- /dev/null +++ b/2_0_13/t/response/TestAPR/os.pm
@@ -0,0 +1,31 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::os; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::MPM (); +use APR::OS (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 1; + + if (Apache2::MPM->is_threaded) { + my $tid = APR::OS::current_thread_id(); + ok t_cmp($tid, $tid, "current thread id: $tid / pid: $$"); + } + else { + ok t_cmp($$, $$, "current process id"); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/perlio.pm b/2_0_13/t/response/TestAPR/perlio.pm new file mode 100644 index 0000000..d2f4865 --- /dev/null +++ b/2_0_13/t/response/TestAPR/perlio.pm
@@ -0,0 +1,354 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::perlio; + +# to see what happens inside the io layer, assuming that you built +# mod_perl with MP_TRACE=1, run: +# env MOD_PERL_TRACE=o t/TEST -v -trace=debug apr/perlio + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Fcntl (); +use File::Spec::Functions qw(catfile); + +use Apache2::Const -compile => qw(OK CRLF); + +#XXX: APR::LARGE_FILES_CONFLICT constant? +#XXX: you can set to zero if largefile support is not enabled in Perl +use constant LARGE_FILES_CONFLICT => 1; + +# apr_file_dup has a bug on win32, +# should be fixed in apr 0.9.4 / httpd-2.0.48 +require Apache2::Build; +use constant APR_WIN32_FILE_DUP_BUG => + Apache2::Build::WIN32() && !have_min_apache_version('2.0.48'); + +sub handler { + my $r = shift; + + my $tests = 22; + $tests += 3 unless LARGE_FILES_CONFLICT; + $tests += 1 unless APR_WIN32_FILE_DUP_BUG; + + require APR::PerlIO; + plan $r, tests => $tests, + need { "This Perl build doesn't support PerlIO layers" => + APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED() }; + + my $vars = Apache::Test::config()->{vars}; + my $dir = catfile $vars->{documentroot}, "perlio"; + + t_mkdir($dir); + + my $sep = "-- sep --\n"; + my @lines = ("This is a test: $$\n", "test line --sep two\n"); + + my $expected = $lines[0]; + my $expected_all = join $sep, @lines; + + # write file + my $file = catfile $dir, "test"; + t_debug "open file $file for writing"; + my $foo = "bar"; + open my $fh, ">:APR", $file, $r->pool + or die "Cannot open $file for writing: $!"; + ok ref($fh) eq 'GLOB'; + + t_debug "write to a file:\n$expected\n"; + print $fh $expected_all; + close $fh; + + # open() failure test + { + # workaround for locale setups where the error message may be + # in a different language + open my $fh, "perlio_this_file_cannot_exist"; + my $errno_string = "$!"; + + # non-existent file + my $file = "/this/file/does/not/exist"; + if (open my $fh, "<:APR", $file, $r->pool) { + t_debug "must not be able to open $file!"; + ok 0; + close $fh; + } + else { + ok t_cmp("$!", + $errno_string, + "expected failure"); + } + } + + # seek/tell() tests + unless (LARGE_FILES_CONFLICT) { + open my $fh, "<:APR", $file, $r->pool + or die "Cannot open $file for reading: $!"; + + # read the whole file so we can test the buffer flushed + # correctly on seek. + my $dummy = join '', <$fh>; + + # Fcntl::SEEK_SET() + my $pos = 3; # rewinds after reading 6 chars above + seek $fh, $pos, Fcntl::SEEK_SET(); + my $got = tell($fh); + ok t_cmp($got, + $pos, + "seek/tell the file Fcntl::SEEK_SET"); + + # Fcntl::SEEK_CUR() + my $step = 10; + $pos = tell($fh) + $step; + seek $fh, $step, Fcntl::SEEK_CUR(); + $got = tell($fh); + ok t_cmp($got, + $pos, + "seek/tell the file Fcntl::SEEK_CUR"); + + # Fcntl::SEEK_END() + $pos = -s $file; + seek $fh, 0, Fcntl::SEEK_END(); + $got = tell($fh); + ok t_cmp($got, + $pos, + "seek/tell the file Fcntl::SEEK_END"); + + close $fh; + } + + # read() tests + { + open my $fh, "<:APR", $file, $r->pool + or die "Cannot open $file for reading: $!"; + + # basic open test + ok ref($fh) eq 'GLOB'; + + # basic single line read + ok t_cmp(scalar(<$fh>), + $expected, + "single line read"); + + # slurp mode + seek $fh, 0, Fcntl::SEEK_SET(); # rewind to the start + local $/; + + ok t_cmp(scalar(<$fh>), + $expected_all, + "slurp file"); + + # test ungetc (a long sep requires read ahead) + seek $fh, 0, Fcntl::SEEK_SET(); # rewind to the start + local $/ = $sep; + my @got_lines = <$fh>; + my @expect = ($lines[0] . $sep, $lines[1]); + ok t_cmp(\@got_lines, + \@expect, + "custom complex input record sep read"); + + close $fh; + } + + + # eof() tests + { + open my $fh, "<:APR", $file, $r->pool + or die "Cannot open $file for reading: $!"; + + ok t_cmp(0, + int eof($fh), # returns false, not 0 + "not end of file"); + # go to the end and read so eof will return 1 + seek $fh, 0, Fcntl::SEEK_END(); + my $received = <$fh>; + + t_debug($received); + + ok t_cmp(eof($fh), + 1, + "end of file"); + close $fh; + } + + # dup() test + { + open my $fh, "<:APR", $file, $r->pool + or die "Cannot open $file for reading: $!"; + + open my $dup_fh, "<&:APR", $fh + or die "Cannot dup $file for reading: $!"; + close $fh; + ok ref($dup_fh) eq 'GLOB'; + + my $received = <$dup_fh>; + + close $dup_fh; + unless (APR_WIN32_FILE_DUP_BUG) { + ok t_cmp($received, + $expected, + "read/write a dupped file"); + } + } + + # unbuffered write + { + open my $wfh, ">:APR", $file, $r->pool + or die "Cannot open $file for writing: $!"; + open my $rfh, "<:APR", $file, $r->pool + or die "Cannot open $file for reading: $!"; + + my $expected = "This is an un buffering write test"; + # unbuffer + my $oldfh = select($wfh); $| = 1; select($oldfh); + print $wfh $expected; # must be flushed to disk immediately + + ok t_cmp(scalar(<$rfh>), + $expected, + "file unbuffered write"); + + # buffer up + $oldfh = select($wfh); $| = 0; select($oldfh); + print $wfh $expected; # should be buffered up and not flushed + + ok t_cmp(scalar(<$rfh>), + undef, + "file buffered write"); + + close $wfh; + close $rfh; + + } + + # tests reading and writing text and binary files + { + for my $file ('MoonRise.jpeg', 'redrum.txt') { + my $in = catfile $dir, $file; + my $out = catfile $dir, "$file.out"; + my ($apr_content, $perl_content); + open my $rfh, "<:APR", $in, $r->pool + or die "Cannot open $in for reading: $!"; + { + local $/; + $apr_content = <$rfh>; + } + close $rfh; + open my $pfh, "<", $in + or die "Cannot open $in for reading: $!"; + binmode($pfh); + { + local $/; + $perl_content = <$pfh>; + } + close $pfh; + ok t_cmp(length $apr_content, + length $perl_content, + "testing data size of $file"); + + open my $wfh, ">:APR", $out, $r->pool + or die "Cannot open $out for writing: $!"; + print $wfh $apr_content; + close $wfh; + ok t_cmp(-s $out, + -s $in, + "testing file size of $file"); + unlink $out; + } + } + + # tests for various CRLF and utf-8 issues + { + my $scratch = catfile $dir, 'scratch.dat'; + my $text; + my $count = 2000; + open my $wfh, ">:crlf", $scratch + or die "Cannot open $scratch for writing: $!"; + print $wfh 'a' . ((('a' x 14) . "\n") x $count); + close $wfh; + open my $rfh, "<:APR", $scratch, $r->pool + or die "Cannot open $scratch for reading: $!"; + { + local $/; + $text = <$rfh>; + } + close $rfh; + ok t_cmp(count_chars($text, Apache2::Const::CRLF), + $count, + 'testing for presence of \015\012'); + ok t_cmp(count_chars($text, "\n"), + $count, + 'testing for presence of \n'); + + open $wfh, ">:APR", $scratch, $r->pool + or die "Cannot open $scratch for writing: $!"; + print $wfh 'a' . ((('a' x 14) . Apache2::Const::CRLF) x $count); + close $wfh; + open $rfh, "<:APR", $scratch, $r->pool + or die "Cannot open $scratch for reading: $!"; + { + local $/; + $text = <$rfh>; + } + close $rfh; + ok t_cmp(count_chars($text, Apache2::Const::CRLF), + $count, + 'testing for presence of \015\012'); + ok t_cmp(count_chars($text, "\n"), + $count, + 'testing for presence of \n'); + open $rfh, "<:crlf", $scratch + or die "Cannot open $scratch for reading: $!"; + { + local $/; + $text = <$rfh>; + } + close $rfh; + ok t_cmp(count_chars($text, Apache2::Const::CRLF), + 0, + 'testing for presence of \015\012'); + ok t_cmp(count_chars($text, "\n"), + $count, + 'testing for presence of \n'); + + my $utf8 = "\x{042F} \x{0432}\x{0430}\x{0441} \x{043B}\x{044E}"; + open $wfh, ">:APR", $scratch, $r->pool + or die "Cannot open $scratch for writing: $!"; + binmode($wfh, ':utf8'); + print $wfh $utf8; + close $wfh; + open $rfh, "<:APR", $scratch, $r->pool + or die "Cannot open $scratch for reading: $!"; + binmode($rfh, ':utf8'); + { + local $/; + $text = <$rfh>; + } + close $rfh; + ok t_cmp($text, + $utf8, + 'utf8 binmode test'); + unlink $scratch; + } + + # XXX: need tests + # - for stdin/out/err as they are handled specially + + # XXX: tmpfile is missing: + # consider to use 5.8's syntax: + # open $fh, "+>", undef; + + # cleanup: t_mkdir will remove the whole tree including the file + + Apache2::Const::OK; +} + +sub count_chars { + my ($text, $chars) = @_; + my $seen = 0; + $seen++ while $text =~ /$chars/g; + return $seen; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/pool.pm b/2_0_13/t/response/TestAPR/pool.pm new file mode 100644 index 0000000..1b04974 --- /dev/null +++ b/2_0_13/t/response/TestAPR/pool.pm
@@ -0,0 +1,78 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::pool; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use Apache2::RequestRec (); +use APR::Pool (); +use APR::Table (); + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::pool; + +sub handler { + my $r = shift; + + plan $r, tests => 4 + TestAPRlib::pool::num_of_tests(); + + ### native pools ### + + # explicit destroy shouldn't destroy native pools + { + my $p = $r->pool; + + my $count = TestAPRlib::pool::ancestry_count($p); + t_debug "\$r->pool has 2 or more ancestors (found $count)"; + ok $count >= 2; + + $p->cleanup_register(\&set_cleanup, [$r, 'native destroy']); + + $p->destroy; + + my @notes = $r->notes->get('cleanup'); + + ok t_cmp(scalar(@notes), 0, "should be 0 notes"); + + $r->notes->clear; + } + + + # implicit DESTROY shouldn't destroy native pools + { + { + my $p = $r->pool; + + my $count = TestAPRlib::pool::ancestry_count($p); + t_debug "\$r->pool has 2 or more ancestors (found $count)"; + ok $count >= 2; + + $p->cleanup_register(\&set_cleanup, [$r, 'native scoped']); + } + + my @notes = $r->notes->get('cleanup'); + + ok t_cmp(scalar(@notes), 0, "should be 0 notes"); + + $r->notes->clear; + } + + TestAPRlib::pool::test(); + + Apache2::Const::OK; +} + +sub set_cleanup { + my $arg = shift; + debug "setting cleanup note: $arg->[1]"; + $arg->[0]->notes->set(cleanup => $arg->[1]); + 1; +} + + +1;
diff --git a/2_0_13/t/response/TestAPR/pool_lifetime.pm b/2_0_13/t/response/TestAPR/pool_lifetime.pm new file mode 100644 index 0000000..8ac97ac --- /dev/null +++ b/2_0_13/t/response/TestAPR/pool_lifetime.pm
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::pool_lifetime; + +# this test verifies that if the perl pool object exceeds the +# life-span of the underlying pool struct we don't get segfaults + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Const -compile => 'OK'; + +my $pool; + +sub handler { + my $r = shift; + + $r->print("Pong"); + $pool = $r->pool; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/sockaddr.pm b/2_0_13/t/response/TestAPR/sockaddr.pm new file mode 100644 index 0000000..0b45937 --- /dev/null +++ b/2_0_13/t/response/TestAPR/sockaddr.pm
@@ -0,0 +1,43 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::sockaddr; + +# testing APR::SockAddr API + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Connection (); +use Apache2::RequestRec (); +use APR::SockAddr (); + +use Apache2::Const -compile => 'OK'; +use constant APACHE24 => have_min_apache_version('2.4.0'); + +sub handler { + my $r = shift; + my $c = $r->connection; + + plan $r, tests => 4; + + my $local = $c->local_addr; + my $remote = APACHE24 ? $c->client_addr : $c->remote_addr; + + ok t_cmp($local->ip_get, $c->local_ip, "local ip"); + if (APACHE24) { + ok t_cmp($remote->ip_get, $c->client_ip, "client ip"); + } + else { + ok t_cmp($remote->ip_get, $c->remote_ip, "remote ip"); + } + + $r->subprocess_env; + ok t_cmp($local->port, $ENV{SERVER_PORT}, "local port"); + ok t_cmp($remote->port, $ENV{REMOTE_PORT}, "remote port"); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/socket.pm b/2_0_13/t/response/TestAPR/socket.pm new file mode 100644 index 0000000..abbc192 --- /dev/null +++ b/2_0_13/t/response/TestAPR/socket.pm
@@ -0,0 +1,53 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::socket; + +# more tests in t/protocol/TestProtocol/echo_*.pm + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::Connection (); +use APR::Socket (); + +use Apache2::Const -compile => 'OK'; +use APR::Const -compile => 'EMISMATCH'; + +sub handler { + my $r = shift; + + my $tests = 5; + + plan $r, tests => $tests; + + my $c = $r->connection; + my $socket = $c->client_socket; + + ok $socket; + + # in microseconds + my $orig_val = $socket->timeout_get(); + t_debug "orig timeout was: $orig_val"; + ok $orig_val; + + my $new_val = 30_000_000; # 30 secs + $socket->timeout_set($new_val); + ok t_cmp($socket->timeout_get(), $new_val, "timeout_get()"); + + # reset the timeout + $socket->timeout_set($orig_val); + ok t_cmp($socket->timeout_get(), $orig_val, "timeout_get()"); + + skip $^O=~/mswin/i ? 'APR::Socket->fileno is not implemented on MSWin' : '', + sub { + t_debug "client socket fd=".$socket->fileno; + $socket->fileno>0 + }; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/status.pm b/2_0_13/t/response/TestAPR/status.pm new file mode 100644 index 0000000..b38b7dd --- /dev/null +++ b/2_0_13/t/response/TestAPR/status.pm
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::status; + +# Testing APR::Status + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::status; + +sub handler { + my $r = shift; + + my $num_of_tests = TestAPRlib::status::num_of_tests(); + plan $r, tests => $num_of_tests; + + TestAPRlib::status::test(); + + Apache2::Const::OK; +} + + + +1;
diff --git a/2_0_13/t/response/TestAPR/string.pm b/2_0_13/t/response/TestAPR/string.pm new file mode 100644 index 0000000..61b41f6 --- /dev/null +++ b/2_0_13/t/response/TestAPR/string.pm
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::string; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +require TestAPRlib::string; + +sub handler { + my $r = shift; + + my $num_of_tests = TestAPRlib::string::num_of_tests(); + plan $r, tests => $num_of_tests; + + TestAPRlib::string::test(); + + Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestAPR/table.pm b/2_0_13/t/response/TestAPR/table.pm new file mode 100644 index 0000000..abe452c --- /dev/null +++ b/2_0_13/t/response/TestAPR/table.pm
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::table; + +# testing APR::Table API + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::table; + +sub handler { + my $r = shift; + + my $tests = TestAPRlib::table::num_of_tests(); + plan $r, tests => $tests; + + TestAPRlib::table::test(); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/threadmutex.pm b/2_0_13/t/response/TestAPR/threadmutex.pm new file mode 100644 index 0000000..e1df238 --- /dev/null +++ b/2_0_13/t/response/TestAPR/threadmutex.pm
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::threadmutex; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::threadmutex; + +sub handler { + my $r = shift; + + my $tests = TestAPRlib::threadmutex::num_of_tests(); + plan $r, tests => $tests, need_threads; + + TestAPRlib::threadmutex::test(); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/threadrwlock.pm b/2_0_13/t/response/TestAPR/threadrwlock.pm new file mode 100644 index 0000000..a6ff19f --- /dev/null +++ b/2_0_13/t/response/TestAPR/threadrwlock.pm
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::threadrwlock; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::threadrwlock; + +sub handler { + my $r = shift; + + my $tests = TestAPRlib::threadrwlock::num_of_tests(); + plan $r, tests => $tests, need_threads; + + TestAPRlib::threadrwlock::test(); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/uri.pm b/2_0_13/t/response/TestAPR/uri.pm new file mode 100644 index 0000000..89b8471 --- /dev/null +++ b/2_0_13/t/response/TestAPR/uri.pm
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::uri; + +# Testing APR::URI (more tests in TestAPI::uri) + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::uri; + +sub handler { + my $r = shift; + + my $num_of_tests = TestAPRlib::uri::num_of_tests(); + plan $r, tests => $num_of_tests; + + TestAPRlib::uri::test(); + + Apache2::Const::OK; +} + + + +1;
diff --git a/2_0_13/t/response/TestAPR/util.pm b/2_0_13/t/response/TestAPR/util.pm new file mode 100644 index 0000000..19ccfc7 --- /dev/null +++ b/2_0_13/t/response/TestAPR/util.pm
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::util; + +# test APR::Util + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +use TestAPRlib::util; + +sub handler { + my $r = shift; + + my $num_of_tests = TestAPRlib::util::num_of_tests(); + plan $r, tests => $num_of_tests; + + TestAPRlib::util::test(); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestAPR/uuid.pm b/2_0_13/t/response/TestAPR/uuid.pm new file mode 100644 index 0000000..97e81f3 --- /dev/null +++ b/2_0_13/t/response/TestAPR/uuid.pm
@@ -0,0 +1,23 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestAPR::uuid; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use TestAPRlib::uuid; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => TestAPRlib::uuid::num_of_tests(); + + TestAPRlib::uuid::test(); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestApache/cgihandler.pm b/2_0_13/t/response/TestApache/cgihandler.pm new file mode 100644 index 0000000..be4f2cc --- /dev/null +++ b/2_0_13/t/response/TestApache/cgihandler.pm
@@ -0,0 +1,46 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::cgihandler; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use APR::Table (); + +use Apache2::Const -compile => qw(OK M_POST); + +#test the 1.x style perl-script handler + +sub handler { + my $r = shift; + + $ENV{FOO} = 2; + + if ($r->method_number == Apache2::Const::M_POST) { + my $cl = $r->headers_in->get('content-length'); + my $buff; +#XXX: working around a bug in ithreads Perl +#that would cause modules/cgi #3 to fail +# read STDIN, $buff, $cl; + read 'STDIN', $buff, $cl; + print $buff; + } + else { + print "1..3\n"; + print "ok 1\n", "ok ", "$ENV{FOO}\n"; +#XXX: current implementation of tie %ENV to $r->subprocess_env +# is not threadsafe +# my $foo = $r->subprocess_env->get('FOO'); + my $foo = $ENV{FOO}; + $foo++; + print "ok $foo\n"; + } + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script +PerlResponseHandler TestApache::cgihandler +
diff --git a/2_0_13/t/response/TestApache/conftree.pm b/2_0_13/t/response/TestApache/conftree.pm new file mode 100644 index 0000000..af13a6e --- /dev/null +++ b/2_0_13/t/response/TestApache/conftree.pm
@@ -0,0 +1,114 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::conftree; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestConfig (); + +use Apache2::Directive (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $cfg = Apache::Test::config(); + + my $node_count = node_count(); + + plan $r, tests => 8 + (5*$node_count); + + ok $cfg; + + my $vars = $cfg->{vars}; + + ok $vars; + + my $tree = Apache2::Directive::conftree(); + + ok $tree; + + my $hostname_lookups = $tree->lookup('HostnameLookups'); + + ok t_cmp($hostname_lookups, "Off"); + + my $documentroot = $tree->lookup('DocumentRoot'); + + ok t_cmp(ref($tree->as_hash()), 'HASH', 'as_hash'); + + ok t_cmp($documentroot, qq("$vars->{documentroot}")); + + ok t_cmp($tree->lookup("DocumentRoot"), qq("$vars->{documentroot}")); + + #XXX: This test isn't so good, but its quite problematic to try + #and _really_ compare $cfg and $tree... + { + my %vhosts = map { + $cfg->{vhosts}{$_}{name} => { %{$cfg->{vhosts}{$_}}, index => $_ } + } keys %{$cfg->{vhosts}}; + + for my $v (keys %vhosts) { + $vhosts{ $vhosts{$v}{index} } = $vhosts{$v}; + } + + my $vhost_failed; + for my $vhost ($tree->lookup("VirtualHost")) { + unless (exists $vhosts{$vhost->{'ServerName'} + || $vhost->{'PerlProcessConnectionHandler'}}) { + $vhost_failed++; + } + } + + ok !$vhost_failed; + } + + traverse_tree ( \&test_node ); + + Apache2::Const::OK; +} + +sub test_node { + my ($data, $node) = @_; + ok $node->directive; + #Args can be null for argless directives + ok $node->args || 1; + #As string can be null for containers + ok $node->as_string || 1; + ok $node->filename; + ok $node->line_num; +} + +sub traverse_tree { + my ($sub, $data) = @_; + my $node = Apache2::Directive::conftree(); + while ($node) { + $sub->($data, $node); + if (my $kid = $node->first_child) { + $node = $kid; + } + elsif (my $next = $node->next) { + $node = $next; + } + else { + if (my $parent = $node->parent) { + $node = $parent->next; + } + else { + $node = undef; + } + } + } + return; +} + +sub node_count { + my $node_count = 0; + + traverse_tree( sub { ${$_[0]}++ }, \$node_count ); + + return $node_count; +} +1;
diff --git a/2_0_13/t/response/TestApache/content_length_header.pm b/2_0_13/t/response/TestApache/content_length_header.pm new file mode 100644 index 0000000..acdca06 --- /dev/null +++ b/2_0_13/t/response/TestApache/content_length_header.pm
@@ -0,0 +1,42 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::content_length_header; + +# see the client t/apache/content_length_header.t for the comments + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Response (); + +use Apache2::Const -compile => 'OK'; + +my $body = "This is a response string"; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + my $args = $r->args || ''; + + if ($args =~ /set_content_length/) { + $r->set_content_length(length $body); + } + + if ($args =~ /send_body/) { + $r->print($body); + } + + if ($args =~ /head_no_body/) { + if ($r->header_only) { + # see #2 in the discussion in the client + $r->rflush; + } + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestApache/daemon.pm b/2_0_13/t/response/TestApache/daemon.pm new file mode 100644 index 0000000..c0ae342 --- /dev/null +++ b/2_0_13/t/response/TestApache/daemon.pm
@@ -0,0 +1,40 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::daemon; + +# Apache2::ServerUtil tests + +use strict; +use warnings FATAL => 'all'; + +use Apache2::ServerUtil (); + +use Apache::TestConfig (); +use Apache::TestUtil; +use Apache::Test; + +use constant WIN32 => Apache::TestConfig::WIN32; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 2; + + my $user_id = Apache2::ServerUtil->user_id; + my $user_id_expected = WIN32 ? 0 : $<; + + ok t_cmp $user_id, $user_id_expected, "user id"; + + my $group_id = Apache2::ServerUtil->group_id; + my ($group_id_expected) = WIN32 ? 0 : ($( =~ /^(\d+)/); + + ok t_cmp $group_id, $group_id_expected, "group id"; + + Apache2::Const::OK; +} + +1; + +__END__ +
diff --git a/2_0_13/t/response/TestApache/discard_rbody.pm b/2_0_13/t/response/TestApache/discard_rbody.pm new file mode 100644 index 0000000..27475e1 --- /dev/null +++ b/2_0_13/t/response/TestApache/discard_rbody.pm
@@ -0,0 +1,58 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::discard_rbody; + +# test $r->discard_request_body when the input body wasn't read at +# all, read partially or completely. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Connection (); +use Apache2::Filter (); +use APR::Brigade (); +use APR::Error (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => qw(OK MODE_READBYTES); +use APR::Const -compile => qw(SUCCESS BLOCK_READ); + +use constant IOBUFSIZE => 8192; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + my $test = $r->args; + + if ($test eq 'none') { + # don't read the request body + } + elsif ($test eq 'partial') { + # read some of request POSTed data (IOBUFSIZE bytes), + # but not all of it + my $filters = $r->input_filters(); + my $ba = $r->connection->bucket_alloc; + my $bb = APR::Brigade->new($r->pool, $ba); + $filters->get_brigade($bb, Apache2::Const::MODE_READBYTES, + APR::Const::BLOCK_READ, IOBUFSIZE); + } + elsif ($test eq 'all') { + # consume all of the request body + my $data = TestCommon::Utils::read_post($r); + die "failed to consume all the data" unless length($data) == 100000; + } + + # now get rid of the rest of the input data should work, no matter + # how little or how much of the body was read + my $rc = $r->discard_request_body; + die APR::Error::strerror($rc) unless $rc == Apache2::Const::OK; + + $r->print($test); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestApache/post.pm b/2_0_13/t/response/TestApache/post.pm new file mode 100644 index 0000000..40527eb --- /dev/null +++ b/2_0_13/t/response/TestApache/post.pm
@@ -0,0 +1,25 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::post; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + $r->content_type('text/plain'); + + my $data = TestCommon::Utils::read_post($r) || ""; + + $r->puts(join ':', length($data), $data); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestApache/read.pm b/2_0_13/t/response/TestApache/read.pm new file mode 100644 index 0000000..8b90c99 --- /dev/null +++ b/2_0_13/t/response/TestApache/read.pm
@@ -0,0 +1,47 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::read; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use TestCommon::Utils; + +use Apache2::Const -compile => 'OK'; + +use constant BUFSIZ => 512; #small for testing + +sub handler { + my $r = shift; + $r->content_type('text/plain'); + + my $cl = $r->headers_in->get('content-length'); + my $buffer = ""; + my $bufsiz = $r->args || BUFSIZ; + + my $offset = 0; + while (my $remain = $cl - $offset) { + my $len = $remain >= $bufsiz ? $bufsiz : $remain; + my $read = $r->read($buffer, $len, $offset); + if ($read != $len) { + die "read only ${read}b, while ${len}b were requested\n"; + } + last unless $read > 0; + $offset += $read; + } + + die "read() has returned untainted data:" + unless TestCommon::Utils::is_tainted($buffer); + + # make sure we dont block after all data is read + my $n = $r->read(my $x, BUFSIZ); + die unless $n == 0; + + $r->puts($buffer); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestApache/read2.pm b/2_0_13/t/response/TestApache/read2.pm new file mode 100644 index 0000000..4cf7348 --- /dev/null +++ b/2_0_13/t/response/TestApache/read2.pm
@@ -0,0 +1,42 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::read2; + +# extra tests in addition to TestApache::read + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +my $expected = "foobar"; + +sub handler { + my $r = shift; + + # test the case where the buffer to be filled has set magic + # attached. which is the case when one passes an non-existing hash + # entry value. it's not autovivified when passed to the function + # and it's not undef. running SetMAGIC inside read accomplishes + # the autovivication in this particular case. + my $data; + my $len = $r->read($data->{buffer}, $r->headers_in->{'Content-Length'}); + + # only print the plan out after reading to avoid chances of a deadlock + # see http://mail-archives.apache.org/mod_mbox/perl-dev/201408.mbox/%3C20140809104131.GA3670@estella.local.invalid%3E + plan $r, tests => 1; + + ok t_cmp($data->{buffer}, + $expected, + "reading into an autovivified hash entry"); + + Apache2::Const::OK; +} +1; +
diff --git a/2_0_13/t/response/TestApache/read3.pm b/2_0_13/t/response/TestApache/read3.pm new file mode 100644 index 0000000..b1522d5 --- /dev/null +++ b/2_0_13/t/response/TestApache/read3.pm
@@ -0,0 +1,41 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::read3; + +# extra tests in addition to TestApache::read + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +my $expected = "foobar"x2000; + +sub handler { + my $r = shift; + + # test to read data up to end of file is signaled + my $data = ''; + my $where = 0; + my $len; + do { + $len = $r->read($data, 100, $where); + $where += $len; + } while ($len > 0); + + # only print the plan out after reading to avoid chances of a deadlock + # see http://mail-archives.apache.org/mod_mbox/perl-dev/201408.mbox/%3C20140809104131.GA3670@estella.local.invalid%3E + plan $r, tests => 1; + + ok t_cmp($data, $expected, "reading up to end of file"); + + Apache2::Const::OK; +} +1; +
diff --git a/2_0_13/t/response/TestApache/read4.pm b/2_0_13/t/response/TestApache/read4.pm new file mode 100644 index 0000000..2b8f327 --- /dev/null +++ b/2_0_13/t/response/TestApache/read4.pm
@@ -0,0 +1,116 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::read4; + +# extra tests in addition to TestApache::read + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +my @expected = ("123foo", + "123456".("\0"x(1000-length("123456")))."bar", + "123f", + "23f\0\0o", + qr/\bread-?only\b/, + $^V, + "ARo", + qr/\bread-?only\b/, + ".........", + # Reading into $1 (the test above) eats up input since perl + # 5.10. This was also the version that blessed $^V as a + # "version" object. + (ref $^V ? "\0\0ar" : "\0\0bar"), + "12", + ""); + +sub X::TIESCALAR {bless []=>'X'} +sub X::FETCH {$_[0]->[0]} +sub X::STORE {$_[0]->[0]=$_[1]} + +sub handler { + my $r = shift; + + plan $r, tests => 12; + my $test = 0; + + # we get the string "foobarfoobar" as input here + + # this test consumes 3 bytes + my $data = 12345; + $r->read($data, 3, -2); + ok t_cmp($data, $expected[$test++], "negative offset"); + + + # "barfoobar" still to be read + $data = 123456; + # now $data is a valid IV but has a PV buffer assigned. + # read() has to convert to a valid PV. + $r->read($data, 3, 1000); + ok t_cmp($data, $expected[$test++], "offset > length of string"); + + + # "foobar" still to be read + $r->read($data, 1, 3); + ok t_cmp($data, $expected[$test++], "shrink string"); + + + # "oobar" still to be read + substr($data, 0, 1) = ''; # set the OOK flag (PV starts at offset 1) + $r->read($data, 1, 5); + ok t_cmp($data, $expected[$test++], "PV with OOK flag set"); + + + # "obar" still to be read + # this test dies BEFORE reading anything + eval {$r->read($^V, 1)}; + ok t_cmp($@, $expected[$test++], "read-only \$^V"); + ok t_cmp($^V, $expected[$test++], "\$^V untouched"); + + + # "obar" still to be read + $data=[]; + eval {$r->read($data, 1, 2)}; + ok t_cmp($data, $expected[$test++], "passing an RV as data"); + + + # "bar" still to be read + # this test consumes the "b" although it should not + "........."=~/(.*)/; + eval {$r->read($1, 1)}; + my $x="$1"; # just in case + ok t_cmp($@, $expected[$test++], "read-only \$1"); + ok t_cmp($x, $expected[$test++], "\$1 untouched"); + + + # "ar" still to be read + # now eat up the rest of input + tie $data, 'X'; + $data=''; + $r->read($data, 100, 2); + ok t_cmp(tied($data)->[0], $expected[$test++], "read into a tied buffer"); + + untie $data; + + + # input is empty + $data=123456; + $r->read($data, 1000, 2); + ok t_cmp($data, $expected[$test++], "read at eof"); + + + # input is empty + $r->read($data, 1000); + ok t_cmp($data, $expected[$test++], "repeated read at eof"); + + Apache2::Const::OK; +} +1; +
diff --git a/2_0_13/t/response/TestApache/scanhdrs.pm b/2_0_13/t/response/TestApache/scanhdrs.pm new file mode 100644 index 0000000..00e3050 --- /dev/null +++ b/2_0_13/t/response/TestApache/scanhdrs.pm
@@ -0,0 +1,31 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::scanhdrs; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::compat (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + print "Status: 200 Bottles of beer on the wall\n"; + print 'X-Perl-Module', ': ', __PACKAGE__; + print "\r\n"; + print "Content-type: text/test-"; + print "output\n"; + print "\n"; + + print "ok 1\n"; + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script +PerlOptions +ParseHeaders
diff --git a/2_0_13/t/response/TestApache/scanhdrs2.pm b/2_0_13/t/response/TestApache/scanhdrs2.pm new file mode 100644 index 0000000..7327941 --- /dev/null +++ b/2_0_13/t/response/TestApache/scanhdrs2.pm
@@ -0,0 +1,24 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::scanhdrs2; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $location = $r->args; + + print "Location: $location\n\n"; + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script +PerlOptions +ParseHeaders
diff --git a/2_0_13/t/response/TestApache/send_cgi_header.pm b/2_0_13/t/response/TestApache/send_cgi_header.pm new file mode 100644 index 0000000..9738038 --- /dev/null +++ b/2_0_13/t/response/TestApache/send_cgi_header.pm
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::send_cgi_header; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Response (); + +use Apache2::Const -compile => qw(OK); + +sub handler { + my $r = shift; + + # at the same time test the \0 binary at the beginning of the data + my $response = <<EOF; +Content-type: text/plain +X-Foo: X-Bar +Set-Cookie: Bad Programmer, No cookie! + +\000\000This not the end of the world\000\000 +EOF + + # bah, we can send the header and the response here + # don't tell anybody + $r->send_cgi_header($response); + + Apache2::Const::OK; +} + +1; +__END__ +# this should work regardless whether parse headers is on or off +PerlOptions -ParseHeaders
diff --git a/2_0_13/t/response/TestApache/subprocess.pm b/2_0_13/t/response/TestApache/subprocess.pm new file mode 100644 index 0000000..c6bc3bb --- /dev/null +++ b/2_0_13/t/response/TestApache/subprocess.pm
@@ -0,0 +1,180 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::subprocess; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache2::Build; + +use File::Spec::Functions qw(catfile catdir); +use IO::Select (); + +use Apache2::Const -compile => 'OK'; + +use Config; + +my $perl = Apache2::Build->build_config()->perl_config('perlpath'); + +my %scripts = ( + argv => 'print STDOUT "@ARGV";', + env => 'print STDOUT $ENV{SubProcess}', + in_out => 'print STDOUT scalar <STDIN>;', + in_err => 'print STDERR scalar <STDIN>;', + ); + +sub APACHE_TEST_CONFIGURE { + my ($class, $self) = @_; + + my $vars = $self->{vars}; + + my $target_dir = catdir $vars->{documentroot}, "util"; + + while (my ($file, $code) = each %scripts) { + $file = catfile $target_dir, "$file.pl"; + $self->write_perlscript($file, "$code\n"); + } +} + +sub handler { + my $r = shift; + + my $cfg = Apache::Test::config(); + my $vars = $cfg->{vars}; + + plan $r, tests => 5, need qw(APR::PerlIO Apache2::SubProcess); + + my $target_dir = catfile $vars->{documentroot}, "util"; + + { + # test: passing argv + void context + my $script = catfile $target_dir, "argv.pl"; + my @argv = qw(foo bar); + $r->spawn_proc_prog($perl, [$script, @argv]); + # can't really test if something is still returned since it + # will be no longer void context + ok 1; + } + + { + # test: passing argv + scalar context + my $script = catfile $target_dir, "argv.pl"; + my @argv = qw(foo bar); + my $out_fh = $r->spawn_proc_prog($perl, [$script, @argv]); + my $output = read_data($out_fh); + ok t_cmp([split / /, $output], + \@argv, + "passing ARGV" + ); + } + + { + # test: passing env to subprocess through subprocess_env + my $script = catfile $target_dir, "env.pl"; + my $value = "my cool proc"; + $r->subprocess_env->set(SubProcess => $value); + my $out_fh = $r->spawn_proc_prog($perl, [$script]); + my $output = read_data($out_fh); + ok t_cmp($output, + $value, + "passing env via subprocess_env" + ); + } + + { + # test: subproc's stdin -> stdout + list context + my $script = catfile $target_dir, "in_out.pl"; + my $value = "my cool proc\r\n"; # must have \n for <IN> + my ($in_fh, $out_fh, $err_fh) = + $r->spawn_proc_prog($perl, [$script]); + print $in_fh $value; + (my $output = read_data($out_fh)) =~ s/[\r\n]{1,2}/\r\n/; + ok t_cmp($output, + $value, + "testing subproc's stdin -> stdout + list context" + ); + } + + { + # test: subproc's stdin -> stderr + list context + my $script = catfile $target_dir, "in_err.pl"; + my $value = "my stderr\r\n"; # must have \n for <IN> + my ($in_fh, $out_fh, $err_fh) = + $r->spawn_proc_prog($perl, [$script]); + print $in_fh $value; + (my $output = read_data($err_fh)) =~ s/[\r\n]{1,2}/\r\n/; + ok t_cmp($output, + $value, + "testing subproc's stdin -> stderr + list context" + ); + } + +# could test send_fd($out), send_fd($err), but currently it's only in +# compat.pm. + +# these are wannabe's +# ok t_cmp( +# Apache2::SubProcess::spawn_proc_sub($r, $sub, \@args), +# Apache2::SUCCESS, +# "spawn a subprocess and run a subroutine in it" +# ); + +# ok t_cmp( +# Apache2::SubProcess::spawn_thread_prog($r, $command, \@argv), +# Apache2::SUCCESS, +# "spawn thread and run a program in it" +# ); + +# ok t_cmp( +# Apache2::SubProcess::spawn_thread_sub($r, $sub, \@args), +# Apache2::SUCCESS, +# "spawn thread and run a subroutine in it" +# ); + + Apache2::Const::OK; +} + + + +sub read_data { + my ($fh) = @_; + my @data = (); + my $sel = IO::Select->new($fh); + + # here is the catch: + # + # non-PerlIO pipe fh needs to select if the other end is not fast + # enough to send the data, since the read is non-blocking + # + # PerlIO-based pipe fh on the other hand does the select + # internally via apr_wait_for_io_or_timeout() in + # apr_file_read() (on *nix, but not on Win32). + # But you cannot call select() on the + # PerlIO-based, because its fileno() returns (-1), remember that + # apr_file_t is an opaque object, and on certain platforms + # fileno() is different from unix + # + # so we use the following wrapper: if we are under perlio we just + # go ahead and read the data, but with a short sleep first on Win32; + # if we are under non-perlio we first + # select for a few secs. (XXX: is 10 secs enough?) + # + # btw: we use perlIO only for perl 5.7+ + # + if (APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED() || $sel->can_read(10)) { + sleep(1) if $^O eq 'MSWin32' && APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED(); + @data = wantarray ? (<$fh>) : <$fh>; + } + + if (wantarray) { + return @data; + } + else { + return defined $data[0] ? $data[0] : ''; + } +} + +1; + +
diff --git a/2_0_13/t/response/TestApache/util.pm b/2_0_13/t/response/TestApache/util.pm new file mode 100644 index 0000000..da61e38 --- /dev/null +++ b/2_0_13/t/response/TestApache/util.pm
@@ -0,0 +1,128 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::util; + +# Apache2::Util tests + +use strict; +use warnings FATAL => 'all'; + +# to fully test this test the following locale settings need to be run: +# +# some /^en_/ locale, e.g. /^en_GB* +# LC_CTYPE=en_GB.UTF-8 LC_TIME=en_GB.UTF-8 t/TEST -verbose apache/util.t +# LC_CTYPE=en_GB LC_TIME=en_GB t/TEST -verbose apache/util.t +# +# some non-/^en_/ locale, e.g. ru_RU +# LC_CTYPE=ru_RU.UTF-8 LC_TIME=ru_RU.UTF-8 t/TEST -verbose apache/util.t +# LC_CTYPE=ru_RU LC_TIME=ru_RU t/TEST -verbose apache/util.t + +# regex matching (LC_CTYPE) of strftime-like (LC_TIME) strings +use locale; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Util (); +use APR::Date (); + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +# those are passed via PerlPassEnv +my $locale = $ENV{LC_TIME} || ''; + +my $parse_time_ok = $locale =~ /^en_/ ? 1 : 0; +my $locale_is_utf8 = $locale =~ /UTF-8$/ ? 1 : 0; + +sub handler { + my $r = shift; + + plan $r, tests => 8; + + # ht_time + { + my $time = time; + my $fmt = "%a, %d %b %Y %H:%M:%S %Z"; + my $fmtdate; + + $fmtdate = Apache2::Util::ht_time($r->pool); + time_cmp($fmtdate, $time, + 'Apache2::Util::ht_time($pool)', 0); + + $fmtdate = Apache2::Util::ht_time($r->pool, $time); + time_cmp($fmtdate, $time, + 'Apache2::Util::ht_time($pool, $time)', 1); + + $fmtdate = Apache2::Util::ht_time($r->pool, $time, $fmt); + time_cmp($fmtdate, $time, + 'Apache2::Util::ht_time($pool, $time, $fmt)', 1); + + my $gmt = 0; + $fmtdate = Apache2::Util::ht_time($r->pool, $time, $fmt, $gmt); + time_cmp($fmtdate, $time, + 'Apache2::Util::ht_time($pool, $time, $fmt, $gmt)', 0); + } + + # escape_path + { + my ($uri, $received, $expected); + + $uri = "a 'long' file?.html"; + ($expected = $uri) =~ s/([\s?;])/sprintf "%%%x", ord $1/ge; + + $received = Apache2::Util::escape_path($uri, $r->pool); + ok t_cmp $received, $expected, + "Apache2::Util::escape_path / partial=1 / default"; + + $received = Apache2::Util::escape_path($uri, $r->pool, 1); + ok t_cmp $received, $expected, + "Apache2::Util::escape_path / partial=1 / explicit"; + + $received = Apache2::Util::escape_path($uri, $r->pool, 0); + ok t_cmp $received, $expected, + "Apache2::Util::escape_path / partial=0"; + + $uri = "a 'long' file?.html:"; + ($expected = $uri) =~ s/([\s?;])/sprintf "%%%x", ord $1/ge; + # XXX: why does it prepend ./ only if it sees : or :/? + $expected = "./$expected"; + + $received = Apache2::Util::escape_path($uri, $r->pool, 0); + ok t_cmp $received, $expected, + "Apache2::Util::escape_path / partial=0 / ./ prefix "; + + } + + Apache2::Const::OK; +} + +my $fmtdate_re = qr/^\w+, \d\d \w+ \d\d\d\d \d\d:\d\d:\d\d/; +sub time_cmp { + my ($fmtdate, $time, $comment, $exact_match) = @_; + + if ($parse_time_ok && $exact_match) { + my $ptime = APR::Date::parse_http($fmtdate); + t_debug "fmtdate: $fmtdate"; + ok t_cmp $ptime, $time, $comment; + } + else { + if ($locale_is_utf8) { + if (have_min_perl_version(5.008)) { + require Encode; + # perl doesn't know yet that $fmtdate is a utf8 string + $fmtdate = Encode::decode_utf8($fmtdate); + } + else { + skip "Skip locale $locale needs perl 5.8.0+", 0; + return; + } + } + ok t_cmp $fmtdate, $fmtdate_re, $comment; + } +} + +1; + +__END__ +
diff --git a/2_0_13/t/response/TestApache/write.pm b/2_0_13/t/response/TestApache/write.pm new file mode 100644 index 0000000..ebb7553 --- /dev/null +++ b/2_0_13/t/response/TestApache/write.pm
@@ -0,0 +1,31 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestApache::write; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Const -compile => 'OK'; + +use constant BUFSIZ => 512; #small for testing + +sub handler { + my $r = shift; + $r->content_type('text/plain'); + + $r->write("1..2"); + $r->write("\n", 1); + + my $ok = "ok 1\n"; + $r->write($ok, 2); + $r->write($ok, -1, 2); + + $ok = "not ok 2\n"; + $r->write($ok, 5, 4); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestCompat/apache.pm b/2_0_13/t/response/TestCompat/apache.pm new file mode 100644 index 0000000..9202916 --- /dev/null +++ b/2_0_13/t/response/TestCompat/apache.pm
@@ -0,0 +1,133 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::apache; + +# Apache->"method" and Apache::"function" compat layer tests + +# these tests are all run and validated on the server side. + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use ModPerl::Util (); +use Apache2::compat (); +use Apache::Constants qw(DIR_MAGIC_TYPE OPT_EXECCGI :common :response); + +use File::Spec::Functions qw(catfile canonpath); + +sub fixup { + my $r = shift; + Apache->httpd_conf('Options +ExecCGI'); + OK; +} + +sub handler { + my $r = shift; + + plan $r, tests => 24; + + $r->send_http_header('text/plain'); + + ### Apache-> tests + my $fh = Apache->gensym; + ok t_cmp(ref($fh), 'GLOB', "Apache->gensym"); + + ok t_cmp(Apache->module('mod_perl.c'), 1, + "Apache2::module('mod_perl.c')"); + ok t_cmp(Apache->module('mod_ne_exists.c'), 0, + "Apache2::module('mod_ne_exists.c')"); + + ok t_cmp(Apache->define('MODPERL2'), + Apache2::ServerUtil::exists_config_define('MODPERL2'), + 'Apache->define'); + + ok t_cmp($r->current_callback, + 'PerlResponseHandler', + 'inside PerlResponseHandler'); + + t_server_log_error_is_expected(); + Apache::log_error("Apache::log_error test ok"); + ok 1; + + t_server_log_warn_is_expected(); + Apache->warn('Apache->warn ok'); + ok 1; + + t_server_log_warn_is_expected(); + Apache::warn('Apache::warn ok'); + ok 1; + + t_server_log_warn_is_expected(); + Apache::Server->warn('Apache::Server->warn ok'); + ok 1; + + t_server_log_warn_is_expected(); + Apache::Server::warn('Apache::Server::warn ok'); + ok 1; + + # explicitly imported + ok t_cmp(DIR_MAGIC_TYPE, "httpd/unix-directory", + 'DIR_MAGIC_TYPE'); + + # :response is ignored, but is now aliased in :common + ok t_cmp(REDIRECT, "302", + 'REDIRECT'); + + # from :common + ok t_cmp(AUTH_REQUIRED, "401", + 'AUTH_REQUIRED'); + + ok t_cmp(OK, "0", + 'OK'); + + my $exec_cgi = $r->allow_options & Apache2::Const::OPT_EXECCGI; + ok t_cmp($exec_cgi, Apache2::Const::OPT_EXECCGI, 'Apache->httpd_conf'); + + # (Apache||$r)->server_root_relative + { + my $server_root = Apache::Test::config()->{vars}->{serverroot}; + ok t_filepath_cmp(canonpath($Apache::Server::CWD), + canonpath($server_root), + '$server_root'); + + ok t_filepath_cmp(canonpath($r->server_root_relative), + canonpath($server_root), + '$r->server_root_relative()'); + + ok t_filepath_cmp(canonpath($r->server_root_relative('conf')), + catfile($server_root, 'conf'), + "\$r->server_root_relative('conf')"); + + ok t_filepath_cmp(canonpath(Apache->server_root_relative('conf')), + catfile($server_root, 'conf'), + "Apache2::ServerUtil->server_root_relative('conf')"); + + ok t_filepath_cmp(canonpath(Apache->server_root_relative), + canonpath($server_root), + 'Apache2::ServerUtil->server_root_relative()'); + + my $path = catfile(Apache2::ServerUtil::server_root, 'logs'); + ok t_filepath_cmp(canonpath(Apache->server_root_relative($path)), + canonpath($path), + "Apache->server_root_relative('$path')"); + } + + ok t_cmp(Apache->unescape_url_info("/foo+bar%20baz"), + '/foo bar baz', + 'Apache->unescape_url_info'); + + ok t_cmp $Apache::Server::Starting, 0, '$Apache::Server::Starting'; + ok t_cmp $Apache::Server::ReStarting, 1, '$Apache::Server::ReStarting'; + + OK; +} + +1; + +__END__ +# so we can test whether send_httpd_header() works fine +PerlOptions +ParseHeaders +GlobalRequest +PerlModule TestCompat::apache +PerlFixupHandler TestCompat::apache::fixup
diff --git a/2_0_13/t/response/TestCompat/apache_file.pm b/2_0_13/t/response/TestCompat/apache_file.pm new file mode 100644 index 0000000..20f0c0c --- /dev/null +++ b/2_0_13/t/response/TestCompat/apache_file.pm
@@ -0,0 +1,128 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::apache_file; + +# Apache::File compat layer tests + +# these tests are all run and validated on the server side. + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::compat (); +use Apache::Constants qw(OK); + +sub handler { + my $r = shift; + + plan $r, tests => 18; + + $r->send_http_header('text/plain'); + + my $cfg = Apache::Test::config(); + my $vars = $cfg->{vars}; + + require Apache::File; + my $file = $vars->{t_conf_file}; + + t_debug "new Apache2::File file object"; + ok my $fh = Apache::File->new; + + t_debug "open itself"; + if ($fh->open($file)) { + ok 1; + t_debug "read from file"; + my $read = <$fh>; + ok $read; + t_debug "close file"; + ok $fh->close; + } + else { + t_debug "open $file failed: $!"; + ok 0; + t_debug "ok: cannot read from the closed fh"; + ok 1; + t_debug "ok: close file should fail, wasn't opened"; + ok !$fh->close; + } + + t_debug "open non-exists"; + ok !$fh->open("$file.nochance"); + + t_debug "new+open"; + if (my $fh = Apache::File->new($file)) { + ok 1; + $fh->close; + } + else { + ok 0; + } + + t_debug "new+open non-exists"; + ok !Apache::File->new("$file.yeahright"); + + # tmpfile + my ($tmpfile, $tmpfh) = Apache::File->tmpfile; + + t_debug "open tmpfile fh"; + ok $tmpfh; + + t_debug "open tmpfile name"; + ok $tmpfile; + + my $write = "test $$"; + print $tmpfh $write; + seek $tmpfh, 0, 0; + ok t_cmp(<$tmpfh>, $write, "write/read from tmpfile"); + + ok t_cmp($r->discard_request_body, + Apache2::Const::OK, + "\$r->discard_request_body"); + + ok t_cmp($r->meets_conditions, + Apache2::Const::OK, + "\$r->meets_conditions"); + + my $csize = 10; + $r->set_content_length($csize); + ok t_cmp($r->headers_out->{"Content-length"}, + $csize, + "\$r->set_content_length($csize) w/ setting explicit size"); + +# #$r->set_content_length(); +# #TODO +# ok t_cmp(0, # XXX: $r->finfo->csize is not available yet +# $r->headers_out->{"Content-length"}, +# "\$r->set_content_length() w/o setting explicit size"); + + + # XXX: how to test etag? + t_debug "\$r->set_etag"; + $r->set_etag; + ok 1; + + # $r->update_mtime + t_debug "\$r->update_mtime()"; + $r->update_mtime; # just check that it's valid + ok 1; + + my $time = time; + $r->update_mtime($time); + ok t_cmp($r->mtime, $time, "\$r->update_mtime(\$time)/\$r->mtime"); + + # $r->set_last_modified + $r->set_last_modified(); + ok t_cmp($r->mtime, $time, "\$r->set_last_modified()"); + + $r->set_last_modified($time); + ok t_cmp($r->mtime, $time, "\$r->set_last_modified(\$time)"); + + OK; +} + +1; + +__END__ +PerlOptions +GlobalRequest
diff --git a/2_0_13/t/response/TestCompat/apache_module.pm b/2_0_13/t/response/TestCompat/apache_module.pm new file mode 100644 index 0000000..2df1df4 --- /dev/null +++ b/2_0_13/t/response/TestCompat/apache_module.pm
@@ -0,0 +1,51 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::apache_module; + +# Apache2::Module compat layer tests + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::compat (); +use Apache::Constants qw(OK); + +my @directives = ( + { + name => 'TestCompatApacheModuleParms', + }, +); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub TestCompatApacheModuleParms { + my ($self, $parms, $args) = @_; + my $config = Apache2::Module->get_config($self, $parms->server); + $config->{data} = $args; +} + +sub handler : method { + my ($self, $r) = @_; + + plan $r, tests => 2; + + my $top_module = Apache2::Module->top_module(); + ok t_cmp (ref($top_module), 'Apache2::Module'); + + my $config = Apache2::Module->get_config($self, $r->server); + ok t_cmp ($config->{data}, 'Test'); + + OK; +} + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 + +<Base> +PerlLoadModule TestCompat::apache_module +</Base> +TestCompatApacheModuleParms "Test"
diff --git a/2_0_13/t/response/TestCompat/apache_table.pm b/2_0_13/t/response/TestCompat/apache_table.pm new file mode 100644 index 0000000..31d3992 --- /dev/null +++ b/2_0_13/t/response/TestCompat/apache_table.pm
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::apache_table; + +# Apache::Table compat layer tests + +# these tests are all run and validated on the server side. + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::compat (); +use Apache::Constants qw(OK); + +sub handler { + my $r = shift; + + plan $r, tests => 2; + + $r->send_http_header('text/plain'); + + my $t = Apache::Table->new($r); + my $t_class = ref $t; + + ok t_cmp($t_class, 'APR::Table', "Apache::Table->new"); + + ok t_cmp($r->is_main, !$r->main, + '$r->is_main'); + + OK; +} + +1; +
diff --git a/2_0_13/t/response/TestCompat/apache_uri.pm b/2_0_13/t/response/TestCompat/apache_uri.pm new file mode 100644 index 0000000..c830d60 --- /dev/null +++ b/2_0_13/t/response/TestCompat/apache_uri.pm
@@ -0,0 +1,59 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::apache_uri; + +# Apache::Util compat layer tests + +# these tests are all run and validated on the server side. + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::compat (); +use Apache::Constants qw(OK); + +sub handler { + my $r = shift; + + plan $r, tests => 19; + + { + # XXX: rpath is not implemented and not in compat + my @methods = qw(scheme hostinfo user password hostname path + query fragment port); + my $test_uri = 'http://foo:bar@perl.apache.org:80/docs?args#frag'; + + # Apache2::URI->parse internally returns an object blessed into + # APR::URI and all the methods are called on that object + for my $uri ($r->parsed_uri, Apache2::URI->parse($r, $test_uri)) { + t_debug("URI=" . $uri->unparse); + no strict 'refs'; + # just check that methods are call-able, the actual + # testing happens in TestAPR::uri test + for my $meth (@methods) { + my $val = $uri->$meth(); + t_debug("$meth: " . ($val||'')); + ok $val || 1; + } + } + } + + { + Apache2::compat::override_mp2_api('APR::URI::unparse'); + # test the segfault in apr < 0.9.2 (fixed on mod_perl side) + # passing only the /path + my $parsed = $r->parsed_uri; + # set hostname, but not the scheme + $parsed->hostname($r->get_server_name); + $parsed->port($r->get_server_port); + #$parsed->scheme('http'); # compat defaults to 'http' like apache-1.3 did + ok t_cmp($parsed->unparse, $r->construct_url); + Apache2::compat::restore_mp2_api('APR::URI::unparse'); + } + + OK; +} + +1;
diff --git a/2_0_13/t/response/TestCompat/apache_util.pm b/2_0_13/t/response/TestCompat/apache_util.pm new file mode 100644 index 0000000..ec1496f --- /dev/null +++ b/2_0_13/t/response/TestCompat/apache_util.pm
@@ -0,0 +1,104 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::apache_util; + +# Apache::Util compat layer tests + +# these tests are all run and validated on the server side. + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::compat (); +use Apache::Constants qw(OK); + +my %string_size = ( + '-1' => " -", + 0 => " 0k", + 42 => " 1k", + 42_000 => " 41k", + 42_000_000 => "40.1M", + 42_000_000_000 => "40054M", +); + +# list of platforms on which C (not Perl) crypt() is supported +# XXX: add other platforms that are known to have crypt +my %crypt_supported = map {$_ => 1} qw(linux); + +my $crypt_ok = $crypt_supported{lc $^O} ? 1 : 0; + +my $locale = $ENV{LANG} || $ENV{LC_TIME} || ''; +# XXX: will any en_XXX work with http_parse? +# XXX: should we set $ENV{LANG} to en_US instead of skipping? +my $parse_time_ok = $locale =~ /^en_/ ? 1 : 0; + +sub handler { + my $r = shift; + + plan $r, tests => 12 + $parse_time_ok*1 + $crypt_ok*2; + + $r->send_http_header('text/plain'); + + # size_string() + { + while (my ($k, $v) = each %string_size) { + ok t_cmp($v, Apache::Util::size_string($k)); + } + } + + # escape_uri(), escape_path(), unescape_uri() + my $uri = "http://foo.com/a file.html"; + (my $esc_uri = $uri) =~ s/ /\%20/g; + my $uri2 = $uri; + + $uri = Apache::Util::escape_uri($uri); + $uri2 = Apache::Util::escape_path($uri2, $r->pool); + + ok t_cmp($uri, $esc_uri, "Apache::Util::escape_uri"); + ok t_cmp($uri2, $esc_uri, "Apache::Util::escape_path"); + + ok t_cmp(Apache::Util::unescape_uri($uri2), + Apache2::URI::unescape_url($uri), + "Apache2::URI::unescape_uri vs Apache::Util::unescape_uri"); + + ok t_cmp($uri2, + $uri, + "Apache2::URI::unescape_uri vs Apache::Util::unescape_uri"); + + # escape_html() + my $html = '<p>"hi"&foo</p>'; + my $esc_html = '<p>"hi"&foo</p>'; + + ok t_cmp(Apache::Util::escape_html($html), $esc_html, + "Apache2::Util::escape_html"); + + + # ht_time(), parsedate() + my $time = time; + Apache2::compat::override_mp2_api('Apache2::Util::ht_time'); + my $fmtdate = Apache2::Util::ht_time($time); + Apache2::compat::restore_mp2_api('Apache2::Util::ht_time'); + + ok t_cmp($fmtdate, $fmtdate, "Apache::Util::ht_time"); + + if ($parse_time_ok) { + my $ptime = Apache::Util::parsedate($fmtdate); + ok t_cmp($ptime, $time, "Apache::Util::parsedate"); + } + + if ($crypt_ok) { + # not all platforms support C-level crypt + my $hash = "aX9eP53k4DGfU"; + ok t_cmp(Apache::Util::validate_password("dougm", $hash), 1); + ok t_cmp(Apache::Util::validate_password("mguod", $hash), 0); + } + + OK; +} + +1; + +__END__ +PerlOptions +GlobalRequest
diff --git a/2_0_13/t/response/TestCompat/conn_authen.pm b/2_0_13/t/response/TestCompat/conn_authen.pm new file mode 100644 index 0000000..1cb80ad --- /dev/null +++ b/2_0_13/t/response/TestCompat/conn_authen.pm
@@ -0,0 +1,75 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::conn_authen; + +# compat checks for +# $r->connection->auth_type +# $r->connection->user +# both records don't exist in 2.0 conn_rec and therefore require +# 'PerlOptions +GlobalRequest' to retrieve those via Apache2::RequestUtil->request + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::compat (); +use Apache::Constants qw(OK REMOTE_HOST); + +sub handler { + + my $r = shift; + + my $req_auth_type = $r->connection->auth_type || ''; + + die "request auth_type is '$req_auth_type', should be empty" + if $req_auth_type; + + # get_basic_auth_pw populates $r->user and $r->ap_auth_type + my ($rc, $sent_pw) = $r->get_basic_auth_pw; + + return $rc if $rc != Apache2::Const::OK; + + $req_auth_type = $r->connection->auth_type || ''; + + die "request auth_type is '$req_auth_type', should be 'Basic'" + unless $req_auth_type eq 'Basic'; + + my $config_auth_type = $r->auth_type || ''; + + die "httpd.conf auth_type is '$config_auth_type', should be 'Basic'" + unless $config_auth_type eq 'Basic'; + + my $user = $r->connection->user || ''; + + die "user is '$user', should be 'dougm'" + unless $user eq 'dougm'; + + # make sure we can set both + $r->connection->auth_type('sailboat'); + $r->connection->user('geoff'); + + $user = $r->connection->user || ''; + + die "user is '$user', should be 'geoff'" + unless $user eq 'geoff'; + + $req_auth_type = $r->connection->auth_type || ''; + + die "request auth_type is '$req_auth_type', should be 'sailboat'" + unless $req_auth_type eq 'sailboat'; + + OK; +} + +1; + +__DATA__ +require valid-user +AuthType Basic +AuthName simple +SetHandler modperl +PerlOptions +GlobalRequest +PerlAuthenHandler TestCompat::conn_authen +PerlResponseHandler Apache::TestHandler::ok1 +
diff --git a/2_0_13/t/response/TestCompat/conn_rec.pm b/2_0_13/t/response/TestCompat/conn_rec.pm new file mode 100644 index 0000000..a19339c --- /dev/null +++ b/2_0_13/t/response/TestCompat/conn_rec.pm
@@ -0,0 +1,42 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::conn_rec; + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use Apache2::compat (); + +use Socket qw(sockaddr_in inet_ntoa); + +use Apache::Constants qw(OK); + +sub handler { + + my $r = shift; + + my $c = $r->connection; + + plan $r, tests => 4; + + Apache2::compat::override_mp2_api('Apache2::Connection::local_addr'); + my ($local_port, $local_addr) = sockaddr_in($c->local_addr); + Apache2::compat::restore_mp2_api('Apache2::Connection::local_addr'); + t_debug inet_ntoa($local_addr) . " :$local_port"; + ok $local_port; + ok inet_ntoa($local_addr); + + Apache2::compat::override_mp2_api('Apache2::Connection::remote_addr'); + my ($remote_port, $remote_addr) = sockaddr_in($c->remote_addr); + Apache2::compat::restore_mp2_api('Apache2::Connection::remote_addr'); + t_debug inet_ntoa($remote_addr) . " :$remote_port"; + ok $remote_port; + ok inet_ntoa($remote_addr); + + OK; +} + +1; +
diff --git a/2_0_13/t/response/TestCompat/request.pm b/2_0_13/t/response/TestCompat/request.pm new file mode 100644 index 0000000..c2406d3 --- /dev/null +++ b/2_0_13/t/response/TestCompat/request.pm
@@ -0,0 +1,150 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::request; + +# $r->"method" compat layer tests + +# these tests are all run and validated on the server side. + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test; + +use APR::Finfo (); + +use File::Spec::Functions qw(catfile); + +use Apache2::compat (); +use Apache::Constants qw(OK REMOTE_HOST); + +sub handler { + my $r = shift; + + plan $r, tests => 22; + + $r->send_http_header('text/plain'); + + # header_in() and header_out() and err_header_out() + for my $prefix ('err_', '') { + my @ways = 'out'; + push @ways, 'in' unless $prefix; + for my $way (@ways) { + my $sub_test = "${prefix}header_$way"; + my $sub_good = "${prefix}headers_$way"; + my $key = 'header-test'; + + # scalar context + { + my $key; + if ($way eq 'in') { + $key = "user-agent"; # should exist with lwp + } else { + # outgoing headers aren't set yet, so we set one + $key = "X-barabara"; + $r->$sub_good->set($key, $key x 2); + } + + ok t_cmp($r->$sub_test($key), + $r->$sub_good->get($key), + "\$r->$sub_test in scalar context"); + } + + # list context + { + my @exp = qw(foo bar); + $r->$sub_good->add($key => $_) for @exp; + ok t_cmp([ $r->$sub_test($key) ], + \@exp, + "\$r->$sub_test in list context"); + } + + # set + { + my $exp = $key x 2; + $r->$sub_test($key => $exp); + my $got = $r->$sub_test($key); + ok t_cmp($got, $exp, "\$r->$sub_test set()"); + } + + # unset + { + my $exp = undef; + $r->$sub_test($key => $exp); + my $got = $r->$sub_test($key); + ok t_cmp($got, $exp, "\$r->$sub_test unset()"); + } + } + } + + # $r->filename + { + Apache2::compat::override_mp2_api('Apache2::RequestRec::filename'); + my $orig = $r->filename; + my $new = catfile Apache::Test::vars("serverroot"), + "conf", "httpd.conf"; + + # in mp1 setting filename, updates $r's finfo (not in mp2) + $r->filename($new); + ok t_cmp $r->finfo->size, -s $new , "new filesize"; + + # restore + $new = __FILE__; + $r->filename($new); + ok t_cmp $r->finfo->size, -s $new , "new filesize"; + + # restore the real 2.0 filename() method, now that we are done + # with the compat one + Apache2::compat::restore_mp2_api('Apache2::RequestRec::filename'); + } + + # $r->notes + { + Apache2::compat::override_mp2_api('Apache2::RequestRec::notes'); + + my $key = 'notes-test'; + # get/set scalar context + { + my $val = 'ok'; + $r->notes($key => $val); + ok t_cmp($val, $r->notes->get($key), "\$r->notes->get(\$key)"); + ok t_cmp($val, $r->notes($key), "\$r->notes(\$key)"); + } + + # unset + { + my $exp = undef; + $r->notes($key => $exp); + my $got = $r->notes($key); + ok t_cmp($got, $exp, "\$r->notes unset()"); + } + + # get/set list context + { + my @exp = qw(foo bar); + $r->notes->add($key => $_) for @exp; + ok t_cmp([ $r->notes($key) ], \@exp, "\$r->notes in list context"); + } + + # restore the real 2.0 notes() method, now that we are done + # with the compat one + Apache2::compat::restore_mp2_api('Apache2::RequestRec::notes'); + } + + # get_remote_host() + ok $r->get_remote_host() || 1; + ok $r->get_remote_host(Apache2::Const::REMOTE_HOST) || 1; + + # post_connection() + $r->post_connection(sub { OK }); + ok 1; + + # register_cleanup + ok 1; + $r->register_cleanup(sub { OK }); + + OK; +} + +1; +
diff --git a/2_0_13/t/response/TestCompat/request_body.pm b/2_0_13/t/response/TestCompat/request_body.pm new file mode 100644 index 0000000..5f0f1e9 --- /dev/null +++ b/2_0_13/t/response/TestCompat/request_body.pm
@@ -0,0 +1,63 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::request_body; + +# $r->"method" tests that are validated by the client + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestUtil; +use Apache::Test (); + +use Apache2::compat (); +use Apache::Constants qw(OK M_POST DECLINED); + +use subs qw(ok debug); +my $gr; + +sub handler { + my $r = shift; + $gr = $r; + + $r->send_http_header('text/plain'); + + my $cfg = Apache::Test::config(); + my $vars = $cfg->{vars}; + + my %data; + if ($r->method_number == M_POST) { + %data = $r->content; + } + else { + %data = $r->Apache::args; + } + + return DECLINED unless exists $data{test}; + + if ($data{test} eq 'content' || $data{test} eq 'args') { + $r->print("test $data{test}"); + } + elsif ($data{test} eq 'decoding') { + $r->print(encode($data{body})); + } + elsif ($data{test} eq 'big_input') { + $r->print(length $data{body}); + } + else { + # nothing + } + + OK; +} + +sub encode { + my $val = shift; + $val =~ s/(.)/sprintf "%%%02X", ord $1/eg; + $val =~ s/\%20/+/g; + return $val; +} + + +1; +__END__ +PerlOptions +GlobalRequest
diff --git a/2_0_13/t/response/TestCompat/send_fd.pm b/2_0_13/t/response/TestCompat/send_fd.pm new file mode 100644 index 0000000..7ee2f53 --- /dev/null +++ b/2_0_13/t/response/TestCompat/send_fd.pm
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestCompat::send_fd; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::compat (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => ':common'; + +sub handler { + my $r = shift; + + my $file = $r->args || __FILE__; + + open my $fh, $file or return Apache2::Const::NOT_FOUND; + + my $bytes = $r->send_fd($fh); + + return Apache2::Const::SERVER_ERROR unless $bytes == -s $file; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestDirective/cmdparms.pm b/2_0_13/t/response/TestDirective/cmdparms.pm new file mode 100644 index 0000000..b3070d2 --- /dev/null +++ b/2_0_13/t/response/TestDirective/cmdparms.pm
@@ -0,0 +1,140 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::cmdparms; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::CmdParms (); +use Apache2::Directive (); +use base qw(Apache2::Module); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw( + ACCESS_CONF + M_GET + M_POST + M_PUT + M_DELETE + OK + OR_AUTHCFG + OR_FILEINFO + OR_INDEXES + OR_LIMIT + OR_OPTIONS + RSRC_CONF + NOT_IN_LOCATION +); + +use constant KEY => "TestCmdParms"; + +my @directives = ( + { + name => +KEY, + cmd_data => 'cmd_data', + errmsg => 'errmsg', + }, +); + +Apache2::Module::add(__PACKAGE__, \@directives); + +my @methods = qw(cmd context directive info override path + pool server temp_pool); + +sub TestCmdParms { + my ($self, $parms, $args) = @_; + my $srv_cfg = $self->get_config($parms->server); + foreach my $method (@methods) { + $srv_cfg->{$args}{$method} = $parms->$method(); + } + $srv_cfg->{$args}{check_ctx} = + $parms->check_cmd_context(Apache2::Const::NOT_IN_LOCATION); + + $srv_cfg->{$args}{limited} = $parms->method_is_limited('GET'); + + my $directive = $parms->directive; + $srv_cfg->{$args}{line_num} = $directive->line_num; + $srv_cfg->{$args}{filename} = $directive->filename; +} + +### response handler ### +sub handler : method { + my ($self, $r) = @_; + my $override; + my $srv_cfg = $self->get_config($r->server); + + plan $r, tests => 11 + ( 7 * keys(%$srv_cfg) ); + + foreach my $cfg (values %$srv_cfg) { + ok t_cmp(ref($cfg->{cmd}), 'Apache2::Command', 'cmd'); + ok t_cmp(ref($cfg->{context}), 'Apache2::ConfVector', 'context'); + ok t_cmp(ref($cfg->{directive}), 'Apache2::Directive', 'directive'); + ok t_cmp(ref($cfg->{pool}), 'APR::Pool', 'pool'); + ok t_cmp(ref($cfg->{temp_pool}), 'APR::Pool', 'temp_pool'); + ok t_cmp(ref($cfg->{server}), 'Apache2::ServerRec', 'server'); + ok t_cmp($cfg->{info}, 'cmd_data', 'cmd_data'); + } + + # vhost + { + my $vhost = $srv_cfg->{Vhost}; + + my $wanted = Apache2::Const::RSRC_CONF | + Apache2::Const::OR_INDEXES | + Apache2::Const::OR_FILEINFO | + Apache2::Const::OR_OPTIONS; + my $masked = $vhost->{override} & $wanted; + + ok t_cmp($masked, $wanted, 'override bitmask'); + ok t_cmp($vhost->{path}, undef, 'path'); + ok t_cmp($vhost->{check_ctx}, undef, 'check_cmd_ctx'); + ok $vhost->{limited}; + + ok t_cmp $vhost->{filename}, qr|httpd.conf$|, "config filename"; + ok t_cmp $vhost->{line_num}, qr|^\d+$|, "config filename line_num"; + } + + # Location + { + my $loc = $srv_cfg->{Location}; + + my $wanted = Apache2::Const::ACCESS_CONF | + Apache2::Const::OR_INDEXES | + Apache2::Const::OR_AUTHCFG | + Apache2::Const::OR_FILEINFO | + Apache2::Const::OR_OPTIONS | + Apache2::Const::OR_LIMIT; + my $masked = $loc->{override} & $wanted; + + ok t_cmp($masked, $wanted, 'override bitmask'); + ok t_cmp($loc->{path}, '/TestDirective__cmdparms', 'path'); + ok t_cmp($loc->{check_ctx}, KEY . + ' cannot occur within <Location> section', 'check_cmd_ctx'); + ok $loc->{limited}; + } + + # Limit + { + my $limit = $srv_cfg->{Limit}; + ok !$limit->{limited}; + } + + return Apache2::Const::OK; +} + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 + +<Base> +PerlLoadModule TestDirective::cmdparms +TestCmdParms "Vhost" +</Base> + +TestCmdParms "Location" +#FIXME! httpd 2.4 does not allow LimitExcept here +#<LimitExcept GET> + #TestCmdParms "Limit" +#</LimitExcept>
diff --git a/2_0_13/t/response/TestDirective/env.pm b/2_0_13/t/response/TestDirective/env.pm new file mode 100644 index 0000000..8a048ab --- /dev/null +++ b/2_0_13/t/response/TestDirective/env.pm
@@ -0,0 +1,101 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::env; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use APR::Table (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 8; + + # %ENV + ok t_cmp(env_get('srv1'), + 'env_dir1', + '%ENV per-dir override per-srv'); + + ok t_cmp(env_get('srv2'), + 'env_srv2', + '%ENV per-srv'); + + ok t_cmp(env_get('dir2'), + 'env_dir2', + '%ENV per-dir'); + + # setup by Apache::TestRun + ok t_cmp($ENV{APACHE_TEST_HOSTNAME}, + 'test.host.name', + '%ENV PerlPassEnv'); + + # $r->subprocess_env + ok t_cmp(env_get('srv1', $r), + 'env_dir1', + '$r->subprocess_env per-dir override per-srv'); + + ok t_cmp(env_get('srv2', $r), + 'env_srv2', + '$r->subprocess_env per-srv'); + + ok t_cmp(env_get('dir2', $r), + 'env_dir2', + '$r->subprocess_env per-dir'); + + # setup by Apache::TestRun + ok t_cmp($r->subprocess_env->get('APACHE_TEST_HOSTNAME'), + 'test.host.name', + '$r->subprocess_env PerlPassEnv'); + + Apache2::Const::OK; +} + +sub env_get { + my ($name, $r) = @_; + my $key = 'TestDirective__env_' . $name; + + my $value = $ENV{$key}; + + if ($r) { + my @values = $r->subprocess_env->get($key); + + if (@values > 1) { + $value = "too many values for $key!"; + } + else { + $value = $values[0]; + } + } + + return $value; +} + +1; +__END__ +# SetupEnv ought to have no effect on PerlSetEnv or PerlPassEnv +PerlOptions -SetupEnv + +<Base> + # per-server entry overwritten by per-directory entry + PerlSetEnv TestDirective__env_srv1 env_srv1 + + # per-server entry not overwritten + PerlSetEnv TestDirective__env_srv2 env_srv2 + + # PerlPassEnv is only per-server + PerlPassEnv APACHE_TEST_HOSTNAME +</Base> + +# per-directory entry overwrites per-server +PerlSetEnv TestDirective__env_srv1 env_dir1 + +# PerlSetEnv resets the table for each directive +PerlSetEnv TestDirective__env_dir2 ToBeLost +PerlSetEnv TestDirective__env_dir2 env_dir2 +
diff --git a/2_0_13/t/response/TestDirective/perlcleanuphandler.pm b/2_0_13/t/response/TestDirective/perlcleanuphandler.pm new file mode 100644 index 0000000..1908932 --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlcleanuphandler.pm
@@ -0,0 +1,66 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlcleanuphandler; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use Apache2::Connection (); +use Apache2::ConnectionUtil (); +use Apache2::Const -compile => 'OK', 'DECLINED'; + +# This test is to show an error that occurs if in the whole request cycle +# only a PerlCleanupHandler is defined. In this case it is not called. +# To check that "/get?incr" is called first. This returns "UNDEF" to the +# browser and sets the counter to "1". Next "/get" is called again without +# args to check the counter without increment. Then we fetch +# "/index.html?incr". Here no other Perl*Handler save the PerlCleanupHandler +# is involved. So the next "/get" must return "2" but it shows "1". + +sub cleanup { + my $r=shift; + $r->connection->pnotes->{counter}++ if( $r->args eq 'incr' ); + return Apache2::Const::OK; +} + +sub get { + my $r=shift; + $r->content_type('text/plain'); + $r->print($r->connection->pnotes->{counter} || "UNDEF"); + return Apache2::Const::OK; +} + +1; + +__END__ +<VirtualHost TestDirective::perlcleanuphandler> + + <IfDefine PERL_USEITHREADS> + # a new interpreter pool + PerlOptions +Parent + PerlInterpStart 1 + PerlInterpMax 1 + PerlInterpMinSpare 0 + PerlInterpMaxSpare 1 + # PerlInterpScope connection + </IfDefine> + + KeepAlive On + KeepAliveTimeout 300 + MaxKeepAliveRequests 100 + + # use test system's @INC + PerlSwitches -I@serverroot@ + PerlRequire "conf/modperl_inc.pl" + PerlModule TestDirective::perlcleanuphandler + + <Location /get> + SetHandler modperl + PerlResponseHandler TestDirective::perlcleanuphandler::get + </Location> + + PerlCleanupHandler TestDirective::perlcleanuphandler::cleanup + +</VirtualHost>
diff --git a/2_0_13/t/response/TestDirective/perldo.pm b/2_0_13/t/response/TestDirective/perldo.pm new file mode 100644 index 0000000..a825089 --- /dev/null +++ b/2_0_13/t/response/TestDirective/perldo.pm
@@ -0,0 +1,76 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perldo; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestRequest; +use Apache::TestUtil; +use Apache2::Const -compile => 'OK'; +use Apache2::PerlSections; + +sub handler { + my $r = shift; + + plan $r, tests => 22, need_module('mod_alias'); + + ok t_cmp('yes', $TestDirective::perl::worked); + + ok t_cmp($TestDirective::perl::PACKAGE, + qr/t::conf::extra_last_conf::line_\d+$/, + '__PACKAGE__'); + + my %Location; + { + no strict 'refs'; + %Location = %{$TestDirective::perl::PACKAGE . '::Location'}; + } + + ok not exists $Location{'/perl_sections'}; + ok exists $Location{'/perl_sections_saved'}; + ok t_cmp($Location{'/perl_sections_saved'}{'AuthName'}, 'PerlSection'); + + ok t_cmp($Location{'/tied'}, 'TIED', 'Tied %Location'); + + ok t_cmp($TestDirective::perl::comments, 'yes', ); + + ok t_cmp($TestDirective::perl::dollar_zero, qr/extra.last.conf/, '$0'); + ok t_cmp($TestDirective::perl::filename, qr/extra.last.conf/, '__FILE__'); + + # 3 would mean we are still counting lines from the context of the eval + ok $TestDirective::perl::line > 3; + + ok !t_cmp($0, '-e', '$0'); + my $target = Apache::Test::vars('target'); + ok t_cmp($0, qr/$target/i, '$0'); + + ok t_cmp($TestDirective::perl::Included, 1, "Include"); + + my $dump = Apache2::PerlSections->dump; + ok t_cmp($dump, qr/__END__/, "Apache2::PerlSections->dump"); + + eval "package TestDirective::perldo::test;\nno strict;\n$dump"; + ok t_cmp($@, "", "PerlSections dump syntax check"); + + ok t_cmp($TestDirective::perldo::test::Include, qr/perlsection.conf/); + + #Check for correct Apache2::ServerUtil->server behavior + my $bport = $TestDirective::perl::base_server->port; + my $vport = $TestDirective::perl::vhost_server->port; + ok defined $bport && defined $vport && $vport != $bport; + + foreach my $url (qw(scalar scalar1 scalar2)) { + my $res = GET "/perl_sections_perlconfig_$url/"; + ok t_cmp($res->is_success, 1, '$PerlConfig'); + } + + foreach my $url (qw(array1 array2)) { + my $res = GET "/perl_sections_perlconfig_$url/"; + ok t_cmp($res->is_success, 1, '@PerlConfig'); + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestDirective/perlloadmodule.pm b/2_0_13/t/response/TestDirective/perlloadmodule.pm new file mode 100644 index 0000000..8c85288 --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlloadmodule.pm
@@ -0,0 +1,152 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlloadmodule; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use Apache2::Const -compile => qw(OK OR_ALL RSRC_CONF TAKE1 TAKE23); + +use Apache2::CmdParms (); +use Apache2::Module (); + +my @directives = ( + { + name => 'MyTest', + func => __PACKAGE__ . '::MyTest', + req_override => Apache2::Const::RSRC_CONF, +# req_override => 'RSRC_CONF', #test 1.x compat for strings +# args_how => Apache2::Const::TAKE23, + args_how => 'TAKE23', #test 1.x compat for strings + errmsg => 'A test', + }, + { + name => 'MyOtherTest', + cmd_data => 'some info', + }, + { + name => 'ServerTest', + req_override => Apache2::Const::RSRC_CONF, + } +); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub DIR_CREATE { + my ($class, $parms) = @_; + + bless { + path => $parms->path || "/", + }, $class; +} + +sub merge { + my ($base, $add) = @_; + + my %new = (); + + @new{keys %$base, keys %$add} = + (values %$base, values %$add); + + return bless \%new, ref($base); +} + +sub DIR_MERGE { + my $class = ref $_[0]; + debug "$class->DIR_MERGE\n"; + merge(@_); +} + +#sub SERVER_MERGE { +# my $class = ref $_[0]; +# debug "$class->SERVER_MERGE\n"; +# merge(@_); +#} + +sub SERVER_CREATE { + my ($class, $parms) = @_; + debug "$class->SERVER_CREATE\n"; + return bless { + name => __PACKAGE__, + }, $class; +} + +sub MyTest { + my ($self, $parms, @args) = @_; + $self->{MyTest} = \@args; + $self->{MyTestInfo} = $parms->info; +} + +sub MyOtherTest { + my ($self, $parms, $arg) = @_; + $self->{MyOtherTest} = $arg; + $self->{MyOtherTestInfo} = $parms->info; +} + +sub ServerTest { + my ($self, $parms, $arg) = @_; + my $srv_cfg = $self->get_config($parms->server); + $srv_cfg->{ServerTest} = $arg; +} + +sub get_config { + my ($self, $s) = (shift, shift); + Apache2::Module::get_config($self, $s, @_); +} + +sub handler : method { + my ($self, $r) = @_; + + my $s = $r->server; + my $dir_cfg = $self->get_config($s, $r->per_dir_config); + my $srv_cfg = $self->get_config($s); + + plan $r, tests => 9; + + t_debug("per-dir config:", $dir_cfg); + t_debug("per-srv config:", $srv_cfg); + + ok $dir_cfg->isa($self); + ok $srv_cfg->isa($self); + + my $path = $dir_cfg->{path}; + + ok t_cmp($r->uri, qr{^$path}, + 'r->uri =~ parms->path'); + + ok t_cmp($srv_cfg->{name}, $self, + '$self eq $srv_cfg->{name}'); + + ok t_cmp($dir_cfg->{MyOtherTest}, 'value', + 'MyOtherTest value'); + + ok t_cmp($dir_cfg->{MyOtherTestInfo}, 'some info', + 'MyOtherTest cmd_data'); + + ok t_cmp($dir_cfg->{MyTest}, ['one', 'two'], + 'MyTest one two'); + + ok ! $dir_cfg->{MyTestInfo}; + + ok t_cmp($srv_cfg->{ServerTest}, 'per-server'); + + Apache2::Const::OK; +} + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 + +<Base> + PerlLoadModule TestDirective::perlloadmodule + + MyTest one two + ServerTest per-server +</Base> + +MyOtherTest value +
diff --git a/2_0_13/t/response/TestDirective/perlloadmodule2.pm b/2_0_13/t/response/TestDirective/perlloadmodule2.pm new file mode 100644 index 0000000..5829678 --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlloadmodule2.pm
@@ -0,0 +1,114 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlloadmodule2; + +# in this test the merge is inherits all the values from the ancestors +# and adds new values if such were set + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Const -compile => qw(OK OR_ALL ITERATE); + +use Apache2::CmdParms (); +use Apache2::Module (); + +my @directives = ( + { + name => 'MyMergeTest', + func => __PACKAGE__ . '::MyMergeTest', + req_override => Apache2::Const::OR_ALL, + args_how => Apache2::Const::ITERATE, + errmsg => 'Values that get merged', + }, +); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub merge { + my ($base, $add) = @_; + + my %new = (); + + # be careful if the object values are references and not scalars. + # If that's the case a deep copy must be performed, or the merged + # object will affect the based object, which will break things + # when DIR_MERGE is called twice for the same $base/$add during + # the same request + push @{ $new{$_} }, @{ $base->{$_}||[] } for keys %$base; + push @{ $new{$_} }, @{ $add->{$_} ||[] } for keys %$add; + + return bless \%new, ref($base); +} + +sub DIR_MERGE { + my $class = ref $_[0]; + #warn "$class->DIR_MERGE\n"; + merge(@_); +} + +sub SERVER_MERGE { + my $class = ref $_[0]; + #warn "$class->SERVER_MERGE\n"; + merge(@_); +} + +# this variable is of type ITERATE, so it'll get called as many times +# as arguments, a single argument at a time. This function is called +# only during the server startup and when the directive appears in the +# .htaccess files +sub MyMergeTest { + my ($self, $parms, $arg) = @_; + #warn "MyMergeTest: @{[$parms->path||'']}\n\t$arg\n"; + push @{ $self->{MyMergeTest} }, $arg; + + # store the top level srv values in the server struct as well, so + # during the request you can query what was the top level (srv) + # setting, before it was merged with the current container's + # setting if any + unless ($parms->path) { + my $srv_cfg = $self->get_config($parms->server); + push @{ $srv_cfg->{MyMergeTest} }, $arg; + } +} + +sub get_config { + my ($self, $s) = (shift, shift); + Apache2::Module::get_config($self, $s, @_); +} + +sub handler : method { + my ($self, $r) = @_; + + $r->content_type('text/plain'); + + my $s = $r->server; + + if (defined $r->args and $r->args eq 'srv') { + my $srv_cfg = $self->get_config($s); + $r->print("srv: @{ $srv_cfg->{MyMergeTest}||[] }"); + } + else { + my $dir_cfg = $self->get_config($s, $r->per_dir_config); + $r->print("dir: @{ $dir_cfg->{MyMergeTest}||[] }"); + } + + return Apache2::Const::OK; +} + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 + +<Base> + PerlLoadModule TestDirective::perlloadmodule2 + + MyMergeTest one two +</Base> +<Location /TestDirective__perlloadmodule2> + MyMergeTest three four +</Location> +<Location /TestDirective__perlloadmodule2/subdir> + MyMergeTest five + MyMergeTest six +</Location>
diff --git a/2_0_13/t/response/TestDirective/perlloadmodule3.pm b/2_0_13/t/response/TestDirective/perlloadmodule3.pm new file mode 100644 index 0000000..facb918 --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlloadmodule3.pm
@@ -0,0 +1,165 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlloadmodule3; + +# in this test we test various merging techniques. As a side effect it +# tests how mod_perl works when its forced to start early outside +# vhosts and how it works with vhosts. See perlloadmodule4.pm and +# perlloadmodule5.pm, for similar tests that starts mod_perl early +# from a vhost. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::CmdParms (); +use Apache2::Module (); +use Apache2::ServerUtil (); + +use Apache2::Const -compile => qw(OK); + + +my @directives = ( + { name => 'MyPlus' }, + { name => 'MyList' }, + { name => 'MyAppend' }, + { name => 'MyOverride' }, +); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub MyPlus { set_val('MyPlus', @_) } +sub MyAppend { set_val('MyAppend', @_) } +sub MyOverride { set_val('MyOverride', @_) } +sub MyList { push_val('MyList', @_) } + +sub DIR_MERGE { merge(@_) } +sub SERVER_MERGE { merge(@_) } + +sub set_val { + my ($key, $self, $parms, $arg) = @_; + $self->{$key} = $arg; + unless ($parms->path) { + my $srv_cfg = Apache2::Module::get_config($self, $parms->server); + $srv_cfg->{$key} = $arg; + } +} + +sub push_val { + my ($key, $self, $parms, $arg) = @_; + push @{ $self->{$key} }, $arg; + unless ($parms->path) { + my $srv_cfg = Apache2::Module::get_config($self, $parms->server); + push @{ $srv_cfg->{$key} }, $arg; + } +} + +sub merge { + my ($base, $add) = @_; + + my %mrg = (); + for my $key (keys %$base, %$add) { + next if exists $mrg{$key}; + if ($key eq 'MyPlus') { + $mrg{$key} = ($base->{$key}||0) + ($add->{$key}||0); + } + elsif ($key eq 'MyList') { + push @{ $mrg{$key} }, + @{ $base->{$key}||[] }, @{ $add->{$key}||[] }; + } + elsif ($key eq 'MyAppend') { + $mrg{$key} = join " ", grep defined, $base->{$key}, $add->{$key}; + } + else { + # override mode + $mrg{$key} = $base->{$key} if exists $base->{$key}; + $mrg{$key} = $add->{$key} if exists $add->{$key}; + } + } + + return bless \%mrg, ref($base); +} + +### response handler ### + + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Module (); + +use Apache2::Const -compile => qw(OK); + +sub get_config { + Apache2::Module::get_config(__PACKAGE__, @_); +} + +sub handler { + my ($r) = @_; + my %secs = (); + + $r->content_type('text/plain'); + + my $s = $r->server; + my $dir_cfg = get_config($s, $r->per_dir_config); + my $srv_cfg = get_config($s); + + if ($s->is_virtual) { + $secs{"1: Main Server"} = get_config(Apache2::ServerUtil->server); + $secs{"2: Virtual Host"} = $srv_cfg; + $secs{"3: Location"} = $dir_cfg; + } + else { + $secs{"1: Main Server"} = $srv_cfg; + $secs{"2: Location"} = $dir_cfg; + } + + $r->printf("Processing by %s.\n", + $s->is_virtual ? "virtual host" : "main server"); + + for my $sec (sort keys %secs) { + $r->print("\nSection $sec\n"); + for my $k (sort keys %{ $secs{$sec}||{} }) { + my $v = exists $secs{$sec}->{$k} ? $secs{$sec}->{$k} : 'UNSET'; + $v = '[' . (join ", ", map {qq{"$_"}} @$v) . ']' + if ref($v) eq 'ARRAY'; + $r->printf("%-10s : %s\n", $k, $v); + } + } + + return Apache2::Const::OK; +} + + + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 + +<Base> + PerlLoadModule TestDirective::perlloadmodule3 + MyPlus 5 + MyList "MainServer" + MyAppend "MainServer" + MyOverride "MainServer" +</Base> +<VirtualHost TestDirective::perlloadmodule3> + MyPlus 2 + MyList "VHost" + MyAppend "VHost" + MyOverride "VHost" + <Location /TestDirective__perlloadmodule3> + MyPlus 3 + MyList "Dir" + MyAppend "Dir" + MyOverride "Dir" + SetHandler modperl + PerlResponseHandler TestDirective::perlloadmodule3 + </Location> + <Location /TestDirective__perlloadmodule3/subdir> + MyPlus 1 + MyList "SubDir" + MyAppend "SubDir" + MyOverride "SubDir" + </Location> +</VirtualHost>
diff --git a/2_0_13/t/response/TestDirective/perlloadmodule4.pm b/2_0_13/t/response/TestDirective/perlloadmodule4.pm new file mode 100644 index 0000000..6edc88a --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlloadmodule4.pm
@@ -0,0 +1,98 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlloadmodule4; + +# XXX: the package is 99% the same as perlloadlmodule5 and 6, just the +# configuration is different. Consider removing the code dups. +# +# in this test we test an early mod_perl startup caused by an +# EXEC_ON_READ directive in the baseserver. In this test the +# non-native mod_perl directive sets scfg on behalf of mod_perl in +# that vhost. +# +# See also perlloadmodule5.pm, which is almost the same, but uses a +# mod_perl native directive before a non-native directive in vhost. In +# that test mod_perl sets scfg for that vhost by itself. +# +# see perlloadmodule6.pm for the case where mod_perl starts early, but +# from within the vhost. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::CmdParms (); +use Apache2::Module (); +use Apache2::ServerUtil (); + +use Apache2::Const -compile => qw(OK); + +use constant KEY => "MyTest4"; + +my @directives = ({ name => +KEY },); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub MyTest4 { + my ($self, $parms, $arg) = @_; + $self->{+KEY} = $arg; + + unless ($parms->path) { + my $srv_cfg = Apache2::Module::get_config($self, $parms->server); + $srv_cfg->{+KEY} = $arg; + } +} + +### response handler ### + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Module (); +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +sub get_config { + Apache2::Module::get_config(__PACKAGE__, @_); +} + +sub handler { + my ($r) = @_; + my %secs = (); + + $r->content_type('text/plain'); + + my $s = $r->server; + my $dir_cfg = get_config($s, $r->per_dir_config); + my $srv_cfg = get_config($s); + + plan $r, tests => 3; + + ok $s->is_virtual; + + ok t_cmp($dir_cfg->{+KEY}, "Dir", "Section"); + + ok t_cmp($srv_cfg->{+KEY}, "Vhost", "Section"); + + return Apache2::Const::OK; +} + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 + +<Base> + PerlLoadModule TestDirective::perlloadmodule4 +</Base> +<VirtualHost TestDirective::perlloadmodule4> + # here perlloadmodule sets scfg on behalf of the base server + MyTest4 "Vhost" + <Location /TestDirective__perlloadmodule4> + MyTest4 "Dir" + SetHandler modperl + PerlResponseHandler TestDirective::perlloadmodule4 + </Location> +</VirtualHost> +
diff --git a/2_0_13/t/response/TestDirective/perlloadmodule5.pm b/2_0_13/t/response/TestDirective/perlloadmodule5.pm new file mode 100644 index 0000000..9e88e2c --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlloadmodule5.pm
@@ -0,0 +1,96 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlloadmodule5; + +# in this test we test an early mod_perl startup caused by an +# EXEC_ON_READ directive in the baseserver. In this test we have a +# mod_perl native directive before a non-native directive inside vhost +# section. Here mod_perl sets scfg for that vhost by itself. +# +# See also perlloadmodule4.pm, which is almost the same, but has no +# mod_perl native directive before a non-native directive in vhost. In +# that test the non-native mod_perl directive sets scfg on behalf of +# mod_perl in that vhost. +# +# see perlloadmodule6.pm for the case where mod_perl starts early, but +# from within the vhost. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::CmdParms (); +use Apache2::Module (); +use Apache2::ServerUtil (); + +use Apache2::Const -compile => qw(OK); + +use constant KEY => "MyTest5"; + +my @directives = ({ name => +KEY },); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub MyTest5 { + my ($self, $parms, $arg) = @_; + $self->{+KEY} = $arg; + unless ($parms->path) { + my $srv_cfg = Apache2::Module::get_config($self, $parms->server); + $srv_cfg->{+KEY} = $arg; + } +} + +### response handler ### + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Module (); +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +sub get_config { + Apache2::Module::get_config(__PACKAGE__, @_); +} + +sub handler { + my ($r) = @_; + my %secs = (); + + $r->content_type('text/plain'); + + my $s = $r->server; + my $dir_cfg = get_config($s, $r->per_dir_config); + my $srv_cfg = get_config($s); + + plan $r, tests => 3; + + ok $s->is_virtual; + + ok t_cmp($dir_cfg->{+KEY}, "Dir", "Section"); + + ok t_cmp($srv_cfg->{+KEY}, "Vhost", "Section"); + + return Apache2::Const::OK; +} + + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 + +<Base> + PerlLoadModule TestDirective::perlloadmodule5 +</Base> +<VirtualHost TestDirective::perlloadmodule5> + # here mod_perl sets the scfg by itself for this vhost + PerlModule File::Spec + MyTest5 "Vhost" + <Location /TestDirective__perlloadmodule5> + MyTest5 "Dir" + SetHandler modperl + PerlResponseHandler TestDirective::perlloadmodule5 + </Location> +</VirtualHost>
diff --git a/2_0_13/t/response/TestDirective/perlloadmodule6.pm b/2_0_13/t/response/TestDirective/perlloadmodule6.pm new file mode 100644 index 0000000..fd8cdfe --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlloadmodule6.pm
@@ -0,0 +1,90 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlloadmodule6; + +# in this test we test an early mod_perl startup caused by an +# EXEC_ON_READ directive in vhost. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::CmdParms (); +use Apache2::Module (); +use Apache2::ServerUtil (); + +use Apache2::Const -compile => qw(OK); + +use constant KEY => "MyTest6"; + +my @directives = ({ name => +KEY },); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub MyTest6 { + my ($self, $parms, $arg) = @_; + $self->{+KEY} = $arg; + unless ($parms->path) { + my $srv_cfg = Apache2::Module::get_config($self, $parms->server); + $srv_cfg->{+KEY} = $arg; + } +} + +### response handler ### + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::Module (); +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +sub get_config { + Apache2::Module::get_config(__PACKAGE__, @_); +} + +sub handler { + my ($r) = @_; + my %secs = (); + + $r->content_type('text/plain'); + + my $s = $r->server; + my $dir_cfg = get_config($s, $r->per_dir_config); + my $srv_cfg = get_config($s); + + plan $r, tests => 3; + + ok $s->is_virtual; + + ok t_cmp($dir_cfg->{+KEY}, "Dir", "Section"); + + ok t_cmp($srv_cfg->{+KEY}, "Vhost", "Section"); + + return Apache2::Const::OK; +} + +1; +__END__ + +# XXX: we want to have this configuration section to come first +# amongst other perlloadmodule tests (<950), so we can test how +# mod_perl starts from vhost. but currently we can't because +# PerlSwitches from other tests are ignored, so the test suite fails +# to startup. +# +# tmp solution: ensure that it's configured *after* all other +# perlloadmodule tests +# +# APACHE_TEST_CONFIG_ORDER 951 + +<VirtualHost TestDirective::perlloadmodule6> + PerlLoadModule TestDirective::perlloadmodule6 + MyTest6 "Vhost" + <Location /TestDirective__perlloadmodule6> + MyTest6 "Dir" + SetHandler modperl + PerlResponseHandler TestDirective::perlloadmodule6 + </Location> +</VirtualHost>
diff --git a/2_0_13/t/response/TestDirective/perlloadmodule7.pm b/2_0_13/t/response/TestDirective/perlloadmodule7.pm new file mode 100644 index 0000000..a4fc27a --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlloadmodule7.pm
@@ -0,0 +1,68 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlloadmodule7; + +# this test was written to reproduce a segfault under worker +# due to a bug in custom directive implementation, where +# the code called from modperl_module_config_merge() was setting the +# global context after selecting the new interpreter which was leading +# to a segfault in any handler called thereafter, whose context was +# different beforehand. + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Module (); + +use Apache2::Const -compile => qw(OK); + +use constant KEY1 => "MyTest7_1"; +use constant KEY2 => "MyTest7_2"; + +my @directives = ({ name => +KEY1 }, { name => +KEY2 }); + +Apache2::Module::add(__PACKAGE__, \@directives); + +sub MyTest7_1 { + my ($self, $parms, $arg) = @_; + $self->{+KEY1} = $arg; +} + +sub MyTest7_2 { + my ($self, $parms, $arg) = @_; + $self->{+KEY2} = $arg; +} + +### response handler ### + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +sub handler { + my ($r) = @_; + + plan $r, tests => 1; + + ok 1; + + return Apache2::Const::OK; +} + +1; +__END__ + +<NoAutoConfig> +# APACHE_TEST_CONFIG_ORDER 950 +PerlLoadModule TestDirective::perlloadmodule7 + +MyTest7_1 test +<Location /TestDirective__perlloadmodule7> + MyTest7_2 test + SetHandler modperl + PerlResponseHandler TestDirective::perlloadmodule7 +</Location> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestDirective/perlmodule.pm b/2_0_13/t/response/TestDirective/perlmodule.pm new file mode 100644 index 0000000..8f926a4 --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlmodule.pm
@@ -0,0 +1,62 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlmodule; + +# This test is similar to TestDirective::perlrequire. Here we test +# whether vhost inheriting the parent perl from the base can handle +# PerlModule directives. + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test (); + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use File::Spec::Functions qw(catfile); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + $r->puts($ApacheTest::PerlModuleTest::MAGIC || ''); + + Apache2::Const::OK; +} + +sub APACHE_TEST_CONFIGURE { + my ($class, $self) = @_; + + my $vars = $self->{vars}; + my $target_dir = catfile $vars->{documentroot}, 'testdirective'; + + my $magic = __PACKAGE__; + my $content = <<EOF; +package ApacheTest::PerlModuleTest; +\$ApacheTest::PerlModuleTest::MAGIC = '$magic'; +1; +EOF + my $file = catfile $target_dir, + 'perlmodule-vh', 'ApacheTest', 'PerlModuleTest.pm'; + $self->writefile($file, $content, 1); +} + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 940 + +<Base> + PerlSwitches -I@documentroot@/testdirective/perlmodule-vh +</Base> + +<VirtualHost TestDirective::perlmodule> + PerlModule ApacheTest::PerlModuleTest + + <Location /TestDirective__perlmodule> + SetHandler modperl + PerlResponseHandler TestDirective::perlmodule + </Location> + +</VirtualHost>
diff --git a/2_0_13/t/response/TestDirective/perlrequire.pm b/2_0_13/t/response/TestDirective/perlrequire.pm new file mode 100644 index 0000000..1a37130 --- /dev/null +++ b/2_0_13/t/response/TestDirective/perlrequire.pm
@@ -0,0 +1,88 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::perlrequire; + +# Test whether vhost with 'PerlOptions +Parent', which doesn't inherit +# from the base, has its own INC and therefore can have a modules with +# the same namespace as the base, but different content. +# +# Also see the parallel TestDirective::perlmodule handler + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test (); + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use File::Spec::Functions qw(catfile); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + $r->puts($ApacheTest::PerlRequireTest::MAGIC || ''); + + Apache2::Const::OK; +} + +my %require_tests = + ( + main => 'PerlRequired by Parent', + vh => 'PerlRequired by VirtualHost', + ); + +sub APACHE_TEST_CONFIGURE { + my ($class, $self) = @_; + + my $vars = $self->{vars}; + my $target_dir = catfile $vars->{documentroot}, 'testdirective'; + + # create two different PerlRequireTest.pm packages to be loaded by + # vh and main interpreters, on the fly before the tests start + while (my ($test, $magic) = each %require_tests) { + my $content = <<EOF; +package ApacheTest::PerlRequireTest; +\$ApacheTest::PerlRequireTest::MAGIC = '$magic'; +1; +EOF + my $file = catfile $target_dir, + $test, 'ApacheTest', 'PerlRequireTest.pm'; + $self->writefile($file, $content, 1); + } +} + +1; +__END__ +# APACHE_TEST_CONFIG_ORDER 940 + +<Base> + PerlSwitches -I@documentroot@/testdirective/main + PerlRequire "ApacheTest/PerlRequireTest.pm" +</Base> + +<VirtualHost TestDirective::perlrequire> + + <IfDefine PERL_USEITHREADS> + # a new interpreter pool + PerlOptions +Parent + PerlInterpStart 1 + PerlInterpMax 1 + PerlInterpMinSpare 1 + PerlInterpMaxSpare 1 + </IfDefine> + + # use test system's @INC + PerlSwitches -I@serverroot@ + PerlRequire "conf/modperl_inc.pl" + + PerlSwitches -I@documentroot@/testdirective/vh + PerlRequire "ApacheTest/PerlRequireTest.pm" + + <Location /TestDirective__perlrequire> + SetHandler modperl + PerlResponseHandler TestDirective::perlrequire + </Location> + +</VirtualHost>
diff --git a/2_0_13/t/response/TestDirective/pod.pm b/2_0_13/t/response/TestDirective/pod.pm new file mode 100644 index 0000000..b220f2b --- /dev/null +++ b/2_0_13/t/response/TestDirective/pod.pm
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::pod; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 4; + + ok t_cmp $r->dir_config->get('TestDirective__pod_hidden'), undef; + ok t_cmp $r->dir_config->get('TestDirective__pod_over_worked'), 'yes'; + ok t_cmp $r->dir_config->get('TestDirective__pod_cut_worked'), 'yes'; + + #XXX: How to test that __END__ works proprely without cloberring all the other tests? + ok t_cmp '__END__', '__END__'; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestDirective/setupenv.pm b/2_0_13/t/response/TestDirective/setupenv.pm new file mode 100644 index 0000000..dfcdfe7 --- /dev/null +++ b/2_0_13/t/response/TestDirective/setupenv.pm
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestDirective::setupenv; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $ENV{QS} = $r->args if $r->args; + + while (my ($key, $val) = each %ENV) { + next unless $key and $val; + $r->puts("$key=$val\n"); + } + + Apache2::Const::OK; +} + +1; +__END__ +PerlOptions +SetupEnv +
diff --git a/2_0_13/t/response/TestError/api.pm b/2_0_13/t/response/TestError/api.pm new file mode 100644 index 0000000..831d99a --- /dev/null +++ b/2_0_13/t/response/TestError/api.pm
@@ -0,0 +1,34 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestError::api; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use Apache2::RequestIO (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +sub handler { + my $r = shift; + + plan $r, tests => 1; + + $r->content_type('text/plain'); + + # PerlOptions -GlobalRequest is in effect + eval { my $gr = Apache2::RequestUtil->request; }; + ok t_cmp($@, + qr/\$r object is not available/, + "unavailable global $r object"); + + return Apache2::Const::OK; +} + +1; +__END__ +PerlOptions -GlobalRequest
diff --git a/2_0_13/t/response/TestError/runtime.pm b/2_0_13/t/response/TestError/runtime.pm new file mode 100644 index 0000000..91ca446 --- /dev/null +++ b/2_0_13/t/response/TestError/runtime.pm
@@ -0,0 +1,162 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestError::runtime; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::Connection (); +use APR::Socket (); +use APR::Status (); + +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); +use APR::Const -compile => qw(EACCES); + +use constant SIZE => 2048; + +sub handler { + my $r = shift; + my $socket = $r->connection->client_socket; + my $args = $r->args; + + $r->content_type('text/plain'); + + # set timeout to 0 to make sure that any socket read call will + # fail + $socket->timeout_set(0); + + no strict 'refs'; + $args->($r, $socket); + + return Apache2::Const::OK; +} + +sub overload_test { + my ($r, $socket) = @_; + + eval { mp_error($socket) }; + + die "there should have been an exception" unless $@; + + die "the exception should have been an APR::Error object" + unless ref $@ eq 'APR::Error'; + + # == && != (expecting an EAGAIN error) + die "APR::Status is broken" unless APR::Status::is_EAGAIN($@); + die "'==' overload is broken" unless $@ == $@; + die "'!=' overload is broken" unless $@ != APR::Const::EACCES; + die "'!=' overload is broken" unless APR::Const::EACCES != $@; + die "'!=' overload is broken" if $@ != $@; + + # XXX: add more overload tests + + $r->print("ok overload_test"); + +} + +sub plain_mp_error { + my ($r, $socket) = @_; + t_server_log_error_is_expected(); + mp_error($socket); +} + +sub plain_non_mp_error { + my ($r, $socket) = @_; + t_server_log_error_is_expected(); + non_mp_error($socket); +} + +sub die_hook_confess_mp_error { + my ($r, $socket) = @_; + local $SIG{__DIE__} = \&APR::Error::confess; + t_server_log_error_is_expected(); + mp_error($socket); +} + +sub die_hook_confess_non_mp_error { + my ($r, $socket) = @_; + local $SIG{__DIE__} = \&APR::Error::confess; + t_server_log_error_is_expected(); + non_mp_error($socket); +} + +sub die_hook_custom_mp_error { + my ($r, $socket) = @_; + local $SIG{__DIE__} = sub { die "custom die hook: $_[0]" }; + t_server_log_error_is_expected(); + mp_error($socket); +} + +sub die_hook_custom_non_mp_error { + my ($r, $socket) = @_; + local $SIG{__DIE__} = sub { die "custom die hook: $_[0]" }; + t_server_log_error_is_expected(); + non_mp_error($socket); +} + +sub eval_block_mp_error { + my ($r, $socket) = @_; + + # throw in some retry attempts + my $tries = 0; + RETRY: eval { mp_error($socket) }; + if ($@ && ref($@) && APR::Status::is_EAGAIN($@)) { + if ($tries++ < 3) { + goto RETRY; + } + else { + $r->print("ok eval_block_mp_error"); + } + } + else { + die "eval block has failed: $@"; + } +} + +sub eval_string_mp_error { + my ($r, $socket) = @_; + eval '$socket->recv(my $buffer, SIZE)'; + if ($@ && ref($@) && APR::Status::is_EAGAIN($@)) { + $r->print("ok eval_string_mp_error"); + } + else { + die "eval string has failed: $@"; + } +} + +sub eval_block_non_mp_error { + my ($r, $socket) = @_; + eval { non_mp_error($socket) }; + if ($@ && !ref($@)) { + $r->print("ok eval_block_non_mp_error"); + } + else { + die "eval eval_non_mp_error has failed: $@"; + } +} + +sub eval_block_non_error { + my ($r, $socket) = @_; + eval { 1; }; + if ($@) { + die "eval eval_block_non_mp_error has failed"; + } + $r->print("ok eval_block_non_error"); +} + +sub non_mp_error { + no_such_func(); +} + +# fails because of the timeout set earlier in the handler +sub mp_error { + my $socket = shift; + $socket->recv(my $buffer, SIZE); +} + +1; +__END__ +
diff --git a/2_0_13/t/response/TestError/syntax.pm b/2_0_13/t/response/TestError/syntax.pm new file mode 100644 index 0000000..3886a8c --- /dev/null +++ b/2_0_13/t/response/TestError/syntax.pm
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestError::syntax; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Const -compile => qw(OK); + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + # the following syntax error is here on purpose! + lkj;\; + + $r->print('ok'); + + return Apache2::Const::OK; +} + +1; +__END__ +
diff --git a/2_0_13/t/response/TestModperl/cookie.pm b/2_0_13/t/response/TestModperl/cookie.pm new file mode 100644 index 0000000..32fccf0 --- /dev/null +++ b/2_0_13/t/response/TestModperl/cookie.pm
@@ -0,0 +1,54 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::cookie; + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestTrace; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Const -compile => 'OK'; + +sub access { + my $r = shift; + + # setup CGI variables early + $r->subprocess_env() if $r->args eq 'env'; + + my ($key, $val) = cookie($r); + my $cookie_is_expected = + ($r->args eq 'header' or $r->args eq 'env') ? 1 : 0; + die "Can't get the cookie" if $cookie_is_expected && !defined $val; + + return Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + my ($key, $val) = cookie($r); + $r->print($val) if defined $val; + + return Apache2::Const::OK; +} + +sub cookie { + my $r = shift; + + my $header = $r->headers_in->{Cookie} || ''; + my $env = $ENV{HTTP_COOKIE} || $ENV{COOKIE} || ''; # from CGI::Cookie + debug "cookie (" .$r->args . "): header: [$header], env: [$env]"; + + return split '=', $r->args eq 'header' ? $header : $env; +} + +1; + +__DATA__ +SetHandler perl-script +PerlModule TestModperl::cookie +PerlAccessHandler TestModperl::cookie::access +PerlResponseHandler TestModperl::cookie +PerlOptions -SetupEnv
diff --git a/2_0_13/t/response/TestModperl/cookie2.pm b/2_0_13/t/response/TestModperl/cookie2.pm new file mode 100644 index 0000000..1f8a289 --- /dev/null +++ b/2_0_13/t/response/TestModperl/cookie2.pm
@@ -0,0 +1,49 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::cookie2; + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestTrace; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +use Apache2::Const -compile => 'OK'; + +sub access { + my $r = shift; + + $r->subprocess_env if $r->args eq 'subprocess_env'; + my ($key, $val) = cookie($r); + die "I shouldn't get the cookie" if $r->args eq 'env' && defined $val; + + return Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + my ($key, $val) = cookie($r); + $r->print($val) if defined $val; + + return Apache2::Const::OK; +} + +sub cookie { + my $r = shift; + + my $header = $r->headers_in->{Cookie} || ''; + my $env = $ENV{HTTP_COOKIE} || $ENV{COOKIE} || ''; # from CGI::cookie2 + debug "cookie (" .$r->args . "): header: [$header], env: [$env]"; + + return split '=', $r->args eq 'header' ? $header : $env; +} + +1; + +__DATA__ +SetHandler modperl +PerlModule TestModperl::cookie2 +PerlAccessHandler TestModperl::cookie2::access +PerlResponseHandler TestModperl::cookie2
diff --git a/2_0_13/t/response/TestModperl/current_callback.pm b/2_0_13/t/response/TestModperl/current_callback.pm new file mode 100644 index 0000000..a80425f --- /dev/null +++ b/2_0_13/t/response/TestModperl/current_callback.pm
@@ -0,0 +1,50 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::current_callback; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use ModPerl::Util; + +use APR::Table (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => qw(OK DECLINED); + +sub handler { + my $r = shift; + + plan $r, tests => 1; + my $callback = ModPerl::Util::current_callback(); + ok t_cmp($callback, + 'PerlResponseHandler', + 'inside PerlResponseHandler'); + + #warn "in callback: $callback\n"; + + Apache2::Const::OK; +} + +sub log { check('Log') } +sub fixup { check('Fixup') } +sub headerparser { check('HeaderParser') } + +sub check { + my $expected = 'Perl' . shift() . 'Handler'; + my $callback = ModPerl::Util::current_callback(); + die "expecting $expected callback, instead got $callback" + unless $callback eq $expected; + #warn "in callback: $callback\n"; + return Apache2::Const::OK; +} + +1; +__DATA__ +PerlModule TestModperl::current_callback +PerlHeaderParserHandler TestModperl::current_callback::headerparser +PerlFixupHandler TestModperl::current_callback::fixup +PerlResponseHandler TestModperl::current_callback +PerlLogHandler TestModperl::current_callback::log +SetHandler modperl
diff --git a/2_0_13/t/response/TestModperl/dir_config.pm b/2_0_13/t/response/TestModperl/dir_config.pm new file mode 100644 index 0000000..b5608fd --- /dev/null +++ b/2_0_13/t/response/TestModperl/dir_config.pm
@@ -0,0 +1,189 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::dir_config; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::RequestUtil (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 15; + + #Apache2::RequestRec::dir_config tests + + # this test doesn't test all $r->dir_config->*(), since + # dir_config() returns a generic APR::Table which is tested in + # apr/table.t. + + # object test + my $dir_config = $r->dir_config; + ok defined $dir_config && ref($dir_config) eq 'APR::Table'; + + # make sure trying to get something that's not defined + # doesn't blow up + my $undef = $r->dir_config('EDOESNOTEXIST'); + + ok t_cmp($undef, undef, + 'no PerlSetVar to get data from'); + + # PerlAddVar ITERATE2 test + { + my $key = make_key('1'); + my @received = $dir_config->get($key); + my @expected = qw(1_SetValue 2_AddValue 3_AddValue 4_AddValue); + + ok t_cmp(\@received, \@expected, + 'PerlAddVar ITERATE2'); + } + + # sub-section inherits from super-section if it doesn't override it + { + my $key = make_key('_set_in_Base'); + ok t_cmp($r->dir_config($key), + 'BaseValue', + "sub-section inherits from super-section " . + "if it doesn't override it"); + } + + # sub-section overrides super-section for the same key + { + my $key = 'TestModperl__server_rec_Key_set_in_Base'; + ok t_cmp($r->dir_config->get($key), 'SubSecValue', + "sub-section overrides super-section for the same key"); + } + + { + my $key = make_key('0'); + + # object interface test in a scalar context (for a single + # PerlSetVar key) + ok t_cmp($dir_config->get($key), + 'SetValue0', + "table get() in a scalar context"); + + # direct fetch test in a scalar context (for a single + # PerlSetVar key) + ok t_cmp($r->dir_config($key), + 'SetValue0', + "direct value fetch in a scalar context"); + } + + # make sure 0 comes through as 0 and not undef + { + my $key = 'TestModperl__request_rec_ZeroKey'; + + ok t_cmp($r->dir_config($key), + 0, + 'table value 0 is not undef'); + } + + # test non-existent key + { + my $key = make_key(); + + ok t_cmp($r->dir_config($key), + undef, + "non-existent key"); + } + + # test set interface + { + my $key = make_key(); + my $val = "DirConfig"; + + $r->dir_config($key => $val); + + ok t_cmp($r->dir_config($key), + $val, + "set && get"); + } + + # test unset interface + { + my $key = make_key(); + + $r->dir_config($key => 'whatever'); + $r->dir_config($key => undef); + + ok t_cmp(undef, + $r->dir_config($key), + "unset"); + } + + + #Apache2::ServerUtil::dir_config tests + + my $s = $r->server; + + # this test doesn't test all $s->dir_config->*(), since + # dir_config() returns a generic APR::Table which is tested in + # apr/table.t. + + # object test + $dir_config = $s->dir_config; + ok defined $dir_config && ref($dir_config) eq 'APR::Table'; + + # PerlAddVar ITERATE2 test + { + my $key = 'TestModperl__server_rec_Key_set_in_Base'; + my @received = $dir_config->get($key); + my @expected = qw(1_SetValue 2_AddValue 3_AddValue); + + ok t_cmp(\@received, \@expected, + "testing PerlAddVar ITERATE2 in \$s"); + } + + { + # base server test + my $bs = Apache2::ServerUtil->server; + ok t_cmp(($bs && ref($bs)), + 'Apache2::ServerRec', + "base server's object retrieval"); + + my $key = 'TestModperl__server_rec_Key_set_in_Base'; + ok t_cmp(scalar ($bs->dir_config->get($key)), + '1_SetValue', + "read dir_config of the base server"); + } + + Apache2::Const::OK; +} + +my $key_base = "TestModperl__request_rec_Key"; +my $counter = 0; + +sub make_key { + return $key_base . + (defined $_[0] + ? $_[0] + : unpack "H*", pack "n", ++$counter . rand(100)); +} +1; +__END__ +<Base> + PerlSetVar TestModperl__request_rec_Key_set_in_Base BaseValue + + PerlSetVar TestModperl__server_rec_Key_set_in_Base 1_SetValue + PerlAddVar TestModperl__server_rec_Key_set_in_Base 2_AddValue 3_AddValue +</Base> + +PerlSetVar TestModperl__request_rec_ZeroKey 0 + +PerlSetVar TestModperl__request_rec_Key0 SetValue0 + +PerlSetVar TestModperl__request_rec_Key1 ToBeLost +PerlSetVar TestModperl__request_rec_Key1 1_SetValue +PerlAddVar TestModperl__request_rec_Key1 2_AddValue +PerlAddVar TestModperl__request_rec_Key1 3_AddValue 4_AddValue + +PerlSetVar TestModperl__server_rec_Key_set_in_Base SubSecValue
diff --git a/2_0_13/t/response/TestModperl/endav.pm b/2_0_13/t/response/TestModperl/endav.pm new file mode 100644 index 0000000..5860d52 --- /dev/null +++ b/2_0_13/t/response/TestModperl/endav.pm
@@ -0,0 +1,59 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::endav; + +use strict; +use warnings FATAL => 'all'; + +use ModPerl::Global (); + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 4; + + #just to make sure we dont segv with bogus values + my $not = 'NoSuchPackage'; + for my $name ('END', $not) { + ModPerl::Global::special_list_call( $name => $not); + ModPerl::Global::special_list_clear($name => $not); + } + + # register the current package to set its END blocks aside + ModPerl::Global::special_list_register(END => __PACKAGE__); + # clear anything that was previously set + ModPerl::Global::special_list_clear(END => __PACKAGE__); + eval 'END { ok 1 }'; + + # now run them twice:ok 1 (1), ok 1 (2) + ModPerl::Global::special_list_call(END => __PACKAGE__); + ModPerl::Global::special_list_call(END => __PACKAGE__); + + ModPerl::Global::special_list_clear(END => __PACKAGE__); + #should do nothing + ModPerl::Global::special_list_call( END => __PACKAGE__); + + # this we've already registered this package's END blocks, adding + # new ones will set them aside + eval 'END { ok 1 }'; + + # so this will run ok 1 (3) + ModPerl::Global::special_list_call( END => __PACKAGE__); + ModPerl::Global::special_list_clear(END => __PACKAGE__); + + ModPerl::Global::special_list_clear(END => __PACKAGE__); + #should do nothing + ModPerl::Global::special_list_call( END => __PACKAGE__); + + # one plain ok 1 (4) + ok 1; + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script
diff --git a/2_0_13/t/response/TestModperl/env.pm b/2_0_13/t/response/TestModperl/env.pm new file mode 100644 index 0000000..ac057a9 --- /dev/null +++ b/2_0_13/t/response/TestModperl/env.pm
@@ -0,0 +1,87 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::env; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 23 + 3 * keys(%ENV); + + my $env = $r->subprocess_env; + + ok $ENV{MODPERL_EXTRA_PL}; #set in t/conf/modperl_extra.pl + ok $ENV{MOD_PERL}; + ok $ENV{MOD_PERL_API_VERSION}; + + ok $ENV{SERVER_SOFTWARE}; + ok $env->get('SERVER_SOFTWARE'); + + { + $ENV{FOO} = 2; + ok $ENV{FOO} == 2; + ok $env->get('FOO') == 2; + + $ENV{FOO}++; + ok $ENV{FOO} == 3; + ok $env->get('FOO') == 3; + + $ENV{FOO} .= 6; + ok $ENV{FOO} == 36; + ok $env->get('FOO') == 36; + + delete $ENV{FOO}; + ok ! $ENV{FOO}; + ok ! $env->get('FOO'); + } + + { + local %ENV = (FOO => 1, BAR => 2); + + ok $ENV{FOO} == 1; + ok $env->get('FOO') == 1; + + ok ! $ENV{SERVER_SOFTWARE}; + ok ! $env->get('SERVER_SOFTWARE'); + } + + ok ! $ENV{FOO}; + skip "r->subprocess_env + local() doesnt fully work yet", 1; + #ok ! $env->get('FOO'); + + { + my $key = 'SERVER_SOFTWARE'; + my $val = $ENV{SERVER_SOFTWARE}; + ok $val; + ok t_cmp $env->get($key), $val, '$r->subprocess_env->get($key)'; + ok t_cmp $r->subprocess_env($key), $val, '$r->subprocess_env($key)'; + + $val = 'BAR'; + $r->subprocess_env($key => $val); + ok t_cmp $r->subprocess_env($key), $val, + '$r->subprocess_env($key => $val)'; + } + + # make sure each key can be deleted + for my $key (sort keys %ENV) { + eval { delete $ENV{$key}; }; + ok t_cmp($@, '', $key); + ok t_cmp($ENV{$key}, undef, "ENV{$key} is empty"); + ok t_cmp($env->get($key), undef, "subprocess_env($key) is empty"); + } + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script
diff --git a/2_0_13/t/response/TestModperl/exit.pm b/2_0_13/t/response/TestModperl/exit.pm new file mode 100644 index 0000000..31b8e33 --- /dev/null +++ b/2_0_13/t/response/TestModperl/exit.pm
@@ -0,0 +1,45 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::exit; + +# there is no need to call ModPerl::Util::exit() explicitly, a plain +# exit() will do. We do the explicit fully qualified call in this +# test, in case something has messed up with CORE::GLOBAL::exit and we +# want to make sure that we test the right API + +use strict; +use warnings FATAL => 'all'; + +use ModPerl::Util (); + +use Apache2::Const -compile => 'OK'; +use ModPerl::Const -compile => 'EXIT'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + my $args = $r->args; + + if ($args eq 'eval') { + eval { + my $whatever = 1; + ModPerl::Util::exit(); + }; + # test whether we can stringify our custom error messages + $r->print("$@"); + ModPerl::Util::exit if $@ && ref $@ && $@ == ModPerl::EXIT; + } + elsif ($args eq 'noneval') { + $r->print("exited"); + ModPerl::Util::exit(); + } + + # must not be reached + $r->print("must not be reached"); + + Apache2::Const::OK; +} + +1; +__END__ +
diff --git a/2_0_13/t/response/TestModperl/getc.pm b/2_0_13/t/response/TestModperl/getc.pm new file mode 100644 index 0000000..1b49f22 --- /dev/null +++ b/2_0_13/t/response/TestModperl/getc.pm
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::getc; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + untie *STDIN; + tie *STDIN, $r; + + while (my $c = getc) { + die "got more than 1 char" unless length($c) == 1; + $r->puts($c); + } + + untie *STDIN; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestModperl/interpreter.pm b/2_0_13/t/response/TestModperl/interpreter.pm new file mode 100644 index 0000000..0e01f9b --- /dev/null +++ b/2_0_13/t/response/TestModperl/interpreter.pm
@@ -0,0 +1,81 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::interpreter; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::MPM (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $is_threaded=Apache2::MPM->is_threaded; + + plan $r, tests => $is_threaded?17:5, need + need_threads, + {"perl >= 5.8.1 is required (this is $])" => ($] >= 5.008001)}; + + require ModPerl::Interpreter; + require ModPerl::InterpPool; + require ModPerl::TiPool; + require ModPerl::TiPoolConfig; + + my $interp = ModPerl::Interpreter->current; + + ok t_cmp(ref($interp), 'ModPerl::Interpreter', + 'interp is a ModPerl::Interpreter'); + + ok t_cmp($$interp==${ModPerl::Interpreter::current()}, !!1, + 'ModPerl::Interpreter->current == ModPerl::Interpreter::current'); + + my $mip = $interp->mip; + + ok t_cmp(ref($mip), 'ModPerl::InterpPool', + 'interp->mip is a ModPerl::InterpPool'); + + ok t_cmp(${$mip->server}==${$r->server}, !!1, + 'mip->server == r->server'); + + ok t_cmp(ref($mip->parent), 'ModPerl::Interpreter', + 'mip->parent is a ModPerl::Interpreter'); + + if($is_threaded) { + ok t_cmp($interp->perl!=0, !!1, 'interp->perl'); + ok t_cmp($interp->num_requests>0, !!1, 'interp->num_requests'); + ok t_cmp($interp->refcnt>0, !!1, 'interp->refcnt'); + + my $tipool = $mip->tipool; + + ok t_cmp(ref($tipool), 'ModPerl::TiPool', + 'mip->tipool is a ModPerl::TiPool'); + + ok t_cmp($tipool->in_use!=0, !!1, 'tipool->in_use'); + + ok t_cmp($tipool->size!=0, !!1, 'tipool->size'); + + my $tipcfg = $tipool->cfg; + + ok t_cmp(ref($tipcfg), 'ModPerl::TiPoolConfig', + 'tipool->cfg is a ModPerl::TiPoolConfig'); + + ok t_cmp($tipcfg->start!=0, !!1, 'tipcfg->start'); + + ok t_cmp($tipcfg->min_spare!=0, !!1, 'tipcfg->min_spare'); + + ok t_cmp($tipcfg->max_spare!=0, !!1, 'tipcfg->max_spare'); + + ok t_cmp($tipcfg->max!=0, !!1, 'tipcfg->max'); + + ok t_cmp($tipcfg->max_requests!=0, !!1, 'tipcfg->max_requests'); + } + + Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestModperl/io_nested_with_closed_stds.pm b/2_0_13/t/response/TestModperl/io_nested_with_closed_stds.pm new file mode 100644 index 0000000..f87373c --- /dev/null +++ b/2_0_13/t/response/TestModperl/io_nested_with_closed_stds.pm
@@ -0,0 +1,64 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::io_nested_with_closed_stds; + +# test that we can successfully override STD(IN|OUT) for +# 'perl-script', even if they are closed. Here we use +# internal_redirect(), which causes a nested override of already +# overriden STD streams + +# in this test we can't use my $foo as a filehandle, since perl 5.6 +# doesn't know how to dup via: 'open STDIN, "<&", $oldin' +# so use the old FOO filehandle style + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $args = $r->args || ''; + if ($args eq 'redirect') { + # sub-req + $r->content_type('text/plain'); + # do not use plan() here, since it messes up with STDOUT, + # which affects this test. + print "1..1\nok 1\n"; + } + else { + # main-req + my $redirect_uri = $r->uri . "?redirect"; + + # we must close STDIN as well, due to a perl bug (5.8.0 - 5.8.3 + # w/useperlio), which emits a warning if dup is called with + # one of the STD streams is closed. + # but we must restore the STD streams so not to affect other + # tests. + open OLDIN, "<&STDIN" or die "Can't dup STDIN: $!"; + open OLDOUT, ">&STDOUT" or die "Can't dup STDOUT: $!"; + close STDIN; + close STDOUT; + + $r->internal_redirect($redirect_uri); + + open STDIN, "<&OLDIN" or die "Can't dup OLDIN: $!"; + open STDOUT, ">&OLDOUT" or die "Can't dup OLDOUT: $!"; + close OLDIN; + close OLDOUT; + } + + Apache2::Const::OK; +} + +1; +__DATA__ +SetHandler perl-script +
diff --git a/2_0_13/t/response/TestModperl/io_with_closed_stds.pm b/2_0_13/t/response/TestModperl/io_with_closed_stds.pm new file mode 100644 index 0000000..b07a7cd --- /dev/null +++ b/2_0_13/t/response/TestModperl/io_with_closed_stds.pm
@@ -0,0 +1,67 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::io_with_closed_stds; + +# test that we can successfully override STD(IN|OUT) for +# 'perl-script', even if they are closed. + +# in this test we can't use my $foo as a filehandle, since perl 5.6 +# doesn't know how to dup via: 'open STDIN, "<&", $oldin' +# so use the old FOO filehandle style, which is also global, so we +# don't even need to pass it around (very bad code style, but I see no +# better solution if we want to have this test run under perl 5.6) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestUtil (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +sub fixup { + my $r = shift; + + # we must close STDIN as well, due to a perl bug (5.8.0 - 5.8.3 + # w/useperlio), which emits a warning if dup is called with + # one of the STD streams is closed. + open OLDIN, "<&STDIN" or die "Can't dup STDIN: $!"; + open OLDOUT, ">&STDOUT" or die "Can't dup STDOUT: $!"; + close STDIN; + close STDOUT; + + Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + plan $r, tests => 1; + + ok 1; + + Apache2::Const::OK; +} + +sub cleanup { + my $r = shift; + + # restore the STD(IN|OUT) streams so not to affect other tests. + open STDIN, "<&OLDIN" or die "Can't dup OLDIN: $!"; + open STDOUT, ">&OLDOUT" or die "Can't dup OLDOUT: $!"; + close OLDIN; + close OLDOUT; + + Apache2::Const::OK; +} + +1; +__DATA__ +PerlModule TestModperl::io_with_closed_stds +SetHandler perl-script +PerlFixupHandler TestModperl::io_with_closed_stds::fixup +PerlResponseHandler TestModperl::io_with_closed_stds +PerlCleanupHandler TestModperl::io_with_closed_stds::cleanup
diff --git a/2_0_13/t/response/TestModperl/local_env.pm b/2_0_13/t/response/TestModperl/local_env.pm new file mode 100644 index 0000000..ed18c6a --- /dev/null +++ b/2_0_13/t/response/TestModperl/local_env.pm
@@ -0,0 +1,54 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::local_env; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +# local %ENV used to cause segfaults +# Report: http://thread.gmane.org/gmane.comp.apache.mod-perl/22236 +# Fixed in: http://svn.apache.org/viewcvs.cgi?rev=357236&view=rev +sub handler { + my $r = shift; + + plan $r, tests => 6; + + my %copy_ENV = %ENV; ## this is not a deep copy; + + ok t_cmp($ENV{MOD_PERL_API_VERSION}, 2, + "\$ENV{MOD_PERL_API_VERSION} is 2 before local \%ENV"); + + { + local %ENV; + + ok t_cmp($ENV{MOD_PERL_API_VERSION}, undef, + "\$ENV{MOD_PERL_API_VERSION} is undef after local \%ENV"); + + ok t_cmp(scalar keys %ENV, 0, + "\%ENV has 0 keys after local"); + + $ENV{LOCAL} = 1; + + ok t_cmp($ENV{LOCAL}, 1, + "can set value after local, but still in block"); + } + + ok t_cmp($ENV{LOCAL}, undef, + "valuee set in local {} block is gone after leaving scope"); + + ok t_cmp(\%copy_ENV, \%ENV, "\%ENV was restored correctly"); + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script
diff --git a/2_0_13/t/response/TestModperl/merge.pm b/2_0_13/t/response/TestModperl/merge.pm new file mode 100644 index 0000000..da4460a --- /dev/null +++ b/2_0_13/t/response/TestModperl/merge.pm
@@ -0,0 +1,188 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::merge; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::ServerRec (); +use Apache2::ServerUtil (); +use Apache2::RequestUtil (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +# this is the configuration and handler for t/modperl/merge.t, +# t/modperl/merge2.t, and t/modperl/merge3.t. see any of those +# tests and/or the below configuration for more details + +# result tables for the below tests (trying to make the code more +# simple...) the hash itself represents a request +# the keys to the main hash represent merge levels - 1 for the +# non-overriding merge, 2 for an overriding merge, and 3 for a +# two-level merge the rest should be self-explanatory - settings and +# expected values. +our %merge1 = ( + 1 => { PerlPassEnv => [APACHE_TEST_HOSTTYPE => 'z80'], + PerlSetEnv => [MergeSetEnv1 => 'SetEnv1Val'], + PerlSetVar => [MergeSetVar1 => 'SetVar1Val'], + PerlAddVar => [MergeAddVar1 => ['AddVar1Val1', + 'AddVar1Val2']], + }, + 2 => { PerlSetEnv => [MergeSetEnv2 => 'SetEnv2Val'], + PerlSetVar => [MergeSetVar2 => 'SetVar2Val'], + PerlAddVar => [MergeAddVar2 => ['AddVar2Val1', + 'AddVar2Val2']], + }, + 3 => { PerlSetEnv => [MergeSetEnv3 => 'SetEnv3Val'], + PerlSetVar => [MergeSetVar3 => 'SetVar3Val'], + PerlAddVar => [MergeAddVar3 => ['AddVar3Val1', + 'AddVar3Val2']], + }, +); + +our %merge2 = ( + 1 => { PerlPassEnv => [APACHE_TEST_HOSTTYPE => 'z80'], + PerlSetEnv => [MergeSetEnv1 => 'SetEnv1Val'], + PerlSetVar => [MergeSetVar1 => 'SetVar1Val'], + PerlAddVar => [MergeAddVar1 => ['AddVar1Val1', + 'AddVar1Val2']], + }, + 2 => { PerlSetEnv => [MergeSetEnv2 => 'SetEnv2Merge2Val'], + PerlSetVar => [MergeSetVar2 => 'SetVar2Merge2Val'], + PerlAddVar => [MergeAddVar2 => ['AddVar2Merge2Val1', + 'AddVar2Merge2Val2']], + }, + 3 => { PerlSetEnv => [MergeSetEnv3 => 'SetEnv3Val'], + PerlSetVar => [MergeSetVar3 => 'SetVar3Val'], + PerlAddVar => [MergeAddVar3 => ['AddVar3Val1', + 'AddVar3Val2']], + }, +); + +our %merge3 = ( + 1 => { PerlPassEnv => [APACHE_TEST_HOSTTYPE => 'z80'], + PerlSetEnv => [MergeSetEnv1 => 'SetEnv1Val'], + PerlSetVar => [MergeSetVar1 => 'SetVar1Val'], + PerlAddVar => [MergeAddVar1 => ['AddVar1Val1', + 'AddVar1Val2']], + }, + 2 => { PerlSetEnv => [MergeSetEnv2 => 'SetEnv2Merge3Val'], + PerlSetVar => [MergeSetVar2 => 'SetVar2Merge3Val'], + PerlAddVar => [MergeAddVar2 => ['AddVar2Merge3Val1', + 'AddVar2Merge3Val2']], + }, + 3 => { PerlSetEnv => [MergeSetEnv3 => 'SetEnv3Merge3Val'], + PerlSetVar => [MergeSetVar3 => 'SetVar3Merge3Val'], + PerlAddVar => [MergeAddVar3 => ['AddVar3Merge3Val1', + 'AddVar3Merge3Val2']], + }, +); + +sub handler { + my $r = shift; + + plan $r, tests => 10; + + my $uri = $r->uri; + my $hash; + + if ($uri =~ m/(merge3)/) { + $hash = $1; + } elsif ($uri =~ m/(merge2)/) { + $hash = $1; + } else { + $hash = 'merge1'; + } + + t_debug("testing against results in $hash"); + + no strict qw(refs); + foreach my $level (sort keys %$hash) { + foreach my $directive (sort keys %{ $hash->{$level} }) { + my $key = $hash->{$level}->{$directive}->[0]; + my $value = $hash->{$level}->{$directive}->[1]; + + my @expected = ref $value ? @$value : $value; + + my $comment = join ' ', $directive, $key, @expected; + + if ($directive =~ m/Env/) { + my $received = $ENV{$key}; + ok t_cmp($received, $expected[0], $comment); + } + elsif ($directive =~ m/Set/) { + my $received = $r->dir_config->get($key); + ok t_cmp($received, $expected[0], $comment); + } + else { + my @received = $r->dir_config->get($key); + ok t_cmp(\@received, \@expected, $comment); + } + } + } + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> + PerlModule TestModperl::merge + + <VirtualHost TestModperl::merge> + # these should pass through all merges untouched + PerlPassEnv APACHE_TEST_HOSTTYPE + PerlSetEnv MergeSetEnv1 SetEnv1Val + PerlSetVar MergeSetVar1 SetVar1Val + PerlSetVar MergeAddVar1 AddVar1Val1 + PerlAddVar MergeAddVar1 AddVar1Val2 + + # these are overridden in /merge2 and /merge3 + PerlSetEnv MergeSetEnv2 SetEnv2Val + PerlSetVar MergeSetVar2 SetVar2Val + PerlSetVar MergeAddVar2 AddVar2Val1 + PerlAddVar MergeAddVar2 AddVar2Val2 + + # these are overridden in /merge3 only + PerlSetEnv MergeSetEnv3 SetEnv3Val + PerlSetVar MergeSetVar3 SetVar3Val + PerlSetVar MergeAddVar3 AddVar3Val1 + PerlAddVar MergeAddVar3 AddVar3Val2 + + <Location /merge> + # same as per-server level + SetHandler perl-script + PerlResponseHandler TestModperl::merge + </Location> + + <Location /merge2> + # overrides "2" values - "1" and "3" values left untouched + PerlSetEnv MergeSetEnv2 SetEnv2Merge2Val + PerlSetVar MergeSetVar2 SetVar2Merge2Val + PerlSetVar MergeAddVar2 AddVar2Merge2Val1 + PerlAddVar MergeAddVar2 AddVar2Merge2Val2 + + SetHandler perl-script + PerlResponseHandler TestModperl::merge + </Location> + + AccessFileName htaccess + <Directory @DocumentRoot@/merge3> + # overrides "2" values + PerlSetEnv MergeSetEnv2 SetEnv2Merge3Val + PerlSetVar MergeSetVar2 SetVar2Merge3Val + PerlSetVar MergeAddVar2 AddVar2Merge3Val1 + PerlAddVar MergeAddVar2 AddVar2Merge3Val2 + + SetHandler perl-script + PerlResponseHandler TestModperl::merge + + # override "3" values + AllowOverride all + </Directory> + + </VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestModperl/method.pm b/2_0_13/t/response/TestModperl/method.pm new file mode 100644 index 0000000..568784e --- /dev/null +++ b/2_0_13/t/response/TestModperl/method.pm
@@ -0,0 +1,56 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::method; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest; + +use Apache2::Const -compile => 'OK'; + +sub new { + my $class = shift; + + bless { + perl_version => $], + }, $class; +} + +sub handler : method { + my ($self, $r) = @_; + + my $tests = 3; + + my $is_obj = ref($self); + + if ($is_obj) { + $tests += 1; + } + + plan $r, tests => $tests; + + ok t_cmp(scalar @_, 2, + '@_ == 2'); + + my $class = ref($self) || $self; + + ok t_cmp($class, $class, + 'handler class'); + + ok t_cmp( + $r->uri, + '/' . Apache::TestRequest::module2path($class), + '$r->uri eq $location'); + + if ($is_obj) { + ok t_cmp($self->{perl_version}, $], + 'object handler data'); + } + + Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestModperl/methodname.pm b/2_0_13/t/response/TestModperl/methodname.pm new file mode 100644 index 0000000..e5464a6 --- /dev/null +++ b/2_0_13/t/response/TestModperl/methodname.pm
@@ -0,0 +1,21 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::methodname; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +use TestModperl::method (); + +#no : method attribute required when -> config syntax is used +sub response { + TestModperl::method::handler(@_); +} + +1; +__END__ +PerlResponseHandler TestModperl::methodname->response
diff --git a/2_0_13/t/response/TestModperl/methodobj.pm b/2_0_13/t/response/TestModperl/methodobj.pm new file mode 100644 index 0000000..3d8f3af --- /dev/null +++ b/2_0_13/t/response/TestModperl/methodobj.pm
@@ -0,0 +1,16 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::methodobj; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Const -compile => 'OK'; + +use TestModperl::method (); + +our @ISA = qw(TestModperl::method); + +1; +__END__ +PerlResponseHandler $TestModperl::MethodObj->handler +
diff --git a/2_0_13/t/response/TestModperl/perl.pm b/2_0_13/t/response/TestModperl/perl.pm new file mode 100644 index 0000000..a49c784 --- /dev/null +++ b/2_0_13/t/response/TestModperl/perl.pm
@@ -0,0 +1,30 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::perl; + +# this test includes tests for buggy Perl functions for which mod_perl +# provides a workaround + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 1; + + ok t_cmp("SNXJvM5I.PJrE", + crypt("testing", "SNXJvM5I.PJrE"), + "crypt"); + + Apache2::Const::OK; +} + +1; +__END__ + +
diff --git a/2_0_13/t/response/TestModperl/perl_options.pm b/2_0_13/t/response/TestModperl/perl_options.pm new file mode 100644 index 0000000..9908650 --- /dev/null +++ b/2_0_13/t/response/TestModperl/perl_options.pm
@@ -0,0 +1,63 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::perl_options; + +# test whether PerlOptions options are enabled + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use Apache2::ServerUtil (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +my @srv_plus = qw(ChildInit ChildExit Fixup); +my @srv_minus = qw(PreConnection ProcessConnection Autoload + Log InputFilter OutputFilter); +my @dir_plus = qw(ParseHeaders MergeHandlers); +my @dir_minus = qw(SetupEnv GlobalRequest); + +sub handler { + my $r = shift; + + plan $r, tests => @srv_plus + @srv_minus + @dir_plus + @dir_minus; + my $s = $r->server; + + ok t_cmp($s->is_perl_option_enabled($_), 1, + "PerlOptions +$_") for @srv_plus; + + ok t_cmp($s->is_perl_option_enabled($_), 0, + "PerlOptions -$_") for @srv_minus; + + ok t_cmp($r->is_perl_option_enabled($_), 1, + "PerlOptions +$_") for @dir_plus; + + ok t_cmp($r->is_perl_option_enabled($_), 0, + "PerlOptions -$_") for @dir_minus; + + return Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> +<VirtualHost TestModperl::perl_options> + PerlOptions -PreConnection -ProcessConnection + PerlOptions -Autoload -Log -InputFilter -OutputFilter + PerlOptions +ChildInit +ChildExit + PerlModule TestModperl::perl_options + PerlOptions +ParseHeaders + <Location /TestModperl__perl_options> + SetHandler modperl + PerlOptions -GlobalRequest -SetupEnv + PerlOptions +MergeHandlers + PerlResponseHandler TestModperl::perl_options + </Location> +</VirtualHost> +</NoAutoConfig> +
diff --git a/2_0_13/t/response/TestModperl/perl_options2.pm b/2_0_13/t/response/TestModperl/perl_options2.pm new file mode 100644 index 0000000..29f8a46 --- /dev/null +++ b/2_0_13/t/response/TestModperl/perl_options2.pm
@@ -0,0 +1,70 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::perl_options2; + +# test whether PerlOptions None works + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use Apache2::ServerUtil (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK); + +my @srv = qw( + OpenLogs + PostConfig + ChildInit + ChildExit + + PreConnection + ProcessConnection + + InputFilter + OutputFilter + + PostReadRequest + Trans + MapToStorage + HeaderParser + Access + Authen + Authz + Type + Fixup + Log + Cleanup +); + +sub handler { + my $r = shift; + + plan $r, tests => scalar @srv, skip_reason('PerlOptions None is broken'); + + my $s = $r->server; + + ok t_cmp($s->is_perl_option_enabled($_), 0, + "$_ is off under PerlOptions None") for @srv; + + ok t_cmp($s->is_perl_option_enabled('Response'), 1, + "Response is off under PerlOptions None"); + + return Apache2::Const::OK; +} + +1; +__DATA__ +<NoAutoConfig> +<VirtualHost TestModperl::perl_options2> + PerlOptions None +Response + <Location /TestModperl__perl_options2> + SetHandler modperl + PerlResponseHandler TestModperl::perl_options2 + </Location> +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestModperl/pnotes.pm b/2_0_13/t/response/TestModperl/pnotes.pm new file mode 100644 index 0000000..1a354aa --- /dev/null +++ b/2_0_13/t/response/TestModperl/pnotes.pm
@@ -0,0 +1,127 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::pnotes; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestUtil (); +use Apache2::ConnectionUtil (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + # make it ok to call ok() here while plan()ing elsewhere + Apache::Test::init_test_pm($r); + + Test::_reset_globals() if Test->can('_reset_globals'); + $Test::ntest = 1 + (26 * ($r->args - 1)); + $Test::planned = 26; + + my $c = $r->connection; + + # we call this handler 3 times. + # $r->pnotes('request') should be unset each time + # $c->pnotes('connection') should be unset the first + # time but set the second time due to the keepalive + # request. the second request then cleans up after + # itself, leaving $c->pnotes again unset at the + # start of the third request + if ($r->args == 2) { + ok t_cmp($c->pnotes('connection'), + 'CSET', + '$c->pnotes() persists across keepalive requests'); + } + else { + t_debug('testing $c->pnotes is empty'); + ok (! $c->pnotes('connection')); + } + + # $r->pnotes should be reset each time + t_debug('testing $r->pnotes is empty'); + ok (! $r->pnotes('request')); + + foreach my $map ({type => 'r', object => $r}, + {type => 'c', object => $c}) { + + my $type = $map->{type}; + + my $o = $map->{object}; + + t_debug("testing $type->pnotes call"); + ok $o->pnotes; + + ok t_cmp($o->pnotes('pnotes_foo', 'pnotes_bar'), + 'pnotes_bar', + "$type->pnotes(key,val)"); + + ok t_cmp($o->pnotes('pnotes_foo'), + 'pnotes_bar', + "$type->pnotes(key)"); + + ok t_cmp(ref($o->pnotes), 'HASH', "ref($type->pnotes)"); + + ok t_cmp($o->pnotes()->{'pnotes_foo'}, 'pnotes_bar', + "$type->pnotes()->{}"); + + # unset the entry (but the entry remains with undef value) + $o->pnotes('pnotes_foo', undef); + ok t_cmp($o->pnotes('pnotes_foo'), undef, + "unset $type contents"); + + my $exists = exists $o->pnotes->{'pnotes_foo'}; + $exists = 1 if $] < 5.008001; # changed in perl 5.8.1 + ok $exists; + + # now delete completely (possible only via the hash inteface) + delete $o->pnotes()->{'pnotes_foo'}; + ok t_cmp($o->pnotes('pnotes_foo'), undef, + "deleted $type contents"); + ok !exists $o->pnotes->{'pnotes_foo'}; + + # test blessed references, like DBI + # DBD::DBM ships with DBI... + if (have_module(qw(DBI DBD::DBM))) { + my $dbh = DBI->connect('dbi:DBM:'); + + $o->pnotes(DBH => $dbh); + + my $pdbh = $o->pnotes('DBH'); + + ok t_cmp(ref($pdbh), 'DBI::db', "ref($type->pnotes('DBH'))"); + + my $quote = $pdbh->quote("quoth'me"); + + # see the DBI manpage for why quote() returns the string + # wrapped in ' marks + ok t_cmp($quote, "'quoth\\'me'", '$pdbh->quote() works'); + } + else { + skip ('skipping $dbh retrival test - no DBI or DBD::DBM'); + skip ('skipping $dbh->quote() test - no DBI or DBD::DBM'); + } + } + + # set pnotes so we can test unset on later connections + $r->pnotes(request => 'RSET'); + $c->pnotes(connection => 'CSET'); + + ok t_cmp($r->pnotes('request'), + 'RSET', + '$r->pnotes() set'); + + ok t_cmp($c->pnotes('connection'), + 'CSET', + '$c->pnotes() set'); + + Apache2::Const::OK; +} + +1; +__END__ + +
diff --git a/2_0_13/t/response/TestModperl/pnotes2.pm b/2_0_13/t/response/TestModperl/pnotes2.pm new file mode 100644 index 0000000..fd3d14a --- /dev/null +++ b/2_0_13/t/response/TestModperl/pnotes2.pm
@@ -0,0 +1,85 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::pnotes2; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Log (); +use Apache2::RequestUtil (); +use Apache2::ConnectionUtil (); + +use Apache2::Const -compile => 'OK'; + +{ + package TestModerl::pnotes2::x; + use strict; + use warnings FATAL => 'all'; + + sub new {shift;bless [@_];} + sub DESTROY {my $f=shift @{$_[0]}; $f->(@{$_[0]});} +} + +sub line { + our $cleanup; + + Apache2::ServerRec::warn "pnotes are destroyed after cleanup ".$cleanup; +} + +sub cleanup { + our $cleanup; + $cleanup='passed'; + + return Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + our $cleanup; + $cleanup=''; + + $r->push_handlers( PerlCleanupHandler=>__PACKAGE__.'::cleanup' ); + + if(!defined $r->args) { + } elsif($r->args == 1) { + $r->pnotes(x1 => TestModerl::pnotes2::x->new(\&line)); + } elsif($r->args == 2) { + $r->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line); + } elsif($r->args == 3) { + $r->pnotes(x1 => TestModerl::pnotes2::x->new(\&line)); + $r->pnotes(x2 => 2); + } elsif($r->args == 4) { + $r->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line); + $r->pnotes->{x2} = 2; + } elsif($r->args == 5) { + $r->pnotes(x1 => TestModerl::pnotes2::x->new(\&line)); + $r->pnotes->{x2} = 2; + } elsif($r->args == 6) { + $r->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line); + $r->pnotes(x2 => 2); + } elsif($r->args == 7) { + $r->connection->pnotes(x1 => TestModerl::pnotes2::x->new(\&line)); + } elsif($r->args == 8) { + $r->connection->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line); + } elsif($r->args == 9) { + $r->connection->pnotes(x1 => TestModerl::pnotes2::x->new(\&line)); + $r->connection->pnotes(x2 => 2); + } elsif($r->args == 10) { + $r->connection->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line); + $r->connection->pnotes->{x2} = 2; + } elsif($r->args == 11) { + $r->connection->pnotes(x1 => TestModerl::pnotes2::x->new(\&line)); + $r->connection->pnotes->{x2} = 2; + } elsif($r->args == 12) { + $r->connection->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line); + $r->connection->pnotes(x2 => 2); + } + + $r->content_type('text/plain'); + $r->print("OK"); + + Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestModperl/post_utf8.pm b/2_0_13/t/response/TestModperl/post_utf8.pm new file mode 100644 index 0000000..48d7aa2 --- /dev/null +++ b/2_0_13/t/response/TestModperl/post_utf8.pm
@@ -0,0 +1,68 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::post_utf8; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use APR::Table (); + +use TestCommon::Utils (); + +use Apache2::Const -compile => 'OK'; + +my $expected_ascii = "I love you, (why lying?), but I belong to another"; +my $expected_utf8 = "\x{042F} \x{0432}\x{0430}\x{0441} \x{043B}\x{044E}" . + "\x{0431}\x{043B}\x{044E} (\x{043A} \x{0447}\x{0435}\x{043C}\x{0443} " . + "\x{043B}\x{0443}\x{043A}\x{0430}\x{0432}\x{0438}\x{0442}\x{044C}?),\n" . + "\x{041D}\x{043E} \x{044F} \x{0434}\x{0440}\x{0443}\x{0433}\x{043E}" . + "\x{043C}\x{0443} \x{043E}\x{0442}\x{0434}\x{0430}\x{043D}\x{0430};"; + +sub handler { + my $r = shift; + +# # visual debug, e.g. in lynx/mozilla +# $r->content_type("text/plain; charset=utf-8"); +# $r->print("expected: $expected_utf8\n"); + + my $received = TestCommon::Utils::read_post($r) || ""; + + # utf encode/decode was added only in 5.8.0 + # XXX: currently binmode is only available with perlio (used on the + # server side on the tied/perlio STDOUT) + plan $r, tests => 2, + need need_min_perl_version(5.008), need_perl('perlio'); + + # workaround for perl-5.8.0, which doesn't decode correctly a + # tainted variable + require ModPerl::Util; + ModPerl::Util::untaint($received) if $] == 5.008; + + # assume that we know that it's utf8 + require Encode; # since 5.8.0 + $received = Encode::decode('utf8', $received); + # utf8::decode() doesn't work under -T + my ($received_ascii, $received_utf8) = split /=/, $received; + + ok t_cmp($received_ascii, $expected_ascii, "ascii"); + + ok $expected_utf8 eq $received_utf8; + # if you want to see the utf8 data run with: + # t/TEST -trace=debug -v modperl/post_utf8 + # and look for this data in t/logs/error_log + # needed for sending utf-8 to STDERR for debug + binmode(STDERR, ':utf8'); + debug "expected: $expected_utf8"; + debug "received: $received_utf8"; + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script
diff --git a/2_0_13/t/response/TestModperl/print.pm b/2_0_13/t/response/TestModperl/print.pm new file mode 100644 index 0000000..64d8968 --- /dev/null +++ b/2_0_13/t/response/TestModperl/print.pm
@@ -0,0 +1,49 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::print; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 6; + + binmode STDOUT; #Apache2::RequestRec::BINMODE (noop) + + ok 1; + + ok 2; + + { + # print should return true on success, even + # if it sends no data. + my $rc = print ''; + + ok ($rc); + ok ($rc == 0); # 0E0 is still numerically 0 + } + + { + my $rc = print "# 11 bytes\n"; # don't forget the newline + + ok ($rc == 11); + } + + printf "ok %d\n", 6; + + Apache2::Const::OK; +} + +END { + my $package = __PACKAGE__; + warn "END in $package, pid=$$\n"; +} + +1;
diff --git a/2_0_13/t/response/TestModperl/print_utf8.pm b/2_0_13/t/response/TestModperl/print_utf8.pm new file mode 100644 index 0000000..f95ca48 --- /dev/null +++ b/2_0_13/t/response/TestModperl/print_utf8.pm
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::print_utf8; + +# testing the utf8-encoded response via a tied STDOUT/perlio STDOUT, +# the latter if perl was built with perlio. +# see Modperl/print_utf8_2.pm for $r->print + +# must test against a tied STDOUT/perlio STDOUT. $r->print does the +# right thing without any extra provisions + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain; charset=UTF-8'); + + # prevent warning: "Wide character in print" + binmode(STDOUT, ':utf8'); # Apache2::RequestRec::BINMODE() + + # must be non-$r->print(), so we go through the tied STDOUT + # \x{263A} == :-) + print "Hello Ayhan \x{263A} perlio rules!"; + + Apache2::Const::OK; +} + +1; +__DATA__ +SetHandler perl-script
diff --git a/2_0_13/t/response/TestModperl/print_utf8_2.pm b/2_0_13/t/response/TestModperl/print_utf8_2.pm new file mode 100644 index 0000000..423c7de --- /dev/null +++ b/2_0_13/t/response/TestModperl/print_utf8_2.pm
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::print_utf8_2; + +# testing the utf8-encoded response via direct $r->print, which does the +# right thing without any extra provisions. +# see print_utf8.pm for tied STDOUT/perlio STDOUT, which requires extra work + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); +use Apache2::RequestRec (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain; charset=UTF-8'); + + # \x{263A} == :-) + $r->print("\$r->print() just works \x{263A}"); + + Apache2::Const::OK; +} + +1; +__DATA__ +SetHandler modperl
diff --git a/2_0_13/t/response/TestModperl/printf.pm b/2_0_13/t/response/TestModperl/printf.pm new file mode 100644 index 0000000..54b1e89 --- /dev/null +++ b/2_0_13/t/response/TestModperl/printf.pm
@@ -0,0 +1,63 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::printf; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); +use Apache2::RequestRec (); +use APR::Table (); + +use Apache2::Const -compile => qw(OK); + +sub handler { + my $r = shift; + + my $tests = 4; + + $r->printf("1..%d\n", $tests); + + # ok 1 + $r->printf("ok"); + $r->printf(" %d\n", 1); + + # ok 2 + my $fmt = "%s%s %d\n"; + $r->printf($fmt, qw(o k), 2); + + # ok 3 + my @a = ("ok %d%c", 3, ord("\n")); + $r->PRINTF(@a); + + # ok 4 (gets input from the fixup handler via notes) + { + my $note = $r->notes->get("fixup") || ''; + my $ok = $note =~ + /\$r->printf can't be called before the response phase/; + $r->print("not ") unless $ok; + $r->print("ok 4\n"); + $r->print("# either fixup was successful at printing to the\n", + "# client (which shouldn't happen before the\n", + "# response phase), or the note was lost/never set\n") + unless $ok; + $r->notes->clear; + } + + Apache2::Const::OK; +} + +sub fixup { + my $r = shift; + + # it's not possible to send a response body before the response + # phase + eval { $r->printf("whatever") }; + $r->notes->set(fixup => "$@") if $@; + + Apache2::Const::OK; +} + +1; +__END__ +PerlModule TestModperl::printf +PerlFixupHandler TestModperl::printf::fixup
diff --git a/2_0_13/t/response/TestModperl/readline.pm b/2_0_13/t/response/TestModperl/readline.pm new file mode 100644 index 0000000..705cf0f --- /dev/null +++ b/2_0_13/t/response/TestModperl/readline.pm
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::readline; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); +use Apache2::compat (); #XXX + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + untie *STDIN; + tie *STDIN, $r; + + while (defined(my $line = <STDIN>)) { + $r->puts($line); + } + + untie *STDIN; + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestModperl/request_rec_perlio_api.pm b/2_0_13/t/response/TestModperl/request_rec_perlio_api.pm new file mode 100644 index 0000000..c8a225f --- /dev/null +++ b/2_0_13/t/response/TestModperl/request_rec_perlio_api.pm
@@ -0,0 +1,105 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::request_rec_perlio_api; + +# this test is relevant only when the PerlIO STDIN/STDOUT are used (when +# $Config{useperlio} is defined.) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); +use Apache2::RequestRec (); + +use Apache::Test; + +use File::Spec::Functions qw(catfile catdir); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->args eq 'STDIN' ? test_STDIN($r) : test_STDOUT($r); + + return Apache2::Const::OK; +} + +sub test_STDIN { + my $r = shift; + + { + # read the first 10 POST chars + my $data; + read STDIN, $data, 10; + print STDOUT $data; + } + + { + # re-open STDIN to something else, and then see if we don't + # lose any chars when we restore it to the POST stream + open my $stdin, "<&STDIN" or die "Can't dup STDIN: $!"; + + open STDIN, "<", __FILE__ + or die "failed to open STDIN as 'in memory' file : $!"; + my $data; + read STDIN, $data, length("# please"); + print STDOUT $data; + close STDIN; + + open STDIN, "<&", $stdin or die "failed to restore STDIN: $!"; + } + + { + # read the last 10 POST chars + my $data; + read STDIN, $data, 10; + print STDOUT $data; + } + +} + +sub test_STDOUT { + my $r = shift; + + local $| = 0; + print STDOUT "life is hard "; + + my $vars = Apache::Test::config()->{vars}; + my $target_dir = catdir $vars->{documentroot}, 'perlio'; + my $file = catfile $target_dir, "apache_stdout"; + + # re-open STDOUT to something else, and then see if we can + # continue printing to the client via STDOUT, after restoring it + open my $stdout, ">&STDOUT" or die "Can't dup STDOUT: $!"; + + # this should flush the above print to STDOUT + open STDOUT, ">", $file or die "Can't open $file: $!"; + print STDOUT "and then "; + close STDOUT; + + # flush things that went into the file as STDOUT + open STDOUT, ">&", $stdout or die "failed to restore STDOUT: $!"; + open my $fh, $file or die "Can't open $file: $!"; + local $\; + print <$fh>; + + # cleanup + unlink $file; + + # close the dupped fh + close $stdout; + + print "you die! "; + + # now close it completely and restore it, without using any dupped + # filehandle + close STDOUT; + open STDOUT, ">:Apache2", $r + or die "can't open STDOUT via :Apache2 layer : $!"; + print "next you reincarnate..."; + +} + +1; +__DATA__ +SetHandler perl-script
diff --git a/2_0_13/t/response/TestModperl/request_rec_tie_api.pm b/2_0_13/t/response/TestModperl/request_rec_tie_api.pm new file mode 100644 index 0000000..d27c44e --- /dev/null +++ b/2_0_13/t/response/TestModperl/request_rec_tie_api.pm
@@ -0,0 +1,68 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::request_rec_tie_api; + +# this test is relevant only when the tied STDIN/STDOUT are used (when +# $Config{useperlio} is not defined.) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestIO (); + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestConfig; + +use File::Spec::Functions qw(catfile catdir); + +use Apache2::Const -compile => 'OK'; + +use Config; + +sub handler { + my $r = shift; + + require Apache2::Build; + my @todo; + push @todo, 1 if Apache2::Build::AIX(); + plan $r, tests => 3, todo => \@todo, + need { "perl $]: PerlIO is used instead of TIEd IO" + => !($] >= 5.008 && $Config{useperlio}) }; + + # XXX: on AIX 4.3.3 we get: + # STDIN STDOUT STDERR + # perl : 0 1 2 + # mod_perl: 0 0 2 + my $fileno = fileno STDOUT; + ok $fileno; + t_debug "fileno STDOUT: $fileno"; + + { + my $vars = Apache::Test::config()->{vars}; + my $target_dir = catdir $vars->{serverroot}, 'logs'; + my $file = catfile $target_dir, "stdout"; + + # test OPEN + my $received = open STDOUT, ">", $file or die "Can't open $file: $!"; + ok t_cmp($received, 1, "OPEN"); + + # test CLOSE, which is a noop + ok $r->CLOSE; + close $file; + + # restore the tie + tie *STDOUT, $r; + + # flush things that went into the file as STDOUT + open my $fh, $file or die "Can't open $file: $!"; + local $\; + print <$fh>; + + # cleanup + unlink $file; + } + + return Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestModperl/setauth.pm b/2_0_13/t/response/TestModperl/setauth.pm new file mode 100644 index 0000000..ce992cd --- /dev/null +++ b/2_0_13/t/response/TestModperl/setauth.pm
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::setauth; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Access (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 2; + + ok t_cmp($r->auth_type(), "none", 'auth_type'); + + t_server_log_error_is_expected(); + $r->get_basic_auth_pw(); + + ok t_cmp($r->auth_type(), 'Basic', 'default auth_type'); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestModperl/setupenv.pm b/2_0_13/t/response/TestModperl/setupenv.pm new file mode 100644 index 0000000..7dbcf9a --- /dev/null +++ b/2_0_13/t/response/TestModperl/setupenv.pm
@@ -0,0 +1,343 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::setupenv; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use APR::Table (); + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::Const -compile => qw(OK DECLINED); + +sub handler { + + my $r = shift; + + # how many different URIs will be hit? + my $requests = $r->args; + + # $requests locations with 7 tests each + plan $r, tests => $requests * 7; + + return Apache2::Const::OK; +} + +sub env { + + my $r = shift; + + Apache::Test::init_test_pm($r); # tie STDOUT + + (my $value) = $r->uri =~ /TestModperl__setupenv_(\w+)/; + + ok t_cmp($ENV{REMOTE_ADDR}, + Apache::Test::vars('remote_addr'), + 'found REMOTE_ADDR in %ENV'); + + ok t_cmp($ENV{SRV_SUBPROCESS}, + 'server', + 'found subprocess_env table entry SRV_SUBPROCESS in %ENV'); + + ok t_cmp($ENV{DIR_SUBPROCESS}, + $value, + 'found subprocess_env table entry DIR_SUBPROCESS in %ENV'); + + ok t_cmp($ENV{DIR_SETENV}, + $value, + 'found per-directory SetEnv entry in %ENV'); + + ok t_cmp($ENV{SRV_SETENV}, + 'server', + 'found per-server SetEnv entry in %ENV'); + + # PerlSetEnv always set + ok t_cmp($ENV{DIR_PERLSETENV}, + $value, + 'found per-directory PerlSetEnv entry in %ENV'); + + ok t_cmp($ENV{SRV_PERLSETENV}, + 'server', + 'found per-server PerlSetEnv entry in %ENV'); + + return Apache2::Const::OK; +} + +sub noenv { + + my $r = shift; + + Apache::Test::init_test_pm($r); # tie STDOUT + + (my $value) = $r->uri =~ /TestModperl__setupenv_(\w+)/; + + ok t_cmp($ENV{REMOTE_ADDR}, + undef, + 'REMOTE_ADDR not found in %ENV'); + + ok t_cmp($ENV{SRV_SUBPROCESS}, + undef, + 'subprocess_env table entry SRV_SUBPROCESS not found in %ENV'); + + ok t_cmp($ENV{DIR_SUBPROCESS}, + undef, + 'subprocess_env table entry DIR_SUBPROCESS not found in %ENV'); + + ok t_cmp($ENV{DIR_SETENV}, + undef, + 'per-directory SetEnv entry not found in %ENV'); + + ok t_cmp($ENV{SRV_SETENV}, + undef, + 'per-server SetEnv entry not found in %ENV'); + + # PerlSetEnv always set + ok t_cmp($ENV{DIR_PERLSETENV}, + $value, + 'found per-directory PerlSetEnv entry in %ENV'); + + ok t_cmp($ENV{SRV_PERLSETENV}, + 'server', + 'found per-server PerlSetEnv entry in %ENV'); + + return Apache2::Const::OK; +} + +sub someenv { + + my $r = shift; + + Apache::Test::init_test_pm($r); # tie STDOUT + + (my $value) = $r->uri =~ /TestModperl__setupenv_(\w+)/; + + ok t_cmp($ENV{REMOTE_ADDR}, + Apache::Test::vars('remote_addr'), + 'found REMOTE_ADDR in %ENV'); + + # set before void call + ok t_cmp($ENV{SRV_SUBPROCESS}, + 'server', + 'found subprocess_env table entry one in %ENV'); + + ok t_cmp($ENV{DIR_SUBPROCESS}, + undef, + 'subprocess_env table entry DIR_SUBPROCESS not found in %ENV'); + + ok t_cmp($ENV{DIR_SETENV}, + undef, + 'per-directory SetEnv entry not found in %ENV'); + + ok t_cmp($ENV{SRV_SETENV}, + undef, + 'per-server SetEnv entry not found in %ENV'); + + # PerlSetEnv always set + ok t_cmp($ENV{DIR_PERLSETENV}, + $value, + 'found per-directory PerlSetEnv entry in %ENV'); + + ok t_cmp($ENV{SRV_PERLSETENV}, + 'server', + 'found per-server PerlSetEnv entry in %ENV'); + + return Apache2::Const::OK; +} + +sub subenv_void { + + shift->subprocess_env; + + return Apache2::Const::OK; +} + +sub subenv_one { + + shift->subprocess_env->set(SRV_SUBPROCESS => 'server'); + + return Apache2::Const::OK; +} + +sub subenv_two { + + my $r = shift; + + (my $value) = $r->uri =~ /TestModperl__setupenv_(\w+)/; + + $r->subprocess_env->set(DIR_SUBPROCESS => $value); + + return Apache2::Const::OK; +} + +1; +__DATA__ +# create a separate virtual host so we can use +# keepalives - a per-connection interpreter is +# the only way to make sure that we can plan in +# one request and test in subsequent tests +<NoAutoConfig> +<VirtualHost TestModperl::setupenv> + + KeepAlive On + +# <IfDefine PERL_USEITHREADS> +# PerlInterpScope connection +# </Ifdefine> + + PerlModule TestModperl::setupenv + + PerlPostReadRequestHandler TestModperl::setupenv::subenv_one + + # SetEnv is affected by +SetupEnv + <IfModule mod_env.c> + SetEnv SRV_SETENV server + </IfModule> + + # PerlSetEnv is not affected by +SetupEnv or -SetupEnv + # it is entirely separate and always set if configured + PerlSetEnv SRV_PERLSETENV server + + # plan + <Location /TestModperl__setupenv> + SetHandler modperl + PerlResponseHandler TestModperl::setupenv + </Location> + + # default modperl handler + # %ENV should not contain standard CGI variables + # or entries from the subprocess_env table + <Location /TestModperl__setupenv_mpdefault> + SetHandler modperl + PerlResponseHandler TestModperl::setupenv::noenv + + PerlFixupHandler TestModperl::setupenv::subenv_two + <IfModule mod_env.c> + SetEnv DIR_SETENV mpdefault + </IfModule> + PerlSetEnv DIR_PERLSETENV mpdefault + </Location> + + # modperl handler + SetupEnv + # %ENV should contain CGI variables as well as + # anything put into the subprocess_env table + <Location /TestModperl__setupenv_mpsetup> + SetHandler modperl + PerlResponseHandler TestModperl::setupenv::env + + PerlOptions +SetupEnv + + PerlFixupHandler TestModperl::setupenv::subenv_two + + <IfModule mod_env.c> + SetEnv DIR_SETENV mpsetup + </IfModule> + PerlSetEnv DIR_PERLSETENV mpsetup + </Location> + + # $r->subprocess_env in a void context with no args + # should do the same as +SetupEnv wrt CGI variables + # and entries already in the subprocess_env table + # but subprocess_env entries that appear later will + # not show up in %ENV + <Location /TestModperl__setupenv_mpvoid> + SetHandler modperl + PerlResponseHandler TestModperl::setupenv::someenv + + PerlHeaderParserHandler TestModperl::setupenv::subenv_void + PerlFixupHandler TestModperl::setupenv::subenv_two + + <IfModule mod_env.c> + SetEnv DIR_SETENV mpvoid + </IfModule> + PerlSetEnv DIR_PERLSETENV mpvoid + </Location> + + # +SetupEnv should always populate %ENV fully prior + # to running the content handler (regardless of when + # $r->subprocess_env() was called) to ensure that + # %ENV is an accurate representation of the + # subprocess_env table + <Location /TestModperl__setupenv_mpsetupvoid> + SetHandler modperl + PerlResponseHandler TestModperl::setupenv::env + + PerlOptions +SetupEnv + + PerlHeaderParserHandler TestModperl::setupenv::subenv_void + PerlFixupHandler TestModperl::setupenv::subenv_two + + <IfModule mod_env.c> + SetEnv DIR_SETENV mpsetupvoid + </IfModule> + PerlSetEnv DIR_PERLSETENV mpsetupvoid + </Location> + + # default perl-script handler is equivalent to +SetupEnv + # CGI variables and subprocess_env entries will be in %ENV + <Location /TestModperl__setupenv_psdefault> + SetHandler perl-script + PerlResponseHandler TestModperl::setupenv::env + + PerlFixupHandler TestModperl::setupenv::subenv_two + + <IfModule mod_env.c> + SetEnv DIR_SETENV psdefault + </IfModule> + PerlSetEnv DIR_PERLSETENV psdefault + </Location> + + # -SetupEnv should not put CGI variables or subprocess_env + # entries in %ENV + <Location /TestModperl__setupenv_psnosetup> + SetHandler perl-script + PerlResponseHandler TestModperl::setupenv::noenv + + PerlOptions -SetupEnv + + PerlFixupHandler TestModperl::setupenv::subenv_two + + <IfModule mod_env.c> + SetEnv DIR_SETENV psnosetup + </IfModule> + PerlSetEnv DIR_PERLSETENV psnosetup + </Location> + + # +SetupEnv should always populate %ENV fully prior + # to running the content handler (regardless of when + # $r->subprocess_env() was called) to ensure that + # %ENV is an accurate representation of the + # subprocess_env table + <Location /TestModperl__setupenv_psvoid> + SetHandler perl-script + PerlResponseHandler TestModperl::setupenv::env + + PerlHeaderParserHandler TestModperl::setupenv::subenv_void + PerlFixupHandler TestModperl::setupenv::subenv_two + + <IfModule mod_env.c> + SetEnv DIR_SETENV psvoid + </IfModule> + PerlSetEnv DIR_PERLSETENV psvoid + </Location> + + # equivalent to modperl handler with $r->subprocess_env() - + # CGI variables are there, but not subprocess_env entries + # that are populated after the void call + <Location /TestModperl__setupenv_psnosetupvoid> + SetHandler perl-script + PerlResponseHandler TestModperl::setupenv::someenv + + PerlOptions -SetupEnv + + PerlHeaderParserHandler TestModperl::setupenv::subenv_void + PerlFixupHandler TestModperl::setupenv::subenv_two + + <IfModule mod_env.c> + SetEnv DIR_SETENV psnosetupvoid + </IfModule> + PerlSetEnv DIR_PERLSETENV psnosetupvoid + </Location> +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestModperl/setupenv2.pm b/2_0_13/t/response/TestModperl/setupenv2.pm new file mode 100644 index 0000000..bb27314 --- /dev/null +++ b/2_0_13/t/response/TestModperl/setupenv2.pm
@@ -0,0 +1,135 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::setupenv2; + +# Test the mixing of PerlSetEnv in httpd.conf and %ENV of the same +# key in PerlRequire, PerlConfigRequire, PerlPostConfigRequire and +# <Perl> sections + +use strict; +use warnings FATAL => 'all'; + +use Apache2::Const -compile => qw(OK OR_ALL NO_ARGS); + +use Apache2::CmdParms (); +use Apache2::Module (); +use Apache2::RequestIO (); +use Apache2::RequestRec (); + +my @directives = ( + { + name => 'MyEnvRegister', + func => __PACKAGE__ . '::MyEnvRegister', + req_override => Apache2::Const::OR_ALL, + args_how => Apache2::Const::NO_ARGS, + errmsg => 'cannot fail :)', + }, +); + +Apache2::Module::add(__PACKAGE__, \@directives); + +# testing PerlLoadModule +$ENV{EnvChangeMixedTest} = 'loadmodule'; +$ENV{EnvChangePerlTest} = 'loadmodule'; + +sub MyEnvRegister { + register_mixed(); +} + +sub register_mixed { + push @TestModperl::setupenv2::EnvChangeMixedTest, + $ENV{EnvChangeMixedTest} || 'notset'; +} + +sub register_perl { + push @TestModperl::setupenv2::EnvChangePerlTest, + $ENV{EnvChangePerlTest} || 'notset'; +} + +sub get_config { + my ($self, $s) = (shift, shift); + Apache2::Module::get_config($self, $s, @_); +} + +sub handler { + my ($r) = @_; + + my $args = $r->args || ''; + + $r->content_type('text/plain'); + + if ($args eq 'mixed') { + my @vals = (@TestModperl::setupenv2::EnvChangeMixedTest, + $ENV{EnvChangeMixedTest}); # what's the latest env value + $r->print(join " ", @vals); + } + elsif ($args eq 'perl') { + my @vals = (@TestModperl::setupenv2::EnvChangePerlTest, + $ENV{EnvChangePerlTest}); # what's the latest env value + $r->print(join " ", @vals); + } + else { + die "no such case"; + } + + return Apache2::Const::OK; +} + +1; +__END__ + +# APACHE_TEST_CONFIG_ORDER 950 + +<NoAutoConfig> +PerlLoadModule TestModperl::setupenv2 +MyEnvRegister + +PerlSetEnv EnvChangeMixedTest "conf1" + +<Perl > +TestModperl::setupenv2::register_mixed(); +TestModperl::setupenv2::register_perl(); +$ENV{EnvChangeMixedTest} = "<perl>"; +$ENV{EnvChangePerlTest} = "<perl>"; +</Perl> +MyEnvRegister + +PerlSetEnv EnvChangeMixedTest "conf2" + +PerlRequire "@documentroot@/modperl/setupenv2/require.pl" +MyEnvRegister + +PerlSetEnv EnvChangeMixedTest "conf3" + +PerlConfigRequire "@documentroot@/modperl/setupenv2/config_require.pl" +MyEnvRegister + +PerlSetEnv EnvChangeMixedTest "conf4" + +PerlModule htdocs::modperl::setupenv2::module +MyEnvRegister + +PerlSetEnv EnvChangeMixedTest "conf5" +MyEnvRegister + +PerlPostConfigRequire "@documentroot@/modperl/setupenv2/post_config_require.pl" +MyEnvRegister + +PerlSetEnv EnvChangeMixedTest "conf6" +MyEnvRegister + +PerlSetEnv EnvChangeMixedTest "conf7" +MyEnvRegister + +<Location /TestModperl__setupenv2> + SetHandler modperl + PerlResponseHandler TestModperl::setupenv2 +</Location> + +PerlSetEnv EnvChangeMixedTest "conf8" + +# Since PerlPostConfigRequire runs in the post-config phase it will +# see 'conf8'. And when it sets that value to 'post_config_require' at +# request time $ENV{EnvChangeMixedTest} will see the value set by +# PerlPostConfigRequire. + +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestModperl/status.pm b/2_0_13/t/response/TestModperl/status.pm new file mode 100644 index 0000000..26964db --- /dev/null +++ b/2_0_13/t/response/TestModperl/status.pm
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::status; + +use strict; +use warnings; + +use Apache2::RequestRec; +use Apache2::Const -compile => qw(DECLINED); + +use ModPerl::Util; +use Apache::TestUtil qw(t_server_log_error_is_expected); + +sub handler { + + my $rc = shift->args; + + if ($rc eq 'die' || + $rc eq Apache2::Const::DECLINED || + $rc =~ m/foo/) { + t_server_log_error_is_expected(); + } + + ModPerl::Util::exit if $rc eq 'exit'; + + die if $rc eq 'die'; + + return if $rc eq 'undef'; + + return $rc; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestModperl/stdfd.pm b/2_0_13/t/response/TestModperl/stdfd.pm new file mode 100644 index 0000000..906bbaf --- /dev/null +++ b/2_0_13/t/response/TestModperl/stdfd.pm
@@ -0,0 +1,41 @@ +package TestModperl::stdfd; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache2::Const -compile => 'OK'; + +sub fixup { + my $r = shift; + + $r->handler($r->main ? 'perl-script' : 'modperl'); + return Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + return Apache2::Const::OK if $r->main; + + my @fds=(fileno(STDIN), fileno(STDOUT)); + + $r->lookup_uri($r->uri)->run; + + $r->print("1..2\n"); + $r->print((fileno(STDIN)==$fds[0] ? '' : 'not '). + "ok 1 - fileno(STDIN)=".fileno(STDIN)." expected $fds[0]\n"); + $r->print((fileno(STDOUT)==$fds[1] ? '' : 'not '). + "ok 2 - fileno(STDOUT)=".fileno(STDOUT)." expected $fds[1]\n"); + + return Apache2::Const::OK; +} + +1; +__DATA__ +PerlModule TestModperl::stdfd +PerlFixupHandler TestModperl::stdfd::fixup +PerlResponseHandler TestModperl::stdfd
diff --git a/2_0_13/t/response/TestModperl/stdfd2.pm b/2_0_13/t/response/TestModperl/stdfd2.pm new file mode 100644 index 0000000..b99ccf1 --- /dev/null +++ b/2_0_13/t/response/TestModperl/stdfd2.pm
@@ -0,0 +1,44 @@ +package TestModperl::stdfd2; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::SubRequest (); + +use Apache2::Const -compile => 'OK'; + +sub fixup { + my $r = shift; + + $r->handler($r->main ? 'perl-script' : 'modperl'); + return Apache2::Const::OK; +} + +sub handler { + my $r = shift; + + return Apache2::Const::OK if $r->main; + + local *STDIN; + open STDIN, '<', $INC{'TestModperl/stdfd2.pm'} + or die "Cannot open $INC{'TestModperl/stdfd2.pm'}"; + scalar readline STDIN for(1..2); + + my $expected=$.; + + $r->lookup_uri($r->uri)->run; + + $r->print("1..1\n"); + $r->print(($.==$expected ? '' : 'not '). + "ok 1 - \$.=$. expected $expected\n"); + + return Apache2::Const::OK; +} + +1; +__DATA__ +PerlModule TestModperl::stdfd2 +PerlFixupHandler TestModperl::stdfd2::fixup +PerlResponseHandler TestModperl::stdfd2
diff --git a/2_0_13/t/response/TestModperl/subenv.pm b/2_0_13/t/response/TestModperl/subenv.pm new file mode 100644 index 0000000..bd02d4b --- /dev/null +++ b/2_0_13/t/response/TestModperl/subenv.pm
@@ -0,0 +1,118 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::subenv; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec (); +use APR::Table (); + +use Apache::Test; + +use Apache2::Const -compile => 'OK'; + +sub handler { + + my $r = shift; + + plan $r, tests => 31; + + # subprocess_env in void context with arguments does + # nothing to %ENV + { + my $env = $r->subprocess_env; + + my $key = 'ONCE'; + + ok_false($r, $key); + + $r->subprocess_env($key => 1); # void context but with args + + ok_true($r, $key); + + ok ! $ENV{$key}; # %ENV not populated yet + } + + # subprocess_env in void context with no arguments + # populates the same as +SetEnv + { + my $env = $r->subprocess_env; + + my $key = 'REMOTE_ADDR'; + + ok_false($r, $key); # still not not there yet + + ok ! $ENV{$key}; # %ENV not populated yet + + $r->subprocess_env; # void context with no arguments + + ok_true($r, $key); + + ok $ENV{$key}; # mod_cgi emulation + } + + # handlers can use a void context more than once to force + # population of %ENV with new table entries + { + my $env = $r->subprocess_env; + + my $key = 'AGAIN'; + + $env->set($key => 1); # new table entry + + ok_true($r, $key); + + ok ! $ENV{$key}; # shouldn't affect %ENV yet + + $r->subprocess_env; # now called in in void context twice + + ok $ENV{$key}; # so %ENV is populated with new entry + } + + { + my $env = $r->subprocess_env; # table may have been overlayed + + my $key = 'FOO'; + + $env->set($key => 1); # direct call to set() + + ok_true($r, $key); + + ok ! $ENV{$key}; # shouldn't affect %ENV + + $r->subprocess_env($key => undef); + + ok_false($r, $key); # removed + + $r->subprocess_env($key => 1); + + ok_true($r, $key); # reset + + ok ! $ENV{$key}; # still shouldn't affect %ENV + } + + Apache2::Const::OK; +} + +sub ok_true { + my ($r, $key) = @_; + + my $env = $r->subprocess_env; + ok $env->get($key); + ok $env->{$key}; + ok $r->subprocess_env($key); +} + +sub ok_false { + my ($r, $key) = @_; + + my $env = $r->subprocess_env; + ok ! $env->get($key); + ok ! $env->{$key}; + ok ! $r->subprocess_env($key); +} + +1; +__END__ +PerlOptions -SetupEnv +
diff --git a/2_0_13/t/response/TestModperl/taint.pm b/2_0_13/t/response/TestModperl/taint.pm new file mode 100644 index 0000000..090c524 --- /dev/null +++ b/2_0_13/t/response/TestModperl/taint.pm
@@ -0,0 +1,41 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::taint; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestIO (); +use Apache2::RequestUtil (); +use Apache2::Build (); + +use Apache2::Const -compile => 'OK'; + +my $build = Apache2::Build->build_config; + +sub handler { + my $r = shift; + + my $tests = $build->{MP_COMPAT_1X} ? 4 : 2; + + plan $r, tests => $tests; + + ok t_cmp(${^TAINT}, 1, "\${^TAINT}"); + + eval { ${^TAINT} = 0 }; + ok t_cmp($@, qr/read-only/, "\${^TAINT} is read-only"); + + if ($build->{MP_COMPAT_1X}) { + ok t_cmp($Apache2::__T, 1, "\$Apache2::__T"); + + eval { $Apache2::__T = 0 }; + ok t_cmp($@, qr/read-only/, "\$Apache2::__T is read-only"); + } + + Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestModperl/util.pm b/2_0_13/t/response/TestModperl/util.pm new file mode 100644 index 0000000..d622992 --- /dev/null +++ b/2_0_13/t/response/TestModperl/util.pm
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModperl::util; + +# Modperl::Util tests + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use ModPerl::Util (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 1; + + ok t_cmp ModPerl::Util::current_perl_id(), qr/0x\w+/, + "perl interpreter id"; + + Apache2::Const::OK; +} + +1; +__END__
diff --git a/2_0_13/t/response/TestModules/cgi.pm b/2_0_13/t/response/TestModules/cgi.pm new file mode 100644 index 0000000..7fcf883 --- /dev/null +++ b/2_0_13/t/response/TestModules/cgi.pm
@@ -0,0 +1,58 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModules::cgi; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::compat (); +use CGI (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + unless ($ENV{MOD_PERL}) { + die "\$ENV{MOD_PERL} is not set"; + } + + unless ($ENV{MOD_PERL_API_VERSION} == 2) { + die "\$ENV{MOD_PERL_API_VERSION} is not set"; + } + + if ($CGI::Q) { + die "CGI.pm globals were not reset"; + } + + unless ($CGI::MOD_PERL) { + die "CGI.pm does not think this is mod_perl"; + } + + my $cgi = CGI->new; + + my $param = $cgi->param('PARAM'); + my $httpupload = $cgi->param('HTTPUPLOAD'); + + print $cgi->header('-type' => 'text/test-output', + '-X-Perl-Module' => __PACKAGE__); + + if ($httpupload) { + no strict; + local $/; + my $content = <$httpupload>; + print "ok $content"; + } + elsif ($param) { + print "ok $param"; + } + else { + print "no param or upload data\n"; + } + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script +PerlOptions -SetupEnv
diff --git a/2_0_13/t/response/TestModules/cgi2.pm b/2_0_13/t/response/TestModules/cgi2.pm new file mode 100644 index 0000000..8d87638 --- /dev/null +++ b/2_0_13/t/response/TestModules/cgi2.pm
@@ -0,0 +1,59 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModules::cgi2; + +# this handler doesn't use the :Apache layer, so CGI.pm needs to do +# $r->read(...) instead of read(STDIN,...) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::compat (); +use CGI (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + unless ($ENV{MOD_PERL}) { + die "\$ENV{MOD_PERL} is not set"; + } + + unless ($ENV{MOD_PERL_API_VERSION} == 2) { + die "\$ENV{MOD_PERL_API_VERSION} is not set"; + } + + if ($CGI::Q) { + die "CGI.pm globals were not reset"; + } + + unless ($CGI::MOD_PERL) { + die "CGI.pm does not think this is mod_perl"; + } + + my $cgi = CGI->new($r); + + my $param = $cgi->param('PARAM'); + my $httpupload = $cgi->param('HTTPUPLOAD'); + + $r->print($cgi->header('-type' => 'text/test-output', + '-X-Perl-Module' => __PACKAGE__)); + + if ($httpupload) { + no strict; + local $/; + my $content = <$httpupload>; + $r->print("ok $content"); + } + elsif ($param) { + $r->print("ok $param"); + } + else { + $r->print("no param or upload data\n"); + } + + Apache2::Const::OK; +} + +1; +
diff --git a/2_0_13/t/response/TestModules/cgipost.pm b/2_0_13/t/response/TestModules/cgipost.pm new file mode 100644 index 0000000..48c0820 --- /dev/null +++ b/2_0_13/t/response/TestModules/cgipost.pm
@@ -0,0 +1,26 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModules::cgipost; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::compat (); +use CGI (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + my $cgi = CGI->new; + + print join ":", map { $cgi->param($_) } $cgi->param; + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script +PerlOptions +GlobalRequest
diff --git a/2_0_13/t/response/TestModules/cgipost2.pm b/2_0_13/t/response/TestModules/cgipost2.pm new file mode 100644 index 0000000..57dc9fe --- /dev/null +++ b/2_0_13/t/response/TestModules/cgipost2.pm
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModules::cgipost2; + +# this handler doesn't use the :Apache layer, so CGI.pm needs to do +# $r->read(...) instead of read(STDIN,...) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::compat (); +use CGI (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + my $cgi = CGI->new($r); + + $r->print(join ":", map { $cgi->param($_) } $cgi->param); + + Apache2::Const::OK; +} + +1; +__END__ +
diff --git a/2_0_13/t/response/TestModules/cgiupload.pm b/2_0_13/t/response/TestModules/cgiupload.pm new file mode 100644 index 0000000..7952268 --- /dev/null +++ b/2_0_13/t/response/TestModules/cgiupload.pm
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModules::cgiupload; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::compat (); +use CGI (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $cgi = CGI->new; + + my $file = $cgi->param('filename'); + + while (<$file>) { + print; + } + + Apache2::Const::OK; +} + +1; +__END__ +SetHandler perl-script +PerlOptions +GlobalRequest
diff --git a/2_0_13/t/response/TestModules/cgiupload2.pm b/2_0_13/t/response/TestModules/cgiupload2.pm new file mode 100644 index 0000000..3c4a522 --- /dev/null +++ b/2_0_13/t/response/TestModules/cgiupload2.pm
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModules::cgiupload2; + +# this handler doesn't use the :Apache layer, so CGI.pm needs to do +# $r->read(...) instead of read(STDIN,...) + +use strict; +use warnings FATAL => 'all'; + +use Apache2::compat (); +use CGI (); + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + my $cgi = CGI->new($r); + + local $\; + local $/; + my $file = $cgi->param('filename'); + $r->print(<$file>); + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestModules/include_subreq.pm b/2_0_13/t/response/TestModules/include_subreq.pm new file mode 100644 index 0000000..cf2bc2c --- /dev/null +++ b/2_0_13/t/response/TestModules/include_subreq.pm
@@ -0,0 +1,78 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModules::include_subreq; + +# this test calls a simple response handler, whose output includes a +# simple SSI directive, processed by the INCLUDES output filter, which +# triggers another response handler, which again returns an SSI +# directive, again processed by INCLUDES, which again calls a response +# handler +# +# main +# resp => INCLUDES => => client +# => 1st => +# subreq => INCLUDES => => +# response => => +# => 2nd => +# subreq => +# response +# +# +# +# here we test whether :Apache perlio (STDOUT) is reentrant, since the test +# overrides STDOUT 3 times, recursively. + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestTrace; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + $r->content_type('text/plain'); + + my $path_info = $r->path_info || ''; + my $uri = $r->uri; + + debug "uri: $uri, path_info: $path_info"; + + if ($path_info eq '/one') { + $uri =~ s/one/two/; + print qq[subreq <!--#include virtual="$uri" -->ok]; + } + elsif ($path_info eq '/two') { + $uri = "/TestModules__include_subreq_dup/three"; + #$uri =~ s/two/three/; + print qq[is <!--#include virtual="$uri" -->]; + #print "is"; + } + elsif ($path_info eq '/three') { + print "quite "; + } + else { + die "something is wrong, didn't get path_info"; + } + + Apache2::Const::OK; +} + +1; +__END__ +# notice that perl-script is used on purpose here - testing whether +# :Apache perlio is reentrant (SetHandler modperl doesn't go through +# :Apache perlio layer) +SetHandler perl-script +PerlSetOutputFilter INCLUDES +Options +IncludesNoExec +<Base> +# it's silly that we have to duplicate the resource, but mod_include +# otherwise thinks we have a recursive call loop +<Location /TestModules__include_subreq_dup> + PerlSetOutputFilter INCLUDES + Options +IncludesNoExec + SetHandler perl-script + PerlResponseHandler TestModules::include_subreq +</Location> +</Base>
diff --git a/2_0_13/t/response/TestModules/proxy.pm b/2_0_13/t/response/TestModules/proxy.pm new file mode 100644 index 0000000..178ce69 --- /dev/null +++ b/2_0_13/t/response/TestModules/proxy.pm
@@ -0,0 +1,77 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestModules::proxy; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; + +use Apache2::ServerRec (); +use Apache2::RequestRec (); +use Apache2::RequestIO (); + +my $uri_real = "/TestModules__proxy_real"; + +use Apache2::Const -compile => qw(DECLINED OK PROXYREQ_REVERSE); + +sub proxy { + my $r = shift; + + return Apache2::Const::DECLINED if $r->proxyreq; + return Apache2::Const::DECLINED unless $r->uri eq '/TestModules__proxy'; + + my $s = $r->server; + my $real_url = sprintf "http://%s:%d%s", + $s->server_hostname, $s->port, $uri_real; + + $r->proxyreq(Apache2::Const::PROXYREQ_REVERSE); + $r->uri($real_url); + $r->filename("proxy:$real_url"); + $r->handler('proxy-server'); + + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + $r->content_type('text/plain'); + $r->print("ok"); + + return Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> + <VirtualHost TestModules::proxy> + <IfModule mod_proxy.c> + <Proxy http://@servername@:@port@/*> + <IfModule mod_version.c> + <IfVersion < 2.3.0> + <IfModule @ACCESS_MODULE@> + Order Deny,Allow + Deny from all + Allow from @servername@ + </IfModule> + </IfVersion> + <IfVersion > 2.4.1> + <IfModule mod_access_compat.c> + Order Deny,Allow + Deny from all + Allow from @servername@ + </IfModule> + </IfVersion> + </IfModule> + </Proxy> + + PerlModule TestModules::proxy + PerlTransHandler TestModules::proxy::proxy + <Location /TestModules__proxy_real> + SetHandler modperl + PerlResponseHandler TestModules::proxy::response + </Location> + </IfModule> + </VirtualHost> +</NoAutoConfig> +
diff --git a/2_0_13/t/response/TestPerl/api.pm b/2_0_13/t/response/TestPerl/api.pm new file mode 100644 index 0000000..c034f08 --- /dev/null +++ b/2_0_13/t/response/TestPerl/api.pm
@@ -0,0 +1,54 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestPerl::api; + +# some perl APIs that we need to test that they work alright under mod_perl + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use Apache2::Build; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + # - XXX: with perl 5.6.1 this test works fine on its own, but if + # run in the same interpreter after a test that involves a complex die + # call, as in the case of t/filter/in_error, which dies inside a + # filter, perl gets messed up here. this can be reproduced by + # running: + # t/TEST -maxclients 1 t/filter/in_error.t t/perl/api.t + # so skip that test for now on 5.6 + # + # - win32 is an unrelated issue + plan $r, tests => 2, + need { "getppid() is not implemented on Win32" + => !Apache2::Build::WIN32(), + "getppid() is having problems with perl 5.6" + => !($] < 5.008), + }; + + { + # 5.8.1 w/ ithreads has a bug where it caches ppid in PL_ppid, + # but updates the record only if perl's fork is called, which + # is not the case with mod_perl. This results in getppid() + # returning 1. A local workaround in the mod_perl source at + # the child_init phase fixes the problem. + my $ppid = getppid(); + t_debug "ppid $ppid"; + ok $ppid > 1; + + # verify that $pid != $ppid + t_debug "pid $$"; + ok $ppid != $$; + } + + Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestPerl/hash_attack.pm b/2_0_13/t/response/TestPerl/hash_attack.pm new file mode 100644 index 0000000..e76b432 --- /dev/null +++ b/2_0_13/t/response/TestPerl/hash_attack.pm
@@ -0,0 +1,187 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestPerl::hash_attack; + +# if the rehashing of the keys in the stash happens due to the hash attack, +# mod_perl must not fail to find the previously cached stash entry (response +# and fixup handlers in this test). Moreover it must not fail to find +# that entry on the subsequent requests. +# +# the hash attack is detected when HV_MAX_LENGTH_BEFORE_REHASH keys find +# themselves in the same hash bucket on splitting (which happens when the +# number of keys crosses the threshold of a power of 2), in which case +# starting from 5.8.2 the hash will rehash all its keys using a random hash +# seed (PL_new_hash_seed, set in mod_perl or via PERL_HASH_SEED environment +# variable) +# +# Prior to the attack condition hashes use the PL_hash_seed, which is +# always 0. +# +# only in 5.8.1 hashes always use a non-zero PL_hash_seed (unless set +# to 0 via PERL_HASH_SEED environment variable or compiled without +# -DUSE_HASH_SEED or -DUSE_HASH_SEED_EXPLICIT + +use strict; +use warnings FATAL => 'all'; + +use Apache::TestTrace; + +use Apache2::Const -compile => 'OK'; + +use Math::BigInt; + +use constant MASK_U32 => 2**32; +use constant HASH_SEED => 0; # 5.8.2: always zero before the rehashing +use constant THRESHOLD => 14; #define HV_MAX_LENGTH_BEFORE_(SPLIT|REHASH) +use constant START => "a"; + +# create conditions which will trigger a rehash on the current stash +# (__PACKAGE__::). Relevant for perl 5.8.2 and higher. +sub init { + my $r = shift; + + no strict 'refs'; + my @attack_keys = attack(\%{__PACKAGE__ . "::"}) if $] >= 5.008002; + + # define a new symbol (sub) after the attack has caused a re-hash + # check that mod_perl finds that symbol (fixup2) in the stash + no warnings 'redefine'; + eval qq[sub fixup2 { return Apache2::Const::OK; }]; + $r->push_handlers(PerlFixupHandler => \&fixup2); + + return Apache2::Const::DECLINED; +} + +sub fixup { return Apache2::Const::OK; } + +sub handler { + my $r = shift; + $r->print("ok"); + return Apache2::Const::OK; +} + +sub buckets { scalar(%{$_[0]}) =~ m#/([0-9]+)\z# ? 0+$1 : 8 } + +sub attack { + my $stash = shift; + + #require Hash::Util; # avail since 5.8.0 + debug "starting attack (it may take a long time!)"; + + my @keys; + + # the minimum of bits required to mount the attack on a hash + my $min_bits = log(THRESHOLD)/log(2); + + # if the hash has already been populated with a significant amount + # of entries the number of mask bits can be higher + my $keys = scalar keys %$stash; + my $bits = $keys ? log($keys)/log(2) : 0; + $bits = $min_bits if $min_bits > $bits; + + $bits = ceil($bits); + # need to add 3 bits to cover the internal split cases + $bits += 3; + my $mask = 2**$bits-1; + debug "mask: $mask ($bits)"; + + my $s = START; + my $c = 0; + # get 2 keys on top of the THRESHOLD + my $h; + while (@keys < THRESHOLD+2) { + next if exists $stash->{$s}; + $h = hash($s); + next unless ($h & $mask) == 0; + $c++; + $stash->{$s}++; + debug sprintf "%2d: %5s, %08x %s", $c, $s, $h, scalar(%$stash); + push @keys, $s; + debug "The hash collision attack has been successful" + if Internals::HvREHASH(%$stash); + } continue { + $s++; + } + + # If the rehash hasn't been triggered yet, it's being delayed until the + # next bucket split. Add keys until a split occurs. + unless (Internals::HvREHASH(%$stash)) { + debug "Will add padding keys until hash split"; + my $old_buckets = buckets($stash); + while (buckets($stash) == $old_buckets) { + next if exists $stash->{$s}; + $h = hash($s); + $c++; + $stash->{$s}++; + debug sprintf "%2d: %5s, %08x %s", $c, $s, $h, scalar(%$stash); + push @keys, $s; + debug "The hash collision attack has been successful" + if Internals::HvREHASH(%$stash); + $s++; + } + } + + # this verifies that the attack was mounted successfully. If + # HvREHASH is on it is. Otherwise the sequence wasn't successful. + die "Failed to mount the hash collision attack" + unless Internals::HvREHASH(%$stash); + + debug "ending attack"; + + return @keys; +} + +# least integer >= n +sub ceil { + my $value = shift; + return int($value) < $value ? int($value) + 1 : int($value); +} + +# trying to provide the fastest equivalent of C macro's PERL_HASH in +# Perl - the main complication is that the C macro uses U32 integer +# (unsigned int), which we can't do it Perl (it can do I32, with 'use +# integer'). So we outsmart Perl and take modules 2*32 after each +# calculation, emulating overflows that happen in C. +sub hash { + my $s = shift; + my @c = split //, $s; + my $u = HASH_SEED; + for (@c) { + # (A % M) + (B % M) == (A + B) % M + # This works because '+' produces a NV, which is big enough to hold + # the intermidiate result. We only need the % before any "^" and "&" + # to get the result in the range for an I32. + # and << doesn't work on NV, so using 1 << 10 + $u += ord; + $u += $u * (1 << 10); $u %= MASK_U32; + $u ^= $u >> 6; + } + $u += $u << 3; $u %= MASK_U32; + $u ^= $u >> 11; $u %= MASK_U32; + $u += $u << 15; $u %= MASK_U32; + $u; +} + +# a bit slower but simpler version +sub hash_original { + my $s = shift; + my @c = split //, $s; + my $u = HASH_SEED; + for (@c) { + $u += ord; $u %= MASK_U32; + $u += $u << 10; $u %= MASK_U32; + $u ^= $u >> 6; $u %= MASK_U32; + } + $u += $u << 3; $u %= MASK_U32; + $u ^= $u >> 11; $u %= MASK_U32; + $u += $u << 15; $u %= MASK_U32; + $u; +} + +1; + +__END__ +PerlModule TestPerl::hash_attack +PerlInitHandler TestPerl::hash_attack::init +# call twice to verify an access to the same hash value after the rehash +PerlFixupHandler TestPerl::hash_attack::fixup TestPerl::hash_attack::fixup +
diff --git a/2_0_13/t/response/TestPerl/ithreads.pm b/2_0_13/t/response/TestPerl/ithreads.pm new file mode 100644 index 0000000..84f11f6 --- /dev/null +++ b/2_0_13/t/response/TestPerl/ithreads.pm
@@ -0,0 +1,103 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestPerl::ithreads; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestTrace; + +use Apache2::Const -compile => 'OK'; + +# XXX: at this moment ithreads can be used only with 5.8.1. However +# once ithreads will be available on CPAN, we will need to change the +# check for perl 5.8.0 and this certain version of ithreads (here and +# in t/conf/post_config_startup.pl + +sub handler { + my $r = shift; + + plan $r, tests => 4, need + need_threads, + {"perl >= 5.8.1 is required (this is $])" => ($] >= 5.008001)}; + + # threads must have been preloaded at the server startup for this + # test (this is done at t/conf/post_config_startup.pl) + require threads; + threads->import(); + + # sky: the more modules are loaded, the slower new ithreads start + # because more things need to be cloned + debug '%INC size: ' . scalar(keys %INC) . "\n"; + + { + my $tid = threads->self->tid; + debug "1st TID is $tid" if defined $tid; + ok defined $tid; + } + + { + my $thr = threads->new(sub { + my $tid = threads->self->tid; + debug "2nd TID is $tid" if defined $tid; + return 2; + }); + ok t_cmp($thr->join, 2, "thread callback returned value"); + } + + { + require threads::shared; + my $counter_priv = 1; + my $counter_shar : shared = 1; + + my $thr = threads->new(sub { + my $tid = threads->self->tid; + debug "2nd TID is $tid" if defined $tid; + $counter_priv += $counter_priv for 1..10; + { + lock $counter_shar; + $counter_shar += $counter_shar for 1..10; + } + }); + + $counter_priv += $counter_priv for 1..10; + { + lock $counter_shar; + $counter_shar += $counter_shar for 1..10; + } + + $thr->join; + ok t_cmp($counter_shar, 2**20, "shared counter"); + ok t_cmp($counter_priv, 2**10, "private counter"); + } + + Apache2::Const::OK; +} + +1; + +__END__ +# APACHE_TEST_CONFIG_ORDER 941 + +<VirtualHost TestPerl::ithreads> + + <IfDefine PERL_USEITHREADS> + # a new interpreter pool + PerlOptions +Parent + PerlInterpStart 1 + PerlInterpMax 1 + PerlInterpMinSpare 1 + PerlInterpMaxSpare 1 + </IfDefine> + + # use test system's @INC + PerlSwitches -I@serverroot@ + PerlRequire "conf/modperl_inc.pl" + + <Location /TestPerl__ithreads> + SetHandler modperl + PerlResponseHandler TestPerl::ithreads + </Location> + +</VirtualHost>
diff --git a/2_0_13/t/response/TestPerl/ithreads3.pm b/2_0_13/t/response/TestPerl/ithreads3.pm new file mode 100644 index 0000000..3edae5e --- /dev/null +++ b/2_0_13/t/response/TestPerl/ithreads3.pm
@@ -0,0 +1,109 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestPerl::ithreads3; + +use strict; +use warnings FATAL => 'all'; + +use Apache2::RequestRec; +use Apache2::RequestIO; +use Apache2::RequestUtil; +use APR::Pool; +use Apache2::Const -compile => 'OK', 'DECLINED'; + +# XXX: These tests rely on the assumption that the virtual host is not +# otherwise accessed. In this case the same interpreter is chosen +# for each phase. The $counter counts them. +# Of course if only 1 interp is configured it must be hit each time. + +my $counter=0; + +sub response { + my $r=shift; + $r->content_type('text/plain'); + $r->print($counter); + return Apache2::Const::OK; +} + +sub count { $counter++; return Apache2::Const::DECLINED; } + +sub clear_pool { + delete $_[0]->pnotes->{my_pool}; + return Apache2::Const::DECLINED; +} + +sub trans { + my $r=shift; + my $test=$r->args; + $counter=0; + if( $test eq '1' ) { + # this is to check for a bug in modperl_response_handler versus + # modperl_response_handler_cgi. The former used to allocate an + # extra interpreter for its work. In both cases $counter should be + # 2 in the response phase + $r->push_handlers( PerlMapToStorageHandler=>__PACKAGE__.'::count' ); + $r->push_handlers( PerlFixupHandler=>__PACKAGE__.'::count' ); + } + elsif( $test eq '2' ) { + # now add an extra PerlCleanupHandler. It is run each time the + # interp is released. So it is run after Trans, MapToStorage and + # Fixup. In the response phase $counter should be 5. After Response + # it is run again but that is after. + # This used to eat up all interpreters because modperl_interp_unselect + # calls modperl_config_request_cleanup that allocates a new interp + # to handle the cleanup. When this interp is then unselected + # modperl_interp_unselect gets called again but the cleanup handler is + # still installed. So the cycle starts again until all interpreters + # are in use or the stack runs out. Then the thread is locked infinitely + # or a segfault appears. + $r->push_handlers( PerlMapToStorageHandler=>__PACKAGE__.'::count' ); + $r->push_handlers( PerlFixupHandler=>__PACKAGE__.'::count' ); + $r->push_handlers( PerlCleanupHandler=>__PACKAGE__.'::count' ); + } + elsif( $test eq '3' ) { + # a subpool adds an extra reference to the interp. So it is preserved + # and bound to the request until the pool is destroyed. So the cleanup + # handler is run only once after Fixup. Hence the counter is 3. + $r->push_handlers( PerlMapToStorageHandler=>__PACKAGE__.'::count' ); + $r->push_handlers( PerlFixupHandler=>__PACKAGE__.'::count' ); + $r->push_handlers( PerlCleanupHandler=>__PACKAGE__.'::count' ); + $r->pnotes->{my_pool}=$r->pool->new; + $r->push_handlers( PerlFixupHandler=>__PACKAGE__.'::clear_pool' ); + } + return Apache2::Const::DECLINED; +} + +1; + +__END__ +# APACHE_TEST_CONFIG_ORDER 942 + +<VirtualHost TestPerl::ithreads3> + + <IfDefine PERL_USEITHREADS> + # a new interpreter pool + PerlOptions +Parent + PerlInterpStart 3 + PerlInterpMax 3 + PerlInterpMinSpare 1 + PerlInterpMaxSpare 3 + # PerlInterpScope handler + </IfDefine> + + # use test system's @INC + PerlSwitches -I@serverroot@ + PerlRequire "conf/modperl_inc.pl" + PerlModule TestPerl::ithreads3 + + <Location /modperl> + SetHandler modperl + PerlResponseHandler TestPerl::ithreads3::response + </Location> + + <Location /perl-script> + SetHandler perl-script + PerlResponseHandler TestPerl::ithreads3::response + </Location> + + PerlTransHandler TestPerl::ithreads3::trans + +</VirtualHost>
diff --git a/2_0_13/t/response/TestPerl/ithreads_args.pm b/2_0_13/t/response/TestPerl/ithreads_args.pm new file mode 100644 index 0000000..b3e6eb8 --- /dev/null +++ b/2_0_13/t/response/TestPerl/ithreads_args.pm
@@ -0,0 +1,33 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestPerl::ithreads_args; + +# reproducing a bug in perl ithreads: [perl #34342] +# https://rt.perl.org/rt3/Ticket/Display.html?id=34342 +# +# here an unshifted $r (i.e. as it leaves @_ populated causes a scalar +# leak in the thread). + +use Devel::Peek; +use Apache::Test; + +sub handler { # XXX: unshifted $_[0] leaks scalar + #Dump $_[0]; + #my $r = shift; # shift removes the leak + my $r = $_[0]; + #Dump $r; # here PADBUSY,PADMY prevent the ithread from cloning it + + plan $r, tests => 1, need + need_threads, + {"perl >= 5.8.1 is required (this is $])" => ($] >= 5.008001)}; + + require threads; + + warn "\n*** The following leak is expected (perl bug #34342) ***\n"; + threads->new(sub {})->join; + + ok 1; + + return 0; +} + +1;
diff --git a/2_0_13/t/response/TestPerl/ithreads_eval.pm b/2_0_13/t/response/TestPerl/ithreads_eval.pm new file mode 100644 index 0000000..fe1b0af --- /dev/null +++ b/2_0_13/t/response/TestPerl/ithreads_eval.pm
@@ -0,0 +1,51 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestPerl::ithreads_eval; + +# reproducing a bug in perl ithreads: [perl #34341] +# https://rt.perl.org/rt3/Ticket/Display.html?id=34341 +# +# $thr->join triggers the following leak: +# - due to to local $0, (its second MAGIC's MG_OBJ, +# you can see it in the output of Dump $0). This leak was first +# spotted in the RegistryCooker.pm which localizes $0 + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Devel::Peek; + +use Apache2::Const -compile => 'OK'; + +sub handler { + my $r = shift; + + plan $r, tests => 1, need + need_threads, + {"perl >= 5.8.1 is required (this is $])" => ($] >= 5.008001)}; + + require threads; + + eval <<'EOI'; +sub mytest { + local $0 = 'mememe'; # <== XXX: leaks scalar + my $thr; + $thr = threads->new(\&mythread); + $thr->join; # <== XXX: triggers scalar leak +} +sub mythread { + #Dump $0; +} +EOI + + warn "\n*** The following leak is expected (perl bug #34341) ***\n"; + mytest(); + + ok 1; + + return Apache2::Const::OK; +} + +1;
diff --git a/2_0_13/t/response/TestPerl/signals.pm b/2_0_13/t/response/TestPerl/signals.pm new file mode 100644 index 0000000..2c08d43 --- /dev/null +++ b/2_0_13/t/response/TestPerl/signals.pm
@@ -0,0 +1,86 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestPerl::signals; + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; +use Apache2::BuildConfig; +use Apache::TestConfig; + +use Apache2::MPM (); + +use POSIX qw(SIGALRM); + +use constant OSX => Apache::TestConfig::OSX; + +use Apache2::Const -compile => qw(OK); + +my $mpm = lc Apache2::MPM->show; + +# signal handlers don't work anywhere but with prefork, since signals +# and threads don't mix +# moreover "unsafe"-non-POSIX sighandlers don't work under static prefork + +sub handler { + my $r = shift; + + my $build = Apache2::BuildConfig->new; + my $static = $build->should_build_apache ? 1 : 0; + + my $tests = $static ? 1 : 2; + + plan $r, tests => $tests, + need { "works only for prefork" => ($mpm eq 'prefork') }; + + # doesn't work under static prefork + if (!$static) { + if (OSX) { + skip "ALRM can't be used on darwin", 0; + } + else { + local $ENV{PERL_SIGNALS} = "unsafe"; + + eval { + local $SIG{ALRM} = sub { die "alarm" }; + alarm 2; + run_for_5_sec(); + alarm 0; + }; + ok t_cmp $@, qr/alarm/, "SIGALRM / unsafe %SIG"; + } + } + + # POSIX::sigaction doesn't work under 5.6.x + if ($] >= 5.008) { + my $mask = POSIX::SigSet->new( SIGALRM ); + my $action = POSIX::SigAction->new(sub { die "alarm" }, $mask); + my $oldaction = POSIX::SigAction->new(); + POSIX::sigaction(SIGALRM, $action, $oldaction ); + eval { + alarm 2; + run_for_5_sec(); + alarm 0; + }; + POSIX::sigaction(SIGALRM, $oldaction); # restore original + + ok t_cmp $@, qr/alarm/, "SIGALRM / POSIX"; + } + else { + skip "POSIX::sigaction doesn't work under 5.6.x", 0; + } + + return Apache2::Const::OK; +} + +sub run_for_5_sec { + for (1..20) { # ~5 sec + my $x = 3**20; + select undef, undef, undef, 0.25; + } +} + +1; + +__END__
diff --git a/2_0_13/t/response/TestUser/rewrite.pm b/2_0_13/t/response/TestUser/rewrite.pm new file mode 100644 index 0000000..0416612 --- /dev/null +++ b/2_0_13/t/response/TestUser/rewrite.pm
@@ -0,0 +1,76 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestUser::rewrite; + +# test here the technique of rewriting the URI namespace and +# pushing/changing the query string (args). Note that in this test we +# use a custom maptostorage handler so Apache won't complain that we +# didn't set r->filename in the core maptostorage handler. the custom +# handler simply shortcuts that phase, with the added benefit of +# skipping the ap_directory_walk's stat() calls which speeds up the +# whole thing. +# +# an alternative solution is to return Apache2::Const::DECLINED from the trans +# handler, in which case map2storage is not required (but it'll do a +# bunch of stat() calls then, which you may want to avoid) + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestRec (); +use Apache2::RequestIO (); +use Apache2::URI (); + +use Apache2::Const -compile => qw(DECLINED OK); + +my $uri_real = "/TestUser__rewrite_real"; +my $args_real = "foo=bar&boo=tar"; + +sub trans { + my $r = shift; + + return Apache2::Const::DECLINED unless $r->uri eq '/TestUser__rewrite'; + + $r->uri($uri_real); + $r->args($args_real); + + return Apache2::Const::OK; +} + +sub map2storage { + my $r = shift; + + return Apache2::Const::DECLINED unless $r->uri eq $uri_real; + + # skip ap_directory_walk stat() calls + return Apache2::Const::OK; +} + +sub response { + my $r = shift; + + plan $r, tests => 1; + + my $args = $r->args(); + + ok t_cmp($args, $args_real, "args"); + + return Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> + <VirtualHost TestUser::rewrite> + PerlModule TestUser::rewrite + PerlTransHandler TestUser::rewrite::trans + PerlMapToStorageHandler TestUser::rewrite::map2storage + <Location /TestUser__rewrite_real> + SetHandler modperl + PerlResponseHandler TestUser::rewrite::response + </Location> + </VirtualHost> +</NoAutoConfig> +
diff --git a/2_0_13/t/response/TestVhost/config.pm b/2_0_13/t/response/TestVhost/config.pm new file mode 100644 index 0000000..4a581b6 --- /dev/null +++ b/2_0_13/t/response/TestVhost/config.pm
@@ -0,0 +1,72 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestVhost::config; + +# Test whether under threaded mpms (and not) a vhost with 'PerlOptions +# +Parent', can run <Perl> sections, which call into config again via +# add_config(). + +use strict; +use warnings FATAL => 'all'; + +use Apache::Test; +use Apache::TestUtil; + +use Apache2::RequestUtil (); +use APR::Table (); + +use File::Spec::Functions qw(canonpath catdir); + +use Apache2::Const -compile => 'OK'; + +# initialized in t/htdocs/vhost/post_config.pl +our $restart_count; + +# using a different from 'handler' name on purpose, to make sure +# that the module is preloaded at the server startup +sub my_handler { + my $r = shift; + + plan $r, tests => 2; + + { + my $expected = $r->document_root; + my $received = $r->dir_config->get('DocumentRootCheck'); + ok t_cmp(canonpath($received), canonpath($expected), "DocumentRoot"); + } + + { + ok t_cmp($restart_count, 2, "PerlPostConfigRequire"); + } + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +<VirtualHost TestVhost::config> + DocumentRoot @documentroot@/vhost + + <IfDefine PERL_USEITHREADS> + # a new interpreter pool + PerlOptions +Parent + PerlInterpStart 1 + PerlInterpMax 1 + PerlInterpMinSpare 1 + PerlInterpMaxSpare 1 + </IfDefine> + + # use test system's @INC + PerlSwitches -I@serverroot@ + + # mp2 modules + PerlRequire "@serverroot@/conf/modperl_inc.pl" + + # private to this vhost stuff + PerlRequire "@documentroot@/vhost/startup.pl" + PerlPostConfigRequire "@documentroot@/vhost/post_config.pl" + + # <Location /TestVhost__config> container is added via add_config + # in t/htdocs/vhost/startup.pl +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/response/TestVhost/log.pm b/2_0_13/t/response/TestVhost/log.pm new file mode 100644 index 0000000..2bbf438 --- /dev/null +++ b/2_0_13/t/response/TestVhost/log.pm
@@ -0,0 +1,99 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package TestVhost::log; + +# testing that the warn and other logging functions are writing into +# the vhost error_log and not the main one. + +use strict; +use warnings; +# don't use: +# use warnings FATAL => 'all'; +# here as it breaks the $SIG{__WARN__} sub test for perl 5.6, though +# it works fine with perl 5.8+ + +use Apache2::RequestUtil (); +use Apache2::Log (); +use Apache2::ServerRec qw(warn); # override warn locally + +use File::Spec::Functions qw(catfile); + +use Apache::Test; +use Apache::TestUtil; +use TestCommon::LogDiff; + +use Apache2::Const -compile => 'OK'; + +my @methods1 = ( + '$r->log->warn', + '$r->log_error', + '$r->warn', + '$s->log->warn', + '$s->log_error', + '$s->warn', +); + +my @methods2 = ( + 'Apache2::ServerRec::warn', + 'warn', +); + +my $path = catfile Apache::Test::vars('documentroot'), + qw(vhost error_log); + +sub handler { + my $r = shift; + + plan $r, tests => 1 + @methods1 + @methods2; + + my $s = $r->server; + my $logdiff = TestCommon::LogDiff->new($path); + + ### $r|$s logging + for my $m (@methods1) { + eval "$m(q[$m])"; + ok t_cmp $logdiff->diff, qr/\Q$m/, $m; + } + + ### object-less logging + # set Apache2::RequestUtil->request($r) instead of using + # PerlOptions +GlobalRequest + # in order to make sure that the above tests work fine, + # w/o having the global request set + Apache2::RequestUtil->request($r); + for my $m (@methods2) { + eval "$m(q[$m])"; + ok t_cmp $logdiff->diff, qr/\Q$m/, $m; + } + + # internal warnings (also needs +GlobalRequest) + { + no warnings; # avoid FATAL warnings + use warnings; + local $SIG{__WARN__} = \&Apache2::ServerRec::warn; + eval q[my $x = "aaa" + 1;]; + ok t_cmp + $logdiff->diff, + qr/Argument "aaa" isn't numeric in addition/, + "internal warning"; + } + + # die logs into the vhost log just fine + #die "horrible death!"; + + Apache2::Const::OK; +} + +1; +__END__ +<NoAutoConfig> +<VirtualHost TestVhost::log> + DocumentRoot @documentroot@/vhost + ErrorLog @documentroot@/vhost/error_log + + <Location /TestVhost__log> + SetHandler modperl + PerlResponseHandler TestVhost::log + </Location> + +</VirtualHost> +</NoAutoConfig>
diff --git a/2_0_13/t/user/README b/2_0_13/t/user/README new file mode 100644 index 0000000..7e2e782 --- /dev/null +++ b/2_0_13/t/user/README
@@ -0,0 +1,2 @@ +This directory contains userspace tests, such as those that excercise +non-unit, multiple-API tests, or Apache integration tests, etc.
diff --git a/2_0_13/t/user/rewrite.t b/2_0_13/t/user/rewrite.t new file mode 100644 index 0000000..64afec6 --- /dev/null +++ b/2_0_13/t/user/rewrite.t
@@ -0,0 +1,13 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use strict; +use warnings FATAL => 'all'; + +use Apache::TestRequest qw(GET_BODY_ASSERT); +use Apache::Test; +use Apache::TestUtil; + +my $module = 'TestUser::rewrite'; +my $url = Apache::TestRequest::module2url($module); + +t_debug("connecting to $url"); +print GET_BODY_ASSERT $url;
diff --git a/2_0_13/t/vhost/config.t b/2_0_13/t/vhost/config.t new file mode 100644 index 0000000..36d1a49 --- /dev/null +++ b/2_0_13/t/vhost/config.t
@@ -0,0 +1,29 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# the handler is configured in modperl_extra.pl via +# Apache2::ServerUtil->server->add_config + +use Apache::Test; +use Apache::TestUtil; +use Apache::TestRequest 'GET'; + +my $module = 'TestVhost::config'; +my $url = Apache::TestRequest::module2url($module); + +t_debug("connecting to $url"); +my $res = GET $url; + +if ($res->is_success) { + print $res->content; +} +else { + if ($res->code == 404) { + my $docroot = Apache::Test::vars('documentroot'); + die "this test gets its <Location> configuration added via " . + "$docroot/vhost/startup.pl, this could be the cause " . + "of the failure"; + } + else { + die "server side has failed (response code: ", $res->code, "),\n", + "see t/logs/error_log for more details\n"; + } +}
diff --git a/2_0_13/t/vhost/log.t b/2_0_13/t/vhost/log.t new file mode 100644 index 0000000..3205905 --- /dev/null +++ b/2_0_13/t/vhost/log.t
@@ -0,0 +1,10 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use Apache::TestUtil; +use Apache::TestRequest 'GET_BODY_ASSERT'; + +my $module = 'TestVhost::log'; +my $url = Apache::TestRequest::module2url($module); + +t_debug("connecting to $url"); +print GET_BODY_ASSERT $url; +
diff --git a/2_0_13/todo/2.0.6 b/2_0_13/todo/2.0.6 new file mode 100644 index 0000000..d64c996 --- /dev/null +++ b/2_0_13/todo/2.0.6
@@ -0,0 +1,10 @@ +SHOW STOPPERS +==================== +- Windows Segfaults [needs windows developer owner, ] +- MANIFEST verifications [needs detail, ] +- rt.cpan.org PRs [pgollucci, phred, ] + +NICE TO HAVE +============= +- Smolder, https://issues.apache.org/jira/browse/INFRA-1612 [pgollucci, ] +
diff --git a/2_0_13/todo/README b/2_0_13/todo/README new file mode 100644 index 0000000..c87880d --- /dev/null +++ b/2_0_13/todo/README
@@ -0,0 +1,9 @@ +this directory contains notes on whats left to be done: + +release - showstopper issues for mod_perl 2.0 release + +features_* - + +bugs_* - + +docs - docs todo
diff --git a/2_0_13/todo/api_status b/2_0_13/todo/api_status new file mode 100644 index 0000000..22fd6a6 --- /dev/null +++ b/2_0_13/todo/api_status
@@ -0,0 +1,156 @@ +This file provides the status of the supported API, via the +API documentation files. + +col1 legend +----------- +-: not started/unknown ++: in process +V: done (for 2.0 release) +g = gozer at work + +col2 legend +----------- +-: not started/unknown +P: post 2.0 (has API to be polished after 2.0 release) +V: done completely + +- the file path is relative to the modperl-docs cvs repository +######################################################### +VV src/docs/2.0/api/Apache.pod +VV src/docs/2.0/api/Apache/Access.pod +VP src/docs/2.0/api/Apache/CmdParms.pod + context +VV src/docs/2.0/api/Apache/Command.pod +VP src/docs/2.0/api/Apache/Connection.pod + conn_config +VP src/docs/2.0/api/Apache/Const.pod + (this will never be complete, fill it in as we go) +VV src/docs/2.0/api/Apache/Directive.pod +VP src/docs/2.0/api/Apache/Filter.pod + The whole TIE interface +VV src/docs/2.0/api/Apache/FilterRec.pod +VV src/docs/2.0/api/Apache/HookRun.pod +VP src/docs/2.0/api/Apache/Log.pod + log_pid +VV src/docs/2.0/api/Apache/Module.pod +VV src/docs/2.0/api/Apache/PerlSections.pod +VV src/docs/2.0/api/Apache/Process.pod +VV src/docs/2.0/api/Apache/Reload.pod +VV src/docs/2.0/api/Apache/RequestIO.pod +VP src/docs/2.0/api/Apache/RequestRec.pod + allowed_methods + allowed_xmethods + content_languages (was in mp1, need to implement APR::ArrayHeader ) + request_config + used_path_info +VV src/docs/2.0/api/Apache/RequestUtil.pod +VP src/docs/2.0/api/Apache/Response.pod + send_error_response + send_mmap +VP src/docs/2.0/api/Apache/ServerRec.pod + addrs + lookup_defaults + module_config + names + wild_names +VP src/docs/2.0/api/Apache/ServerUtil.pod + error_log2stderr +VV src/docs/2.0/api/Apache/SubProcess.pod +VV src/docs/2.0/api/Apache/SubRequest.pod + internal_fast_redirect + lookup_dirent +VV src/docs/2.0/api/Apache/URI.pod +VV src/docs/2.0/api/Apache/Util.pod + +VV src/docs/2.0/api/ModPerl/Const.pod +VV src/docs/2.0/api/ModPerl/Global.pod +VV src/docs/2.0/api/ModPerl/Util.pod + +VV src/docs/2.0/api/APR.pod +VV src/docs/2.0/api/APR/Base64.pod +VV src/docs/2.0/api/APR/Brigade.pod +VP src/docs/2.0/api/APR/Bucket.pod + data + start +VV src/docs/2.0/api/APR/BucketAlloc.pod +VV src/docs/2.0/api/APR/BucketType.pod +VP src/docs/2.0/api/APR/Const.pod + (this will never be complete, fill it in as we go) +VV src/docs/2.0/api/APR/Date.pod +VV src/docs/2.0/api/APR/Error.pod +VV src/docs/2.0/api/APR/Finfo.pod +VV src/docs/2.0/api/APR/IpSubnet.pod +VV src/docs/2.0/api/APR/OS.pod ++V src/docs/2.0/api/APR/PerlIO.pod + (convert to use exceptions) +VP src/docs/2.0/api/APR/Pool.pod + cleanup_for_exec + (clean has some win32 problems) +VP src/docs/2.0/api/APR/SockAddr.pod + equal +VP src/docs/2.0/api/APR/Socket.pod + bind + close + connect + listen + recvfrom + sendto +VV src/docs/2.0/api/APR/String.pod +VV src/docs/2.0/api/APR/Table.pod +VP src/docs/2.0/api/APR/ThreadMutex.pod + DESTROY + lock + new + pool_get + trylock + unlock +VV src/docs/2.0/api/APR/URI.pod +VP src/docs/2.0/api/APR/Util.pod + filepath_name_get + password_get +VV src/docs/2.0/api/APR/UUID.pod + +##################### +### other modules ### +##################### + +VV src/docs/2.0/api/Apache/Status.pod +VV src/docs/2.0/api/Apache/SizeLimit.pod +VV src/docs/2.0/api/Apache/Resource.pod +VV src/docs/2.0/api/Apache/compat.pod +VV src/docs/2.0/api/Apache/porting.pod +-- src/docs/2.0/api/ModPerl/BuildMM.pod +-- src/docs/2.0/api/ModPerl/MM.pod +VV src/docs/2.0/api/ModPerl/MethodLookup.pod +-- src/docs/2.0/api/ModPerl/PerlRun.pod +-- src/docs/2.0/api/ModPerl/Registry.pod +-- src/docs/2.0/api/ModPerl/RegistryBB.pod +-- src/docs/2.0/api/ModPerl/RegistryCooker.pod +-- src/docs/2.0/api/ModPerl/RegistryLoader.pod + + +################################ +### Other API related things ### +################################ + +* the following accessors might be turned into read/write (they are + readonly at the moment). if you think that should be the case, + please document the change and hopefully add a new sub-test. + + conn_rec: + --------- + local_addr + remote_addr + remote_host + aborted + local_ip + local_host + + ap_directive_t: + --------------- + next + first_child + parent + filename + line_num +
diff --git a/2_0_13/todo/bugs_apr_ext b/2_0_13/todo/bugs_apr_ext new file mode 100644 index 0000000..33ff108 --- /dev/null +++ b/2_0_13/todo/bugs_apr_ext
@@ -0,0 +1,26 @@ +######################################## +# external (non-mod_perl) APR:: issues # +######################################## + +* As mike chamberlain told me over irc, apr-ext/perlio was faling for + him because of the modperl_perl_gensym not being resolved in + APR/PerlIO.so. I didn't see that error since on linux by default + symbols resolution is lazy and since that part of the api wasn't + tested I did see the problem. On MacOSX the loading is RTLD_NOW + (non-lazy) so it detects any missing symbols problems immediately. + + Luckily DynaLoader allows us to force the non-lazy mode by setting + an env var: PERL_DL_NONLAZY=1. We need to force this env variable on + when building with MP_MAINTAINER=1. I suppose that it should be + added to the autogenerated t/TEST and t/SMOKE. and to + t/conf/modperl_extra.pl ($ENV{PERL_DL_NONLAZY}=1) so it affects the + server-side as well as the client-side (normally env var aren't + propogated to the server). + +* APR::Pool relies on interpreter management function: + modperl_interp_unselect. At the moment I've worked around it by + defining an empty function in APR.xs. But a cleaner solution is + desirable. + +* modules that we need to add tests for in apr-ext: + APR::IpSubnet
diff --git a/2_0_13/todo/bugs_build b/2_0_13/todo/bugs_build new file mode 100644 index 0000000..9a1ca38 --- /dev/null +++ b/2_0_13/todo/bugs_build
@@ -0,0 +1,85 @@ +####################### +# Build/Startup Issue # +####################### + + +OS Ver Mod Comments +---------------------------------------------------------------------- +OpenBSD 2.9 DSO Builds but won't start, with segfaults in the + Perl lexer. I wasn't even able to start mp1-dso with + the customly built perl (tried 5.6.1 .. 5.9.0) + -- the segfault is again in lexer. It seems that + the standard OpenBSD perl package has been heavily + patched, when the core system perl 5.6.0 package was + built, since I can run 'make test' on mp1-dso, but not + with a customly built 5.6.0 with the same + options. Since 2.9 is no longer supported by OpenBSD, + there is no 5.6.1 or higher to try, so at this moment + we simply give up on 2.9. We think that the static mp2 + build should work just fine (once it's available). + +AIX 3.3 DSO Works with -berok to ignore linking errors (symbol + resolution). Should replace -berok with a proper + symbol resolution at linking time, but I had not much + success with using this approach (dlopen fails). + +AIX 4.3.3 DSO reported to work with mod_perl_1.99_12 and + Apache 2.0.48/prefork mpm + but doesn't start with worker: + http://marc.theaimsgroup.com/?t=106894906200003&r=1&w=2 + +FreeBSD ?? DSO Works with non-threaded perl (4.8-RELEASE-5.2-RELEASE, 6.0-CURRENT) + http://marc.theaimsgroup.com/?l=apache-modperl&m=106399870822612&w=2 + The following combo is known to work: + http://gossamer-threads.com/lists/modperl/modperl/82887 + FreeBSD 5.4-RELEASE + gcc 3.4.2 + perl 5.8.7 WITH ithreads + httpd 2.0.54 apr IS THREADED (worker mpm) + mod_perl2.0.1 + +HPUX11i DSO + PA-RISC2.0-thread-multi-LP64 + hp-ux loire b.11.11 u 9000800 1756907651 unlimited-user license + Cannot load .../modules/mod_perl.so into server: Error 0 + http://marc.theaimsgroup.com/?t=108325310800002&r=1&w=2 + Bill Rowe gives some hints here + http://marc.theaimsgroup.com/?l=apache-modperl&m=108334017416318&w=2 + Static works OK! + +* Does not compile with bleedperl (5.9.x) due to modperl_error.c and Perl_croak() + on FreeBSD. This is a PERL bug, but p5p and myself, and not sure where the problem is yet. + +* gcc 4.x and higher compiles break under -Werror +[pgollucci volunteers] + +* AAA changes in httpd break httpd 2.3.x+ (svn trunk) builds terribly on all platforms. + +* Need to cleanup functions only needed for certain build flavors + (perlio/threads/etc) out of lib/ModPerl/WrapXS.pm:$ithread_exports + and use the newer, simpler #ifdef technique (see modperl_io_apache_init + for an example) + +* we should stop generating xs/apache_*, at least for a reason that + it's incomplete and will be never complete as we don't keep up with + changes with ap_/apr_ namespace. Also we don't have the logic to + handle cases where functions aren't available on certain + platforms. Importing these unavailable functions may cause loading + problems on some platforms (aix?). If developers need to import + symbols from ap_/apr_ namespace they should use .exp files installed + by httpd/apr/aprutil. + +* we have a dependency check problem when xs/*/*.h use code from + xs/modperl_xs*.h, when the latter change 'make' won't rebuild the + dependant files + +* Testing: + Need to put Philippe's smoking test into the core + -- shouldn't forget to test with perlio enabled and disabled + +* source_scan won't create Wrap/Foo/Bar.xs if + xs/maps/modperl_functions.map defines only a boot section: + MODULE=APR::IO PACKAGE=APR::IO BOOT=1 + unless there is at least one function added to the .map file + http://marc.theaimsgroup.com/?l=apache-modperl-dev&m=100702825506778&w=2 +
diff --git a/2_0_13/todo/bugs_mp b/2_0_13/todo/bugs_mp new file mode 100644 index 0000000..e0e9412 --- /dev/null +++ b/2_0_13/todo/bugs_mp
@@ -0,0 +1,136 @@ +################# +# mod_perl bugs # +################# + +* local %ENV doesn't work, see t/modperl/local_ent. + +* PerlOptions None needs to be implemented, see t/modperl/perl_options2.t + +* PerlIOApache_flush() + Setting local $| = 0 doesn't work with regular print statements under ModPerl::* + + http://p6m7g8.net/MP2/84625 + http://www.gossamer-threads.com/lists/modperl/dev/85365 + [pgollucci volunteers] + +* $r->rflush doesn't work. see: + http://marc.theaimsgroup.com/?l=apache-modperl&m=103847990813285&w=2 + I also see a weird behavior where it does sends FLUSH buckets but + they all seem to fall through the data, thus not really flushing + anything. this can be easily reproduced with MyApache::FilterSnoop. + + See also + http://www.gossamer-threads.com/lists/modperl/dev/84744?search_string=%23%7C%2C%20flushing%2C%20etc;#84743 + for a related $| but not the same issue. + [pgollucci volunteers] + +* early pool destruction issues + http://marc.theaimsgroup.com/?l=apache-modperl-dev&m=108872944815382&w=2 + +* PassEnv/SetEnv propogation in <Perl> section + http://www.gossamer-threads.com/archive/mod_perl_C1/dev_F4/%5BMP2_BUG%5D_PerlPassEnv_issues_P70500/ + +* there was a report about PerlRun leaking memory. the reporter didn't + give any more details, but I suspect that it's due to + ModPerl::Util::unload_package() which perfectly fits the timing when + the leak was introduced (when PerlRun started to use unload_package). + + Report: http://gossamer-threads.com/lists/modperl/modperl/77162 + +* most of the xs wrappers print no "Usage: " when wrong args/wrong + number of args are passed, would be nice to add the usage message + whenever incorrect arguments error is logged. e.g., when + APR::URI->parse() gets the wrong first arg (non-pool) it prints: + + p is not of type APR::Pool at ... + + whereas it's not so obvious that the function expected the pool + object, neither it specifies which ("arg number") of the arguments + is wrong. + + possible solution: add a new field to the map files, which will be + used as a usage message whenever an argument error occurs. + +* 'SetHandler modperl' doesn't reset $|, so if anything turns it on + anywhere, it's going to stay that way. Meaning excessive flushing + probably causing a performance hit. I've tried to add the code to + reset it, but this requires getting a perl interpreter at the early + stage and it breaks several filter tests, which has relied before on + the coincidence that both the response handler and the filter were + run by the same interpreter (in particular this breaks the code + where push_handlers() uses a string as a handler, rather a CODE + reference, see t/filter/TestFilter/both_str_rec_add.pm, to + reproduce the problem, simply s/modperl/perl-script/) + + +* Apache::PerlSection->dump() will not preserve tied'edness. This is + handled proprely in Storable, so either switch dump/restore to + non-human readable (-0.5) or borrow the same logic to dump/restore + tied objects. + + + +* Apache::Log compat issues: + + Apache->warn, Apache::warn, Apache::Server->warn and + Apache->Apache::Server->log_error are all doing: + s = modperl_global_get_server_rec(); + and this function is thread safe only during the startup. + + possible solutions: + + 1) enforce that these functions are used only at the server startup + + 2) require +GlobalRequest, which gives us r->server, now thread + safe (though slow). + + 3) drop them all from the API and move to compat. + [remember that Apache::warn is needed for registry scripts to + override warn()] + + For Apache::warn and registry, the solution is to supply + GLOBAL::CORE::warn for the current request and get $r inside of it + and] + + Report: Message-ID: <Pine.LNX.4.33.0206201011070.2590-100000@mako.covalent.net> + Status: <img alt="Doug, contemplating"> + +* see if we can avoid touching environ[] until a fork() from Perl + happens + +* Apache::Status prints a bogus filename via B::CV (e.g. from the test + suite) + + http://localhost:8529/status/perl/APR::Brigade::bootstrap/FUNCTION?cv_dump + Subroutine info for APR::Brigade::bootstrap + File: xYµ + Package: APR::Brigade + ... + + notice the bogus filename. For some reason this problem doesn't + exist with APR::Bucket: + + http://localhost:8529/status/perl/APR::Bucket::bootstrap/FUNCTION?cv_dump + + I have tested that the bogus filename comes from $obj->FILE in + Apache::Stats::cv_file, where $obj is blessed into B::CV. + + The problem has been noticed with threaded 5.8.1 perl, didn't test + any other builds. + + Apparently it's a known to p5p problem: + http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-08/msg00514.html + http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-11/msg01126.html + + Report: + http://marc.theaimsgroup.com/?l=apache-modperl-dev&m=106893251911930&w=2 + Priority: Low + +* mpxs_Apache2__RequestRec_GETC in Apache_RequestIO.h is out to be + reimplemented similar to read() w/o using the deprecated + client_block interface + +* Segfaults under Apache::Reload (could be uncovering a bug in mp): + http://marc.theaimsgroup.com/?t=111145169900002&r=1&w=2 + owner: gozer +-
diff --git a/2_0_13/todo/bugs_registry b/2_0_13/todo/bugs_registry new file mode 100644 index 0000000..7aaece4 --- /dev/null +++ b/2_0_13/todo/bugs_registry
@@ -0,0 +1,20 @@ +########################## +# Registry specific bugs # +########################## + + +* An open issue with chdir, which is process-scoped. Arthur Bergman + has started the work on ex::threads::safecwd, which is discussed + here: http://www.perl.com/pub/a/2002/06/11/threads.html?page=2 + +RegistryLoader: + +- chdir() needs to be adjusted when RegistryCooker implements it + +RegistryCooker: + +- consider not to use $$ in debug tracing. Not all platforms give out + a different pid for different threads. + +- some problems with setting the DEBUG() constant based on the value of + Apache->server->dir_config('ModPerl::RegistryCooker::DEBUG')
diff --git a/2_0_13/todo/design_notes b/2_0_13/todo/design_notes new file mode 100644 index 0000000..3895bda --- /dev/null +++ b/2_0_13/todo/design_notes
@@ -0,0 +1,105 @@ +(dunno where to put it but don't want to lose these design notes, so +just land them here for now) + + +Filters: direct C api mapping +-------------------- + +Apache::register_output_filter($filtername, $callback, $filter_type) + +Apache::register_input_filter($filtername, $callback, $filter_type) + + filter_type can be one of: + Apache::FTYPE_CONTENT + Apache::FTYPE_HTTP_HEADER + Apache::FTYPE_TRANSCODE + Apache::FTYPE_CONNECTION + Apache::FTYPE_NETWORK + +$r->add_output_filter($name, $ctx) +$c->add_output_filter($name, $ctx) + +$r->add_input_filter($name, $ctx) +$c->add_input_filter($name, $ctx) + +note: $ctx will default to NULL + +Filters: directives +---------- + +PerlInputFilterHandler + +PerlOutputFilterHandler + +each will be the equivalent of: + +ap_register_{input,output}_filter($handler_name, $handler, $filter_type) + +where: + $handler_name is the Perl name, at the moment is "MODPERL_OUTPUT" and + "MODPERL_INPUT", would be easy to switch that to the handler name + + $handler is the modperl C callback + + $filter_type defaults to AP_FTYPE_CONTENT, subroutine attributes can + be used to specify the filter_types list above + + based on attributes, add_{input,output}_filter may need to happen at + different times, e.g. input filters who want to filter headers + + content vs. input filters who want to filter only content + +alternative to those directives would be: + +PerlInputFilter + +PerlOutputFilter + +combined with: + +SetInputFilter + +SetOutputFilter + +pros: can use Perl{Input,Output}Filter to register the filter in + httpd.conf, rather than using the API. can then call + $r->add_{input,output}_filter($filter_name) at request time + +cons: in the common case, requires two directives that use the same + values (the $handler_name) + + - and/or - + +PerlSetInputFilter + +PerlSetOutputFilter + +as aliases for SetInputFilter, SetOutputFilter which also take care of +filter registration (which PerlInputFilter, PerlOutputFilter would +have done) + +pros: similar to Set{Input,Output}Filter + only need to use one directive + +cons: the filter module needs to register the filter in order to add + the filter at request time without using a directive + however: PerlModule Apache::FooFilter + where Apache::FooFilter registers the filter, can provide this + functionality without requiring new Perl{Input,Output}Filter + directives + + - in any case - + +with the C api mapping it should be possible for a PerlModule to +register the filter(s), then use the standard Set{Input,Output}Filter +directives and the add_{input,output}_filter api at request time. + +note: no need to maintain a list of PerlFilters (like PerlModule, +PerlRequire) since the directives trigger modperl_handler_new(), just +like all other Perl*Handlers + +Filters: {get,set,push}_handlers +----------------------- +would be nice for Perl{Input,Output}FilterHandler to work with the +modperl {get,set,push}_handlers api just like other Perl*Handlers + +
diff --git a/2_0_13/todo/docs b/2_0_13/todo/docs new file mode 100644 index 0000000..4c48f8b --- /dev/null +++ b/2_0_13/todo/docs
@@ -0,0 +1 @@ +docs todo is located at modperl-docs/src/docs/2.0/TODO
diff --git a/2_0_13/todo/features_deprecated b/2_0_13/todo/features_deprecated new file mode 100644 index 0000000..18f3624 --- /dev/null +++ b/2_0_13/todo/features_deprecated
@@ -0,0 +1,28 @@ +these features with either: +a) never be in 2.0 +b) only be in #ifdef MP_DEPRECATED +c) be a form that was nothing like 1.xx (e.g. Apache::Leak) +d) split off into something standalone on cpan + +- MaxModPerlRequestsPerChild + +- $r->seqno, $r->sent_header, + $r->query_string, $r->basic_http_header, $r->new_read, + $r->write_client, $r->read_client_block, $r->translate_name + +- $r->content, $r->args in-a-list-context (exist in Apache::compat) + +- $Apache::Server::Starting, $Apache::Server::ReStarting + +- modules: + + Apache::SIG: dead + + Apache::Symbol: unknown + + Apache::Leak: could be made useful + + Apache::RedirectLogFix: dead + + Apache::Include: was just an example + + Apache::Debug: could be make useful + + Apache::FakeRequest: should be built in + + Apache::httpd_conf: dead (to be replaced by new test framework) + + Apache::Symdump: unknown + + Apache::Opcode: was experimental, needs much attention to be + useful
diff --git a/2_0_13/todo/features_maybe b/2_0_13/todo/features_maybe new file mode 100644 index 0000000..85c278e --- /dev/null +++ b/2_0_13/todo/features_maybe
@@ -0,0 +1,203 @@ +######################### +# Nice to have features # +######################### + +* If Apache::SubRequest::DESTROY gets invoked more than once on the + same object (directly and indirectly via object's exit of scope), + memory gets corrupted and some later unrelated requests get affected + badly (segfaults in unrelated areas). So we probably need to do the + same handling as APR::Pool, where we make sure that no matter how + DESTROY is called, it's always called only once, any consequent + calls can be made a NOP or assert. BTW, it's easy to reproduce the + problem, by simply calling $subrequest->DESTROY 3 times or so in a + raw, the server just hangs... + +* 'apachectl configtest' will not test perl modules, unless <perl> + section or PerlLoadModule has happeneded to be loaded (since by + default we start perl in the post-config phase. A possible solution + is to try to detect 'apachectl configtest' and force the interpreter + loading during the config phase, so that configtest will actually + work for mp2 too. there is also an opinion that there is no + problem, and configtest just checks the config file syntax. But the + problem is that users might be mislead and think that it tests + modperl too, and when doing a restart it may fail, even though + configtest said it's OK. + +* PerlPreConnectionHandler is implemented, but the 'void *csd' arg in + the callback is ignored. will require a modification of + modperl_callback_run_handlers to pass yet another optional argument. + + Status: most likely nobody will ever want to use this option, so + don't waste time working on it. + +* Apache::FakeRequest: + since APR can be used outside of httpd, and we can alloc request_rec + and similar structures, it should be possible to bootstrap an + inside-httpd interface and outside-httpd interface. its not really + worthwhile looking at until APR actually installs its *.so or *.a + libraries somewhere apxs can find them. and, there's a bunch of util + functions (e.g. URI stuff) that is supposed to move from httpd into + apr-util. + +* could add support for embedding apache directives into perl + directives values, e.g. interpolating $ServerRoot + + PerlSwitches -I$ServerRoot/lib/perl + +* Since now we have protocol modules, it'd be nice to have a similar + thing to PerlCleanupHandler, which works only for HTTP requests. + It should probably be called PerlConnectionCleanupHandler. + + If we add it we should probably rename PerlCleanupHadndler to + PerlRequestCleanupHandler and keep the old name as a deprecated alias. + + We could also have PerlServerCleanupHandler, but that's exactly what + PerlChildExitHandler does. Consider having ServerCleanup as an alias. + +config features: +---------------- + +- tie %ENV to r->subprocess_env so stores are added to + r->subprocess_env and fetches are looked up in there and elsewhere + (e.g. HTTP_* from r->headers_in). see modperl_env.c, current + implementation is not threadsafe and requires 5.7.2+ + +- make 'PerlSetVar $Foo value' work like 'local $Foo = value' + for the given location + +- allow Perl*Handler's to have arguments in config files + +- allow <Perl></Perl> configuration sections to have read access to internal + configuration structures (would be nice if we could tie a %namespace::) + +- setuid/gid before running any Perl code + +- implement PerlINC (or similar) as a nicer interface for the working + PerlSwitches -Mlib=/home/dev1/lib/perl, to set different @INC for + different virtual hosts. + See the thread: http://marc.theaimsgroup.com/?t=100554858800001&r=1&w=2 + +- a possible implementation of PerlOptions +Inherit, similar to + +Parent but which allows virtual hosts to inherit everything that + was loaded by the main server, at the point of their definition in + the config file. This can make it easier to write configuration + files where there is a common base of modules to be loaded in all + servers. Of course this can be done by putting all these common + modules and code into foo.pl and running it from the base server and + all virtual hosts. + +- PerlModule can be made more efficient using Perl_load_module + + Status: it's possible to implement, but currently there is no way to + prevent from Perl logging the loading error messages to the + console + http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2003-03/msg00319.html + +perl language features: +---------------------- + +- @ARGV magic, tie to query string + +- sub handler : method ($) {} + call $class->new($r) and pass the returned object as the first and + only arg to the method handler + +- some mod_perlIO/PerlIO type methods for xs modules? (e.g. Apache::Peek) + +- possible to support BEGIN,CHECK,INIT blocks similar to how END is + supported via ModPerl::Global::special_list_{call,clear} + + + +optimization features: +--------------------- + +- copy-on-write SvPVX + +- hook Perl malloc into apr_pool + +- for "compiled handlers" w/ ithreads manage SV allocation via + server-lifetime apr_pool_t + +- "garbage collector" thread to walk padlists looking for certain things + worth releasing. + +- "mip manager" thread to watch # of active interpreters, + cloning/destroying when needed (rather than waiting for a request to + trigger) + +- use subpools per-callback/handler (might trim some memory bloat) + note: creating subpools requires a malloc mutex lock with threaded + mpms + +api: +--- + +- improve the "stacked handlers" implementation, including: + + allow push_handlers to have an additional argument, an array ref, + which will be passed to the handler as arguments, e.g. + $r->push_handlers("PerlHandler", \&some_sub, ['one', 'two', 'etc']); + +- might add an alias for $filter->connection (now we have $filter->c), to be + more intuitive since we have $r->connection. + +modules: +------- + +- core Apache::SubProcess w/ proper CORE::GLOBAL::{fork,exec} support + + currently works only with $] >= 5.007003 (see the + apache/subprocess test) + +- It's possible that we will add: + + #ifdef MP_APACHE_COMPAT + modperl_require_module("Apache::compat"); + #endif + + if MP_APACHE_COMPAT Makefile.PL option is true. But this adds bloat, + so this is just an option to consider. + +- Apache::File->tmpfile now lives only in compat. Consider adding + APR::File->mktemp (apr_file_mktemp) and a perlio layer + defined in terms of apr_file_t to use it. + +- Apache::MethodList was implemented but was not usefull enough. + Thread: http://marc.theaimsgroup.com/?t=109269086600003&r=1&w=2 + Patch: http://marc.theaimsgroup.com/?l=apache-modperl-dev&m=109278475112976&q=p6 + +new modules: +----------- + +- apache.pm: use apache '1.3b3'; + +misc new stuff: +-------------- + +- 'make html' + +- 'make test_report' + +apache features that would be neat for mod_perl: +----------------------------------------------- + +- "autoload" hook for configuration directives + +tools that may help us develop/maintain mp2 +------------------------------------------- +- B::Xref + +- gcov: test code coverage + http://apr.apache.org/coverage/index.html + http://gozer.ectoplasm.org/mod_perl/coverage/report.html + +- valgrind (currently valgrind chokes when running apache, long before + we get to mod_perl). I've heard that we could use some special + #define controls to tell valgrind where to look and where not. + +- gprof + +- lxr + +- tinderbox + +
diff --git a/2_0_13/todo/features_missing b/2_0_13/todo/features_missing new file mode 100644 index 0000000..fee5734 --- /dev/null +++ b/2_0_13/todo/features_missing
@@ -0,0 +1,118 @@ +######################## +# mp1 missing features # +######################## + +### try to get this first post 2.0 release ### + +* mp2 test suite opens many files - quite a few failure reports were + due to the low shell file limit. But at the moment we can't tell + users why this have the problem. Gisle Aas has suggested that we + check whether the shell has a big enough setting for this limit and + either die explaining the situation or try to manually raise the + limit. + + http://thread.gmane.org/gmane.comp.apache.mod-perl/16154 + + once implemented this should be ideally abstracted to be usable by + Apache-Test, and have a hook so each project can specify its own + min files limit, so other projects can benefit too. + +* directive handlers are supported but need some work for 1.x compat + - Apache::CmdParms::{GETC,getline} needs compat mapping, similar to + what Apache::Directive->as_string does, but one char or line at a time + + - Automatic setting of cmd_args in @APACHE_MODULE_DIRECTIVE based on + function prototype + +* $r->child_terminate: + - Apache has no API for this (used to be ap_child_terminate). The + current solution is not ideal. Better trying to get ap_child_terminate + back in the httpd API. + - future ideas for threaded mpms: might consider knocking + off the current PerlInterpreter instead. + +* tied filehandle interface: + -EOF, TELL, SEEK + -READLINE - proper implementation (see comment in Apache::compat) + need to attempt to fix that interface so it'll work with IPC::Open* family + +* It'd be nice to have PAUSE and the clients support packages with + several versions, like mod_perl 1.0 and mod_perl 2.0, since once we + release it any dependency on mod_perl will be resolved as mod_perl + 2.0, when mod_perl 1.0 may be required instead. + owner: stas: talked to autrijus, he will start working on it, but + not sure when. we need to ping him every so often. but + it'll probably won't happen by the time we release 2.0. + +### other, less important things ### + +* Integrate the new perl feature: PL_use_safe_putenv (starting from + perl 5.8.6) + http://public.activestate.com/cgi-bin/perlbrowse?patch=23529 this is + needed to make it possible mod_php and mod_perl run at the same + time. Relevant threads: + http://www.gossamer-threads.com/lists/perl/porters/187753 + http://www.phpbuilder.com/lists/php-install/2003092/0018.php + + at the moment recompiling perl with -DPERL_USE_SAFE_PUTENV may or + may not work + +* $r->last is missing (it was provided explicitly by modperl, it's not + an apache thing) see modperl/src/modules/perl/Apache.xs + +* automate generation of xs/tables/current/apr/FunctionTable.pm + via Apache::ParseSource. This file contains a subset of + functions appearing in ModPerl::FunctionTable that are + needed when building APR.so, and is used when generating + the def/exp files on Win32/AIX. + +* Apache::PerlSections missing features for backwards compatibility: + - $Apache::ReadConfig::DocumentRoot + - Apache::PerlSections->store(filename) + + Report: Philippe M. Chiasson <gozer@cpan.org> + Status: Philippe M. Chiasson <gozer@cpan.org> is working on it + +* PerlOpCodeMask (experimental in 1.xx) + +* die 404 (consider deprecating it) + +* mod_perl::import + - Apache->import: + required for exit/warn overridding + - use mod_perl2 qw(2.0 MethodHandlers Authen Authz [...]); + used to be able to specify what optionnal feature were required + +* Apache::test: tobe a compat stub around new test framework + +* Apache::src: tobe a compat stub around new build framework + +* hooks ordering is not implemented yet + Owner: geoff + +* $r->finfo: + need apr_finfo_t <-> struct stat conversion (might already be there, + haven't looked close enough yet) + +* $r->chdir_file: + not safe for threaded environments. should at least unshift @INC + with dirname $r->filename. consider overriding open() to resolve + relative filenames. + +* size_string() - can we use apr_strfsize ? + +* $r->send_fd: + need to figure out howto map PerlIO <-> apr_file_t + at the moment $r->send_fd is implement in Apache::compat, functions, + but does not have the performance benefits of ap_send_fd() + however, $r->sendfile is a new function that opens the file for you + and calls ap_send_fd() underneath. ap_send_fd() in APR doesn't work + with fd's which aren't files and of unknown length, therefore it cannot + be used for implementing 1.x compatible send_fd. + Solution: send_fd will require the length argument and there will be + no send_fd without the length argument as in mp1 + Owner: stas + +* Apache::Debug: + Possibly work it differently, but certainly add support for dealing with $^M + Report: http://gossamer-threads.com/lists/modperl/modperl/77853
diff --git a/2_0_13/todo/features_new b/2_0_13/todo/features_new new file mode 100644 index 0000000..3cd0096 --- /dev/null +++ b/2_0_13/todo/features_new
@@ -0,0 +1,61 @@ +####################### +# New features in mp2 # +####################### + +* extend add_config to support add_config($multi_line_config). If the + passed argument is not a ref to an array, but a scalar should use + CR?LF to do the line split + +* PerlFooHandler -Bar is a NOOP when 'PerlOptions AutoLoad' is in + effect, whereas it should prevent autloading. + See: + modperl_handler_new in modperl_handler.c + modperl_hash_handlers in modperl_mgv.c + +* filters tie handle/perlio interface + + both input/output filters should provide a tiehandle and/or perlio + interface. + + Perl tiehandle methods include the following, '+' indicates must have, '-' + indicates not possible / doesn't make sense (though might require noop + stubs), '~' indicates would be nice if possible, '?' indicates unsure: + + + TIEHANDLE + + PRINT + + PRINTF + + WRITE + + READLINE + + GETC + + READ + + CLOSE + ? UNTIE + ? DESTROY + + BINMODE (noop) + ? OPEN + ~ EOF + - FILENO + ~ SEEK + ~ TELL + +* maybe functions in xs/maps/(apache|apr)_functions.map + +* Apache->request: + need to deal with subclass objects which are not a request_rec + (e.g. HASH ref) + Owner: gozer + +* Apache::SizeLimit + o Need to work out the details of the implementation of the garbage + collection thread for the threaded mpms as originally suggested by + doug. The issue with threads is that there is no way to know the + thread's size, can we use B::Size and B::TerseSize? + + prefork: + Apache::SizeLimit - done + Apache::GTopLimit - Owner: stas + threaded: + Garbage Collector thread + + => Ideally the tools should work transparently with threaded and + non-threaded mpms, but how?
diff --git a/2_0_13/todo/features_optimization b/2_0_13/todo/features_optimization new file mode 100644 index 0000000..994ccad --- /dev/null +++ b/2_0_13/todo/features_optimization
@@ -0,0 +1,37 @@ +############################################### +# working features but requiring optimization # +############################################### + +* all autogenerated xs methods that return char * are now using + sv_setpv() which always copies the string. See if we somehow can + avoid the copy. If we do so, we need to be careful with method which + take a pool argument, such as: + Apache::ServerUtil + - mpxs_Apache2__ServerUtil_server_root_relative + Apache::URI: + - ap_construct_server + - ap_construct_url + APR::URI + - mpxs_apr_uri_parse + Apache::Util + - ap_ht_time + - escape_path + for which we need to attach the pool object used to create those + strings as a magic. + +* optimize modperl_callback_current_callback_(set|get) to use + numerical equivalents of the phase names, instead of doing expensive + memory allocs and string comparison operations. And only give the + real string in the perl get API. + +* consider using the temp pool for things that are needed only during + the configuration and can be dropped before the actual serving is + started. that pool gets destroyed right after the post-config phase + is over. + +* currently when ithreads-enabled perl is used anon-sub handlers are + always deparsed and non-cached. there are several cases when this + can be optimized. See modperl_handler_new_anon in modperl_handler.c + +* modperl_package_unload() and modperl_xs_dl_*() share some duplicated + logic. The managment of DynaLoaded modules could be somewhat cleaner.
diff --git a/2_0_13/todo/features_registry b/2_0_13/todo/features_registry new file mode 100644 index 0000000..1df0725 --- /dev/null +++ b/2_0_13/todo/features_registry
@@ -0,0 +1,94 @@ +##################### +# Registry Features # +##################### + +- port Apache::PerlRunXS + +- replace the local implementation of finfo() when ported to mod_perl 2.0 + +- $r->chdir_file is not handled/implemented, see todo/api.txt unsafe! + +- $Apache::Server::CWD doesn't exist + +- need to figure out what's happening with + ModPerl::Registry::MarkLine, why it's not on by default? + +- a cousin of convert_script_to_compiled_handler() in 1.x used to have + 'undef &{"$o->[PACKAGE]\::handler"}' to avoid redefine handler() + warnings in case a user has used -w. also see the undef_functions on + the next line. + +- child_terminate is not implemented see + convert_script_to_compiled_handler(). + +- print STDERR is buffered in test handlers, whereas warn() works + normally. select() helps, but STDERR should be unbuffered in first + place. + +- in namespace_from_filename() should test whether a file is a symlink + and if so use readlink() to get the real filename. + +- documentation + +- acl support via 'filetest qw(access)'. It was decided that having + this feature by default will be too expensive, because of the + overhead it adds. The solution was to add a sub-class that will + provide that functionality. It wasn't decided whether it'll be in + the core or should live on CPAN. Also it wasn't decided whether + RegistryCooker should provide the necessary implementation + callbacks. See: + http://marc.theaimsgroup.com/?t=107636627000001&r=1&w=2 + +### optimizations ### + +- currently the default is to strip __DATA__|__END__ and everything + after that, which incurs a little overhead because of the s/// on + the contents of the file. This "feature" wasn't in 1.x, so may + consider to make it optional. + +### nice to have ### + +- Bjarni R. Einarsson <bre@klaki.net> has suggested this Registry hack + http://marc.theaimsgroup.com/?l=apache-modperl-dev&m=98961929702745&w=2 + Message-ID: <20010511221101.A20868@diskordiah.mmedia.is> + +- the closure issue: + there was a suggestion from raptor to use goto() to leave the code + unwrapped in the sub handler, which will solve the closure problem, + but the problem is that once you leave a subroutine with goto() you + cannot return, because you aren't in the sub anymore. + + barrie has suggested a different approach, which requires adding + special tags to the script which help to parse the code, and shuffle + things around without putting subs inside the 'sub handler', but + this requires a lot of code understanding from a user, and if its + gained it's probably easier to fix the script so closure effect + won't happen. However barrie's suggestion can be easily added, by + overriding convert_script_to_compiled_handler(). + +- global variables persistance: could have the cooker option to flush + globals in the autogenerated package at the end of each + request. (not packages use()'d from this package) + +- could also try to privide an optional workaround for the problem + with libs collisions as explained here: + http://perl.apache.org/docs/1.0/guide/porting.html#Name_collisions_with_Modules_and + +- It's a known kludge with mod_perl scripts coming from mod_cgi which + use -M for file mtime comparisons, but are not aware of the fact + that $^T is not getting reset on each request. So may be the cooker + should have an option to reset $^T on each request. + +- develop a cooker() that cooks/modifies a registry package based on + PerlSetVar variables. So for example a user can modify a behavior of + an existing package (stat/donotstat...) and giving it a new name at + the same time. Kinda flag-based inheritance. + +* protect registry classes from bad scripts which try to assassinate $r + Report: http://marc.theaimsgroup.com/?l=apache-modperl-dev&m=106153785129782&w=2 + Status: (stas) i'm not sure whether we really need this feature, + since it's the first time in the last 6 years we had a + problem with bad user code of this kind. let's keep it in + the patches until we have a real need for it. + Priority: very low +
diff --git a/2_0_13/todo/release b/2_0_13/todo/release new file mode 100644 index 0000000..a88bada --- /dev/null +++ b/2_0_13/todo/release
@@ -0,0 +1,57 @@ +################################################## +# Things to be resolved for mod_perl 2.0 release # +################################################## + +-- see also todo/api_status +-- see also todo/release-checklist + +someone has asked to make $r->request_time settable + +------------- + +The following items need more work in order to work with blead-perl: + +http://svn.apache.org/viewcvs?rev=209859&view=rev +perl blead fix: in 5.9.3 HvPMROOT was completely removed, temporary +using Perl_Imodglobal_ptr(thx)))->xmg_magic (which fails on perl_clone +from ithreads, but otherwise works). this must be replaced with a +better solution once we find it. + +http://svn.apache.org/viewcvs?rev=209861&view=rev +blead perl temp fix: some recent change introduced tainting problems, +will remove the workaround once blead perl is fixed + + + + +------------- + +MP_STATIC_EXTS=1 must link all extensions but APR.so. At the moment +the following are not linked: + + APR/Const.so APR/PerlIO.so Apache/Const.so ModPerl/Const.so + +owner: ??? + +note: when testing MP_STATIC_EXTS=1 build we must ensure that there is +no preinstalled mod_perl2. Since if there is a preinstall of a normal +build, MP_STATIC_EXTS=1 will be not properly tested, as the +preinstalled .so modules will be loaded. A potential solution: when +MP_STATIC_EXTS=1 is used change .pm files not to load the .xs +extensions! + +------------- + +When running as root and A-T figures it can't run the test suite +(perms) it'll ask users if she wants to skip the test suite, if this +happens: + + Skip the test suite? [No] yes + Skipping the test suite execution, while returning success status + cd ModPerl-Registry && make test + +she gets to run the registry test suite anyway, since the top level +test suite was successful (needed to make cpan/plus installers +happy). Not sure what's the best solution here. + +---------------
diff --git a/2_0_13/todo/tests_issues b/2_0_13/todo/tests_issues new file mode 100644 index 0000000..07ca7a0 --- /dev/null +++ b/2_0_13/todo/tests_issues
@@ -0,0 +1,25 @@ +###################################### +# test suite issues and improvements # +###################################### + +- As the number of tests grows it takes longer to start the test + suite. Under threaded mpms it can take a very long time on a loaded + machine (10 minutes and more). At the moment we keep on bumping the + startup timeout, but there is always someone with a slower/more + loaded machine, for whom this timeout is too low, and the tests + suite misleadingly fails to start. So may be we must start thinking + to split the existing test suite into several smaller suites (for + example we already have a separate ModPerl-Registry test suite). If + we do perl/ithreads* and any tests definging +Clone/+Parent tests + should definitely be moved out from the main suite, as they cause + the biggest overhead (due to perl_clone). + +- TestDirective::perlloadmodule6 should be the first perlloadmodule + test to run, so we can test how mod_perl starts from vhost (there + was a segfault before). But since other tests define PerlSwitches + TestDirective::perlloadmodule6 must be configured afer them. so if + we introduce new tests suites, this test needs to be moved there + (may be its own test suite or co-existing with other tests which + don't use PerlSwitches and trigger early server startup. + +
diff --git a/2_0_13/todo/tests_wanted b/2_0_13/todo/tests_wanted new file mode 100644 index 0000000..c93a944 --- /dev/null +++ b/2_0_13/todo/tests_wanted
@@ -0,0 +1,17 @@ +################# +# wanted tests # +################# + +- test that we properly set the error-notes tably entry on + HTTP_INTERNAL_SERVER_ERROR (is sub-request check REDIRECT_ERROR_NOTES) + o test with plain handlers + o test with registry (as we set it twice? once in registry and once + more in the handlers?) + + mp1 has some sort of related test in t/net/perl/server_error.pl: + my $note = $r->prev->notes('error-notes') + +- We can put Apache::Scoreboard to a good use for Apache::Test. For + example we can test with it Apache::SizeLimit or + Apache::Watchdog::RunAway, since both kill processes, and we need to + make sure that the process went away.
diff --git a/2_0_13/util/apr_arg_check.pl b/2_0_13/util/apr_arg_check.pl new file mode 100755 index 0000000..301a4fd --- /dev/null +++ b/2_0_13/util/apr_arg_check.pl
@@ -0,0 +1,45 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use lib qw(lib); + +use strict; +use Apache2::FunctionTable (); + +#utility for checking apr_ argument conventions + +my $tx = '_t\s*\*+'; + +for my $entry (@$Apache2::FunctionTable) { + my $name = $entry->{name}; + my $args = $entry->{args}; + next unless @$args and $name =~ /^apr_/; + + my $has_type_arg = 0; + for my $arg (@$args) { + my $type = $arg->{type}; + next unless $type =~ s/$tx$//o; + $has_type_arg = $name =~ /^\Q$type/; + } + next unless $has_type_arg; + + my $i = 0; + for my $arg (@$args) { + $i++; + my $type = $arg->{type}; + $type =~ s/$tx//o; + + if ($name =~ /^\Q$type/) { + last if $i == 1; + } + else { + next; + } + if ($i > 1) { + print "'$arg->{name}' should be the first arg:\n"; + print " $entry->{return_type}\n $name(", + (join ', ', map "$_->{type} $_->{name}", @$args), + ")\n\n"; + } + } +}
diff --git a/2_0_13/util/apr_pool_check.pl b/2_0_13/util/apr_pool_check.pl new file mode 100755 index 0000000..056c8cf --- /dev/null +++ b/2_0_13/util/apr_pool_check.pl
@@ -0,0 +1,56 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +#check which apr_ functions do not have access to a pool + +use lib qw(lib); + +use strict; +use Apache2::SourceTables (); + +my($functions, @nopool); + +#incomplete types (C::Scan only scans *.h, not *.c) we know have an apr_pool_t +my %private = map { $_, 1 } qw{ +apr_dir_t apr_file_t apr_dso_handle_t apr_hash_t apr_hash_index_t apr_lock_t +apr_socket_t apr_pollfd_t apr_threadattr_t apr_thread_t apr_threadkey_t +apr_procattr_t apr_xlate_t apr_dbm_t apr_xml_parser +}; + +for my $entry (@$Apache2::FunctionTable) { + next unless $entry->{name} =~ /^apr_/; + + $functions++; + + unless (grep { find_pool($_->{type}) } @{ $entry->{args} }) { + push @nopool, $entry; + } +} + +my $num_nopool = @nopool; + +print "$num_nopool functions (out of $functions) do not have access to a pool:\n\n"; + +for my $entry (@nopool) { + print "$entry->{return_type} $entry->{name}(", + (join ', ', map "$_->{type} $_->{name}", @{ $entry->{args} }), + ")\n\n"; +} + +sub find_pool { + my $type = shift; + + return 1 if $type =~ /^apr_pool_t/; + + $type =~ s/\s+\*+$//; + $type =~ s/^(const|struct)\s+//g; + + if (my $elts = $Apache2::StructureTable{$type}) { + return 1 if $private{$type}; + + for my $e (@$elts) { + next if $e->{type} =~ /^$type/; + return 1 if find_pool($e->{type}); + } + } +}
diff --git a/2_0_13/util/cvsize.pl b/2_0_13/util/cvsize.pl new file mode 100755 index 0000000..8e6682c --- /dev/null +++ b/2_0_13/util/cvsize.pl
@@ -0,0 +1,32 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +#get an idea of how much space the XS interface will eat +#build/source_scan.pl must be run first +#see pod/modperl_sizeof.pod + +use strict; +use Apache2::FunctionTable (); +use Apache2::StructureTable (); + +use constant sizeofCV => 254; + +my $size = 0; +my $subs = 0; + +for my $entry (@$Apache2::FunctionTable) { + $size += sizeofCV + ((length($entry->{name}) + 1) * 2); + $subs++; +} + +for my $entry (@$Apache2::StructureTable) { + my $elts = $entry->{elts} || []; + next unless @$elts; + + for my $e (@$elts) { + $size += sizeofCV + ((length($e->{name}) + 1) * 2); + $subs++; + } +} + +print "$subs subs, $size estimated bytes\n";
diff --git a/2_0_13/util/getdiff.pl b/2_0_13/util/getdiff.pl new file mode 100755 index 0000000..5b4cbb0 --- /dev/null +++ b/2_0_13/util/getdiff.pl
@@ -0,0 +1,24 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +# this script creates a diff against SVN +# and against /dev/null for all files in ARGV +# and prints it to STDOUT +# +# e.g. +# getdiff.pl t/modules/newtest t/response/TestModules/NewTest.pm \ +# > newtest.patch +# +# the generated patch can be applied with +# patch -p0 < newtest.patch + +# cvs diff +my $o = `svn diff`; + +for (@ARGV) { + $o .= "\n"; + $o .= `diff -u /dev/null $_` +} + +print $o; +
diff --git a/2_0_13/util/methodlookup_check.pl b/2_0_13/util/methodlookup_check.pl new file mode 100755 index 0000000..95da6fd --- /dev/null +++ b/2_0_13/util/methodlookup_check.pl
@@ -0,0 +1,36 @@ +#!/usr/bin/perl +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +# this script checks whether all XS methods are known to ModPerl::MethodLookup + +use strict; +use warnings; + +use lib "lib"; + +use ModPerl::MethodLookup; + +# methods/classes ModPerl::MethodLookup knows about +my %known = (); +for (ModPerl::MethodLookup::avail_methods()) { + my ($modules_hint, @modules) = ModPerl::MethodLookup::lookup_method($_); + $known{$_} = { map {$_ => 1} @modules}; +} + +# real XS methods +my %real = (); +my $in = qx{grep -Ir newXS WrapXS}; +while ($in =~ m{WrapXS/(\w+)/(\w+)/.*?newXS\("(?:.+)::(.+)"}g) { + $real{$3}{"$1\::$2"}++; +} + +# now check what's missing +my @miss = (); +for my $method (sort keys %real) { + for my $module (sort keys %{ $real{$method} }) { + #printf "%-25s %s\n", $method, $module unless $known{$method}{$module}; + push @miss, sprintf "%-25s %s\n", $module, $method unless $known{$method}{$module}; + } +} + +print @miss ? sort(@miss) : "All methods are known by ModPerl::MethodLookup\n";
diff --git a/2_0_13/util/perl_bloat.pl b/2_0_13/util/perl_bloat.pl new file mode 100755 index 0000000..421d393 --- /dev/null +++ b/2_0_13/util/perl_bloat.pl
@@ -0,0 +1,44 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +# perlbloat.pl 'some perlcode' 'more perl code' +# perlbloat.pl Foo/Bar.pm Bar/Tar.pm +# perlbloat.pl Foo::Bar Bar::Tar + +no warnings; + +use GTop (); + +my $gtop = GTop->new; + +my $total = 0; +for (@ARGV) { + + my $code = $_; + file2package($_) if /\S+\.pm$/; + + my $before = $gtop->proc_mem($$)->size; + + if (eval "require $_" ) { + eval { + $_->import; + }; + } + else { + eval $_; + die $@ if $@; + } + + my $after = $gtop->proc_mem($$)->size; + printf "%-30s added %s\n", $_, GTop::size_string($after - $before); + $total += $after - $before; +} + +print "-" x 46, "\n"; +printf "Total added %30s\n", GTop::size_string($total); + +sub file2package { + $_[0] =~ s|/|::|g; + $_[0] =~ s|\.pm$||; +} +
diff --git a/2_0_13/util/sizeof.pl b/2_0_13/util/sizeof.pl new file mode 100644 index 0000000..1a6d3ec --- /dev/null +++ b/2_0_13/util/sizeof.pl
@@ -0,0 +1,62 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +#calculate structure sizes listed in pod/modperl_sizeof.pod via sizeof() + +use strict; + +use ExtUtils::Embed; +use Config; + +my $file = shift || 'pod/modperl_sizeof.pod'; + +open my $pod, $file or die "open $file: $!"; + +FINDSTRUCT: { + while (<$pod>) { + next unless /^\s*(\w+)\s*=\s*\{/; + my $name = $1; + my $size = sizeof($name, $pod); + print "sizeof $name => $size\n"; + redo FINDSTRUCT; + } +} + +sub sizeof { + my($struct, $h) = @_; + + my @elts; + + while (<$h>) { + last if /^\s*\}\;$/; + next unless m:(\w+).*?//\s*(.*):; + push @elts, "sizeof($2) /* $1 */"; + } + + my $name = "perl_sizeof_$struct"; + my $tmpfile = "$name.c"; + open my $fh, '>', $tmpfile or die "open $tmpfile: $!"; + + local $" = " + \n"; + + print $fh <<EOF; +#include <stdio.h> +#define PERLIO_NOT_STDIO 0 +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h" +#undef fprintf +int main(void) { + int size = @elts; + fprintf(stdout, "%d", size); + return 1; +} +EOF + + my $opts = ccopts(); + system "$Config{cc} -o $name $tmpfile $opts"; + + my $size = `$name`; + + unlink $name, $tmpfile; + + return $size; +}
diff --git a/2_0_13/util/source_stats.pl b/2_0_13/util/source_stats.pl new file mode 100755 index 0000000..fc502b0 --- /dev/null +++ b/2_0_13/util/source_stats.pl
@@ -0,0 +1,41 @@ +#!/usr/bin/perl -w +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- + +use lib qw(lib); + +use strict; +use Apache2::FunctionTable (); +use Apache2::StructureTable (); + +my %stats; + +for my $entry (@$Apache2::FunctionTable) { + unless ($entry->{name} =~ /^(ap|apr)_/) { + #print "found alien function $entry->{name}\n"; + next; + } + + $stats{functions}->{$1}++; +} + +for my $entry (@$Apache2::StructureTable) { + my $elts = $entry->{elts}; + my $type = $entry->{type}; + + my $c = $type =~ /^apr_/ ? "apr" : "ap"; + @$elts = () if $type =~ /^ap_LINK/; + if (@$elts) { + $stats{typedef_structs}->{$c}++; + $stats{struct_members}->{$c} += @$elts; + } + else { + $stats{typedefs}->{$c}++; + } +} + +while (my($name, $tab) = each %stats) { + printf "%d %s\n", $tab->{ap} + $tab->{apr}, $name; + for (qw(apr ap)) { + printf "%6s: %d\n", $_, $tab->{$_}; + } +}
diff --git a/2_0_13/util/xs_check.pl b/2_0_13/util/xs_check.pl new file mode 100644 index 0000000..01ec89b --- /dev/null +++ b/2_0_13/util/xs_check.pl
@@ -0,0 +1,109 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +use lib qw(Apache-Test/lib lib xs/tables/current); + +use strict; +use warnings qw(FATAL all); + +use ModPerl::TypeMap (); +use ModPerl::FunctionMap (); +use ModPerl::StructureMap (); +use ModPerl::WrapXS (); +use ModPerl::MapUtil qw(disabled_reason); + +my %check = ( + types => ModPerl::TypeMap->new, + functions => ModPerl::FunctionMap->new, + structures => ModPerl::StructureMap->new, +); + +my %missing; +while (my($things, $obj) = each %check) { + $missing{$things} = $obj->check; + if (my $missing = $missing{$things}) { + my $n = @$missing; + print "$n $things are not mapped:\n"; + print " $_\n" for sort @$missing; + } + else { + print "all $things are mapped\n"; + } +} + +my %check_exists = ( + functions => $check{functions}, + structure_members => $check{structures}, + types => $check{types}, +); + +while (my($things, $obj) = each %check_exists) { + if (my $missing = $obj->check_exists) { + my $n = @$missing; + print "$n mapped $things do not exist:\n"; + print " $_\n" for sort @$missing; + } + else { + print "all mapped $things exist\n"; + } +} + +my %unmapped = map { $_,1 } @{ $missing{functions} } if $missing{functions}; +my $typemap = $check{types}; +my $function_map = $check{functions}; +my @missing; + +for my $entry (@$Apache2::FunctionTable) { + my $func; + my $name = $entry->{name}; + next if $unmapped{$name}; + next unless $function_map->{map}->{$name}; + next if $func = $typemap->map_function($entry); + push @missing, $name; +} + +if (@missing) { + my $n = @missing; + print "unable to glue $n mapped functions:\n"; + print " $_\n" for sort @missing; +} +else { + print "all mapped functions are glued\n"; +} + +my $stats = ModPerl::WrapXS->new->stats; +my($total_modules, $total_xsubs); + +while (my($module, $n) = each %$stats) { + $total_modules++; + $total_xsubs += $n; +} + +print "$total_modules total modules, ", + "$total_xsubs total xsubs\n"; + +while (my($module, $n) = each %$stats) { + print "$module: $n\n"; +} + +for (qw(functions structure_members)) { + my $disabled = $check_exists{$_}->disabled; + my $total = 0; + for my $names (values %$disabled) { + $total += @$names; + } + print "$total $_ are not wrapped:\n"; + while (my($r, $names) = each %$disabled) { + printf "%4d are %s\n", scalar @$names, disabled_reason($r); + } +} + +if (@ARGV) { + my $key = '!'; + for (qw(functions structure_members)) { + my $disabled = $check_exists{$_}->disabled; + my $names = $disabled->{$key}; + printf "%s $_:\n", disabled_reason($key); + for my $name (sort @$names) { + print " $name\n"; + } + } +}
diff --git a/2_0_13/xs/APR/APR/APR.pm b/2_0_13/xs/APR/APR/APR.pm new file mode 100644 index 0000000..b06a3b6 --- /dev/null +++ b/2_0_13/xs/APR/APR/APR.pm
@@ -0,0 +1,36 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package APR; + +use DynaLoader (); +our $VERSION = '0.009000'; +our @ISA = qw(DynaLoader); + +#dlopen("APR.so", RTDL_GLOBAL); so we only need to link libapr.a once +# XXX: see xs/ModPerl/Const/Const.pm for issues of using 0x01 +use Config (); +use constant DL_GLOBAL => + ( $Config::Config{dlsrc} eq 'dl_dlopen.xs' && $^O ne 'openbsd' ) ? 0x01 : 0x0; +sub dl_load_flags { DL_GLOBAL } + +unless (defined &APR::XSLoader::BOOTSTRAP) { + __PACKAGE__->bootstrap($VERSION); + *APR::XSLoader::BOOTSTRAP = sub () { 1 }; +} + +1; +__END__
diff --git a/2_0_13/xs/APR/APR/APR.xs b/2_0_13/xs/APR/APR/APR.xs new file mode 100644 index 0000000..bf267bc --- /dev/null +++ b/2_0_13/xs/APR/APR/APR.xs
@@ -0,0 +1,74 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +#ifdef MP_HAVE_APR_LIBS +# define APR_initialize apr_initialize +# define APR_terminate apr_terminate +#else +# define APR_initialize() +# define APR_terminate() +#endif + +#ifdef MP_HAVE_APR_LIBS + +/* XXX: APR_initialize doesn't initialize apr_hook_global_pool, needed for + * work outside httpd, so do it manually PR22605 */ +#include "apr_hooks.h" +static void extra_apr_init(pTHX) +{ + if (apr_hook_global_pool == NULL) { + apr_pool_t *global_pool; + apr_status_t rv = apr_pool_create(&global_pool, NULL); + if (rv != APR_SUCCESS) { + PerlIO_printf(PerlIO_stderr(), + "Fatal error: unable to create global pool " + "for use with by the scoreboard"); + } + /* XXX: mutex locking? */ + apr_hook_global_pool = global_pool; + } + { + apr_file_t *stderr_apr_handle; + apr_status_t rv = apr_file_open_stderr(&stderr_apr_handle, + apr_hook_global_pool); + if (rv != APR_SUCCESS) { + PerlIO_printf(PerlIO_stderr(), + "Fatal error: failed to open stderr "); + } + modperl_trace_level_set(stderr_apr_handle, NULL); + } + +} +#else +# define extra_apr_init(aTHX) +#endif + +MODULE = APR PACKAGE = APR + +PROTOTYPES: disable + +BOOT: + file = file; /* -Wall */ + APR_initialize(); + extra_apr_init(aTHX); + +void +END() + + CODE: + APR_terminate();
diff --git a/2_0_13/xs/APR/APR/Makefile.PL b/2_0_13/xs/APR/APR/Makefile.PL new file mode 100644 index 0000000..edbd108 --- /dev/null +++ b/2_0_13/xs/APR/APR/Makefile.PL
@@ -0,0 +1,109 @@ +use strict; +use warnings; + +use lib qw(../lib); +use ModPerl::BuildMM (); +require ModPerl::Code; +use Apache2::Build (); +use Config; +use File::Spec::Functions; + +use constant WIN32 => Apache2::Build::WIN32; +use constant CYGWIN => Apache2::Build::CYGWIN; +use constant SOLARIS => $^O eq 'solaris'; +use constant BUILD_APREXT => Apache2::Build::BUILD_APREXT; + +my %args; + +%args = map { split /=/, $_, 2 } @ARGV; + +$args{NAME} = 'APR'; +$args{VERSION_FROM} = 'APR.pm'; + +my $libs = ''; +$libs = delete $args{LIBS} if $args{LIBS}; + +my $build = ModPerl::BuildMM::build_config(); + +my $ccopts = $build->ccopts; + +# avoid referencing &perl_module outside of mod_perl +$ccopts .= ' -DMP_IN_XS'; + +$args{CCFLAGS} = $ccopts; + +my @apru_link_flags = $build->apru_link_flags; +$libs .= join ' ', @apru_link_flags if @apru_link_flags; + +if (WIN32) { + $libs =~ s{/libpath:}{-L}g; + $libs =~ s{(\S+)\.lib}{-l$1}g; +} + +if (BUILD_APREXT) { + my $mp_apr_lib = $build->mp_apr_lib; + + if (CYGWIN) { + # For Cygwin compatibility, set $mp_apr_lib before the apache libs + $libs = qq{ $mp_apr_lib } . $libs; + } else { + $libs .= qq{ $mp_apr_lib }; + } +} + +if (SOLARIS && $libs) { + # EU::MM sets LD_RUN_PATH (for linking) based on -L options in LIBS. + # LD_RUN_PATH is getting overridden by the specified -R path. + # The -R specified is from the perl config's lddflags. + # Therefore -R has to be added with the appropriate paths rather + # than using LD_RUN_PATH, because it gets overridden. + + # make sure that all -L, -R from libs are moved + # to the beginning of lddflags. + my $extralddflags = join " ", $libs =~ /(-[LR]\S+)/g; + + # -R makes sure that these paths will be used + $extralddflags =~ s{-L(\S+)}{-L$1 -R$1}g; + $args{LDDLFLAGS} = "" unless exists $args{LDDLFLAGS}; + $args{LDDLFLAGS} = join " ", $args{LDDLFLAGS}, $extralddflags, + $build->perl_config('lddlflags'); + + # -R are now copied to LDDFLAGS, but leave -L's in LIBS -- + # EU::MM needs it. + $libs =~ s{-R\S+}{}g; +} + +$args{LIBS} = [$libs] if $libs; + +my $srcdir = '../../../src/modules/perl'; + +# link the following into APR.so so other APR:: modules can be used +# outside of httpd +my @names = ModPerl::Code::src_apr_ext(); + +my(@obj, @clean, %src); +for (@names) { + push @obj, join '.', $_, 'o'; + my $cfile = join '.', $_, 'c'; + push @clean, $cfile; + $src{$cfile} = "$srcdir/$cfile"; +} + +$args{OBJECT} = BUILD_APREXT() ? "APR.o" : "APR.o @obj"; +$args{clean} = { FILES => "@clean" }; + +ModPerl::BuildMM::WriteMakefile(%args); + +# avoid redefined warnings from imported postamble symbol from +# elsewhere in other Makefile.PL files +no warnings 'redefine'; +sub MY::postamble { + my $self = shift; + my $string = $self->ModPerl::BuildMM::MY::postamble; + + $string .= join '', map { + "$_: $src{$_}\n\t\$(CP) $src{$_} .\n"; + } sort keys %src; + + return $string; +}
diff --git a/2_0_13/xs/APR/APR/apr-test b/2_0_13/xs/APR/APR/apr-test new file mode 100644 index 0000000..9c70bd6 --- /dev/null +++ b/2_0_13/xs/APR/APR/apr-test
@@ -0,0 +1,61 @@ +#!perl + +use Test; + +plan tests => 8; + +use blib; +use warnings FATAL => 'all'; +use strict; +use APR (); +use APR::UUID (); +use APR::Pool (); +use APR::Lock (); +use APR::Util (); +use APR::Base64 (); +use APR::Signal (); + +my $status; + +my $uuid = APR::UUID->new->format; + +ok $uuid; + +my $p = APR::Pool->new; + +ok $p; + +my $lock = APR::Lock->new($p, 0, 1, "lock.file"); +$status = $lock->acquire and die APR::strerror($status); +$status = $lock->release and die APR::strerror($status); + +$status = APR::password_validate("one", "two"); +my $str = APR::strerror($status); +ok $str eq "passwords do not match"; + +ok $status; + +my $bytes = APR::generate_random_bytes(10); + +ok length($bytes) == 10; + +my $encoded = APR::Base64::encode($bytes); + +#print "encoded=$encoded\n"; + +ok $encoded; + +my $decoded = APR::Base64::decode($encoded); + +ok $decoded eq $bytes; + +$p->clear; + +for (1..9) { + my $desc = APR::Signal::get_description($_); + #print "$_ => $desc\n"; +} + +ok 1; + +$p->destroy; #XXX
diff --git a/2_0_13/xs/APR/Base64/APR__Base64.h b/2_0_13/xs/APR/Base64/APR__Base64.h new file mode 100644 index 0000000..8ed26f9 --- /dev/null +++ b/2_0_13/xs/APR/Base64/APR__Base64.h
@@ -0,0 +1,64 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +/* apr_base64_encode_len and apr_base64_encode_binary give length that + * includes the terminating '\0' */ +#define mpxs_APR__Base64_encode_len(len) (apr_base64_encode_len(len) - 1) + +static MP_INLINE void mpxs_apr_base64_encode(pTHX_ SV *sv, SV *arg) +{ + STRLEN len; + int encoded_len; + unsigned char *data = (unsigned char *)SvPV(arg, len); + mpxs_sv_grow(sv, apr_base64_encode_len(len) - 1); + encoded_len = apr_base64_encode_binary(SvPVX(sv), data, len); + mpxs_sv_cur_set(sv, encoded_len - 1); +} + +static MP_INLINE void mpxs_apr_base64_decode(pTHX_ SV *sv, SV *arg) +{ + STRLEN len; + int decoded_len; + char *data = SvPV(arg, len); + mpxs_sv_grow(sv, apr_base64_decode_len(data)); + decoded_len = apr_base64_decode_binary((unsigned char *)SvPVX(sv), data); + mpxs_sv_cur_set(sv, decoded_len); +} + +MP_STATIC XS(MPXS_apr_base64_encode) +{ + dXSARGS; + + mpxs_usage_items_1("data"); + + mpxs_set_targ(mpxs_apr_base64_encode, ST(0)); +} + +MP_STATIC XS(MPXS_apr_base64_decode) +{ + dXSARGS; + + mpxs_usage_items_1("data"); + + mpxs_set_targ(mpxs_apr_base64_decode, ST(0)); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Brigade/APR__Brigade.h b/2_0_13/xs/APR/Brigade/APR__Brigade.h new file mode 100644 index 0000000..15181fd --- /dev/null +++ b/2_0_13/xs/APR/Brigade/APR__Brigade.h
@@ -0,0 +1,180 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +void mpxs_APR__Brigade_cleanup(apr_bucket_brigade *brigade) +{ + /* apr has a broken prototype (passing 'void *' instead of + * 'apr_bucket_brigade *', so use a wrapper here */ + apr_brigade_cleanup(brigade); +} + +static MP_INLINE +SV *mpxs_apr_brigade_create(pTHX_ SV *CLASS, SV *p_sv, + apr_bucket_alloc_t *ba) +{ + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); + apr_bucket_brigade *bb = apr_brigade_create(p, ba); + SV *bb_sv = sv_setref_pv(newSV(0), "APR::Brigade", (void*)bb); + mpxs_add_pool_magic(bb_sv, p_sv); + return bb_sv; +} + +#define get_brigade(brigade, fetch) \ +(fetch(brigade) == APR_BRIGADE_SENTINEL(brigade) ? \ + NULL : fetch(brigade)) + +static MP_INLINE +apr_bucket *mpxs_APR__Brigade_first(apr_bucket_brigade *brigade) +{ + return get_brigade(brigade, APR_BRIGADE_FIRST); +} + +static MP_INLINE +apr_bucket *mpxs_APR__Brigade_last(apr_bucket_brigade *brigade) +{ + return get_brigade(brigade, APR_BRIGADE_LAST); +} + +#define get_bucket(brigade, bucket, fetch) \ +(fetch(bucket) == APR_BRIGADE_SENTINEL(brigade) ? \ + NULL : fetch(bucket)) + +static MP_INLINE +apr_bucket *mpxs_APR__Brigade_next(apr_bucket_brigade *brigade, + apr_bucket *bucket) +{ + return get_bucket(brigade, bucket, APR_BUCKET_NEXT); +} + +static MP_INLINE +apr_bucket *mpxs_APR__Brigade_prev(apr_bucket_brigade *brigade, + apr_bucket *bucket) +{ + return get_bucket(brigade, bucket, APR_BUCKET_PREV); +} + +static MP_INLINE +void mpxs_APR__Brigade_insert_tail(apr_bucket_brigade *brigade, + apr_bucket *bucket) +{ + APR_BRIGADE_INSERT_TAIL(brigade, bucket); +} + +static MP_INLINE +void mpxs_APR__Brigade_insert_head(apr_bucket_brigade *brigade, + apr_bucket *bucket) +{ + APR_BRIGADE_INSERT_HEAD(brigade, bucket); +} + +static MP_INLINE +void mpxs_APR__Brigade_concat(apr_bucket_brigade *a, + apr_bucket_brigade *b) +{ + APR_BRIGADE_CONCAT(a, b); +} + +static MP_INLINE +int mpxs_APR__Brigade_is_empty(apr_bucket_brigade *brigade) +{ + return APR_BRIGADE_EMPTY(brigade); +} + +static MP_INLINE +apr_pool_t *mpxs_APR__Brigade_pool(apr_bucket_brigade *brigade) +{ + /* eesh, it's r->pool, and c->pool, but bb->p + * let's make Perl consistent, otherwise this could be autogenerated + */ + + return brigade->p; +} + +static MP_INLINE +SV *mpxs_APR__Brigade_length(pTHX_ apr_bucket_brigade *bb, + int read_all) +{ + apr_off_t length; + + apr_status_t rv = apr_brigade_length(bb, read_all, &length); + + /* XXX - we're deviating from the API here a bit in order to + * make it more perlish - returning the length instead of + * the return code. maybe that's not such a good idea, though... + */ + if (rv == APR_SUCCESS) { + return newSViv((int)length); + } + + return &PL_sv_undef; +} + +#define mp_xs_sv2_bb mp_xs_sv2_APR__Brigade + +static MP_INLINE +apr_size_t mpxs_APR__Brigade_flatten(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + + apr_bucket_brigade *bb; + apr_size_t wanted; + apr_status_t rc; + SV *buffer; + + mpxs_usage_va_2(bb, buffer, "$bb->flatten($buf, [$wanted])"); + + if (items > 2) { + /* APR::Brigade->flatten($wanted); */ + wanted = SvIV(*MARK); + } + else { + /* APR::Brigade->flatten(); */ + /* can't use pflatten, because we can't realloc() memory + * allocated by pflatten. and we need to append '\0' to it in + * SvPVX. so we copy pflatten's guts here. + */ + apr_off_t actual; + apr_brigade_length(bb, 1, &actual); + wanted = (apr_size_t)actual; + } + + (void)SvUPGRADE(buffer, SVt_PV); + mpxs_sv_grow(buffer, wanted); + + rc = apr_brigade_flatten(bb, SvPVX(buffer), &wanted); + if (!(rc == APR_SUCCESS || rc == APR_EOF)) { + modperl_croak(aTHX_ rc, "APR::Brigade::flatten"); + } + + mpxs_sv_cur_set(buffer, wanted); + SvTAINTED_on(buffer); + + return wanted; +} + +static MP_INLINE +void mpxs_APR__Brigade_destroy(pTHX_ apr_bucket_brigade *bb) +{ + MP_RUN_CROAK(apr_brigade_destroy(bb), "APR::Brigade::destroy"); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Bucket/APR__Bucket.h b/2_0_13/xs/APR/Bucket/APR__Bucket.h new file mode 100644 index 0000000..6c09c75 --- /dev/null +++ b/2_0_13/xs/APR/Bucket/APR__Bucket.h
@@ -0,0 +1,131 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "modperl_bucket.h" + +#define mpxs_APR__Bucket_delete apr_bucket_delete +#define mpxs_APR__Bucket_destroy apr_bucket_destroy + +static apr_bucket *mpxs_APR__Bucket_new(pTHX_ SV *classname, apr_bucket_alloc_t *list, + SV *sv, apr_off_t offset, apr_size_t len) +{ + + apr_size_t full_len; + + if (sv == (SV *)NULL) { + sv = newSV(0); + (void)SvUPGRADE(sv, SVt_PV); + } + + (void)SvPV(sv, full_len); + + if (len) { + if (len > full_len - offset) { + Perl_croak(aTHX_ "APR::Bucket::new: the length argument can't be" + " bigger than the total buffer length minus offset"); + } + } + else { + len = full_len - offset; + } + + return modperl_bucket_sv_create(aTHX_ list, sv, offset, len); +} + +static MP_INLINE +apr_size_t mpxs_APR__Bucket_read(pTHX_ + apr_bucket *bucket, + SV *buffer, + apr_read_type_e block) +{ + apr_size_t len; + const char *str; + apr_status_t rc = apr_bucket_read(bucket, &str, &len, block); + + if (!(rc == APR_SUCCESS || rc == APR_EOF)) { + modperl_croak(aTHX_ rc, "APR::Bucket::read"); + } + + if (len) { + sv_setpvn(buffer, str, len); + } + else { + sv_setpvn(buffer, "", 0); + } + + /* must run any set magic */ + SvSETMAGIC(buffer); + + SvTAINTED_on(buffer); + + return len; +} + +static MP_INLINE int mpxs_APR__Bucket_is_eos(apr_bucket *bucket) +{ + return APR_BUCKET_IS_EOS(bucket); +} + +static MP_INLINE int mpxs_APR__Bucket_is_flush(apr_bucket *bucket) +{ + return APR_BUCKET_IS_FLUSH(bucket); +} + +static MP_INLINE void mpxs_APR__Bucket_insert_before(apr_bucket *a, + apr_bucket *b) +{ + APR_BUCKET_INSERT_BEFORE(a, b); +} + +static MP_INLINE void mpxs_APR__Bucket_insert_after(apr_bucket *a, + apr_bucket *b) +{ + APR_BUCKET_INSERT_AFTER(a, b); +} + +static MP_INLINE void mpxs_APR__Bucket_remove(apr_bucket *bucket) +{ + APR_BUCKET_REMOVE(bucket); +} + +static MP_INLINE +apr_status_t mpxs_APR__Bucket_setaside(pTHX_ SV *b_sv, SV *p_sv) +{ + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); + apr_bucket *b = mp_xs_sv2_APR__Bucket(b_sv); + apr_status_t rc = apr_bucket_setaside(b, p); + + /* if users don't bother to check the success, do it on their + * behalf */ + if (GIMME_V == G_VOID && rc != APR_SUCCESS) { + modperl_croak(aTHX_ rc, "APR::Bucket::setaside"); + } + + /* No need to call mpxs_add_pool_magic(b_sv, p_sv); since + * pool_bucket_cleanup is called by apr_bucket_pool_make (called + * by modperl_bucket_sv_setaside) if the pool goes out of scope, + * copying the data to the heap. + */ + + return rc; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/BucketAlloc/APR__BucketAlloc.h b/2_0_13/xs/APR/BucketAlloc/APR__BucketAlloc.h new file mode 100644 index 0000000..bfb2a19 --- /dev/null +++ b/2_0_13/xs/APR/BucketAlloc/APR__BucketAlloc.h
@@ -0,0 +1,36 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "modperl_bucket.h" + +#define mpxs_APR__BucketAlloc_destroy apr_bucket_alloc_destroy + +static MP_INLINE +SV *mpxs_APR__BucketAlloc_new(pTHX_ SV *CLASS, SV *p_sv) +{ + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); + apr_bucket_alloc_t *ba = apr_bucket_alloc_create(p); + SV *ba_sv = sv_setref_pv(newSV(0), "APR::BucketAlloc", (void*)ba); + mpxs_add_pool_magic(ba_sv, p_sv); + return ba_sv; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Const/Const.pm b/2_0_13/xs/APR/Const/Const.pm new file mode 100644 index 0000000..cb264f6 --- /dev/null +++ b/2_0_13/xs/APR/Const/Const.pm
@@ -0,0 +1,28 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package APR::Const; + +use ModPerl::Const (); +use APR (); +use XSLoader (); + +our $VERSION = '0.009000'; +our @ISA = qw(ModPerl::Const); + +XSLoader::load(__PACKAGE__, $VERSION); + +1;
diff --git a/2_0_13/xs/APR/Const/Const.xs b/2_0_13/xs/APR/Const/Const.xs new file mode 100644 index 0000000..9d457c3 --- /dev/null +++ b/2_0_13/xs/APR/Const/Const.xs
@@ -0,0 +1,26 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" +#include "modperl_const.h" + +MODULE = APR::Const PACKAGE = APR::Const + +PROTOTYPES: disable + +BOOT: + MP_newModPerlConstXS("APR"); +
diff --git a/2_0_13/xs/APR/Const/Makefile.PL b/2_0_13/xs/APR/Const/Makefile.PL new file mode 100644 index 0000000..c567a34 --- /dev/null +++ b/2_0_13/xs/APR/Const/Makefile.PL
@@ -0,0 +1,15 @@ +use lib qw(../lib); +use ModPerl::BuildMM (); +use Apache2::Build; + +my $build = Apache2::Build->build_config(); +my $ccopts = $build->ccopts; + +# avoid referencing &perl_module outside of mod_perl +$ccopts .= ' -DMP_IN_XS'; + +ModPerl::BuildMM::WriteMakefile( + NAME => 'APR::Const', + VERSION_FROM => 'Const.pm', + CCFLAGS => $ccopts, +);
diff --git a/2_0_13/xs/APR/Error/APR__Error.h b/2_0_13/xs/APR/Error/APR__Error.h new file mode 100644 index 0000000..c7dafd9 --- /dev/null +++ b/2_0_13/xs/APR/Error/APR__Error.h
@@ -0,0 +1,24 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define mpxs_APR__Error_strerror(rc) modperl_error_strerror(aTHX_ rc) + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Error/Error_pm b/2_0_13/xs/APR/Error/Error_pm new file mode 100644 index 0000000..9cb6081 --- /dev/null +++ b/2_0_13/xs/APR/Error/Error_pm
@@ -0,0 +1,69 @@ +require Carp; +require Carp::Heavy; + +use APR::Util (); + +use overload + nomethod => \&fatal, + 'bool' => \&str, + '==' => \&num_cmp, + '!=' => \&num_cmp_not, + '0+' => \&num, + '""' => \&str; + +sub fatal { die __PACKAGE__ . ": Can't handle '$_[3]'" } + +# normally the object is created on the C side, but if you want to +# create one from Perl, you can. just pass a hash with args: +# rc, file, line, func +sub new { + my $class = shift; + my %args = @_; + bless \%args, $class; +} + +# +# - even though most of the time the error id is not useful to the end +# users, developers may need to know it. For example in case of a +# non-english user locale setting, the error string could be +# incomprehensible to a developer, but by having the error id it's +# possible to find the english equivalent +# - the filename and line number are needed because perl doesn't +# provide that info when exception objects are involved +sub str { + return sprintf "%s: (%d) %s at %s line %d", $_[0]->{func}, + $_[0]->{rc}, APR::Error::strerror($_[0]->{rc}), + $_[0]->{file}, $_[0]->{line}; +} + +sub num { $_[0]->{rc} } + +sub num_cmp { $_[0]->{rc} == $_[1] } +sub num_cmp_not { $_[0]->{rc} != $_[1] } + +# skip the wrappers from this package from the long callers trace +$Carp::CarpInternal{+__PACKAGE__}++; + +# XXX: Carp::(confess|cluck) see no calls stack when Perl_croak is +# called with (char *)NULL (which is the way exception objects are +# returned), so we fixup it here (doesn't quite work for croak +# caller). +sub cluck { + if (ref $_[0] eq __PACKAGE__) { + Carp::cluck("$_[0]->{func}: ($_[0]->{rc}) " . + APR::Error::strerror($_[0]->{rc})); + } + else { + &Carp::cluck; + } +} + +sub confess { + if (ref $_[0] eq __PACKAGE__) { + Carp::confess("$_[0]->{func}: ($_[0]->{rc}) " . + APR::Error::strerror($_[0]->{rc})); + } + else { + &Carp::confess; + } +}
diff --git a/2_0_13/xs/APR/Finfo/APR__Finfo.h b/2_0_13/xs/APR/Finfo/APR__Finfo.h new file mode 100644 index 0000000..36843ab --- /dev/null +++ b/2_0_13/xs/APR/Finfo/APR__Finfo.h
@@ -0,0 +1,39 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +SV *mpxs_APR__Finfo_stat(pTHX_ const char *fname, apr_int32_t wanted, + SV *p_sv) +{ + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); + apr_finfo_t *finfo = (apr_finfo_t *)apr_pcalloc(p, sizeof(apr_finfo_t)); + SV *finfo_sv; + + MP_RUN_CROAK(apr_stat(finfo, fname, wanted, p), + "APR::Finfo::stat"); + + finfo_sv = sv_setref_pv(newSV(0), "APR::Finfo", (void*)finfo); + mpxs_add_pool_magic(finfo_sv, p_sv); + + return finfo_sv; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/IpSubnet/APR__IpSubnet.h b/2_0_13/xs/APR/IpSubnet/APR__IpSubnet.h new file mode 100644 index 0000000..c2d6793 --- /dev/null +++ b/2_0_13/xs/APR/IpSubnet/APR__IpSubnet.h
@@ -0,0 +1,37 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +SV *mpxs_apr_ipsubnet_create(pTHX_ SV *classname, SV *p_sv, + const char *ipstr, + const char *mask_or_numbits) +{ + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); + apr_ipsubnet_t *ipsub = NULL; + SV *ipsub_sv; + MP_RUN_CROAK(apr_ipsubnet_create(&ipsub, ipstr, mask_or_numbits, p), + "APR::IpSubnet::new"); + ipsub_sv = sv_setref_pv(newSV(0), "APR::IpSubnet", (void*)ipsub); + mpxs_add_pool_magic(ipsub_sv, p_sv); + return ipsub_sv; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Lock/APR__Lock.h b/2_0_13/xs/APR/Lock/APR__Lock.h new file mode 100644 index 0000000..1054331 --- /dev/null +++ b/2_0_13/xs/APR/Lock/APR__Lock.h
@@ -0,0 +1,22 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Makefile.PL b/2_0_13/xs/APR/Makefile.PL new file mode 100644 index 0000000..1302942 --- /dev/null +++ b/2_0_13/xs/APR/Makefile.PL
@@ -0,0 +1,7 @@ +use lib qw(../lib); +use ModPerl::BuildMM (); + +ModPerl::BuildMM::WriteMakefile( + NAME => "APR_build", + VERSION => '0.01' +);
diff --git a/2_0_13/xs/APR/OS/APR__OS.h b/2_0_13/xs/APR/OS/APR__OS.h new file mode 100644 index 0000000..5cd6f59 --- /dev/null +++ b/2_0_13/xs/APR/OS/APR__OS.h
@@ -0,0 +1,31 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE unsigned long mpxs_APR__OS_current_thread_id(pTHX) +{ +#if APR_HAS_THREADS + return (unsigned long)apr_os_thread_current(); +#else + return 0; +#endif +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/PerlIO/Makefile.PL b/2_0_13/xs/APR/PerlIO/Makefile.PL new file mode 100644 index 0000000..ca102bb --- /dev/null +++ b/2_0_13/xs/APR/PerlIO/Makefile.PL
@@ -0,0 +1,37 @@ +use lib qw(../lib); +use ModPerl::BuildMM (); + +use Config; +use Apache2::Build; +use Apache::TestTrace; +my $build = Apache2::Build->build_config(); + +my $ccopts = $build->ccopts; + +# when uselargefiles is on, -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 +# are needed to get the right 'Off_t', without which perlio compiled +# with Off_t as 'long long int', doesn't quite work with apr_perlio.c +# compiled with Off_t as 'long int' +# +# On the other handl if apr is built without large files support, we +# have binary compatibility problems, if we try to build mod_perl with +# -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 +# +# XXX: it seems that enabling these flags only for apr_perlio/PerlIO +# seems to do the trick +if ($build->has_large_files_conflict) { + $ccopts .= $Config{uselargefiles} + ? ' ' . $Config{ccflags_uselargefiles} + : ''; +} + +# avoid referencing &perl_module outside of mod_perl +$ccopts .= ' -DMP_IN_XS'; + +ModPerl::BuildMM::WriteMakefile( + NAME => 'APR::PerlIO', + VERSION_FROM => 'PerlIO.pm', + CCFLAGS => $ccopts, + OBJECT => 'PerlIO.o modperl_apr_perlio.o' +); +
diff --git a/2_0_13/xs/APR/PerlIO/PerlIO.pm b/2_0_13/xs/APR/PerlIO/PerlIO.pm new file mode 100644 index 0000000..72a6330 --- /dev/null +++ b/2_0_13/xs/APR/PerlIO/PerlIO.pm
@@ -0,0 +1,32 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package APR::PerlIO; + +require 5.006001; + +our $VERSION = '0.009000'; + +# The PerlIO layer is available only since 5.8.0 (5.7.2@13534) +use Config; +use constant PERLIO_LAYERS_ARE_ENABLED => $Config{useperlio} && $] >= 5.007003; + +use APR (); +use APR::XSLoader (); +APR::XSLoader::load __PACKAGE__; + + +1;
diff --git a/2_0_13/xs/APR/PerlIO/PerlIO.xs b/2_0_13/xs/APR/PerlIO/PerlIO.xs new file mode 100644 index 0000000..f833017 --- /dev/null +++ b/2_0_13/xs/APR/PerlIO/PerlIO.xs
@@ -0,0 +1,25 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" +#include "modperl_apr_perlio.h" + +MODULE = APR::PerlIO PACKAGE = APR::PerlIO + +PROTOTYPES: disabled + +BOOT: + modperl_apr_perlio_init(aTHX);
diff --git a/2_0_13/xs/APR/PerlIO/modperl_apr_perlio.c b/2_0_13/xs/APR/PerlIO/modperl_apr_perlio.c new file mode 100644 index 0000000..e8c93a4 --- /dev/null +++ b/2_0_13/xs/APR/PerlIO/modperl_apr_perlio.c
@@ -0,0 +1,633 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "modperl_largefiles.h" + +#include "mod_perl.h" +#include "modperl_apr_perlio.h" + +#if defined(PERLIO_LAYERS) && defined(PERLIO_K_MULTIARG) /* 5.7.2+ */ + +/********************************************************************** + * The PerlIO APR layer. + * The PerlIO API is documented in perliol.pod. + **********************************************************************/ + +/* + * APR::PerlIO implements a PerlIO layer using apr_file_io as the core. + */ + +/* + * XXX: Since we cannot snoop on the internal apr_file_io buffer + * currently the IO is not buffered on the Perl side so every read + * requests a char at a time, which is slow. Consider copying the + * relevant code from PerlIOBuf to implement our own buffer, similar + * to what PerlIOBuf does or push :perlio layer on top of this layer + */ + +typedef struct { + struct _PerlIO base; + apr_file_t *file; + apr_pool_t *pool; +} PerlIOAPR; + +static IV PerlIOAPR_pushed(pTHX_ PerlIO *f, const char *mode, + SV *arg, PerlIO_funcs *tab) +{ + IV code = PerlIOBase_pushed(aTHX_ f, mode, arg, tab); + if (*PerlIONext(f)) { + /* XXX: not sure if we can do anything here, but see + * PerlIOUnix_pushed for things that it does + */ + } + return code; +} + +static PerlIO *PerlIOAPR_open(pTHX_ PerlIO_funcs *self, + PerlIO_list_t *layers, IV n, + const char *mode, int fd, int imode, + int perm, PerlIO *f, int narg, SV **args) +{ + SV *arg = (narg > 0) ? *args : PerlIOArg; + PerlIOAPR *st; + const char *path; + apr_int32_t apr_flag; + apr_status_t rc; + SV *sv; + + if (!(SvROK(arg) || SvPOK(arg))) { + return NULL; + } + + /* XXX: why passing only SV* for arg, check this out in PerlIO_push */ + if (!f) { + f = PerlIO_push(aTHX_ PerlIO_allocate(aTHX), self, mode, arg); + } + else { + f = PerlIO_push(aTHX_ f, self, mode, arg); + } + + /* grab the last arg as a filepath */ + path = (const char *)SvPV_nolen(args[narg-2]); + + switch (*mode) { + case 'a': + apr_flag = APR_APPEND | APR_CREATE; + break; + case 'w': + apr_flag = APR_WRITE | APR_CREATE | APR_TRUNCATE; + break; + case 'r': + apr_flag = APR_READ; + break; + default: + Perl_croak(aTHX_ "unknown open mode: %s", mode); + } + + /* APR_BINARY: we always do binary read and PerlIO is supposed + * to handle :crlf if any (by pushing this layer at + * open(). + * APR_BUFFERED: XXX, not sure if it'll be needed if we will push + * :perlio (== PerlIOBuf) layer on top + */ + apr_flag |= APR_BUFFERED | APR_BINARY; + + st = PerlIOSelf(f, PerlIOAPR); + + /* XXX: can't reuse a wrapper mp_xs_sv2_APR__Pool */ + /* XXX: should probably add checks on pool validity in all other callbacks */ + sv = args[narg-1]; + if (SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) { + st->pool = INT2PTR(apr_pool_t *, SvIV((SV*)SvRV(sv))); + } + else { + Perl_croak(aTHX_ "argument is not a blessed reference " + "(expecting an APR::Pool derived object)"); + } + + rc = apr_file_open(&st->file, path, apr_flag, APR_OS_DEFAULT, st->pool); + + MP_TRACE_o(MP_FUNC, "obj=0x%lx, file=0x%lx, name=%s, rc=%d", + (unsigned long)f, (unsigned long)st->file, + path ? path : "(UNKNOWN)", rc); + + if (rc != APR_SUCCESS) { + /* it just so happens that since $! is tied to errno, we get + * it set right via the system call that apr_file_open has + * performed internally, no need to do anything special */ + PerlIO_pop(aTHX_ f); + return NULL; + } + + PerlIOBase(f)->flags |= PERLIO_F_OPEN; + return f; +} + +static IV PerlIOAPR_fileno(pTHX_ PerlIO *f) +{ + /* apr_file_t* is an opaque struct, so fileno is not available. + * -1 in this case indicates that the layer cannot provide fileno + */ + return -1; +} + +static PerlIO *PerlIOAPR_dup(pTHX_ PerlIO *f, PerlIO *o, + CLONE_PARAMS *param, int flags) +{ + apr_status_t rc; + + if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags))) { + PerlIOAPR *fst = PerlIOSelf(f, PerlIOAPR); + PerlIOAPR *ost = PerlIOSelf(o, PerlIOAPR); + + rc = apr_file_dup(&fst->file, ost->file, ost->pool); + + MP_TRACE_o(MP_FUNC, "obj=0x%lx, " + "file=0x%lx => 0x%lx, rc=%d", + (unsigned long)f, (unsigned long)ost->file, + (unsigned long)fst->file, rc); + + if (rc == APR_SUCCESS) { + fst->pool = ost->pool; + return f; + } + } + + return NULL; +} + +static SSize_t PerlIOAPR_read(pTHX_ PerlIO *f, void *vbuf, Size_t count) +{ + PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR); + apr_status_t rc; + + rc = apr_file_read(st->file, vbuf, &count); + + MP_TRACE_o(MP_FUNC, "%db [%s]", (int)count, + MP_TRACE_STR_TRUNC(st->pool, (char *)vbuf, (int)count)); + + if (rc == APR_EOF) { + PerlIOBase(f)->flags |= PERLIO_F_EOF; + return count; + } + else if (rc != APR_SUCCESS) { + modperl_croak(aTHX_ rc, "APR::PerlIO::read"); + } + + return count; +} + +static SSize_t PerlIOAPR_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) +{ + PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR); + apr_status_t rc; + + MP_TRACE_o(MP_FUNC, "%db [%s]", (int)count, + MP_TRACE_STR_TRUNC(st->pool, (char *)vbuf, (int)count)); + + rc = apr_file_write(st->file, vbuf, &count); + if (rc == APR_SUCCESS) { + return (SSize_t) count; + } + + PerlIOBase(f)->flags |= PERLIO_F_ERROR; + return (SSize_t) -1; +} + +static IV PerlIOAPR_flush(pTHX_ PerlIO *f) +{ + PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR); + apr_status_t rc; + + rc = apr_file_flush(st->file); + if (rc == APR_SUCCESS) { + return 0; + } + + PerlIOBase(f)->flags |= PERLIO_F_ERROR; + return -1; +} + +static IV PerlIOAPR_seek(pTHX_ PerlIO *f, Off_t offset, int whence) +{ + PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR); + apr_seek_where_t where; + apr_status_t rc; + apr_off_t seek_offset = 0; + +#ifdef MP_LARGE_FILES_CONFLICT + if (offset != 0) { + Perl_croak(aTHX_ "PerlIO::APR::seek with non-zero offset" + "is not supported with Perl built w/ -Duselargefiles" + " and APR w/o largefiles support"); + } +#else + seek_offset = offset; +#endif + + /* Flush the fill buffer */ + if (PerlIO_flush(f) != 0) { + return -1; + } + + switch(whence) { + case 0: + where = APR_SET; + break; + case 1: + where = APR_CUR; + break; + case 2: + where = APR_END; + break; + default: + Perl_croak(aTHX_ "unknown whence mode: %d", whence); + } + + rc = apr_file_seek(st->file, where, &seek_offset); + if (rc == APR_SUCCESS) { + return 0; + } + + return -1; +} + +static Off_t PerlIOAPR_tell(pTHX_ PerlIO *f) +{ + PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR); + apr_off_t offset = 0; + apr_status_t rc; + + rc = apr_file_seek(st->file, APR_CUR, &offset); + if (rc == APR_SUCCESS) { + return (Off_t) offset; + } + + return (Off_t) -1; +} + +static IV PerlIOAPR_close(pTHX_ PerlIO *f) +{ + PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR); + IV code = PerlIOBase_close(aTHX_ f); + apr_status_t rc; + +#ifdef MP_TRACE + const char *new_path = NULL; + apr_os_file_t os_file; + +#ifdef PERL_PHASE_DESTRUCT + if (PL_phase != PERL_PHASE_DESTRUCT) { +#else + if (!PL_dirty) { +#endif + /* if this is called during perl_destruct we are in trouble */ + apr_file_name_get(&new_path, st->file); + } + + rc = apr_os_file_get(&os_file, st->file); + if (rc != APR_SUCCESS) { + Perl_croak(aTHX_ "filedes retrieval failed!"); + } + + MP_TRACE_o(MP_FUNC, "obj=0x%lx, file=0x%lx, fd=%d, name=%s", + (unsigned long)f, (unsigned long)st->file, os_file, + new_path ? new_path : "(UNKNOWN)"); +#endif + +#ifdef PERL_PHASE_DESTRUCT + if (PL_phase == PERL_PHASE_DESTRUCT) { +#else + if (PL_dirty) { +#endif + /* there should not be any PerlIOAPR handles open + * during perl_destruct + */ + Perl_warn(aTHX_ "leaked PerlIOAPR handle 0x%lx", + (unsigned long)f); + return -1; + } + + rc = apr_file_flush(st->file); + if (rc != APR_SUCCESS) { + return -1; + } + + rc = apr_file_close(st->file); + if (rc != APR_SUCCESS) { + return -1; + } + + return code; +} + +#if 0 /* we may use it if the buffering will be done at this layer */ + +static IV PerlIOAPR_fill(pTHX_ PerlIO *f) +{ + PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR); + apr_status_t rc; + SSize_t avail; + Size_t count = st->base.bufsiz; + + if (!st->base.buf) { + PerlIO_get_base(f); /* allocate via vtable */ + } + + MP_TRACE_o(MP_FUNC, "asked to fill %d chars", count); + + rc = apr_file_read(st->file, st->base.ptr, &count); + if (rc != APR_SUCCESS) { + PerlIOBase(f)->flags |= PERLIO_F_ERROR; + return -1; + } + + MP_TRACE_o(MP_FUNC, "got to fill %d chars", count); + + avail = count; /* apr_file_read() sets how many chars were read in count */ + if (avail <= 0) { + if (avail == 0) { + PerlIOBase(f)->flags |= PERLIO_F_EOF; + } + else { + PerlIOBase(f)->flags |= PERLIO_F_ERROR; + } + + return -1; + } + st->base.end = st->base.buf + avail; + + /* indicate that the buffer this layer currently holds unconsumed + data read from layer below. */ + PerlIOBase(f)->flags |= PERLIO_F_RDBUF; + + return 0; +} + +#endif + +static IV PerlIOAPR_eof(pTHX_ PerlIO *f) +{ + PerlIOAPR *st = PerlIOSelf(f, PerlIOAPR); + apr_status_t rc; + + rc = apr_file_eof(st->file); + switch (rc) { + case APR_EOF: + return 1; + default: + return 0; + } + + return -1; +} + +/* 5.8.0 doesn't export PerlIOBase_noop_fail, so we duplicate it here */ +static IV PerlIOAPR_noop_fail(pTHX_ PerlIO *f) +{ + return -1; +} + +static PerlIO_funcs PerlIO_APR = { + sizeof(PerlIO_funcs), + "APR", + sizeof(PerlIOAPR), + PERLIO_K_MULTIARG | PERLIO_K_RAW, + PerlIOAPR_pushed, + PerlIOBase_popped, + PerlIOAPR_open, + PerlIOBase_binmode, /* binmode() is handled by :crlf */ + NULL, /* no getarg needed */ + PerlIOAPR_fileno, + PerlIOAPR_dup, + PerlIOAPR_read, + PerlIOBase_unread, + PerlIOAPR_write, + PerlIOAPR_seek, + PerlIOAPR_tell, + PerlIOAPR_close, + PerlIOAPR_flush, /* flush */ + PerlIOAPR_noop_fail, /* fill */ + PerlIOAPR_eof, + PerlIOBase_error, + PerlIOBase_clearerr, + PerlIOBase_setlinebuf, + NULL, /* get_base */ + NULL, /* get_bufsiz */ + NULL, /* get_ptr */ + NULL, /* get_cnt */ + NULL, /* set_ptrcnt */ +}; + +void modperl_apr_perlio_init(pTHX) +{ + APR_REGISTER_OPTIONAL_FN(modperl_apr_perlio_apr_file_to_PerlIO); + APR_REGISTER_OPTIONAL_FN(modperl_apr_perlio_apr_file_to_glob); + + PerlIO_define_layer(aTHX_ &PerlIO_APR); +} + + +/* ***** End of PerlIOAPR tab ***** */ + + +/* ***** PerlIO <=> apr_file_t helper functions ***** */ + +PerlIO *modperl_apr_perlio_apr_file_to_PerlIO(pTHX_ apr_file_t *file, + apr_pool_t *pool, + modperl_apr_perlio_hook_e type) +{ + char *mode; + const char *layers = ":APR"; + PerlIOAPR *st; + PerlIO *f = PerlIO_allocate(aTHX); + + if (!f) { + Perl_croak(aTHX_ "Failed to allocate PerlIO struct"); + } + + switch (type) { + case MODPERL_APR_PERLIO_HOOK_WRITE: + mode = "w"; + break; + case MODPERL_APR_PERLIO_HOOK_READ: + mode = "r"; + break; + default: + Perl_croak(aTHX_ "unknown MODPERL_APR_PERLIO type: %d", type); + }; + + PerlIO_apply_layers(aTHX_ f, mode, layers); + if (!f) { + Perl_croak(aTHX_ "Failed to apply the ':APR' layer"); + } + + st = PerlIOSelf(f, PerlIOAPR); + +#ifdef MP_TRACE + { + apr_status_t rc; + apr_os_file_t os_file; + + /* convert to the OS representation of file */ + rc = apr_os_file_get(&os_file, file); + if (rc != APR_SUCCESS) { + croak("filedes retrieval failed!"); + } + + MP_TRACE_o(MP_FUNC, "converting to PerlIO fd %d, mode '%s'", + os_file, mode); + } +#endif + + st->pool = pool; + st->file = file; + PerlIOBase(f)->flags |= PERLIO_F_OPEN; + + return f; +} + +static SV *modperl_apr_perlio_PerlIO_to_glob(pTHX_ PerlIO *pio, + modperl_apr_perlio_hook_e type) +{ + SV *retval = modperl_perl_gensym(aTHX_ "APR::PerlIO"); + GV *gv = (GV*)SvRV(retval); + + gv_IOadd(gv); + + switch (type) { + case MODPERL_APR_PERLIO_HOOK_WRITE: + /* if IoIFP() is not assigned to it'll be never closed, see + * Perl_io_close() */ + IoIFP(GvIOp(gv)) = IoOFP(GvIOp(gv)) = pio; + IoFLAGS(GvIOp(gv)) |= IOf_FLUSH; + IoTYPE(GvIOp(gv)) = IoTYPE_WRONLY; + break; + case MODPERL_APR_PERLIO_HOOK_READ: + IoIFP(GvIOp(gv)) = pio; + IoTYPE(GvIOp(gv)) = IoTYPE_RDONLY; + break; + }; + + return sv_2mortal(retval); +} + +SV *modperl_apr_perlio_apr_file_to_glob(pTHX_ apr_file_t *file, + apr_pool_t *pool, + modperl_apr_perlio_hook_e type) +{ + return modperl_apr_perlio_PerlIO_to_glob(aTHX_ + modperl_apr_perlio_apr_file_to_PerlIO(aTHX_ file, pool, type), + type); +} + +#else /* defined(PERLIO_LAYERS) (5.6.x) */ + +#ifdef USE_PERLIO /* 5.6.x + -Duseperlio */ +#define MP_IO_TYPE PerlIO +#else +#define MP_IO_TYPE FILE +#endif + +static MP_IO_TYPE *modperl_apr_perlio_apr_file_to_PerlIO(pTHX_ apr_file_t *file, + modperl_apr_perlio_hook_e type) +{ + MP_IO_TYPE *retval; + char *mode; + int fd; + apr_os_file_t os_file; + apr_status_t rc; + + switch (type) { + case MODPERL_APR_PERLIO_HOOK_WRITE: + mode = "w"; + break; + case MODPERL_APR_PERLIO_HOOK_READ: + mode = "r"; + break; + }; + + /* convert to the OS representation of file */ + rc = apr_os_file_get(&os_file, file); + if (rc != APR_SUCCESS) { + Perl_croak(aTHX_ "filedes retrieval failed!"); + } + + MP_TRACE_o(MP_FUNC, "converting fd %d", os_file); + + /* let's try without the dup, it seems to work fine: + + fd = PerlLIO_dup(os_file); + MP_TRACE_o(MP_FUNC, "fd old: %d, new %d", os_file, fd); + if (!(retval = PerlIO_fdopen(fd, mode))) { + ... + } + + in any case if we later decide to dup, remember to: + + apr_file_close(file); + + after PerlIO_fdopen() or that fh will be leaked + + */ + + if (!(retval = PerlIO_fdopen(os_file, mode))) { + PerlLIO_close(fd); + Perl_croak(aTHX_ "fdopen failed!"); + } + + return retval; +} + +SV *modperl_apr_perlio_apr_file_to_glob(pTHX_ apr_file_t *file, + apr_pool_t *pool, + modperl_apr_perlio_hook_e type) +{ + SV *retval = modperl_perl_gensym(aTHX_ "APR::PerlIO"); + GV *gv = (GV*)SvRV(retval); + + gv_IOadd(gv); + + switch (type) { + case MODPERL_APR_PERLIO_HOOK_WRITE: + IoIFP(GvIOp(gv)) = IoOFP(GvIOp(gv)) = + modperl_apr_perlio_apr_file_to_PerlIO(aTHX_ file, type); + IoFLAGS(GvIOp(gv)) |= IOf_FLUSH; + IoTYPE(GvIOp(gv)) = IoTYPE_WRONLY; + break; + case MODPERL_APR_PERLIO_HOOK_READ: + IoIFP(GvIOp(gv)) = modperl_apr_perlio_apr_file_to_PerlIO(aTHX_ file, + type); + IoTYPE(GvIOp(gv)) = IoTYPE_RDONLY; + break; + }; + + return sv_2mortal(retval); +} + +void modperl_apr_perlio_init(pTHX) +{ + APR_REGISTER_OPTIONAL_FN(modperl_apr_perlio_apr_file_to_glob); +} + +#endif /* PERLIO_LAYERS */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/PerlIO/modperl_apr_perlio.h b/2_0_13/xs/APR/PerlIO/modperl_apr_perlio.h new file mode 100644 index 0000000..15c853a --- /dev/null +++ b/2_0_13/xs/APR/PerlIO/modperl_apr_perlio.h
@@ -0,0 +1,83 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_APR_PERLIO_H +#define MODPERL_APR_PERLIO_H + +#ifdef PERLIO_LAYERS +#include "perliol.h" +#else +#include "iperlsys.h" +#endif + +#include "apr_portable.h" +#include "apr_file_io.h" +#include "apr_errno.h" + +#ifndef MP_SOURCE_SCAN +#include "apr_optional.h" +#endif + +/* 5.6.0 */ +#ifndef IoTYPE_RDONLY +#define IoTYPE_RDONLY '<' +#endif +#ifndef IoTYPE_WRONLY +#define IoTYPE_WRONLY '>' +#endif + +typedef enum { + MODPERL_APR_PERLIO_HOOK_READ, + MODPERL_APR_PERLIO_HOOK_WRITE +} modperl_apr_perlio_hook_e; + +#ifndef MP_SOURCE_SCAN +void modperl_apr_perlio_init(pTHX); +#endif + +/* The following functions can be used from other .so libs, they just + * need to load APR::PerlIO perl module first + */ +#ifndef MP_SOURCE_SCAN + +#ifdef PERLIO_LAYERS +PerlIO *modperl_apr_perlio_apr_file_to_PerlIO(pTHX_ apr_file_t *file, + apr_pool_t *pool, + modperl_apr_perlio_hook_e type); +APR_DECLARE_OPTIONAL_FN(PerlIO *, + modperl_apr_perlio_apr_file_to_PerlIO, + (pTHX_ apr_file_t *file, apr_pool_t *pool, + modperl_apr_perlio_hook_e type)); +#endif /* PERLIO_LAYERS */ + + +SV *modperl_apr_perlio_apr_file_to_glob(pTHX_ apr_file_t *file, + apr_pool_t *pool, + modperl_apr_perlio_hook_e type); +APR_DECLARE_OPTIONAL_FN(SV *, + modperl_apr_perlio_apr_file_to_glob, + (pTHX_ apr_file_t *file, apr_pool_t *pool, + modperl_apr_perlio_hook_e type)); +#endif /* MP_SOURCE_SCAN */ + +#endif /* MODPERL_APR_PERLIO_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Pool/APR__Pool.h b/2_0_13/xs/APR/Pool/APR__Pool.h new file mode 100644 index 0000000..4a168b3 --- /dev/null +++ b/2_0_13/xs/APR/Pool/APR__Pool.h
@@ -0,0 +1,398 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define MP_APR_POOL_NEW "APR::Pool::new" + +typedef struct { + SV *sv; +#ifdef USE_ITHREADS + PerlInterpreter *perl; + modperl_interp_t *interp; +#endif +} mpxs_pool_account_t; + +/* XXX: this implementation has a problem with perl ithreads. if a + * custom pool is allocated, and then a thread is spawned we now have + * two copies of the pool object, each living in a different perl + * interpreter, both pointing to the same memory address of the apr + * pool. + * + * need to write a CLONE class method could properly clone the + * thread's copied object, but it's tricky: + * - it needs to call parent_get() on the copied object and allocate a + * new pool from that parent's pool + * - it needs to reinstall any registered cleanup callbacks (can we do + * that?) may be we can skip those? + */ + +#ifndef MP_SOURCE_SCAN +#ifdef USE_ITHREADS +#include "apr_optional.h" +APR_OPTIONAL_FN_TYPE(modperl_interp_unselect) *modperl_opt_interp_unselect; +APR_OPTIONAL_FN_TYPE(modperl_thx_interp_get) *modperl_opt_thx_interp_get; +#endif +#endif + +#define MP_APR_POOL_SV_HAS_OWNERSHIP(sv) mpxs_pool_is_custom(sv) + +/* before the magic is freed, one needs to carefully detach the + * dependant pool magic added by mpxs_add_pool_magic (most of the time + * it'd be a parent pool), and postpone its destruction, until after + * the child pool is destroyed. Since if we don't do that the + * destruction of the parent pool will destroy the child pool C guts + * and when perl unware of that the rug was pulled under the feet will + * continue destructing the child pool, things will crash + */ +#define MP_APR_POOL_SV_DROPS_OWNERSHIP_RUN(acct) STMT_START { \ + MAGIC *mg = mg_find(acct->sv, PERL_MAGIC_ext); \ + if (mg && mg->mg_obj) { \ + sv_2mortal(mg->mg_obj); \ + mg->mg_obj = (SV *)NULL; \ + mg->mg_flags &= ~MGf_REFCOUNTED; \ + } \ + mg_free(acct->sv); \ + SvIVX(acct->sv) = 0; \ +} STMT_END + +#ifdef USE_ITHREADS + +#define MP_APR_POOL_SV_DROPS_OWNERSHIP(acct) STMT_START { \ + dTHXa(acct->perl); \ + MP_APR_POOL_SV_DROPS_OWNERSHIP_RUN(acct); \ + if (modperl_opt_interp_unselect && acct->interp) { \ + /* this will decrement the interp refcnt until \ + * there are no more references, in which case \ + * the interpreter will be putback into the mip \ + */ \ + MP_TRACE_i(MP_FUNC, "DO: calling interp_unselect(0x%lx)", \ + acct->interp); \ + (void)modperl_opt_interp_unselect(acct->interp); \ + } \ +} STMT_END + +#define MP_APR_POOL_SV_TAKES_OWNERSHIP(acct_sv, pool) STMT_START { \ + mpxs_pool_account_t *acct = apr_palloc(pool, sizeof *acct); \ + acct->sv = acct_sv; \ + acct->perl = aTHX; \ + SvIVX(acct_sv) = PTR2IV(pool); \ + \ + sv_magic(acct_sv, (SV *)NULL, PERL_MAGIC_ext, \ + MP_APR_POOL_NEW, sizeof(MP_APR_POOL_NEW)); \ + \ + apr_pool_cleanup_register(pool, (void *)acct, \ + mpxs_apr_pool_cleanup, \ + apr_pool_cleanup_null); \ + \ + /* make sure interpreter is not putback into the mip \ + * until this cleanup has run. \ + */ \ + if (modperl_opt_thx_interp_get) { \ + if ((acct->interp = modperl_opt_thx_interp_get(aTHX))) { \ + acct->interp->refcnt++; \ + MP_TRACE_i(MP_FUNC, "TO: (0x%lx)->refcnt incremented to %ld", \ + acct->interp, acct->interp->refcnt); \ + } \ + } \ +} STMT_END + +#else /* !USE_ITHREADS */ + +#define MP_APR_POOL_SV_DROPS_OWNERSHIP MP_APR_POOL_SV_DROPS_OWNERSHIP_RUN + +#define MP_APR_POOL_SV_TAKES_OWNERSHIP(acct_sv, pool) STMT_START { \ + mpxs_pool_account_t *acct = apr_palloc(pool, sizeof *acct); \ + acct->sv = acct_sv; \ + SvIVX(acct_sv) = PTR2IV(pool); \ + \ + sv_magic(acct_sv, (SV *)NULL, PERL_MAGIC_ext, \ + MP_APR_POOL_NEW, sizeof(MP_APR_POOL_NEW)); \ + \ + apr_pool_cleanup_register(pool, (void *)acct, \ + mpxs_apr_pool_cleanup, \ + apr_pool_cleanup_null); \ +} STMT_END + +#endif /* USE_ITHREADS */ + + +/* XXX: should we make it a new global tracing category + * MOD_PERL_TRACE=p for tracing pool management? */ +#define MP_POOL_TRACE_DO 0 + +#if MP_POOL_TRACE_DO && defined(MP_TRACE) +#define MP_POOL_TRACE modperl_trace +#else +#define MP_POOL_TRACE if (0) modperl_trace +#endif + +/* invalidate all Perl objects referencing the data sv stored in the + * pool and the sv itself. this is needed when a parent pool triggers + * apr_pool_destroy on its child pools + */ +static MP_INLINE apr_status_t +mpxs_apr_pool_cleanup(void *cleanup_data) +{ + mpxs_pool_account_t *acct = cleanup_data; + MP_APR_POOL_SV_DROPS_OWNERSHIP(acct); + return APR_SUCCESS; +} + +/** + * Create a new pool or subpool. + * @param parent_pool_obj an APR::Pool object or an "APR::Pool" class + * @return a new pool or subpool + */ +static MP_INLINE SV *mpxs_apr_pool_create(pTHX_ SV *parent_pool_obj) +{ + apr_pool_t *parent_pool = mpxs_sv_object_deref(parent_pool_obj, apr_pool_t); + apr_pool_t *child_pool = NULL; + + MP_POOL_TRACE(MP_FUNC, "parent pool 0x%l", (unsigned long)parent_pool); + (void)apr_pool_create(&child_pool, parent_pool); + +#if APR_POOL_DEBUG + /* useful for pools debugging, can grep for APR::Pool::new */ + apr_pool_tag(child_pool, MP_APR_POOL_NEW); +#endif + + /* allocation corruption validation: I saw this happening when the + * same pool was destroyed more than once, should be fixed now, + * but still the check is not redundant */ + if (child_pool == parent_pool) { + Perl_croak(aTHX_ "a newly allocated sub-pool 0x%lx " + "is the same as its parent 0x%lx, aborting", + (unsigned long)child_pool, (unsigned long)parent_pool); + } + +#if APR_POOL_DEBUG + /* child <-> parent <-> ... <-> top ancestry traversal */ + { + apr_pool_t *p = child_pool; + apr_pool_t *pp; + + while ((pp = apr_pool_parent_get(p))) { + MP_POOL_TRACE(MP_FUNC, "parent 0x%lx, child 0x%lx", + (unsigned long)pp, (unsigned long)p); + + if (apr_pool_is_ancestor(pp, p)) { + MP_POOL_TRACE(MP_FUNC, "0x%lx is a subpool of 0x%lx", + (unsigned long)p, (unsigned long)pp); + } + p = pp; + } + } +#endif + + { + SV *rv = sv_setref_pv(newSV(0), "APR::Pool", (void*)child_pool); + SV *sv = SvRV(rv); + + /* Each newly created pool must be destroyed only once. Calling + * apr_pool_destroy will destroy the pool and its children pools, + * however a perl object for a sub-pool will still keep a pointer + * to the pool which was already destroyed. When this object is + * DESTROYed, apr_pool_destroy will be called again. In the best + * case it'll try to destroy a non-existing pool, but in the worst + * case it'll destroy a different valid pool which has been given + * the same memory allocation wrecking havoc. Therefore we must + * ensure that when sub-pools are destroyed via the parent pool, + * their cleanup callbacks will destroy the guts of their perl + * objects, so when those perl objects, pointing to memory + * previously allocated by destroyed sub-pools or re-used already + * by new pools, will get their time to DESTROY, they won't make a + * mess, trying to destroy an already destroyed pool or even worse + * a pool allocate in the place of the old one. + */ + + MP_APR_POOL_SV_TAKES_OWNERSHIP(sv, child_pool); + + MP_POOL_TRACE(MP_FUNC, "sub-pool p: 0x%lx, sv: 0x%lx, rv: 0x%lx", + (unsigned long)child_pool, sv, rv); + + if (parent_pool) { + mpxs_add_pool_magic(rv, parent_pool_obj); + } + + return rv; + } +} + +static MP_INLINE void mpxs_APR__Pool_clear(pTHX_ SV *obj) +{ + apr_pool_t *p = mp_xs_sv2_APR__Pool(obj); + SV *sv = SvRV(obj); + + if (!MP_APR_POOL_SV_HAS_OWNERSHIP(sv)) { + MP_POOL_TRACE(MP_FUNC, "parent pool (0x%lx) is a core pool", + (unsigned long)p); + apr_pool_clear(p); + return; + } + + MP_POOL_TRACE(MP_FUNC, + "parent pool (0x%lx) is a custom pool, sv 0x%lx", + (unsigned long)p, + (unsigned long)sv); + + apr_pool_clear(p); + + /* apr_pool_clear runs & removes the cleanup, so we need to restore + * it. Since clear triggers mpxs_apr_pool_cleanup call, our + * object's guts get nuked too, so we need to restore them too */ + + MP_APR_POOL_SV_TAKES_OWNERSHIP(sv, p); +} + + +typedef struct { + SV *cv; + SV *arg; + apr_pool_t *p; +#ifdef USE_ITHREADS + PerlInterpreter *perl; + modperl_interp_t *interp; +#endif +} mpxs_cleanup_t; + +/** + * callback wrapper for Perl cleanup subroutines + * @param data internal storage + */ + + +static apr_status_t mpxs_cleanup_run(void *data) +{ + int count; + mpxs_cleanup_t *cdata = (mpxs_cleanup_t *)data; +#ifdef USE_ITHREADS + dTHXa(cdata->perl); +#endif + dSP; + + ENTER;SAVETMPS; + PUSHMARK(SP); + if (cdata->arg) { + XPUSHs(cdata->arg); + } + PUTBACK; + + save_gp(PL_errgv, 1); /* local *@ */ + count = call_sv(cdata->cv, G_SCALAR|G_EVAL); + + SPAGAIN; + + if (count == 1) { + (void)POPs; /* the return value is ignored */ + } + + if (SvTRUE(ERRSV)) { + Perl_warn(aTHX_ "APR::Pool: cleanup died: %s", + SvPV_nolen(ERRSV)); + } + + PUTBACK; + FREETMPS;LEAVE; + + SvREFCNT_dec(cdata->cv); + if (cdata->arg) { + SvREFCNT_dec(cdata->arg); + } + +#ifdef USE_ITHREADS + if (cdata->interp && modperl_opt_interp_unselect) { + /* this will decrement the interp refcnt until + * there are no more references, in which case + * the interpreter will be putback into the mip + */ + MP_TRACE_i(MP_FUNC, "calling interp_unselect(0x%lx)", cdata->interp); + (void)modperl_opt_interp_unselect(cdata->interp); + } +#endif + + /* the return value is ignored by apr_pool_destroy anyway */ + return APR_SUCCESS; +} + +/** + * register cleanups to run + * @param p pool with which to associate the cleanup + * @param cv subroutine reference to run + * @param arg optional argument to pass to the subroutine + */ +static MP_INLINE void mpxs_apr_pool_cleanup_register(pTHX_ apr_pool_t *p, + SV *cv, SV *arg) +{ + mpxs_cleanup_t *data = + (mpxs_cleanup_t *)apr_pcalloc(p, sizeof(*data)); + + data->cv = SvREFCNT_inc(cv); + data->arg = arg ? SvREFCNT_inc(arg) : (SV *)NULL; + data->p = p; +#ifdef USE_ITHREADS + data->perl = aTHX; + /* make sure interpreter is not putback into the mip + * until this cleanup has run. + */ + if (modperl_opt_thx_interp_get) { + if ((data->interp = modperl_opt_thx_interp_get(data->perl))) { + data->interp->refcnt++; + MP_TRACE_i(MP_FUNC, "(0x%lx)->refcnt incremented to %ld", + data->interp, data->interp->refcnt); + } + } +#endif + + apr_pool_cleanup_register(p, data, + mpxs_cleanup_run, + apr_pool_cleanup_null); +} + + +static MP_INLINE SV * +mpxs_apr_pool_parent_get(pTHX_ apr_pool_t *child_pool) +{ + apr_pool_t *parent_pool = apr_pool_parent_get(child_pool); + + if (parent_pool) { + return SvREFCNT_inc(mp_xs_APR__Pool_2obj(parent_pool)); + } + else { + MP_POOL_TRACE(MP_FUNC, "pool (0x%lx) has no parents", + (unsigned long)child_pool); + return &PL_sv_undef; + } +} + +/** + * destroy a pool + * @param obj an APR::Pool object + */ +static MP_INLINE void mpxs_apr_pool_DESTROY(pTHX_ SV *obj) +{ + SV *sv = SvRV(obj); + + if (MP_APR_POOL_SV_HAS_OWNERSHIP(sv)) { + apr_pool_t *p = mpxs_sv_object_deref(obj, apr_pool_t); + apr_pool_destroy(p); + } +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/SockAddr/APR__SockAddr.h b/2_0_13/xs/APR/SockAddr/APR__SockAddr.h new file mode 100644 index 0000000..06790d9 --- /dev/null +++ b/2_0_13/xs/APR/SockAddr/APR__SockAddr.h
@@ -0,0 +1,32 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE char * +mpxs_apr_sockaddr_ip_get(pTHX_ apr_sockaddr_t *sockaddr) +{ + char *addr = NULL; + + (void)apr_sockaddr_ip_get(&addr, sockaddr); + + return addr; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Socket/APR__Socket.h b/2_0_13/xs/APR/Socket/APR__Socket.h new file mode 100644 index 0000000..0c2a88e --- /dev/null +++ b/2_0_13/xs/APR/Socket/APR__Socket.h
@@ -0,0 +1,134 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +apr_size_t mpxs_APR__Socket_recv(pTHX_ apr_socket_t *socket, + SV *buffer, + apr_size_t len) +{ + apr_status_t rc; + + mpxs_sv_grow(buffer, len); + rc = apr_socket_recv(socket, SvPVX(buffer), &len); + + if (!(rc == APR_SUCCESS || rc == APR_EOF)) { + modperl_croak(aTHX_ rc, "APR::Socket::recv"); + } + + mpxs_sv_cur_set(buffer, len); + SvTAINTED_on(buffer); + return len; +} + +static MP_INLINE +apr_size_t mpxs_apr_socket_send(pTHX_ apr_socket_t *socket, + SV *sv_buf, SV *sv_len) +{ + apr_size_t buf_len; + char *buffer = SvPV(sv_buf, buf_len); + + if (sv_len) { + if (buf_len < SvIV(sv_len)) { + Perl_croak(aTHX_ "the 3rd arg (%d) is bigger than the " + "length (%d) of the 2nd argument", + (int)SvIV(sv_len), buf_len); + } + buf_len = SvIV(sv_len); + } + + MP_RUN_CROAK(apr_socket_send(socket, buffer, &buf_len), + "APR::Socket::send"); + + return buf_len; +} + +static MP_INLINE +apr_interval_time_t mpxs_apr_socket_timeout_get(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + apr_interval_time_t t; + APR__Socket APR__Socket; + + /* this also magically assings to APR_Socket ;-) */ + mpxs_usage_va_1(APR__Socket, "$socket->timeout_get()"); + + MP_RUN_CROAK(apr_socket_timeout_get(APR__Socket, &t), + "APR::Socket::timeout_get"); + return t; +} + +static MP_INLINE +void mpxs_APR__Socket_timeout_set(pTHX_ apr_socket_t *socket, + apr_interval_time_t t) +{ + MP_RUN_CROAK(apr_socket_timeout_set(socket, t), + "APR::Socket::timeout_set"); +} + + + +static MP_INLINE +apr_int32_t mpxs_APR__Socket_opt_get(pTHX_ apr_socket_t *socket, + apr_int32_t opt) +{ + apr_int32_t val; + MP_RUN_CROAK(apr_socket_opt_get(socket, opt, &val), + "APR::Socket::opt_get"); + return val; +} + +static MP_INLINE +void mpxs_APR__Socket_opt_set(pTHX_ apr_socket_t *socket, apr_int32_t opt, + apr_int32_t val) +{ + MP_RUN_CROAK(apr_socket_opt_set(socket, opt, val), + "APR::Socket::opt_set"); +} + +static MP_INLINE +apr_status_t mpxs_APR__Socket_poll(apr_socket_t *socket, + apr_pool_t *pool, + apr_interval_time_t timeout, + apr_int16_t reqevents) +{ + apr_pollfd_t fd; + apr_int32_t nsds; + + /* what to poll */ + fd.p = pool; + fd.desc_type = APR_POLL_SOCKET; + fd.desc.s = socket; + fd.reqevents = reqevents; + fd.rtnevents = 0; /* XXX: not really necessary to set this */ + + return apr_poll(&fd, 1, &nsds, timeout); +} + +#ifndef WIN32 +static MP_INLINE int mpxs_APR__Socket_fileno(pTHX_ apr_socket_t *socket) +{ + apr_os_sock_t s; + apr_os_sock_get(&s, socket); + return s; +} +#endif + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Status/APR__Status.h b/2_0_13/xs/APR/Status/APR__Status.h new file mode 100644 index 0000000..b741cb2 --- /dev/null +++ b/2_0_13/xs/APR/Status/APR__Status.h
@@ -0,0 +1,32 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "apr_errno.h" + +#define mpxs_APR__Status_is_EAGAIN APR_STATUS_IS_EAGAIN +#define mpxs_APR__Status_is_EACCES APR_STATUS_IS_EACCES +#define mpxs_APR__Status_is_ENOENT APR_STATUS_IS_ENOENT +#define mpxs_APR__Status_is_EOF APR_STATUS_IS_EOF +#define mpxs_APR__Status_is_ECONNABORTED APR_STATUS_IS_ECONNABORTED +#define mpxs_APR__Status_is_ECONNRESET APR_STATUS_IS_ECONNRESET +#define mpxs_APR__Status_is_TIMEUP APR_STATUS_IS_TIMEUP + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/String/APR__String.h b/2_0_13/xs/APR/String/APR__String.h new file mode 100644 index 0000000..a257cdd --- /dev/null +++ b/2_0_13/xs/APR/String/APR__String.h
@@ -0,0 +1,32 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +SV *mpxs_APR__String_strfsize(pTHX_ apr_off_t size) +{ + char buff[5]; + + apr_strfsize(size, buff); + + return newSVpvn(buff, 4); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Table/APR__Table.h b/2_0_13/xs/APR/Table/APR__Table.h new file mode 100644 index 0000000..4ef6c49 --- /dev/null +++ b/2_0_13/xs/APR/Table/APR__Table.h
@@ -0,0 +1,241 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define mpxs_APR__Table_STORE apr_table_set +#define mpxs_APR__Table_DELETE apr_table_unset +#define mpxs_APR__Table_CLEAR apr_table_clear + +#define MPXS_DO_TABLE_N_MAGIC_RETURN(call) \ + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); \ + apr_table_t *t = call; \ + SV *t_sv = modperl_hash_tie(aTHX_ "APR::Table", (SV *)NULL, t); \ + mpxs_add_pool_magic(t_sv, p_sv); \ + return t_sv; + +static MP_INLINE SV *mpxs_APR__Table_make(pTHX_ SV *p_sv, int nelts) +{ + MPXS_DO_TABLE_N_MAGIC_RETURN(apr_table_make(p, nelts)); +} + + +static MP_INLINE SV *mpxs_APR__Table_copy(pTHX_ apr_table_t *base, SV *p_sv) +{ + MPXS_DO_TABLE_N_MAGIC_RETURN(apr_table_copy(p, base)); +} + +static MP_INLINE SV *mpxs_APR__Table_overlay(pTHX_ apr_table_t *base, + apr_table_t *overlay, SV *p_sv) +{ + MPXS_DO_TABLE_N_MAGIC_RETURN(apr_table_overlay(p, overlay, base)); +} + + +typedef struct { + SV *cv; + apr_hash_t *filter; + PerlInterpreter *perl; +} mpxs_table_do_cb_data_t; + +typedef int (*mpxs_apr_table_do_cb_t)(void *, const char *, const char *); + +static int mpxs_apr_table_do_cb(void *data, + const char *key, const char *val) +{ + mpxs_table_do_cb_data_t *tdata = (mpxs_table_do_cb_data_t *)data; + dTHXa(tdata->perl); + dSP; + int rv = 0; + + /* Skip completely if something is wrong */ + if (!(tdata && tdata->cv && key && val)) { + return 0; + } + + /* Skip entries if not in our filter list */ + if (tdata->filter) { + if (!apr_hash_get(tdata->filter, key, APR_HASH_KEY_STRING)) { + return 1; + } + } + + ENTER; + SAVETMPS; + + PUSHMARK(sp); + XPUSHs(sv_2mortal(newSVpv(key,0))); + XPUSHs(sv_2mortal(newSVpv(val,0))); + PUTBACK; + + rv = call_sv(tdata->cv, 0); + SPAGAIN; + rv = (1 == rv) ? POPi : 1; + PUTBACK; + + FREETMPS; + LEAVE; + + /* rv of 0 aborts the traversal */ + return rv; +} + +static MP_INLINE +int mpxs_apr_table_do(pTHX_ I32 items, SV **MARK, SV **SP) +{ + apr_table_t *table; + SV *sub; + mpxs_table_do_cb_data_t tdata; + + mpxs_usage_va_2(table, sub, "$table->do(sub, [@filter])"); + + tdata.cv = sub; + tdata.filter = NULL; +#ifdef USE_ITHREADS + tdata.perl = aTHX; +#endif + + if (items > 2) { + char *filter_entry; + STRLEN len; + + tdata.filter = apr_hash_make(apr_table_elts(table)->pool); + + while (MARK <= SP) { + filter_entry = SvPV(*MARK, len); + apr_hash_set(tdata.filter, filter_entry, len, "1"); + MARK++; + } + } + + /* XXX: would be nice to be able to call apr_table_vdo directly, + * but I don't think it's possible to create/populate something + * that smells like a va_list with our list of filters specs + */ + + apr_table_do(mpxs_apr_table_do_cb, (void *)&tdata, table, NULL); + + /* Free tdata.filter or wait for the pool to go away? */ + + /* XXX: return return value of apr_table_do once we require newer httpd */ + return 1; +} + +static MP_INLINE int mpxs_APR__Table_EXISTS(apr_table_t *t, const char *key) +{ + return (NULL == apr_table_get(t, key)) ? 0 : 1; +} + +/* Note: SvCUR is used as the iterator state counter, why not ;-? */ +#define mpxs_apr_table_iterix(sv) \ +SvCUR(SvRV(sv)) + +#define mpxs_apr_table_nextkey(t, sv) \ + ((apr_table_entry_t *) \ + apr_table_elts(t)->elts)[mpxs_apr_table_iterix(sv)++].key + +static MP_INLINE const char *mpxs_APR__Table_NEXTKEY(pTHX_ SV *tsv, SV *key) +{ + apr_table_t *t; + SV *rv = modperl_hash_tied_object_rv(aTHX_ "APR::Table", tsv); + if (!SvROK(rv)) { + Perl_croak(aTHX_ "Usage: $table->NEXTKEY($key): " + "first argument not an APR::Table object"); + } + + t = INT2PTR(apr_table_t *, SvIVX(SvRV(rv))); + + if (apr_is_empty_table(t)) { + return NULL; + } + + if (key == NULL) { + mpxs_apr_table_iterix(rv) = 0; /* reset iterator index */ + } + + if (mpxs_apr_table_iterix(rv) < apr_table_elts(t)->nelts) { + return mpxs_apr_table_nextkey(t, rv); + } + + mpxs_apr_table_iterix(rv) = 0; + + return NULL; +} + +/* Try to shortcut apr_table_get by fetching the key using the current + * iterator (unless it's inactive or points at different key). + */ +static MP_INLINE const char *mpxs_APR__Table_FETCH(pTHX_ SV *tsv, + const char *key) +{ + SV* rv = modperl_hash_tied_object_rv(aTHX_ "APR::Table", tsv); + const int i = mpxs_apr_table_iterix(rv); + apr_table_t *t = INT2PTR(apr_table_t *, SvIVX(SvRV(rv))); + const apr_array_header_t *arr = apr_table_elts(t); + apr_table_entry_t *elts = (apr_table_entry_t *)arr->elts; + + if (i > 0 && i <= arr->nelts && !strcasecmp(key, elts[i-1].key)) { + return elts[i-1].val; + } + else { + return apr_table_get(t, key); + } +} + + +MP_STATIC XS(MPXS_apr_table_get) +{ + dXSARGS; + + if (items != 2) { + Perl_croak(aTHX_ "Usage: $table->get($key)"); + } + + mpxs_PPCODE({ + APR__Table t = modperl_hash_tied_object(aTHX_ "APR::Table", ST(0)); + const char *key = (const char *)SvPV_nolen(ST(1)); + + if (!t) { + XSRETURN_UNDEF; + } + + if (GIMME_V == G_SCALAR) { + const char *val = apr_table_get(t, key); + + if (val) { + XPUSHs(sv_2mortal(newSVpv((char*)val, 0))); + } + } + else { + const apr_array_header_t *arr = apr_table_elts(t); + apr_table_entry_t *elts = (apr_table_entry_t *)arr->elts; + int i; + + for (i = 0; i < arr->nelts; i++) { + if (!elts[i].key || strcasecmp(elts[i].key, key)) { + continue; + } + XPUSHs(sv_2mortal(newSVpv(elts[i].val,0))); + } + } + }); + +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/ThreadMutex/APR__ThreadMutex.h b/2_0_13/xs/APR/ThreadMutex/APR__ThreadMutex.h new file mode 100644 index 0000000..3f4a395 --- /dev/null +++ b/2_0_13/xs/APR/ThreadMutex/APR__ThreadMutex.h
@@ -0,0 +1,37 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define apr_thread_mutex_DESTROY apr_thread_mutex_destroy + +static MP_INLINE +SV *mpxs_apr_thread_mutex_create(pTHX_ SV *classname, SV *p_sv, + unsigned int flags) +{ + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); + apr_thread_mutex_t *mutex = NULL; + SV *mutex_sv; + (void)apr_thread_mutex_create(&mutex, flags, p); + mutex_sv = sv_setref_pv(newSV(0), "APR::ThreadMutex", (void*)mutex); + mpxs_add_pool_magic(mutex_sv, p_sv); + return mutex_sv; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/ThreadRWLock/APR__ThreadRWLock.h b/2_0_13/xs/APR/ThreadRWLock/APR__ThreadRWLock.h new file mode 100644 index 0000000..a2d4d4b --- /dev/null +++ b/2_0_13/xs/APR/ThreadRWLock/APR__ThreadRWLock.h
@@ -0,0 +1,36 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define apr_thread_rwlock_DESTROY apr_thread_rwlock_destroy + +static MP_INLINE +SV *mpxs_apr_thread_rwlock_create(pTHX_ SV *classname, SV *p_sv) +{ + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); + apr_thread_rwlock_t *rwlock = NULL; + SV *rwlock_sv; + (void)apr_thread_rwlock_create(&rwlock, p); + rwlock_sv = sv_setref_pv(newSV(0), "APR::ThreadRWLock", (void*)rwlock); + mpxs_add_pool_magic(rwlock_sv, p_sv); + return rwlock_sv; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/URI/APR__URI.h b/2_0_13/xs/APR/URI/APR__URI.h new file mode 100644 index 0000000..59589aa --- /dev/null +++ b/2_0_13/xs/APR/URI/APR__URI.h
@@ -0,0 +1,102 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +char *mpxs_apr_uri_unparse(pTHX_ + apr_uri_t *uptr, + unsigned flags) +{ + + /* apr =< 0.9.2-dev segfaults if hostname is set, but scheme is not. + * apr >= 0.9.2 simply uses "", which will force the user to set scheme + * since apr_uri_unparse is protocol-agnostic, it doesn't use + * 'http' as the default fallback anymore. so we use the same solution + */ +#if APR_MAJOR_VERSION == 0 && APR_MINOR_VERSION == 9 && \ + (APR_PATCH_VERSION < 2 || APR_PATCH_VERSION == 2 && defined APR_IS_DEV_VERSION) + if (uptr->hostname && !uptr->scheme) { + uptr->scheme = ""; + } +#endif + + return apr_uri_unparse(((modperl_uri_t *)uptr)->pool, + uptr, flags); +} + +static MP_INLINE +SV *mpxs_apr_uri_parse(pTHX_ SV *classname, SV *p_sv, const char *uri_string) +{ + SV *uri_sv; + apr_pool_t *p = mp_xs_sv2_APR__Pool(p_sv); + modperl_uri_t *uri = modperl_uri_new(p); + + (void)apr_uri_parse(p, uri_string, &uri->uri); + + uri_sv = sv_setref_pv(newSV(0), "APR::URI", (void*)uri); + mpxs_add_pool_magic(uri_sv, p_sv); + + return uri_sv; +} + +static MP_INLINE +char *mpxs_APR__URI_port(pTHX_ apr_uri_t *uri, SV *portsv) +{ + char *port_str = uri->port_str; + + if (portsv) { + if (SvOK(portsv)) { + STRLEN len; + char *port = SvPV(portsv, len); + uri->port_str = apr_pstrndup(((modperl_uri_t *)uri)->pool, + port, len); + uri->port = (int)SvIV(portsv); + } + else { + uri->port_str = NULL; + uri->port = 0; + } + } + + return port_str; +} + +static MP_INLINE +SV *mpxs_APR__URI_rpath(pTHX_ apr_uri_t *apr_uri) +{ + modperl_uri_t *uri = (modperl_uri_t *)apr_uri; + + if (uri->path_info) { + int uri_len = strlen(uri->uri.path); + int n = strlen(uri->path_info); + int set = uri_len - n; + if (set > 0) { + return newSVpv(uri->uri.path, set); + } + } + else { + if (uri->uri.path) { + return newSVpv(uri->uri.path, 0); + } + } + return (SV *)NULL; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/UUID/APR__UUID.h b/2_0_13/xs/APR/UUID/APR__UUID.h new file mode 100644 index 0000000..db29a69 --- /dev/null +++ b/2_0_13/xs/APR/UUID/APR__UUID.h
@@ -0,0 +1,58 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define mpxs_apr_uuid_alloc() \ +(apr_uuid_t *)safemalloc(sizeof(apr_uuid_t)) + +static MP_INLINE apr_uuid_t *mpxs_apr_uuid_get(pTHX_ SV *CLASS) +{ + apr_uuid_t *uuid = mpxs_apr_uuid_alloc(); + apr_uuid_get(uuid); + return uuid; +} + +static MP_INLINE void mp_apr_uuid_format(pTHX_ SV *sv, SV *obj) +{ + apr_uuid_t *uuid = mp_xs_sv2_uuid(obj); + mpxs_sv_grow(sv, APR_UUID_FORMATTED_LENGTH); + apr_uuid_format(SvPVX(sv), uuid); + mpxs_sv_cur_set(sv, APR_UUID_FORMATTED_LENGTH); +} + +static MP_INLINE apr_uuid_t *mpxs_apr_uuid_parse(pTHX_ SV *CLASS, char *buf) +{ + apr_uuid_t *uuid = mpxs_apr_uuid_alloc(); + apr_uuid_parse(uuid, buf); + return uuid; +} + +MP_STATIC XS(MPXS_apr_uuid_format) +{ + dXSARGS; + + mpxs_usage_items_1("uuid"); + + mpxs_set_targ(mp_apr_uuid_format, ST(0)); +} + +#define apr_uuid_DESTROY(uuid) safefree(uuid) + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/Util/APR__Util.h b/2_0_13/xs/APR/Util/APR__Util.h new file mode 100644 index 0000000..e51aa7e --- /dev/null +++ b/2_0_13/xs/APR/Util/APR__Util.h
@@ -0,0 +1,28 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE int mpxs_apr_password_validate(pTHX_ const char *passwd, + const char *hash) +{ + return apr_password_validate(passwd, hash) == APR_SUCCESS; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/APR/aprext/Makefile.PL b/2_0_13/xs/APR/aprext/Makefile.PL new file mode 100644 index 0000000..ccf1731 --- /dev/null +++ b/2_0_13/xs/APR/aprext/Makefile.PL
@@ -0,0 +1,60 @@ +use strict; +use warnings; + +use lib qw(../lib); +use ModPerl::BuildMM (); +require ModPerl::Code; +use Apache2::Build (); + +my $build = ModPerl::BuildMM::build_config(); + +my $srcdir = '../../../src/modules/perl'; +my @names = ModPerl::Code::src_apr_ext(); + +my(@obj, @clean, %src); +for (@names) { + push @obj, join '.', $_, 'o'; + my $cfile = join '.', $_, 'c'; + push @clean, $cfile; + $src{$cfile} = "$srcdir/$cfile"; +} + +push @obj, q{modperl_dummy.o}; + +my @skip = qw(dynamic test); +push @skip, q{static} + unless (Apache2::Build::BUILD_APREXT); + +my %args = (NAME => 'lib' . $build->{MP_APR_LIB}, + VERSION_FROM => '../APR/APR.pm', + SKIP => [ @skip ] , + LINKTYPE => 'static', + OBJECT => "@obj", + clean => { FILES => "@clean" }, + ); + +my $ccopts = $build->ccopts; + +# avoid referencing &perl_module outside of mod_perl +$ccopts .= ' -DMP_IN_XS'; + +$args{CCFLAGS} = $ccopts; + +ModPerl::BuildMM::WriteMakefile(%args); + +# avoid redefined warnings from imported postamble symbol from +# elsewhere in other Makefile.PL files +no warnings 'redefine'; +sub MY::postamble { + my $self = shift; + my $string = $self->ModPerl::BuildMM::MY::postamble; + + $string .= join '', map { + "$_: $src{$_}\n\t\$(CP) $src{$_} .\n"; + } sort keys %src; + + # BSD make needs an empty target, even if the target is specified in .PHONY + $string .= "\ndynamic ::\n"; + + return $string; +}
diff --git a/2_0_13/xs/APR/aprext/modperl_dummy.c b/2_0_13/xs/APR/aprext/modperl_dummy.c new file mode 100644 index 0000000..8e936cb --- /dev/null +++ b/2_0_13/xs/APR/aprext/modperl_dummy.c
@@ -0,0 +1,36 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" + +/* FIXME: These functions are called from modperl_trace() in libaprext.lib + * but are normally defined in mod_perl.c which can't be included. + */ + +int modperl_is_running(void) +{ + return 0; +} + +int modperl_threads_started(void) +{ + return 0; +} + +int modperl_threaded_mpm(void) +{ + return 0; +}
diff --git a/2_0_13/xs/Apache2/Access/Apache2__Access.h b/2_0_13/xs/Apache2/Access/Apache2__Access.h new file mode 100644 index 0000000..fe0759e --- /dev/null +++ b/2_0_13/xs/Apache2/Access/Apache2__Access.h
@@ -0,0 +1,175 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE SV *mpxs_ap_requires(pTHX_ request_rec *r) +{ + AV *av; + HV *hv; + register int x; + const apr_array_header_t *reqs_arr = +#if AP_SERVER_MAJORVERSION_NUMBER>2 || AP_SERVER_MINORVERSION_NUMBER>=3 + 0; +#else + ap_requires(r); +#endif + require_line *reqs; + + if (!reqs_arr) { + return &PL_sv_undef; + } + + reqs = (require_line *)reqs_arr->elts; + av = newAV(); + + for (x=0; x < reqs_arr->nelts; x++) { + /* XXX should we do this or let PerlAuthzHandler? */ + if (! (reqs[x].method_mask & (1 << r->method_number))) { + continue; + } + + hv = newHV(); + + (void)hv_store(hv, "method_mask", 11, + newSViv((IV)reqs[x].method_mask), 0); + + (void)hv_store(hv, "requirement", 11, + newSVpv(reqs[x].requirement,0), 0); + + av_push(av, newRV_noinc((SV*)hv)); + } + + return newRV_noinc((SV*)av); +} + +static MP_INLINE +void mpxs_ap_allow_methods(pTHX_ I32 items, SV **MARK, SV **SP) +{ + request_rec *r; + SV *reset; + + mpxs_usage_va_2(r, reset, "$r->allow_methods(reset, ...)"); + + if (SvIV(reset)) { + ap_clear_method_list(r->allowed_methods); + } + + while (MARK <= SP) { + STRLEN n_a; + char *method = SvPV(*MARK, n_a); + ap_method_list_add(r->allowed_methods, method); + MARK++; + } +} + +static MP_INLINE void mpxs_insert_auth_cfg(pTHX_ request_rec *r, + char *directive, + char *val) +{ + const char *errmsg; + AV *config = newAV(); + + av_push(config, Perl_newSVpvf(aTHX_ "%s %s", directive, val)); + + errmsg = + modperl_config_insert_request(aTHX_ r, + newRV_noinc((SV*)config), + OR_AUTHCFG, NULL, + MP_HTTPD_OVERRIDE_OPTS_UNSET); + + if (errmsg) { + Perl_warn(aTHX_ "Can't change %s to '%s'\n", directive, val); + } + + SvREFCNT_dec((SV*)config); +} + +static MP_INLINE +const char *mpxs_Apache2__RequestRec_auth_type(pTHX_ request_rec *r, + char *type) +{ + const char *ret = NULL; + + if (type) { + mpxs_insert_auth_cfg(aTHX_ r, "AuthType", type); + } + + ret = ap_auth_type(r); + if (!ret) { + return "none"; + } + + return ret; +} + +static MP_INLINE +const char *mpxs_Apache2__RequestRec_auth_name(pTHX_ request_rec *r, + char *name) +{ + if (name) { + mpxs_insert_auth_cfg(aTHX_ r, "AuthName", name); + } + + return ap_auth_name(r); +} + +MP_STATIC XS(MPXS_ap_get_basic_auth_pw) +{ + dXSARGS; + request_rec *r; + const char *sent_pw = NULL; + int rc; + + mpxs_usage_items_1("r"); + + mpxs_PPCODE({ + r = mp_xs_sv2_r(ST(0)); + + /* Default auth-type to Basic */ + if (!ap_auth_type(r)) { + mpxs_Apache2__RequestRec_auth_type(aTHX_ r, "Basic"); + } + + rc = ap_get_basic_auth_pw(r, &sent_pw); + + EXTEND(SP, 2); + PUSHs_mortal_iv(rc); + if (rc == OK) { + PUSHs_mortal_pv(sent_pw); + } + else { + PUSHs(&PL_sv_undef); + } + }); +} + +static MP_INLINE +int mpxs_Apache2__RequestRec_allow_override_opts(pTHX_ request_rec *r) +{ +#ifdef MP_HTTPD_HAS_OVERRIDE_OPTS + core_dir_config *cfg = ap_get_module_config(r->per_dir_config, + &core_module); + return cfg->override_opts; +#else + return MP_HTTPD_OVERRIDE_OPTS_DEFAULT; +#endif +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/CmdParms/Apache2__CmdParms.h b/2_0_13/xs/Apache2/CmdParms/Apache2__CmdParms.h new file mode 100644 index 0000000..66497f2 --- /dev/null +++ b/2_0_13/xs/Apache2/CmdParms/Apache2__CmdParms.h
@@ -0,0 +1,55 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "modperl_module.h" + +static MP_INLINE +SV *mpxs_Apache2__CmdParms_info(pTHX_ cmd_parms *parms) +{ + const char *data = ((modperl_module_cmd_data_t *)parms->info)->cmd_data; + + if (data) { + return newSVpv(data, 0); + } + + return &PL_sv_undef; +} + +static MP_INLINE +void mpxs_Apache2__CmdParms_add_config(pTHX_ cmd_parms *parms, SV *lines) +{ + const char *errmsg = modperl_config_insert_parms(aTHX_ parms, lines); + if (errmsg) { + Perl_croak(aTHX_ "$parms->add_config() has failed: %s", errmsg); + } +} + +static MP_INLINE +int mpxs_Apache2__CmdParms_override_opts(pTHX_ cmd_parms *parms) +{ +#ifdef MP_HTTPD_HAS_OVERRIDE_OPTS + return parms->override_opts; +#else + return MP_HTTPD_OVERRIDE_OPTS_DEFAULT; +#endif +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/Command/Apache2__Command.h b/2_0_13/xs/Apache2/Command/Apache2__Command.h new file mode 100644 index 0000000..9527d77 --- /dev/null +++ b/2_0_13/xs/Apache2/Command/Apache2__Command.h
@@ -0,0 +1,25 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define mpxs_Apache2__Command_next(cmd) \ +(++cmd, ((cmd && cmd->name) ? cmd : NULL)) + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/Connection/Apache2__Connection.h b/2_0_13/xs/Apache2/Connection/Apache2__Connection.h new file mode 100644 index 0000000..9cdb2cd --- /dev/null +++ b/2_0_13/xs/Apache2/Connection/Apache2__Connection.h
@@ -0,0 +1,49 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +/* backwards compat for c->keepalive (see ap_mmn.h) */ +#if MODULE_MAGIC_NUMBER < 20020625 +typedef int ap_conn_keepalive_e; +#endif + +static MP_INLINE +apr_socket_t *mpxs_Apache2__Connection_client_socket(pTHX_ conn_rec *c, + apr_socket_t *s) +{ + apr_socket_t *socket = + ap_get_module_config(c->conn_config, &core_module); + + if (s) { + ap_set_module_config(c->conn_config, &core_module, s); + } + + return socket; +} + +static MP_INLINE +const char *mpxs_Apache2__Connection_get_remote_host(pTHX_ conn_rec *c, + int type, + ap_conf_vector_t *dir_config) +{ + return ap_get_remote_host(c, (void *)dir_config, type, NULL); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/ConnectionUtil/Apache2__ConnectionUtil.h b/2_0_13/xs/Apache2/ConnectionUtil/Apache2__ConnectionUtil.h new file mode 100644 index 0000000..40e0c5f --- /dev/null +++ b/2_0_13/xs/Apache2/ConnectionUtil/Apache2__ConnectionUtil.h
@@ -0,0 +1,50 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +SV *mpxs_Apache2__Connection_pnotes(pTHX_ conn_rec *c, SV *key, SV *val) +{ + MP_dCCFG; + + modperl_config_con_init(c, ccfg); + + if (!ccfg) { + return &PL_sv_undef; + } + + return modperl_pnotes(aTHX_ &ccfg->pnotes, key, val, c->pool); +} + +static MP_INLINE +void mpxs_Apache2__Connection_pnotes_kill(pTHX_ conn_rec *c) +{ + MP_dCCFG; + + modperl_config_con_init(c, ccfg); + + if (!ccfg) { + return; + } + + modperl_pnotes_kill(&ccfg->pnotes); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/Const/Const.pm b/2_0_13/xs/Apache2/Const/Const.pm new file mode 100644 index 0000000..05b84c3 --- /dev/null +++ b/2_0_13/xs/Apache2/Const/Const.pm
@@ -0,0 +1,27 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package Apache2::Const; + +use ModPerl::Const (); +use XSLoader (); + +our $VERSION = do { require mod_perl2; $mod_perl2::VERSION }; +our @ISA = qw(ModPerl::Const); + +XSLoader::load(__PACKAGE__, $VERSION); + +1;
diff --git a/2_0_13/xs/Apache2/Const/Const.xs b/2_0_13/xs/Apache2/Const/Const.xs new file mode 100644 index 0000000..5bfc153 --- /dev/null +++ b/2_0_13/xs/Apache2/Const/Const.xs
@@ -0,0 +1,25 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" +#include "modperl_const.h" + +MODULE = Apache2::Const PACKAGE = Apache2::Const + +PROTOTYPES: disable + +BOOT: + MP_newModPerlConstXS("Apache2");
diff --git a/2_0_13/xs/Apache2/Const/Makefile.PL b/2_0_13/xs/Apache2/Const/Makefile.PL new file mode 100644 index 0000000..895bd8e --- /dev/null +++ b/2_0_13/xs/Apache2/Const/Makefile.PL
@@ -0,0 +1,7 @@ +use lib qw(../lib); +use ModPerl::BuildMM (); + +ModPerl::BuildMM::WriteMakefile( + NAME => 'Apache2::Const', + VERSION_FROM => 'Const.pm', +);
diff --git a/2_0_13/xs/Apache2/Directive/Apache2__Directive.h b/2_0_13/xs/Apache2/Directive/Apache2__Directive.h new file mode 100644 index 0000000..2350e31 --- /dev/null +++ b/2_0_13/xs/Apache2/Directive/Apache2__Directive.h
@@ -0,0 +1,204 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define mpxs_Apache2__Directive_conftree() ap_conftree + +/* XXX: this is only useful for <Perl> at the moment */ +static MP_INLINE SV *mpxs_Apache2__Directive_as_string(pTHX_ + ap_directive_t *self) +{ + ap_directive_t *d; + SV *sv = newSVpv("", 0); + + for (d = self->first_child; d; d = d->next) { + sv_catpv(sv, d->directive); + sv_catpv(sv, " "); + sv_catpv(sv, d->args); + sv_catpv(sv, "\n"); + } + + return sv; +} + + +/* Adds an entry to a hash, vivifying hash/array for multiple entries */ +static void hash_insert(pTHX_ HV *hash, const char *key, + int keylen, const char *args, + int argslen, SV *value) +{ + HV *subhash; + AV *args_array; + SV **hash_ent = hv_fetch(hash, key, keylen, 0); + + if (value) { + if (!hash_ent) { + subhash = newHV(); + (void)hv_store(hash, key, keylen, newRV_noinc((SV *)subhash), 0); + } + else { + subhash = (HV *)SvRV(*hash_ent); + } + + (void)hv_store(subhash, args, argslen, value, 0); + } + else { + if (hash_ent) { + if (SvROK(*hash_ent) && (SVt_PVAV == SvTYPE(SvRV(*hash_ent)))) { + args_array = (AV *)SvRV(*hash_ent); + } + else { + args_array = newAV(); + av_push(args_array, newSVsv(*hash_ent)); + (void)hv_store(hash, key, keylen, + newRV_noinc((SV *)args_array), 0); + } + av_push(args_array, newSVpv(args, argslen)); + } + else { + (void)hv_store(hash, key, keylen, newSVpv(args, argslen), 0); + } + } +} + +static MP_INLINE SV *mpxs_Apache2__Directive_as_hash(pTHX_ + ap_directive_t *tree) +{ + const char *directive; + int directive_len; + const char *args; + int args_len; + + HV *hash = newHV(); + SV *subtree; + + while (tree) { + directive = tree->directive; + directive_len = strlen(directive); + args = tree->args; + args_len = strlen(args); + + if (tree->first_child) { + + /* Skip the prefix '<' */ + if ('<' == directive[0]) { + directive++; + directive_len--; + } + + /* Skip the postfix '>' */ + if ('>' == args[args_len-1]) { + args_len--; + } + + subtree = mpxs_Apache2__Directive_as_hash(aTHX_ tree->first_child); + hash_insert(aTHX_ hash, directive, directive_len, + args, args_len, subtree); + } + else { + hash_insert(aTHX_ hash, directive, directive_len, + args, args_len, (SV *)NULL); + } + + tree = tree->next; + } + + return newRV_noinc((SV *)hash); +} + +MP_STATIC XS(MPXS_Apache2__Directive_lookup) +{ + dXSARGS; + + if (items < 2 || items > 3) { + Perl_croak(aTHX_ + "Usage: Apache2::Directive::lookup(self, key, [args])"); + } + + mpxs_PPCODE({ + Apache2__Directive tree; + char *value; + const char *directive; + const char *args; + int args_len; + int directive_len; + + char *key = (char *)SvPV_nolen(ST(1)); + int scalar_context = (G_SCALAR == GIMME_V); + + if (SvROK(ST(0)) && sv_derived_from(ST(0), "Apache2::Directive")) { + IV tmp = SvIV((SV*)SvRV(ST(0))); + tree = INT2PTR(Apache2__Directive,tmp); + } + else { + tree = ap_conftree; + } + + if (items < 3) { + value = NULL; + } + else { + value = (char *)SvPV_nolen(ST(2)); + } + + while (tree) { + directive = tree->directive; + directive_len = strlen(directive); + + /* Remove starting '<' for container directives */ + if (directive[0] == '<') { + directive++; + directive_len--; + } + + if (0 == strncasecmp(directive, key, directive_len)) { + + if (value) { + args = tree->args; + args_len = strlen(args); + + /* Skip the postfix '>' */ + if ('>' == args[args_len-1]) { + args_len--; + } + + } + + if ( (!value) || (0 == strncasecmp(args, value, args_len)) ) { + if (tree->first_child) { + XPUSHs(sv_2mortal(mpxs_Apache2__Directive_as_hash( + aTHX_ tree->first_child))); + } + else { + XPUSHs(sv_2mortal(newSVpv(tree->args, 0))); + } + + if (scalar_context) { + break; + } + } + } + + tree = tree->next ? tree->next : NULL; + } + }); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/Filter/Apache2__Filter.h b/2_0_13/xs/Apache2/Filter/Apache2__Filter.h new file mode 100644 index 0000000..bc55137 --- /dev/null +++ b/2_0_13/xs/Apache2/Filter/Apache2__Filter.h
@@ -0,0 +1,376 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define mp_xs_sv2_modperl_filter(sv) \ + ((SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) \ + || (Perl_croak(aTHX_ "argument is not a blessed reference"),0) ? \ + modperl_filter_mg_get(aTHX_ sv) : NULL) + +#define mpxs_Apache2__Filter_TIEHANDLE(stashsv, sv) \ + modperl_newSVsv_obj(aTHX_ stashsv, sv) + +#define mpxs_Apache2__Filter_PRINT mpxs_Apache2__Filter_print + +static MP_INLINE apr_size_t mpxs_Apache2__Filter_print(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + modperl_filter_t *modperl_filter; + apr_size_t bytes = 0; + + mpxs_usage_va_1(modperl_filter, "$filter->print(...)"); + + MP_TRACE_f(MP_FUNC, "from %s", + ((modperl_filter_ctx_t *)modperl_filter->f->ctx)->handler->name); + if (modperl_filter->mode == MP_OUTPUT_FILTER_MODE) { + mpxs_write_loop(modperl_output_filter_write, + modperl_filter, "Apache2::Filter::print"); + } + else { + mpxs_write_loop(modperl_input_filter_write, + modperl_filter, "Apache2::Filter::print"); + } + + /* XXX: ap_rflush if $| */ + + return bytes; +} + +static MP_INLINE apr_size_t mpxs_Apache2__Filter_read(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + modperl_filter_t *modperl_filter; + apr_size_t wanted, len=0; + SV *buffer; + + mpxs_usage_va_2(modperl_filter, buffer, "$filter->read(buf, [len])"); + + MP_TRACE_f(MP_FUNC, "from %s", + ((modperl_filter_ctx_t *)modperl_filter->f->ctx)->handler->name); + + if (items > 2) { + wanted = SvIV(*MARK); + } + else { + wanted = MP_IOBUFSIZE; + } + + if (modperl_filter->mode == MP_INPUT_FILTER_MODE) { + /* XXX: if we ever will have a need to change the read + * discipline: (input_mode, block, readbytes) from the filter + * we can provide an accessor method to modify the values + * supplied by the filter chain */ + len = modperl_input_filter_read(aTHX_ modperl_filter, buffer, wanted); + } + else { + len = modperl_output_filter_read(aTHX_ modperl_filter, buffer, wanted); + } + + /* must run any set magic */ + SvSETMAGIC(buffer); + + SvTAINTED_on(buffer); + + return len; +} + +static MP_INLINE U16 *modperl_filter_attributes(pTHX_ SV *package, SV *cvrv) +{ + return modperl_code_attrs(aTHX_ (CV*)SvRV(cvrv)); +} + +#ifdef MP_TRACE +#define trace_attr() \ + MP_TRACE_f(MP_FUNC, "applied %s attribute to %s handler", attribute, \ + HvNAME(stash)) +#else +#define trace_attr() +#endif + +/* we can't eval at this stage, since the package is not compiled yet, + * we are still parsing the source. + */ +#define MODPERL_FILTER_ATTACH_ATTR_CODE(cv, string, len) \ + { \ + char *str; \ + len -= 2; /* s/ \( | \) //x */ \ + string++; /* skip the opening '(' */ \ + Newx(str, len+1, char); \ + Copy(string, str, len+1, char); \ + str[len] = '\0'; /* remove the closing ')' */ \ + sv_magic(cv, (SV *)NULL, '~', NULL, -1); \ + SvMAGIC(cv)->mg_ptr = str; \ + } + + +MP_STATIC XS(MPXS_modperl_filter_attributes) +{ + dXSARGS; + U16 *attrs = modperl_filter_attributes(aTHX_ ST(0), ST(1)); + I32 i; +#ifdef MP_TRACE + HV *stash = gv_stashsv(ST(0), TRUE); +#endif + + for (i=2; i < items; i++) { + STRLEN len; + char *pv = SvPV(ST(i), len); + char *attribute = pv; + + if (strnEQ(pv, "Filter", 6)) { + pv += 6; + } + + switch (*pv) { + case 'C': + if (strEQ(pv, "ConnectionHandler")) { + *attrs |= MP_FILTER_CONNECTION_HANDLER; + trace_attr(); + continue; + } + case 'I': + if (strEQ(pv, "InitHandler")) { + *attrs |= MP_FILTER_INIT_HANDLER; + trace_attr(); + continue; + } + case 'H': + if (strnEQ(pv, "HasInitHandler", 14)) { + STRLEN code_len; + pv += 14; /* skip over the attr name */ + code_len = len - (pv - attribute); + MODPERL_FILTER_ATTACH_ATTR_CODE(SvRV(ST(1)), pv, code_len); + *attrs |= MP_FILTER_HAS_INIT_HANDLER; + trace_attr(); + continue; + } + case 'R': + if (strEQ(pv, "RequestHandler")) { + *attrs |= MP_FILTER_REQUEST_HANDLER; + trace_attr(); + continue; + } + default: + /* XXX: there could be more than one attr to pass through */ + XPUSHs_mortal_pv(attribute); + XSRETURN(1); + } + } + + XSRETURN_EMPTY; +} + +static MP_INLINE SV *mpxs_Apache2__Filter_ctx(pTHX_ + ap_filter_t *filter, + SV *data) +{ + modperl_filter_ctx_t *ctx = (modperl_filter_ctx_t *)(filter->ctx); + + /* XXX: is it possible that the same filter, during a single + * request or connection cycle, will be invoked by different perl + * interpreters? if that happens we are in trouble, if we need to + * return an SV living in a different interpreter. may be there is + * a way to use one of the perl internal functions to clone an SV + * (and it can contain any references) + */ + + if (data != (SV *)NULL) { + if (ctx->data) { + if (SvOK(ctx->data) && SvREFCNT(ctx->data)) { + /* release the previously stored SV so we don't leak + * an SV */ + SvREFCNT_dec(ctx->data); + } + } + +#ifdef USE_ITHREADS + if (!ctx->interp) { + ctx->interp = modperl_thx_interp_get(aTHX); + MP_INTERP_REFCNT_inc(ctx->interp); + } +#endif + ctx->data = SvREFCNT_inc(data); + } + + return ctx->data ? SvREFCNT_inc(ctx->data) : &PL_sv_undef; +} + +static MP_INLINE SV *mpxs_Apache2__Filter_seen_eos(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + modperl_filter_t *modperl_filter; + + if ((items < 1) || (items > 2) || !(mpxs_sv2_obj(modperl_filter, *MARK))) { + Perl_croak(aTHX_ "usage: $filter->seen_eos([$set])"); + } + MARK++; + + if (items == 2) { + modperl_filter->seen_eos = SvTRUE(*MARK) ? 1 : 0; + } + + return modperl_filter->seen_eos ? &PL_sv_yes : &PL_sv_no; +} + +static MP_INLINE +void mpxs_Apache2__RequestRec_add_input_filter(pTHX_ request_rec *r, + SV *callback) +{ + + modperl_filter_runtime_add(aTHX_ r, + r->connection, + MP_FILTER_REQUEST_INPUT_NAME, + MP_INPUT_FILTER_MODE, + ap_add_input_filter, + callback, + "InputFilter"); +} + +static MP_INLINE +void mpxs_Apache2__RequestRec_add_output_filter(pTHX_ request_rec *r, + SV *callback) +{ + + modperl_filter_runtime_add(aTHX_ r, + r->connection, + MP_FILTER_REQUEST_OUTPUT_NAME, + MP_OUTPUT_FILTER_MODE, + ap_add_output_filter, + callback, + "OutputFilter"); +} + +static MP_INLINE +void mpxs_Apache2__Connection_add_input_filter(pTHX_ conn_rec *c, + SV *callback) +{ + + modperl_filter_runtime_add(aTHX_ NULL, + c, + MP_FILTER_CONNECTION_INPUT_NAME, + MP_INPUT_FILTER_MODE, + ap_add_input_filter, + callback, + "InputFilter"); +} + +static MP_INLINE +void mpxs_Apache2__Connection_add_output_filter(pTHX_ conn_rec *c, + SV *callback) +{ + + modperl_filter_runtime_add(aTHX_ NULL, + c, + MP_FILTER_CONNECTION_OUTPUT_NAME, + MP_OUTPUT_FILTER_MODE, + ap_add_output_filter, + callback, + "OutputFilter"); +} + +static MP_INLINE +void mpxs_Apache2__Filter_remove(pTHX_ I32 items, SV **MARK, SV **SP) +{ + modperl_filter_t *modperl_filter; + ap_filter_t *f; + + if (items < 1) { + Perl_croak(aTHX_ "usage: $filter->remove()"); + } + + modperl_filter = mp_xs_sv2_modperl_filter(*MARK); + + /* native filter */ + if (!modperl_filter) { + f = INT2PTR(ap_filter_t *, SvIV(SvRV(*MARK))); + MP_TRACE_f(MP_FUNC, + " %s\n\n\t non-modperl filter removes itself", + f->frec->name); + + /* the filter can reside in only one chain. hence we try to + * remove it from both, the input and output chains, since + * unfortunately we can't tell what kind of filter is that and + * whether the first call was successful + */ + ap_remove_input_filter(f); + ap_remove_output_filter(f); + return; + } + + f = modperl_filter->f; + + MP_TRACE_f(MP_FUNC, " %s\n\n\tfilter removes itself", + ((modperl_filter_ctx_t *)f->ctx)->handler->name); + + if (modperl_filter->mode == MP_INPUT_FILTER_MODE) { + ap_remove_input_filter(f); + } + else { + ap_remove_output_filter(f); + } +} + +static MP_INLINE +apr_status_t mpxs_Apache2__Filter_fflush(pTHX_ ap_filter_t *filter, + apr_bucket_brigade *brigade) +{ + apr_status_t rc = ap_fflush(filter, brigade); + /* if users don't bother to check the success, do it on their + * behalf */ + if (GIMME_V == G_VOID && rc != APR_SUCCESS) { + modperl_croak(aTHX_ rc, "Apache2::Filter::fflush"); + } + + return rc; +} + +static MP_INLINE +apr_status_t mpxs_Apache2__Filter_get_brigade(pTHX_ + ap_filter_t *f, + apr_bucket_brigade *bb, + ap_input_mode_t mode, + apr_read_type_e block, + apr_off_t readbytes) +{ + apr_status_t rc = ap_get_brigade(f, bb, mode, block, readbytes); + /* if users don't bother to check the success, do it on their + * behalf */ + if (GIMME_V == G_VOID && rc != APR_SUCCESS) { + modperl_croak(aTHX_ rc, "Apache2::Filter::get_brigade"); + } + + return rc; +} + +static MP_INLINE +apr_status_t mpxs_Apache2__Filter_pass_brigade(pTHX_ ap_filter_t *f, + apr_bucket_brigade *bb) +{ + apr_status_t rc = ap_pass_brigade(f, bb); + /* if users don't bother to check the success, do it on their + * behalf */ + if (GIMME_V == G_VOID && rc != APR_SUCCESS) { + modperl_croak(aTHX_ rc, "Apache2::Filter::pass_brigade"); + } + + return rc; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/Log/Apache2__Log.h b/2_0_13/xs/Apache2/Log/Apache2__Log.h new file mode 100644 index 0000000..e3c558b --- /dev/null +++ b/2_0_13/xs/Apache2/Log/Apache2__Log.h
@@ -0,0 +1,347 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static void mpxs_Apache2__Log_BOOT(pTHX) +{ + av_push(get_av("Apache2::Log::Request::ISA", TRUE), + newSVpv("Apache2::Log", 12)); + av_push(get_av("Apache2::Log::Server::ISA", TRUE), + newSVpv("Apache2::Log", 12)); +} + +#define croak_inval_obj() \ + Perl_croak(aTHX_ "Argument is not an Apache2::RequestRec " \ + "or Apache2::ServerRec object") + +static void mpxs_ap_log_error(pTHX_ int level, SV *sv, SV *msg) +{ + char *file = NULL; + int line = 0; + char *str; + SV *svstr = (SV *)NULL; + STRLEN n_a; + int lmask = level & APLOG_LEVELMASK; + server_rec *s; + request_rec *r = NULL; + + if (SvROK(sv) && sv_isa(sv, "Apache2::Log::Request")) { + r = INT2PTR(request_rec *, SvObjIV(sv)); + s = r->server; + } + else if (SvROK(sv) && sv_isa(sv, "Apache2::Log::Server")) { + s = INT2PTR(server_rec *, SvObjIV(sv)); + } + else { + s = modperl_global_get_server_rec(); + } + + if ((lmask >= APLOG_DEBUG) && (mp_loglevel(s) >= APLOG_DEBUG)) { + COP *cop = PL_curcop; + file = CopFILE(cop); /* (caller)[1] */ + line = CopLINE(cop); /* (caller)[2] */ + } + + if ((mp_loglevel(s) >= lmask) && + SvROK(msg) && (SvTYPE(SvRV(msg)) == SVt_PVCV)) { + dSP; + ENTER;SAVETMPS; + PUSHMARK(sp); + (void)call_sv(msg, G_SCALAR); + SPAGAIN; + svstr = POPs; + (void)SvREFCNT_inc(svstr); + PUTBACK; + FREETMPS;LEAVE; + str = SvPV(svstr,n_a); + } + else { + str = SvPV(msg,n_a); + } + + if (r) { + ap_log_rerror(file, line, mp_module_index_ level, 0, r, + "%s", str); + } + else { + ap_log_error(file, line, mp_module_index_ level, 0, s, + "%s", str); + } + + if (svstr) { + SvREFCNT_dec(svstr); + } +} + +#define MP_LOG_REQUEST 1 +#define MP_LOG_SERVER 2 + +static SV *mpxs_Apache2__Log_log(pTHX_ SV *sv, int logtype) +{ + SV *svretval; + void *retval; + char *pclass; + + switch (logtype) { + case MP_LOG_REQUEST: + pclass = "Apache2::Log::Request"; + retval = (void *)modperl_sv2request_rec(aTHX_ sv); + break; + case MP_LOG_SERVER: + pclass = "Apache2::Log::Server"; + retval = (void *)modperl_sv2server_rec(aTHX_ sv); + break; + default: + croak_inval_obj(); + }; + + svretval = newSV(0); + sv_setref_pv(svretval, pclass, (void*)retval); + + return svretval; +} + +#define mpxs_Apache2__RequestRec_log(sv) \ + mpxs_Apache2__Log_log(aTHX_ sv, MP_LOG_REQUEST) + +#define mpxs_Apache2__ServerRec_log(sv) \ + mpxs_Apache2__Log_log(aTHX_ sv, MP_LOG_SERVER) + +static MP_INLINE SV *modperl_perl_do_join(pTHX_ SV **mark, SV **sp) +{ + SV *sv = newSV(0); + SV *delim; +#ifdef WIN32 + /* XXX: using PL_sv_no crashes on win32 with 5.6.1 */ + delim = newSVpv("", 0); +#else + delim = SvREFCNT_inc(&PL_sv_no); +#endif + + do_join(sv, delim, mark, sp); + + SvREFCNT_dec(delim); + + return sv; +} + +#define my_do_join(m, s) \ + modperl_perl_do_join(aTHX_ (m), (s)) + +MP_STATIC XS(MPXS_Apache2__Log_dispatch) +{ + dXSARGS; + SV *msgsv; + int level; + char *name = GvNAME(CvGV(cv)); + + if (items < 2) { + Perl_croak(aTHX_ "usage: %s::%s(obj, ...)", + mpxs_cv_name()); + } + + if (items > 2) { + msgsv = my_do_join(MARK+1, SP); + } + else { + msgsv = ST(1); + (void)SvREFCNT_inc(msgsv); + } + + switch (*name) { + case 'e': + if (*(name + 1) == 'r') { + level = APLOG_ERR; + break; + } + level = APLOG_EMERG; + break; + case 'w': + level = APLOG_WARNING; + break; + case 'n': + level = APLOG_NOTICE; + break; + case 'i': + level = APLOG_INFO; + break; + case 'd': + level = APLOG_DEBUG; + break; + case 'a': + level = APLOG_ALERT; + break; + case 'c': + level = APLOG_CRIT; + break; + default: + level = APLOG_ERR; /* should never get here */ + break; + }; + + mpxs_ap_log_error(aTHX_ level, ST(0), msgsv); + + SvREFCNT_dec(msgsv); + + XSRETURN_EMPTY; +} + +MP_STATIC XS(MPXS_Apache2__Log_LOG_MARK) +{ + dXSARGS; + ax = ax; /* -Wall */; + + mpxs_PPCODE({ + COP *cop = PL_curcop; + + if (items) { + Perl_croak(aTHX_ "usage %s::%s()", mpxs_cv_name()); + } + + EXTEND(SP, 2); + PUSHs_mortal_pv(CopFILE(cop)); + PUSHs_mortal_iv(CopLINE(cop)); + }); +} + +MP_STATIC XS(MPXS_Apache2__Log_log_xerror) +{ + dXSARGS; + SV *msgsv = (SV *)NULL; + STRLEN n_a; + request_rec *r = NULL; + server_rec *s = NULL; + char *msgstr; + const char *file; + int line, level; + apr_status_t status; + + if (items < 6) { + Perl_croak(aTHX_ "usage %s::%s(file, line, level, status, ...)", + mpxs_cv_name()); + } + + switch (*(GvNAME(CvGV(cv)) + 4)) { /* 4 == log_ */ + case 'r': + r = modperl_xs_sv2request_rec(aTHX_ ST(0), NULL, cv); + break; + case 's': + s = modperl_sv2server_rec(aTHX_ ST(0)); + break; + default: + croak_inval_obj(); + }; + + file = (const char *)SvPV(ST(1), n_a); + line = (int)SvIV(ST(2)); + level = (int)SvIV(ST(3)); + status = (apr_status_t)SvIV(ST(4)); + + if (items > 6) { + msgsv = my_do_join(MARK+5, SP); + } + else { + msgsv = ST(5); + (void)SvREFCNT_inc(msgsv); + } + + msgstr = SvPV(msgsv, n_a); + + if (r) { + ap_log_rerror(file, line, mp_module_index_ level, status, r, + "%s", msgstr); + } + else { + ap_log_error(file, line, mp_module_index_ level, status, s, + "%s", msgstr); + } + + SvREFCNT_dec(msgsv); + + XSRETURN_EMPTY; +} + +/* + * this function handles: + * $r->log_error + * $s->log_error + * $r->warn + * $s->warn + * Apache2::ServerRec::warn + */ +MP_STATIC XS(MPXS_Apache2__Log_log_error) +{ + dXSARGS; + request_rec *r = NULL; + server_rec *s = NULL; + int i = 0; + char *errstr = NULL; + SV *sv = (SV *)NULL; + STRLEN n_a; + + if (items > 1) { + if (sv_isa(ST(0), "Apache2::ServerRec")) { + s = INT2PTR(server_rec *, SvObjIV(ST(0))); + } + else if ((r = modperl_xs_sv2request_rec(aTHX_ ST(0), + "Apache2::RequestRec", cv))) { + s = r->server; + } + } + + if (s) { + i = 1; + } + else { + request_rec *r = NULL; + (void)modperl_tls_get_request_rec(&r); + if (r) { + s = r->server; + } + else { + s = modperl_global_get_server_rec(); + } + } + + if (items > 1+i) { + sv = my_do_join(MARK+i, SP); /* $sv = join '', @_[1..$#_] */ + errstr = SvPV(sv,n_a); + } + else { + errstr = SvPV(ST(i),n_a); + } + + switch (*GvNAME(CvGV(cv))) { + case 'w': + modperl_log_warn(s, errstr); + break; + default: + modperl_log_error(s, errstr); + break; + } + + if (sv) { + SvREFCNT_dec(sv); + } + + XSRETURN_EMPTY; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/MPM/Apache2__MPM.h b/2_0_13/xs/Apache2/MPM/Apache2__MPM.h new file mode 100644 index 0000000..9ede5f3 --- /dev/null +++ b/2_0_13/xs/Apache2/MPM/Apache2__MPM.h
@@ -0,0 +1,67 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE SV *mpxs_Apache2__MPM_query(pTHX_ SV *self, int query_code) +{ + int mpm_query_info; + + apr_status_t retval = ap_mpm_query(query_code, &mpm_query_info); + + if (retval == APR_SUCCESS) { + return newSViv(mpm_query_info); + } + + return &PL_sv_undef; +} + +static void mpxs_Apache2__MPM_BOOT(pTHX) +{ + /* implement Apache2::MPM->show and Apache2::MPM->is_threaded + * as constant subroutines, since this information will never + * change during an interpreter's lifetime */ + + int mpm_query_info; + + apr_status_t retval = ap_mpm_query(AP_MPMQ_IS_THREADED, &mpm_query_info); + + if (retval == APR_SUCCESS) { + MP_TRACE_g(MP_FUNC, "defined Apache2::MPM->is_threaded() as %i", + mpm_query_info); + + newCONSTSUB(PL_defstash, "Apache2::MPM::is_threaded", + newSViv(mpm_query_info)); + } + else { + /* assign false (0) to sub if ap_mpm_query didn't succeed */ + MP_TRACE_g(MP_FUNC, "defined Apache2::MPM->is_threaded() as 0"); + + newCONSTSUB(PL_defstash, "Apache2::MPM::is_threaded", + newSViv(0)); + } + + MP_TRACE_g(MP_FUNC, "defined Apache2::MPM->show() as %s", + ap_show_mpm()); + + newCONSTSUB(PL_defstash, "Apache2::MPM::show", + newSVpv(ap_show_mpm(), 0)); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/Makefile.PL b/2_0_13/xs/Apache2/Makefile.PL new file mode 100644 index 0000000..e662890 --- /dev/null +++ b/2_0_13/xs/Apache2/Makefile.PL
@@ -0,0 +1,7 @@ +use lib qw(../lib); +use ModPerl::BuildMM (); + +ModPerl::BuildMM::WriteMakefile( + NAME => "Apache2_build", + VERSION => '0.01' +);
diff --git a/2_0_13/xs/Apache2/Module/Apache2__Module.h b/2_0_13/xs/Apache2/Module/Apache2__Module.h new file mode 100644 index 0000000..f95b6b6 --- /dev/null +++ b/2_0_13/xs/Apache2/Module/Apache2__Module.h
@@ -0,0 +1,105 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define mpxs_Apache2__Module_top_module() ap_top_module + +static MP_INLINE int mpxs_Apache2__Module_loaded(pTHX_ char *name) +{ + char nameptr[256]; + char *base; + module *modp; + + /* Does the module name have a '.' in it ? */ + if ((base = ap_strchr(name, '.'))) { + int len = base - name; + + memcpy(nameptr, name, len); + memcpy(nameptr + len, ".c\0", 3); + + /* check if module is loaded */ + if (!(modp = ap_find_linked_module(nameptr))) { + return 0; + } + + if (*(base + 1) == 'c') { + return 1; + } + + /* if it ends in '.so', check if it was dynamically loaded */ + if ((strlen(base+1) == 2) && + (*(base + 1) == 's') && (*(base + 2) == 'o') && + modp->dynamic_load_handle) + { + return 1; + } + + return 0; + } + else { + return modperl_perl_module_loaded(aTHX_ name); + } +} + +static MP_INLINE SV *mpxs_Apache2__Module_get_config(pTHX_ + SV *pmodule, + server_rec *s, + ap_conf_vector_t *v) +{ + SV *obj = modperl_module_config_get_obj(aTHX_ pmodule, s, v); + + return SvREFCNT_inc(obj); +} + +static MP_INLINE +int mpxs_Apache2__Module_ap_api_major_version(pTHX_ module *mod) +{ + return mod->version; +} + +static MP_INLINE +int mpxs_Apache2__Module_ap_api_minor_version(pTHX_ module *mod) +{ + return mod->minor_version; +} + +static MP_INLINE void mpxs_Apache2__Module_add(pTHX_ + char *package, + SV *cmds) +{ + const char *error; + server_rec *s; + + if (!(SvROK(cmds) && (SvTYPE(SvRV(cmds)) == SVt_PVAV))) { + Perl_croak(aTHX_ "Usage: Apache2::Module::add(__PACKAGE__, [])"); + } + + s = modperl_global_get_server_rec(); + error = modperl_module_add(s->process->pconf, s, package, cmds); + + if (error) { + Perl_croak(aTHX_ "Apache2::Module::add(%s) failed : %s", + package, error); + } + + return; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/RequestIO/Apache2__RequestIO.h b/2_0_13/xs/Apache2/RequestIO/Apache2__RequestIO.h new file mode 100644 index 0000000..d477597 --- /dev/null +++ b/2_0_13/xs/Apache2/RequestIO/Apache2__RequestIO.h
@@ -0,0 +1,401 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifdef WIN32 +/* win32 not happy with &PL_sv_no */ +# define SVNO newSViv(0) +# define SVYES newSViv(1) +#else +# define SVNO &PL_sv_no +# define SVYES &PL_sv_yes +#endif + +#define mpxs_Apache2__RequestRec_TIEHANDLE(stashsv, sv) \ +modperl_newSVsv_obj(aTHX_ stashsv, sv) + +#define mpxs_Apache2__RequestRec_PRINT mpxs_Apache2__RequestRec_print +#define mpxs_Apache2__RequestRec_PRINTF mpxs_ap_rprintf +#define mpxs_Apache2__RequestRec_BINMODE(r) \ + r ? SVYES : SVNO /* noop */ +#define mpxs_Apache2__RequestRec_CLOSE(r) \ + r ? SVYES : SVNO /* noop */ + +#define mpxs_Apache2__RequestRec_UNTIE(r, refcnt) \ + (r && refcnt) ? SVYES : SVNO /* noop */ + +#define mpxs_output_flush(r, rcfg, name) \ + /* if ($|) */ \ + if (IoFLUSH(PL_defoutgv)) { \ + MP_TRACE_o(MP_FUNC, "(flush) %d bytes [%s]", \ + rcfg->wbucket->outcnt, \ + apr_pstrmemdup(rcfg->wbucket->pool, rcfg->wbucket->outbuf, \ + rcfg->wbucket->outcnt)); \ + MP_RUN_CROAK(modperl_wbucket_flush(rcfg->wbucket, TRUE), \ + name); \ + } + +static MP_INLINE apr_size_t mpxs_ap_rvputs(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + modperl_config_req_t *rcfg; + apr_size_t bytes = 0; + request_rec *r; + dMP_TIMES; + + mpxs_usage_va_1(r, "$r->puts(...)"); + + rcfg = modperl_config_req_get(r); + + MP_START_TIMES(); + + MP_CHECK_WBUCKET_INIT("$r->puts"); + mpxs_write_loop(modperl_wbucket_write, rcfg->wbucket, + "Apache2::RequestIO::puts"); + + MP_END_TIMES(); + MP_PRINT_TIMES("r->puts"); + + /* we do not check $| for this method, + * only in the functions called by the tied interface + */ + + return bytes; +} + +static MP_INLINE +SV *mpxs_Apache2__RequestRec_print(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + modperl_config_req_t *rcfg; + request_rec *r; + + /* bytes must be called bytes */ + apr_size_t bytes = 0; + + /* this also magically assings to r ;-) */ + mpxs_usage_va_1(r, "$r->print(...)"); + + rcfg = modperl_config_req_get(r); + + MP_CHECK_WBUCKET_INIT("$r->print"); + mpxs_write_loop(modperl_wbucket_write, rcfg->wbucket, + "Apache2::RequestIO::print"); + + mpxs_output_flush(r, rcfg, "Apache2::RequestIO::print"); + + return bytes ? newSVuv(bytes) : newSVpvn("0E0", 3); +} + +static MP_INLINE +apr_size_t mpxs_ap_rprintf(pTHX_ I32 items, SV **MARK, SV **SP) +{ + modperl_config_req_t *rcfg; + request_rec *r; + apr_size_t bytes = 0; + SV *sv; + + mpxs_usage_va(2, r, "$r->printf($fmt, ...)"); + + rcfg = modperl_config_req_get(r); + + /* Reduce items by 1 since it otherwise includes the + * Apache2::RequestRec object, which shouldn't be included in the + * count of arguments being given to the sprintf() call. + */ + --items; + + /* XXX: we could have an rcfg->sprintf_buffer to reuse this SV + * across requests + */ + sv = sv_newmortal(); + modperl_perl_do_sprintf(aTHX_ sv, items, MARK); + bytes = SvCUR(sv); + + MP_CHECK_WBUCKET_INIT("$r->printf"); + + MP_TRACE_o(MP_FUNC, "%d bytes [%s]", bytes, SvPVX(sv)); + + MP_RUN_CROAK(modperl_wbucket_write(aTHX_ rcfg->wbucket, + SvPVX(sv), &bytes), + "Apache2::RequestIO::printf"); + + mpxs_output_flush(r, rcfg, "Apache2::RequestIO::printf"); + + return bytes; +} + +/* alias */ +#define mpxs_Apache2__RequestRec_WRITE(r, buffer, len, offset) \ + mpxs_Apache2__RequestRec_write(aTHX_ r, buffer, len, offset) + +static MP_INLINE +apr_size_t mpxs_Apache2__RequestRec_write(pTHX_ request_rec *r, + SV *buffer, apr_size_t len, + apr_off_t offset) +{ + apr_size_t wlen; + const char *buf; + STRLEN avail; + MP_dRCFG; + + buf = (const char *)SvPV(buffer, avail); + + if (len == -1) { + wlen = offset ? avail - offset : avail; + } + else { + wlen = len; + } + + MP_CHECK_WBUCKET_INIT("$r->write"); + MP_RUN_CROAK(modperl_wbucket_write(aTHX_ rcfg->wbucket, + buf+offset, &wlen), + "Apache2::RequestIO::write"); + + return wlen; +} + +static MP_INLINE +void mpxs_Apache2__RequestRec_rflush(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + modperl_config_req_t *rcfg; + request_rec *r; + + /* this also magically assings to r ;-) */ + mpxs_usage_va_1(r, "$r->rflush()"); + + rcfg = modperl_config_req_get(r); + + MP_CHECK_WBUCKET_INIT("$r->rflush"); + MP_TRACE_o(MP_FUNC, "%d bytes [%s]", + rcfg->wbucket->outcnt, + apr_pstrmemdup(rcfg->wbucket->pool, rcfg->wbucket->outbuf, + rcfg->wbucket->outcnt)); + MP_RUN_CROAK_RESET_OK(r->server, + modperl_wbucket_flush(rcfg->wbucket, TRUE), + "Apache2::RequestIO::rflush"); +} + +static MP_INLINE long mpxs_ap_get_client_block(pTHX_ request_rec *r, + SV *buffer, int bufsiz) +{ + long nrd = 0; + + mpxs_sv_grow(buffer, bufsiz); + + nrd = ap_get_client_block(r, SvPVX(buffer), bufsiz); + + if (nrd > 0) { + mpxs_sv_cur_set(buffer, nrd); + SvTAINTED_on(buffer); + } + else { + sv_setpvn(buffer, "", 0); + } + + /* must run any set magic */ + SvSETMAGIC(buffer); + + return nrd; +} + +static MP_INLINE +apr_status_t mpxs_setup_client_block(request_rec *r) +{ + if (!r->read_length) { + apr_status_t rc; + + /* only do this once per-request */ + if ((rc = ap_setup_client_block(r, REQUEST_CHUNKED_ERROR)) != OK) { + ap_log_error(APLOG_MARK, APLOG_ERR, 0, r->server, + "mod_perl: ap_setup_client_block failed: %d", rc); + return rc; + } + } + + return APR_SUCCESS; +} + +#define mpxs_should_client_block(r) \ + (r->read_length || ap_should_client_block(r)) + +#ifndef sv_setpvn_mg +# define sv_setpvn_mg sv_setpvn +#endif + +/* alias */ +#define mpxs_Apache2__RequestRec_READ(r, buffer, len, offset) \ + mpxs_Apache2__RequestRec_read(aTHX_ r, buffer, len, offset) + +static SV *mpxs_Apache2__RequestRec_read(pTHX_ request_rec *r, + SV *buffer, apr_size_t len, + apr_off_t offset) +{ + SSize_t total; + STRLEN blen; + + if (!SvOK(buffer)) { + sv_setpvn_mg(buffer, "", 0); + } + + (void)SvPV_force(buffer, blen); /* make it a valid PV */ + + if (len <= 0) { + Perl_croak(aTHX_ "The LENGTH argument can't be negative"); + } + + /* handle negative offset */ + if (offset < 0) { + if (-offset > (int)blen) Perl_croak(aTHX_ "Offset outside string"); + offset += blen; + } + + mpxs_sv_grow(buffer, len+offset); + + /* need to pad with \0 if offset > size of the buffer */ + if (offset > SvCUR(buffer)) { + Zero(SvEND(buffer), offset - SvCUR(buffer), char); + } + + total = modperl_request_read(aTHX_ r, SvPVX(buffer)+offset, len); + + /* modperl_request_read can return only >=0. So it's safe to do this. */ + /* if total==0 we need to set the buffer length in case it is larger */ + mpxs_sv_cur_set(buffer, offset+total); + + /* must run any set magic */ + SvSETMAGIC(buffer); + + SvTAINTED_on(buffer); + + return newSViv(total); +} + +static MP_INLINE +SV *mpxs_Apache2__RequestRec_GETC(pTHX_ request_rec *r) +{ + char c[1] = "\0"; + + /* XXX: reimplement similar to read() w/o using the deprecated + * client_block interface */ + if (mpxs_setup_client_block(r) == APR_SUCCESS) { + if (mpxs_should_client_block(r)) { + if (ap_get_client_block(r, c, 1) == 1) { + return newSVpvn((char *)&c, 1); + } + } + } + + return &PL_sv_undef; +} + +static MP_INLINE +int mpxs_Apache2__RequestRec_OPEN(pTHX_ SV *self, SV *arg1, SV *arg2) +{ + char *name; + STRLEN len; + SV *arg; + dHANDLE("STDOUT"); + + modperl_io_handle_untie(aTHX_ handle); /* untie *STDOUT */ + + if (arg2 && self) { + arg = newSVsv(arg1); + sv_catsv(arg, arg2); + } + else { + arg = arg1; + } + + name = SvPV(arg, len); + return do_open(handle, name, len, FALSE, O_RDONLY, 0, (PerlIO *)NULL); +} + +static MP_INLINE +int mpxs_Apache2__RequestRec_FILENO(pTHX_ request_rec *r) +{ + dHANDLE("STDOUT"); + return PerlIO_fileno(IoOFP(TIEHANDLE_SV(handle))); +} + +static MP_INLINE +apr_status_t mpxs_Apache2__RequestRec_sendfile(pTHX_ request_rec *r, + const char *filename, + apr_off_t offset, + apr_size_t len) +{ + apr_size_t nbytes; + apr_status_t rc; + apr_file_t *fp; + + rc = apr_file_open(&fp, filename, APR_READ|APR_BINARY, + APR_OS_DEFAULT, r->pool); + + if (rc != APR_SUCCESS) { + if (GIMME_V == G_VOID) { + modperl_croak(aTHX_ rc, + apr_psprintf(r->pool, + "Apache2::RequestIO::sendfile('%s')", + filename)); + } + else { + return rc; + } + } + + if (!len) { + apr_finfo_t finfo; + apr_file_info_get(&finfo, APR_FINFO_SIZE, fp); + len = finfo.size; + if (offset) { + len -= offset; + } + } + + /* flush any buffered modperl output */ + { + modperl_config_req_t *rcfg = modperl_config_req_get(r); + + MP_CHECK_WBUCKET_INIT("$r->rflush"); + if (rcfg->wbucket->outcnt) { + MP_TRACE_o(MP_FUNC, "flushing %d bytes [%s]", + rcfg->wbucket->outcnt, + apr_pstrmemdup(rcfg->wbucket->pool, + rcfg->wbucket->outbuf, + rcfg->wbucket->outcnt)); + MP_RUN_CROAK(modperl_wbucket_flush(rcfg->wbucket, TRUE), + "Apache2::RequestIO::sendfile"); + } + } + + rc = ap_send_fd(fp, r, offset, len, &nbytes); + + /* apr_file_close(fp); */ /* do not do this */ + + if (GIMME_V == G_VOID && rc != APR_SUCCESS) { + modperl_croak(aTHX_ rc, "Apache2::RequestIO::sendfile"); + } + + return rc; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/RequestRec/Apache2__RequestRec.h b/2_0_13/xs/Apache2/RequestRec/Apache2__RequestRec.h new file mode 100644 index 0000000..4a85481 --- /dev/null +++ b/2_0_13/xs/Apache2/RequestRec/Apache2__RequestRec.h
@@ -0,0 +1,155 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +const char *mpxs_Apache2__RequestRec_content_type(pTHX_ request_rec *r, + SV *type) +{ + const char *retval = r->content_type; + + if (type) { + MP_dRCFG; + STRLEN len; + const char *val = SvPV(type, len); + ap_set_content_type(r, apr_pmemdup(r->pool, val, len+1)); + MP_CGI_HEADER_PARSER_OFF(rcfg); + } + + return retval; +} + +static MP_INLINE +SV *mpxs_Apache2__RequestRec_content_languages(pTHX_ request_rec *r, + SV *languages) +{ + SV *retval = modperl_apr_array_header2avrv(aTHX_ + r->content_languages); + if (languages) { + r->content_languages = modperl_avrv2apr_array_header(aTHX_ + r->pool, + languages); + } + return retval; +} + +static MP_INLINE +int mpxs_Apache2__RequestRec_proxyreq(pTHX_ request_rec *r, SV *val) +{ + int retval = r->proxyreq; + + if (!val && !r->proxyreq && + r->parsed_uri.scheme && + !(r->parsed_uri.hostname && + strEQ(r->parsed_uri.scheme, ap_http_scheme(r)) && + ap_matches_request_vhost(r, r->parsed_uri.hostname, + r->parsed_uri.port_str ? + r->parsed_uri.port : + ap_default_port(r)))) + { + retval = r->proxyreq = PROXYREQ_PROXY; + r->uri = r->unparsed_uri; + /* else mod_proxy will segfault */ + r->filename = apr_pstrcat(r->pool, "modperl-proxy:", r->uri, NULL); + } + + if (val) { + r->proxyreq = SvIV(val); + } + + return retval; +} + +static MP_INLINE +SV *mpxs_Apache2__RequestRec_subprocess_env(pTHX_ request_rec *r, + char *key, SV *val) +{ + /* if called in a void context with no arguments, just + * populate %ENV and stop. + */ + if (key == NULL && GIMME_V == G_VOID) { + modperl_env_request_populate(aTHX_ r); + return &PL_sv_undef; + } + + return modperl_table_get_set(aTHX_ r->subprocess_env, + key, val, TRUE); +} + +static MP_INLINE +apr_finfo_t *mpxs_Apache2__RequestRec_finfo(pTHX_ request_rec *r, + apr_finfo_t *finfo) +{ + if (finfo) { + r->finfo = *finfo; + } + + return &r->finfo; +} + +static MP_INLINE +const char *mpxs_Apache2__RequestRec_handler(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + const char *RETVAL; + request_rec *r; + mpxs_usage_va_1(r, "$r->handler([$handler])"); + + RETVAL = (const char *)r->handler; + + if (items == 2) { + if (SvPOK(*MARK)) { + char *new_handler = SvPVX(*MARK); + /* once inside a response phase, one should not try to + * switch response handler types, since they won't take + * any affect */ + if (strEQ(modperl_callback_current_callback_get(), + "PerlResponseHandler")) { + + switch (*new_handler) { + case 'm': + if (strEQ(new_handler, "modperl") && + strEQ(RETVAL, "perl-script")) { + Perl_croak(aTHX_ "Can't switch from 'perl-script' " + "to 'modperl' response handler"); + } + break; + case 'p': + if (strEQ(new_handler, "perl-script") && + strEQ(RETVAL, "modperl")) { + Perl_croak(aTHX_ "Can't switch from 'modperl' " + "to 'perl-script' response handler"); + } + break; + } + } + + r->handler = (const char *)apr_pstrmemdup(r->pool, new_handler, + SvLEN(*MARK)); + } + else { + Perl_croak(aTHX_ "the new_handler argument must be a string"); + } + } + + return RETVAL; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/RequestUtil/Apache2__RequestUtil.h b/2_0_13/xs/Apache2/RequestUtil/Apache2__RequestUtil.h new file mode 100644 index 0000000..4433c88 --- /dev/null +++ b/2_0_13/xs/Apache2/RequestUtil/Apache2__RequestUtil.h
@@ -0,0 +1,421 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +int mpxs_Apache2__RequestRec_push_handlers(pTHX_ request_rec *r, + const char *name, + SV *sv) +{ + return modperl_handler_perl_add_handlers(aTHX_ + r, NULL, r->server, r->pool, + name, sv, + MP_HANDLER_ACTION_PUSH); + +} + +static MP_INLINE +int mpxs_Apache2__RequestRec_set_handlers(pTHX_ request_rec *r, + const char *name, + SV *sv) +{ + return modperl_handler_perl_add_handlers(aTHX_ + r, NULL, r->server, r->pool, + name, sv, + MP_HANDLER_ACTION_SET); +} + +static MP_INLINE +SV *mpxs_Apache2__RequestRec_get_handlers(pTHX_ request_rec *r, + const char *name) +{ + MpAV **handp = + modperl_handler_get_handlers(r, NULL, r->server, + r->pool, name, + MP_HANDLER_ACTION_GET); + + return modperl_handler_perl_get_handlers(aTHX_ handp, r->pool); +} + +/* + * XXX: these three should be part of the apache api + * for protocol module helpers + */ + +static MP_INLINE +SV *mpxs_Apache2__RequestRec_new(pTHX_ SV *classname, + conn_rec *c, + SV *base_pool_sv) +{ + apr_pool_t *p, *base_pool; + request_rec *r; + server_rec *s = c->base_server; + SV *r_sv; + + /* see: httpd-2.0/server/protocol.c:ap_read_request */ + + if (base_pool_sv) { + base_pool = mp_xs_sv2_APR__Pool(base_pool_sv); + } + else { + base_pool = c->pool; + } + + apr_pool_create(&p, base_pool); + r = apr_pcalloc(p, sizeof(request_rec)); + + r->pool = p; + r->connection = c; + r->server = s; + + r->request_time = apr_time_now(); + + r->user = NULL; + r->ap_auth_type = NULL; + + r->allowed_methods = ap_make_method_list(p, 1); + + r->headers_in = apr_table_make(p, 1); + r->subprocess_env = apr_table_make(r->pool, 1); + r->headers_out = apr_table_make(p, 1); + r->err_headers_out = apr_table_make(p, 1); + r->notes = apr_table_make(p, 1); + + r->request_config = ap_create_request_config(p); + + r->proto_output_filters = c->output_filters; + r->output_filters = r->proto_output_filters; + r->proto_input_filters = c->input_filters; + r->input_filters = r->proto_input_filters; + + ap_run_create_request(r); + + r->per_dir_config = s->lookup_defaults; + + r->sent_bodyct = 0; + r->read_length = 0; + r->read_body = REQUEST_NO_BODY; + r->status = HTTP_OK; + r->the_request = "UNKNOWN"; + + r->hostname = s->server_hostname; + + r->method = "GET"; + r->method_number = M_GET; + r->uri = "/"; + r->filename = (char *)ap_server_root_relative(p, r->uri); + + r->assbackwards = 1; + r->protocol = "UNKNOWN"; + + r_sv = sv_setref_pv(newSV(0), "Apache2::RequestRec", (void*)r); + + if (base_pool_sv) { + mpxs_add_pool_magic(r_sv, base_pool_sv); + } + + return r_sv; +} + +static MP_INLINE +request_rec *mpxs_Apache2__RequestUtil_request(pTHX_ SV *classname, SV *svr) +{ + /* ignore classname */ + return modperl_global_request(aTHX_ svr); +} + +static MP_INLINE +int mpxs_Apache2__RequestRec_location_merge(request_rec *r, + char *location) +{ + apr_pool_t *p = r->pool; + server_rec *s = r->server; + core_server_config *sconf = ap_get_module_config(s->module_config, + &core_module); + ap_conf_vector_t **sec = (ap_conf_vector_t **)sconf->sec_url->elts; + int num_sec = sconf->sec_url->nelts; + int i; + + for (i=0; i<num_sec; i++) { + core_dir_config *entry = + (core_dir_config *)ap_get_module_config(sec[i], + &core_module); + + if (strEQ(entry->d, location)) { + r->per_dir_config = + ap_merge_per_dir_configs(p, s->lookup_defaults, sec[i]); + return 1; + } + } + + return 0; +} + +static MP_INLINE +void mpxs_Apache2__RequestRec_set_basic_credentials(request_rec *r, + char *username, + char *password) +{ + char encoded[1024]; + int elen; + char *auth_value, *auth_cat; + + auth_cat = apr_pstrcat(r->pool, + username, ":", password, NULL); + elen = apr_base64_encode(encoded, auth_cat, strlen(auth_cat)); + encoded[elen] = '\0'; + + auth_value = apr_pstrcat(r->pool, "Basic ", encoded, NULL); + apr_table_setn(r->headers_in, "Authorization", auth_value); +} + + +static MP_INLINE +int mpxs_Apache2__RequestRec_no_cache(pTHX_ request_rec *r, SV *flag) +{ + int retval = r->no_cache; + + if (flag) { + r->no_cache = (int)SvIV(flag); + } + + if (r->no_cache) { + apr_table_setn(r->headers_out, "Pragma", "no-cache"); + apr_table_setn(r->headers_out, "Cache-control", "no-cache"); + } + else if (flag) { /* only unset if $r->no_cache(0) */ + apr_table_unset(r->headers_out, "Pragma"); + apr_table_unset(r->headers_out, "Cache-control"); + } + + return retval; +} + +static MP_INLINE +SV *mpxs_Apache2__RequestRec_pnotes(pTHX_ request_rec *r, SV *key, SV *val) +{ + MP_dRCFG; + + if (!rcfg) { + return &PL_sv_undef; + } + + return modperl_pnotes(aTHX_ &rcfg->pnotes, key, val, r->pool); +} + +static MP_INLINE +void mpxs_Apache2__RequestRec_pnotes_kill(pTHX_ request_rec *r) +{ + MP_dRCFG; + + if (!rcfg) { + return; + } + + modperl_pnotes_kill(&rcfg->pnotes); +} + +#define mpxs_Apache2__RequestRec_dir_config(r, key, sv_val) \ + modperl_dir_config(aTHX_ r, r->server, key, sv_val) + +#define mpxs_Apache2__RequestRec_slurp_filename(r, tainted) \ + modperl_slurp_filename(aTHX_ r, tainted) + +static MP_INLINE +char *mpxs_Apache2__RequestRec_location(request_rec *r) +{ + MP_dDCFG; + + return dcfg->location; +} + +typedef struct { + PerlInterpreter *perl; + SV *sv; +} sv_str_header_t; + +static int sv_str_header(void *arg, const char *k, const char *v) +{ + sv_str_header_t *svh = (sv_str_header_t *)arg; + dTHXa(svh->perl); + Perl_sv_catpvf(aTHX_ svh->sv, "%s: %s\n", k, v); + return 1; +} + +static MP_INLINE +SV *mpxs_Apache2__RequestRec_as_string(pTHX_ request_rec *r) +{ + sv_str_header_t svh; +#ifdef USE_ITHREADS + svh.perl = aTHX; +#endif + + svh.sv = newSVpv(r->the_request, 0); + + sv_catpvn(svh.sv, "\n", 1); + + apr_table_do((int (*) (void *, const char *, const char *)) + sv_str_header, (void *) &svh, r->headers_in, NULL); + + Perl_sv_catpvf(aTHX_ svh.sv, "\n%s %s\n", r->protocol, r->status_line); + + apr_table_do((int (*) (void *, const char *, const char *)) + sv_str_header, (void *) &svh, r->headers_out, NULL); + apr_table_do((int (*) (void *, const char *, const char *)) + sv_str_header, (void *) &svh, r->err_headers_out, NULL); + + sv_catpvn(svh.sv, "\n", 1); + + return svh.sv; +} + +static MP_INLINE +int mpxs_Apache2__RequestRec_is_perl_option_enabled(pTHX_ request_rec *r, + const char *name) +{ + return modperl_config_is_perl_option_enabled(aTHX_ r, r->server, name); +} + +static MP_INLINE +void mpxs_Apache2__RequestRec_add_config(pTHX_ request_rec *r, SV *lines, + int override, char *path, + int override_options) +{ + const char *errmsg = modperl_config_insert_request(aTHX_ r, lines, + override, path, + override_options); + if (errmsg) { + Perl_croak(aTHX_ "$r->add_config() has failed: %s", errmsg); + } +} + +/* in order to ensure that s->document_root doesn't get corrupted by + * modperl users setting its value, restore the original value at the + * end of each request */ +struct mp_docroot_info { + const char **docroot; + const char *original; +}; + +static apr_status_t restore_docroot(void *data) +{ + struct mp_docroot_info *di = (struct mp_docroot_info *)data; + *di->docroot = di->original; + return APR_SUCCESS; +} + +static MP_INLINE +const char *mpxs_Apache2__RequestRec_document_root(pTHX_ request_rec *r, + SV *new_root) +{ + const char *retval = ap_document_root(r); + + if (new_root) { + struct mp_docroot_info *di; + core_server_config *conf; + MP_CROAK_IF_THREADS_STARTED("setting $r->document_root"); + conf = ap_get_module_config(r->server->module_config, + &core_module); + di = apr_palloc(r->pool, sizeof *di); + di->docroot = &conf->ap_document_root; + di->original = conf->ap_document_root; + apr_pool_cleanup_register(r->pool, di, restore_docroot, + restore_docroot); + + conf->ap_document_root = apr_pstrdup(r->pool, SvPV_nolen(new_root)); + } + + return retval; +} + +static apr_status_t child_terminate(void *data) { + apr_pool_t *pool = (apr_pool_t *)data; + + /* On the first pass, re-register so we end up last */ + if (data) { + apr_pool_cleanup_register(pool, NULL, child_terminate, + apr_pool_cleanup_null); + } + else { + exit(0); + } + return APR_SUCCESS; +} + +static MP_INLINE +void mpxs_Apache2__RequestRec_child_terminate(pTHX_ request_rec *r) +{ + MP_CROAK_IF_THREADED_MPM("$r->child_terminate") + apr_pool_cleanup_register(r->pool, r->pool, child_terminate, + apr_pool_cleanup_null); +} + + + +static MP_INLINE +apr_status_t mpxs_ap_register_auth_provider(pTHX_ I32 items, SV **MARK, SV **SP) +{ + apr_pool_t *pool; + const char *provider_group; + const char *provider_name; + const char *provider_version; + SV *callback1; + SV *callback2 = NULL; + int type; + + if (items != 7) + Perl_croak(aTHX_ "pool, provider_group, provider_name, " + "provider_version, callback1, callback2, type"); + + if (SvROK(*MARK) && sv_derived_from(*MARK, "APR::Pool")) { + IV tmp = SvIV((SV*)SvRV(*MARK)); + if (tmp == 0) { + Perl_croak(aTHX_ "invalid pool object (already destroyed?)"); + } + pool = INT2PTR(APR__Pool, tmp); + } + else { + Perl_croak(aTHX_ SvROK(*MARK) ? + "pool is not of type APR::Pool" : + "pool is not a blessed reference"); + } + + MARK++; + provider_group = (const char *)SvPV_nolen(*MARK); + MARK++; + provider_name = (const char *)SvPV_nolen(*MARK); + MARK++; + provider_version = (const char *)SvPV_nolen(*MARK); + MARK++; + callback1 = newSVsv(*MARK); + MARK++; + callback2 = NULL; + if (SvROK(*MARK)) { + callback2 = newSVsv(*MARK); + } + MARK++; + type = (int)SvIV(*MARK); + + return modperl_register_auth_provider(pool, provider_group, provider_name, + provider_version, callback1, + callback2, type); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/Response/Apache2__Response.h b/2_0_13/xs/Apache2/Response/Apache2__Response.h new file mode 100644 index 0000000..6bd03be --- /dev/null +++ b/2_0_13/xs/Apache2/Response/Apache2__Response.h
@@ -0,0 +1,48 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +/* XXX: this should probably named $r->cgi_header_parse + * and send_cgi_header an alias in Apache2::compat + */ +#define mpxs_Apache2__RequestRec_send_cgi_header(r, sv) \ +{ \ + MP_dRCFG; \ + STRLEN len; \ + const char *bodytext; \ + MP_CGI_HEADER_PARSER_OFF(rcfg); \ + SvPV_force(sv, len); \ + modperl_cgi_header_parse(r, SvPVX(sv), (apr_size_t*)&len, &bodytext); \ + if (len) {\ + MP_CHECK_WBUCKET_INIT("$r->send_cgi_header"); \ + modperl_wbucket_write(aTHX_ rcfg->wbucket, bodytext, &len); \ + } \ +} + +static MP_INLINE void +mpxs_Apache2__RequestRec_set_last_modified(request_rec *r, apr_time_t mtime) +{ + if (mtime) { + ap_update_mtime(r, mtime); + } + ap_set_last_modified(r); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/ServerRec/Apache2__ServerRec.h b/2_0_13/xs/Apache2/ServerRec/Apache2__ServerRec.h new file mode 100644 index 0000000..91d944a --- /dev/null +++ b/2_0_13/xs/Apache2/ServerRec/Apache2__ServerRec.h
@@ -0,0 +1,32 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#if AP_SERVER_MAJORVERSION_NUMBER>2 || AP_SERVER_MINORVERSION_NUMBER>=3 +#define loglevel log.level + +static MP_INLINE +int mpxs_Apache2__ServerRec_is_virtual(pTHX_ server_rec *s, SV *val) +{ + int retval = s->is_virtual; + + if (val) { + s->is_virtual = SvIV(val); + } + + return retval; +} + +#endif
diff --git a/2_0_13/xs/Apache2/ServerRec/ServerRec_pm b/2_0_13/xs/Apache2/ServerRec/ServerRec_pm new file mode 100644 index 0000000..5a606cc --- /dev/null +++ b/2_0_13/xs/Apache2/ServerRec/ServerRec_pm
@@ -0,0 +1,4 @@ +use Exporter (); +use Apache2::Log (); # Apache2::ServerRec::loads warn +@Apache2::ServerRec::EXPORT_OK = qw(warn); +*Apache2::ServerRec::import = \&Exporter::import;
diff --git a/2_0_13/xs/Apache2/ServerUtil/Apache2__ServerUtil.h b/2_0_13/xs/Apache2/ServerUtil/Apache2__ServerUtil.h new file mode 100644 index 0000000..f52ed0a --- /dev/null +++ b/2_0_13/xs/Apache2/ServerUtil/Apache2__ServerUtil.h
@@ -0,0 +1,227 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#if !defined(OS2) && !defined(WIN32) && !defined(BEOS) && !defined(NETWARE) +#include "unixd.h" +#endif + +#define mpxs_Apache2__ServerUtil_restart_count modperl_restart_count + +#define mpxs_Apache2__ServerRec_method_register(s, methname) \ + ap_method_register(s->process->pconf, methname); + +#define mpxs_Apache2__ServerRec_add_version_component(s, component) \ + ap_add_version_component(s->process->pconf, component); + +/* XXX: the mpxs_cleanup_t and mpxs_cleanup_run are almost dups with + * code in APR__Pool.h (minus interpr member which is not used + * here. They should be moved to modperl_common_util - the problem is + * modperl_interp_t *, which can't live in modperl_common_* since it + * creates a dependency on mod_perl. A possible solution is to use + * void * for that slot and cast it to modperl_interp_t * when used + */ + +typedef struct { + SV *cv; + SV *arg; + apr_pool_t *p; +#ifdef USE_ITHREADS + PerlInterpreter *perl; +#endif +} mpxs_cleanup2_t; + +/** + * callback wrapper for Perl cleanup subroutines + * @param data internal storage + */ +static apr_status_t mpxs_cleanup_run(void *data) +{ + int count; + mpxs_cleanup2_t *cdata = (mpxs_cleanup2_t *)data; +#ifdef USE_ITHREADS + dTHXa(cdata->perl); +#endif + dSP; +#ifdef USE_ITHREADS + PERL_SET_CONTEXT(aTHX); +#endif + + ENTER;SAVETMPS; + PUSHMARK(SP); + if (cdata->arg) { + XPUSHs(cdata->arg); + } + PUTBACK; + + save_gp(PL_errgv, 1); /* local *@ */ + count = call_sv(cdata->cv, G_SCALAR|G_EVAL); + + SPAGAIN; + + if (count == 1) { + (void)POPs; /* the return value is ignored */ + } + + if (SvTRUE(ERRSV)) { + Perl_warn(aTHX_ "Apache2::ServerUtil: cleanup died: %s", + SvPV_nolen(ERRSV)); + } + + PUTBACK; + FREETMPS;LEAVE; + + SvREFCNT_dec(cdata->cv); + if (cdata->arg) { + SvREFCNT_dec(cdata->arg); + } + + /* the return value is ignored by apr_pool_destroy anyway */ + return APR_SUCCESS; +} + +/* this cleanups registered by this function are run only by the + * parent interpreter */ +static MP_INLINE +void mpxs_Apache2__ServerUtil_server_shutdown_cleanup_register(pTHX_ SV *cv, + SV *arg) +{ + mpxs_cleanup2_t *data; + apr_pool_t *p; + + MP_CROAK_IF_POST_POST_CONFIG_PHASE("server_shutdown_cleanup_register"); + + p = modperl_server_user_pool(); + /* must use modperl_server_user_pool here to make sure that it's run + * before parent perl is destroyed */ + data = (mpxs_cleanup2_t *)apr_pcalloc(p, sizeof(*data)); + data->cv = SvREFCNT_inc(cv); + data->arg = arg ? SvREFCNT_inc(arg) : (SV *)NULL; + data->p = p; +#ifdef USE_ITHREADS + data->perl = aTHX; +#endif /* USE_ITHREADS */ + + apr_pool_cleanup_register(p, data, mpxs_cleanup_run, + apr_pool_cleanup_null); +} + +static MP_INLINE +int mpxs_Apache2__ServerRec_push_handlers(pTHX_ server_rec *s, + const char *name, + SV *sv) +{ + return modperl_handler_perl_add_handlers(aTHX_ + NULL, NULL, s, + s->process->pconf, + name, sv, + MP_HANDLER_ACTION_PUSH); + +} + +static MP_INLINE +int mpxs_Apache2__ServerRec_set_handlers(pTHX_ server_rec *s, + const char *name, + SV *sv) +{ + return modperl_handler_perl_add_handlers(aTHX_ + NULL, NULL, s, + s->process->pconf, + name, sv, + MP_HANDLER_ACTION_SET); +} + +static MP_INLINE +SV *mpxs_Apache2__ServerRec_get_handlers(pTHX_ server_rec *s, + const char *name) +{ + MpAV **handp = + modperl_handler_get_handlers(NULL, NULL, s, + s->process->pconf, name, + MP_HANDLER_ACTION_GET); + + return modperl_handler_perl_get_handlers(aTHX_ handp, + s->process->pconf); +} + +#define mpxs_Apache2__ServerRec_dir_config(s, key, sv_val) \ + modperl_dir_config(aTHX_ NULL, s, key, sv_val) + +#define mpxs_Apache2__ServerUtil_server(classname) modperl_global_get_server_rec() + +#if !defined(OS2) && !defined(WIN32) && !defined(BEOS) && !defined(NETWARE) +#define mpxs_Apache2__ServerUtil_user_id(classname) ap_unixd_config.user_id +#define mpxs_Apache2__ServerUtil_group_id(classname) ap_unixd_config.group_id +#else +#define mpxs_Apache2__ServerUtil_user_id(classname) 0 +#define mpxs_Apache2__ServerUtil_group_id(classname) 0 +#endif + +static MP_INLINE +int mpxs_Apache2__ServerRec_is_perl_option_enabled(pTHX_ server_rec *s, + const char *name) +{ + return modperl_config_is_perl_option_enabled(aTHX_ NULL, s, name); +} + + +static MP_INLINE +void mpxs_Apache2__ServerRec_add_config(pTHX_ server_rec *s, SV *lines) +{ + const char *errmsg; + + MP_CROAK_IF_POST_POST_CONFIG_PHASE("$s->add_config"); + + errmsg = modperl_config_insert_server(aTHX_ s, lines); + if (errmsg) { + Perl_croak(aTHX_ "$s->add_config() has failed: %s", errmsg); + } +} + +#define mpxs_Apache2__ServerRec_get_server_banner \ + ap_get_server_banner() +#define mpxs_Apache2__ServerRec_get_server_description \ + ap_get_server_description() +#define mpxs_Apache2__ServerRec_get_server_version \ + ap_get_server_version() + +static void mpxs_Apache2__ServerUtil_BOOT(pTHX) +{ + newCONSTSUB(PL_defstash, "Apache2::ServerUtil::server_root", + newSVpv(ap_server_root, 0)); + + newCONSTSUB(PL_defstash, "Apache2::ServerUtil::get_server_built", + newSVpv(ap_get_server_built(), 0)); +} + +#if AP_SERVER_MAJORVERSION_NUMBER>2 || \ + (AP_SERVER_MAJORVERSION_NUMBER == 2 && AP_SERVER_MINORVERSION_NUMBER>=3) +static MP_INLINE +int mpxs_Apache2__ServerRec_loglevel(pTHX_ server_rec *s, int loglevel) +{ + if (loglevel) { + s->log.level = loglevel; + } + + return s->log.level; +} +#endif + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/SubProcess/Apache2__SubProcess.h b/2_0_13/xs/Apache2/SubProcess/Apache2__SubProcess.h new file mode 100644 index 0000000..4db7d4a --- /dev/null +++ b/2_0_13/xs/Apache2/SubProcess/Apache2__SubProcess.h
@@ -0,0 +1,225 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "../../APR/PerlIO/modperl_apr_perlio.h" + +#ifndef MP_SOURCE_SCAN +#include "apr_optional.h" + +static APR_OPTIONAL_FN_TYPE(modperl_apr_perlio_apr_file_to_glob) *apr_file_to_glob; +#endif + +/* XXX: probably needs a lot more error checkings */ + +typedef struct { + apr_int32_t in_pipe; + apr_int32_t out_pipe; + apr_int32_t err_pipe; + apr_cmdtype_e cmd_type; +} exec_info; + +#undef FAILED /* win32 defines a macro with this name */ +#define FAILED(command) ((rc = command) != APR_SUCCESS) + +#define SET_TIMEOUT(fp) \ + apr_file_pipe_timeout_set(fp, \ + (int)(apr_time_from_sec(r->server->timeout))) + +static int modperl_spawn_proc_prog(pTHX_ + request_rec *r, + const char *command, + const char ***argv, + apr_file_t **script_in, + apr_file_t **script_out, + apr_file_t **script_err) +{ + exec_info e_info; + apr_pool_t *p; + const char * const *env; + + apr_procattr_t *procattr; + apr_proc_t *procnew; + apr_status_t rc = APR_SUCCESS; + + e_info.in_pipe = APR_CHILD_BLOCK; + e_info.out_pipe = APR_CHILD_BLOCK; + e_info.err_pipe = APR_CHILD_BLOCK; + e_info.cmd_type = APR_PROGRAM; + + p = r->main ? r->main->pool : r->pool; + + *script_out = *script_in = *script_err = NULL; + + env = (const char * const *)ap_create_environment(p, r->subprocess_env); + + if (FAILED(apr_procattr_create(&procattr, p)) || + FAILED(apr_procattr_io_set(procattr, e_info.in_pipe, + e_info.out_pipe, e_info.err_pipe)) || + FAILED(apr_procattr_dir_set(procattr, + ap_make_dirstr_parent(r->pool, + r->filename))) || + FAILED(apr_procattr_cmdtype_set(procattr, e_info.cmd_type))) + { + /* Something bad happened, tell the world. */ + ap_log_rerror(APLOG_MARK, APLOG_ERR, rc, r, + "couldn't set child process attributes: %s", + r->filename); + return rc; + } + + procnew = apr_pcalloc(p, sizeof(*procnew)); + if (FAILED(ap_os_create_privileged_process(r, procnew, command, + *argv, env, procattr, p))) + { + /* Bad things happened. Everyone should have cleaned up. */ + ap_log_rerror(APLOG_MARK, APLOG_ERR, rc, r, + "couldn't create child process: %d: %s", + rc, r->filename); + return rc; + } + + apr_pool_note_subprocess(p, procnew, APR_KILL_AFTER_TIMEOUT); + + if (!(*script_in = procnew->in)) { + Perl_croak(aTHX_ "broken program-in stream"); + return APR_EBADF; + } + SET_TIMEOUT(*script_in); + + if (!(*script_out = procnew->out)) { + Perl_croak(aTHX_ "broken program-out stream"); + return APR_EBADF; + } + SET_TIMEOUT(*script_out); + + if (!(*script_err = procnew->err)) { + Perl_croak(aTHX_ "broken program-err stream"); + return APR_EBADF; + } + SET_TIMEOUT(*script_err); + + return rc; +} + +#define PUSH_FILE_GLOB(fp, type) \ + PUSHs(apr_file_to_glob(aTHX_ fp, r->pool, type)) + +#define PUSH_FILE_GLOB_READ(fp) \ + PUSH_FILE_GLOB(fp, MODPERL_APR_PERLIO_HOOK_READ) + +#define PUSH_FILE_GLOB_WRITE(fp) \ + PUSH_FILE_GLOB(fp, MODPERL_APR_PERLIO_HOOK_WRITE) + +#define CLOSE_SCRIPT_STD(stream) \ + rc = apr_file_close(stream); \ + if (rc != APR_SUCCESS) { \ + XSRETURN_UNDEF; \ + } + +MP_STATIC XS(MPXS_modperl_spawn_proc_prog) +{ + dXSARGS; + const char *usage = "Usage: spawn_proc_prog($r, $command, [\\@argv])"; + + if (items < 2) { + Perl_croak(aTHX_ "%s", usage); + } + + SP -= items; + { + apr_file_t *script_in, *script_out, *script_err; + apr_status_t rc; + const char **argv; + int i=0; + AV *av_argv = (AV *)NULL; + I32 len=-1, av_items=0; + request_rec *r = modperl_xs_sv2request_rec(aTHX_ ST(0), NULL, cv); + const char *command = (const char *)SvPV_nolen(ST(1)); + + if (items == 3) { + if (SvROK(ST(2)) && SvTYPE(SvRV(ST(2))) == SVt_PVAV) { + av_argv = (AV*)SvRV(ST(2)); + len = AvFILLp(av_argv); + av_items = len+1; + } + else { + Perl_croak(aTHX_ "%s", usage); + } + } + + /* ap_os_create_privileged_process expects ARGV as char + * **argv, with terminating NULL and the program itself as a + * first item. + */ + argv = apr_palloc(r->pool, (av_items + 2) * sizeof(char *)); + argv[0] = command; + if (av_argv) { + for (i = 0; i <= len; i++) { + argv[i+1] = (const char *)SvPV_nolen(AvARRAY(av_argv)[i]); + } + } + argv[i+1] = NULL; +#if 0 + for (i=0; i<=len+2; i++) { + Perl_warn(aTHX_ "arg: %d %s\n", + i, argv[i] ? argv[i] : "NULL"); + } +#endif + rc = modperl_spawn_proc_prog(aTHX_ r, command, &argv, + &script_in, &script_out, + &script_err); + + if (rc == APR_SUCCESS) { + /* XXX: apr_file_to_glob should be set once in the BOOT: section */ + apr_file_to_glob = + APR_RETRIEVE_OPTIONAL_FN(modperl_apr_perlio_apr_file_to_glob); + + if (GIMME_V == G_VOID) { + CLOSE_SCRIPT_STD(script_in); + CLOSE_SCRIPT_STD(script_out); + CLOSE_SCRIPT_STD(script_err); + XSRETURN_EMPTY; + } + else if (GIMME_V == G_SCALAR) { + /* XXX: need to do lots of error checking before + * putting the object on the stack + */ + EXTEND(SP, 1); + PUSH_FILE_GLOB_READ(script_out); + CLOSE_SCRIPT_STD(script_in); + CLOSE_SCRIPT_STD(script_err); + } + else { + EXTEND(SP, 3); + PUSH_FILE_GLOB_WRITE(script_in); + PUSH_FILE_GLOB_READ(script_out); + PUSH_FILE_GLOB_READ(script_err); + } + } + else { + XSRETURN_UNDEF; + } + } + + PUTBACK; +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/SubProcess/SubProcess_pm b/2_0_13/xs/Apache2/SubProcess/SubProcess_pm new file mode 100644 index 0000000..92da457 --- /dev/null +++ b/2_0_13/xs/Apache2/SubProcess/SubProcess_pm
@@ -0,0 +1 @@ +use APR::PerlIO ();
diff --git a/2_0_13/xs/Apache2/SubRequest/Apache2__SubRequest.h b/2_0_13/xs/Apache2/SubRequest/Apache2__SubRequest.h new file mode 100644 index 0000000..debfa70 --- /dev/null +++ b/2_0_13/xs/Apache2/SubRequest/Apache2__SubRequest.h
@@ -0,0 +1,40 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE int mpxs_ap_run_sub_req(pTHX_ request_rec *r) +{ + /* need to flush main request output buffer if any + * before running any subrequests, else we get subrequest + * output before anything already written in the main request + */ + + if (r->main) { + modperl_config_req_t *rcfg = modperl_config_req_get(r->main); + if (rcfg->wbucket) { + MP_RUN_CROAK(modperl_wbucket_flush(rcfg->wbucket, FALSE), + "Apache2::SubRequest::run"); + } + } + + return ap_run_sub_req(r); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/URI/Apache2__URI.h b/2_0_13/xs/Apache2/URI/Apache2__URI.h new file mode 100644 index 0000000..5c33c26 --- /dev/null +++ b/2_0_13/xs/Apache2/URI/Apache2__URI.h
@@ -0,0 +1,47 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +apr_uri_t *mpxs_Apache2__RequestRec_parsed_uri(request_rec *r) +{ + modperl_uri_t *uri = modperl_uri_new(r->pool); + + uri->uri = r->parsed_uri; + uri->path_info = r->path_info; + + return (apr_uri_t *)uri; +} + +static MP_INLINE char *mpxs_ap_unescape_url(pTHX_ SV *url) +{ + int status; + STRLEN n_a; + + (void)SvPV_force(url, n_a); + + if ((status = ap_unescape_url(SvPVX(url))) == OK) { + SvCUR_set(url, strlen(SvPVX(url))); + } + + return SvPVX(url); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Apache2/Util/Apache2__Util.h b/2_0_13/xs/Apache2/Util/Apache2__Util.h new file mode 100644 index 0000000..19220d0 --- /dev/null +++ b/2_0_13/xs/Apache2/Util/Apache2__Util.h
@@ -0,0 +1,25 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#define TIME_NOW apr_time_now() +#define DEFAULT_TIME_FORMAT "%a, %d %b %Y %H:%M:%S %Z" + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/Makefile.PL b/2_0_13/xs/Makefile.PL new file mode 100644 index 0000000..d82becc --- /dev/null +++ b/2_0_13/xs/Makefile.PL
@@ -0,0 +1,7 @@ +use lib qw(../lib); +use ModPerl::BuildMM (); + +ModPerl::BuildMM::WriteMakefile( + NAME => "ModPerl::XS", + VERSION => '0.01' +);
diff --git a/2_0_13/xs/ModPerl/Const/Const.pm b/2_0_13/xs/ModPerl/Const/Const.pm new file mode 100644 index 0000000..2b9632d --- /dev/null +++ b/2_0_13/xs/ModPerl/Const/Const.pm
@@ -0,0 +1,56 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +# Licensed to the Apache Software Foundation (ASF) under one or more +# contributor license agreements. See the NOTICE file distributed with +# this work for additional information regarding copyright ownership. +# The ASF licenses this file to You under the Apache License, Version 2.0 +# (the "License"); you may not use this file except in compliance with +# the License. You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# +package ModPerl::Const; + +use DynaLoader (); + +our $VERSION = do { require mod_perl2; $mod_perl2::VERSION }; +our @ISA = qw(DynaLoader); + +#dlopen("Const.so", RTDL_GLOBAL); +#XXX: dl_dlopen.xs check isn't portable; works for hpux +# - on aix this is dl_aix.xs, and depending on release, RTDL_GLOBAL is +# available or not, e.g. 4.3 doesn't have it in the headers, while +# 5.1 does have it +# - from looking at ext/DynaLoader/dl_*.xs when 0x01 is used when it's +# not supported perl issues a warning and passes the right flag to dlopen +# - currently (patchlevel 18958) dl_aix.xs always issues a warning +# even when RTDL_GLOBAL is available, patch submitted to p5p +use Config (); +use constant DL_GLOBAL => + ( $Config::Config{dlsrc} eq 'dl_dlopen.xs' && $^O ne 'openbsd' ) ? 0x01 : 0x0; +sub dl_load_flags { DL_GLOBAL } + +#only bootstrap for use outside of mod_perl +unless (defined &ModPerl::Const::compile) { + __PACKAGE__->bootstrap($VERSION); +} + +sub import { + my $class = shift; + my $arg; + + if ($_[0] and $_[0] =~ /^-compile/) { + $arg = shift; #just compile the constants subs, export nothing + } + + $arg ||= scalar caller; #compile and export into caller's namespace + + $class->compile($arg, @_ ? @_ : ':common'); +} + +1;
diff --git a/2_0_13/xs/ModPerl/Const/Const.xs b/2_0_13/xs/ModPerl/Const/Const.xs new file mode 100644 index 0000000..85b0a32 --- /dev/null +++ b/2_0_13/xs/ModPerl/Const/Const.xs
@@ -0,0 +1,47 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#include "mod_perl.h" +#include "modperl_const.h" + +#ifndef WIN32 +/* FIXME: To define extern perl_module to something so Const.so can be + * loaded later. Without this code, loading Const.so fails with + * undefined_symbol: perl_module. (Windows does not need this since it + * explicitly links against mod_perl.lib anyway.) + */ +module AP_MODULE_DECLARE_DATA perl_module = { + STANDARD20_MODULE_STUFF, + NULL, /* dir config creater */ + NULL, /* dir merger --- default is to override */ + NULL, /* server config */ + NULL, /* merge server config */ + NULL, /* table of config file commands */ + NULL, /* register hooks */ +}; +#endif + +MODULE = ModPerl::Const PACKAGE = ModPerl::Const + +PROTOTYPES: disable + +BOOT: +#XXX: +#currently used just for {APR,Apache}/Const.{so,dll} to lookup +#XS_modperl_const_compile +#linking is fun. +newXS("ModPerl::Const::compile", XS_modperl_const_compile, __FILE__); +
diff --git a/2_0_13/xs/ModPerl/Const/Makefile.PL b/2_0_13/xs/ModPerl/Const/Makefile.PL new file mode 100644 index 0000000..a7a1838 --- /dev/null +++ b/2_0_13/xs/ModPerl/Const/Makefile.PL
@@ -0,0 +1,32 @@ +use lib qw(../lib); +use ModPerl::BuildMM (); + +my $srcdir = '../../../src/modules/perl'; +#link these two into Const.so so constants can be used outside of httpd +my @names = map { "modperl_$_" } qw(const constants); +my(@obj, @clean, %src); + +for (@names) { + push @obj, join '.', $_, 'o'; + my $cfile = join '.', $_, 'c'; + push @clean, $cfile; + $src{$cfile} = "$srcdir/$cfile"; +} + +ModPerl::BuildMM::WriteMakefile( + NAME => 'ModPerl::Const', + VERSION_FROM => 'Const.pm', + OBJECT => "Const.o @obj", + clean => { FILES => "@clean" }, +); + +sub MY::postamble { + my $self = shift; + my $string = $self->ModPerl::BuildMM::MY::postamble; + + $string .= join '', map { + "$_: $src{$_}\n\t\$(CP) $src{$_} .\n"; + } sort keys %src; + + return $string; +}
diff --git a/2_0_13/xs/ModPerl/Global/ModPerl__Global.h b/2_0_13/xs/ModPerl/Global/ModPerl__Global.h new file mode 100644 index 0000000..0d76ceb --- /dev/null +++ b/2_0_13/xs/ModPerl/Global/ModPerl__Global.h
@@ -0,0 +1,69 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +typedef void (*mpxs_special_list_do_t)(pTHX_ modperl_modglobal_key_t *, + const char *, I32); + +static int mpxs_special_list_do(pTHX_ const char *name, + SV *package, + mpxs_special_list_do_t func) +{ + STRLEN packlen; + char *packname; + modperl_modglobal_key_t *gkey = modperl_modglobal_lookup(aTHX_ name); + + if (!gkey) { + return FALSE; + } + + packname = SvPV(package, packlen); + + func(aTHX_ gkey, packname, packlen); + + return TRUE; +} + +static +MP_INLINE int mpxs_ModPerl__Global_special_list_call(pTHX_ const char *name, + SV *package) +{ + return mpxs_special_list_do(aTHX_ name, package, + modperl_perl_global_avcv_call); +} + +static +MP_INLINE int mpxs_ModPerl__Global_special_list_clear(pTHX_ const char *name, + SV *package) +{ + return mpxs_special_list_do(aTHX_ name, package, + modperl_perl_global_avcv_clear); +} + +static +MP_INLINE int mpxs_ModPerl__Global_special_list_register(pTHX_ + const char *name, + SV *package) +{ + return mpxs_special_list_do(aTHX_ name, package, + modperl_perl_global_avcv_register); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/ModPerl/Interpreter/ModPerl__Interpreter.h b/2_0_13/xs/ModPerl/Interpreter/ModPerl__Interpreter.h new file mode 100644 index 0000000..c3f735e --- /dev/null +++ b/2_0_13/xs/ModPerl/Interpreter/ModPerl__Interpreter.h
@@ -0,0 +1,28 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +static MP_INLINE +modperl_interp_t *mpxs_ModPerl__Interpreter_current(pTHX_ SV *class) +{ + return modperl_thx_interp_get(aTHX); +} + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/ModPerl/Makefile.PL b/2_0_13/xs/ModPerl/Makefile.PL new file mode 100644 index 0000000..1e7f50e --- /dev/null +++ b/2_0_13/xs/ModPerl/Makefile.PL
@@ -0,0 +1,7 @@ +use lib qw(../lib); +use ModPerl::BuildMM (); + +ModPerl::BuildMM::WriteMakefile( + NAME => "ModPerl", + VERSION => '0.01' +);
diff --git a/2_0_13/xs/ModPerl/Util/ModPerl__Util.h b/2_0_13/xs/ModPerl/Util/ModPerl__Util.h new file mode 100644 index 0000000..3e09070 --- /dev/null +++ b/2_0_13/xs/ModPerl/Util/ModPerl__Util.h
@@ -0,0 +1,49 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifdef USE_ITHREADS +#define mpxs_ModPerl__Util_current_perl_id() \ + Perl_newSVpvf(aTHX_ "0x%lx", (unsigned long)aTHX) +#else +#define mpxs_ModPerl__Util_current_perl_id() \ + Perl_newSVpvf(aTHX_ "0x%lx", (unsigned long)0) +#endif + +static MP_INLINE void mpxs_ModPerl__Util_untaint(pTHX_ I32 items, + SV **MARK, SV **SP) +{ + if (!PL_tainting) { + return; + } + while (MARK <= SP) { + sv_untaint(*MARK++); + } +} + +#define mpxs_ModPerl__Util_current_callback \ + modperl_callback_current_callback_get + +#define mpxs_ModPerl__Util_unload_package_xs(pkg) \ + modperl_package_unload(aTHX_ pkg) + +/* ModPerl::Util::exit lives in mod_perl.so, see modperl_perl.c */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/ModPerl/Util/Util_pm b/2_0_13/xs/ModPerl/Util/Util_pm new file mode 100644 index 0000000..365661e --- /dev/null +++ b/2_0_13/xs/ModPerl/Util/Util_pm
@@ -0,0 +1,63 @@ +#Extra stuff + +our $DEFAULT_UNLOAD_METHOD ||= "unload_package_pp"; + +sub unload_package { + goto &$DEFAULT_UNLOAD_METHOD; +} + +sub unload_package_pp { + my $package = shift; + no strict 'refs'; + my $tab = \%{ $package . '::' }; + + # below we assign to a symbol first before undef'ing it, to avoid + # nuking aliases. If we undef directly we may undef not only the + # alias but the original function as well + + for (keys %$tab) { + #Skip sub stashes + next if /::$/; + + my $fullname = join '::', $package, $_; + # code/hash/array/scalar might be imported make sure the gv + # does not point elsewhere before undefing each + if (%$fullname) { + *{$fullname} = {}; + undef %$fullname; + } + if (@$fullname) { + *{$fullname} = []; + undef @$fullname; + } + if ($$fullname) { + my $tmp; # argh, no such thing as an anonymous scalar + *{$fullname} = \$tmp; + undef $$fullname; + } + if (defined &$fullname) { + no warnings; + local $^W = 0; + if (defined(my $p = prototype $fullname)) { + *{$fullname} = eval "sub ($p) {}"; + } + else { + *{$fullname} = sub {}; + } + undef &$fullname; + } + if (*{$fullname}{IO}) { + local $@; + eval { + if (fileno $fullname) { + close $fullname; + } + }; + } + } + + #Wipe from %INC + $package =~ s[::][/]g; + $package .= '.pm'; + delete $INC{$package}; +}
diff --git a/2_0_13/xs/maps/apache2_functions.map b/2_0_13/xs/maps/apache2_functions.map new file mode 100644 index 0000000..1503ec7 --- /dev/null +++ b/2_0_13/xs/maps/apache2_functions.map
@@ -0,0 +1,568 @@ +########## Apache functions ########## + +#keywords: +# MODULE = the module name +# e.g. Apache2::Connection -> Apache2/Connection.{pm,xs} +# +# PACKAGE = the package name functions belong to, defaults to MODULE +# value of 'guess' indicates that package name should be +# guessed based on first argument found that maps to a Perl class +# fallsback on the prefix (ap_ -> Apache2, apr_ -> APR) +# +# PREFIX = prefix to be stripped +# defaults to PACKAGE, converted to C name convention, e.g. +# APR::Base64 -> apr_base64_ +# if the converted prefix does not match, defaults to ap_ or apr_ + +#format of entries: +# C function name | dispatch function name | argspec | Perl alias + +# dispatch function name defaults to C function name +# if the dispatch name is just a prefix (mpxs_, MPXS_) +# the C function name is appended to it +# the return type can be specified before the C function name, +# defaults to return_type in {Apache2,ModPerl}::FunctionTable + +# the argspec defaults to arguments in {Apache2,ModPerl}::FunctionTable +# argument types can be specified to override those in the FunctionTable +# default values can be specified, e.g. arg=default_value +# argspec of '...' indicates passthru, calling the function with +# (aTHX_ I32 items, SP **sp, SV **MARK) + +# the alias will be created in the current PACKAGE + +# function names that do not begin with /^\w/ are skipped +# for details see: %ModPerl::MapUtil::disabled_map +# in lib/ModPerl/MapUtil.pm + +MODULE=Apache2::RequestUtil + ap_get_status_line +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 + ap_register_auth_provider | mpxs_ | ... +#_end_ + +MODULE=Apache2::RequestUtil PACKAGE=guess + ap_psignature | | r, prefix +>ap_finalize_request_protocol +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } < 2003000 + ap_default_type +#_end_ + ap_get_server_name + ap_get_server_port +!ap_content_type_tolower + ap_is_initial_req +>ap_method_registry_init +>ap_process_request_internal +?ap_get_mime_headers +>ap_rgetline_core +?ap_get_request_note +?ap_register_request_note +~ap_set_content_type + +#MODULE=Apache2::RequestConfig +~ap_document_root + ap_get_limit_req_body +?ap_get_limit_xml_body +>ap_core_translate + +>MODULE=Apache2::Core + ap_basic_http_header + ap_http_filter + ap_send_http_options + ap_send_http_trace + ap_response_code_string + ap_add_file_conf + ap_add_per_dir_conf + ap_add_per_url_conf + ap_limit_section + ap_setup_make_content_type + +>MODULE=Apache2::Listen + ap_set_listenbacklog + ap_set_listener + ap_set_send_buffer_size + ap_setup_listeners + +MODULE=Apache2::SubRequest PACKAGE=Apache2::RequestRec +?ap_sub_req_output_filter +>ap_set_sub_req_protocol +-ap_finalize_sub_req_protocol + ap_internal_redirect | | r, new_uri + ap_internal_redirect_handler | | r, new_uri + ap_internal_fast_redirect | | r, sub_req + ap_sub_req_lookup_dirent | | r, finfo, subtype=AP_SUBREQ_NO_ARGS, next_filter=NULL | lookup_dirent + +subrequest_rec *:ap_sub_req_lookup_file | | \ + r, new_file, next_filter=r->proto_output_filters | lookup_file + +subrequest_rec *:ap_sub_req_lookup_uri | | \ + r, new_uri, next_filter=r->proto_output_filters | lookup_uri + +subrequest_rec *:ap_sub_req_method_uri | | \ + r, method, new_uri, next_filter=r->proto_output_filters | lookup_method_uri + +PACKAGE=Apache2::SubRequest ISA=Apache2::RequestRec + ap_destroy_sub_req | | r | DESTROY + ap_run_sub_req | mpxs_ | | run + +MODULE=Apache2::RequestIO PACKAGE=Apache2::RequestRec + ap_discard_request_body +!ap_getline + ap_get_client_block | mpxs_ | r, SV *:buffer, bufsiz + ap_setup_client_block | | r, read_policy=REQUEST_CHUNKED_ERROR + ap_should_client_block +PREFIX=ap_r +~ap_rwrite + ap_rprintf | mpxs_ | ... +!ap_rputc +~ap_rputs + ap_rvputs | mpxs_ | ... | puts +-ap_vrprintf + +MODULE=Apache2::Response PACKAGE=guess + ap_make_etag | | r, force_weak=0 + ap_set_content_length | | r, length=r->finfo.csize + ap_set_etag + ap_meets_conditions + ap_rationalize_mtime + ap_update_mtime | | r, dependency_mtime=0 + ap_send_error_response +~ap_send_fd + ap_send_mmap | | r, mm, offset, length + ap_set_keepalive +-ap_set_last_modified + ap_custom_response + +MODULE=Apache2::Access PACKAGE=Apache2::RequestRec + ap_allow_methods | mpxs_ | ... + ap_allow_options + ap_allow_overrides +!ap_allow_standard_methods + ap_get_remote_logname + SV *:ap_requires | mpxs_ + ap_satisfies + +#MODULE=Apache2::Auth + mpxs_Apache2__RequestRec_auth_name | | r, name=NULL + mpxs_Apache2__RequestRec_auth_type | | r, type=NULL + ap_get_basic_auth_pw | MPXS_ | r + ap_note_auth_failure + ap_note_basic_auth_failure + ap_note_digest_auth_failure + ap_some_auth_required + +!MODULE=Apache2::ScriptUtil PACKAGE=guess + ap_add_cgi_vars + ap_add_common_vars + ap_create_environment + ap_find_path_info +-ap_scan_script_header_err +-ap_scan_script_header_err_core +-ap_scan_script_header_err_strs +-ap_scan_script_header_err_brigade + +MODULE=Apache2::ServerUtil PACKAGE=Apache2::ServerRec BOOT=1 +~ap_method_register + int:DEFINE_method_register | | server_rec *:s, const char *:methname +~add_version_component + void:DEFINE_add_version_component | | server_rec *:s, const char *:component +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 + mpxs_Apache2__ServerRec_loglevel | | server_rec *:s, loglevel=0 +#_end_ + +MODULE=Apache2::ServerUtil PACKAGE=Apache2::ServerUtil + ap_exists_config_define + ap_server_root_relative | | p, fname="" + ap_get_server_banner + ap_get_server_description + ap_get_server_version + +MODULE=Apache2::ServerUtil PACKAGE=guess + ap_error_log2stderr +?ap_replace_stderr_log + +#MODULE=Apache2::ServerConfig +#XXX: thought this might be useful +#however it is not exported on win32 +!ap_get_local_host +~ap_get_server_built +~ap_server_root + + +MODULE=Apache2::Connection PACKAGE=guess +#XXX: thought this might be useful for protocol modules +#however it is not exported on win32 +!ap_read_request +>ap_update_vhost_given_ip + mpxs_Apache2__Connection_get_remote_host | | c, type=REMOTE_NAME, dir_config=NULL + +MODULE=Apache2::Log PACKAGE=guess +?ap_log_assert +~ap_log_error +-ap_log_perror +~ap_log_rerror +>ap_open_stderr_log +>ap_open_logs + +PACKAGE=Apache2::Log PREFIX=ap_ + ap_log_pid + +MODULE=Apache2::Module + module *:DEFINE_top_module +-ap_add_loaded_module +-ap_add_module +-ap_add_named_module + ap_find_linked_module +-ap_find_module_name +ap_remove_loaded_module +-ap_remove_module +>ap_single_module_configure +>ap_setup_prelinked_modules +>ap_show_directives +>ap_show_modules +>ap_register_hooks + mpxs_Apache2__Module_loaded + mpxs_Apache2__Module_add + #ap_get_module_config + mpxs_Apache2__Module_get_config | | pmodule, s, v=NULL + mpxs_Apache2__Module_ap_api_major_version + mpxs_Apache2__Module_ap_api_minor_version + +MODULE=Apache2::Directive + ap_directive_t *:DEFINE_conftree +!ap_add_node +!ap_build_config +!ap_build_cont_config +!ap_walk_config +>ap_process_config_tree + +MODULE=Apache2::Filter PACKAGE=guess +~ap_add_output_filter +~ap_add_input_filter +-ap_add_input_filter_handle +-ap_get_input_filter_handle +-ap_add_output_filter_handle +-ap_get_output_filter_handle +>ap_add_ouput_filters_by_type +~ap_get_brigade + mpxs_Apache2__Filter_get_brigade | | \ + f, bb, mode=AP_MODE_READBYTES, \ + block=APR_BLOCK_READ, \ + readbytes=8192 +~ap_pass_brigade + mpxs_Apache2__Filter_pass_brigade +!ap_register_input_filter +!ap_register_output_filter +-ap_remove_output_filter +-ap_remove_input_filter +!ap_save_brigade + ap_filter_flush +~ap_fflush + mpxs_Apache2__Filter_fflush +-ap_fputstrs +#int:DEFINE_ap_fputs | | \ +# ap_filter_t *:f, apr_bucket_brigade *:bb, const char *:str +-ap_fprintf +>ap_byterange_filter +>ap_http_header_filter +>ap_content_length_filter +>ap_old_write_filter + +!MODULE=Apache2::Bucket + ap_bucket_error_create + ap_bucket_error_make + +!MODULE=Apache2::Base64 + ap_pbase64decode + ap_pbase64encode + +!MODULE=Apache2::ConfigFile + ap_cfg_closefile + ap_cfg_getc + ap_cfg_getline + ap_pcfg_open_custom + ap_pcfg_openfile +>ap_read_config +>ap_merge_per_dir_configs +>ap_create_conn_config +>ap_parse_htaccess +>ap_process_resource_config + +MODULE=Apache2::Command + command_rec *:DEFINE_next | | command_rec *:cmd +-ap_soak_end_container +-ap_set_int_slot +-ap_set_file_slot +-ap_set_flag_slot +-ap_set_string_slot +-ap_set_string_slot_lower +-ap_set_deprecated + +MODULE=Apache2::Util + ap_ht_time | | p, t=TIME_NOW, fmt=DEFAULT_TIME_FORMAT, gmt=1 +!ap_rfc1413 +!ap_escape_html | | s, p + #escape_uri + ap_os_escape_path | | path, p, partial=TRUE | escape_path +!ap_explode_recent_gmt +!ap_explode_recent_localtime +!ap_recent_ctime +!ap_recent_rfc822_date + +MODULE=Apache2::URI PACKAGE=guess + ap_parse_uri + ap_construct_url | | r, uri=r->uri, p=r->pool + ap_construct_server | | r, hostname=ap_get_server_name(r), \ + port=ap_get_server_port(r), p=r->pool +PACKAGE=Apache2::URI + char *:ap_unescape_url | mpxs_ | SV *:url + +PACKAGE=Apache2::RequestRec + mpxs_Apache2__RequestRec_parsed_uri + +!MODULE=Apache2::StringUtil PACKAGE=guess + ap_count_dirs + ap_escape_path_segment + ap_escape_quotes + ap_escape_shell_cmd + ap_field_noparam + ap_find_last_token + ap_find_list_item + ap_find_token + ap_get_list_item + ap_size_list_item + ap_getparents + ap_get_token +-ap_getword +-ap_getword_conf +-ap_getword_conf_nc +-ap_getword_nc +-ap_getword_nulls +-ap_getword_nulls_nc +-ap_getword_white +-ap_getword_white_nc +-ap_ind +-ap_rind + ap_is_directory + ap_is_matchexp + ap_is_rdirectory + ap_is_url + ap_make_dirstr_parent + ap_make_dirstr_prefix + ap_make_full_path + ap_no2slash + ap_os_is_path_absolute + ap_resolve_env +-ap_strcasecmp_match +-ap_strcasestr +-ap_strcmp_match + ap_stripprefix +-ap_str_tolower + +!MODULE=Apache2::MethodList + ap_clear_method_list +-ap_copy_method_list + ap_make_method_list + ap_method_in_list + ap_method_list_add + ap_method_list_do + ap_method_list_remove + ap_method_list_vdo + ap_method_name_of + ap_method_number_of + +!MODULE=Apache2::PipedLog + ap_close_piped_log + ap_open_piped_log + +!MODULE=Apache2::Scoreboard + ap_exists_scoreboard_image +-ap_update_child_status +-ap_time_process_request +-ap_create_scoreboard + ap_cleanup_scoreboard + ap_increment_counts + ap_calc_scoreboard_size + ap_create_sb_handle + ap_get_scoreboard_global + ap_get_scoreboard_process + ap_get_scoreboard_worker +>ap_init_scoreboard +>ap_reopen_scoreboard + ap_update_child_status_from_indexes + +!MODULE=Apache2::Hooks + ap_location_walk + ap_directory_walk + ap_file_walk + ap_hook_access_checker + ap_hook_auth_checker + ap_hook_check_user_id + ap_hook_child_init +>ap_hook_create_connection +>ap_hook_get_create_connection + ap_hook_default_port + ap_hook_fixups + ap_hook_handler + ap_hook_header_parser + ap_hook_http_method + ap_hook_insert_filter + ap_hook_log_transaction + ap_hook_open_logs + ap_hook_optional_fn_retrieve + ap_hook_post_config + ap_hook_post_read_request + ap_hook_pre_config + ap_hook_pre_connection + ap_hook_process_connection + ap_hook_translate_name + ap_hook_type_checker +!ap_hook_quick_handler + ap_hook_map_to_storage + ap_hook_create_request + ap_hook_error_log +>ap_hook_pre_mpm +-ap_hook_get_suexec_identity +-ap_hook_get_access_checker +-ap_hook_get_auth_checker +-ap_hook_get_check_user_id +-ap_hook_get_child_init +-ap_hook_get_create_request +-ap_hook_get_default_port +-ap_hook_get_error_log +-ap_hook_get_fixups +-ap_hook_get_get_mgmt_items +-ap_hook_get_get_suexec_identity +-ap_hook_get_handler +-ap_hook_get_header_parser +-ap_hook_get_http_method +-ap_hook_get_insert_filter +-ap_hook_get_log_transaction +-ap_hook_get_map_to_storage +-ap_hook_get_mgmt_items +-ap_hook_get_open_logs +-ap_hook_get_optional_fn_retrieve +-ap_hook_get_post_config +-ap_hook_get_post_read_request +-ap_hook_get_pre_config +-ap_hook_get_pre_connection +-ap_hook_get_pre_mpm +-ap_hook_get_process_connection +-ap_hook_get_quick_handler +-ap_hook_get_translate_name +-ap_hook_get_type_checker + +MODULE=Apache2::HookRun PACKAGE=guess +-ap_run_get_suexec_identity +-ap_run_optional_fn_retrieve +>ap_run_pre_config +>ap_run_open_logs +>ap_run_post_config +>ap_run_insert_filter +>ap_run_child_init +?ap_run_default_port +?ap_run_http_method +>ap_run_create_connection +>ap_run_pre_connection +>ap_run_process_connection + ap_run_post_read_request + ap_run_translate_name + ap_run_header_parser + ap_run_access_checker + ap_run_check_user_id + ap_run_auth_checker + ap_run_type_checker + ap_run_fixups + ap_run_handler + ap_run_log_transaction +>ap_run_rewrite_args +?ap_run_create_request +>ap_run_error_log +>ap_run_get_mgmt_items + ap_run_map_to_storage +>ap_run_pre_mpm +!ap_run_quick_handler + ap_invoke_handler + ap_die | | r, type + +!MODULE=Apache2::MD5 + ap_md5 + ap_md5_binary + ap_md5contextTo64 + ap_md5digest + +-MODULE=Apache2::Regexp + ap_pregcomp + ap_pregfree + ap_pregsub + ap_regerror + ap_regexec + +!MODULE=Apache2::VHost +-ap_set_name_virtual_host +-ap_fini_vhost_config +-ap_init_vhost_config + ap_matches_request_vhost + ap_parse_vhost_addrs +-ap_update_vhost_from_headers +-ap_fixup_virtual_hosts + +!MODULE=Apache2::HTTPCore +>ap_process_request +>ap_make_content_type +>ap_core_reorder_directories +>ap_index_of_response + +!MODULE=Apache2::XML + ap_xml_parse_input + +MODULE=Apache2::MPM PACKAGE=Apache2::MPM BOOT=1 +~ap_mpm_query +~ap_show_mpm +>ap_mpm_run +?ap_os_create_privileged_process +?ap_wait_or_timeout +?ap_graceful_stop_signalled +?ap_process_child_status +?ap_reclaim_child_processes +?ap_sock_disable_nagle +?ap_gname2id +?ap_uname2id +?ap_lingering_close +?ap_mpm_pod_check +?ap_mpm_pod_close +?ap_mpm_pod_killpg +?ap_mpm_pod_open +?ap_mpm_pod_signal +?ap_mpm_set_accept_lock_mech +?ap_mpm_set_coredumpdir +?ap_mpm_set_lockfile +?ap_mpm_set_max_requests +?ap_mpm_set_pidfile +?ap_mpm_set_scoreboard +?ap_listen_pre_config + +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 +MODULE=Apache2::Provider + ap_register_provider +#_end_
diff --git a/2_0_13/xs/maps/apache2_structures.map b/2_0_13/xs/maps/apache2_structures.map new file mode 100644 index 0000000..c9ff850 --- /dev/null +++ b/2_0_13/xs/maps/apache2_structures.map
@@ -0,0 +1,336 @@ +########## Apache structures ########## + +# for mapping see %ModPerl::MapUtil::disabled_map in +# lib/ModPerl/MapUtil.pm +# the mapping happens in lib/ModPerl/StructureMap.pm: sub parse +# '<' => 'auto-generated but gives only a read-only access' +# '&' => 'RDWR accessor to a char* field, supporting undef arg' +# '$' => 'RONLY accessor, with WRITE accessor before child_init' +# '%' => like $, but makes sure that for the write accessor the +# original perl scalar can change or go away w/o affecting +# the object +# my %disabled_map = ( +# '!' => 'disabled or not yet implemented', +# '~' => 'implemented but not auto-generated', +# '-' => 'likely never be available to Perl', +# '>' => '"private" to apache', +# '?' => 'unclassified', +# ); + +IGNORE: ap_LINK_ ap_filter_func ap_bucket_error ap_listen_rec core_net_rec + +<request_rec> +< pool +< connection +< server +< next +< prev +< main + the_request + assbackwards +~ proxyreq +< header_only +< protocol +< proto_num + hostname +< request_time + status_line + status + method + method_number + allowed + allowed_xmethods + allowed_methods +> sent_bodyct + bytes_sent + mtime +> chunked +> range +> clength +- remaining +> read_length +> read_body +> read_chunked +> expecting_100 + headers_in + headers_out + err_headers_out +~ subprocess_env + notes +~ content_type +~ handler + content_encoding +~ content_languages +> vlist_validator + user + ap_auth_type +~ no_cache + no_local_copy +< unparsed_uri + uri + filename +- canonical_filename + path_info + args +~ finfo +~ parsed_uri + used_path_info +< per_dir_config +< request_config +! htaccess + output_filters + input_filters + proto_output_filters + proto_input_filters +? eos_sent +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 +< useragent_addr + useragent_ip +#_end_ +</request_rec> + +<server_rec> +< process +< next +- defn_name +- defn_line_number +% server_admin +% server_hostname +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 +% server_scheme +#_end_ +$ port +% error_fname +$ error_log +$ loglevel +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 +~ is_virtual +#_else_ +< is_virtual +#_end_ +< module_config +< lookup_defaults +< addrs +$ timeout +$ keep_alive_timeout +$ keep_alive_max +$ keep_alive +% path +- pathlen +% names +% wild_names +$ limit_req_line +$ limit_req_fieldsize +$ limit_req_fields +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 + context +#_end_ +</server_rec> + +<conn_rec> +< pool +< base_server +> vhost_lookup_data +< local_addr +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 +< client_addr + client_ip +#_end_ +< local_ip +< local_host +< remote_addr + remote_ip +< remote_host +- remote_logname +< aborted + keepalive +? double_reverse + keepalives +< id +< conn_config + notes + input_filters + output_filters +< sbh +< bucket_alloc +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 +< log +< log_id +#_end_ +</conn_rec> + +!<server_addr_rec> + next + host_addr + host_port + virthost +</server_addr_rec> + +<module> +~ version +~ minor_version +< module_index +< name +! dynamic_load_handle +< next +> magic +- rewrite_args +> create_dir_config +> merge_dir_config +> create_server_config +> merge_server_config +< cmds +> register_hooks +</module> + +<process_rec> +< pool +< pconf +- argc +! argv +< short_name +</process_rec> + +<command_rec> +< name +! func +! cmd_data +< req_override +< args_how +< errmsg +</command_rec> + +<ap_filter_rec_t> +< name +- filter_func +! ftype +- next +</ap_filter_rec_t> + +<ap_filter_t> +< frec +~ ctx + next + r + c +</ap_filter_t> + +!<ap_method_list_t> + method_mask + method_list +</ap_method_list_t> + +<ap_directive_t> +< directive +< args +< next +< first_child +< parent +! data +< filename +< line_num +</ap_directive_t> + +!<ap_configfile_t> + getch + getstr + close + param + name + line_number +</ap_configfile_t> + +!<ap_unix_identity_t> + uid + gid + userdir +</ap_unix_identity_t> + +!<unixd_config_rec> + user_name + user_id + group_id + suexec_enabled +</unixd_config_rec> + +!<htaccess_result> + dir + override + htaccess + next +</htaccess_result> + +!<piped_log> + p + fds + program + pid +</piped_log> + +<cmd_parms> +- info +< override +! limited +! limited_xmethods +! xlimited +! config_file +< directive +< pool +< temp_pool +< server +< path +< cmd +< context +! err_directive +- override_opts +</cmd_parms> + +!<ap_mgmt_item_t> + description + name + vtype + v +</ap_mgmt_item_t> + +!<ap_mgmt_value> + s_value + i_value + h_value +</ap_mgmt_value> + +!<ap_pod_t> + pod_in + pod_out + p + sa +</ap_pod_t>
diff --git a/2_0_13/xs/maps/apache2_types.map b/2_0_13/xs/maps/apache2_types.map new file mode 100644 index 0000000..156a919 --- /dev/null +++ b/2_0_13/xs/maps/apache2_types.map
@@ -0,0 +1,93 @@ +########## Apache types ########## + +struct server_rec | Apache2::ServerRec +struct server_addr_rec | Apache2::ServerAddr +struct conn_rec | Apache2::Connection +struct request_rec | Apache2::RequestRec +struct subrequest_rec | Apache2::SubRequest +struct process_rec | Apache2::Process +struct ap_method_list_t | Apache2::MethodList +struct piped_log | Apache2::PipedLog + +struct module | Apache2::Module +struct module_struct | Apache2::Module + +ap_conn_keepalive_e | IV + +#config stuff +struct command_rec | Apache2::Command +enum cmd_how | IV +cmd_func | UNDEFINED +struct cmd_parms | Apache2::CmdParms +struct ap_configfile_t | Apache2::ConfigFile +struct htaccess_result | UNDEFINED +struct ap_directive_t | Apache2::Directive +struct ap_conf_vector_t | Apache2::ConfVector + +#system-ish stuff +ap_mgmt_type_e | IV +ap_mgmt_value | UNDEFINED +ap_scoreboard_e | IV +struct process_score | UNDEFINED +struct worker_score | UNDEFINED +struct ap_pod_t | UNDEFINED +ap_unix_identity_t | UNDEFINED + +#filters +struct ap_filter_t | Apache2::Filter +struct ap_filter_rec_t | Apache2::FilterRec +ap_filter_type | Apache2::FilterType +ap_filter_func | UNDEFINED +ap_out_filter_func | UNDEFINED +ap_in_filter_func | UNDEFINED +ap_input_mode_t | IV + +########## Standard types ########## + +int | IV +int * | PTR +unsigned int | UV +signed int | IV +long | IV +long int | IV +unsigned long | UV +unsigned | UV +double | NV + +char * | PV +const char * | PV +const char ** | UNDEFINED +char const * | PV +unsigned char * | PV +const unsigned char * | PV +char ** | UNDEFINED +char *** | UNDEFINED +const char * const * | UNDEFINED + +char | CHAR +const char | CHAR +const unsigned char | U_CHAR +unsigned char | U_CHAR + +void * | PTR +void ** | UNDEFINED +const void * | PTR +const void ** | UNDEFINED +void | VOID + +... | UNDEFINED #varargs +va_list | UNDEFINED + +########## Misc types ########## + +time_t | NV +uid_t | IV +gid_t | IV +pid_t | IV +size_t | IV +size_t * | UNDEFINED + +struct regex_t +regmatch_t +struct pthread_mutex_t +struct iovec | NOTIMPL
diff --git a/2_0_13/xs/maps/apr_functions.map b/2_0_13/xs/maps/apr_functions.map new file mode 100644 index 0000000..b4f6182 --- /dev/null +++ b/2_0_13/xs/maps/apr_functions.map
@@ -0,0 +1,664 @@ +########## APR Functions ########## + +# for mapping see %ModPerl::MapUtil::disabled_map in +# lib/ModPerl/MapUtil.pm + +!MODULE=APR::Poll + apr_poll_socket_add + apr_poll_socket_clear + apr_poll_data_get + apr_poll_revents_get + apr_poll_socket_mask + apr_poll + apr_poll_socket_remove + apr_poll_data_set + apr_poll_setup + +!MODULE=APR::Time +-apr_ctime + apr_implode_time +-apr_time_now +-apr_sleep + apr_rfc822_date + apr_strftime + apr_time_exp_gmt_get + apr_time_ansi_put + apr_time_exp_get + apr_time_exp_gmt + apr_time_exp_lt + apr_time_exp_tz + +MODULE=APR::Date +-apr_date_checkmask + apr_date_parse_http + apr_date_parse_rfc + +!MODULE=APR::Array + apr_array_append + apr_array_cat + apr_array_pstrcat + apr_array_copy + apr_array_copy_hdr + apr_array_make + apr_array_push + +MODULE=APR::Socket + apr_socket_bind +!apr_socket_accept + apr_socket_listen + apr_socket_connect +~apr_socket_recv + mpxs_APR__Socket_recv + apr_socket_recvfrom + apr_socket_send | mpxs_ | sock, SV *:buf, SV *:len=(SV *)NULL + apr_socket_sendto +!apr_socket_shutdown +-apr_socket_inherit_set +-apr_socket_inherit_unset +#_if_ $^O !~ /mswin/i + mpxs_APR__Socket_fileno | | apr_socket_t *:socket +#_end_ + +MODULE=APR::Socket + apr_socket_close +!apr_socket_create +!apr_socket_addr_get +!apr_socket_data_get +!apr_socket_data_set +~apr_socket_opt_get + mpxs_APR__Socket_opt_get +~apr_socket_opt_set + mpxs_APR__Socket_opt_set + apr_socket_timeout_get | mpxs_ | ... +~apr_socket_timeout_set + mpxs_APR__Socket_timeout_set +-apr_socket_sendfile +-apr_socket_sendv +!apr_socket_from_file + mpxs_APR__Socket_poll + +MODULE=APR::SockAddr +!apr_sockaddr_info_get + char *:apr_sockaddr_ip_get | mpxs_ | sockaddr + apr_sockaddr_equal + +MODULE=APR::Brigade + SV *:apr_brigade_create | mpxs_ | SV *:CLASS, SV *:p_sv, list | new +~apr_brigade_destroy + mpxs_APR__Brigade_destroy +!apr_brigade_partition +!apr_brigade_printf +-apr_brigade_putstrs + apr_brigade_split +-apr_brigade_to_iovec +-apr_brigade_vprintf +-apr_brigade_vputstrs +~apr_brigade_length +!apr_brigade_write +!apr_brigade_puts +-apr_brigade_putc +~ apr_brigade_cleanup + mpxs_APR__Brigade_cleanup +~apr_brigade_flatten +~apr_brigade_pflatten +?apr_brigade_split_line + mpxs_APR__Brigade_first #APR_BRIGADE_FIRST + mpxs_APR__Brigade_last #APR_BRIGADE_LAST + mpxs_APR__Brigade_prev #APR_BUCKET_PREV + mpxs_APR__Brigade_next #APR_BUCKET_NEXT + mpxs_APR__Brigade_insert_tail #APR_BRIGADE_INSERT_TAIL + mpxs_APR__Brigade_insert_head #APR_BRIGADE_INSERT_HEAD + mpxs_APR__Brigade_concat #APR_BRIGADE_CONCAT + mpxs_APR__Brigade_is_empty #APR_BRIGADE_EMPTY + mpxs_APR__Brigade_length | | bb, read_all=1 + mpxs_APR__Brigade_flatten | | ... + mpxs_APR__Brigade_pool + +MODULE=APR::Bucket + mpxs_APR__Bucket_is_flush #APR_BUCKET_IS_FLUSH + mpxs_APR__Bucket_is_eos #APR_BUCKET_IS_EOS + mpxs_APR__Bucket_insert_after #APR_BUCKET_INSERT_AFTER + mpxs_APR__Bucket_insert_before #APR_BUCKET_INSERT_AFTER + mpxs_APR__Bucket_remove #APR_BUCKET_REMOVE + #apr_bucket_read + mpxs_APR__Bucket_read | | bucket, buffer, block=APR_BLOCK_READ + #modperl_bucket_sv_create + mpxs_APR__Bucket_new | | classname, list, sv, offset=0, len=0 + void:DEFINE_destroy | | apr_bucket:bucket + void:DEFINE_delete | | apr_bucket:bucket +~apr_bucket_setaside + mpxs_APR__Bucket_setaside +>apr_bucket_free +!apr_bucket_copy_notimpl +!apr_bucket_shared_copy + apr_bucket_eos_create +!apr_bucket_file_create +!apr_bucket_file_enable_mmap + apr_bucket_flush_create +!apr_bucket_heap_create +!apr_bucket_immortal_create +!apr_bucket_mmap_create +!apr_bucket_pipe_create +!apr_bucket_pool_create +!apr_bucket_socket_create +!apr_bucket_transient_create +!apr_bucket_shared_destroy +!apr_bucket_eos_make +!apr_bucket_file_make +!apr_bucket_flush_make +!apr_bucket_heap_make +!apr_bucket_immortal_make +!apr_bucket_mmap_make +!apr_bucket_pipe_make +!apr_bucket_pool_make +!apr_bucket_shared_make +!apr_bucket_socket_make +!apr_bucket_transient_make +!apr_bucket_setaside_notimpl +!apr_bucket_split_notimpl +!apr_bucket_shared_split +!apr_bucket_simple_split +!apr_bucket_simple_copy +!apr_bucket_destroy_noop +!apr_bucket_setaside_noop + +MODULE=APR::BucketAlloc +>apr_bucket_alloc +~apr_bucket_alloc_create + mpxs_APR__BucketAlloc_new + void:DEFINE_destroy | | apr_bucket_alloc_t *:ba + +MODULE=APR::Pool +-apr_pool_num_bytes | | p, recurse=0 #only available with -DAPR_POOL_DEBUG + apr_pool_cleanup_for_exec +~apr_pool_clear +mpxs_APR__Pool_clear +>apr_pool_clear_debug +~apr_pool_destroy + DEFINE_destroy | mpxs_apr_pool_DESTROY | SV *:obj + DEFINE_DESTROY | mpxs_apr_pool_DESTROY | SV *:obj +>apr_pool_destroy_debug + SV *:DEFINE_new | mpxs_apr_pool_create | SV *:parent_pool_obj +-apr_pool_create_ex +>apr_pool_create_ex_debug +!apr_pool_userdata_get +!apr_pool_userdata_set +-apr_pool_userdata_setn +!apr_pool_cleanup_kill +!apr_pool_cleanup_run +-apr_pool_cleanup_null + apr_pool_cleanup_register | mpxs_ | p, SV *:cv, SV *:arg=(SV *)NULL +!apr_pool_note_subprocess +-apr_palloc +>apr_palloc_debug +>apr_pcalloc_debug +-apr_pcalloc +-apr_pmemdup +!apr_pool_child_cleanup_set +!apr_pool_abort_get + SV *:apr_pool_parent_get | mpxs_ + apr_pool_is_ancestor +-apr_pool_abort_set +>apr_pool_initialize +>apr_pool_terminate + apr_pool_tag + +-MODULE=APR::Allocator + apr_allocator_alloc + apr_allocator_create + apr_allocator_destroy + apr_allocator_free + apr_allocator_mutex_get + apr_allocator_owner_get + apr_allocator_mutex_set + apr_allocator_owner_set + +-MODULE=APR::Atomic + apr_atomic_add + apr_atomic_cas + apr_atomic_dec + apr_atomic_inc + apr_atomic_init + apr_atomic_set + +!MODULE=APR::GlobalMutex + apr_global_mutex_child_init + apr_global_mutex_create + apr_global_mutex_destroy + apr_global_mutex_lock + apr_global_mutex_pool_get + apr_global_mutex_trylock + apr_global_mutex_unlock + +MODULE=APR::ThreadMutex PREFIX=apr_thread_mutex_ + SV *:apr_thread_mutex_create | mpxs_ | \ + SV *:classname, SV *:p_sv, flags=APR_THREAD_MUTEX_DEFAULT | new + void:apr_thread_mutex_destroy | | | apr_thread_mutex_DESTROY + apr_thread_mutex_lock + apr_thread_mutex_trylock + apr_thread_mutex_unlock + apr_thread_mutex_pool_get + +!MODULE=APR::ProcMutex + apr_proc_mutex_child_init + apr_proc_mutex_create + apr_proc_mutex_destroy + apr_proc_mutex_lock + apr_proc_mutex_pool_get + apr_proc_mutex_trylock + apr_proc_mutex_unlock + +MODULE=APR::Table + apr_table_clear +~apr_table_copy + mpxs_APR__Table_copy +~apr_table_make + mpxs_APR__Table_make + apr_table_overlap +~apr_table_overlay + mpxs_APR__Table_overlay + apr_table_compress + apr_table_add +-apr_table_addn + apr_table_do | mpxs_ | ... + apr_table_get | MPXS_ | ... + apr_table_merge +-apr_table_mergen + apr_table_set +-apr_table_setn + apr_table_unset +-apr_table_vdo + void:DEFINE_STORE | | apr_table_t *:t, const char *:key, const char *:value + void:DEFINE_DELETE | | apr_table_t *:t, const char *:key + void:DEFINE_CLEAR | | apr_table_t *:t + const char *:DEFINE_FIRSTKEY | mpxs_APR__Table_NEXTKEY | SV *:tsv, SV *:key=(SV *)NULL + mpxs_APR__Table_NEXTKEY | | SV *:tsv, SV *:key=&PL_sv_undef + mpxs_APR__Table_FETCH + mpxs_APR__Table_EXISTS + +!MODULE=APR::File +-apr_file_append +-apr_file_attrs_set +-apr_file_copy +-apr_file_dup2 + apr_file_mktemp +-apr_file_open +-apr_file_close +-apr_file_namedpipe_create + apr_file_pipe_create +-apr_file_dup +-apr_file_flush +-apr_file_eof +-apr_file_gets +-apr_file_printf +-apr_file_write_full +-apr_file_read_full +-apr_file_getc +-apr_file_ungetc +-apr_file_putc +-apr_file_puts +-apr_file_read +-apr_file_write +-apr_file_writev +-apr_file_seek + apr_file_data_get + apr_file_info_get + apr_file_name_get + apr_file_pool_get + apr_file_pipe_timeout_get + apr_file_pipe_timeout_set + apr_file_lock + apr_file_unlock + apr_file_open_stderr + apr_file_open_stdout +-apr_file_remove +-apr_file_rename + apr_file_data_set + apr_file_perms_set +-apr_file_flags_get +-apr_file_open_stdin +-apr_file_set_inherit +-apr_file_unset_inherit +-apr_file_trunc + apr_filepath_get + apr_filepath_merge + apr_filepath_root + apr_filepath_set + +MODULE=APR::Finfo +-apr_lstat +~apr_stat + mpxs_APR__Finfo_stat + +!MODULE=APR::String + apr_collapse_spaces +-apr_cpystrn + apr_fnmatch + apr_fnmatch_test +-apr_psprintf +-apr_pstrcat +-apr_pstrcatv +-apr_pstrdup +-apr_pstrndup +-apr_pstrmemdup +-apr_pvsprintf + apr_strnatcasecmp + apr_strnatcmp +-apr_tokenize_to_argv +-apr_strtok +-apr_itoa +-apr_ltoa +-apr_off_t_toa + +MODULE=APR::String + SV *:apr_strfsize | mpxs_APR__String_strfsize | size | format_size + +!MODULE=APR::StrMatch + apr_strmatch_precompile + +!MODULE=APR::ProcAttr + apr_procattr_create + apr_procattr_child_err_set + apr_procattr_child_in_set + apr_procattr_child_out_set + apr_procattr_cmdtype_set + apr_procattr_detach_set + apr_procattr_dir_set + apr_procattr_io_set + apr_procattr_limit_set + +!MODULE=APR::Proc + apr_proc_create + apr_proc_fork + apr_proc_kill + apr_proc_wait + apr_proc_detach +-apr_proc_other_child_read +-apr_proc_other_child_register +-apr_proc_other_child_unregister +-apr_proc_other_child_check +-apr_proc_wait_all_procs + +-MODULE=APR::Thread + apr_thread_create + apr_thread_data_get + apr_thread_data_set + apr_thread_detach + apr_thread_exit + apr_thread_join + apr_thread_once + apr_thread_once_init + apr_thread_pool_get + apr_thread_yield + +-MODULE=APR::ThreadCond + apr_thread_cond_broadcast + apr_thread_cond_create + apr_thread_cond_destroy + apr_thread_cond_signal + apr_thread_cond_wait + apr_thread_cond_pool_get + apr_thread_cond_timedwait + +MODULE=APR::ThreadRWLock PREFIX=apr_thread_rwlock_ + SV *:apr_thread_rwlock_create | mpxs_ | SV *:classname, SV *:p_sv | new + void:apr_thread_rwlock_destroy | | | apr_thread_rwlock_DESTROY + apr_thread_rwlock_rdlock + apr_thread_rwlock_tryrdlock + apr_thread_rwlock_trywrlock + apr_thread_rwlock_unlock + apr_thread_rwlock_wrlock + apr_thread_rwlock_pool_get + +-MODULE=APR::ThreadKey + apr_threadkey_data_get + apr_threadkey_data_set + apr_threadkey_private_get + apr_threadkey_private_set + apr_threadkey_private_create + apr_threadkey_private_delete + +-MODULE=APR::ThreadAttr + apr_threadattr_create + apr_threadattr_detach_set + apr_threadattr_detach_get + +!MODULE=APR::Version + apr_version + apr_version_string + +-MODULE=APR::DBM + apr_dbm_close + apr_dbm_delete + apr_dbm_exists + apr_dbm_fetch + apr_dbm_firstkey + apr_dbm_freedatum + apr_dbm_geterror + apr_dbm_get_usednames + apr_dbm_get_usednames_ex + apr_dbm_nextkey + apr_dbm_open + apr_dbm_open_ex + apr_dbm_store + +-MODULE=APR::SDBM + apr_sdbm_close + apr_sdbm_delete + apr_sdbm_fetch + apr_sdbm_firstkey + apr_sdbm_lock + apr_sdbm_nextkey + apr_sdbm_open + apr_sdbm_rdonly + apr_sdbm_store + apr_sdbm_unlock + +-MODULE=APR::Dir + apr_dir_close + apr_dir_open + apr_dir_read + apr_dir_rewind + apr_dir_make + apr_dir_remove + +!MODULE=APR::DSO + apr_dso_error + apr_dso_load + apr_dso_sym + apr_dso_unload + +MODULE=APR::Util + apr_filepath_name_get + apr_password_get + int:apr_password_validate | mpxs_ +-apr_snprintf +-apr_vformatter +-apr_vsnprintf +# only available if APR_HAS_RANDOM +-apr_generate_random_bytes + +MODULE=APR::Error +~apr_strerror + char *:DEFINE_strerror | | apr_status_t:rc + +!MODULE=APR::General +-apr_app_initialize +-apr_initialize +-apr_terminate +-apr_terminate2 + +MODULE=APR::Signal +-apr_signal +#not available on all platforms +!apr_signal_description_get +-apr_signal_init +-apr_setup_signal_thread +!apr_signal_thread + +MODULE=APR::UUID + apr_uuid_format | MPXS_ | uuid + apr_uuid_t *:apr_uuid_get | mpxs_ | SV *:CLASS | new + apr_uuid_t *:apr_uuid_parse | mpxs_ | SV *:CLASS,char *:buf | parse + apr_uuid_DESTROY | | uuid + +!MODULE=APR::Hook + apr_hook_deregister_all + apr_hook_sort_register +-apr_register_optional_fn + apr_hook_debug_show + apr_hook_sort_all + apr_optional_hook_add + apr_optional_hook_get + +!MODULE=APR::User + apr_gid_name_get + apr_uid_homepath_get + apr_uid_name_get + apr_uid_get + apr_gid_get + apr_uid_current + +!MODULE=APR::NetLib +-apr_gethostname +!apr_getnameinfo +-apr_getservbyname +!apr_parse_addr_port + +MODULE=APR::IpSubnet + SV *:apr_ipsubnet_create | mpxs_ | \ + SV *:CLASS, SV *:p_sv, ipstr, mask_or_numbits=NULL | new + apr_ipsubnet_test + +!MODULE=APR::Getopt + apr_getopt + apr_getopt_long + apr_getopt_init + +!MODULE=APR::Shm + apr_shm_create + apr_shm_destroy + apr_shm_attach + apr_shm_detach + apr_shm_baseaddr_get + apr_shm_size_get + apr_shm_pool_get + +!MODULE=APR::Hash + apr_hash_copy + apr_hash_count + apr_hash_first + apr_hash_get + apr_hash_merge + apr_hash_next + apr_hash_set + apr_hash_this + apr_hash_make + apr_hash_overlay + apr_hash_pool_get + +!MODULE=APR::MD5 + apr_md5 + apr_md5_encode + apr_md5_final + apr_md5_init + apr_md5_set_xlate + apr_md5_update + +!MODULE=APR::MD4 + apr_md4 + apr_md4_final + apr_md4_init + apr_md4_set_xlate + apr_md4_update + +!MODULE=APR::SHA1 + apr_sha1_base64 + apr_sha1_final + apr_sha1_init + apr_sha1_update + apr_sha1_update_binary + +MODULE=APR::Base64 + apr_base64_decode | MPXS_ | coded_src + apr_base64_encode | MPXS_ | plain_src + int:DEFINE_encode_len | | int:len +-apr_base64_decode_len +-apr_base64_encode_binary +-apr_base64_decode_binary + +MODULE=APR::URI +!apr_uri_parse_hostinfo + SV *:apr_uri_parse | mpxs_ | SV *:classname, SV *:p_sv, uri | parse + apr_uri_unparse | mpxs_ | \ + uptr, flags=APR_URI_UNP_OMITPASSWORD | unparse + #special case to set both uri->port and uri->port_str + mpxs_APR__URI_port | | uri, portsv=(SV *)NULL + mpxs_APR__URI_rpath + apr_uri_port_of_scheme + +!MODULE=Apache2::XML + apr_text_append + apr_xml_parser_create + apr_xml_parser_feed + apr_xml_parser_done + apr_xml_parser_geterror + apr_xml_to_text + apr_xml_empty_elem + apr_xml_quote_string + apr_xml_quote_elem + apr_xml_insert_uri + apr_xml_parse_file + +!MODULE=APR::Mmap + apr_mmap_create + apr_mmap_delete + apr_mmap_offset + apr_mmap_dup + +!MODULE=APR::Xlate + apr_xlate_close + apr_xlate_conv_buffer + apr_xlate_conv_byte + apr_xlate_get_sb + apr_xlate_open + +MODULE=APR::OS + mpxs_APR__OS_current_thread_id +-apr_os_dir_get +-apr_os_exp_time_get +-apr_os_file_get +-apr_os_imp_time_get +#_if_ $^O !~ /mswin/i +~apr_os_sock_get +#_else_ +-apr_os_sock_get +#_end_ +-apr_os_thread_get +-apr_os_threadkey_get +-apr_os_sock_make +-apr_os_dir_put +-apr_os_exp_time_put +-apr_os_file_put +-apr_os_imp_time_put +-apr_os_sock_put +-apr_os_thread_put +-apr_os_threadkey_put +-apr_os_dso_handle_get +-apr_os_dso_handle_put +~apr_os_thread_current +-apr_os_thread_equal +-apr_os_global_mutex_get +-apr_os_proc_mutex_get +-apr_os_proc_mutex_put +-apr_os_shm_get +-apr_os_shm_put + +MODULE=APR::Status PREFIX=mpxs_APR__STATUS_ + int:DEFINE_is_EAGAIN | | apr_status_t:rc + int:DEFINE_is_EACCES | | apr_status_t:rc + int:DEFINE_is_ENOENT | | apr_status_t:rc + int:DEFINE_is_EOF | | apr_status_t:rc + int:DEFINE_is_ECONNABORTED | | apr_status_t:rc + int:DEFINE_is_ECONNRESET | | apr_status_t:rc + int:DEFINE_is_TIMEUP | | apr_status_t:rc
diff --git a/2_0_13/xs/maps/apr_structures.map b/2_0_13/xs/maps/apr_structures.map new file mode 100644 index 0000000..970ce68 --- /dev/null +++ b/2_0_13/xs/maps/apr_structures.map
@@ -0,0 +1,189 @@ +########## APR structures ########## + +# for mapping see %ModPerl::MapUtil::disabled_map in +# lib/ModPerl/MapUtil.pm + +IGNORE: apr_pool_t apr_os_ apr_vformatter_buff_t apr_pool_t \ +apr_table_t apr_in_addr_t apr_bucket_ apr_md5_ctx_t apr_sha1_ctx_t \ +apr_md4_ctx_t apr_sdbm_datum_t apr_memnode_t \ +apr_uuid_t apr_datum_t apr_mmap_t apr_hdtr_t apr_ipsubnet_t \ +apr_strmatch_pattern apr_version_t + +#buckets + +<apr_bucket_type_t> +< name +- num_func +- destroy +- read +- setaside +- split +- copy +</apr_bucket_type_t> + +<apr_bucket> +> link +< type +< length +< start +< data +> free +> list +</apr_bucket> + +<apr_bucket_brigade> +~ pool +> list +< bucket_alloc +</apr_bucket_brigade> + +<apr_finfo_t> +- pool +< valid +< protection +< filetype +< user +< group +< inode +< device +< nlink +< size +< csize +< atime +< mtime +< ctime +< fname +< name +- filehand +</apr_finfo_t> + +<apr_sockaddr_t> +- pool +- hostname +- servname +< port +- sa +- salen +- ipaddr_len +- addr_str_len +- ipaddr_ptr +- next +- family +</apr_sockaddr_t> + +!<apr_proc_t> + pid + in + out + err +</apr_proc_t> + +!<apr_time_exp_t> + tm_usec + tm_sec + tm_min + tm_hour + tm_mday + tm_mon + tm_year + tm_wday + tm_yday + tm_isdst + tm_gmtoff +</apr_time_exp_t> + +#generic data structures + +!<apr_array_header_t> +> pool +> elt_size + nelts +> nalloc + elts +</apr_array_header_t> + +!<apr_table_entry_t> + key + val +> key_checksum +</apr_table_entry_t> + +#getopt + +!<apr_getopt_t> +- cont +- errfn + errarg + ind +- opt +- reset + argc + argv +- place +- interleave +- skip_start +- skip_end +</apr_getopt_t> + +!<apr_getopt_option_t> + name +- optch +- has_arg + description +</apr_getopt_option_t> + +#XML + +!<apr_xml_elem> + name + ns + lang + first_cdata + following_cdata + parent + next + first_child + attr + last_child + ns_scope + priv +</apr_xml_elem> + +<apr_xml_doc> + root + namespaces +</apr_xml_doc> + +<apr_text_header> + first + last +</apr_text_header> + +<apr_xml_attr> + name + ns + value + next +</apr_xml_attr> + +<apr_text> + text + next +</apr_text> + +<apr_uri_t> +& scheme + hostinfo +& user +& password +& hostname +- port_str +& path +& query +& fragment + hostent +~ port +- is_initialized +- dns_looked_up +- dns_resolved +</apr_uri_t>
diff --git a/2_0_13/xs/maps/apr_types.map b/2_0_13/xs/maps/apr_types.map new file mode 100644 index 0000000..0508609 --- /dev/null +++ b/2_0_13/xs/maps/apr_types.map
@@ -0,0 +1,149 @@ +########## APR types ########## + +struct apr_xlate_t | UNDEFINED +struct apr_pool_t | APR::Pool +apr_abortfunc_t | UNDEFINED + +#socket stuff +struct apr_sockaddr_t | APR::SockAddr +apr_os_sock_info_t | APR::SockInfo +struct apr_os_sock_t | UNDEFINED +struct apr_in_addr_t | APR::InAddr +apr_port_t | IV +struct apr_socket_t | APR::Socket +struct sockaddr | UNDEFINED +struct hostent | UNDEFINED +apr_shutdown_how_e | UNDEFINED +apr_interface_e | UNDEFINED + +struct apr_ipsubnet_t | APR::IpSubnet + +#bucket stuff +struct apr_bucket | APR::Bucket +struct apr_bucket_brigade | APR::Brigade +struct apr_bucket_alloc_t | APR::BucketAlloc +apr_brigade_flush | UNDEFINED +struct apr_bucket_type_t | APR::BucketType +apr_read_type_e | IV +apr_bucket_file | UNDEFINED +apr_bucket_pool | UNDEFINED +apr_bucket_heap | UNDEFINED +apr_bucket_mmap | UNDEFINED +apr_bucket_refcount | UNDEFINED +apr_bucket_list | UNDEFINED +#apr_bucket_simple | UNDEFINED +#apr_bucket_shared | UNDEFINED + +#uri +struct apr_uri_t | APR::URI + +#uuid +struct apr_uuid_t | APR::UUID + +#crypto stuff +struct apr_md5_ctx_t | APR::MD5 +struct apr_md4_ctx_t | UNDEFINED +struct apr_sha1_ctx_t | APR::SHA1 + +#getopt +struct apr_getopt_t | APR::Getopt +struct apr_getopt_option_t | APR::GetoptOption + +#dso +struct apr_dso_handle_t | UNDEFINED +struct apr_dso_handle_sym_t | UNDEFINED +struct apr_os_dso_handle_t | UNDEFINED + +#file stuff +struct apr_file_t | UNDEFINED +struct apr_os_file_t | UNDEFINED +struct apr_dir_t | UNDEFINED +struct apr_os_dir_t | UNDEFINED +apr_seek_where_t | UNDEFINED +struct apr_pollfd_t | UNDEFINED +apr_fileperms_t | IV +struct apr_finfo_t | APR::Finfo +apr_filetype_e | IV +apr_dev_t | NV +apr_ino_t | IV + +#process stuff +struct apr_proc_t | APR::Process +struct apr_procattr_t | UNDEFINED +enum kill_conditions +apr_os_proc_t | UNDEFINED +apr_cmdtype_e | UNDEFINED +apr_wait_how_e | UNDEFINED +apr_other_child_rec_t | UNDEFINED + +#time stuff +struct apr_time_exp_t | APR::ExplodedTime +struct apr_os_exp_time_t | UNDEFINED +struct apr_os_imp_time_t | NOTIMPL + +#data structure stuff +struct apr_array_header_t | APR::ArrayHeader +struct apr_table_t | APR::Table +apr_table_entry_t | APR::TableEntry +struct apr_hash_t | APR::Hash +apr_hash_index_t | APR::HashIndex + +#lock stuff +apr_locktype_e | IV +apr_lockmech_e | IV + +#thread stuff +struct apr_threadkey_t | UNDEFINED +struct apr_os_threadkey_t | UNDEFINED +typedef apr_os_thread_t | UNDEFINED +struct apr_thread_t | UNDEFINED +apr_thread_start_t | UNDEFINED +struct apr_threadattr_t | UNDEFINED +struct apr_thread_mutex_t | APR::ThreadMutex +struct apr_thread_once_t | UNDEFINED +struct apr_thread_cond_t | UNDEFINED +struct apr_thread_rwlock_t | APR::ThreadRWLock + +#signal stuff +apr_signum_t | UNDEFINED +apr_sigfunc_t | UNDEFINED + +#shared memory stuff +struct apr_mmap_t | APR::Mmap + +#xml stuff +struct apr_text | UNDEFINED +struct apr_text_header | UNDEFINED +struct apr_xml_elem | UNDEFINED +struct apr_xml_doc | UNDEFINED +struct apr_xml_attr | UNDEFINED +struct apr_xml_ns_scope | UNDEFINED +struct apr_xml_parser | UNDEFINED + +#integer stuff +apr_int16_t | IV +apr_int32_t | IV +apr_int64_t | NV +apr_uint16_t | IV +apr_uint32_t | IV +apr_uint64_t | NV +apr_socklen_t | IV +apr_ssize_t | IV +apr_size_t | UV +apr_time_t | NV +apr_interval_time_t | NV +apr_gid_t | IV +apr_uid_t | IV +apr_off_t | IV +apr_byte_t | CHAR +apr_status_t | IV #dualvar? + +#misc stuff +apr_hdtr_t | NOTIMPL #sendfile +apr_vformatter_buff_t | NOTIMPL + +#dbm stuff +apr_datum_t | NOTIMPL #sdbm +struct apr_dbm_t | NOTIMPL #sdbm +struct apr_sdbm_t | NOTIMPL +struct apr_sdbm_datum_t| NOTIMPL
diff --git a/2_0_13/xs/maps/modperl_functions.map b/2_0_13/xs/maps/modperl_functions.map new file mode 100644 index 0000000..66047aa --- /dev/null +++ b/2_0_13/xs/maps/modperl_functions.map
@@ -0,0 +1,183 @@ +########## mod_perl specific functions ########## + +# for mapping see %ModPerl::MapUtil::disabled_map in +# lib/ModPerl/MapUtil.pm + +MODULE=ModPerl::Util + mpxs_ModPerl__Util_untaint | | ... + SV *:DEFINE_current_perl_id + char *:DEFINE_current_callback + DEFINE_unload_package_xs | | const char *:package + +MODULE=ModPerl::Global + mpxs_ModPerl__Global_special_list_call + mpxs_ModPerl__Global_special_list_clear + mpxs_ModPerl__Global_special_list_register + +MODULE=Apache2::RequestRec PACKAGE=Apache2::RequestRec + mpxs_Apache2__RequestRec_content_type | | r, type=(SV *)NULL + mpxs_Apache2__RequestRec_proxyreq | | r, val=(SV *)NULL + mpxs_Apache2__RequestRec_subprocess_env | | r, key=NULL, val=(SV *)NULL + mpxs_Apache2__RequestRec_finfo | | r, finfo=NULL + mpxs_Apache2__RequestRec_handler | | ... + mpxs_Apache2__RequestRec_content_languages | | r, languages=(SV *)NULL + +#_if_ do { \ + Apache2::Build->build_config \ + ->httpd_version =~ /^(\d+)\.(\d+)\.(\d+)/ \ + ? ($1*1000+$2)*1000+$3 \ + : die "Cannot get httpd version"; \ + } > 2003000 +MODULE=Apache2::ServerRec PACKAGE=Apache2::ServerRec + mpxs_Apache2__ServerRec_is_virtual | | server_rec *:s, val=(SV *)NULL +#_end_ + +MODULE=Apache2::RequestUtil PACKAGE=guess + mpxs_Apache2__RequestRec_push_handlers + mpxs_Apache2__RequestRec_set_handlers + mpxs_Apache2__RequestRec_get_handlers + mpxs_Apache2__RequestRec_is_perl_option_enabled + mpxs_Apache2__RequestRec_location + mpxs_Apache2__RequestRec_as_string + mpxs_Apache2__RequestRec_pnotes | | r, key=(SV *)NULL, val=(SV *)NULL + mpxs_Apache2__RequestRec_pnotes_kill | | r + mpxs_Apache2__RequestRec_add_config | | r, lines, override=MP_HTTPD_OVERRIDE_HTACCESS, path=NULL, override_options=MP_HTTPD_OVERRIDE_OPTS_UNSET + mpxs_Apache2__RequestRec_document_root | | r, new_root=(SV *)NULL + mpxs_Apache2__RequestRec_child_terminate + + #protocol module helpers + mpxs_Apache2__RequestRec_location_merge + mpxs_Apache2__RequestRec_set_basic_credentials + mpxs_Apache2__RequestRec_no_cache | | r, flag=(SV *)NULL + +PACKAGE=Apache2::RequestRec + mpxs_Apache2__RequestRec_new | | classname, c, base_pool_sv=(SV *)NULL + SV *:DEFINE_dir_config | | request_rec *:r, char *:key=NULL, SV *:sv_val=(SV *)NULL + SV *:DEFINE_slurp_filename | | request_rec *:r, int:tainted=1 + +MODULE=Apache2::RequestUtil PACKAGE=Apache2::RequestUtil + mpxs_Apache2__RequestUtil_request | | classname, svr=(SV *)NULL + +MODULE=Apache2::RequestIO PACKAGE=Apache2::RequestRec + SV *:DEFINE_TIEHANDLE | | SV *:stashsv, SV *:sv=(SV *)NULL + SV *:DEFINE_PRINT | | ... + apr_size_t:DEFINE_PRINTF | | ... + SV *:DEFINE_BINMODE | | request_rec *:r + SV *:DEFINE_CLOSE | | request_rec *:r + SV *:DEFINE_UNTIE | | request_rec *:r, int:refcnt + mpxs_Apache2__RequestRec_sendfile | | r, filename=r->filename, offset=0, len=0 + mpxs_Apache2__RequestRec_read | | r, buffer, len, offset=0 + SV *:DEFINE_READ | | request_rec *:r, SV *:buffer, apr_size_t:len, apr_off_t:offset=0 + mpxs_Apache2__RequestRec_write | | r, buffer, len=-1, offset=0 + mpxs_Apache2__RequestRec_print | | ... + apr_size_t:DEFINE_WRITE | | \ + request_rec *:r, SV *:buffer, apr_size_t:len=-1, apr_off_t:offset=0 + mpxs_Apache2__RequestRec_rflush | | ... + mpxs_Apache2__RequestRec_GETC + mpxs_Apache2__RequestRec_OPEN | | SV *:self, SV *:arg1, SV *:arg2=(SV *)NULL + mpxs_Apache2__RequestRec_FILENO + +MODULE=Apache2::Response PACKAGE=Apache2::RequestRec +DEFINE_send_cgi_header | | request_rec *:r, SV *:buffer + mpxs_Apache2__RequestRec_set_last_modified | | r, mtime=0 + + +MODULE=Apache2::ServerUtil PACKAGE=guess + mpxs_Apache2__ServerRec_push_handlers + mpxs_Apache2__ServerRec_set_handlers + mpxs_Apache2__ServerRec_get_handlers + mpxs_Apache2__ServerRec_is_perl_option_enabled + mpxs_Apache2__ServerRec_add_config + +MODULE=Apache2::ServerUtil PACKAGE=Apache2::ServerRec + SV *:DEFINE_dir_config | | server_rec *:s, char *:key=NULL, SV *:sv_val=(SV *)NULL + +MODULE=Apache2::ServerUtil PACKAGE=Apache2::ServerUtil + mpxs_Apache2__ServerUtil_server_shutdown_cleanup_register | | cv, arg=(SV *)NULL + int:DEFINE_restart_count + +MODULE=Apache2::ServerUtil PACKAGE=Apache2::ServerUtil + server_rec *:DEFINE_server | | SV *:classname=(SV *)NULL + uid_t:DEFINE_user_id | | SV *:classname=(SV *)NULL + gid_t:DEFINE_group_id | | SV *:classname=(SV *)NULL + +MODULE=Apache2::Connection + mpxs_Apache2__Connection_client_socket | | c, s=NULL + +MODULE=Apache2::ConnectionUtil PACKAGE=guess + mpxs_Apache2__Connection_pnotes | | c, key=(SV *)NULL, val=(SV *)NULL + mpxs_Apache2__Connection_pnotes_kill | | c + +MODULE=Apache2::Filter + modperl_filter_attributes | MPXS_ | ... | MODIFY_CODE_ATTRIBUTES + + mpxs_Apache2__Filter_print | | ... + mpxs_Apache2__Filter_read | | ... + mpxs_Apache2__Filter_seen_eos | | ... + mpxs_Apache2__Filter_ctx | | filter, data=(SV *)NULL + mpxs_Apache2__Filter_remove | | ... + + SV *:DEFINE_TIEHANDLE | | SV *:stashsv, SV *:sv=(SV *)NULL + apr_size_t:DEFINE_PRINT | | ... + +MODULE=Apache2::Filter PACKAGE=Apache2::RequestRec + mpxs_Apache2__RequestRec_add_input_filter + mpxs_Apache2__RequestRec_add_output_filter + +MODULE=Apache2::Filter PACKAGE=Apache2::Connection + mpxs_Apache2__Connection_add_input_filter + mpxs_Apache2__Connection_add_output_filter + +MODULE=Apache2::Log PACKAGE=Apache2::Log BOOT=1 + +DEFINE_error | MPXS_Apache2__Log_dispatch | ... +DEFINE_emerg | MPXS_Apache2__Log_dispatch | ... +DEFINE_alert | MPXS_Apache2__Log_dispatch | ... +DEFINE_warn | MPXS_Apache2__Log_dispatch | ... +DEFINE_notice | MPXS_Apache2__Log_dispatch | ... +DEFINE_info | MPXS_Apache2__Log_dispatch | ... +DEFINE_debug | MPXS_Apache2__Log_dispatch | ... +DEFINE_crit | MPXS_Apache2__Log_dispatch | ... +DEFINE_LOG_MARK | MPXS_Apache2__Log_LOG_MARK | ... + +PACKAGE=Apache2::RequestRec +SV *:DEFINE_log | | SV *:obj +DEFINE_log_rerror | MPXS_Apache2__Log_log_xerror | ... +DEFINE_log_error | MPXS_Apache2__Log_log_error | ... +DEFINE_warn | MPXS_Apache2__Log_log_error | ... +DEFINE_log_reason | modperl_log_reason | request_rec *:r, char *:msg, char *:file=r->uri + +PACKAGE=Apache2::ServerRec +SV *:DEFINE_log | | SV *:obj +DEFINE_log_serror | MPXS_Apache2__Log_log_xerror | ... +DEFINE_log_error | MPXS_Apache2__Log_log_error | ... +DEFINE_warn | MPXS_Apache2__Log_log_error | ... + +MODULE=Apache2::SubProcess PACKAGE=Apache2::RequestRec + # ap_subprocess_ won't work + modperl_spawn_proc_prog | MPXS_ | ... | spawn_proc_prog + +MODULE=Apache2::Directive + mpxs_Apache2__Directive_as_string + mpxs_Apache2__Directive_as_hash + DEFINE_lookup | MPXS_Apache2__Directive_lookup | ... + +MODULE=Apache2::CmdParms + ap_check_cmd_context + ap_method_is_limited + mpxs_Apache2__CmdParms_info + mpxs_Apache2__CmdParms_add_config + mpxs_Apache2__CmdParms_override_opts + +MODULE=Apache2::MPM PACKAGE=Apache2::MPM BOOT=1 + mpxs_Apache2__MPM_query + +MODULE=Apache2::Access PACKAGE=guess + mpxs_Apache2__RequestRec_allow_override_opts + +#_if_ do {use Apache2::Build; Apache2::Build::PERL_HAS_ITHREADS} + +MODULE=ModPerl::Interpreter + mpxs_ModPerl__Interpreter_current | | class=Nullsv + +#_end_
diff --git a/2_0_13/xs/maps/modperl_structures.map b/2_0_13/xs/maps/modperl_structures.map new file mode 100644 index 0000000..9157ee3 --- /dev/null +++ b/2_0_13/xs/maps/modperl_structures.map
@@ -0,0 +1,44 @@ +########## ModPerl structures ########## + +# for mapping see %ModPerl::MapUtil::disabled_map in +# lib/ModPerl/MapUtil.pm + +#_if_ do {use Apache2::Build; Apache2::Build::PERL_HAS_ITHREADS} + +<modperl_interp_t> +< mip +< perl +< num_requests +< flags +- ccfg +< refcnt +- tid +</modperl_interp_t> + +<modperl_interp_pool_t> +< server +< tipool +< parent +</modperl_interp_pool_t> + +<modperl_tipool_t> +- tiplock +- available +- idle +- busy +< in_use +< size +- data +< cfg +- func +</modperl_tipool_t> + +<modperl_tipool_config_t> +< start +< min_spare +< max_spare +< max +< max_requests +</modperl_tipool_config_t> + +#_end_
diff --git a/2_0_13/xs/maps/modperl_types.map b/2_0_13/xs/maps/modperl_types.map new file mode 100644 index 0000000..b251940 --- /dev/null +++ b/2_0_13/xs/maps/modperl_types.map
@@ -0,0 +1,24 @@ +########## mod_perl types ########## + +struct modperl_filter_t | Apache2::OutputFilter + +#_if_ do {use Apache2::Build; Apache2::Build::PERL_HAS_ITHREADS} + +struct modperl_interp_t | ModPerl::Interpreter +struct modperl_interp_pool_t | ModPerl::InterpPool +struct modperl_tipool_t | ModPerl::TiPool +struct modperl_tipool_config_t | ModPerl::TiPoolConfig +PerlInterpreter * | IV + +#_end_ + +########## Perl types ########## + +SV * | SV +I32 | IV +I32 * | IV +U16 | UV +U16 * | UV +U32 | UV +U32 * | UV +
diff --git a/2_0_13/xs/modperl_xs_util.h b/2_0_13/xs/modperl_xs_util.h new file mode 100644 index 0000000..749352e --- /dev/null +++ b/2_0_13/xs/modperl_xs_util.h
@@ -0,0 +1,167 @@ +/* Licensed to the Apache Software Foundation (ASF) under one or more + * contributor license agreements. See the NOTICE file distributed with + * this work for additional information regarding copyright ownership. + * The ASF licenses this file to You under the Apache License, Version 2.0 + * (the "License"); you may not use this file except in compliance with + * the License. You may obtain a copy of the License at + * + * http://www.apache.org/licenses/LICENSE-2.0 + * + * Unless required by applicable law or agreed to in writing, software + * distributed under the License is distributed on an "AS IS" BASIS, + * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. + * See the License for the specific language governing permissions and + * limitations under the License. + */ + +#ifndef MODPERL_XS_H +#define MODPERL_XS_H + +/* XXX: should be part of generation */ +#undef mp_xs_sv2_r /* defined in modperl_xs_sv_convert.h */ +#define mp_xs_sv2_r(sv) modperl_sv2request_rec(aTHX_ sv) + +#undef mp_xs_sv2_APR__Table +#define mp_xs_sv2_APR__Table(sv) \ + (apr_table_t *)modperl_hash_tied_object(aTHX_ "APR::Table", sv) + +#define mpxs_Apache2__RequestRec_pool(r) r->pool +#define mpxs_Apache2__Connection_pool(c) c->pool +#define mpxs_Apache2__URI_pool(u) ((modperl_uri_t *)u)->pool +#define mpxs_APR__URI_pool(u) ((modperl_uri_t *)u)->pool + +#ifndef dAX +# define dAX I32 ax = mark - PL_stack_base + 1 +#endif + +#ifndef dITEMS +# define dITEMS I32 items = SP - MARK +#endif + +#define mpxs_PPCODE(code) STMT_START { \ + SP -= items; \ + code; \ + PUTBACK; \ +} STMT_END + +#define PUSHs_mortal_iv(iv) PUSHs(sv_2mortal(newSViv(iv))) +#define PUSHs_mortal_pv(pv) PUSHs(sv_2mortal(newSVpv((char *)pv,0))) + +#define XPUSHs_mortal_iv(iv) EXTEND(SP, 1); PUSHs_mortal_iv(iv) +#define XPUSHs_mortal_pv(pv) EXTEND(SP, 1); PUSHs_mortal_pv(pv) + +/* XXX: replace the old mpxs_sv_ macros with MP_Sv macros */ + +#define mpxs_sv_grow(sv, len) MP_SvGROW(sv, len) + +#define mpxs_sv_cur_set(sv, len) MP_SvCUR_set(sv, len) + +#define mpxs_set_targ(func, arg) \ + STMT_START { \ + dXSTARG; \ + XSprePUSH; \ + func(aTHX_ TARG, arg); \ + PUSHTARG; \ + XSRETURN(1); \ +} STMT_END + +#define mpxs_cv_name() \ + HvNAME(GvSTASH(CvGV(cv))), GvNAME(CvGV(cv)) + +#define mpxs_sv_is_object(sv) \ + (SvROK(sv) && (SvTYPE(SvRV(sv)) == SVt_PVMG)) + +#define mpxs_sv_object_deref(sv, type) \ + (mpxs_sv_is_object(sv) ? \ + INT2PTR(type *, SvIVX((SV*)SvRV(sv))) : NULL) + +#define mpxs_sv2_obj(obj, sv) \ + (obj = mp_xs_sv2_##obj(sv)) + +#define mpxs_usage_items_1(arg) \ + if (items != 1) { \ + Perl_croak(aTHX_ "usage: %s::%s(%s)", \ + mpxs_cv_name(), arg); \ + } + +#define mpxs_usage_va(i, obj, msg) \ + if ((items < i) || !(mpxs_sv2_obj(obj, *MARK))) { \ + Perl_croak(aTHX_ "usage: %s", msg); \ + } \ + MARK++ + +#define mpxs_usage_va_1(obj, msg) mpxs_usage_va(1, obj, msg) + +#define mpxs_usage_va_2(obj, arg, msg) \ + mpxs_usage_va(2, obj, msg); \ + arg = *MARK++ + +#define mpxs_write_loop(func, obj, name) \ + while (MARK <= SP) { \ + apr_size_t wlen; \ + char *buf = SvPV(*MARK, wlen); \ + MP_TRACE_o(MP_FUNC, "%d bytes [%s]", wlen, buf); \ + MP_RUN_CROAK(func(aTHX_ obj, buf, &wlen), name); \ + bytes += wlen; \ + MARK++; \ + } + +/* custom pool objects created by modperl users (not internal like + * r->pool) are marked by magic in SvRV(obj) + */ +#define mpxs_pool_is_custom(pool) (mg_find(pool, PERL_MAGIC_ext) != NULL) + +/* several methods need to ensure that the pool that they take as an + * object doesn't go out of scope before the object that they return, + * since if this happens, the data contained in the later object + * becomes corrupted. this macro is used in various xs files where + * it's needed */ +#if ((PERL_REVISION == 5) && (PERL_VERSION >= 8)) + /* sometimes the added magic is the second one (e.g. in case when + * the object is generated by modperl_hash_tie, so under 5.8+ + * need to use sv_magicext, since sv_magicext does only one magic + * of the same type at 5.8+ */ +#define mpxs_add_pool_magic_doit(obj, pool_obj) \ + sv_magicext(SvRV(obj), pool_obj, PERL_MAGIC_ext, NULL, (char *)NULL, -1) +#else +#define mpxs_add_pool_magic_doit(obj, pool_obj) \ + sv_magic(SvRV(obj), pool_obj, PERL_MAGIC_ext, (char *)NULL, -1) +#endif + +/* add dependency magic only for custom pools. there are all kind of + * complications when more than one magic of the same type(in this + * case PERL_MAGIC_ext is added), luckily most of the PERL_MAGIC_ext + * magic used by modperl-core, uses (SV *)NULL as mg->mg_obj, therefore + * the following code tries to workaround the multiple magic issue, by + * simply hanging the pool object into the unused slot, incrementing + * its refcnt just like sv_magic does internally. In case we ever hit + * magic which already has mg->mg_obj taken we will deal with that, + * for now we just croak in such a case. + */ +#define mpxs_add_pool_magic(obj, pool_obj) \ + if (mpxs_pool_is_custom(SvRV(pool_obj))) { \ + MAGIC *mg = mg_find(SvRV(obj), PERL_MAGIC_ext); \ + if (mg) { \ + if (mg->mg_obj == (SV *)NULL) { \ + mg->mg_obj = SvREFCNT_inc(SvRV(pool_obj)); \ + mg->mg_flags |= MGf_REFCOUNTED; \ + } \ + else { \ + Perl_croak(aTHX_ "Fixme: don't know how to " \ + "handle magic w/ occupied mg->mg_obj"); \ + } \ + } \ + else { \ + mpxs_add_pool_magic_doit(obj, SvRV(pool_obj)); \ + } \ + } + + +#endif /* MODPERL_XS_H */ + +/* + * Local Variables: + * c-basic-offset: 4 + * indent-tabs-mode: nil + * End: + */
diff --git a/2_0_13/xs/tables/current/APR/FunctionTable.pm b/2_0_13/xs/tables/current/APR/FunctionTable.pm new file mode 100644 index 0000000..6e3b404 --- /dev/null +++ b/2_0_13/xs/tables/current/APR/FunctionTable.pm
@@ -0,0 +1,229 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package APR::FunctionTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: this file was manually generated on +# ! Tue Jun 22 22:00:00 2004 +# ! It contains a subset of functions appearing in +# ! ModPerl::FunctionTable used to build APR.so +# ! Eventually this will be autogenerated by +# ! Apache::ParseSource +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$APR::FunctionTable = [ + { + 'return_type' => 'void', + 'name' => 'modperl_trace', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'func' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace_level_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'logfile' + }, + { + 'type' => 'const char *', + 'name' => 'level' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace_logfile_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'logfile_new' + } + ] + }, + { + 'return_type' => 'unsigned long', + 'name' => 'modperl_debug_level', + 'args' => [] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_hash_tie', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + }, + { + 'type' => 'void *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_hash_tied_object', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_sv_setref_uv', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'rv' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'UV', + 'name' => 'uv' + } + ] + }, + { + 'return_type' => 'modperl_uri_t *', + 'name' => 'modperl_uri_new', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_gensym', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'pack' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_error_strerror', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_croak', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + }, + { + 'type' => 'const char*', + 'name' => 'func' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_interp_unselect', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'modperl_bucket_sv_create', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, +]; + +1;
diff --git a/2_0_13/xs/tables/current/Apache2/ConstantsTable.pm b/2_0_13/xs/tables/current/Apache2/ConstantsTable.pm new file mode 100644 index 0000000..9ea2d43 --- /dev/null +++ b/2_0_13/xs/tables/current/Apache2/ConstantsTable.pm
@@ -0,0 +1,474 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package Apache2::ConstantsTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by Apache2::ParseSource/0.02 +# ! Mon May 23 14:15:32 2005 +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$Apache2::ConstantsTable = { + 'ModPerl' => { + 'common' => [ + 'MODPERL_RC_EXIT' + ] + }, + 'Apache2::Const' => { + 'types' => [ + 'DIR_MAGIC_TYPE' + ], + 'satisfy' => [ + 'SATISFY_ALL', + 'SATISFY_ANY', + 'SATISFY_NOSPEC' + ], + 'remotehost' => [ + 'REMOTE_HOST', + 'REMOTE_NAME', + 'REMOTE_NOLOOKUP', + 'REMOTE_DOUBLE_REV' + ], + 'platform' => [ + 'LF', + 'CR', + 'CRLF' + ], + 'override' => [ + 'OR_NONE', + 'OR_LIMIT', + 'OR_OPTIONS', + 'OR_FILEINFO', + 'OR_AUTHCFG', + 'OR_INDEXES', + 'OR_UNSET', + 'ACCESS_CONF', + 'RSRC_CONF', + 'EXEC_ON_READ', + 'OR_ALL' + ], + 'options' => [ + 'OPT_NONE', + 'OPT_INDEXES', + 'OPT_INCLUDES', + 'OPT_SYM_LINKS', + 'OPT_EXECCGI', + 'OPT_UNSET', + 'OPT_INCNOEXEC', + 'OPT_SYM_OWNER', + 'OPT_MULTI', + 'OPT_ALL' + ], + 'mpmq' => [ + 'AP_MPMQ_NOT_SUPPORTED', + 'AP_MPMQ_STATIC', + 'AP_MPMQ_DYNAMIC', + 'AP_MPMQ_STARTING', + 'AP_MPMQ_RUNNING', + 'AP_MPMQ_STOPPING', + 'AP_MPMQ_MAX_DAEMON_USED', + 'AP_MPMQ_IS_THREADED', + 'AP_MPMQ_IS_FORKED', + 'AP_MPMQ_HARD_LIMIT_DAEMONS', + 'AP_MPMQ_HARD_LIMIT_THREADS', + 'AP_MPMQ_MAX_THREADS', + 'AP_MPMQ_MIN_SPARE_DAEMONS', + 'AP_MPMQ_MIN_SPARE_THREADS', + 'AP_MPMQ_MAX_SPARE_DAEMONS', + 'AP_MPMQ_MAX_SPARE_THREADS', + 'AP_MPMQ_MAX_REQUESTS_DAEMON', + 'AP_MPMQ_MAX_DAEMONS', + 'AP_MPMQ_MPM_STATE' + ], + 'methods' => [ + 'M_GET', + 'M_PUT', + 'M_POST', + 'M_DELETE', + 'M_CONNECT', + 'M_OPTIONS', + 'M_TRACE', + 'M_PATCH', + 'M_PROPFIND', + 'M_PROPPATCH', + 'M_MKCOL', + 'M_COPY', + 'M_MOVE', + 'M_LOCK', + 'M_UNLOCK', + 'M_VERSION_CONTROL', + 'M_CHECKOUT', + 'M_UNCHECKOUT', + 'M_CHECKIN', + 'M_UPDATE', + 'M_LABEL', + 'M_REPORT', + 'M_MKWORKSPACE', + 'M_MKACTIVITY', + 'M_BASELINE_CONTROL', + 'M_MERGE', + 'M_INVALID', + 'METHODS' + ], + 'log' => [ + 'APLOG_EMERG', + 'APLOG_ALERT', + 'APLOG_CRIT', + 'APLOG_ERR', + 'APLOG_WARNING', + 'APLOG_NOTICE', + 'APLOG_INFO', + 'APLOG_DEBUG', + 'APLOG_LEVELMASK', + 'APLOG_TOCLIENT', + 'APLOG_STARTUP' + ], + 'input_mode' => [ + 'AP_MODE_READBYTES', + 'AP_MODE_GETLINE', + 'AP_MODE_EATCRLF', + 'AP_MODE_SPECULATIVE', + 'AP_MODE_EXHAUSTIVE', + 'AP_MODE_INIT' + ], + 'http' => [ + 'HTTP_CONTINUE', + 'HTTP_SWITCHING_PROTOCOLS', + 'HTTP_PROCESSING', + 'HTTP_OK', + 'HTTP_CREATED', + 'HTTP_ACCEPTED', + 'HTTP_NON_AUTHORITATIVE', + 'HTTP_NO_CONTENT', + 'HTTP_RESET_CONTENT', + 'HTTP_PARTIAL_CONTENT', + 'HTTP_MULTI_STATUS', + 'HTTP_MULTIPLE_CHOICES', + 'HTTP_MOVED_PERMANENTLY', + 'HTTP_MOVED_TEMPORARILY', + 'HTTP_SEE_OTHER', + 'HTTP_NOT_MODIFIED', + 'HTTP_USE_PROXY', + 'HTTP_TEMPORARY_REDIRECT', + 'HTTP_BAD_REQUEST', + 'HTTP_UNAUTHORIZED', + 'HTTP_PAYMENT_REQUIRED', + 'HTTP_FORBIDDEN', + 'HTTP_NOT_FOUND', + 'HTTP_METHOD_NOT_ALLOWED', + 'HTTP_NOT_ACCEPTABLE', + 'HTTP_PROXY_AUTHENTICATION_REQUIRED', + 'HTTP_REQUEST_TIME_OUT', + 'HTTP_CONFLICT', + 'HTTP_GONE', + 'HTTP_LENGTH_REQUIRED', + 'HTTP_PRECONDITION_FAILED', + 'HTTP_REQUEST_ENTITY_TOO_LARGE', + 'HTTP_REQUEST_URI_TOO_LARGE', + 'HTTP_UNSUPPORTED_MEDIA_TYPE', + 'HTTP_RANGE_NOT_SATISFIABLE', + 'HTTP_EXPECTATION_FAILED', + 'HTTP_UNPROCESSABLE_ENTITY', + 'HTTP_LOCKED', + 'HTTP_FAILED_DEPENDENCY', + 'HTTP_UPGRADE_REQUIRED', + 'HTTP_INTERNAL_SERVER_ERROR', + 'HTTP_NOT_IMPLEMENTED', + 'HTTP_BAD_GATEWAY', + 'HTTP_SERVICE_UNAVAILABLE', + 'HTTP_GATEWAY_TIME_OUT', + 'HTTP_VARIANT_ALSO_VARIES', + 'HTTP_INSUFFICIENT_STORAGE', + 'HTTP_NOT_EXTENDED' + ], + 'filter_type' => [ + 'AP_FTYPE_RESOURCE', + 'AP_FTYPE_CONTENT_SET', + 'AP_FTYPE_PROTOCOL', + 'AP_FTYPE_TRANSCODE', + 'AP_FTYPE_CONNECTION', + 'AP_FTYPE_NETWORK' + ], + 'context' => [ + 'NOT_IN_VIRTUALHOST', + 'NOT_IN_LIMIT', + 'NOT_IN_DIRECTORY', + 'NOT_IN_LOCATION', + 'NOT_IN_FILES', + 'NOT_IN_DIR_LOC_FILE', + 'GLOBAL_ONLY' + ], + 'conn_keepalive' => [ + 'AP_CONN_UNKNOWN', + 'AP_CONN_CLOSE', + 'AP_CONN_KEEPALIVE' + ], + 'config' => [ + 'DECLINE_CMD' + ], + 'common' => [ + 'DECLINED', + 'DONE', + 'OK', + 'NOT_FOUND', + 'FORBIDDEN', + 'AUTH_REQUIRED', + 'SERVER_ERROR', + 'REDIRECT' + ], + 'cmd_how' => [ + 'RAW_ARGS', + 'TAKE1', + 'TAKE2', + 'ITERATE', + 'ITERATE2', + 'FLAG', + 'NO_ARGS', + 'TAKE12', + 'TAKE3', + 'TAKE23', + 'TAKE123', + 'TAKE13' + ], + 'proxy' => [ + 'PROXYREQ_REVERSE', + 'PROXYREQ_NONE', + 'PROXYREQ_PROXY', + 'PROXYREQ_RESPONSE', + ], + }, + 'APR::Const' => { + 'uri' => [ + 'APR_URI_FTP_DEFAULT_PORT', + 'APR_URI_SSH_DEFAULT_PORT', + 'APR_URI_TELNET_DEFAULT_PORT', + 'APR_URI_GOPHER_DEFAULT_PORT', + 'APR_URI_HTTP_DEFAULT_PORT', + 'APR_URI_POP_DEFAULT_PORT', + 'APR_URI_NNTP_DEFAULT_PORT', + 'APR_URI_IMAP_DEFAULT_PORT', + 'APR_URI_PROSPERO_DEFAULT_PORT', + 'APR_URI_WAIS_DEFAULT_PORT', + 'APR_URI_LDAP_DEFAULT_PORT', + 'APR_URI_HTTPS_DEFAULT_PORT', + 'APR_URI_RTSP_DEFAULT_PORT', + 'APR_URI_SNEWS_DEFAULT_PORT', + 'APR_URI_ACAP_DEFAULT_PORT', + 'APR_URI_NFS_DEFAULT_PORT', + 'APR_URI_TIP_DEFAULT_PORT', + 'APR_URI_SIP_DEFAULT_PORT', + 'APR_URI_UNP_OMITSITEPART', + 'APR_URI_UNP_OMITUSER', + 'APR_URI_UNP_OMITPASSWORD', + 'APR_URI_UNP_OMITUSERINFO', + 'APR_URI_UNP_REVEALPASSWORD', + 'APR_URI_UNP_OMITPATHINFO', + 'APR_URI_UNP_OMITQUERY' + ], + 'table' => [ + 'APR_OVERLAP_TABLES_SET', + 'APR_OVERLAP_TABLES_MERGE' + ], + 'status' => [ + 'APR_TIMEUP' + ], + 'socket' => [ + 'APR_SO_LINGER', + 'APR_SO_KEEPALIVE', + 'APR_SO_DEBUG', + 'APR_SO_NONBLOCK', + 'APR_SO_REUSEADDR', + 'APR_SO_SNDBUF', + 'APR_SO_RCVBUF', + 'APR_SO_DISCONNECTED' + ], + 'shutdown_how' => [ + 'APR_SHUTDOWN_READ', + 'APR_SHUTDOWN_WRITE', + 'APR_SHUTDOWN_READWRITE' + ], + 'read_type' => [ + 'APR_BLOCK_READ', + 'APR_NONBLOCK_READ' + ], + 'poll' => [ + 'APR_POLLIN', + 'APR_POLLPRI', + 'APR_POLLOUT', + 'APR_POLLERR', + 'APR_POLLHUP', + 'APR_POLLNVAL' + ], + 'lockmech' => [ + 'APR_LOCK_FCNTL', + 'APR_LOCK_FLOCK', + 'APR_LOCK_SYSVSEM', + 'APR_LOCK_PROC_PTHREAD', + 'APR_LOCK_POSIXSEM', + 'APR_LOCK_DEFAULT' + ], + 'limit' => [ + 'APR_LIMIT_CPU', + 'APR_LIMIT_MEM', + 'APR_LIMIT_NPROC', + 'APR_LIMIT_NOFILE' + ], + 'hook' => [ + 'APR_HOOK_REALLY_FIRST', + 'APR_HOOK_FIRST', + 'APR_HOOK_MIDDLE', + 'APR_HOOK_LAST', + 'APR_HOOK_REALLY_LAST' + ], + 'fprot' => [ + 'APR_FPROT_USETID', + 'APR_FPROT_UREAD', + 'APR_FPROT_UWRITE', + 'APR_FPROT_UEXECUTE', + 'APR_FPROT_GSETID', + 'APR_FPROT_GREAD', + 'APR_FPROT_GWRITE', + 'APR_FPROT_GEXECUTE', + 'APR_FPROT_WSTICKY', + 'APR_FPROT_WREAD', + 'APR_FPROT_WWRITE', + 'APR_FPROT_WEXECUTE', + 'APR_FPROT_OS_DEFAULT' + ], + 'fopen' => [ + 'APR_FOPEN_READ', + 'APR_FOPEN_WRITE', + 'APR_FOPEN_CREATE', + 'APR_FOPEN_APPEND', + 'APR_FOPEN_TRUNCATE', + 'APR_FOPEN_BINARY', + 'APR_FOPEN_EXCL', + 'APR_FOPEN_BUFFERED', + 'APR_FOPEN_DELONCLOSE', + 'APR_FOPEN_XTHREAD', + 'APR_FOPEN_SHARELOCK', + 'APR_FOPEN_NOCLEANUP', + 'APR_FOPEN_SENDFILE_ENABLED', + 'APR_FOPEN_LARGEFILE' + ], + 'flock' => [ + 'APR_FLOCK_SHARED', + 'APR_FLOCK_EXCLUSIVE', + 'APR_FLOCK_TYPEMASK', + 'APR_FLOCK_NONBLOCK' + ], + 'finfo' => [ + 'APR_FINFO_LINK', + 'APR_FINFO_MTIME', + 'APR_FINFO_CTIME', + 'APR_FINFO_ATIME', + 'APR_FINFO_SIZE', + 'APR_FINFO_CSIZE', + 'APR_FINFO_DEV', + 'APR_FINFO_INODE', + 'APR_FINFO_NLINK', + 'APR_FINFO_TYPE', + 'APR_FINFO_USER', + 'APR_FINFO_GROUP', + 'APR_FINFO_UPROT', + 'APR_FINFO_GPROT', + 'APR_FINFO_WPROT', + 'APR_FINFO_ICASE', + 'APR_FINFO_NAME', + 'APR_FINFO_MIN', + 'APR_FINFO_IDENT', + 'APR_FINFO_OWNER', + 'APR_FINFO_PROT', + 'APR_FINFO_NORM', + 'APR_FINFO_DIRENT' + ], + 'filetype' => [ + 'APR_FILETYPE_NOFILE', + 'APR_FILETYPE_REG', + 'APR_FILETYPE_DIR', + 'APR_FILETYPE_CHR', + 'APR_FILETYPE_BLK', + 'APR_FILETYPE_PIPE', + 'APR_FILETYPE_LNK', + 'APR_FILETYPE_SOCK', + 'APR_FILETYPE_UNKFILE' + ], + 'filepath' => [ + 'APR_FILEPATH_NOTABOVEROOT', + 'APR_FILEPATH_SECUREROOTTEST', + 'APR_FILEPATH_SECUREROOT', + 'APR_FILEPATH_NOTRELATIVE', + 'APR_FILEPATH_NOTABSOLUTE', + 'APR_FILEPATH_NATIVE', + 'APR_FILEPATH_TRUENAME', + 'APR_FILEPATH_ENCODING_UNKNOWN', + 'APR_FILEPATH_ENCODING_LOCALE', + 'APR_FILEPATH_ENCODING_UTF8' + ], + 'error' => [ + 'APR_ENOSTAT', + 'APR_ENOPOOL', + 'APR_EBADDATE', + 'APR_EINVALSOCK', + 'APR_ENOPROC', + 'APR_ENOTIME', + 'APR_ENODIR', + 'APR_ENOLOCK', + 'APR_ENOPOLL', + 'APR_ENOSOCKET', + 'APR_ENOTHREAD', + 'APR_ENOTHDKEY', + 'APR_EGENERAL', + 'APR_ENOSHMAVAIL', + 'APR_EBADIP', + 'APR_EBADMASK', + 'APR_EDSOOPEN', + 'APR_EABSOLUTE', + 'APR_ERELATIVE', + 'APR_EINCOMPLETE', + 'APR_EABOVEROOT', + 'APR_EBADPATH', + 'APR_EPATHWILD', + 'APR_ESYMNOTFOUND', + 'APR_EPROC_UNKNOWN', + 'APR_EOF', + 'APR_EINIT', + 'APR_ENOTIMPL', + 'APR_EMISMATCH', + 'APR_EBUSY', + 'APR_EACCES', + 'APR_EEXIST', + 'APR_ENAMETOOLONG', + 'APR_ENOENT', + 'APR_ENOTDIR', + 'APR_ENOSPC', + 'APR_ENOMEM', + 'APR_EMFILE', + 'APR_ENFILE', + 'APR_EBADF', + 'APR_EINVAL', + 'APR_ESPIPE', + 'APR_EAGAIN', + 'APR_EINTR', + 'APR_ENOTSOCK', + 'APR_ECONNREFUSED', + 'APR_EINPROGRESS', + 'APR_ECONNABORTED', + 'APR_ECONNRESET', + 'APR_ETIMEDOUT', + 'APR_EHOSTUNREACH', + 'APR_ENETUNREACH', + 'APR_EFTYPE', + 'APR_EPIPE', + 'APR_EXDEV', + 'APR_ENOTEMPTY', + 'APR_EXCL', + 'APR_END' + ], + 'common' => [ + 'APR_SUCCESS' + ], + } +}; + + +1;
diff --git a/2_0_13/xs/tables/current/Apache2/FunctionTable.pm b/2_0_13/xs/tables/current/Apache2/FunctionTable.pm new file mode 100644 index 0000000..dd06d45 --- /dev/null +++ b/2_0_13/xs/tables/current/Apache2/FunctionTable.pm
@@ -0,0 +1,15034 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package Apache2::FunctionTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by Apache2::ParseSource/0.02 +# ! Mon May 23 14:15:40 2005 +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$Apache2::FunctionTable = [ + { + 'return_type' => 'void', + 'name' => 'ap_add_file_conf', + 'args' => [ + { + 'type' => 'core_dir_config *', + 'name' => 'conf' + }, + { + 'type' => 'void *', + 'name' => 'url_config' + } + ] + }, + { + 'return_type' => 'ap_filter_t *', + 'name' => 'ap_add_input_filter', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'ap_filter_t *', + 'name' => 'ap_add_input_filter_handle', + 'args' => [ + { + 'type' => 'ap_filter_rec_t *', + 'name' => 'f' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_loaded_module', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'mod' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_module', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_add_named_module', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ap_directive_t *', + 'name' => 'ap_add_node', + 'args' => [ + { + 'type' => 'ap_directive_t **', + 'name' => 'parent' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'current' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'toadd' + }, + { + 'type' => 'int', + 'name' => 'child' + } + ] + }, + { + 'return_type' => 'ap_filter_t *', + 'name' => 'ap_add_output_filter', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'ap_filter_t *', + 'name' => 'ap_add_output_filter_handle', + 'args' => [ + { + 'type' => 'ap_filter_rec_t *', + 'name' => 'f' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_output_filters_by_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_per_dir_conf', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'void *', + 'name' => 'dir_config' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_per_url_conf', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'void *', + 'name' => 'url_config' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_version_component', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'const char *', + 'name' => 'component' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_allow_methods', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'reset' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_allow_options', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_allow_overrides', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_allow_standard_methods', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'reset' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_auth_name', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_auth_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_basic_http_header', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_eoc_create', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_eoc_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_error_create', + 'args' => [ + { + 'type' => 'int', + 'name' => 'error' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_error_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'int', + 'name' => 'error' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_build_config', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'conf_pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'conftree' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_build_cont_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'current' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'curr_parent' + }, + { + 'type' => 'char *', + 'name' => 'orig_directive' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_byterange_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_calc_scoreboard_size', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_cfg_closefile', + 'args' => [ + { + 'type' => 'ap_configfile_t *', + 'name' => 'cfp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_cfg_getc', + 'args' => [ + { + 'type' => 'ap_configfile_t *', + 'name' => 'cfp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_cfg_getline', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'size_t', + 'name' => 'bufsize' + }, + { + 'type' => 'ap_configfile_t *', + 'name' => 'cfp' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_check_cmd_context', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'unsigned', + 'name' => 'forbidden' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cleanup_scoreboard', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'd' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_clear_method_list', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'l' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_close_piped_log', + 'args' => [ + { + 'type' => 'piped_log *', + 'name' => 'pl' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_construct_server', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_construct_url', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'uri' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_content_length_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'arg0' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_content_type_tolower', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_copy_method_list', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'dest' + }, + { + 'type' => 'ap_method_list_t *', + 'name' => 'src' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_core_reorder_directories', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'arg0' + }, + { + 'type' => 'server_rec *', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_core_translate', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_count_dirs', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + } + ] + }, + { + 'return_type' => 'ap_conf_vector_t*', + 'name' => 'ap_create_conn_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ap_conf_vector_t *', + 'name' => 'ap_create_per_dir_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ap_conf_vector_t*', + 'name' => 'ap_create_request_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_create_sb_handle', + 'args' => [ + { + 'type' => 'ap_sb_handle_t **', + 'name' => 'new_sbh' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'child_num' + }, + { + 'type' => 'int', + 'name' => 'thread_num' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_create_scoreboard', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_scoreboard_e', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_custom_response', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'const char *', + 'name' => 'string' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_default_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_destroy_sub_req', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_die', + 'args' => [ + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_directory_walk', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_discard_request_body', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_document_root', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_error_log2stderr', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'ap_escape_errorlog_item', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'dest' + }, + { + 'type' => 'const char *', + 'name' => 'source' + }, + { + 'type' => 'apr_size_t', + 'name' => 'buflen' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_html', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_logitem', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_path_segment', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_quotes', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'instring' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_shell_cmd', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_exists_config_define', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_exists_scoreboard_image', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_explode_recent_gmt', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'tm' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_explode_recent_localtime', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'tm' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fatal_signal_child_setup', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fatal_signal_setup', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fflush', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_field_noparam', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'intype' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_file_walk', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_filter_flush', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_finalize_request_protocol', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_finalize_sub_req_protocol', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'sub_r' + } + ] + }, + { + 'return_type' => 'const command_rec *', + 'name' => 'ap_find_command', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'const command_rec *', + 'name' => 'cmds' + } + ] + }, + { + 'return_type' => 'const command_rec *', + 'name' => 'ap_find_command_in_modules', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'cmd_name' + }, + { + 'type' => 'module **', + 'name' => 'mod' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_find_last_token', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'line' + }, + { + 'type' => 'const char *', + 'name' => 'tok' + } + ] + }, + { + 'return_type' => 'module *', + 'name' => 'ap_find_linked_module', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_find_list_item', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'line' + }, + { + 'type' => 'const char *', + 'name' => 'tok' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_find_module_name', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_find_token', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'line' + }, + { + 'type' => 'const char *', + 'name' => 'tok' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_fini_vhost_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 'main_server' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_fixup_virtual_hosts', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 'main_server' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_flush_conn', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fprintf', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fputstrs', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_get_basic_auth_pw', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char **', + 'name' => 'pw' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_get_brigade', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bucket' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'long', + 'name' => 'ap_get_client_block', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bufsiz' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_get_input_filter_handle', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'apr_off_t', + 'name' => 'ap_get_limit_req_body', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'size_t', + 'name' => 'ap_get_limit_xml_body', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_get_list_item', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'field' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_get_local_host', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_get_mime_headers', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_get_mime_headers_core', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_get_module_config', + 'args' => [ + { + 'type' => 'const ap_conf_vector_t *', + 'name' => 'cv' + }, + { + 'type' => 'const module *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_get_output_filter_handle', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_remote_host', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'conn' + }, + { + 'type' => 'void *', + 'name' => 'dir_config' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'int *', + 'name' => 'str_is_ip' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_remote_logname', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void **', + 'name' => 'ap_get_request_note', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_size_t', + 'name' => 'note_num' + } + ] + }, + { + 'return_type' => 'global_score *', + 'name' => 'ap_get_scoreboard_global', + 'args' => [] + }, + { + 'return_type' => 'process_score *', + 'name' => 'ap_get_scoreboard_process', + 'args' => [ + { + 'type' => 'int', + 'name' => 'x' + } + ] + }, + { + 'return_type' => 'worker_score *', + 'name' => 'ap_get_scoreboard_worker', + 'args' => [ + { + 'type' => 'int', + 'name' => 'x' + }, + { + 'type' => 'int', + 'name' => 'y' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_built', + 'args' => [] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_name', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_port_t', + 'name' => 'ap_get_server_port', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_version', + 'args' => [] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_description', + 'args' => [] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_banner', + 'args' => [] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_status_line', + 'args' => [ + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_get_token', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'accept_line' + }, + { + 'type' => 'int', + 'name' => 'accept_white' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_getline', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'n' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'fold' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_getparents', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'line' + }, + { + 'type' => 'char', + 'name' => 'stop' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_conf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'line' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_conf_nc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'line' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_nc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'line' + }, + { + 'type' => 'char', + 'name' => 'stop' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_nulls', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'line' + }, + { + 'type' => 'char', + 'name' => 'stop' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_nulls_nc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'line' + }, + { + 'type' => 'char', + 'name' => 'stop' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_white', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'line' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_white_nc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'line' + } + ] + }, + { + 'return_type' => 'gid_t', + 'name' => 'ap_gname2id', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_graceful_stop_signalled', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_access_checker', + 'args' => [ + { + 'type' => 'ap_HOOK_access_checker_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_auth_checker', + 'args' => [ + { + 'type' => 'ap_HOOK_auth_checker_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_check_user_id', + 'args' => [ + { + 'type' => 'ap_HOOK_check_user_id_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_child_init', + 'args' => [ + { + 'type' => 'ap_HOOK_child_init_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_create_connection', + 'args' => [ + { + 'type' => 'ap_HOOK_create_connection_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_create_request', + 'args' => [ + { + 'type' => 'ap_HOOK_create_request_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_default_port', + 'args' => [ + { + 'type' => 'ap_HOOK_default_port_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_error_log', + 'args' => [ + { + 'type' => 'ap_HOOK_error_log_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_fixups', + 'args' => [ + { + 'type' => 'ap_HOOK_fixups_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_access_checker', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_auth_checker', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_check_user_id', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_child_init', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_create_connection', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_create_request', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_default_port', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_error_log', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_fixups', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_get_mgmt_items', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_get_suexec_identity', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_handler', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_header_parser', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_http_method', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_insert_error_filter', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_insert_filter', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_log_transaction', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_map_to_storage', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_get_mgmt_items', + 'args' => [ + { + 'type' => 'ap_HOOK_get_mgmt_items_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_open_logs', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_optional_fn_retrieve', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_post_config', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_post_read_request', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_pre_config', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_pre_connection', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_pre_mpm', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_process_connection', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_quick_handler', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_status_hook', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_get_suexec_identity', + 'args' => [ + { + 'type' => 'ap_HOOK_get_suexec_identity_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_translate_name', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_type_checker', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_handler', + 'args' => [ + { + 'type' => 'ap_HOOK_handler_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_header_parser', + 'args' => [ + { + 'type' => 'ap_HOOK_header_parser_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_http_method', + 'args' => [ + { + 'type' => 'ap_HOOK_http_method_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_insert_error_filter', + 'args' => [ + { + 'type' => 'ap_HOOK_insert_error_filter_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_insert_filter', + 'args' => [ + { + 'type' => 'ap_HOOK_insert_filter_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_log_transaction', + 'args' => [ + { + 'type' => 'ap_HOOK_log_transaction_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_map_to_storage', + 'args' => [ + { + 'type' => 'ap_HOOK_map_to_storage_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_open_logs', + 'args' => [ + { + 'type' => 'ap_HOOK_open_logs_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_optional_fn_retrieve', + 'args' => [ + { + 'type' => 'ap_HOOK_optional_fn_retrieve_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_post_config', + 'args' => [ + { + 'type' => 'ap_HOOK_post_config_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_post_read_request', + 'args' => [ + { + 'type' => 'ap_HOOK_post_read_request_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_pre_config', + 'args' => [ + { + 'type' => 'ap_HOOK_pre_config_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_pre_connection', + 'args' => [ + { + 'type' => 'ap_HOOK_pre_connection_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_pre_mpm', + 'args' => [ + { + 'type' => 'ap_HOOK_pre_mpm_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_process_connection', + 'args' => [ + { + 'type' => 'ap_HOOK_process_connection_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_quick_handler', + 'args' => [ + { + 'type' => 'ap_HOOK_quick_handler_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_status_hook', + 'args' => [ + { + 'type' => 'ap_HOOK_status_hook_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_translate_name', + 'args' => [ + { + 'type' => 'ap_HOOK_translate_name_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_type_checker', + 'args' => [ + { + 'type' => 'ap_HOOK_type_checker_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_ht_time', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'int', + 'name' => 'gmt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_http_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_http_header_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_increment_counts', + 'args' => [ + { + 'type' => 'ap_sb_handle_t *', + 'name' => 'sbh' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_ind', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'char', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_index_of_response', + 'args' => [ + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_init_scoreboard', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'shared_score' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_init_vhost_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_init_virtual_host', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'server_rec *', + 'name' => 'main_server' + }, + { + 'type' => 'server_rec **', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_internal_fast_redirect', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'sub_req' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_internal_redirect', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'new_uri' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_internal_redirect_handler', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'new_uri' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_invoke_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_directory', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_initial_req', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_matchexp', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_rdirectory', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_recursion_limit_exceeded', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_url', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'u' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_limit_section', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_lingering_close', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_listen_pre_config', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_location_walk', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_assert', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szExp' + }, + { + 'type' => 'const char *', + 'name' => 'szFile' + }, + { + 'type' => 'int', + 'name' => 'nLine' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_error', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'const server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg6' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_perror', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg6' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_pid', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_rerror', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg6' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_lookup_provider', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_name' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_make_content_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_make_dirstr_parent', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_make_dirstr_prefix', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'd' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_make_etag', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'force_weak' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_make_full_path', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'const char *', + 'name' => 'dir' + }, + { + 'type' => 'const char *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'ap_method_list_t *', + 'name' => 'ap_make_method_list', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'nelts' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_matches_request_vhost', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'host' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_md5', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'string' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_md5_binary', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'buf' + }, + { + 'type' => 'int', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_md5contextTo64', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_md5digest', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'infile' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_meets_conditions', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'ap_conf_vector_t*', + 'name' => 'ap_merge_per_dir_configs', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'base' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'new_conf' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_method_in_list', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'l' + }, + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_method_is_limited', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_method_list_add', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'l' + }, + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_method_list_do', + 'args' => [ + { + 'type' => 'int (*comp) (void *urec, const char *mname, int mnum)', + 'name' => 'arg0' + }, + { + 'type' => 'void *', + 'name' => 'rec' + }, + { + 'type' => 'const ap_method_list_t *', + 'name' => 'ml' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_method_list_remove', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'l' + }, + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_method_list_vdo', + 'args' => [ + { + 'type' => 'int (*comp) (void *urec, const char *mname, int mnum)', + 'name' => 'arg0' + }, + { + 'type' => 'void *', + 'name' => 'rec' + }, + { + 'type' => 'const ap_method_list_t *', + 'name' => 'ml' + }, + { + 'type' => 'va_list', + 'name' => 'vp' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_method_name_of', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'methnum' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_method_number_of', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_method_register', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'methname' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_method_registry_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_pod_check', + 'args' => [ + { + 'type' => 'ap_pod_t *', + 'name' => 'pod' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_pod_close', + 'args' => [ + { + 'type' => 'ap_pod_t *', + 'name' => 'pod' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_mpm_pod_killpg', + 'args' => [ + { + 'type' => 'ap_pod_t *', + 'name' => 'pod' + }, + { + 'type' => 'int', + 'name' => 'num' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_pod_open', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_pod_t **', + 'name' => 'pod' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_pod_signal', + 'args' => [ + { + 'type' => 'ap_pod_t *', + 'name' => 'pod' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_query', + 'args' => [ + { + 'type' => 'int', + 'name' => 'query_code' + }, + { + 'type' => 'int *', + 'name' => 'result' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_mpm_rewrite_args', + 'args' => [ + { + 'type' => 'process_rec *', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_mpm_run', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'server_rec *', + 'name' => 'server_conf' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_accept_lock_mech', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_coredumpdir', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_lockfile', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_max_mem_free', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_max_requests', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_pidfile', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_scoreboard', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_no2slash', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_note_auth_failure', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_note_basic_auth_failure', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_note_digest_auth_failure', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_old_write_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_open_logs', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's_main' + } + ] + }, + { + 'return_type' => 'piped_log *', + 'name' => 'ap_open_piped_log', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'program' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_open_stderr_log', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_os_create_privileged_process', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_proc_t *', + 'name' => 'newproc' + }, + { + 'type' => 'const char *', + 'name' => 'progname' + }, + { + 'type' => 'const char * const *', + 'name' => 'args' + }, + { + 'type' => 'const char * const *', + 'name' => 'env' + }, + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_os_escape_path', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'partial' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_os_is_path_absolute', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'dir' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_parse_htaccess', + 'args' => [ + { + 'type' => 'ap_conf_vector_t **', + 'name' => 'result' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'const char *', + 'name' => 'access_name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_parse_uri', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'uri' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_parse_vhost_addrs', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_pass_brigade', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_pbase64decode', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'bufcoded' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_pbase64encode', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char *', + 'name' => 'string' + } + ] + }, + { + 'return_type' => 'ap_configfile_t *', + 'name' => 'ap_pcfg_open_custom', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'descr' + }, + { + 'type' => 'void *', + 'name' => 'param' + }, + { + 'type' => 'int(*getc_func)(void*)', + 'name' => 'arg3' + }, + { + 'type' => 'void *(*gets_func) (void *buf, size_t bufsiz, void *param)', + 'name' => 'arg4' + }, + { + 'type' => 'int(*close_func)(void *param)', + 'name' => 'arg5' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_pcfg_openfile', + 'args' => [ + { + 'type' => 'ap_configfile_t **', + 'name' => 'ret_cfg' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'ap_pcw_srv_cb_t', + 'name' => 'srv_cb' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_default_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_directory_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'core_server_config *', + 'name' => 'sconf' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_files_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'core_dir_config *', + 'name' => 'dconf' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_location_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'core_server_config *', + 'name' => 'sconf' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_server_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_srv_cb_t', + 'name' => 'srv_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'regex_t *', + 'name' => 'ap_pregcomp', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'pattern' + }, + { + 'type' => 'int', + 'name' => 'cflags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pregfree', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'regex_t *', + 'name' => 'reg' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_pregsub', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'input' + }, + { + 'type' => 'const char *', + 'name' => 'source' + }, + { + 'type' => 'size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'regmatch_t', + 'name' => 'pmatch' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_process_child_status', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'pid' + }, + { + 'type' => 'apr_exit_why_e', + 'name' => 'why' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_process_config_tree', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'conftree' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_process_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'void *', + 'name' => 'csd' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_process_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_process_request_internal', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_process_resource_config', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'conftree' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_psignature', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'prefix' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_time_t', + 'name' => 'ap_rationalize_mtime', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + } + ] + }, + { + 'return_type' => 'server_rec *', + 'name' => 'ap_read_config', + 'args' => [ + { + 'type' => 'process_rec *', + 'name' => 'process' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'const char *', + 'name' => 'config_name' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'conftree' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_read_pid', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'pid_t *', + 'name' => 'mypid' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_read_request', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_recent_ctime', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_recent_rfc822_date', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_reclaim_child_processes', + 'args' => [ + { + 'type' => 'int', + 'name' => 'terminate' + } + ] + }, + { + 'return_type' => 'size_t', + 'name' => 'ap_regerror', + 'args' => [ + { + 'type' => 'int', + 'name' => 'errcode' + }, + { + 'type' => 'const regex_t *', + 'name' => 'preg' + }, + { + 'type' => 'char *', + 'name' => 'errbuf' + }, + { + 'type' => 'size_t', + 'name' => 'errbuf_size' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_regexec', + 'args' => [ + { + 'type' => 'regex_t *', + 'name' => 'preg' + }, + { + 'type' => 'const char *', + 'name' => 'string' + }, + { + 'type' => 'size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'regmatch_t', + 'name' => 'pmatch' + }, + { + 'type' => 'int', + 'name' => 'eflags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_register_extra_mpm_process', + 'args' => [ + { + 'type' => 'pid_t', + 'name' => 'pid' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_register_hooks', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_register_input_filter', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_in_filter_func', + 'name' => 'filter_func' + }, + { + 'type' => 'ap_init_filter_func', + 'name' => 'filter_init' + }, + { + 'type' => 'ap_filter_type', + 'name' => 'ftype' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_register_output_filter', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_out_filter_func', + 'name' => 'filter_func' + }, + { + 'type' => 'ap_init_filter_func', + 'name' => 'filter_init' + }, + { + 'type' => 'ap_filter_type', + 'name' => 'ftype' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_register_provider', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_name' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + }, + { + 'type' => 'const void *', + 'name' => 'provider' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'ap_register_request_note', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_input_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_loaded_module', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'mod' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_module', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_output_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_reopen_scoreboard', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_shm_t **', + 'name' => 'shm' + }, + { + 'type' => 'int', + 'name' => 'detached' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_replace_stderr_log', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'const apr_array_header_t *', + 'name' => 'ap_requires', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_resolve_env', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'word' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_response_code_string', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'error_index' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_rfc1413', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'conn' + }, + { + 'type' => 'server_rec *', + 'name' => 'srv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rflush', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_rgetline_core', + 'args' => [ + { + 'type' => 'char **', + 'name' => 's' + }, + { + 'type' => 'apr_size_t', + 'name' => 'n' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'read' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'fold' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rind', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'char', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rprintf', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rputc', + 'args' => [ + { + 'type' => 'int', + 'name' => 'c' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rputs', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_access_checker', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_auth_checker', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_check_user_id', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_child_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pchild' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'conn_rec *', + 'name' => 'ap_run_create_connection', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'csd' + }, + { + 'type' => 'long', + 'name' => 'conn_id' + }, + { + 'type' => 'void *', + 'name' => 'sbh' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'alloc' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_create_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_port_t', + 'name' => 'ap_run_default_port', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_error_log', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'const server_rec *', + 'name' => 's' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'errstr' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_fixups', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_get_mgmt_items', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'val' + }, + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + } + ] + }, + { + 'return_type' => 'ap_unix_identity_t *', + 'name' => 'ap_run_get_suexec_identity', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_header_parser', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_run_http_method', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_insert_error_filter', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_insert_filter', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_log_transaction', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_map_to_storage', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_open_logs', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_optional_fn_retrieve', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_post_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_post_read_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_pre_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_pre_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'void *', + 'name' => 'csd' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_pre_mpm', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_scoreboard_e', + 'name' => 'sb_type' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_process_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_quick_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'lookup_uri' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_rewrite_args', + 'args' => [ + { + 'type' => 'process_rec *', + 'name' => 'process' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_status_hook', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_sub_req', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_translate_name', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_type_checker', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rvputs', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => '...', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rwrite', + 'args' => [ + { + 'type' => 'const void *', + 'name' => 'buf' + }, + { + 'type' => 'int', + 'name' => 'nbyte' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_satisfies', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_save_brigade', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade **', + 'name' => 'save_to' + }, + { + 'type' => 'apr_bucket_brigade **', + 'name' => 'b' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_send_error_response', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'recursive_error' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_send_fd', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fd' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_send_http_options', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_send_http_trace', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'size_t', + 'name' => 'ap_send_mmap', + 'args' => [ + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'size_t', + 'name' => 'offset' + }, + { + 'type' => 'size_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_server_root_relative', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_set_config_vectors', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'section_vector' + }, + { + 'type' => 'const char *section', + 'name' => 'arg2' + }, + { + 'type' => 'module *', + 'name' => 'mod' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_content_length', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_off_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_content_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'ct' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_deprecated', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_etag', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_file_slot', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_flag_slot', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'int', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_int_slot', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_set_keepalive', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_last_modified', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_listenbacklog', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_listener', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'ips' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_module_config', + 'args' => [ + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'cv' + }, + { + 'type' => 'const module *', + 'name' => 'm' + }, + { + 'type' => 'void *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_name_virtual_host', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_send_buffer_size', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_string_slot', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_string_slot_lower', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_sub_req_protocol', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'rnew' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_setup_client_block', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'read_policy' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_setup_listeners', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_setup_make_content_type', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_setup_prelinked_modules', + 'args' => [ + { + 'type' => 'process_rec *', + 'name' => 'process' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_should_client_block', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_show_directives', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_show_modules', + 'args' => [] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_show_mpm', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_signal_server', + 'args' => [ + { + 'type' => 'int *', + 'name' => 'arg0' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_single_module_configure', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'module *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_size_list_item', + 'args' => [ + { + 'type' => 'const char **', + 'name' => 'field' + }, + { + 'type' => 'int *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_soak_end_container', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'char *', + 'name' => 'directive' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_some_auth_required', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_str_tolower', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_strcasecmp_match', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'const char *', + 'name' => 'expected' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_strcasestr', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 's1' + }, + { + 'type' => 'const char *', + 'name' => 's2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_strchr', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_strchr_c', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_strcmp_match', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'const char *', + 'name' => 'expected' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_stripprefix', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'bigstring' + }, + { + 'type' => 'const char *', + 'name' => 'prefix' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_strrchr', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_strrchr_c', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_strstr', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_strstr_c', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_sub_req_lookup_dirent', + 'args' => [ + { + 'type' => 'const apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'subtype' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next_filter' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_sub_req_lookup_file', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'new_file' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next_filter' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_sub_req_lookup_uri', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'new_uri' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next_filter' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_sub_req_method_uri', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'method' + }, + { + 'type' => 'const char *', + 'name' => 'new_uri' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next_filter' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_sub_req_output_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_time_process_request', + 'args' => [ + { + 'type' => 'ap_sb_handle_t *', + 'name' => 'sbh' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'uid_t', + 'name' => 'ap_uname2id', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unescape_url', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unescape_url_keep2f', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unregister_extra_mpm_process', + 'args' => [ + { + 'type' => 'pid_t', + 'name' => 'pid' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_update_child_status', + 'args' => [ + { + 'type' => 'ap_sb_handle_t *', + 'name' => 'sbh' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_update_child_status_from_indexes', + 'args' => [ + { + 'type' => 'int', + 'name' => 'child_num' + }, + { + 'type' => 'int', + 'name' => 'thread_num' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_update_mtime', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_time_t', + 'name' => 'dependency_mtime' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_update_vhost_from_headers', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_update_vhost_given_ip', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'conn' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_vrprintf', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'va_list', + 'name' => 'vlist' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_wait_or_timeout', + 'args' => [ + { + 'type' => 'apr_exit_why_e *', + 'name' => 'status' + }, + { + 'type' => 'int *', + 'name' => 'exitcode' + }, + { + 'type' => 'apr_proc_t *', + 'name' => 'ret' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_walk_config', + 'args' => [ + { + 'type' => 'ap_directive_t *', + 'name' => 'conftree' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'section_vector' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_xml_parse_input', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_xml_doc **', + 'name' => 'pdoc' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_accept', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'new_sock' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'connection_pool' + } + ] + }, + { + 'return_type' => 'apr_memnode_t *', + 'name' => 'apr_allocator_alloc', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_allocator_create', + 'args' => [ + { + 'type' => 'apr_allocator_t **', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_destroy', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_free', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_memnode_t *', + 'name' => 'memnode' + } + ] + }, + { + 'return_type' => 'apr_thread_mutex_t *', + 'name' => 'apr_allocator_get_mutex', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_allocator_get_owner', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_max_free_set', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'apr_thread_mutex_t *', + 'name' => 'apr_allocator_mutex_get', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_mutex_set', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_allocator_owner_get', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_owner_set', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_set_max_free', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_set_mutex', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_set_owner', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_app_initialize', + 'args' => [ + { + 'type' => 'int *', + 'name' => 'argc' + }, + { + 'type' => 'char const * const * *', + 'name' => 'argv' + }, + { + 'type' => 'char const * const * *', + 'name' => 'env' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_array_append', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'first' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'second' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_array_cat', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'dst' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'src' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_array_copy', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_array_copy_hdr', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_array_make', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'nelts' + }, + { + 'type' => 'int', + 'name' => 'elt_size' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_array_pop', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_array_pstrcat', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'arr' + }, + { + 'type' => 'const char', + 'name' => 'sep' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_array_push', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'apr_int64_t', + 'name' => 'apr_atoi64', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_atomic_add', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_atomic_cas', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + }, + { + 'type' => 'long', + 'name' => 'with' + }, + { + 'type' => 'long', + 'name' => 'cmp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_atomic_dec', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_atomic_inc', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_atomic_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_atomic_set', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_decode', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'plain_dst' + }, + { + 'type' => 'const char *', + 'name' => 'coded_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_decode_binary', + 'args' => [ + { + 'type' => 'unsigned char *', + 'name' => 'plain_dst' + }, + { + 'type' => 'const char *', + 'name' => 'coded_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_decode_len', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'coded_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_encode', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'coded_dst' + }, + { + 'type' => 'const char *', + 'name' => 'plain_src' + }, + { + 'type' => 'int', + 'name' => 'len_plain_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_encode_binary', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'coded_dst' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'plain_src' + }, + { + 'type' => 'int', + 'name' => 'len_plain_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_encode_len', + 'args' => [ + { + 'type' => 'int', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bind', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_bucket_brigade *', + 'name' => 'apr_brigade_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_destroy', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_flatten', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'char *', + 'name' => 'c' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_length', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'int', + 'name' => 'read_all' + }, + { + 'type' => 'apr_off_t *', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_partition', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_off_t', + 'name' => 'point' + }, + { + 'type' => 'apr_bucket **', + 'name' => 'after_point' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_pflatten', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'char **', + 'name' => 'c' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_printf', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg4' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_putc', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_puts', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_putstrs', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_bucket_brigade *', + 'name' => 'apr_brigade_split', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'e' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_split_line', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bbOut' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bbIn' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'maxbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_to_iovec', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'int *', + 'name' => 'nvec' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_vprintf', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'va_list', + 'name' => 'va' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_vputstrs', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'va_list', + 'name' => 'va' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_write', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_writev', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nvec' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_bucket_alloc', + 'args' => [ + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket_alloc_t *', + 'name' => 'apr_bucket_alloc_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_bucket_alloc_t *', + 'name' => 'apr_bucket_alloc_create_ex', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_bucket_alloc_destroy', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_copy_notimpl', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'e' + }, + { + 'type' => 'apr_bucket **', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_bucket_destroy_noop', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_eos_create', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_eos_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_file_create', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fd' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_file_enable_mmap', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'int', + 'name' => 'enabled' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_file_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'fd' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_flush_create', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_flush_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_bucket_free', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'block' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_heap_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + }, + { + 'type' => 'void (*free_func)(void *data)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_heap_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + }, + { + 'type' => 'void (*free_func)(void *data)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_immortal_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_immortal_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_mmap_create', + 'args' => [ + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_mmap_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_pipe_create', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thispipe' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_pipe_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thispipe' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_pool_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_pool_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_setaside_noop', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'data' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_setaside_notimpl', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'data' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_shared_copy', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket **', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_bucket_shared_destroy', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_shared_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_shared_split', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_size_t', + 'name' => 'point' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_simple_copy', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket **', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_simple_split', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_size_t', + 'name' => 'point' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_socket_create', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thissock' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_socket_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'thissock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_split_notimpl', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'data' + }, + { + 'type' => 'apr_size_t', + 'name' => 'point' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_transient_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_transient_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_collapse_spaces', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'dest' + }, + { + 'type' => 'const char *', + 'name' => 'src' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_connect', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_cpystrn', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'dst' + }, + { + 'type' => 'const char *', + 'name' => 'src' + }, + { + 'type' => 'apr_size_t', + 'name' => 'dst_size' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_ctime', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_current_userid', + 'args' => [ + { + 'type' => 'apr_uid_t *', + 'name' => 'userid' + }, + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_date_checkmask', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'mask' + } + ] + }, + { + 'return_type' => 'apr_time_t', + 'name' => 'apr_date_parse_http', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'date' + } + ] + }, + { + 'return_type' => 'apr_time_t', + 'name' => 'apr_date_parse_rfc', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'date' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_dbm_close', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_delete', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbm_exists', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_fetch', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'key' + }, + { + 'type' => 'apr_datum_t *', + 'name' => 'pvalue' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_firstkey', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t *', + 'name' => 'pkey' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_dbm_freedatum', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_dbm_get_usednames', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'pathname' + }, + { + 'type' => 'const char **', + 'name' => 'used1' + }, + { + 'type' => 'const char **', + 'name' => 'used2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_get_usednames_ex', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'pathname' + }, + { + 'type' => 'const char **', + 'name' => 'used1' + }, + { + 'type' => 'const char **', + 'name' => 'used2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_dbm_geterror', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'int *', + 'name' => 'errcode' + }, + { + 'type' => 'char *', + 'name' => 'errbuf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'errbufsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_nextkey', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t *', + 'name' => 'pkey' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_open', + 'args' => [ + { + 'type' => 'apr_dbm_t **', + 'name' => 'dbm' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cntxt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_open_ex', + 'args' => [ + { + 'type' => 'apr_dbm_t **', + 'name' => 'dbm' + }, + { + 'type' => 'const char*', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cntxt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_store', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'key' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'value' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_close', + 'args' => [ + { + 'type' => 'apr_dir_t *', + 'name' => 'thedir' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_make', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_make_recursive', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_open', + 'args' => [ + { + 'type' => 'apr_dir_t **', + 'name' => 'new_dir' + }, + { + 'type' => 'const char *', + 'name' => 'dirname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_read', + 'args' => [ + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'apr_dir_t *', + 'name' => 'thedir' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_remove', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_rewind', + 'args' => [ + { + 'type' => 'apr_dir_t *', + 'name' => 'thedir' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_dso_error', + 'args' => [ + { + 'type' => 'apr_dso_handle_t *', + 'name' => 'dso' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bufsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dso_load', + 'args' => [ + { + 'type' => 'apr_dso_handle_t **', + 'name' => 'res_handle' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dso_sym', + 'args' => [ + { + 'type' => 'apr_dso_handle_sym_t *', + 'name' => 'ressym' + }, + { + 'type' => 'apr_dso_handle_t *', + 'name' => 'handle' + }, + { + 'type' => 'const char *', + 'name' => 'symname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dso_unload', + 'args' => [ + { + 'type' => 'apr_dso_handle_t *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_dynamic_fn_register', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'apr_opt_fn_t *', + 'name' => 'pfn' + } + ] + }, + { + 'return_type' => 'apr_opt_fn_t *', + 'name' => 'apr_dynamic_fn_retrieve', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_env_delete', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'envvar' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_env_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'value' + }, + { + 'type' => 'const char *', + 'name' => 'envvar' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_env_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'envvar' + }, + { + 'type' => 'const char *', + 'name' => 'value' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_explode_localtime', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_t', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_explode_time', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_t', + 'name' => 'input' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'offs' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_append', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'from_path' + }, + { + 'type' => 'const char *', + 'name' => 'to_path' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_attrs_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_fileattrs_t', + 'name' => 'attributes' + }, + { + 'type' => 'apr_fileattrs_t', + 'name' => 'attr_mask' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_close', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_copy', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'from_path' + }, + { + 'type' => 'const char *', + 'name' => 'to_path' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_data_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_data_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'file' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_dup', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'new_file' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'old_file' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_dup2', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'new_file' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'old_file' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_eof', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fptr' + } + ] + }, + { + 'return_type' => 'apr_int32_t', + 'name' => 'apr_file_flags_get', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_flush', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_getc', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'ch' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_gets', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'str' + }, + { + 'type' => 'int', + 'name' => 'len' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_info_get', + 'args' => [ + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_inherit_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_inherit_unset', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_lock', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_mktemp', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'fp' + }, + { + 'type' => 'char *', + 'name' => 'templ' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_mtime_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_name_get', + 'args' => [ + { + 'type' => 'const char **', + 'name' => 'new_path' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_namedpipe_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'newf' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flag' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_stderr', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_stdin', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_stdout', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_perms_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perms' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_pipe_create', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'in' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'out' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_pipe_timeout_get', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thepipe' + }, + { + 'type' => 'apr_interval_time_t *', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_pipe_timeout_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thepipe' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_file_pool_get', + 'args' => [ + { + 'type' => 'const apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_file_printf', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fptr' + }, + { + 'type' => 'const char *', + 'name' => 'format' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_putc', + 'args' => [ + { + 'type' => 'char', + 'name' => 'ch' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_puts', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_read', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_read_full', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbytes' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'bytes_read' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_remove', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_rename', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'from_path' + }, + { + 'type' => 'const char *', + 'name' => 'to_path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_seek', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'apr_seek_where_t', + 'name' => 'where' + }, + { + 'type' => 'apr_off_t *', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_file_set_inherit', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_setaside', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'new_file' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'old_file' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_trunc', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fp' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_ungetc', + 'args' => [ + { + 'type' => 'char', + 'name' => 'ch' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_unlock', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_file_unset_inherit', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_write', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'const void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_write_full', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'const void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbytes' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'bytes_written' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_writev', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nvec' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_filename_of_pathname', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pathname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_encoding', + 'args' => [ + { + 'type' => 'int *', + 'name' => 'style' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'path' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_list_merge', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'liststr' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'pathelts' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_list_split', + 'args' => [ + { + 'type' => 'apr_array_header_t **', + 'name' => 'pathelts' + }, + { + 'type' => 'const char *', + 'name' => 'liststr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_merge', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'newpath' + }, + { + 'type' => 'const char *', + 'name' => 'rootpath' + }, + { + 'type' => 'const char *', + 'name' => 'addpath' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_filepath_name_get', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pathname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_root', + 'args' => [ + { + 'type' => 'const char **', + 'name' => 'rootpath' + }, + { + 'type' => 'const char **', + 'name' => 'filepath' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_fnmatch', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pattern' + }, + { + 'type' => 'const char *', + 'name' => 'strings' + }, + { + 'type' => 'int', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_fnmatch_test', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pattern' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_generate_random_bytes', + 'args' => [ + { + 'type' => 'unsigned char *', + 'name' => 'buf' + }, + { + 'type' => 'int', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_get_groupid', + 'args' => [ + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'const char *', + 'name' => 'groupname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_get_groupname', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'groupname' + }, + { + 'type' => 'apr_gid_t', + 'name' => 'groupid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_get_home_directory', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'dirname' + }, + { + 'type' => 'const char *', + 'name' => 'username' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_get_userid', + 'args' => [ + { + 'type' => 'apr_uid_t *', + 'name' => 'userid' + }, + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'const char *', + 'name' => 'username' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_get_username', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'username' + }, + { + 'type' => 'apr_uid_t', + 'name' => 'userid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_gethostname', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'int', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getnameinfo', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'hostname' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getopt', + 'args' => [ + { + 'type' => 'apr_getopt_t *', + 'name' => 'os' + }, + { + 'type' => 'const char *', + 'name' => 'opts' + }, + { + 'type' => 'char *', + 'name' => 'option_ch' + }, + { + 'type' => 'const char **', + 'name' => 'option_arg' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getopt_init', + 'args' => [ + { + 'type' => 'apr_getopt_t **', + 'name' => 'os' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + }, + { + 'type' => 'int', + 'name' => 'argc' + }, + { + 'type' => 'const char * const *', + 'name' => 'argv' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getopt_long', + 'args' => [ + { + 'type' => 'apr_getopt_t *', + 'name' => 'os' + }, + { + 'type' => 'const apr_getopt_option_t *', + 'name' => 'opts' + }, + { + 'type' => 'int *', + 'name' => 'option_ch' + }, + { + 'type' => 'const char **', + 'name' => 'option_arg' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getservbyname', + 'args' => [ + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + }, + { + 'type' => 'const char *', + 'name' => 'servname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getsocketopt', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + }, + { + 'type' => 'apr_int32_t *', + 'name' => 'on' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_gid_get', + 'args' => [ + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'const char *', + 'name' => 'groupname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_gid_name_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'groupname' + }, + { + 'type' => 'apr_gid_t', + 'name' => 'groupid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_child_init', + 'args' => [ + { + 'type' => 'apr_global_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_create', + 'args' => [ + { + 'type' => 'apr_global_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_lockmech_e', + 'name' => 'mech' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_destroy', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_lock', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_global_mutex_pool_get', + 'args' => [ + { + 'type' => 'const apr_global_mutex_t *', + 'name' => 'theglobal_mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_trylock', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_unlock', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_group_name_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'groupname' + }, + { + 'type' => 'apr_gid_t', + 'name' => 'groupid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_copy', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'h' + } + ] + }, + { + 'return_type' => 'unsigned int', + 'name' => 'apr_hash_count', + 'args' => [ + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + } + ] + }, + { + 'return_type' => 'apr_hash_index_t *', + 'name' => 'apr_hash_first', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_hash_get', + 'args' => [ + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + }, + { + 'type' => 'const void *', + 'name' => 'key' + }, + { + 'type' => 'apr_ssize_t', + 'name' => 'klen' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_make', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'h1' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'h2' + }, + { + 'type' => 'void * (*merger)(apr_pool_t *p, const void *key, apr_ssize_t klen, const void *h1_val, const void *h2_val, const void *data)', + 'name' => 'arg3' + }, + { + 'type' => 'const void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_hash_index_t *', + 'name' => 'apr_hash_next', + 'args' => [ + { + 'type' => 'apr_hash_index_t *', + 'name' => 'hi' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_overlay', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'overlay' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'base' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_hash_pool_get', + 'args' => [ + { + 'type' => 'const apr_hash_t *', + 'name' => 'thehash' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hash_set', + 'args' => [ + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + }, + { + 'type' => 'const void *', + 'name' => 'key' + }, + { + 'type' => 'apr_ssize_t', + 'name' => 'klen' + }, + { + 'type' => 'const void *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hash_this', + 'args' => [ + { + 'type' => 'apr_hash_index_t *', + 'name' => 'hi' + }, + { + 'type' => 'const void **', + 'name' => 'key' + }, + { + 'type' => 'apr_ssize_t *', + 'name' => 'klen' + }, + { + 'type' => 'void **', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hook_debug_show', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hook_deregister_all', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hook_sort_all', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hook_sort_register', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szHookName' + }, + { + 'type' => 'apr_array_header_t **', + 'name' => 'aHooks' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_implode_gmt', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_initialize', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_ipsubnet_create', + 'args' => [ + { + 'type' => 'apr_ipsubnet_t **', + 'name' => 'ipsub' + }, + { + 'type' => 'const char *', + 'name' => 'ipstr' + }, + { + 'type' => 'const char *', + 'name' => 'mask_or_numbits' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ipsubnet_test', + 'args' => [ + { + 'type' => 'apr_ipsubnet_t *', + 'name' => 'ipsub' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_is_empty_array', + 'args' => [ + { + 'type' => 'const apr_array_header_t *', + 'name' => 'a' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_is_empty_table', + 'args' => [ + { + 'type' => 'const apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_is_fnmatch', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pattern' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_itoa', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_listen', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'backlog' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_lstat', + 'args' => [ + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_ltoa', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'long', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'input' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4_final', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'apr_md4_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4_init', + 'args' => [ + { + 'type' => 'apr_md4_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4_set_xlate', + 'args' => [ + { + 'type' => 'apr_md4_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'apr_xlate_t *', + 'name' => 'xlate' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4_update', + 'args' => [ + { + 'type' => 'apr_md4_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'input' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'const void *', + 'name' => 'input' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_encode', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'password' + }, + { + 'type' => 'const char *', + 'name' => 'salt' + }, + { + 'type' => 'char *', + 'name' => 'result' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_final', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_init', + 'args' => [ + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_set_xlate', + 'args' => [ + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'apr_xlate_t *', + 'name' => 'xlate' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_update', + 'args' => [ + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'const void *', + 'name' => 'input' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mmap_create', + 'args' => [ + { + 'type' => 'apr_mmap_t **', + 'name' => 'newmmap' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flag' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cntxt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mmap_delete', + 'args' => [ + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mmap_dup', + 'args' => [ + { + 'type' => 'apr_mmap_t **', + 'name' => 'new_mmap' + }, + { + 'type' => 'apr_mmap_t *', + 'name' => 'old_mmap' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'transfer_ownership' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mmap_offset', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'addr' + }, + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_off_t_toa', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_off_t', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_optional_hook_add', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'void (*pfn)(void)', + 'name' => 'arg1' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_optional_hook_get', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_os_default_encoding', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_dir_get', + 'args' => [ + { + 'type' => 'apr_os_dir_t **', + 'name' => 'thedir' + }, + { + 'type' => 'apr_dir_t *', + 'name' => 'dir' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_dir_put', + 'args' => [ + { + 'type' => 'apr_dir_t **', + 'name' => 'dir' + }, + { + 'type' => 'apr_os_dir_t *', + 'name' => 'thedir' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_dso_handle_get', + 'args' => [ + { + 'type' => 'apr_os_dso_handle_t *', + 'name' => 'dso' + }, + { + 'type' => 'apr_dso_handle_t *', + 'name' => 'aprdso' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_dso_handle_put', + 'args' => [ + { + 'type' => 'apr_dso_handle_t **', + 'name' => 'dso' + }, + { + 'type' => 'apr_os_dso_handle_t', + 'name' => 'thedso' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_exp_time_get', + 'args' => [ + { + 'type' => 'apr_os_exp_time_t **', + 'name' => 'ostime' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'aprtime' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_exp_time_put', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'aprtime' + }, + { + 'type' => 'apr_os_exp_time_t **', + 'name' => 'ostime' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_file_get', + 'args' => [ + { + 'type' => 'apr_os_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_file_put', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'file' + }, + { + 'type' => 'apr_os_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_global_mutex_get', + 'args' => [ + { + 'type' => 'apr_os_global_mutex_t *', + 'name' => 'ospmutex' + }, + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'pmutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_imp_time_get', + 'args' => [ + { + 'type' => 'apr_os_imp_time_t **', + 'name' => 'ostime' + }, + { + 'type' => 'apr_time_t *', + 'name' => 'aprtime' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_imp_time_put', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'aprtime' + }, + { + 'type' => 'apr_os_imp_time_t **', + 'name' => 'ostime' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_os_locale_encoding', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_pipe_put', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'file' + }, + { + 'type' => 'apr_os_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_pipe_put_ex', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'file' + }, + { + 'type' => 'apr_os_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'int', + 'name' => 'register_cleanup' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_proc_mutex_get', + 'args' => [ + { + 'type' => 'apr_os_proc_mutex_t *', + 'name' => 'ospmutex' + }, + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'pmutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_proc_mutex_put', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t **', + 'name' => 'pmutex' + }, + { + 'type' => 'apr_os_proc_mutex_t *', + 'name' => 'ospmutex' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_shm_get', + 'args' => [ + { + 'type' => 'apr_os_shm_t *', + 'name' => 'osshm' + }, + { + 'type' => 'apr_shm_t *', + 'name' => 'shm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_shm_put', + 'args' => [ + { + 'type' => 'apr_shm_t **', + 'name' => 'shm' + }, + { + 'type' => 'apr_os_shm_t *', + 'name' => 'osshm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_sock_get', + 'args' => [ + { + 'type' => 'apr_os_sock_t *', + 'name' => 'thesock' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_sock_make', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'apr_sock' + }, + { + 'type' => 'apr_os_sock_info_t *', + 'name' => 'os_sock_info' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_sock_put', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'sock' + }, + { + 'type' => 'apr_os_sock_t *', + 'name' => 'thesock' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_os_thread_t', + 'name' => 'apr_os_thread_current', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'apr_os_thread_equal', + 'args' => [ + { + 'type' => 'apr_os_thread_t', + 'name' => 'tid1' + }, + { + 'type' => 'apr_os_thread_t', + 'name' => 'tid2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_thread_get', + 'args' => [ + { + 'type' => 'apr_os_thread_t **', + 'name' => 'thethd' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_thread_put', + 'args' => [ + { + 'type' => 'apr_thread_t **', + 'name' => 'thd' + }, + { + 'type' => 'apr_os_thread_t *', + 'name' => 'thethd' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_threadkey_get', + 'args' => [ + { + 'type' => 'apr_os_threadkey_t *', + 'name' => 'thekey' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_threadkey_put', + 'args' => [ + { + 'type' => 'apr_threadkey_t **', + 'name' => 'key' + }, + { + 'type' => 'apr_os_threadkey_t *', + 'name' => 'thekey' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_palloc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_palloc_debug', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_parse_addr_port', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'addr' + }, + { + 'type' => 'char **', + 'name' => 'scope_id' + }, + { + 'type' => 'apr_port_t *', + 'name' => 'port' + }, + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_password_get', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'prompt' + }, + { + 'type' => 'char *', + 'name' => 'pwbuf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'bufsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_password_validate', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'passwd' + }, + { + 'type' => 'const char *', + 'name' => 'hash' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_pcalloc_debug', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_pmemdup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'm' + }, + { + 'type' => 'apr_size_t', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_poll', + 'args' => [ + { + 'type' => 'apr_pollfd_t *', + 'name' => 'aprset' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'numsock' + }, + { + 'type' => 'apr_int32_t *', + 'name' => 'nsds' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_poll_revents_get', + 'args' => [ + { + 'type' => 'apr_int16_t *', + 'name' => 'event' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_pollfd_t *', + 'name' => 'aprset' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_poll_setup', + 'args' => [ + { + 'type' => 'apr_pollfd_t **', + 'name' => 'new_poll' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'num' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_poll_socket_add', + 'args' => [ + { + 'type' => 'apr_pollfd_t *', + 'name' => 'aprset' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'event' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_poll_socket_clear', + 'args' => [ + { + 'type' => 'apr_pollfd_t *', + 'name' => 'aprset' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'events' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_poll_socket_mask', + 'args' => [ + { + 'type' => 'apr_pollfd_t *', + 'name' => 'aprset' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'events' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_poll_socket_remove', + 'args' => [ + { + 'type' => 'apr_pollfd_t *', + 'name' => 'aprset' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_add', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + }, + { + 'type' => 'const apr_pollfd_t *', + 'name' => 'descriptor' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_create', + 'args' => [ + { + 'type' => 'apr_pollset_t **', + 'name' => 'pollset' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'size' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_destroy', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_poll', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_int32_t *', + 'name' => 'num' + }, + { + 'type' => 'const apr_pollfd_t **', + 'name' => 'descriptors' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_remove', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + }, + { + 'type' => 'const apr_pollfd_t *', + 'name' => 'descriptor' + } + ] + }, + { + 'return_type' => 'apr_abortfunc_t', + 'name' => 'apr_pool_abort_get', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_abort_set', + 'args' => [ + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abortfunc' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_allocator_t *', + 'name' => 'apr_pool_allocator_get', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_child_cleanup_set', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*plain_cleanup)(void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_status_t (*child_cleanup)(void *)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_cleanup_for_exec', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_cleanup_kill', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_cleanup_null', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_cleanup_register', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*plain_cleanup)(void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_status_t (*child_cleanup)(void *)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_cleanup_run', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_clear', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_clear_debug', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_create_ex', + 'args' => [ + { + 'type' => 'apr_pool_t **', + 'name' => 'newpool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'parent' + }, + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abort_fn' + }, + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_create_ex_debug', + 'args' => [ + { + 'type' => 'apr_pool_t **', + 'name' => 'newpool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'parent' + }, + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abort_fn' + }, + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_destroy', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_destroy_debug', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'apr_abortfunc_t', + 'name' => 'apr_pool_get_abort', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_pool_get_parent', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_initialize', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'apr_pool_is_ancestor', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_note_subprocess', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'apr_kill_conditions_e', + 'name' => 'how' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_pool_parent_get', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_set_abort', + 'args' => [ + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abortfunc' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_tag', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'tag' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_terminate', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_userdata_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_userdata_set', + 'args' => [ + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_userdata_setn', + 'args' => [ + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_create', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'new_proc' + }, + { + 'type' => 'const char *', + 'name' => 'progname' + }, + { + 'type' => 'const char * const *', + 'name' => 'args' + }, + { + 'type' => 'const char * const *', + 'name' => 'env' + }, + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_detach', + 'args' => [ + { + 'type' => 'int', + 'name' => 'daemonize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_fork', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_kill', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int', + 'name' => 'sig' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_child_init', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_create', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_lockmech_e', + 'name' => 'mech' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_proc_mutex_defname', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_destroy', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_lock', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_proc_mutex_lockfile', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_proc_mutex_name', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_proc_mutex_pool_get', + 'args' => [ + { + 'type' => 'const apr_proc_mutex_t *', + 'name' => 'theproc_mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_trylock', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_unlock', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_other_child_alert', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int', + 'name' => 'reason' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_check', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_other_child_read', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_refresh', + 'args' => [ + { + 'type' => 'apr_other_child_rec_t *', + 'name' => 'ocr' + }, + { + 'type' => 'int', + 'name' => 'reason' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_refresh_all', + 'args' => [ + { + 'type' => 'int', + 'name' => 'reason' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_register', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'void (*maintenance) (int reason, void *, int status)', + 'name' => 'arg1' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'write_fd' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_unregister', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_wait', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int *', + 'name' => 'exitcode' + }, + { + 'type' => 'apr_exit_why_e *', + 'name' => 'exitwhy' + }, + { + 'type' => 'apr_wait_how_e', + 'name' => 'waithow' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_wait_all_procs', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int *', + 'name' => 'exitcode' + }, + { + 'type' => 'apr_exit_why_e *', + 'name' => 'exitwhy' + }, + { + 'type' => 'apr_wait_how_e', + 'name' => 'waithow' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_child_err_set', + 'args' => [ + { + 'type' => 'struct apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'child_err' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'parent_err' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_child_errfn_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_child_errfn_t *', + 'name' => 'errfn' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_child_in_set', + 'args' => [ + { + 'type' => 'struct apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'child_in' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'parent_in' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_child_out_set', + 'args' => [ + { + 'type' => 'struct apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'child_out' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'parent_out' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_cmdtype_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_cmdtype_e', + 'name' => 'cmd' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_create', + 'args' => [ + { + 'type' => 'apr_procattr_t **', + 'name' => 'new_attr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_detach_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'detach' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_dir_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'const char *', + 'name' => 'dir' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_error_check_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'chk' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_io_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'in' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'out' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'err' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_limit_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'what' + }, + { + 'type' => 'struct rlimit *', + 'name' => 'limit' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_psprintf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrcat', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => '...', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrcatv', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nvec' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrdup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrmemdup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'apr_size_t', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrndup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'apr_size_t', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pvsprintf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'va_list', + 'name' => 'ap' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_create', + 'args' => [ + { + 'type' => 'apr_queue_t **', + 'name' => 'queue' + }, + { + 'type' => 'unsigned int', + 'name' => 'queue_capacity' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_interrupt_all', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_pop', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + }, + { + 'type' => 'void **', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_push', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'unsigned int', + 'name' => 'apr_queue_size', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_term', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_trypop', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + }, + { + 'type' => 'void **', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_trypush', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_recv', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_recvfrom', + 'args' => [ + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'from' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_register_optional_fn', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'apr_opt_fn_t *', + 'name' => 'pfn' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_acquire', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + }, + { + 'type' => 'void **', + 'name' => 'resource' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_create', + 'args' => [ + { + 'type' => 'apr_reslist_t **', + 'name' => 'reslist' + }, + { + 'type' => 'int', + 'name' => 'min' + }, + { + 'type' => 'int', + 'name' => 'smax' + }, + { + 'type' => 'int', + 'name' => 'hmax' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'ttl' + }, + { + 'type' => 'apr_reslist_constructor', + 'name' => 'con' + }, + { + 'type' => 'apr_reslist_destructor', + 'name' => 'de' + }, + { + 'type' => 'void *', + 'name' => 'params' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_destroy', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_release', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + }, + { + 'type' => 'void *', + 'name' => 'resource' + } + ] + }, + { + 'return_type' => 'apr_opt_fn_t *', + 'name' => 'apr_retrieve_optional_fn', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_rfc822_date', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_close', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_delete', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'const apr_sdbm_datum_t', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_fetch', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'apr_sdbm_datum_t *', + 'name' => 'value' + }, + { + 'type' => 'apr_sdbm_datum_t', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_firstkey', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'apr_sdbm_datum_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_lock', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_nextkey', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'apr_sdbm_datum_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_open', + 'args' => [ + { + 'type' => 'apr_sdbm_t **', + 'name' => 'db' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_sdbm_rdonly', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_store', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'apr_sdbm_datum_t', + 'name' => 'key' + }, + { + 'type' => 'apr_sdbm_datum_t', + 'name' => 'value' + }, + { + 'type' => 'int', + 'name' => 'opt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_unlock', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_send', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sendfile', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + }, + { + 'type' => 'apr_hdtr_t *', + 'name' => 'hdtr' + }, + { + 'type' => 'apr_off_t *', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sendto', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'where' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sendv', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'nvec' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_setsocketopt', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'on' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_setup_signal_thread', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_base64', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'clear' + }, + { + 'type' => 'int', + 'name' => 'len' + }, + { + 'type' => 'char *', + 'name' => 'out' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_final', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'apr_sha1_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_init', + 'args' => [ + { + 'type' => 'apr_sha1_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_update', + 'args' => [ + { + 'type' => 'apr_sha1_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'const char *', + 'name' => 'input' + }, + { + 'type' => 'unsigned int', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_update_binary', + 'args' => [ + { + 'type' => 'apr_sha1_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'input' + }, + { + 'type' => 'unsigned int', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_attach', + 'args' => [ + { + 'type' => 'apr_shm_t **', + 'name' => 'm' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_shm_baseaddr_get', + 'args' => [ + { + 'type' => 'const apr_shm_t *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_create', + 'args' => [ + { + 'type' => 'apr_shm_t **', + 'name' => 'm' + }, + { + 'type' => 'apr_size_t', + 'name' => 'reqsize' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_destroy', + 'args' => [ + { + 'type' => 'apr_shm_t *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_detach', + 'args' => [ + { + 'type' => 'apr_shm_t *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_shm_pool_get', + 'args' => [ + { + 'type' => 'const apr_shm_t *', + 'name' => 'theshm' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_shm_size_get', + 'args' => [ + { + 'type' => 'const apr_shm_t *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_show_hook', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shutdown', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + }, + { + 'type' => 'apr_shutdown_how_e', + 'name' => 'how' + } + ] + }, + { + 'return_type' => 'apr_sigfunc_t *', + 'name' => 'apr_signal', + 'args' => [ + { + 'type' => 'int', + 'name' => 'signo' + }, + { + 'type' => 'apr_sigfunc_t * func', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_signal_description_get', + 'args' => [ + { + 'type' => 'int', + 'name' => 'signum' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_signal_get_description', + 'args' => [ + { + 'type' => 'int', + 'name' => 'signum' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_signal_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pglobal' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_signal_thread', + 'args' => [ + { + 'type' => 'int(*signal_handler)(int signum)', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sleep', + 'args' => [ + { + 'type' => 'apr_interval_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_snprintf', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'const char *', + 'name' => 'format' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_sockaddr_equal', + 'args' => [ + { + 'type' => 'const apr_sockaddr_t *', + 'name' => 'addr1' + }, + { + 'type' => 'const apr_sockaddr_t *', + 'name' => 'addr2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sockaddr_info_get', + 'args' => [ + { + 'type' => 'apr_sockaddr_t **', + 'name' => 'sa' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'family' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sockaddr_ip_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'addr' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sockaddr_ip_set', + 'args' => [ + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + }, + { + 'type' => 'const char *', + 'name' => 'addr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sockaddr_port_get', + 'args' => [ + { + 'type' => 'apr_port_t *', + 'name' => 'port' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sockaddr_port_set', + 'args' => [ + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_accept', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'new_sock' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'connection_pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_addr_get', + 'args' => [ + { + 'type' => 'apr_sockaddr_t **', + 'name' => 'sa' + }, + { + 'type' => 'apr_interface_e', + 'name' => 'which' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_atmark', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'int *', + 'name' => 'atmark' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_bind', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_close', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_connect', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_create', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'new_sock' + }, + { + 'type' => 'int', + 'name' => 'family' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_create_ex', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'new_sock' + }, + { + 'type' => 'int', + 'name' => 'family' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'int', + 'name' => 'protocol' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_data_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_data_set', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup)(void*)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_from_file', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'newsock' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_inherit_set', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_inherit_unset', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_listen', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'backlog' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_opt_get', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + }, + { + 'type' => 'apr_int32_t *', + 'name' => 'on' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_opt_set', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'on' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_protocol_get', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'int *', + 'name' => 'protocol' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_recv', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_recvfrom', + 'args' => [ + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'from' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_send', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_sendfile', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + }, + { + 'type' => 'apr_hdtr_t *', + 'name' => 'hdtr' + }, + { + 'type' => 'apr_off_t *', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_sendto', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'where' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_sendv', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'nvec' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_socket_set_inherit', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'skt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_shutdown', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + }, + { + 'type' => 'apr_shutdown_how_e', + 'name' => 'how' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_timeout_get', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_interval_time_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_timeout_set', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_socket_unset_inherit', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'skt' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sort_hooks', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_stat', + 'args' => [ + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_strerror', + 'args' => [ + { + 'type' => 'apr_status_t', + 'name' => 'statcode' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bufsize' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_strfsize', + 'args' => [ + { + 'type' => 'apr_off_t', + 'name' => 'size' + }, + { + 'type' => 'char *', + 'name' => 'buf' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_strftime', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'retsize' + }, + { + 'type' => 'apr_size_t', + 'name' => 'max' + }, + { + 'type' => 'const char *', + 'name' => 'format' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'tm' + } + ] + }, + { + 'return_type' => 'const apr_strmatch_pattern *', + 'name' => 'apr_strmatch_precompile', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'case_sensitive' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_strnatcasecmp', + 'args' => [ + { + 'type' => 'char const *', + 'name' => 'a' + }, + { + 'type' => 'char const *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_strnatcmp', + 'args' => [ + { + 'type' => 'char const *', + 'name' => 'a' + }, + { + 'type' => 'char const *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_int64_t', + 'name' => 'apr_strtoi64', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'char **', + 'name' => 'end' + }, + { + 'type' => 'int', + 'name' => 'base' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_strtok', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'str' + }, + { + 'type' => 'const char *', + 'name' => 'sep' + }, + { + 'type' => 'char **', + 'name' => 'last' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_add', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_addn', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_clear', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_compress', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'unsigned', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_table_t *', + 'name' => 'apr_table_copy', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_table_do', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'comp' + }, + { + 'type' => 'void *', + 'name' => 'rec' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 't' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'const apr_array_header_t *', + 'name' => 'apr_table_elts', + 'args' => [ + { + 'type' => 'const apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_table_get', + 'args' => [ + { + 'type' => 'const apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_table_t *', + 'name' => 'apr_table_make', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'nelts' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_merge', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_mergen', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_overlap', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 'a' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 'b' + }, + { + 'type' => 'unsigned', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_table_t *', + 'name' => 'apr_table_overlay', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 'overlay' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 'base' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_set', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_setn', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_unset', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_table_vdo', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'comp' + }, + { + 'type' => 'void *', + 'name' => 'rec' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'va_list', + 'name' => 'vp' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_temp_dir_get', + 'args' => [ + { + 'type' => 'const char **', + 'name' => 'temp_dir' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_terminate', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_terminate2', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_text_append', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_text_header *', + 'name' => 'hdr' + }, + { + 'type' => 'const char *', + 'name' => 'text' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_broadcast', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_create', + 'args' => [ + { + 'type' => 'apr_thread_cond_t **', + 'name' => 'cond' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_destroy', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_thread_cond_pool_get', + 'args' => [ + { + 'type' => 'const apr_thread_cond_t *', + 'name' => 'thethread_cond' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_signal', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_timedwait', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_wait', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_create', + 'args' => [ + { + 'type' => 'apr_thread_t **', + 'name' => 'new_thread' + }, + { + 'type' => 'apr_threadattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_thread_start_t func', + 'name' => 'arg2' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_data_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'thread' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_data_set', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup) (void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'thread' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_detach', + 'args' => [ + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_exit', + 'args' => [ + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + }, + { + 'type' => 'apr_status_t', + 'name' => 'retval' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_join', + 'args' => [ + { + 'type' => 'apr_status_t *', + 'name' => 'retval' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_create', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'unsigned int', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_destroy', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_lock', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_thread_mutex_pool_get', + 'args' => [ + { + 'type' => 'const apr_thread_mutex_t *', + 'name' => 'thethread_mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_trylock', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_unlock', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_once', + 'args' => [ + { + 'type' => 'apr_thread_once_t *', + 'name' => 'control' + }, + { + 'type' => 'void (*func)(void)', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_once_init', + 'args' => [ + { + 'type' => 'apr_thread_once_t **', + 'name' => 'control' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_thread_pool_get', + 'args' => [ + { + 'type' => 'const apr_thread_t *', + 'name' => 'thethread' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_create', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t **', + 'name' => 'rwlock' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_destroy', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_thread_rwlock_pool_get', + 'args' => [ + { + 'type' => 'const apr_thread_rwlock_t *', + 'name' => 'thethread_rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_rdlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_tryrdlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_trywrlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_unlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_wrlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_thread_yield', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadattr_create', + 'args' => [ + { + 'type' => 'apr_threadattr_t **', + 'name' => 'new_attr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadattr_detach_get', + 'args' => [ + { + 'type' => 'apr_threadattr_t *', + 'name' => 'attr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadattr_detach_set', + 'args' => [ + { + 'type' => 'apr_threadattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'on' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_data_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'threadkey' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_data_set', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup) (void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'threadkey' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_private_create', + 'args' => [ + { + 'type' => 'apr_threadkey_t **', + 'name' => 'key' + }, + { + 'type' => 'void (*dest)(void *)', + 'name' => 'arg1' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_private_delete', + 'args' => [ + { + 'type' => 'apr_threadkey_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_private_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'new_mem' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_private_set', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'priv' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_ansi_put', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'result' + }, + { + 'type' => 'time_t', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_time_clock_hires', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_get', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_gmt', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_t', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_gmt_get', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_lt', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_t', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_tz', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_t', + 'name' => 'input' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'offs' + } + ] + }, + { + 'return_type' => 'apr_time_t', + 'name' => 'apr_time_now', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_tokenize_to_argv', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'arg_str' + }, + { + 'type' => 'char ***', + 'name' => 'argv_out' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'token_context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uid_current', + 'args' => [ + { + 'type' => 'apr_uid_t *', + 'name' => 'userid' + }, + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uid_get', + 'args' => [ + { + 'type' => 'apr_uid_t *', + 'name' => 'userid' + }, + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'const char *', + 'name' => 'username' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uid_homepath_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'dirname' + }, + { + 'type' => 'const char *', + 'name' => 'username' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uid_name_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'username' + }, + { + 'type' => 'apr_uid_t', + 'name' => 'userid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_port_t', + 'name' => 'apr_uri_default_port_for_scheme', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'scheme_str' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_uri_parse', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'uri' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'uptr' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_uri_parse_hostinfo', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'hostinfo' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'uptr' + } + ] + }, + { + 'return_type' => 'apr_port_t', + 'name' => 'apr_uri_port_of_scheme', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'scheme_str' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_uri_unparse', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_uri_t *', + 'name' => 'uptr' + }, + { + 'type' => 'unsigned', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_uuid_format', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'const apr_uuid_t *', + 'name' => 'uuid' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_uuid_get', + 'args' => [ + { + 'type' => 'apr_uuid_t *', + 'name' => 'uuid' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uuid_parse', + 'args' => [ + { + 'type' => 'apr_uuid_t *', + 'name' => 'uuid' + }, + { + 'type' => 'const char *', + 'name' => 'uuid_str' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_version', + 'args' => [ + { + 'type' => 'apr_version_t *', + 'name' => 'pvsn' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_version_string', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'apr_vformatter', + 'args' => [ + { + 'type' => 'int (*flush_func)(apr_vformatter_buff_t *b)', + 'name' => 'arg0' + }, + { + 'type' => 'apr_vformatter_buff_t *', + 'name' => 'c' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'va_list', + 'name' => 'ap' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_vsnprintf', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'const char *', + 'name' => 'format' + }, + { + 'type' => 'va_list', + 'name' => 'ap' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_wait_for_io_or_timeout', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'for_read' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_close', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_conv_buffer', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + }, + { + 'type' => 'const char *', + 'name' => 'inbuf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'inbytes_left' + }, + { + 'type' => 'char *', + 'name' => 'outbuf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'outbytes_left' + } + ] + }, + { + 'return_type' => 'apr_int32_t', + 'name' => 'apr_xlate_conv_byte', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + }, + { + 'type' => 'unsigned char', + 'name' => 'inchar' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_get_sb', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + }, + { + 'type' => 'int *', + 'name' => 'onoff' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_open', + 'args' => [ + { + 'type' => 'apr_xlate_t **', + 'name' => 'convset' + }, + { + 'type' => 'const char *', + 'name' => 'topage' + }, + { + 'type' => 'const char *', + 'name' => 'frompage' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_sb_get', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + }, + { + 'type' => 'int *', + 'name' => 'onoff' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_xml_empty_elem', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_xml_elem *', + 'name' => 'elem' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_xml_insert_uri', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'uri_array' + }, + { + 'type' => 'const char *', + 'name' => 'uri' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xml_parse_file', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_xml_parser **', + 'name' => 'parser' + }, + { + 'type' => 'apr_xml_doc **', + 'name' => 'ppdoc' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'xmlfd' + }, + { + 'type' => 'apr_size_t', + 'name' => 'buffer_length' + } + ] + }, + { + 'return_type' => 'apr_xml_parser *', + 'name' => 'apr_xml_parser_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xml_parser_done', + 'args' => [ + { + 'type' => 'apr_xml_parser *', + 'name' => 'parser' + }, + { + 'type' => 'apr_xml_doc **', + 'name' => 'pdoc' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xml_parser_feed', + 'args' => [ + { + 'type' => 'apr_xml_parser *', + 'name' => 'parser' + }, + { + 'type' => 'const char *', + 'name' => 'data' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_xml_parser_geterror', + 'args' => [ + { + 'type' => 'apr_xml_parser *', + 'name' => 'parser' + }, + { + 'type' => 'char *', + 'name' => 'errbuf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'errbufsize' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_xml_quote_elem', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'elem' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_xml_quote_string', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'quotes' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_xml_to_text', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_xml_elem *', + 'name' => 'elem' + }, + { + 'type' => 'int', + 'name' => 'style' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'namespaces' + }, + { + 'type' => 'int *', + 'name' => 'ns_map' + }, + { + 'type' => 'const char **', + 'name' => 'pbuf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'psize' + } + ] + } +]; + + +1;
diff --git a/2_0_13/xs/tables/current/Apache2/StructureTable.pm b/2_0_13/xs/tables/current/Apache2/StructureTable.pm new file mode 100644 index 0000000..80dd06c --- /dev/null +++ b/2_0_13/xs/tables/current/Apache2/StructureTable.pm
@@ -0,0 +1,3461 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package Apache2::StructureTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by Apache::ParseSource/0.02 +# ! Fri Dec 10 14:14:10 2004 +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$Apache2::StructureTable = [ + { + 'type' => 'ap_HOOK_access_checker_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_auth_checker_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_check_user_id_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_child_init_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_create_connection_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_create_request_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_default_port_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_error_log_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_fixups_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_get_mgmt_items_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_get_suexec_identity_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_handler_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_header_parser_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_http_method_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_insert_error_filter_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_insert_filter_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_log_transaction_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_map_to_storage_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_open_logs_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_optional_fn_retrieve_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_post_config_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_post_read_request_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_pre_config_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_pre_connection_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_pre_mpm_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_process_connection_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_quick_handler_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_status_hook_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_translate_name_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_type_checker_t', + 'elts' => [] + }, + { + 'type' => 'ap_LINK_access_checker_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_access_checker_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_auth_checker_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_auth_checker_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_check_user_id_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_check_user_id_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_child_init_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_child_init_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_create_connection_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_create_connection_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_create_request_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_create_request_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_default_port_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_default_port_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_error_log_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_error_log_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_fixups_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_fixups_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_get_mgmt_items_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_get_mgmt_items_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_get_suexec_identity_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_get_suexec_identity_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_handler_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_handler_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_header_parser_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_header_parser_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_http_method_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_http_method_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_insert_error_filter_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_insert_error_filter_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_insert_filter_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_insert_filter_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_log_transaction_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_log_transaction_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_map_to_storage_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_map_to_storage_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_open_logs_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_open_logs_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_optional_fn_retrieve_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_optional_fn_retrieve_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_post_config_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_post_config_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_post_read_request_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_post_read_request_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_pre_config_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_pre_config_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_pre_connection_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_pre_connection_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_pre_mpm_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_pre_mpm_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_process_connection_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_process_connection_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_quick_handler_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_quick_handler_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_status_hook_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_status_hook_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_translate_name_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_translate_name_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_type_checker_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_type_checker_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_bucket_error', + 'elts' => [ + { + 'type' => 'apr_bucket_refcount', + 'name' => 'refcount' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'const char *', + 'name' => 'data' + } + ] + }, + { + 'type' => 'ap_conf_vector_t', + 'elts' => [] + }, + { + 'type' => 'ap_configfile_t', + 'elts' => [ + { + 'type' => 'int(*) (void *param)', + 'name' => 'getch' + }, + { + 'type' => 'void *(*) (void *buf, size_t bufsiz, void *param)', + 'name' => 'getstr' + }, + { + 'type' => 'int(*) (void *param)', + 'name' => 'close' + }, + { + 'type' => 'void *', + 'name' => 'param' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'unsigned', + 'name' => 'line_number' + } + ] + }, + { + 'type' => 'ap_conn_keepalive_e', + 'elts' => [] + }, + { + 'type' => 'ap_directive_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'directive' + }, + { + 'type' => 'const char *', + 'name' => 'args' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'next' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'first_child' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'parent' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'int', + 'name' => 'line_num' + } + ] + }, + { + 'type' => 'ap_filter_func', + 'elts' => [ + { + 'type' => 'ap_out_filter_func', + 'name' => 'out_func' + }, + { + 'type' => 'ap_in_filter_func', + 'name' => 'in_func' + } + ] + }, + { + 'type' => 'ap_filter_rec_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_filter_func', + 'name' => 'filter_func' + }, + { + 'type' => 'ap_init_filter_func', + 'name' => 'filter_init_func' + }, + { + 'type' => 'ap_filter_type', + 'name' => 'ftype' + }, + { + 'type' => 'ap_filter_rec_t *', + 'name' => 'next' + } + ] + }, + { + 'type' => 'ap_filter_t', + 'elts' => [ + { + 'type' => 'ap_filter_rec_t *', + 'name' => 'frec' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'type' => 'ap_filter_type', + 'elts' => [] + }, + { + 'type' => 'ap_generation_t', + 'elts' => [] + }, + { + 'type' => 'ap_in_filter_func', + 'elts' => [] + }, + { + 'type' => 'ap_init_filter_func', + 'elts' => [] + }, + { + 'type' => 'ap_input_mode_t', + 'elts' => [] + }, + { + 'type' => 'ap_listen_rec', + 'elts' => [ + { + 'type' => 'ap_listen_rec *', + 'name' => 'next' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sd' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'bind_addr' + }, + { + 'type' => 'accept_function', + 'name' => 'accept_func' + }, + { + 'type' => 'int', + 'name' => 'active' + } + ] + }, + { + 'type' => 'ap_method_list_t', + 'elts' => [ + { + 'type' => 'apr_int64_t', + 'name' => 'method_mask' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'method_list' + } + ] + }, + { + 'type' => 'ap_mgmt_item_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'description' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_mgmt_type_e', + 'name' => 'vtype' + }, + { + 'type' => 'ap_mgmt_value', + 'name' => 'v' + } + ] + }, + { + 'type' => 'ap_mgmt_type_e', + 'elts' => [] + }, + { + 'type' => 'ap_mgmt_value', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 's_value' + }, + { + 'type' => 'long', + 'name' => 'i_value' + }, + { + 'type' => 'apr_hash_t *', + 'name' => 'h_value' + } + ] + }, + { + 'type' => 'ap_out_filter_func', + 'elts' => [] + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'elts' => [] + }, + { + 'type' => 'ap_pcw_srv_cb_t', + 'elts' => [] + }, + { + 'type' => 'ap_pod_t', + 'elts' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'pod_in' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'pod_out' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'type' => 'ap_sb_handle_t', + 'elts' => [] + }, + { + 'type' => 'ap_scoreboard_e', + 'elts' => [] + }, + { + 'type' => 'ap_unix_identity_t', + 'elts' => [ + { + 'type' => 'uid_t', + 'name' => 'uid' + }, + { + 'type' => 'gid_t', + 'name' => 'gid' + }, + { + 'type' => 'int', + 'name' => 'userdir' + } + ] + }, + { + 'type' => 'apr_OFN_ap_logio_add_bytes_out_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_signal_server_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_modperl_interp_unselect_t', + 'elts' => [] + }, + { + 'type' => 'apr_abortfunc_t', + 'elts' => [] + }, + { + 'type' => 'apr_allocator_t', + 'elts' => [] + }, + { + 'type' => 'apr_array_header_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'int', + 'name' => 'elt_size' + }, + { + 'type' => 'int', + 'name' => 'nelts' + }, + { + 'type' => 'int', + 'name' => 'nalloc' + }, + { + 'type' => 'char *', + 'name' => 'elts' + } + ] + }, + { + 'type' => 'apr_brigade_flush', + 'elts' => [] + }, + { + 'type' => 'apr_bucket', + 'elts' => [ + { + 'type' => '_ANON 53', + 'name' => 'link' + }, + { + 'type' => 'const apr_bucket_type_t *', + 'name' => 'type' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'void(*)(void *e)', + 'name' => 'free' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'type' => 'apr_bucket_alloc_t', + 'elts' => [] + }, + { + 'type' => 'apr_bucket_brigade', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_bucket_list', + 'name' => 'list' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'bucket_alloc' + } + ] + }, + { + 'type' => 'apr_bucket_file', + 'elts' => [ + { + 'type' => 'apr_bucket_refcount', + 'name' => 'refcount' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'fd' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'readpool' + }, + { + 'type' => 'int', + 'name' => 'can_mmap' + } + ] + }, + { + 'type' => 'apr_bucket_heap', + 'elts' => [ + { + 'type' => 'apr_bucket_refcount', + 'name' => 'refcount' + }, + { + 'type' => 'char *', + 'name' => 'base' + }, + { + 'type' => 'apr_size_t', + 'name' => 'alloc_len' + }, + { + 'type' => 'void(*)(void *data)', + 'name' => 'free_func' + } + ] + }, + { + 'type' => 'apr_bucket_mmap', + 'elts' => [ + { + 'type' => 'apr_bucket_refcount', + 'name' => 'refcount' + }, + { + 'type' => 'apr_mmap_t *', + 'name' => 'mmap' + } + ] + }, + { + 'type' => 'apr_bucket_pool', + 'elts' => [ + { + 'type' => 'apr_bucket_heap', + 'name' => 'heap' + }, + { + 'type' => 'const char *', + 'name' => 'base' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'type' => 'apr_bucket_refcount', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'refcount' + } + ] + }, + { + 'type' => 'apr_bucket_structs', + 'elts' => [] + }, + { + 'type' => 'apr_bucket_type_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'num_func' + }, + { + 'type' => 'int', + 'name' => 'is_metadata' + }, + { + 'type' => 'void(*)(void *data)', + 'name' => 'destroy' + }, + { + 'type' => 'apr_status_t(*)(apr_bucket *b, const char **str, apr_size_t *len, + apr_read_type_e block)', + 'name' => 'read' + }, + { + 'type' => 'apr_status_t(*)(apr_bucket *e, apr_pool_t *pool)', + 'name' => 'setaside' + }, + { + 'type' => 'apr_status_t(*)(apr_bucket *e, apr_size_t point)', + 'name' => 'split' + }, + { + 'type' => 'apr_status_t(*)(apr_bucket *e, apr_bucket **c)', + 'name' => 'copy' + } + ] + }, + { + 'type' => 'apr_byte_t', + 'elts' => [] + }, + { + 'type' => 'apr_child_errfn_t', + 'elts' => [] + }, + { + 'type' => 'apr_cmdtype_e', + 'elts' => [] + }, + { + 'type' => 'apr_datatype_e', + 'elts' => [] + }, + { + 'type' => 'apr_datum_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'dptr' + }, + { + 'type' => 'apr_size_t', + 'name' => 'dsize' + } + ] + }, + { + 'type' => 'apr_dbm_t', + 'elts' => [] + }, + { + 'type' => 'apr_descriptor', + 'elts' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 's' + } + ] + }, + { + 'type' => 'apr_dev_t', + 'elts' => [] + }, + { + 'type' => 'apr_dir_t', + 'elts' => [] + }, + { + 'type' => 'apr_dso_handle_sym_t', + 'elts' => [] + }, + { + 'type' => 'apr_dso_handle_t', + 'elts' => [] + }, + { + 'type' => 'apr_exit_why_e', + 'elts' => [] + }, + { + 'type' => 'apr_file_t', + 'elts' => [] + }, + { + 'type' => 'apr_fileattrs_t', + 'elts' => [] + }, + { + 'type' => 'apr_fileperms_t', + 'elts' => [] + }, + { + 'type' => 'apr_filetype_e', + 'elts' => [] + }, + { + 'type' => 'apr_finfo_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'valid' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'protection' + }, + { + 'type' => 'apr_filetype_e', + 'name' => 'filetype' + }, + { + 'type' => 'apr_uid_t', + 'name' => 'user' + }, + { + 'type' => 'apr_gid_t', + 'name' => 'group' + }, + { + 'type' => 'apr_ino_t', + 'name' => 'inode' + }, + { + 'type' => 'apr_dev_t', + 'name' => 'device' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'nlink' + }, + { + 'type' => 'apr_off_t', + 'name' => 'size' + }, + { + 'type' => 'apr_off_t', + 'name' => 'csize' + }, + { + 'type' => 'apr_time_t', + 'name' => 'atime' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + }, + { + 'type' => 'apr_time_t', + 'name' => 'ctime' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'filehand' + } + ] + }, + { + 'type' => 'apr_getopt_err_fn_t', + 'elts' => [] + }, + { + 'type' => 'apr_getopt_option_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'optch' + }, + { + 'type' => 'int', + 'name' => 'has_arg' + }, + { + 'type' => 'const char *', + 'name' => 'description' + } + ] + }, + { + 'type' => 'apr_getopt_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + }, + { + 'type' => 'apr_getopt_err_fn_t *', + 'name' => 'errfn' + }, + { + 'type' => 'void *', + 'name' => 'errarg' + }, + { + 'type' => 'int', + 'name' => 'ind' + }, + { + 'type' => 'int', + 'name' => 'opt' + }, + { + 'type' => 'int', + 'name' => 'reset' + }, + { + 'type' => 'int', + 'name' => 'argc' + }, + { + 'type' => 'const char **', + 'name' => 'argv' + }, + { + 'type' => 'char const *', + 'name' => 'place' + }, + { + 'type' => 'int', + 'name' => 'interleave' + }, + { + 'type' => 'int', + 'name' => 'skip_start' + }, + { + 'type' => 'int', + 'name' => 'skip_end' + } + ] + }, + { + 'type' => 'apr_gid_t', + 'elts' => [] + }, + { + 'type' => 'apr_global_mutex_t', + 'elts' => [] + }, + { + 'type' => 'apr_hash_index_t', + 'elts' => [] + }, + { + 'type' => 'apr_hash_t', + 'elts' => [] + }, + { + 'type' => 'apr_hdtr_t', + 'elts' => [ + { + 'type' => 'iovec *', + 'name' => 'headers' + }, + { + 'type' => 'int', + 'name' => 'numheaders' + }, + { + 'type' => 'iovec *', + 'name' => 'trailers' + }, + { + 'type' => 'int', + 'name' => 'numtrailers' + } + ] + }, + { + 'type' => 'apr_in_addr_t', + 'elts' => [ + { + 'type' => 'in_addr_t', + 'name' => 's_addr' + } + ] + }, + { + 'type' => 'apr_ino_t', + 'elts' => [] + }, + { + 'type' => 'apr_int16_t', + 'elts' => [] + }, + { + 'type' => 'apr_int32_t', + 'elts' => [] + }, + { + 'type' => 'apr_int64_t', + 'elts' => [] + }, + { + 'type' => 'apr_interface_e', + 'elts' => [] + }, + { + 'type' => 'apr_interval_time_t', + 'elts' => [] + }, + { + 'type' => 'apr_ipsubnet_t', + 'elts' => [] + }, + { + 'type' => 'apr_kill_conditions_e', + 'elts' => [] + }, + { + 'type' => 'apr_lockmech_e', + 'elts' => [] + }, + { + 'type' => 'apr_md4_ctx_t', + 'elts' => [ + { + 'type' => 'apr_uint32_t[4]', + 'name' => 'state' + }, + { + 'type' => 'apr_uint32_t[2]', + 'name' => 'count' + }, + { + 'type' => 'unsigned char[64]', + 'name' => 'buffer' + }, + { + 'type' => 'apr_xlate_t *', + 'name' => 'xlate' + } + ] + }, + { + 'type' => 'apr_md5_ctx_t', + 'elts' => [ + { + 'type' => 'apr_uint32_t[4]', + 'name' => 'state' + }, + { + 'type' => 'apr_uint32_t[2]', + 'name' => 'count' + }, + { + 'type' => 'unsigned char[64]', + 'name' => 'buffer' + }, + { + 'type' => 'apr_xlate_t *', + 'name' => 'xlate' + } + ] + }, + { + 'type' => 'apr_memnode_t', + 'elts' => [ + { + 'type' => 'apr_memnode_t *', + 'name' => 'next' + }, + { + 'type' => 'apr_memnode_t **', + 'name' => 'ref' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'index' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'free_index' + }, + { + 'type' => 'char *', + 'name' => 'first_avail' + }, + { + 'type' => 'char *', + 'name' => 'endp' + } + ] + }, + { + 'type' => 'apr_mmap_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'cntxt' + }, + { + 'type' => 'void *', + 'name' => 'mm' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'int', + 'name' => 'unused' + }, + { + 'type' => '_ANON 51', + 'name' => 'link' + } + ] + }, + { + 'type' => 'apr_off_t', + 'elts' => [] + }, + { + 'type' => 'apr_opt_fn_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_dir_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_dso_handle_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_exp_time_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'tm_sec' + }, + { + 'type' => 'int', + 'name' => 'tm_min' + }, + { + 'type' => 'int', + 'name' => 'tm_hour' + }, + { + 'type' => 'int', + 'name' => 'tm_mday' + }, + { + 'type' => 'int', + 'name' => 'tm_mon' + }, + { + 'type' => 'int', + 'name' => 'tm_year' + }, + { + 'type' => 'int', + 'name' => 'tm_wday' + }, + { + 'type' => 'int', + 'name' => 'tm_yday' + }, + { + 'type' => 'int', + 'name' => 'tm_isdst' + }, + { + 'type' => 'long int', + 'name' => 'tm_gmtoff' + }, + { + 'type' => '__const char *', + 'name' => 'tm_zone' + } + ] + }, + { + 'type' => 'apr_os_file_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_global_mutex_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'proc_mutex' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'thread_mutex' + } + ] + }, + { + 'type' => 'apr_os_imp_time_t', + 'elts' => [ + { + 'type' => '__time_t', + 'name' => 'tv_sec' + }, + { + 'type' => '__suseconds_t', + 'name' => 'tv_usec' + } + ] + }, + { + 'type' => 'apr_os_proc_mutex_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'crossproc' + }, + { + 'type' => 'pthread_mutex_t *', + 'name' => 'pthread_interproc' + }, + { + 'type' => 'pthread_mutex_t *', + 'name' => 'intraproc' + } + ] + }, + { + 'type' => 'apr_os_proc_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_shm_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_sock_info_t', + 'elts' => [ + { + 'type' => 'apr_os_sock_t *', + 'name' => 'os_sock' + }, + { + 'type' => 'sockaddr *', + 'name' => 'local' + }, + { + 'type' => 'sockaddr *', + 'name' => 'remote' + }, + { + 'type' => 'int', + 'name' => 'family' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'type' => 'apr_os_sock_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_thread_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_threadkey_t', + 'elts' => [] + }, + { + 'type' => 'apr_other_child_rec_t', + 'elts' => [] + }, + { + 'type' => 'apr_pollfd_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_datatype_e', + 'name' => 'desc_type' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'reqevents' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'rtnevents' + }, + { + 'type' => 'apr_descriptor', + 'name' => 'desc' + }, + { + 'type' => 'void *', + 'name' => 'client_data' + } + ] + }, + { + 'type' => 'apr_pollset_t', + 'elts' => [] + }, + { + 'type' => 'apr_pool_t', + 'elts' => [] + }, + { + 'type' => 'apr_port_t', + 'elts' => [] + }, + { + 'type' => 'apr_proc_mutex_t', + 'elts' => [] + }, + { + 'type' => 'apr_proc_t', + 'elts' => [ + { + 'type' => 'pid_t', + 'name' => 'pid' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'in' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'out' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'err' + } + ] + }, + { + 'type' => 'apr_procattr_t', + 'elts' => [] + }, + { + 'type' => 'apr_queue_t', + 'elts' => [] + }, + { + 'type' => 'apr_read_type_e', + 'elts' => [] + }, + { + 'type' => 'apr_reslist_constructor', + 'elts' => [] + }, + { + 'type' => 'apr_reslist_destructor', + 'elts' => [] + }, + { + 'type' => 'apr_reslist_t', + 'elts' => [] + }, + { + 'type' => 'apr_sdbm_datum_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'dptr' + }, + { + 'type' => 'int', + 'name' => 'dsize' + } + ] + }, + { + 'type' => 'apr_sdbm_t', + 'elts' => [] + }, + { + 'type' => 'apr_seek_where_t', + 'elts' => [] + }, + { + 'type' => 'apr_sha1_ctx_t', + 'elts' => [ + { + 'type' => 'apr_uint32_t[5]', + 'name' => 'digest' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'count_lo' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'count_hi' + }, + { + 'type' => 'apr_uint32_t[16]', + 'name' => 'data' + }, + { + 'type' => 'int', + 'name' => 'local' + } + ] + }, + { + 'type' => 'apr_shm_t', + 'elts' => [] + }, + { + 'type' => 'apr_short_interval_time_t', + 'elts' => [] + }, + { + 'type' => 'apr_shutdown_how_e', + 'elts' => [] + }, + { + 'type' => 'apr_sigfunc_t', + 'elts' => [] + }, + { + 'type' => 'apr_signum_t', + 'elts' => [] + }, + { + 'type' => 'apr_size_t', + 'elts' => [] + }, + { + 'type' => 'apr_sockaddr_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'char *', + 'name' => 'hostname' + }, + { + 'type' => 'char *', + 'name' => 'servname' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'family' + }, + { + 'type' => 'union _ANON 1', + 'name' => 'sa' + }, + { + 'type' => 'apr_socklen_t', + 'name' => 'salen' + }, + { + 'type' => 'int', + 'name' => 'ipaddr_len' + }, + { + 'type' => 'int', + 'name' => 'addr_str_len' + }, + { + 'type' => 'void *', + 'name' => 'ipaddr_ptr' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'next' + } + ] + }, + { + 'type' => 'apr_socket_t', + 'elts' => [] + }, + { + 'type' => 'apr_socklen_t', + 'elts' => [] + }, + { + 'type' => 'apr_ssize_t', + 'elts' => [] + }, + { + 'type' => 'apr_status_t', + 'elts' => [] + }, + { + 'type' => 'apr_strmatch_pattern', + 'elts' => [ + { + 'type' => 'const char *(*)(const apr_strmatch_pattern *this_pattern, + const char *s, apr_size_t slen)', + 'name' => 'compare' + }, + { + 'type' => 'const char *', + 'name' => 'pattern' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'void *', + 'name' => 'context' + } + ] + }, + { + 'type' => 'apr_table_entry_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'char *', + 'name' => 'val' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'key_checksum' + } + ] + }, + { + 'type' => 'apr_table_t', + 'elts' => [] + }, + { + 'type' => 'apr_text', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'text' + }, + { + 'type' => 'apr_text *', + 'name' => 'next' + } + ] + }, + { + 'type' => 'apr_text_header', + 'elts' => [ + { + 'type' => 'apr_text *', + 'name' => 'first' + }, + { + 'type' => 'apr_text *', + 'name' => 'last' + } + ] + }, + { + 'type' => 'apr_thread_cond_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_mutex_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_once_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_rwlock_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_start_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_t', + 'elts' => [] + }, + { + 'type' => 'apr_threadattr_t', + 'elts' => [] + }, + { + 'type' => 'apr_threadkey_t', + 'elts' => [] + }, + { + 'type' => 'apr_time_exp_t', + 'elts' => [ + { + 'type' => 'apr_int32_t', + 'name' => 'tm_usec' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_sec' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_min' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_hour' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_mday' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_mon' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_year' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_wday' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_yday' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_isdst' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_gmtoff' + } + ] + }, + { + 'type' => 'apr_time_t', + 'elts' => [] + }, + { + 'type' => 'apr_uid_t', + 'elts' => [] + }, + { + 'type' => 'apr_uint16_t', + 'elts' => [] + }, + { + 'type' => 'apr_uint32_t', + 'elts' => [] + }, + { + 'type' => 'apr_uint64_t', + 'elts' => [] + }, + { + 'type' => 'apr_uri_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'scheme' + }, + { + 'type' => 'char *', + 'name' => 'hostinfo' + }, + { + 'type' => 'char *', + 'name' => 'user' + }, + { + 'type' => 'char *', + 'name' => 'password' + }, + { + 'type' => 'char *', + 'name' => 'hostname' + }, + { + 'type' => 'char *', + 'name' => 'port_str' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'char *', + 'name' => 'query' + }, + { + 'type' => 'char *', + 'name' => 'fragment' + }, + { + 'type' => 'hostent *', + 'name' => 'hostent' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'unsigned', + 'name' => 'is_initialized' + }, + { + 'type' => 'unsigned', + 'name' => 'dns_looked_up' + }, + { + 'type' => 'unsigned', + 'name' => 'dns_resolved' + } + ] + }, + { + 'type' => 'apr_uuid_t', + 'elts' => [ + { + 'type' => 'unsigned char[16]', + 'name' => 'data' + } + ] + }, + { + 'type' => 'apr_version_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'major' + }, + { + 'type' => 'int', + 'name' => 'minor' + }, + { + 'type' => 'int', + 'name' => 'patch' + }, + { + 'type' => 'int', + 'name' => 'is_dev' + } + ] + }, + { + 'type' => 'apr_vformatter_buff_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'curpos' + }, + { + 'type' => 'char *', + 'name' => 'endpos' + } + ] + }, + { + 'type' => 'apr_wait_how_e', + 'elts' => [] + }, + { + 'type' => 'apr_xlate_t', + 'elts' => [] + }, + { + 'type' => 'apr_xml_attr', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'ns' + }, + { + 'type' => 'const char *', + 'name' => 'value' + }, + { + 'type' => 'apr_xml_attr *', + 'name' => 'next' + } + ] + }, + { + 'type' => 'apr_xml_doc', + 'elts' => [ + { + 'type' => 'apr_xml_elem *', + 'name' => 'root' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'namespaces' + } + ] + }, + { + 'type' => 'apr_xml_elem', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'ns' + }, + { + 'type' => 'const char *', + 'name' => 'lang' + }, + { + 'type' => 'apr_text_header', + 'name' => 'first_cdata' + }, + { + 'type' => 'apr_text_header', + 'name' => 'following_cdata' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'parent' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'next' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'first_child' + }, + { + 'type' => 'apr_xml_attr *', + 'name' => 'attr' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'last_child' + }, + { + 'type' => 'apr_xml_ns_scope *', + 'name' => 'ns_scope' + }, + { + 'type' => 'void *', + 'name' => 'priv' + } + ] + }, + { + 'type' => 'apr_xml_parser', + 'elts' => [] + }, + { + 'type' => 'cmd_func', + 'elts' => [] + }, + { + 'type' => 'cmd_parms', + 'elts' => [ + { + 'type' => 'void *', + 'name' => 'info' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'apr_int64_t', + 'name' => 'limited' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'limited_xmethods' + }, + { + 'type' => 'ap_method_list_t *', + 'name' => 'xlimited' + }, + { + 'type' => 'ap_configfile_t *', + 'name' => 'config_file' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'directive' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'const command_rec *', + 'name' => 'cmd' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'context' + }, + { + 'type' => 'const ap_directive_t *', + 'name' => 'err_directive' + } + ] + }, + { + 'type' => 'command_rec', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'cmd_func', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'cmd_data' + }, + { + 'type' => 'int', + 'name' => 'req_override' + }, + { + 'type' => 'enum cmd_how', + 'name' => 'args_how' + }, + { + 'type' => 'const char *', + 'name' => 'errmsg' + } + ] + }, + { + 'type' => 'conn_rec', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'server_rec *', + 'name' => 'base_server' + }, + { + 'type' => 'void *', + 'name' => 'vhost_lookup_data' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'local_addr' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'remote_addr' + }, + { + 'type' => 'char *', + 'name' => 'remote_ip' + }, + { + 'type' => 'char *', + 'name' => 'remote_host' + }, + { + 'type' => 'char *', + 'name' => 'remote_logname' + }, + { + 'type' => 'unsigned', + 'name' => 'aborted' + }, + { + 'type' => 'ap_conn_keepalive_e', + 'name' => 'keepalive' + }, + { + 'type' => 'signed int', + 'name' => 'double_reverse' + }, + { + 'type' => 'int', + 'name' => 'keepalives' + }, + { + 'type' => 'char *', + 'name' => 'local_ip' + }, + { + 'type' => 'char *', + 'name' => 'local_host' + }, + { + 'type' => 'long', + 'name' => 'id' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'conn_config' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'notes' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'input_filters' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'output_filters' + }, + { + 'type' => 'void *', + 'name' => 'sbh' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'bucket_alloc' + } + ] + }, + { + 'type' => 'core_net_rec', + 'elts' => [] + }, + { + 'type' => 'htaccess_result', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'dir' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'htaccess' + }, + { + 'type' => 'const struct htaccess_result *', + 'name' => 'next' + } + ] + }, + { + 'type' => 'modperl_uri_t', + 'elts' => [ + { + 'type' => 'apr_uri_t', + 'name' => 'uri' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'char *', + 'name' => 'path_info' + } + ] + }, + { + 'type' => 'module', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'version' + }, + { + 'type' => 'int', + 'name' => 'minor_version' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'void *', + 'name' => 'dynamic_load_handle' + }, + { + 'type' => 'module_struct *', + 'name' => 'next' + }, + { + 'type' => 'unsigned long', + 'name' => 'magic' + }, + { + 'type' => 'void(*) (process_rec *process)', + 'name' => 'rewrite_args' + }, + { + 'type' => 'void *(*) (apr_pool_t *p, char *dir)', + 'name' => 'create_dir_config' + }, + { + 'type' => 'void *(*) (apr_pool_t *p, void *base_conf, void *new_conf)', + 'name' => 'merge_dir_config' + }, + { + 'type' => 'void *(*) (apr_pool_t *p, server_rec *s)', + 'name' => 'create_server_config' + }, + { + 'type' => 'void *(*) (apr_pool_t *p, void *base_conf, + void *new_conf)', + 'name' => 'merge_server_config' + }, + { + 'type' => 'const command_rec *', + 'name' => 'cmds' + }, + { + 'type' => 'void(*) (apr_pool_t *p)', + 'name' => 'register_hooks' + } + ] + }, + { + 'type' => 'piped_log', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_file_t *[2]', + 'name' => 'fds' + }, + { + 'type' => 'char *', + 'name' => 'program' + }, + { + 'type' => 'apr_proc_t *', + 'name' => 'pid' + } + ] + }, + { + 'type' => 'process_rec', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'int', + 'name' => 'argc' + }, + { + 'type' => 'const char * const *', + 'name' => 'argv' + }, + { + 'type' => 'const char *', + 'name' => 'short_name' + } + ] + }, + { + 'type' => 'request_rec', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'conn_rec *', + 'name' => 'connection' + }, + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'request_rec *', + 'name' => 'next' + }, + { + 'type' => 'request_rec *', + 'name' => 'prev' + }, + { + 'type' => 'request_rec *', + 'name' => 'main' + }, + { + 'type' => 'char *', + 'name' => 'the_request' + }, + { + 'type' => 'int', + 'name' => 'assbackwards' + }, + { + 'type' => 'int', + 'name' => 'proxyreq' + }, + { + 'type' => 'int', + 'name' => 'header_only' + }, + { + 'type' => 'char *', + 'name' => 'protocol' + }, + { + 'type' => 'int', + 'name' => 'proto_num' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'apr_time_t', + 'name' => 'request_time' + }, + { + 'type' => 'const char *', + 'name' => 'status_line' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'const char *', + 'name' => 'method' + }, + { + 'type' => 'int', + 'name' => 'method_number' + }, + { + 'type' => 'apr_int64_t', + 'name' => 'allowed' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'allowed_xmethods' + }, + { + 'type' => 'ap_method_list_t *', + 'name' => 'allowed_methods' + }, + { + 'type' => 'apr_off_t', + 'name' => 'sent_bodyct' + }, + { + 'type' => 'apr_off_t', + 'name' => 'bytes_sent' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + }, + { + 'type' => 'int', + 'name' => 'chunked' + }, + { + 'type' => 'const char *', + 'name' => 'range' + }, + { + 'type' => 'apr_off_t', + 'name' => 'clength' + }, + { + 'type' => 'apr_off_t', + 'name' => 'remaining' + }, + { + 'type' => 'apr_off_t', + 'name' => 'read_length' + }, + { + 'type' => 'int', + 'name' => 'read_body' + }, + { + 'type' => 'int', + 'name' => 'read_chunked' + }, + { + 'type' => 'unsigned', + 'name' => 'expecting_100' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'headers_in' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'headers_out' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'err_headers_out' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'subprocess_env' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'notes' + }, + { + 'type' => 'const char *', + 'name' => 'content_type' + }, + { + 'type' => 'const char *', + 'name' => 'handler' + }, + { + 'type' => 'const char *', + 'name' => 'content_encoding' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'content_languages' + }, + { + 'type' => 'char *', + 'name' => 'vlist_validator' + }, + { + 'type' => 'char *', + 'name' => 'user' + }, + { + 'type' => 'char *', + 'name' => 'ap_auth_type' + }, + { + 'type' => 'int', + 'name' => 'no_cache' + }, + { + 'type' => 'int', + 'name' => 'no_local_copy' + }, + { + 'type' => 'char *', + 'name' => 'unparsed_uri' + }, + { + 'type' => 'char *', + 'name' => 'uri' + }, + { + 'type' => 'char *', + 'name' => 'filename' + }, + { + 'type' => 'char *', + 'name' => 'canonical_filename' + }, + { + 'type' => 'char *', + 'name' => 'path_info' + }, + { + 'type' => 'char *', + 'name' => 'args' + }, + { + 'type' => 'apr_finfo_t', + 'name' => 'finfo' + }, + { + 'type' => 'apr_uri_t', + 'name' => 'parsed_uri' + }, + { + 'type' => 'int', + 'name' => 'used_path_info' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'per_dir_config' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'request_config' + }, + { + 'type' => 'const struct htaccess_result *', + 'name' => 'htaccess' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'output_filters' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'input_filters' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'proto_output_filters' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'proto_input_filters' + }, + { + 'type' => 'int', + 'name' => 'eos_sent' + } + ] + }, + { + 'type' => 'server_addr_rec', + 'elts' => [ + { + 'type' => 'server_addr_rec *', + 'name' => 'next' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'host_addr' + }, + { + 'type' => 'apr_port_t', + 'name' => 'host_port' + }, + { + 'type' => 'char *', + 'name' => 'virthost' + } + ] + }, + { + 'type' => 'server_rec', + 'elts' => [ + { + 'type' => 'process_rec *', + 'name' => 'process' + }, + { + 'type' => 'server_rec *', + 'name' => 'next' + }, + { + 'type' => 'const char *', + 'name' => 'defn_name' + }, + { + 'type' => 'unsigned', + 'name' => 'defn_line_number' + }, + { + 'type' => 'char *', + 'name' => 'server_admin' + }, + { + 'type' => 'char *', + 'name' => 'server_hostname' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'char *', + 'name' => 'error_fname' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'error_log' + }, + { + 'type' => 'int', + 'name' => 'loglevel' + }, + { + 'type' => 'int', + 'name' => 'is_virtual' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'module_config' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'lookup_defaults' + }, + { + 'type' => 'server_addr_rec *', + 'name' => 'addrs' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'keep_alive_timeout' + }, + { + 'type' => 'int', + 'name' => 'keep_alive_max' + }, + { + 'type' => 'int', + 'name' => 'keep_alive' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'pathlen' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'names' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'wild_names' + }, + { + 'type' => 'int', + 'name' => 'limit_req_line' + }, + { + 'type' => 'int', + 'name' => 'limit_req_fieldsize' + }, + { + 'type' => 'int', + 'name' => 'limit_req_fields' + } + ] + }, + { + 'type' => 'subrequest_rec', + 'elts' => [] + }, + { + 'type' => 'unixd_config_rec', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'user_name' + }, + { + 'type' => 'uid_t', + 'name' => 'user_id' + }, + { + 'type' => 'gid_t', + 'name' => 'group_id' + }, + { + 'type' => 'int', + 'name' => 'suexec_enabled' + } + ] + }, + { + 'type' => 'modperl_interp_t', + 'elts' => [ + { + 'type' => 'modperl_interp_pool_t *', + 'name' => 'mip' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + }, + { + 'type' => 'int', + 'name' => 'num_requests' + }, + { + 'type' => 'U8', + 'name' => 'flags' + }, + { + 'type' => 'modperl_config_con_t *', + 'name' => 'ccfg' + }, + { + 'type' => 'int', + 'name' => 'refcnt' + }, + { + 'type' => 'unsigned long', + 'name' => 'tid' + } + ] + }, + { + 'type' => 'modperl_interp_pool_t', + 'elts' => [ + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'modperl_tipool_config_t *', + 'name' => 'tipool_cfg' + }, + { + 'type' => 'modperl_interp_t *', + 'name' => 'parent' + } + ] + }, + { + 'type' => 'modperl_tipool_t', + 'elts' => [ + { + 'type' => 'perl_mutex', + 'name' => 'tiplock' + }, + { + 'type' => 'perl_cond', + 'name' => 'available' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'idle' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'busy' + }, + { + 'type' => 'int', + 'name' => 'in_use' + }, + { + 'type' => 'int', + 'name' => 'size' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'modperl_tipool_config_t *', + 'name' => 'cfg' + }, + { + 'type' => 'modperl_tipool_vtbl_t *', + 'name' => 'func' + } + ] + }, + { + 'type' => 'modperl_tipool_config_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'start' + }, + { + 'type' => 'int', + 'name' => 'min_spare' + }, + { + 'type' => 'int', + 'name' => 'max_spare' + }, + { + 'type' => 'int', + 'name' => 'max' + }, + { + 'type' => 'int', + 'name' => 'max_requests' + } + ] + } +]; + + +1;
diff --git a/2_0_13/xs/tables/current/ModPerl/FunctionTable.pm b/2_0_13/xs/tables/current/ModPerl/FunctionTable.pm new file mode 100644 index 0000000..e5b47ce --- /dev/null +++ b/2_0_13/xs/tables/current/ModPerl/FunctionTable.pm
@@ -0,0 +1,8296 @@ +# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- +package ModPerl::FunctionTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by ModPerl::ParseSource/0.01 +# ! Mon May 23 14:15:47 2005 +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$ModPerl::FunctionTable = [ + { + 'return_type' => 'int', + 'name' => 'modperl_access_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_apr_array_header2avrv', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'array' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_authen_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_authz_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'modperl_avrv2apr_array_header', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'SV *', + 'name' => 'avrv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_brigade_dump', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'modperl_bucket_sv_create', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'handler' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'AV *', + 'name' => 'args' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_connection', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_files', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_per_dir', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_per_srv', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_pre_connection', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'void *', + 'name' => 'csd' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_callback_process', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_run_handlers', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_cgi_header_parse', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + }, + { + 'type' => 'const char **', + 'name' => 'body' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_child_init_handler', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'modperl_cleanup_data_t *', + 'name' => 'modperl_cleanup_data_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_END', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_access_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_add_var', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg1' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_authen_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_authz_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_child_exit_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_child_init_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_cleanup_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_config_requires', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_fixup_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_header_parser_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_init_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_input_filter_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_max', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_max_requests', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_max_spare', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_min_spare', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_start', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_load_module', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_log_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_map_to_storage_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_modules', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_open_logs_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_options', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_output_filter_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_pass_env', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_perl', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_perldo', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_pod', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_pod_cut', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_post_config_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_post_config_requires', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_post_read_request_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_pre_connection_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_process_connection_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_cmd_push_filter_handlers', + 'args' => [ + { + 'type' => 'MpAV **', + 'name' => 'handlers' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_cmd_push_handlers', + 'args' => [ + { + 'type' => 'MpAV **', + 'name' => 'handlers' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_requires', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_response_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_set_env', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg1' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_set_input_filter', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_set_output_filter', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_set_var', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg1' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_switches', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_trace', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_trans_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_type_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'U16 *', + 'name' => 'modperl_code_attrs', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'CV *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_config_apply_PerlModule', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_config_apply_PerlPostConfigRequire', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_config_apply_PerlRequire', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_config_dir_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char *', + 'name' => 'dir' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_config_dir_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'basev' + }, + { + 'type' => 'void *', + 'name' => 'addv' + } + ] + }, + { + 'return_type' => 'modperl_config_dir_t *', + 'name' => 'modperl_config_dir_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_config_insert', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptmp' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'override_options' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'conf' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_config_insert_parms', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_config_insert_request', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'override_options' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_config_insert_server', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_config_is_perl_option_enabled', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_config_req_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'modperl_config_req_t *', + 'name' => 'modperl_config_req_new', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'modperl_config_con_t *', + 'name' => 'modperl_config_con_new', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_config_request_cleanup', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'char **', + 'name' => 'modperl_config_srv_argv_init', + 'args' => [ + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'int *', + 'name' => 'argc' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_config_srv_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_config_srv_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'basev' + }, + { + 'type' => 'void *', + 'name' => 'addv' + } + ] + }, + { + 'return_type' => 'modperl_config_srv_t *', + 'name' => 'modperl_config_srv_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_const_compile', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char **', + 'name' => 'modperl_constants_group_lookup_apache2_const', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char **', + 'name' => 'modperl_constants_group_lookup_apr_const', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char **', + 'name' => 'modperl_constants_group_lookup_modperl', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_constants_lookup_apache2_const', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_constants_lookup_apr_const', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_constants_lookup_modperl', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_croak', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + }, + { + 'type' => 'const char*', + 'name' => 'func' + } + ] + }, + { + 'return_type' => 'unsigned long', + 'name' => 'modperl_debug_level', + 'args' => [] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_dir_config', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'sv_val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_clear', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_configure_request_dir', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_configure_request_srv', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_configure_server', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_default_populate', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_hash_keys', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_hv_store', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_init', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_request_populate', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_request_tie', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_request_unpopulate', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_request_untie', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_sync_dir_env_hash2table', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_config_dir_t *', + 'name' => 'dcfg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_sync_srv_env_hash2table', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_unload', + 'args' => [] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_error_strerror', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_errsv', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_errsv_prepend', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'pat' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_file2package', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'U32 *', + 'name' => 'modperl_filter_attributes', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'SV *', + 'name' => 'package' + }, + { + 'type' => 'SV *', + 'name' => 'cvrv' + } + ] + }, + { + 'return_type' => 'modperl_filter_t *', + 'name' => 'modperl_filter_mg_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'obj' + } + ] + }, + { + 'return_type' => 'modperl_filter_t *', + 'name' => 'modperl_filter_new', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'modperl_filter_mode_e', + 'name' => 'mode' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'input_mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_filter_resolve_init_handler', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'handler' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_filter_runtime_add', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'modperl_filter_mode_e', + 'name' => 'mode' + }, + { + 'type' => 'modperl_filter_add_t', + 'name' => 'addfunc' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + }, + { + 'type' => 'const char *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_fixup_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'U32', + 'name' => 'modperl_flags_lookup_dir', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'U32', + 'name' => 'modperl_flags_lookup_srv', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_get_perl_module_config', + 'args' => [ + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_anon_cnt_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_global_anon_cnt_next', + 'args' => [] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_global_get', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'modperl_global_get_pconf', + 'args' => [] + }, + { + 'return_type' => 'server_rec *', + 'name' => 'modperl_global_get_server_rec', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_init', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_init_pconf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_init_server_rec', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec * server_rec', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_lock', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_lock_pconf', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_lock_server_rec', + 'args' => [] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'modperl_global_request', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'svr' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_request_cfg_set', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_request_obj_set', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'svr' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_request_set', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_set', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_set_pconf', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_set_server_rec', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_unlock', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_unlock_pconf', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_unlock_server_rec', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_handler_anon_add', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'anon' + }, + { + 'type' => 'CV *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'CV *', + 'name' => 'modperl_handler_anon_get', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'anon' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_handler_anon_init', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'modperl_mgv_t *', + 'name' => 'modperl_handler_anon_next', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'MpAV *', + 'name' => 'modperl_handler_array_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'MpAV *', + 'name' => 'base_a' + }, + { + 'type' => 'MpAV *', + 'name' => 'add_a' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_connection', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_files', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_per_dir', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_per_srv', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_pre_connection', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_process', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'modperl_handler_t *', + 'name' => 'modperl_handler_dup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'h' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_equal', + 'args' => [ + { + 'type' => 'modperl_handler_t *', + 'name' => 'h1' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'h2' + } + ] + }, + { + 'return_type' => 'MpAV **', + 'name' => 'modperl_handler_get_handlers', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'modperl_handler_action_e', + 'name' => 'action' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_lookup', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'MpAV **', + 'name' => 'modperl_handler_lookup_handlers', + 'args' => [ + { + 'type' => 'modperl_config_dir_t *', + 'name' => 'dcfg' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'modperl_config_req_t *', + 'name' => 'rcfg' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'modperl_handler_action_e', + 'name' => 'action' + }, + { + 'type' => 'const char **', + 'name' => 'desc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_handler_make_args', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'AV **', + 'name' => 'avp' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_name', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_handler_t *', + 'name' => 'handler' + } + ] + }, + { + 'return_type' => 'modperl_handler_t *', + 'name' => 'modperl_handler_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'modperl_handler_t *', + 'name' => 'modperl_handler_new_from_sv', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_perl_add_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'modperl_handler_action_e', + 'name' => 'action' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_handler_perl_get_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'MpAV **', + 'name' => 'handp' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_push_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'MpAV *', + 'name' => 'handlers' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_resolve', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_handler_t **', + 'name' => 'handp' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_hash_seed_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_hash_seed_set', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_hash_tie', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + }, + { + 'type' => 'void *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_hash_tied_object', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_hash_tied_object_rv', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_header_parser_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_hook_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_hook_pre_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_init', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_init_globals', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_init_vhost', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 'base_server' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_input_filter_add_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_input_filter_add_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_input_filter_flush', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_input_filter_handler', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'input_mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'modperl_input_filter_read', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'wanted' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_input_filter_write', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_interp_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_clone_init', + 'args' => [ + { + 'type' => 'modperl_interp_t *', + 'name' => 'interp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_destroy', + 'args' => [ + { + 'type' => 'modperl_interp_t *', + 'name' => 'interp' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_get', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_init', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_mip_walk', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'current_perl' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'parent_perl' + }, + { + 'type' => 'modperl_interp_pool_t *', + 'name' => 'mip' + }, + { + 'type' => 'modperl_interp_mip_walker_t', + 'name' => 'walker' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_mip_walk_servers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'current_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 'base_server' + }, + { + 'type' => 'modperl_interp_mip_walker_t', + 'name' => 'walker' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_new', + 'args' => [ + { + 'type' => 'modperl_interp_pool_t *', + 'name' => 'mip' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_interp_pool_destroy', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_pool_get', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_pool_select', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_pool_set', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_interp_t *', + 'name' => 'interp' + }, + { + 'type' => 'int', + 'name' => 'cleanup' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_select', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_interp_unselect', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_apache_init', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_handle_tie', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + }, + { + 'type' => 'char *', + 'name' => 'classname' + }, + { + 'type' => 'void *', + 'name' => 'ptr' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_io_handle_tied', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + }, + { + 'type' => 'char *', + 'name' => 'classname' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_handle_untie', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_io_perlio_override_stdin', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_io_perlio_override_stdout', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_perlio_restore_stdin', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_perlio_restore_stdout', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_io_tie_stdin', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_io_tie_stdout', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_is_running', + 'args' => [] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_append', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'new_list' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_first', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_last', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_new', + 'args' => [] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_prepend', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'new_list' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_remove', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'rlist' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_remove_data', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'modperl_list_t **', + 'name' => 'listp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_log_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_map_to_storage_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_mgv_append', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_mgv_as_string', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'modperl_mgv_t *', + 'name' => 'modperl_mgv_compile', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_mgv_equal', + 'args' => [ + { + 'type' => 'modperl_mgv_t *', + 'name' => 'mgv1' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'mgv2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_mgv_hash_handlers', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'modperl_mgv_t *', + 'name' => 'modperl_mgv_last', + 'args' => [ + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_mgv_last_name', + 'args' => [ + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_mgv_lookup', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_mgv_lookup_autoload', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'modperl_mgv_t *', + 'name' => 'modperl_mgv_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_mgv_require_module', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_mgv_resolve', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'handler' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'logfailure' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_modglobal_hash_keys', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'modperl_modglobal_key_t *', + 'name' => 'modperl_modglobal_lookup', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_module_add', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'mod_cmds' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_module_config_get_obj', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'pmodule' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'v' + } + ] + }, + { + 'return_type' => 'PTR_TBL_t *', + 'name' => 'modperl_module_config_table_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'int', + 'name' => 'create' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_module_config_table_set', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'table' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_newSVsv_obj', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'stashsv' + }, + { + 'type' => 'SV *', + 'name' => 'obj' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_open_logs_handler', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'modperl_options_t *', + 'name' => 'modperl_options_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_options_t *', + 'name' => 'base' + }, + { + 'type' => 'modperl_options_t *new', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'modperl_options_t *', + 'name' => 'modperl_options_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_options_set', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_options_t *', + 'name' => 'o' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_output_filter_add_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_output_filter_add_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_output_filter_flush', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_output_filter_handler', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'modperl_output_filter_read', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'wanted' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_output_filter_write', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_package_unload', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_av_push_elts_ref', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'AV *', + 'name' => 'dst' + }, + { + 'type' => 'AV *', + 'name' => 'src' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_call_endav', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_call_list', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'AV *', + 'name' => 'subs' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_core_global_init', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_destruct', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_perl_destruct_level', + 'args' => [] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_do_join', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_do_sprintf', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'I32', + 'name' => 'len' + }, + { + 'type' => 'SV **', + 'name' => 'sarg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_exit', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_gensym', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'pack' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_avcv_call', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_modglobal_key_t *', + 'name' => 'gkey' + }, + { + 'type' => 'const char *', + 'name' => 'package' + }, + { + 'type' => 'I32', + 'name' => 'packlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_avcv_clear', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_modglobal_key_t *', + 'name' => 'gkey' + }, + { + 'type' => 'const char *', + 'name' => 'package' + }, + { + 'type' => 'I32', + 'name' => 'packlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_avcv_register', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_modglobal_key_t *', + 'name' => 'gkey' + }, + { + 'type' => 'const char *', + 'name' => 'package' + }, + { + 'type' => 'I32', + 'name' => 'packlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_request_restore', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_request_save', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'HE *', + 'name' => 'modperl_perl_hv_fetch_he', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'HV *', + 'name' => 'hv' + }, + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'I32', + 'name' => 'klen' + }, + { + 'type' => 'U32', + 'name' => 'hash' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_init_ids_server', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_perl_module_loaded', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_pp_set', + 'args' => [ + { + 'type' => 'modperl_perl_opcode_e', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_pp_set_all', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_pp_unset', + 'args' => [ + { + 'type' => 'modperl_perl_opcode_e', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_pp_unset_all', + 'args' => [] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_sv_setref_uv', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'rv' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'UV', + 'name' => 'uv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_pnotes', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'HV **', + 'name' => 'pnotes' + }, + { + 'type' => 'SV *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'val' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_pnotes_kill', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'cl_data' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_post_config_handler', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_post_post_config_phase', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_post_read_request_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_pre_connection_handler', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'void *', + 'name' => 'csd' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_process_connection_handler', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_ptr2obj', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'classname' + }, + { + 'type' => 'void *', + 'name' => 'ptr' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_register_handler_hooks', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_register_hooks', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ssize_t', + 'name' => 'modperl_request_read', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_require_file', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'pv' + }, + { + 'type' => 'int', + 'name' => 'logfailure' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_require_module', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'pv' + }, + { + 'type' => 'int', + 'name' => 'logfailure' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_response_finish', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_response_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_response_handler_cgi', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_response_init', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_restart_count', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_restart_count_inc', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 'base_server' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_run', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_run_filter', + 'args' => [ + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_server_desc', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'modperl_server_pool', + 'args' => [] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'modperl_server_user_pool', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_set_perl_module_config', + 'args' => [ + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'cv' + }, + { + 'type' => 'void *', + 'name' => 'cfg' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_slurp_filename', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'tainted' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_spawn_proc_prog', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'command' + }, + { + 'type' => 'const char ***', + 'name' => 'argv' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'script_in' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'script_out' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'script_err' + } + ] + }, + { + 'return_type' => 'PerlInterpreter *', + 'name' => 'modperl_startup', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_str_toupper', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'modperl_sv2request_rec', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'server_rec *', + 'name' => 'modperl_sv2server_rec', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_clear', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + } + ] + }, + { + 'return_type' => 'PTR_TBL_t *', + 'name' => 'modperl_svptr_table_clone', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'proto_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'source' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_delete', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + }, + { + 'type' => 'void *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_destroy', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_svptr_table_fetch', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + }, + { + 'type' => 'void *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_free', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + } + ] + }, + { + 'return_type' => 'PTR_TBL_t *', + 'name' => 'modperl_svptr_table_new', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_split', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_store', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + }, + { + 'type' => 'void *', + 'name' => 'oldv' + }, + { + 'type' => 'void *', + 'name' => 'newv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_sys_dlclose', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_sys_is_dir', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_table_get_set', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'table' + }, + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'sv_val' + }, + { + 'type' => 'int', + 'name' => 'do_taint' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_threaded_mpm', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_threads_started', + 'args' => [] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_thx_interp_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'thx', + }, + ], + }, + { + 'return_type' => 'void', + 'name' => 'modperl_thx_interp_set', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'thx', + }, + { + 'type' => 'modperl_interp_t *', + 'name' => 'interp', + }, + ], + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_add', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_destroy', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_init', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + } + ] + }, + { + 'return_type' => 'modperl_tipool_t *', + 'name' => 'modperl_tipool_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_tipool_config_t *', + 'name' => 'cfg' + }, + { + 'type' => 'void *', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_tipool_pop', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_putback', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'listp' + }, + { + 'type' => 'int', + 'name' => 'num_requests' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_putback_data', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'int', + 'name' => 'num_requests' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_remove', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'listp' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_tls_t **', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_create_request_rec', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_get', + 'args' => [ + { + 'type' => 'modperl_tls_t *', + 'name' => 'key' + }, + { + 'type' => 'void **', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_get_request_rec', + 'args' => [ + { + 'type' => 'request_rec * *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tls_reset_cleanup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_tls_t *', + 'name' => 'key' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tls_reset_cleanup_request_rec', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'request_rec *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_set', + 'args' => [ + { + 'type' => 'modperl_tls_t *', + 'name' => 'key' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_set_request_rec', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'func' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace_level_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'logfile' + }, + { + 'type' => 'const char *', + 'name' => 'level' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace_logfile_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'logfile_new' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_trans_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_type_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'modperl_uri_t *', + 'name' => 'modperl_uri_new', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_wbucket_flush', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_wbucket_t *', + 'name' => 'b' + }, + { + 'type' => 'int', + 'name' => 'add_flush_bucket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_wbucket_pass', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_wbucket_t *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'int', + 'name' => 'add_flush_bucket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_wbucket_write', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_wbucket_t *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'wlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_xs_dl_handles_clear', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_xs_dl_handles_close', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'handles' + } + ] + }, + { + 'return_type' => 'void **', + 'name' => 'modperl_xs_dl_handles_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'modperl_xs_sv2request_rec', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'char *', + 'name' => 'classname' + }, + { + 'type' => 'CV *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_cleanup', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_concat', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_destroy', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Brigade_first', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_APR__Brigade_flatten', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_insert_head', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_insert_tail', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Brigade_is_empty', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Brigade_last', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Brigade_length', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'int', + 'name' => 'read_all' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Brigade_next', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'mpxs_APR__Brigade_pool', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Brigade_prev', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__BucketAlloc_new', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'CLASS' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Bucket_insert_after', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Bucket_insert_before', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Bucket_is_eos', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Bucket_is_flush', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Bucket_new', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_APR__Bucket_read', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Bucket_remove', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_APR__Bucket_setaside', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'b_sv' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Finfo_stat', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'U32', + 'name' => 'mpxs_APR__OS_current_thread_id', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Pool_clear', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'obj' + } + ] + }, + { + 'return_type' => 'apr_int32_t', + 'name' => 'mpxs_APR__Socket_opt_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Socket_opt_set', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_APR__Socket_poll', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'reqevents' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_APR__Socket_recv', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Socket_timeout_set', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Socket_fileno', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__String_strfsize', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_off_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Table_EXISTS', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_APR__Table_FETCH', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + }, + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_APR__Table_NEXTKEY', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + }, + { + 'type' => 'SV *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Table_copy', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'base' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Table_make', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'int', + 'name' => 'nelts' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Table_overlay', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'base' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'overlay' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'mpxs_APR__URI_port', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'uri' + }, + { + 'type' => 'SV *', + 'name' => 'portsv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__URI_rpath', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'apr_uri' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__CmdParms_add_config', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__CmdParms_info', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__CmdParms_override_opts', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Connection_add_input_filter', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Connection_add_output_filter', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + } + ] + }, + { + 'return_type' => 'apr_socket_t *', + 'name' => 'mpxs_Apache2__Connection_client_socket', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__Connection_get_remote_host', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'dir_config' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Connection_pnotes', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'SV *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Connection_pnotes_kill', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Directive_as_hash', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'tree' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Directive_as_string', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'self' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Filter_ctx', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'SV *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_Apache2__Filter_fflush', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_Apache2__Filter_get_brigade', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_Apache2__Filter_pass_brigade', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_Apache2__Filter_print', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_Apache2__Filter_read', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Filter_remove', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Filter_seen_eos', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Log_BOOT', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Log_log', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'int', + 'name' => 'logtype' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__MPM_BOOT', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__MPM_query', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'self' + }, + { + 'type' => 'int', + 'name' => 'query_code' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Module_add', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'package' + }, + { + 'type' => 'SV *', + 'name' => 'cmds' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__Module_ap_api_major_version', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'module *', + 'name' => 'mod' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__Module_ap_api_minor_version', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'module *', + 'name' => 'mod' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Module_get_config', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'pmodule' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'v' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__Module_loaded', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_FILENO', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_GETC', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_OPEN', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'self' + }, + { + 'type' => 'SV *', + 'name' => 'arg1' + }, + { + 'type' => 'SV *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_add_config', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'override_options' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_add_input_filter', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_add_output_filter', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_allow_override_opts', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_as_string', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_auth_name', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_auth_type', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_child_terminate', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_content_languages', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'languages' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_content_type', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_document_root', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'new_root' + } + ] + }, + { + 'return_type' => 'apr_finfo_t *', + 'name' => 'mpxs_Apache2__RequestRec_finfo', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_get_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_handler', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_is_perl_option_enabled', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'mpxs_Apache2__RequestRec_location', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_location_merge', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'location' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_new', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'SV *', + 'name' => 'base_pool_sv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_no_cache', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'flag' + } + ] + }, + { + 'return_type' => 'apr_uri_t *', + 'name' => 'mpxs_Apache2__RequestRec_parsed_uri', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_pnotes', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_pnotes_kill', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_print', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_proxyreq', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_push_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_read', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_rflush', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_Apache2__RequestRec_sendfile', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_set_basic_credentials', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'username' + }, + { + 'type' => 'char *', + 'name' => 'password' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_set_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => '', + 'name' => 'mpxs_Apache2__RequestRec_set_last_modified', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_subprocess_env', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_Apache2__RequestRec_write', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'mpxs_Apache2__RequestUtil_request', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'svr' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__ServerRec_add_config', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__ServerRec_get_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__ServerRec_is_perl_option_enabled', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__ServerRec_push_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__ServerRec_set_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__ServerUtil_BOOT', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__ServerUtil_server_shutdown_cleanup_register', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'cv' + }, + { + 'type' => 'SV *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_ModPerl__Global_special_list_call', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_ModPerl__Global_special_list_clear', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_ModPerl__Global_special_list_register', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_ModPerl__Util_untaint', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_ap_allow_methods', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'long', + 'name' => 'mpxs_ap_get_client_block', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'int', + 'name' => 'bufsiz' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_ap_log_error', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'SV *', + 'name' => 'msg' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_ap_requires', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_ap_rprintf', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_ap_run_sub_req', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_ap_rvputs', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'mpxs_ap_unescape_url', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_apr_base64_decode', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'SV *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_apr_base64_encode', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'SV *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_brigade_create', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'CLASS' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'ba' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_ipsubnet_create', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'const char *', + 'name' => 'ipstr' + }, + { + 'type' => 'const char *', + 'name' => 'mask_or_numbits' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_apr_password_validate', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'passwd' + }, + { + 'type' => 'const char *', + 'name' => 'hash' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_apr_pool_DESTROY', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'obj' + } + ] + }, + { + 'return_type' => '', + 'name' => 'mpxs_apr_pool_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'cleanup_data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_apr_pool_cleanup_register', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'SV *', + 'name' => 'cv' + }, + { + 'type' => 'SV *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_pool_create', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'parent_pool_obj' + } + ] + }, + { + 'return_type' => '', + 'name' => 'mpxs_apr_pool_parent_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'child_pool' + } + ] + }, + { + 'return_type' => '', + 'name' => 'mpxs_apr_sockaddr_ip_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_apr_socket_send', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'SV *', + 'name' => 'sv_buf' + }, + { + 'type' => 'SV *', + 'name' => 'sv_len' + } + ] + }, + { + 'return_type' => 'apr_interval_time_t', + 'name' => 'mpxs_apr_socket_timeout_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_apr_table_do', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_apr_table_do_cb', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_thread_mutex_create', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'unsigned int', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_thread_rwlock_create', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_uri_parse', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'const char *', + 'name' => 'uri_string' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'mpxs_apr_uri_unparse', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'uptr' + }, + { + 'type' => 'unsigned', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_uuid_t *', + 'name' => 'mpxs_apr_uuid_get', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'CLASS' + } + ] + }, + { + 'return_type' => 'apr_uuid_t *', + 'name' => 'mpxs_apr_uuid_parse', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'CLASS' + }, + { + 'type' => 'char *', + 'name' => 'buf' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_cleanup_run', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_insert_auth_cfg', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'directive' + }, + { + 'type' => 'char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_setup_client_block', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_special_list_do', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'package' + }, + { + 'type' => 'mpxs_special_list_do_t', + 'name' => 'func' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'mpxs_ModPerl__Interpreter_current', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'class' + } + ] + } +]; + + +1;
diff --git a/2_0_13/xs/tables/current24/APR/FunctionTable.pm b/2_0_13/xs/tables/current24/APR/FunctionTable.pm new file mode 100644 index 0000000..cf3d278 --- /dev/null +++ b/2_0_13/xs/tables/current24/APR/FunctionTable.pm
@@ -0,0 +1,228 @@ +package APR::FunctionTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: this file was manually generated on +# ! Tue Jun 22 22:00:00 2004 +# ! It contains a subset of functions appearing in +# ! ModPerl::FunctionTable used to build APR.so +# ! Eventually this will be autogenerated by +# ! Apache::ParseSource +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$APR::FunctionTable = [ + { + 'return_type' => 'void', + 'name' => 'modperl_trace', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'func' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace_level_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'logfile' + }, + { + 'type' => 'const char *', + 'name' => 'level' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace_logfile_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'logfile_new' + } + ] + }, + { + 'return_type' => 'unsigned long', + 'name' => 'modperl_debug_level', + 'args' => [] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_hash_tie', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + }, + { + 'type' => 'void *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_hash_tied_object', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_sv_setref_uv', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'rv' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'UV', + 'name' => 'uv' + } + ] + }, + { + 'return_type' => 'modperl_uri_t *', + 'name' => 'modperl_uri_new', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_gensym', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'pack' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_error_strerror', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_croak', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + }, + { + 'type' => 'const char*', + 'name' => 'func' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_interp_unselect', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'modperl_bucket_sv_create', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, +]; + +1;
diff --git a/2_0_13/xs/tables/current24/Apache2/ConstantsTable.pm b/2_0_13/xs/tables/current24/Apache2/ConstantsTable.pm new file mode 100644 index 0000000..f54adfd --- /dev/null +++ b/2_0_13/xs/tables/current24/Apache2/ConstantsTable.pm
@@ -0,0 +1,545 @@ +package Apache2::ConstantsTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by Apache2::ParseSource/0.02 +# ! Mon Jul 1 12:38:09 2013 +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$Apache2::ConstantsTable = { + 'ModPerl' => { + 'common' => [ + 'MODPERL_RC_EXIT' + ] + }, + 'Apache2::Const' => { + 'types' => [ + 'DIR_MAGIC_TYPE' + ], + 'satisfy' => [ + 'SATISFY_ALL', + 'SATISFY_ANY', + 'SATISFY_NOSPEC' + ], + 'remotehost' => [ + 'REMOTE_HOST', + 'REMOTE_NAME', + 'REMOTE_NOLOOKUP', + 'REMOTE_DOUBLE_REV' + ], + 'proxy' => [ + 'PROXYREQ_NONE', + 'PROXYREQ_PROXY', + 'PROXYREQ_REVERSE', + 'PROXYREQ_RESPONSE' + ], + 'platform' => [ + 'LF', + 'CR', + 'CRLF', + 'CRLF_ASCII' + ], + 'override' => [ + 'OR_NONE', + 'OR_LIMIT', + 'OR_OPTIONS', + 'OR_FILEINFO', + 'OR_AUTHCFG', + 'OR_INDEXES', + 'OR_UNSET', + 'ACCESS_CONF', + 'RSRC_CONF', + 'EXEC_ON_READ', + 'OR_ALL' + ], + 'options' => [ + 'OPT_NONE', + 'OPT_INDEXES', + 'OPT_INCLUDES', + 'OPT_SYM_LINKS', + 'OPT_EXECCGI', + 'OPT_UNSET', + 'OPT_INC_WITH_EXEC', + 'OPT_SYM_OWNER', + 'OPT_MULTI', + 'OPT_ALL' + ], + 'mpmq' => [ + 'AP_MPMQ_NOT_SUPPORTED', + 'AP_MPMQ_STATIC', + 'AP_MPMQ_DYNAMIC', + 'AP_MPMQ_STARTING', + 'AP_MPMQ_RUNNING', + 'AP_MPMQ_STOPPING', + 'AP_MPMQ_MAX_DAEMON_USED', + 'AP_MPMQ_IS_THREADED', + 'AP_MPMQ_IS_FORKED', + 'AP_MPMQ_HARD_LIMIT_DAEMONS', + 'AP_MPMQ_HARD_LIMIT_THREADS', + 'AP_MPMQ_MAX_THREADS', + 'AP_MPMQ_MIN_SPARE_DAEMONS', + 'AP_MPMQ_MIN_SPARE_THREADS', + 'AP_MPMQ_MAX_SPARE_DAEMONS', + 'AP_MPMQ_MAX_SPARE_THREADS', + 'AP_MPMQ_MAX_REQUESTS_DAEMON', + 'AP_MPMQ_MAX_DAEMONS', + 'AP_MPMQ_MPM_STATE', + 'AP_MPMQ_IS_ASYNC', + 'AP_MPMQ_GENERATION', + 'AP_MPMQ_HAS_SERF' + ], + 'methods' => [ + 'M_GET', + 'M_PUT', + 'M_POST', + 'M_DELETE', + 'M_CONNECT', + 'M_OPTIONS', + 'M_TRACE', + 'M_PATCH', + 'M_PROPFIND', + 'M_PROPPATCH', + 'M_MKCOL', + 'M_COPY', + 'M_MOVE', + 'M_LOCK', + 'M_UNLOCK', + 'M_VERSION_CONTROL', + 'M_CHECKOUT', + 'M_UNCHECKOUT', + 'M_CHECKIN', + 'M_UPDATE', + 'M_LABEL', + 'M_REPORT', + 'M_MKWORKSPACE', + 'M_MKACTIVITY', + 'M_BASELINE_CONTROL', + 'M_MERGE', + 'M_INVALID', + 'METHODS' + ], + 'log' => [ + 'APLOG_EMERG', + 'APLOG_ALERT', + 'APLOG_CRIT', + 'APLOG_ERR', + 'APLOG_WARNING', + 'APLOG_NOTICE', + 'APLOG_INFO', + 'APLOG_DEBUG', + 'APLOG_TRACE1', + 'APLOG_TRACE2', + 'APLOG_TRACE3', + 'APLOG_TRACE4', + 'APLOG_TRACE5', + 'APLOG_TRACE6', + 'APLOG_TRACE7', + 'APLOG_TRACE8', + 'APLOG_LEVELMASK', + 'APLOG_TOCLIENT', + 'APLOG_STARTUP', + 'APLOG_NO_MODULE', + 'APLOG_MODULE_INDEX' + ], + 'input_mode' => [ + 'AP_MODE_READBYTES', + 'AP_MODE_GETLINE', + 'AP_MODE_EATCRLF', + 'AP_MODE_SPECULATIVE', + 'AP_MODE_EXHAUSTIVE', + 'AP_MODE_INIT' + ], + 'http' => [ + 'HTTP_CONTINUE', + 'HTTP_SWITCHING_PROTOCOLS', + 'HTTP_PROCESSING', + 'HTTP_OK', + 'HTTP_CREATED', + 'HTTP_ACCEPTED', + 'HTTP_NON_AUTHORITATIVE', + 'HTTP_NO_CONTENT', + 'HTTP_RESET_CONTENT', + 'HTTP_PARTIAL_CONTENT', + 'HTTP_MULTI_STATUS', + 'HTTP_ALREADY_REPORTED', + 'HTTP_IM_USED', + 'HTTP_MULTIPLE_CHOICES', + 'HTTP_MOVED_PERMANENTLY', + 'HTTP_MOVED_TEMPORARILY', + 'HTTP_SEE_OTHER', + 'HTTP_NOT_MODIFIED', + 'HTTP_USE_PROXY', + 'HTTP_TEMPORARY_REDIRECT', + 'HTTP_PERMANENT_REDIRECT', + 'HTTP_BAD_REQUEST', + 'HTTP_UNAUTHORIZED', + 'HTTP_PAYMENT_REQUIRED', + 'HTTP_FORBIDDEN', + 'HTTP_NOT_FOUND', + 'HTTP_METHOD_NOT_ALLOWED', + 'HTTP_NOT_ACCEPTABLE', + 'HTTP_PROXY_AUTHENTICATION_REQUIRED', + 'HTTP_REQUEST_TIME_OUT', + 'HTTP_CONFLICT', + 'HTTP_GONE', + 'HTTP_LENGTH_REQUIRED', + 'HTTP_PRECONDITION_FAILED', + 'HTTP_REQUEST_ENTITY_TOO_LARGE', + 'HTTP_REQUEST_URI_TOO_LARGE', + 'HTTP_UNSUPPORTED_MEDIA_TYPE', + 'HTTP_RANGE_NOT_SATISFIABLE', + 'HTTP_EXPECTATION_FAILED', + 'HTTP_UNPROCESSABLE_ENTITY', + 'HTTP_LOCKED', + 'HTTP_FAILED_DEPENDENCY', + 'HTTP_UPGRADE_REQUIRED', + 'HTTP_PRECONDITION_REQUIRED', + 'HTTP_TOO_MANY_REQUESTS', + 'HTTP_REQUEST_HEADER_FIELDS_TOO_LARGE', + 'HTTP_INTERNAL_SERVER_ERROR', + 'HTTP_NOT_IMPLEMENTED', + 'HTTP_BAD_GATEWAY', + 'HTTP_SERVICE_UNAVAILABLE', + 'HTTP_GATEWAY_TIME_OUT', + 'HTTP_VARIANT_ALSO_VARIES', + 'HTTP_INSUFFICIENT_STORAGE', + 'HTTP_LOOP_DETECTED', + 'HTTP_NOT_EXTENDED', + 'HTTP_NETWORK_AUTHENTICATION_REQUIRED' + ], + 'filter_type' => [ + 'AP_FTYPE_RESOURCE', + 'AP_FTYPE_CONTENT_SET', + 'AP_FTYPE_PROTOCOL', + 'AP_FTYPE_TRANSCODE', + 'AP_FTYPE_CONNECTION', + 'AP_FTYPE_NETWORK' + ], + 'context' => [ + 'NOT_IN_VIRTUALHOST', + 'NOT_IN_LIMIT', + 'NOT_IN_DIRECTORY', + 'NOT_IN_LOCATION', + 'NOT_IN_FILES', + 'NOT_IN_HTACCESS', + 'NOT_IN_DIR_LOC_FILE', + 'GLOBAL_ONLY' + ], + 'conn_keepalive' => [ + 'AP_CONN_UNKNOWN', + 'AP_CONN_CLOSE', + 'AP_CONN_KEEPALIVE' + ], + 'config' => [ + 'DECLINE_CMD' + ], + 'common' => [ + 'OK', + 'DECLINED', + 'DONE', + 'NOT_FOUND', + 'FORBIDDEN', + 'AUTH_REQUIRED', + 'SERVER_ERROR', + 'REDIRECT' + ], + 'cmd_how' => [ + 'RAW_ARGS', + 'TAKE1', + 'TAKE2', + 'ITERATE', + 'ITERATE2', + 'FLAG', + 'NO_ARGS', + 'TAKE12', + 'TAKE3', + 'TAKE23', + 'TAKE123', + 'TAKE13', + 'TAKE_ARGV' + ], + 'authz_status' => [ + 'AUTHZ_DENIED', + 'AUTHZ_GRANTED', + 'AUTHZ_NEUTRAL', + 'AUTHZ_GENERAL_ERROR', + 'AUTHZ_DENIED_NO_USER' + ], + 'authn_status' => [ + 'AUTH_DENIED', + 'AUTH_GRANTED', + 'AUTH_USER_FOUND', + 'AUTH_USER_NOT_FOUND', + 'AUTH_GENERAL_ERROR' + ], + 'auth' => [ + 'AUTHN_PROVIDER_GROUP', + 'AUTHZ_PROVIDER_GROUP', + 'AUTHN_PROVIDER_VERSION', + 'AUTHZ_PROVIDER_VERSION', + 'AUTHN_DEFAULT_PROVIDER', + 'AUTHN_PROVIDER_NAME_NOTE', + 'AUTHZ_PROVIDER_NAME_NOTE', + 'AUTHN_PREFIX', + 'AUTHZ_PREFIX', + 'AP_AUTH_INTERNAL_PER_URI', + 'AP_AUTH_INTERNAL_PER_CONF', + 'AP_AUTH_INTERNAL_MASK' + ] + }, + 'APR::Const' => { + 'uri' => [ + 'APR_URI_FTP_DEFAULT_PORT', + 'APR_URI_SSH_DEFAULT_PORT', + 'APR_URI_TELNET_DEFAULT_PORT', + 'APR_URI_GOPHER_DEFAULT_PORT', + 'APR_URI_HTTP_DEFAULT_PORT', + 'APR_URI_POP_DEFAULT_PORT', + 'APR_URI_NNTP_DEFAULT_PORT', + 'APR_URI_IMAP_DEFAULT_PORT', + 'APR_URI_PROSPERO_DEFAULT_PORT', + 'APR_URI_WAIS_DEFAULT_PORT', + 'APR_URI_LDAP_DEFAULT_PORT', + 'APR_URI_HTTPS_DEFAULT_PORT', + 'APR_URI_RTSP_DEFAULT_PORT', + 'APR_URI_SNEWS_DEFAULT_PORT', + 'APR_URI_ACAP_DEFAULT_PORT', + 'APR_URI_NFS_DEFAULT_PORT', + 'APR_URI_TIP_DEFAULT_PORT', + 'APR_URI_SIP_DEFAULT_PORT', + 'APR_URI_UNP_OMITSITEPART', + 'APR_URI_UNP_OMITUSER', + 'APR_URI_UNP_OMITPASSWORD', + 'APR_URI_UNP_OMITUSERINFO', + 'APR_URI_UNP_REVEALPASSWORD', + 'APR_URI_UNP_OMITPATHINFO', + 'APR_URI_UNP_OMITQUERY' + ], + 'table' => [ + 'APR_OVERLAP_TABLES_SET', + 'APR_OVERLAP_TABLES_MERGE' + ], + 'status' => [ + 'APR_TIMEUP' + ], + 'socket' => [ + 'APR_SO_LINGER', + 'APR_SO_KEEPALIVE', + 'APR_SO_DEBUG', + 'APR_SO_NONBLOCK', + 'APR_SO_REUSEADDR', + 'APR_SO_SNDBUF', + 'APR_SO_RCVBUF', + 'APR_SO_DISCONNECTED' + ], + 'shutdown_how' => [ + 'APR_SHUTDOWN_READ', + 'APR_SHUTDOWN_WRITE', + 'APR_SHUTDOWN_READWRITE' + ], + 'read_type' => [ + 'APR_BLOCK_READ', + 'APR_NONBLOCK_READ' + ], + 'poll' => [ + 'APR_POLLIN', + 'APR_POLLPRI', + 'APR_POLLOUT', + 'APR_POLLERR', + 'APR_POLLHUP', + 'APR_POLLNVAL', + 'APR_POLLSET_THREADSAFE', + 'APR_POLLSET_NOCOPY', + 'APR_POLLSET_WAKEABLE', + 'APR_POLLSET_NODEFAULT' + ], + 'lockmech' => [ + 'APR_LOCK_FCNTL', + 'APR_LOCK_FLOCK', + 'APR_LOCK_SYSVSEM', + 'APR_LOCK_PROC_PTHREAD', + 'APR_LOCK_POSIXSEM', + 'APR_LOCK_DEFAULT' + ], + 'limit' => [ + 'APR_LIMIT_CPU', + 'APR_LIMIT_MEM', + 'APR_LIMIT_NPROC', + 'APR_LIMIT_NOFILE' + ], + 'hook' => [ + 'APR_HOOK_REALLY_FIRST', + 'APR_HOOK_FIRST', + 'APR_HOOK_MIDDLE', + 'APR_HOOK_LAST', + 'APR_HOOK_REALLY_LAST' + ], + 'fprot' => [ + 'APR_FPROT_USETID', + 'APR_FPROT_UREAD', + 'APR_FPROT_UWRITE', + 'APR_FPROT_UEXECUTE', + 'APR_FPROT_GSETID', + 'APR_FPROT_GREAD', + 'APR_FPROT_GWRITE', + 'APR_FPROT_GEXECUTE', + 'APR_FPROT_WSTICKY', + 'APR_FPROT_WREAD', + 'APR_FPROT_WWRITE', + 'APR_FPROT_WEXECUTE', + 'APR_FPROT_OS_DEFAULT', + 'APR_FPROT_FILE_SOURCE_PERMS' + ], + 'fopen' => [ + 'APR_FOPEN_READ', + 'APR_FOPEN_WRITE', + 'APR_FOPEN_CREATE', + 'APR_FOPEN_APPEND', + 'APR_FOPEN_TRUNCATE', + 'APR_FOPEN_BINARY', + 'APR_FOPEN_EXCL', + 'APR_FOPEN_BUFFERED', + 'APR_FOPEN_DELONCLOSE', + 'APR_FOPEN_XTHREAD', + 'APR_FOPEN_SHARELOCK', + 'APR_FOPEN_NOCLEANUP', + 'APR_FOPEN_SENDFILE_ENABLED', + 'APR_FOPEN_LARGEFILE', + 'APR_FOPEN_SPARSE' + ], + 'flock' => [ + 'APR_FLOCK_SHARED', + 'APR_FLOCK_EXCLUSIVE', + 'APR_FLOCK_TYPEMASK', + 'APR_FLOCK_NONBLOCK' + ], + 'finfo' => [ + 'APR_FINFO_LINK', + 'APR_FINFO_MTIME', + 'APR_FINFO_CTIME', + 'APR_FINFO_ATIME', + 'APR_FINFO_SIZE', + 'APR_FINFO_CSIZE', + 'APR_FINFO_DEV', + 'APR_FINFO_INODE', + 'APR_FINFO_NLINK', + 'APR_FINFO_TYPE', + 'APR_FINFO_USER', + 'APR_FINFO_GROUP', + 'APR_FINFO_UPROT', + 'APR_FINFO_GPROT', + 'APR_FINFO_WPROT', + 'APR_FINFO_ICASE', + 'APR_FINFO_NAME', + 'APR_FINFO_MIN', + 'APR_FINFO_IDENT', + 'APR_FINFO_OWNER', + 'APR_FINFO_PROT', + 'APR_FINFO_NORM', + 'APR_FINFO_DIRENT' + ], + 'filetype' => [ + 'APR_FILETYPE_NOFILE', + 'APR_FILETYPE_REG', + 'APR_FILETYPE_DIR', + 'APR_FILETYPE_CHR', + 'APR_FILETYPE_BLK', + 'APR_FILETYPE_PIPE', + 'APR_FILETYPE_LNK', + 'APR_FILETYPE_SOCK', + 'APR_FILETYPE_UNKFILE' + ], + 'filepath' => [ + 'APR_FILEPATH_NOTABOVEROOT', + 'APR_FILEPATH_SECUREROOTTEST', + 'APR_FILEPATH_SECUREROOT', + 'APR_FILEPATH_NOTRELATIVE', + 'APR_FILEPATH_NOTABSOLUTE', + 'APR_FILEPATH_NATIVE', + 'APR_FILEPATH_TRUENAME', + 'APR_FILEPATH_ENCODING_UNKNOWN', + 'APR_FILEPATH_ENCODING_LOCALE', + 'APR_FILEPATH_ENCODING_UTF8' + ], + 'error' => [ + 'APR_ENOSTAT', + 'APR_ENOPOOL', + 'APR_EBADDATE', + 'APR_EINVALSOCK', + 'APR_ENOPROC', + 'APR_ENOTIME', + 'APR_ENODIR', + 'APR_ENOLOCK', + 'APR_ENOPOLL', + 'APR_ENOSOCKET', + 'APR_ENOTHREAD', + 'APR_ENOTHDKEY', + 'APR_EGENERAL', + 'APR_ENOSHMAVAIL', + 'APR_EBADIP', + 'APR_EBADMASK', + 'APR_EDSOOPEN', + 'APR_EABSOLUTE', + 'APR_ERELATIVE', + 'APR_EINCOMPLETE', + 'APR_EABOVEROOT', + 'APR_EBADPATH', + 'APR_EPATHWILD', + 'APR_ESYMNOTFOUND', + 'APR_EPROC_UNKNOWN', + 'APR_ENOTENOUGHENTROPY', + 'APR_EOF', + 'APR_EINIT', + 'APR_ENOTIMPL', + 'APR_EMISMATCH', + 'APR_EBUSY', + 'APR_EACCES', + 'APR_EEXIST', + 'APR_ENAMETOOLONG', + 'APR_ENOENT', + 'APR_ENOTDIR', + 'APR_ENOSPC', + 'APR_ENOMEM', + 'APR_EMFILE', + 'APR_ENFILE', + 'APR_EBADF', + 'APR_EINVAL', + 'APR_ESPIPE', + 'APR_EAGAIN', + 'APR_EINTR', + 'APR_ENOTSOCK', + 'APR_ECONNREFUSED', + 'APR_EINPROGRESS', + 'APR_ECONNABORTED', + 'APR_ECONNRESET', + 'APR_ETIMEDOUT', + 'APR_EHOSTUNREACH', + 'APR_ENETUNREACH', + 'APR_EFTYPE', + 'APR_EPIPE', + 'APR_EXDEV', + 'APR_ENOTEMPTY', + 'APR_EAFNOSUPPORT', + 'APR_EXCL', + 'APR_END', + 'APR_ENOKEY', + 'APR_ENOIV', + 'APR_EKEYTYPE', + 'APR_ENOSPACE', + 'APR_ECRYPT', + 'APR_EPADDING', + 'APR_EKEYLENGTH', + 'APR_ENOCIPHER', + 'APR_ENODIGEST', + 'APR_ENOENGINE', + 'APR_EINITENGINE', + 'APR_EREINIT' + ], + 'common' => [ + 'APR_SUCCESS' + ] + } +}; + + +1;
diff --git a/2_0_13/xs/tables/current24/Apache2/FunctionTable.pm b/2_0_13/xs/tables/current24/Apache2/FunctionTable.pm new file mode 100644 index 0000000..adaa249 --- /dev/null +++ b/2_0_13/xs/tables/current24/Apache2/FunctionTable.pm
@@ -0,0 +1,21265 @@ +package Apache2::FunctionTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by Apache2::ParseSource/0.02 +# ! Mon Jul 1 12:38:14 2013 +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$Apache2::FunctionTable = [ + { + 'return_type' => 'void', + 'name' => 'ap_abort_on_oom', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_cgi_vars', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_common_vars', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_file_conf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'core_dir_config *', + 'name' => 'conf' + }, + { + 'type' => 'void *', + 'name' => 'url_config' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_add_if_conf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'core_dir_config *', + 'name' => 'conf' + }, + { + 'type' => 'void *', + 'name' => 'url_config' + } + ] + }, + { + 'return_type' => 'ap_filter_t *', + 'name' => 'ap_add_input_filter', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'ap_filter_t *', + 'name' => 'ap_add_input_filter_handle', + 'args' => [ + { + 'type' => 'ap_filter_rec_t *', + 'name' => 'f' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_add_loaded_module', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'mod' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_add_module', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'ap_directive_t *', + 'name' => 'ap_add_node', + 'args' => [ + { + 'type' => 'ap_directive_t **', + 'name' => 'parent' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'current' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'toadd' + }, + { + 'type' => 'int', + 'name' => 'child' + } + ] + }, + { + 'return_type' => 'ap_filter_t *', + 'name' => 'ap_add_output_filter', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'ap_filter_t *', + 'name' => 'ap_add_output_filter_handle', + 'args' => [ + { + 'type' => 'ap_filter_rec_t *', + 'name' => 'f' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_output_filters_by_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_per_dir_conf', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'void *', + 'name' => 'dir_config' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_per_url_conf', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'void *', + 'name' => 'url_config' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_add_version_component', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'const char *', + 'name' => 'component' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_allow_methods', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'reset' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_allow_options', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_allow_overrides', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_allow_standard_methods', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'reset' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_append_pid', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'string' + }, + { + 'type' => 'const char *', + 'name' => 'delim' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_args_to_table', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_table_t **', + 'name' => 'table' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_auth_name', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_auth_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_basic_http_header', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_bin2hex', + 'args' => [ + { + 'type' => 'const void *', + 'name' => 'src' + }, + { + 'type' => 'apr_size_t', + 'name' => 'srclen' + }, + { + 'type' => 'char *', + 'name' => 'dest' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_eoc_create', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_eoc_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_eor_create', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_eor_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_error_create', + 'args' => [ + { + 'type' => 'int', + 'name' => 'error' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'ap_bucket_error_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'int', + 'name' => 'error' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_build_config', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'conf_pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'conftree' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_build_cont_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'current' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'curr_parent' + }, + { + 'type' => 'char *', + 'name' => 'orig_directive' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_byterange_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_calc_scoreboard_size', + 'args' => [] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_calloc', + 'args' => [ + { + 'type' => 'size_t', + 'name' => 'nelem' + }, + { + 'type' => 'size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_cfg_closefile', + 'args' => [ + { + 'type' => 'ap_configfile_t *', + 'name' => 'cfp' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cfg_getc', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'ch' + }, + { + 'type' => 'ap_configfile_t *', + 'name' => 'cfp' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cfg_getline', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bufsize' + }, + { + 'type' => 'ap_configfile_t *', + 'name' => 'cfp' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_check_cmd_context', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'unsigned', + 'name' => 'forbidden' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_check_mpm', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cleanup_scoreboard', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'd' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_clear_auth_internal', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_clear_method_list', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'l' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_close_listeners', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_close_piped_log', + 'args' => [ + { + 'type' => 'piped_log *', + 'name' => 'pl' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_close_selected_listeners', + 'args' => [ + { + 'type' => 'ap_slave_t *', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_construct_server', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_construct_url', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'uri' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_content_length_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'arg0' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_content_type_tolower', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_context_document_root', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_context_prefix', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cookie_check_string', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'string' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cookie_read', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'const char **', + 'name' => 'val' + }, + { + 'type' => 'int', + 'name' => 'remove' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cookie_remove', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'const char *', + 'name' => 'attrs' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cookie_remove2', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name2' + }, + { + 'type' => 'const char *', + 'name' => 'attrs2' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cookie_write', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'const char *', + 'name' => 'val' + }, + { + 'type' => 'const char *', + 'name' => 'attrs' + }, + { + 'type' => 'long', + 'name' => 'maxage' + }, + { + 'type' => '...', + 'name' => 'arg5' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_cookie_write2', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name2' + }, + { + 'type' => 'const char *', + 'name' => 'val' + }, + { + 'type' => 'const char *', + 'name' => 'attrs2' + }, + { + 'type' => 'long', + 'name' => 'maxage' + }, + { + 'type' => '...', + 'name' => 'arg5' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_copy_method_list', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'dest' + }, + { + 'type' => 'ap_method_list_t *', + 'name' => 'src' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_core_child_status', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'pid_t', + 'name' => 'pid' + }, + { + 'type' => 'ap_generation_t', + 'name' => 'gen' + }, + { + 'type' => 'int', + 'name' => 'slot' + }, + { + 'type' => 'mpm_child_status', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_core_input_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_core_output_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_core_reorder_directories', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'arg0' + }, + { + 'type' => 'server_rec *', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_core_translate', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_count_dirs', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + } + ] + }, + { + 'return_type' => 'ap_conf_vector_t*', + 'name' => 'ap_create_conn_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'char **', + 'name' => 'ap_create_environment', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'ap_conf_vector_t *', + 'name' => 'ap_create_per_dir_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ap_conf_vector_t*', + 'name' => 'ap_create_request_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_create_sb_handle', + 'args' => [ + { + 'type' => 'ap_sb_handle_t **', + 'name' => 'new_sbh' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'child_num' + }, + { + 'type' => 'int', + 'name' => 'thread_num' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_create_scoreboard', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_scoreboard_e', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_custom_response', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'const char *', + 'name' => 'string' + } + ] + }, + { + 'return_type' => 'ap_dbd_t*', + 'name' => 'ap_dbd_acquire', + 'args' => [ + { + 'type' => 'request_rec*', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'ap_dbd_t*', + 'name' => 'ap_dbd_cacquire', + 'args' => [ + { + 'type' => 'conn_rec*', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_dbd_close', + 'args' => [ + { + 'type' => 'server_rec*', + 'name' => 'arg0' + }, + { + 'type' => 'ap_dbd_t*', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'ap_dbd_t*', + 'name' => 'ap_dbd_open', + 'args' => [ + { + 'type' => 'apr_pool_t*', + 'name' => 'arg0' + }, + { + 'type' => 'server_rec*', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_dbd_prepare', + 'args' => [ + { + 'type' => 'server_rec*', + 'name' => 'arg0' + }, + { + 'type' => 'const char*', + 'name' => 'arg1' + }, + { + 'type' => 'const char*', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_destroy_sub_req', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_die', + 'args' => [ + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_directory_walk', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_discard_request_body', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_document_root', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_dump_mutexes', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'out' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_error_log2stderr', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'ap_escape_errorlog_item', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'dest' + }, + { + 'type' => 'const char *', + 'name' => 'source' + }, + { + 'type' => 'apr_size_t', + 'name' => 'buflen' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_html2', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'toasc' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_logitem', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_path_segment', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_path_segment_buffer', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'c' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_quotes', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'instring' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_shell_cmd', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_urlencoded', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_escape_urlencoded_buffer', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'c' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_exists_config_define', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_exists_scoreboard_image', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_explode_recent_gmt', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'tm' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_explode_recent_localtime', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'tm' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_expr_exec', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const ap_expr_info_t *', + 'name' => 'expr' + }, + { + 'type' => 'const char **', + 'name' => 'err' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_expr_exec_ctx', + 'args' => [ + { + 'type' => 'ap_expr_eval_ctx_t *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_expr_exec_re', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const ap_expr_info_t *', + 'name' => 'expr' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'ap_regmatch_t *', + 'name' => 'pmatch' + }, + { + 'type' => 'const char **', + 'name' => 'source' + }, + { + 'type' => 'const char **', + 'name' => 'err' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_expr_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_expr_lookup_default', + 'args' => [ + { + 'type' => 'ap_expr_lookup_parms *', + 'name' => 'parms' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_expr_parse', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'ap_expr_info_t *', + 'name' => 'info' + }, + { + 'type' => 'const char *', + 'name' => 'expr' + }, + { + 'type' => 'ap_expr_lookup_fn_t *', + 'name' => 'lookup_fn' + } + ] + }, + { + 'return_type' => 'ap_expr_info_t *', + 'name' => 'ap_expr_parse_cmd_mi', + 'args' => [ + { + 'type' => 'const cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'const char *', + 'name' => 'expr' + }, + { + 'type' => 'unsigned int', + 'name' => 'flags' + }, + { + 'type' => 'const char **', + 'name' => 'err' + }, + { + 'type' => 'ap_expr_lookup_fn_t *', + 'name' => 'lookup_fn' + }, + { + 'type' => 'int', + 'name' => 'module_index' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_expr_str_exec', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const ap_expr_info_t *', + 'name' => 'expr' + }, + { + 'type' => 'const char **', + 'name' => 'err' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_expr_str_exec_re', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const ap_expr_info_t *', + 'name' => 'expr' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'ap_regmatch_t *', + 'name' => 'pmatch' + }, + { + 'type' => 'const char **', + 'name' => 'source' + }, + { + 'type' => 'const char **', + 'name' => 'err' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fatal_signal_child_setup', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fatal_signal_setup', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'in_pconf' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fflush', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_field_noparam', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'intype' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_file_walk', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_filter_flush', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_filter_protocol', + 'args' => [ + { + 'type' => 'ap_filter_t*', + 'name' => 'f' + }, + { + 'type' => 'unsigned int', + 'name' => 'proto_flags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_finalize_request_protocol', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_finalize_sub_req_protocol', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'sub_r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_find_child_by_pid', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'pid' + } + ] + }, + { + 'return_type' => 'const command_rec *', + 'name' => 'ap_find_command', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'const command_rec *', + 'name' => 'cmds' + } + ] + }, + { + 'return_type' => 'const command_rec *', + 'name' => 'ap_find_command_in_modules', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'cmd_name' + }, + { + 'type' => 'module **', + 'name' => 'mod' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_find_last_token', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'line' + }, + { + 'type' => 'const char *', + 'name' => 'tok' + } + ] + }, + { + 'return_type' => 'module *', + 'name' => 'ap_find_linked_module', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_find_list_item', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'line' + }, + { + 'type' => 'const char *', + 'name' => 'tok' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_find_module_name', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_find_module_short_name', + 'args' => [ + { + 'type' => 'int', + 'name' => 'module_index' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_find_path_info', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'uri' + }, + { + 'type' => 'const char *', + 'name' => 'path_info' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_find_token', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'line' + }, + { + 'type' => 'const char *', + 'name' => 'tok' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_fini_vhost_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 'main_server' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_fixup_virtual_hosts', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 'main_server' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_flush_conn', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fprintf', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_fputstrs', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_get_basic_auth_pw', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char **', + 'name' => 'pw' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_get_brigade', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bucket' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'long', + 'name' => 'ap_get_client_block', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bufsiz' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_get_conn_module_loglevel', + 'args' => [ + { + 'type' => 'const conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'int', + 'name' => 'index' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_get_conn_server_module_loglevel', + 'args' => [ + { + 'type' => 'const conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'const server_rec *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'index' + } + ] + }, + { + 'return_type' => 'apr_socket_t *', + 'name' => 'ap_get_conn_socket', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_get_core_module_config', + 'args' => [ + { + 'type' => 'const ap_conf_vector_t *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_get_input_filter_handle', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'apr_off_t', + 'name' => 'ap_get_limit_req_body', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'ap_get_limit_xml_body', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_get_list_item', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'field' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_get_loadavg', + 'args' => [ + { + 'type' => 'ap_loadavg_t *', + 'name' => 'ld' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_get_local_host', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_get_mime_headers', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_get_mime_headers_core', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_get_module_config', + 'args' => [ + { + 'type' => 'const ap_conf_vector_t *', + 'name' => 'cv' + }, + { + 'type' => 'const module *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_get_output_filter_handle', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_remote_host', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'conn' + }, + { + 'type' => 'void *', + 'name' => 'dir_config' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'int *', + 'name' => 'str_is_ip' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_remote_logname', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_get_request_module_loglevel', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'index' + } + ] + }, + { + 'return_type' => 'void **', + 'name' => 'ap_get_request_note', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_size_t', + 'name' => 'note_num' + } + ] + }, + { + 'return_type' => 'global_score *', + 'name' => 'ap_get_scoreboard_global', + 'args' => [] + }, + { + 'return_type' => 'process_score *', + 'name' => 'ap_get_scoreboard_process', + 'args' => [ + { + 'type' => 'int', + 'name' => 'x' + } + ] + }, + { + 'return_type' => 'worker_score *', + 'name' => 'ap_get_scoreboard_worker', + 'args' => [ + { + 'type' => 'ap_sb_handle_t *', + 'name' => 'sbh' + } + ] + }, + { + 'return_type' => 'worker_score *', + 'name' => 'ap_get_scoreboard_worker_from_indexes', + 'args' => [ + { + 'type' => 'int', + 'name' => 'child_num' + }, + { + 'type' => 'int', + 'name' => 'thread_num' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_banner', + 'args' => [] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_built', + 'args' => [] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_description', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_get_server_module_loglevel', + 'args' => [ + { + 'type' => 'const server_rec *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'index' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_name', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_name_for_url', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_port_t', + 'name' => 'ap_get_server_port', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'ap_get_server_protocol', + 'args' => [ + { + 'type' => 'server_rec*', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_get_server_revision', + 'args' => [ + { + 'type' => 'ap_version_t *', + 'name' => 'version' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_server_version', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_get_sload', + 'args' => [ + { + 'type' => 'ap_sload_t *', + 'name' => 'ld' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_get_status_line', + 'args' => [ + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_get_token', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'accept_line' + }, + { + 'type' => 'int', + 'name' => 'accept_white' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_getline', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'n' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'fold' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_getparents', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'line' + }, + { + 'type' => 'char', + 'name' => 'stop' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_conf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'line' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_conf_nc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'line' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_nc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'line' + }, + { + 'type' => 'char', + 'name' => 'stop' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_nulls', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'line' + }, + { + 'type' => 'char', + 'name' => 'stop' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_nulls_nc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'line' + }, + { + 'type' => 'char', + 'name' => 'stop' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_white', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'line' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_getword_white_nc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'line' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_global_mutex_create', + 'args' => [ + { + 'type' => 'apr_global_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char **', + 'name' => 'name' + }, + { + 'type' => 'const char *', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'instance_id' + }, + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'options' + } + ] + }, + { + 'return_type' => 'gid_t', + 'name' => 'ap_gname2id', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_access_checker', + 'args' => [ + { + 'type' => 'ap_HOOK_access_checker_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_access_checker_ex', + 'args' => [ + { + 'type' => 'ap_HOOK_access_checker_ex_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_auth_checker', + 'args' => [ + { + 'type' => 'ap_HOOK_auth_checker_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_check_access', + 'args' => [ + { + 'type' => 'ap_HOOK_access_checker_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_check_access_ex', + 'args' => [ + { + 'type' => 'ap_HOOK_access_checker_ex_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_check_authn', + 'args' => [ + { + 'type' => 'ap_HOOK_check_user_id_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_check_authz', + 'args' => [ + { + 'type' => 'ap_HOOK_auth_checker_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_check_config', + 'args' => [ + { + 'type' => 'ap_HOOK_check_config_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_check_user_id', + 'args' => [ + { + 'type' => 'ap_HOOK_check_user_id_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_child_init', + 'args' => [ + { + 'type' => 'ap_HOOK_child_init_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_child_status', + 'args' => [ + { + 'type' => 'ap_HOOK_child_status_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_create_connection', + 'args' => [ + { + 'type' => 'ap_HOOK_create_connection_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_create_request', + 'args' => [ + { + 'type' => 'ap_HOOK_create_request_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_default_port', + 'args' => [ + { + 'type' => 'ap_HOOK_default_port_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_drop_privileges', + 'args' => [ + { + 'type' => 'ap_HOOK_drop_privileges_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_end_generation', + 'args' => [ + { + 'type' => 'ap_HOOK_end_generation_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_error_log', + 'args' => [ + { + 'type' => 'ap_HOOK_error_log_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_expr_lookup', + 'args' => [ + { + 'type' => 'ap_HOOK_expr_lookup_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_fixups', + 'args' => [ + { + 'type' => 'ap_HOOK_fixups_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_generate_log_id', + 'args' => [ + { + 'type' => 'ap_HOOK_generate_log_id_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_access_checker', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_access_checker_ex', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_auth_checker', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_check_config', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_check_user_id', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_child_init', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_child_status', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_create_connection', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_create_request', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_default_port', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_drop_privileges', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_end_generation', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_error_log', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_expr_lookup', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_fixups', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_generate_log_id', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_get_mgmt_items', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_get_suexec_identity', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_handler', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_header_parser', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_http_scheme', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_insert_error_filter', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_insert_filter', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_insert_network_bucket', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_log_transaction', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_map_to_storage', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_get_mgmt_items', + 'args' => [ + { + 'type' => 'ap_HOOK_get_mgmt_items_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_monitor', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_mpm', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_mpm_get_name', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_mpm_query', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_mpm_register_timed_callback', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_note_auth_failure', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_open_logs', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_optional_fn_retrieve', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_post_config', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_post_read_request', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_pre_config', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_pre_connection', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_pre_mpm', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_pre_read_request', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_process_connection', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_quick_handler', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_session_decode', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_session_encode', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_session_load', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_session_save', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_status_hook', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_get_suexec_identity', + 'args' => [ + { + 'type' => 'ap_HOOK_get_suexec_identity_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_test_config', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_translate_name', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_type_checker', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_watchdog_exit', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_watchdog_init', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_watchdog_need', + 'args' => [] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_hook_get_watchdog_step', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_handler', + 'args' => [ + { + 'type' => 'ap_HOOK_handler_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_header_parser', + 'args' => [ + { + 'type' => 'ap_HOOK_header_parser_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_http_scheme', + 'args' => [ + { + 'type' => 'ap_HOOK_http_scheme_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_insert_error_filter', + 'args' => [ + { + 'type' => 'ap_HOOK_insert_error_filter_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_insert_filter', + 'args' => [ + { + 'type' => 'ap_HOOK_insert_filter_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_insert_network_bucket', + 'args' => [ + { + 'type' => 'ap_HOOK_insert_network_bucket_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_log_transaction', + 'args' => [ + { + 'type' => 'ap_HOOK_log_transaction_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_map_to_storage', + 'args' => [ + { + 'type' => 'ap_HOOK_map_to_storage_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_monitor', + 'args' => [ + { + 'type' => 'ap_HOOK_monitor_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_mpm', + 'args' => [ + { + 'type' => 'ap_HOOK_mpm_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_mpm_get_name', + 'args' => [ + { + 'type' => 'ap_HOOK_mpm_get_name_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_mpm_query', + 'args' => [ + { + 'type' => 'ap_HOOK_mpm_query_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_mpm_register_timed_callback', + 'args' => [ + { + 'type' => 'ap_HOOK_mpm_register_timed_callback_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_note_auth_failure', + 'args' => [ + { + 'type' => 'ap_HOOK_note_auth_failure_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_open_logs', + 'args' => [ + { + 'type' => 'ap_HOOK_open_logs_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_optional_fn_retrieve', + 'args' => [ + { + 'type' => 'ap_HOOK_optional_fn_retrieve_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_post_config', + 'args' => [ + { + 'type' => 'ap_HOOK_post_config_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_post_read_request', + 'args' => [ + { + 'type' => 'ap_HOOK_post_read_request_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_pre_config', + 'args' => [ + { + 'type' => 'ap_HOOK_pre_config_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_pre_connection', + 'args' => [ + { + 'type' => 'ap_HOOK_pre_connection_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_pre_mpm', + 'args' => [ + { + 'type' => 'ap_HOOK_pre_mpm_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_pre_read_request', + 'args' => [ + { + 'type' => 'ap_HOOK_pre_read_request_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_process_connection', + 'args' => [ + { + 'type' => 'ap_HOOK_process_connection_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_quick_handler', + 'args' => [ + { + 'type' => 'ap_HOOK_quick_handler_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_session_decode', + 'args' => [ + { + 'type' => 'ap_HOOK_session_decode_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_session_encode', + 'args' => [ + { + 'type' => 'ap_HOOK_session_encode_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_session_load', + 'args' => [ + { + 'type' => 'ap_HOOK_session_load_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_session_save', + 'args' => [ + { + 'type' => 'ap_HOOK_session_save_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_status_hook', + 'args' => [ + { + 'type' => 'ap_HOOK_status_hook_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_test_config', + 'args' => [ + { + 'type' => 'ap_HOOK_test_config_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_translate_name', + 'args' => [ + { + 'type' => 'ap_HOOK_translate_name_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_type_checker', + 'args' => [ + { + 'type' => 'ap_HOOK_type_checker_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_watchdog_exit', + 'args' => [ + { + 'type' => 'ap_HOOK_watchdog_exit_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_watchdog_init', + 'args' => [ + { + 'type' => 'ap_HOOK_watchdog_init_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_watchdog_need', + 'args' => [ + { + 'type' => 'ap_HOOK_watchdog_need_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_hook_watchdog_step', + 'args' => [ + { + 'type' => 'ap_HOOK_watchdog_step_t *', + 'name' => 'pf' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_ht_time', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'int', + 'name' => 'gmt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_http_chunk_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_http_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_http_header_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_http_outerror_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_if_walk', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_increment_counts', + 'args' => [ + { + 'type' => 'ap_sb_handle_t *', + 'name' => 'sbh' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_ind', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'char', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_index_of_response', + 'args' => [ + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_init_rng', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_init_scoreboard', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'shared_score' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_init_vhost_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_init_virtual_host', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'server_rec *', + 'name' => 'main_server' + }, + { + 'type' => 'server_rec **', + 'name' => 'ps' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_internal_fast_redirect', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'sub_req' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_internal_redirect', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'new_uri' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_internal_redirect_handler', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'new_uri' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_invoke_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_directory', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_initial_req', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_matchexp', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_rdirectory', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_recursion_limit_exceeded', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_is_url', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'u' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_limit_section', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_lingering_close', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_list_provider_groups', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'ap_list_provider_names', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_listen_pre_config', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_location_walk', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_assert', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szExp' + }, + { + 'type' => 'const char *', + 'name' => 'szFile' + }, + { + 'type' => 'int', + 'name' => 'nLine' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_cerror_', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'const conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg7' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_command_line', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_cserror_', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'const conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'const server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg8' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_error_', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'const server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg7' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_perror_', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg7' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_pid', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_log_rerror_', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg7' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_logs_child_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_lookup_provider', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_name' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_make_content_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_make_dirstr_parent', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_make_dirstr_prefix', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'd' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_make_etag', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'force_weak' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_make_full_path', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'const char *', + 'name' => 'dir' + }, + { + 'type' => 'const char *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'ap_method_list_t *', + 'name' => 'ap_make_method_list', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'nelts' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_malloc', + 'args' => [ + { + 'type' => 'size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_matches_request_vhost', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'host' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_md5', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'string' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_md5_binary', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'buf' + }, + { + 'type' => 'int', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_md5contextTo64', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_md5digest', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'infile' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_meets_conditions', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_merge_log_config', + 'args' => [ + { + 'type' => 'const struct ap_logconf *', + 'name' => 'old_conf' + }, + { + 'type' => 'struct ap_logconf *', + 'name' => 'new_conf' + } + ] + }, + { + 'return_type' => 'ap_conf_vector_t*', + 'name' => 'ap_merge_per_dir_configs', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'base' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'new_conf' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_method_in_list', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'l' + }, + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_method_is_limited', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_method_list_add', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'l' + }, + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_method_list_remove', + 'args' => [ + { + 'type' => 'ap_method_list_t *', + 'name' => 'l' + }, + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_method_name_of', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'methnum' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_method_number_of', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_method_register', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'methname' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_method_registry_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_mpm_dump_pidfile', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'out' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_end_gen_helper', + 'args' => [ + { + 'type' => 'void *unused', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_pod_check', + 'args' => [ + { + 'type' => 'ap_pod_t *', + 'name' => 'pod' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_pod_close', + 'args' => [ + { + 'type' => 'ap_pod_t *', + 'name' => 'pod' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_mpm_pod_killpg', + 'args' => [ + { + 'type' => 'ap_pod_t *', + 'name' => 'pod' + }, + { + 'type' => 'int', + 'name' => 'num' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_pod_open', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_pod_t **', + 'name' => 'pod' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_pod_signal', + 'args' => [ + { + 'type' => 'ap_pod_t *', + 'name' => 'pod' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_query', + 'args' => [ + { + 'type' => 'int', + 'name' => 'query_code' + }, + { + 'type' => 'int *', + 'name' => 'result' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_register_timed_callback', + 'args' => [ + { + 'type' => 'apr_time_t', + 'name' => 't' + }, + { + 'type' => 'ap_mpm_callback_fn_t *', + 'name' => 'cbfn' + }, + { + 'type' => 'void *', + 'name' => 'baton' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_mpm_rewrite_args', + 'args' => [ + { + 'type' => 'process_rec *', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mpm_safe_kill', + 'args' => [ + { + 'type' => 'pid_t', + 'name' => 'pid' + }, + { + 'type' => 'int', + 'name' => 'sig' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_coredumpdir', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_graceful_shutdown', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_max_mem_free', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_max_requests', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_pidfile', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_mpm_set_thread_stacksize', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_mutex_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_mutex_register', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'const char *', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'default_dir' + }, + { + 'type' => 'apr_lockmech_e', + 'name' => 'default_mech' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'options' + } + ] + }, + { + 'return_type' => 'struct ap_logconf *', + 'name' => 'ap_new_log_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const struct ap_logconf *', + 'name' => 'old' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_no2slash', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_note_auth_failure', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_note_basic_auth_failure', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_note_digest_auth_failure', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_old_write_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_open_logs', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's_main' + } + ] + }, + { + 'return_type' => 'piped_log *', + 'name' => 'ap_open_piped_log', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'program' + } + ] + }, + { + 'return_type' => 'piped_log *', + 'name' => 'ap_open_piped_log_ex', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'program' + }, + { + 'type' => 'apr_cmdtype_e', + 'name' => 'cmdtype' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_open_stderr_log', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_os_create_privileged_process', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_proc_t *', + 'name' => 'newproc' + }, + { + 'type' => 'const char *', + 'name' => 'progname' + }, + { + 'type' => 'const char * const *', + 'name' => 'args' + }, + { + 'type' => 'const char * const *', + 'name' => 'env' + }, + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_os_escape_path', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'partial' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_os_is_path_absolute', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'dir' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_parse_form_data', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'struct ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_array_header_t **', + 'name' => 'ptr' + }, + { + 'type' => 'apr_size_t', + 'name' => 'num' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_parse_htaccess', + 'args' => [ + { + 'type' => 'ap_conf_vector_t **', + 'name' => 'result' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'int', + 'name' => 'override_opts' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'override_list' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'const char *', + 'name' => 'access_name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_parse_log_level', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'int *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_parse_mutex', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'arg' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_lockmech_e *', + 'name' => 'mutexmech' + }, + { + 'type' => 'const char **', + 'name' => 'mutexfile' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_parse_uri', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'uri' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_parse_vhost_addrs', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_pass_brigade', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_pass_brigade_fchk', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bucket' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_pbase64decode', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'bufcoded' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_pbase64encode', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char *', + 'name' => 'string' + } + ] + }, + { + 'return_type' => 'ap_configfile_t *', + 'name' => 'ap_pcfg_open_custom', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'descr' + }, + { + 'type' => 'void *', + 'name' => 'param' + }, + { + 'type' => 'apr_status_t (*getc_func) (char *ch, void *param)', + 'name' => 'arg3' + }, + { + 'type' => 'apr_status_t (*gets_func) (void *buf, apr_size_t bufsiz, void *param)', + 'name' => 'arg4' + }, + { + 'type' => 'apr_status_t (*close_func) (void *param)', + 'name' => 'arg5' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_pcfg_openfile', + 'args' => [ + { + 'type' => 'ap_configfile_t **', + 'name' => 'ret_cfg' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_pcfg_strerror', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_configfile_t *', + 'name' => 'cfp' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'ap_pcw_srv_cb_t', + 'name' => 'srv_cb' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_default_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_directory_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'core_server_config *', + 'name' => 'sconf' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_files_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'core_dir_config *', + 'name' => 'dconf' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_location_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'core_server_config *', + 'name' => 'sconf' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'name' => 'dir_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pcw_walk_server_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'module *', + 'name' => 'modp' + }, + { + 'type' => 'ap_pcw_srv_cb_t', + 'name' => 'srv_cb' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_file_t *', + 'name' => 'ap_piped_log_read_fd', + 'args' => [ + { + 'type' => 'piped_log *', + 'name' => 'pl' + } + ] + }, + { + 'return_type' => 'apr_file_t *', + 'name' => 'ap_piped_log_write_fd', + 'args' => [ + { + 'type' => 'piped_log *', + 'name' => 'pl' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_pool_cleanup_set_null', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'ap_regex_t *', + 'name' => 'ap_pregcomp', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'pattern' + }, + { + 'type' => 'int', + 'name' => 'cflags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_pregfree', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_regex_t *', + 'name' => 'reg' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_pregsub', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'input' + }, + { + 'type' => 'const char *', + 'name' => 'source' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'ap_regmatch_t', + 'name' => 'pmatch' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_pregsub_ex', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'result' + }, + { + 'type' => 'const char *', + 'name' => 'input' + }, + { + 'type' => 'const char *', + 'name' => 'source' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'ap_regmatch_t', + 'name' => 'pmatch' + }, + { + 'type' => 'apr_size_t', + 'name' => 'maxlen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_proc_mutex_create', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char **', + 'name' => 'name' + }, + { + 'type' => 'const char *', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'instance_id' + }, + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'options' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_process_async_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_process_child_status', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'pid' + }, + { + 'type' => 'apr_exit_why_e', + 'name' => 'why' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_process_config_tree', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'conftree' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_process_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'void *', + 'name' => 'csd' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_process_fnmatch_configs', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'conftree' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'int', + 'name' => 'optional' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_process_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_process_request_after_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_process_request_internal', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_process_resource_config', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'conftree' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_psignature', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'prefix' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_pstr2_alnum', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'src' + }, + { + 'type' => 'const char **', + 'name' => 'dest' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_random_insecure_bytes', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_random_parent_after_fork', + 'args' => [] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'ap_random_pick', + 'args' => [ + { + 'type' => 'apr_uint32_t', + 'name' => 'min' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'max' + } + ] + }, + { + 'return_type' => 'apr_time_t', + 'name' => 'ap_rationalize_mtime', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + } + ] + }, + { + 'return_type' => 'server_rec *', + 'name' => 'ap_read_config', + 'args' => [ + { + 'type' => 'process_rec *', + 'name' => 'process' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'const char *', + 'name' => 'config_name' + }, + { + 'type' => 'ap_directive_t **', + 'name' => 'conftree' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_read_pid', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'pid_t *', + 'name' => 'mypid' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_read_request', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_realloc', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'ptr' + }, + { + 'type' => 'size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_recent_ctime', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_recent_ctime_ex', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + }, + { + 'type' => 'int', + 'name' => 'option' + }, + { + 'type' => 'int *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_recent_rfc822_date', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_reclaim_child_processes', + 'args' => [ + { + 'type' => 'int', + 'name' => 'terminate' + }, + { + 'type' => 'ap_reclaim_callback_fn_t *', + 'name' => 'mpm_callback' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_regcomp', + 'args' => [ + { + 'type' => 'ap_regex_t *', + 'name' => 'preg' + }, + { + 'type' => 'const char *', + 'name' => 'regex' + }, + { + 'type' => 'int', + 'name' => 'cflags' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'ap_regerror', + 'args' => [ + { + 'type' => 'int', + 'name' => 'errcode' + }, + { + 'type' => 'const ap_regex_t *', + 'name' => 'preg' + }, + { + 'type' => 'char *', + 'name' => 'errbuf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'errbuf_size' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_regexec', + 'args' => [ + { + 'type' => 'const ap_regex_t *', + 'name' => 'preg' + }, + { + 'type' => 'const char *', + 'name' => 'string' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'ap_regmatch_t *', + 'name' => 'pmatch' + }, + { + 'type' => 'int', + 'name' => 'eflags' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_regexec_len', + 'args' => [ + { + 'type' => 'const ap_regex_t *', + 'name' => 'preg' + }, + { + 'type' => 'const char *', + 'name' => 'buff' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'ap_regmatch_t *', + 'name' => 'pmatch' + }, + { + 'type' => 'int', + 'name' => 'eflags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_regfree', + 'args' => [ + { + 'type' => 'ap_regex_t *', + 'name' => 'preg' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_register_auth_provider', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_name' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + }, + { + 'type' => 'const void *', + 'name' => 'provider' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_register_config_hooks', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_register_errorlog_handler', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char *', + 'name' => 'tag' + }, + { + 'type' => 'ap_errorlog_handler_fn_t *', + 'name' => 'handler' + }, + { + 'type' => 'int', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_register_extra_mpm_process', + 'args' => [ + { + 'type' => 'pid_t', + 'name' => 'pid' + }, + { + 'type' => 'ap_generation_t', + 'name' => 'gen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_register_hooks', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_register_input_filter', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_in_filter_func', + 'name' => 'filter_func' + }, + { + 'type' => 'ap_init_filter_func', + 'name' => 'filter_init' + }, + { + 'type' => 'ap_filter_type', + 'name' => 'ftype' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_register_log_hooks', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_register_output_filter', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_out_filter_func', + 'name' => 'filter_func' + }, + { + 'type' => 'ap_init_filter_func', + 'name' => 'filter_init' + }, + { + 'type' => 'ap_filter_type', + 'name' => 'ftype' + } + ] + }, + { + 'return_type' => 'ap_filter_rec_t *', + 'name' => 'ap_register_output_filter_protocol', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_out_filter_func', + 'name' => 'filter_func' + }, + { + 'type' => 'ap_init_filter_func', + 'name' => 'filter_init' + }, + { + 'type' => 'ap_filter_type', + 'name' => 'ftype' + }, + { + 'type' => 'unsigned int', + 'name' => 'proto_flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_register_provider', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_name' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + }, + { + 'type' => 'const void *', + 'name' => 'provider' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'ap_register_request_note', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_relieve_child_processes', + 'args' => [ + { + 'type' => 'ap_reclaim_callback_fn_t *', + 'name' => 'mpm_callback' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_input_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_loaded_module', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'mod' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_module', + 'args' => [ + { + 'type' => 'module *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_output_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_remove_pid', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_reopen_scoreboard', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_shm_t **', + 'name' => 'shm' + }, + { + 'type' => 'int', + 'name' => 'detached' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_replace_stderr_log', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_request_has_body', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_reserve_module_slots', + 'args' => [ + { + 'type' => 'int', + 'name' => 'count' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_reserve_module_slots_directive', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'directive' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_reset_module_loglevels', + 'args' => [ + { + 'type' => 'struct ap_logconf *', + 'name' => 'l' + }, + { + 'type' => 'int', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_resolve_env', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'word' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_response_code_string', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'error_index' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_retained_data_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_retained_data_get', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rflush', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_rgetline_core', + 'args' => [ + { + 'type' => 'char **', + 'name' => 's' + }, + { + 'type' => 'apr_size_t', + 'name' => 'n' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'read' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'fold' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rind', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'char', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rprintf', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rputc', + 'args' => [ + { + 'type' => 'int', + 'name' => 'c' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rputs', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_access_checker', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_access_checker_ex', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_auth_checker', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_check_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_check_user_id', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_child_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pchild' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_child_status', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'pid_t', + 'name' => 'pid' + }, + { + 'type' => 'ap_generation_t', + 'name' => 'gen' + }, + { + 'type' => 'int', + 'name' => 'slot' + }, + { + 'type' => 'mpm_child_status', + 'name' => 'state' + } + ] + }, + { + 'return_type' => 'conn_rec *', + 'name' => 'ap_run_create_connection', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'csd' + }, + { + 'type' => 'long', + 'name' => 'conn_id' + }, + { + 'type' => 'void *', + 'name' => 'sbh' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'alloc' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_create_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_port_t', + 'name' => 'ap_run_default_port', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_drop_privileges', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pchild' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_end_generation', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'ap_generation_t', + 'name' => 'gen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_error_log', + 'args' => [ + { + 'type' => 'const ap_errorlog_info *', + 'name' => 'info' + }, + { + 'type' => 'const char *', + 'name' => 'errstr' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_expr_lookup', + 'args' => [ + { + 'type' => 'ap_expr_lookup_parms *', + 'name' => 'parms' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_fixups', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_generate_log_id', + 'args' => [ + { + 'type' => 'const conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char **', + 'name' => 'id' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_get_mgmt_items', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'val' + }, + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + } + ] + }, + { + 'return_type' => 'ap_unix_identity_t *', + 'name' => 'ap_run_get_suexec_identity', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_header_parser', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_run_http_scheme', + 'args' => [ + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_insert_error_filter', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_insert_filter', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_run_insert_network_bucket', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_log_transaction', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_map_to_storage', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_monitor', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_mpm', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'server_rec *', + 'name' => 'server_conf' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_run_mpm_get_name', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_mpm_query', + 'args' => [ + { + 'type' => 'int', + 'name' => 'query_code' + }, + { + 'type' => 'int *', + 'name' => 'result' + }, + { + 'type' => 'apr_status_t *', + 'name' => 'rv' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_run_mpm_register_timed_callback', + 'args' => [ + { + 'type' => 'apr_time_t', + 'name' => 't' + }, + { + 'type' => 'ap_mpm_callback_fn_t *', + 'name' => 'cbfn' + }, + { + 'type' => 'void *', + 'name' => 'baton' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_note_auth_failure', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'auth_type' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_open_logs', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_optional_fn_retrieve', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_post_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_post_read_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_pre_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_pre_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'void *', + 'name' => 'csd' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_pre_mpm', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'ap_scoreboard_e', + 'name' => 'sb_type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_pre_read_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_process_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_quick_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'lookup_uri' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_rewrite_args', + 'args' => [ + { + 'type' => 'process_rec *', + 'name' => 'process' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_run_session_decode', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'session_rec *', + 'name' => 'z' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_run_session_encode', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'session_rec *', + 'name' => 'z' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_run_session_load', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'session_rec **', + 'name' => 'z' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_run_session_save', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'session_rec *', + 'name' => 'z' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_status_hook', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_sub_req', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_run_test_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_translate_name', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_type_checker', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_watchdog_exit', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_watchdog_init', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_watchdog_need', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'parent' + }, + { + 'type' => 'int', + 'name' => 'singleton' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_run_watchdog_step', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_runtime_dir_relative', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rvputs', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => '...', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rwrite', + 'args' => [ + { + 'type' => 'const void *', + 'name' => 'buf' + }, + { + 'type' => 'int', + 'name' => 'nbyte' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'ap_rxplus_t*', + 'name' => 'ap_rxplus_compile', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'pattern' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_rxplus_exec', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'ap_rxplus_t *', + 'name' => 'rx' + }, + { + 'type' => 'const char *', + 'name' => 'pattern' + }, + { + 'type' => 'char **', + 'name' => 'newpattern' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_rxplus_match', + 'args' => [ + { + 'type' => 'ap_rxplus_t *', + 'name' => 'rx' + }, + { + 'type' => 'int', + 'name' => 'n' + }, + { + 'type' => 'int *', + 'name' => 'len' + }, + { + 'type' => 'const char **', + 'name' => 'match' + } + ] + }, + { + 'return_type' => 'char*', + 'name' => 'ap_rxplus_pmatch', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'ap_rxplus_t *', + 'name' => 'rx' + }, + { + 'type' => 'int', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_satisfies', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_save_brigade', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade **', + 'name' => 'save_to' + }, + { + 'type' => 'apr_bucket_brigade **', + 'name' => 'b' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_scan_script_header_err', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'f' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_scan_script_header_err_brigade', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_scan_script_header_err_brigade_ex', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'int', + 'name' => 'module_index' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_scan_script_header_err_core', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'int (*getsfunc) (char *, int, void *)', + 'name' => 'arg2' + }, + { + 'type' => 'void *', + 'name' => 'getsfunc_data' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_scan_script_header_err_core_ex', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'int (*getsfunc) (char *, int, void *)', + 'name' => 'arg2' + }, + { + 'type' => 'void *', + 'name' => 'getsfunc_data' + }, + { + 'type' => 'int', + 'name' => 'module_index' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_scan_script_header_err_ex', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'f' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'int', + 'name' => 'module_index' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_scan_script_header_err_strs', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'const char **', + 'name' => 'termch' + }, + { + 'type' => 'int *', + 'name' => 'termarg' + }, + { + 'type' => '...', + 'name' => 'arg4' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_scan_script_header_err_strs_ex', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'const char **', + 'name' => 'termch' + }, + { + 'type' => 'int *', + 'name' => 'termarg' + }, + { + 'type' => '...', + 'name' => 'arg5' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_send_error_response', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'recursive_error' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_send_fd', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fd' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_send_http_options', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_send_http_trace', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_send_interim_response', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'send_headers' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'ap_send_mmap', + 'args' => [ + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_size_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_server_root_relative', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_accept_ranges', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'ap_set_config_vectors', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'section_vector' + }, + { + 'type' => 'const char *section', + 'name' => 'arg2' + }, + { + 'type' => 'module *', + 'name' => 'mod' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_content_length', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_off_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_content_type', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'ct' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_context_info', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'prefix' + }, + { + 'type' => 'const char *', + 'name' => 'document_root' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_core_module_config', + 'args' => [ + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'cv' + }, + { + 'type' => 'void *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_deprecated', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_document_root', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'document_root' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_etag', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_extended_status', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'int', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_file_slot', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_flag_slot', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'int', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_flag_slot_char', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'int', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_int_slot', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_set_keepalive', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_last_modified', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_listenbacklog', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_listener', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'int', + 'name' => 'argc' + }, + { + 'type' => 'char *const', + 'name' => 'argv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_module_config', + 'args' => [ + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'cv' + }, + { + 'type' => 'const module *', + 'name' => 'm' + }, + { + 'type' => 'void *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_module_loglevel', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'struct ap_logconf *', + 'name' => 'l' + }, + { + 'type' => 'int', + 'name' => 'index' + }, + { + 'type' => 'int', + 'name' => 'level' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_mutex', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_name_virtual_host', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_receive_buffer_size', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_reqtail', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'int', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_scoreboard', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_send_buffer_size', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_server_protocol', + 'args' => [ + { + 'type' => 'server_rec*', + 'name' => 's' + }, + { + 'type' => 'const char*', + 'name' => 'proto' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_string_slot', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_set_string_slot_lower', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'void *', + 'name' => 'struct_ptr' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_set_sub_req_protocol', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'rnew' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_setup_auth_internal', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_setup_client_block', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'read_policy' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_setup_listeners', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_setup_make_content_type', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_setup_prelinked_modules', + 'args' => [ + { + 'type' => 'process_rec *', + 'name' => 'process' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_should_client_block', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_show_directives', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'ap_show_modules', + 'args' => [] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_show_mpm', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_signal_server', + 'args' => [ + { + 'type' => 'int *', + 'name' => 'arg0' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_single_module_configure', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'module *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_size_list_item', + 'args' => [ + { + 'type' => 'const char **', + 'name' => 'field' + }, + { + 'type' => 'int *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_soak_end_container', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'char *', + 'name' => 'directive' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_some_auth_required', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_start_lingering_close', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_state_query', + 'args' => [ + { + 'type' => 'int', + 'name' => 'query_code' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_str2_alnum', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'src' + }, + { + 'type' => 'char *', + 'name' => 'dest' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_str_tolower', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_str_toupper', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_strcasecmp_match', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'const char *', + 'name' => 'expected' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_strcasestr', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 's1' + }, + { + 'type' => 'const char *', + 'name' => 's2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_strchr', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_strchr_c', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_strcmp_match', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'const char *', + 'name' => 'expected' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_stripprefix', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'bigstring' + }, + { + 'type' => 'const char *', + 'name' => 'prefix' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_strrchr', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_strrchr_c', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_strstr', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_strstr_c', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_sub_req_lookup_dirent', + 'args' => [ + { + 'type' => 'const apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'subtype' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next_filter' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_sub_req_lookup_file', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'new_file' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next_filter' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_sub_req_lookup_uri', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'new_uri' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next_filter' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'ap_sub_req_method_uri', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'method' + }, + { + 'type' => 'const char *', + 'name' => 'new_uri' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next_filter' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_sub_req_output_filter', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_sys_privileges_handlers', + 'args' => [ + { + 'type' => 'int', + 'name' => 'inc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_time_process_request', + 'args' => [ + { + 'type' => 'ap_sb_handle_t *', + 'name' => 'sbh' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_timeout_parameter_parse', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'timeout_parameter' + }, + { + 'type' => 'apr_interval_time_t *', + 'name' => 'timeout' + }, + { + 'type' => 'const char *', + 'name' => 'default_time_unit' + } + ] + }, + { + 'return_type' => 'uid_t', + 'name' => 'ap_uname2id', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unescape_all', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unescape_url', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unescape_url_keep2f', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'url' + }, + { + 'type' => 'int', + 'name' => 'decode_slashes' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unescape_urlencoded', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'query' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_unixd_accept', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'accepted' + }, + { + 'type' => 'ap_listen_rec *', + 'name' => 'lr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptrans' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_unixd_set_global_mutex_perms', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'gmutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_unixd_set_proc_mutex_perms', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'pmutex' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_unixd_set_rlimit', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'cmd' + }, + { + 'type' => 'struct rlimit **', + 'name' => 'plimit' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unixd_setup_child', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'ap_unregister_extra_mpm_process', + 'args' => [ + { + 'type' => 'pid_t', + 'name' => 'pid' + }, + { + 'type' => 'ap_generation_t *', + 'name' => 'old_gen' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_update_child_status', + 'args' => [ + { + 'type' => 'ap_sb_handle_t *', + 'name' => 'sbh' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_update_child_status_from_conn', + 'args' => [ + { + 'type' => 'ap_sb_handle_t *', + 'name' => 'sbh' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_update_child_status_from_indexes', + 'args' => [ + { + 'type' => 'int', + 'name' => 'child_num' + }, + { + 'type' => 'int', + 'name' => 'thread_num' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_update_mtime', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_time_t', + 'name' => 'dependency_mtime' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_update_vhost_from_headers', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_update_vhost_given_ip', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'conn' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_varbuf_cfg_getline', + 'args' => [ + { + 'type' => 'struct ap_varbuf *', + 'name' => 'vb' + }, + { + 'type' => 'ap_configfile_t *', + 'name' => 'cfp' + }, + { + 'type' => 'apr_size_t', + 'name' => 'max_len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_varbuf_free', + 'args' => [ + { + 'type' => 'struct ap_varbuf *', + 'name' => 'vb' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_varbuf_grow', + 'args' => [ + { + 'type' => 'struct ap_varbuf *', + 'name' => 'vb' + }, + { + 'type' => 'apr_size_t', + 'name' => 'new_size' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_varbuf_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'struct ap_varbuf *', + 'name' => 'vb' + }, + { + 'type' => 'apr_size_t', + 'name' => 'init_size' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'ap_varbuf_pdup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'struct ap_varbuf *', + 'name' => 'vb' + }, + { + 'type' => 'const char *', + 'name' => 'prepend' + }, + { + 'type' => 'apr_size_t', + 'name' => 'prepend_len' + }, + { + 'type' => 'const char *', + 'name' => 'append' + }, + { + 'type' => 'apr_size_t', + 'name' => 'append_len' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'new_len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'ap_varbuf_regsub', + 'args' => [ + { + 'type' => 'struct ap_varbuf *', + 'name' => 'vb' + }, + { + 'type' => 'const char *', + 'name' => 'input' + }, + { + 'type' => 'const char *', + 'name' => 'source' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'ap_regmatch_t', + 'name' => 'pmatch' + }, + { + 'type' => 'apr_size_t', + 'name' => 'maxlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_varbuf_strmemcat', + 'args' => [ + { + 'type' => 'struct ap_varbuf *', + 'name' => 'vb' + }, + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'int', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_vhost_iterate_given_conn', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'conn' + }, + { + 'type' => 'ap_vhost_iterate_conn_cb', + 'name' => 'func_cb' + }, + { + 'type' => 'void*', + 'name' => 'baton' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_vrprintf', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'va_list', + 'name' => 'vlist' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'ap_wait_or_timeout', + 'args' => [ + { + 'type' => 'apr_exit_why_e *', + 'name' => 'status' + }, + { + 'type' => 'int *', + 'name' => 'exitcode' + }, + { + 'type' => 'apr_proc_t *', + 'name' => 'ret' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'ap_walk_config', + 'args' => [ + { + 'type' => 'ap_directive_t *', + 'name' => 'conftree' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'section_vector' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'ap_xml_parse_input', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_xml_doc **', + 'name' => 'pdoc' + } + ] + }, + { + 'return_type' => 'apr_memnode_t *', + 'name' => 'apr_allocator_alloc', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_allocator_create', + 'args' => [ + { + 'type' => 'apr_allocator_t **', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_destroy', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_free', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_memnode_t *', + 'name' => 'memnode' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_max_free_set', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'apr_thread_mutex_t *', + 'name' => 'apr_allocator_mutex_get', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_mutex_set', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_allocator_owner_get', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_allocator_owner_set', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_app_initialize', + 'args' => [ + { + 'type' => 'int *', + 'name' => 'argc' + }, + { + 'type' => 'char const * const * *', + 'name' => 'argv' + }, + { + 'type' => 'char const * const * *', + 'name' => 'env' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_array_append', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'first' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'second' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_array_cat', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'dst' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'src' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_array_clear', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_array_copy', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_array_copy_hdr', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_array_make', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'nelts' + }, + { + 'type' => 'int', + 'name' => 'elt_size' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_array_pop', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_array_pstrcat', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_array_header_t *', + 'name' => 'arr' + }, + { + 'type' => 'const char', + 'name' => 'sep' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_array_push', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'arr' + } + ] + }, + { + 'return_type' => 'apr_int64_t', + 'name' => 'apr_atoi64', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_atomic_add32', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_atomic_cas32', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'with' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'cmp' + } + ] + }, + { + 'return_type' => 'void*', + 'name' => 'apr_atomic_casptr', + 'args' => [ + { + 'type' => 'volatile void **', + 'name' => 'mem' + }, + { + 'type' => 'void *', + 'name' => 'with' + }, + { + 'type' => 'const void *', + 'name' => 'cmp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_atomic_dec32', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_atomic_inc32', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_atomic_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_atomic_read32', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_atomic_set32', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_atomic_sub32', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_atomic_xchg32', + 'args' => [ + { + 'type' => 'volatile apr_uint32_t *', + 'name' => 'mem' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void*', + 'name' => 'apr_atomic_xchgptr', + 'args' => [ + { + 'type' => 'volatile void **', + 'name' => 'mem' + }, + { + 'type' => 'void *', + 'name' => 'with' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_decode', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'plain_dst' + }, + { + 'type' => 'const char *', + 'name' => 'coded_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_decode_binary', + 'args' => [ + { + 'type' => 'unsigned char *', + 'name' => 'plain_dst' + }, + { + 'type' => 'const char *', + 'name' => 'coded_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_decode_len', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'coded_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_encode', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'coded_dst' + }, + { + 'type' => 'const char *', + 'name' => 'plain_src' + }, + { + 'type' => 'int', + 'name' => 'len_plain_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_encode_binary', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'coded_dst' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'plain_src' + }, + { + 'type' => 'int', + 'name' => 'len_plain_src' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_base64_encode_len', + 'args' => [ + { + 'type' => 'int', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_bucket_brigade *', + 'name' => 'apr_brigade_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_destroy', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_flatten', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'char *', + 'name' => 'c' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_brigade_insert_file', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'apr_off_t', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_length', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'int', + 'name' => 'read_all' + }, + { + 'type' => 'apr_off_t *', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_partition', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_off_t', + 'name' => 'point' + }, + { + 'type' => 'apr_bucket **', + 'name' => 'after_point' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_pflatten', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'char **', + 'name' => 'c' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_printf', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg4' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_putc', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_puts', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_putstrs', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_bucket_brigade *', + 'name' => 'apr_brigade_split', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'e' + } + ] + }, + { + 'return_type' => 'apr_bucket_brigade *', + 'name' => 'apr_brigade_split_ex', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'e' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'a' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_split_line', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bbOut' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bbIn' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'maxbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_to_iovec', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'int *', + 'name' => 'nvec' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_vprintf', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'va_list', + 'name' => 'va' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_vputstrs', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'va_list', + 'name' => 'va' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_write', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_brigade_writev', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + }, + { + 'type' => 'apr_brigade_flush', + 'name' => 'flush' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nvec' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_bucket_alloc', + 'args' => [ + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket_alloc_t *', + 'name' => 'apr_bucket_alloc_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_bucket_alloc_t *', + 'name' => 'apr_bucket_alloc_create_ex', + 'args' => [ + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_bucket_alloc_destroy', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_copy_notimpl', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'e' + }, + { + 'type' => 'apr_bucket **', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_bucket_destroy_noop', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_eos_create', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_eos_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_file_create', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fd' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_file_enable_mmap', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'int', + 'name' => 'enabled' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_file_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'fd' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_flush_create', + 'args' => [ + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_flush_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_bucket_free', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'block' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_heap_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + }, + { + 'type' => 'void (*free_func)(void *data)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_heap_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + }, + { + 'type' => 'void (*free_func)(void *data)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_immortal_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_immortal_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_mmap_create', + 'args' => [ + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_mmap_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_pipe_create', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thispipe' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_pipe_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thispipe' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_pool_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_pool_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_setaside_noop', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'data' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_setaside_notimpl', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'data' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_shared_copy', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket **', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_bucket_shared_destroy', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_shared_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_shared_split', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_size_t', + 'name' => 'point' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_simple_copy', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket **', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_simple_split', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_size_t', + 'name' => 'point' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_socket_create', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thissock' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_socket_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'thissock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_bucket_split_notimpl', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'data' + }, + { + 'type' => 'apr_size_t', + 'name' => 'point' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_transient_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'apr_bucket_transient_make', + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbyte' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_collapse_spaces', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'dest' + }, + { + 'type' => 'const char *', + 'name' => 'src' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_cpystrn', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'dst' + }, + { + 'type' => 'const char *', + 'name' => 'src' + }, + { + 'type' => 'apr_size_t', + 'name' => 'dst_size' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_block_cleanup', + 'args' => [ + { + 'type' => 'apr_crypto_block_t *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_block_decrypt', + 'args' => [ + { + 'type' => 'unsigned char **', + 'name' => 'out' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'outlen' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'in' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inlen' + }, + { + 'type' => 'apr_crypto_block_t *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_block_decrypt_finish', + 'args' => [ + { + 'type' => 'unsigned char *', + 'name' => 'out' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'outlen' + }, + { + 'type' => 'apr_crypto_block_t *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_block_decrypt_init', + 'args' => [ + { + 'type' => 'apr_crypto_block_t **', + 'name' => 'ctx' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'blockSize' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'iv' + }, + { + 'type' => 'const apr_crypto_key_t *', + 'name' => 'key' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_block_encrypt', + 'args' => [ + { + 'type' => 'unsigned char **', + 'name' => 'out' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'outlen' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'in' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inlen' + }, + { + 'type' => 'apr_crypto_block_t *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_block_encrypt_finish', + 'args' => [ + { + 'type' => 'unsigned char *', + 'name' => 'out' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'outlen' + }, + { + 'type' => 'apr_crypto_block_t *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_block_encrypt_init', + 'args' => [ + { + 'type' => 'apr_crypto_block_t **', + 'name' => 'ctx' + }, + { + 'type' => 'const unsigned char **', + 'name' => 'iv' + }, + { + 'type' => 'const apr_crypto_key_t *', + 'name' => 'key' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'blockSize' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_cleanup', + 'args' => [ + { + 'type' => 'apr_crypto_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_clear', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'void *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_crypto_driver_name', + 'args' => [ + { + 'type' => 'const apr_crypto_driver_t *', + 'name' => 'driver' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_error', + 'args' => [ + { + 'type' => 'const apu_err_t **', + 'name' => 'result' + }, + { + 'type' => 'const apr_crypto_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_get_block_key_modes', + 'args' => [ + { + 'type' => 'apr_hash_t **', + 'name' => 'modes' + }, + { + 'type' => 'const apr_crypto_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_get_block_key_types', + 'args' => [ + { + 'type' => 'apr_hash_t **', + 'name' => 'types' + }, + { + 'type' => 'const apr_crypto_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_get_driver', + 'args' => [ + { + 'type' => 'const apr_crypto_driver_t **', + 'name' => 'driver' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'const char *', + 'name' => 'params' + }, + { + 'type' => 'const apu_err_t **', + 'name' => 'result' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_make', + 'args' => [ + { + 'type' => 'apr_crypto_t **', + 'name' => 'f' + }, + { + 'type' => 'const apr_crypto_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'const char *', + 'name' => 'params' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_passphrase', + 'args' => [ + { + 'type' => 'apr_crypto_key_t **', + 'name' => 'key' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'ivSize' + }, + { + 'type' => 'const char *', + 'name' => 'pass' + }, + { + 'type' => 'apr_size_t', + 'name' => 'passLen' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'salt' + }, + { + 'type' => 'apr_size_t', + 'name' => 'saltLen' + }, + { + 'type' => 'const apr_crypto_block_key_type_e', + 'name' => 'type' + }, + { + 'type' => 'const apr_crypto_block_key_mode_e', + 'name' => 'mode' + }, + { + 'type' => 'const int', + 'name' => 'doPad' + }, + { + 'type' => 'const int', + 'name' => 'iterations' + }, + { + 'type' => 'const apr_crypto_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_crypto_hash_t *', + 'name' => 'apr_crypto_sha256_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_crypto_shutdown', + 'args' => [ + { + 'type' => 'const apr_crypto_driver_t *', + 'name' => 'driver' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_ctime', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_date_checkmask', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'mask' + } + ] + }, + { + 'return_type' => 'apr_time_t', + 'name' => 'apr_date_parse_http', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'date' + } + ] + }, + { + 'return_type' => 'apr_time_t', + 'name' => 'apr_date_parse_rfc', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'date' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_check_conn', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbd_close', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbd_datum_get', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_row_t *', + 'name' => 'row' + }, + { + 'type' => 'int', + 'name' => 'col' + }, + { + 'type' => 'apr_dbd_type_e', + 'name' => 'type' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_dbd_error', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'int', + 'name' => 'errnum' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_dbd_escape', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'string' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbd_get_driver', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'const apr_dbd_driver_t **', + 'name' => 'driver' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_dbd_get_entry', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_row_t *', + 'name' => 'row' + }, + { + 'type' => 'int', + 'name' => 'col' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_dbd_get_name', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_results_t *', + 'name' => 'res' + }, + { + 'type' => 'int', + 'name' => 'col' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_get_row', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_results_t *', + 'name' => 'res' + }, + { + 'type' => 'apr_dbd_row_t **', + 'name' => 'row' + }, + { + 'type' => 'int', + 'name' => 'rownum' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbd_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_dbd_name', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + } + ] + }, + { + 'return_type' => 'void*', + 'name' => 'apr_dbd_native_handle', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_num_cols', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_results_t *', + 'name' => 'res' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_num_tuples', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_results_t *', + 'name' => 'res' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbd_open', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'params' + }, + { + 'type' => 'apr_dbd_t **', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbd_open_ex', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'params' + }, + { + 'type' => 'apr_dbd_t **', + 'name' => 'handle' + }, + { + 'type' => 'const char **', + 'name' => 'error' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_pbquery', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'int *', + 'name' => 'nrows' + }, + { + 'type' => 'apr_dbd_prepared_t *', + 'name' => 'statement' + }, + { + 'type' => 'const void **', + 'name' => 'args' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_pbselect', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'apr_dbd_results_t **', + 'name' => 'res' + }, + { + 'type' => 'apr_dbd_prepared_t *', + 'name' => 'statement' + }, + { + 'type' => 'int', + 'name' => 'random' + }, + { + 'type' => 'const void **', + 'name' => 'args' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_pquery', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'int *', + 'name' => 'nrows' + }, + { + 'type' => 'apr_dbd_prepared_t *', + 'name' => 'statement' + }, + { + 'type' => 'int', + 'name' => 'nargs' + }, + { + 'type' => 'const char **', + 'name' => 'args' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_prepare', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'const char *', + 'name' => 'query' + }, + { + 'type' => 'const char *', + 'name' => 'label' + }, + { + 'type' => 'apr_dbd_prepared_t **', + 'name' => 'statement' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_pselect', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'apr_dbd_results_t **', + 'name' => 'res' + }, + { + 'type' => 'apr_dbd_prepared_t *', + 'name' => 'statement' + }, + { + 'type' => 'int', + 'name' => 'random' + }, + { + 'type' => 'int', + 'name' => 'nargs' + }, + { + 'type' => 'const char **', + 'name' => 'args' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_pvbquery', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'int *', + 'name' => 'nrows' + }, + { + 'type' => 'apr_dbd_prepared_t *', + 'name' => 'statement' + }, + { + 'type' => '...', + 'name' => 'arg5' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_pvbselect', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'apr_dbd_results_t **', + 'name' => 'res' + }, + { + 'type' => 'apr_dbd_prepared_t *', + 'name' => 'statement' + }, + { + 'type' => 'int', + 'name' => 'random' + }, + { + 'type' => '...', + 'name' => 'arg6' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_pvquery', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'int *', + 'name' => 'nrows' + }, + { + 'type' => 'apr_dbd_prepared_t *', + 'name' => 'statement' + }, + { + 'type' => '...', + 'name' => 'arg5' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_pvselect', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'apr_dbd_results_t **', + 'name' => 'res' + }, + { + 'type' => 'apr_dbd_prepared_t *', + 'name' => 'statement' + }, + { + 'type' => 'int', + 'name' => 'random' + }, + { + 'type' => '...', + 'name' => 'arg6' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_query', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'int *', + 'name' => 'nrows' + }, + { + 'type' => 'const char *', + 'name' => 'statement' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_select', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'apr_dbd_results_t **', + 'name' => 'res' + }, + { + 'type' => 'const char *', + 'name' => 'statement' + }, + { + 'type' => 'int', + 'name' => 'random' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_set_dbname', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_transaction_end', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_transaction_t *', + 'name' => 'trans' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_transaction_mode_get', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_transaction_t *', + 'name' => 'trans' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_transaction_mode_set', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_dbd_transaction_t *', + 'name' => 'trans' + }, + { + 'type' => 'int', + 'name' => 'mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbd_transaction_start', + 'args' => [ + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'apr_dbd_transaction_t **', + 'name' => 'trans' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_dbm_close', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_delete', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_dbm_exists', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_fetch', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'key' + }, + { + 'type' => 'apr_datum_t *', + 'name' => 'pvalue' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_firstkey', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t *', + 'name' => 'pkey' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_dbm_freedatum', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_dbm_get_usednames', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'pathname' + }, + { + 'type' => 'const char **', + 'name' => 'used1' + }, + { + 'type' => 'const char **', + 'name' => 'used2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_get_usednames_ex', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'pathname' + }, + { + 'type' => 'const char **', + 'name' => 'used1' + }, + { + 'type' => 'const char **', + 'name' => 'used2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_dbm_geterror', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'int *', + 'name' => 'errcode' + }, + { + 'type' => 'char *', + 'name' => 'errbuf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'errbufsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_nextkey', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t *', + 'name' => 'pkey' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_open', + 'args' => [ + { + 'type' => 'apr_dbm_t **', + 'name' => 'dbm' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cntxt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_open_ex', + 'args' => [ + { + 'type' => 'apr_dbm_t **', + 'name' => 'dbm' + }, + { + 'type' => 'const char*', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cntxt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dbm_store', + 'args' => [ + { + 'type' => 'apr_dbm_t *', + 'name' => 'dbm' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'key' + }, + { + 'type' => 'apr_datum_t', + 'name' => 'value' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_close', + 'args' => [ + { + 'type' => 'apr_dir_t *', + 'name' => 'thedir' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_make', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_make_recursive', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_open', + 'args' => [ + { + 'type' => 'apr_dir_t **', + 'name' => 'new_dir' + }, + { + 'type' => 'const char *', + 'name' => 'dirname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_read', + 'args' => [ + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'apr_dir_t *', + 'name' => 'thedir' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_remove', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dir_rewind', + 'args' => [ + { + 'type' => 'apr_dir_t *', + 'name' => 'thedir' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_dso_error', + 'args' => [ + { + 'type' => 'apr_dso_handle_t *', + 'name' => 'dso' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bufsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dso_load', + 'args' => [ + { + 'type' => 'apr_dso_handle_t **', + 'name' => 'res_handle' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ctx' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dso_sym', + 'args' => [ + { + 'type' => 'apr_dso_handle_sym_t *', + 'name' => 'ressym' + }, + { + 'type' => 'apr_dso_handle_t *', + 'name' => 'handle' + }, + { + 'type' => 'const char *', + 'name' => 'symname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_dso_unload', + 'args' => [ + { + 'type' => 'apr_dso_handle_t *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_dynamic_fn_register', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'apr_opt_fn_t *', + 'name' => 'pfn' + } + ] + }, + { + 'return_type' => 'apr_opt_fn_t *', + 'name' => 'apr_dynamic_fn_retrieve', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_env_delete', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'envvar' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_env_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'value' + }, + { + 'type' => 'const char *', + 'name' => 'envvar' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_env_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'envvar' + }, + { + 'type' => 'const char *', + 'name' => 'value' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_append', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'from_path' + }, + { + 'type' => 'const char *', + 'name' => 'to_path' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_attrs_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_fileattrs_t', + 'name' => 'attributes' + }, + { + 'type' => 'apr_fileattrs_t', + 'name' => 'attr_mask' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_buffer_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bufsize' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_file_buffer_size_get', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_close', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_copy', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'from_path' + }, + { + 'type' => 'const char *', + 'name' => 'to_path' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_data_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_data_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'file' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_datasync', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_dup', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'new_file' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'old_file' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_dup2', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'new_file' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'old_file' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_eof', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fptr' + } + ] + }, + { + 'return_type' => 'apr_int32_t', + 'name' => 'apr_file_flags_get', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'f' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_flush', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_getc', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'ch' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_gets', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'str' + }, + { + 'type' => 'int', + 'name' => 'len' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_info_get', + 'args' => [ + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_inherit_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_inherit_unset', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_link', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'from_path' + }, + { + 'type' => 'const char *', + 'name' => 'to_path' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_lock', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_mktemp', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'fp' + }, + { + 'type' => 'char *', + 'name' => 'templ' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_mtime_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_name_get', + 'args' => [ + { + 'type' => 'const char **', + 'name' => 'new_path' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_namedpipe_create', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'newf' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flag' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_flags_stderr', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_flags_stdin', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_flags_stdout', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_stderr', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_stdin', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_open_stdout', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'thefile' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_perms_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perms' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_pipe_create', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'in' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'out' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_pipe_create_ex', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'in' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'out' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'blocking' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_pipe_timeout_get', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thepipe' + }, + { + 'type' => 'apr_interval_time_t *', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_pipe_timeout_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thepipe' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_file_pool_get', + 'args' => [ + { + 'type' => 'const apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_file_printf', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fptr' + }, + { + 'type' => 'const char *', + 'name' => 'format' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_putc', + 'args' => [ + { + 'type' => 'char', + 'name' => 'ch' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_puts', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_read', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_read_full', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbytes' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'bytes_read' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_remove', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_rename', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'from_path' + }, + { + 'type' => 'const char *', + 'name' => 'to_path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_seek', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'apr_seek_where_t', + 'name' => 'where' + }, + { + 'type' => 'apr_off_t *', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_setaside', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'new_file' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'old_file' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_sync', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_trunc', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'fp' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_ungetc', + 'args' => [ + { + 'type' => 'char', + 'name' => 'ch' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_unlock', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_write', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'const void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_write_full', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'const void *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbytes' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'bytes_written' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_writev', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nvec' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_file_writev_full', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nvec' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_encoding', + 'args' => [ + { + 'type' => 'int *', + 'name' => 'style' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'path' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_list_merge', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'liststr' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'pathelts' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_list_split', + 'args' => [ + { + 'type' => 'apr_array_header_t **', + 'name' => 'pathelts' + }, + { + 'type' => 'const char *', + 'name' => 'liststr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_merge', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'newpath' + }, + { + 'type' => 'const char *', + 'name' => 'rootpath' + }, + { + 'type' => 'const char *', + 'name' => 'addpath' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_filepath_name_get', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pathname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_root', + 'args' => [ + { + 'type' => 'const char **', + 'name' => 'rootpath' + }, + { + 'type' => 'const char **', + 'name' => 'filepath' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_filepath_set', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_fnmatch', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pattern' + }, + { + 'type' => 'const char *', + 'name' => 'strings' + }, + { + 'type' => 'int', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_fnmatch_test', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pattern' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_generate_random_bytes', + 'args' => [ + { + 'type' => 'unsigned char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_gethostname', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'int', + 'name' => 'len' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getnameinfo', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'hostname' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getopt', + 'args' => [ + { + 'type' => 'apr_getopt_t *', + 'name' => 'os' + }, + { + 'type' => 'const char *', + 'name' => 'opts' + }, + { + 'type' => 'char *', + 'name' => 'option_ch' + }, + { + 'type' => 'const char **', + 'name' => 'option_arg' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getopt_init', + 'args' => [ + { + 'type' => 'apr_getopt_t **', + 'name' => 'os' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + }, + { + 'type' => 'int', + 'name' => 'argc' + }, + { + 'type' => 'const char * const *', + 'name' => 'argv' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getopt_long', + 'args' => [ + { + 'type' => 'apr_getopt_t *', + 'name' => 'os' + }, + { + 'type' => 'const apr_getopt_option_t *', + 'name' => 'opts' + }, + { + 'type' => 'int *', + 'name' => 'option_ch' + }, + { + 'type' => 'const char **', + 'name' => 'option_arg' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_getservbyname', + 'args' => [ + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + }, + { + 'type' => 'const char *', + 'name' => 'servname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_gid_get', + 'args' => [ + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'const char *', + 'name' => 'groupname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_gid_name_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'groupname' + }, + { + 'type' => 'apr_gid_t', + 'name' => 'groupid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_child_init', + 'args' => [ + { + 'type' => 'apr_global_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_create', + 'args' => [ + { + 'type' => 'apr_global_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_lockmech_e', + 'name' => 'mech' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_destroy', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_lock', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_global_mutex_lockfile', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_global_mutex_name', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_global_mutex_pool_get', + 'args' => [ + { + 'type' => 'const apr_global_mutex_t *', + 'name' => 'theglobal_mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_trylock', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_global_mutex_unlock', + 'args' => [ + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hash_clear', + 'args' => [ + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_copy', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'h' + } + ] + }, + { + 'return_type' => 'unsigned int', + 'name' => 'apr_hash_count', + 'args' => [ + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_hash_do', + 'args' => [ + { + 'type' => 'apr_hash_do_callback_fn_t *comp', + 'name' => 'arg0' + }, + { + 'type' => 'void *', + 'name' => 'rec' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'ht' + } + ] + }, + { + 'return_type' => 'apr_hash_index_t *', + 'name' => 'apr_hash_first', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_hash_get', + 'args' => [ + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + }, + { + 'type' => 'const void *', + 'name' => 'key' + }, + { + 'type' => 'apr_ssize_t', + 'name' => 'klen' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_make', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_make_custom', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_hashfunc_t', + 'name' => 'hash_func' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'h1' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'h2' + }, + { + 'type' => 'void * (*merger)(apr_pool_t *p, const void *key, apr_ssize_t klen, const void *h1_val, const void *h2_val, const void *data)', + 'name' => 'arg3' + }, + { + 'type' => 'const void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_hash_index_t *', + 'name' => 'apr_hash_next', + 'args' => [ + { + 'type' => 'apr_hash_index_t *', + 'name' => 'hi' + } + ] + }, + { + 'return_type' => 'apr_hash_t *', + 'name' => 'apr_hash_overlay', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'overlay' + }, + { + 'type' => 'const apr_hash_t *', + 'name' => 'base' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_hash_pool_get', + 'args' => [ + { + 'type' => 'const apr_hash_t *', + 'name' => 'thehash' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hash_set', + 'args' => [ + { + 'type' => 'apr_hash_t *', + 'name' => 'ht' + }, + { + 'type' => 'const void *', + 'name' => 'key' + }, + { + 'type' => 'apr_ssize_t', + 'name' => 'klen' + }, + { + 'type' => 'const void *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hash_this', + 'args' => [ + { + 'type' => 'apr_hash_index_t *', + 'name' => 'hi' + }, + { + 'type' => 'const void **', + 'name' => 'key' + }, + { + 'type' => 'apr_ssize_t *', + 'name' => 'klen' + }, + { + 'type' => 'void **', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'unsigned int', + 'name' => 'apr_hashfunc_default', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_ssize_t *', + 'name' => 'klen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hook_debug_show', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hook_deregister_all', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hook_sort_all', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_hook_sort_register', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szHookName' + }, + { + 'type' => 'apr_array_header_t **', + 'name' => 'aHooks' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_initialize', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_ipsubnet_create', + 'args' => [ + { + 'type' => 'apr_ipsubnet_t **', + 'name' => 'ipsub' + }, + { + 'type' => 'const char *', + 'name' => 'ipstr' + }, + { + 'type' => 'const char *', + 'name' => 'mask_or_numbits' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ipsubnet_test', + 'args' => [ + { + 'type' => 'apr_ipsubnet_t *', + 'name' => 'ipsub' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_is_empty_array', + 'args' => [ + { + 'type' => 'const apr_array_header_t *', + 'name' => 'a' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_is_empty_table', + 'args' => [ + { + 'type' => 'const apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_itoa', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_get_option', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'LDAP *', + 'name' => 'ldap' + }, + { + 'type' => 'int', + 'name' => 'option' + }, + { + 'type' => 'void *', + 'name' => 'outvalue' + }, + { + 'type' => 'apr_ldap_err_t **', + 'name' => 'result_err' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_info', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_ldap_err_t **', + 'name' => 'result_err' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'LDAP **', + 'name' => 'ldap' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'int', + 'name' => 'portno' + }, + { + 'type' => 'int', + 'name' => 'secure' + }, + { + 'type' => 'apr_ldap_err_t **', + 'name' => 'result_err' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_is_ldap_url', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_is_ldapi_url', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_is_ldaps_url', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_ldap_rebind_add', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'LDAP *', + 'name' => 'ld' + }, + { + 'type' => 'const char *', + 'name' => 'bindDN' + }, + { + 'type' => 'const char *', + 'name' => 'bindPW' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_ldap_rebind_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_ldap_rebind_remove', + 'args' => [ + { + 'type' => 'LDAP *', + 'name' => 'ld' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_set_option', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'LDAP *', + 'name' => 'ldap' + }, + { + 'type' => 'int', + 'name' => 'option' + }, + { + 'type' => 'const void *', + 'name' => 'invalue' + }, + { + 'type' => 'apr_ldap_err_t **', + 'name' => 'result_err' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_ssl_deinit', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_ssl_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'cert_auth_file' + }, + { + 'type' => 'int', + 'name' => 'cert_file_type' + }, + { + 'type' => 'apr_ldap_err_t **', + 'name' => 'result_err' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_url_parse', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'url_in' + }, + { + 'type' => 'apr_ldap_url_desc_t **', + 'name' => 'ludpp' + }, + { + 'type' => 'apr_ldap_err_t **', + 'name' => 'result_err' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_ldap_url_parse_ext', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'url_in' + }, + { + 'type' => 'apr_ldap_url_desc_t **', + 'name' => 'ludpp' + }, + { + 'type' => 'apr_ldap_err_t **', + 'name' => 'result_err' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_ltoa', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'long', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_match_glob', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'pattern' + }, + { + 'type' => 'apr_array_header_t **', + 'name' => 'result' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mcast_hops', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_byte_t', + 'name' => 'ttl' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mcast_interface', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'iface' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mcast_join', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'join' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'iface' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'source' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mcast_leave', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'addr' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'iface' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'source' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mcast_loopback', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_byte_t', + 'name' => 'opt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'input' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4_final', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'apr_md4_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4_init', + 'args' => [ + { + 'type' => 'apr_md4_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4_set_xlate', + 'args' => [ + { + 'type' => 'apr_md4_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'apr_xlate_t *', + 'name' => 'xlate' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md4_update', + 'args' => [ + { + 'type' => 'apr_md4_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'input' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'const void *', + 'name' => 'input' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_encode', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'password' + }, + { + 'type' => 'const char *', + 'name' => 'salt' + }, + { + 'type' => 'char *', + 'name' => 'result' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_final', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_init', + 'args' => [ + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_set_xlate', + 'args' => [ + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'apr_xlate_t *', + 'name' => 'xlate' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_md5_update', + 'args' => [ + { + 'type' => 'apr_md5_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'const void *', + 'name' => 'input' + }, + { + 'type' => 'apr_size_t', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_add', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'char *', + 'name' => 'baton' + }, + { + 'type' => 'const apr_size_t', + 'name' => 'data_size' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_uint16_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_memcache_add_multget_key', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'data_pool' + }, + { + 'type' => 'const char*', + 'name' => 'key' + }, + { + 'type' => 'apr_hash_t **', + 'name' => 'values' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_add_server', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'apr_memcache_server_t *', + 'name' => 'server' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_uint16_t', + 'name' => 'max_servers' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_memcache_t **', + 'name' => 'mc' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_decr', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'n' + }, + { + 'type' => 'apr_uint32_t *', + 'name' => 'new_value' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_delete', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_disable_server', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'apr_memcache_server_t *', + 'name' => 'ms' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_enable_server', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'apr_memcache_server_t *', + 'name' => 'ms' + } + ] + }, + { + 'return_type' => 'apr_memcache_server_t *', + 'name' => 'apr_memcache_find_server', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const char *', + 'name' => 'host' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + } + ] + }, + { + 'return_type' => 'apr_memcache_server_t *', + 'name' => 'apr_memcache_find_server_hash', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const apr_uint32_t', + 'name' => 'hash' + } + ] + }, + { + 'return_type' => 'apr_memcache_server_t *', + 'name' => 'apr_memcache_find_server_hash_default', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'baton' + }, + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const apr_uint32_t', + 'name' => 'hash' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_getp', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char*', + 'name' => 'key' + }, + { + 'type' => 'char **', + 'name' => 'baton' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + }, + { + 'type' => 'apr_uint16_t *', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_memcache_hash', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const char *', + 'name' => 'data' + }, + { + 'type' => 'const apr_size_t', + 'name' => 'data_len' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_memcache_hash_crc32', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'baton' + }, + { + 'type' => 'const char *', + 'name' => 'data' + }, + { + 'type' => 'const apr_size_t', + 'name' => 'data_len' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_memcache_hash_default', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'baton' + }, + { + 'type' => 'const char *', + 'name' => 'data' + }, + { + 'type' => 'const apr_size_t', + 'name' => 'data_len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_incr', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'n' + }, + { + 'type' => 'apr_uint32_t *', + 'name' => 'nv' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_multgetp', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'data_pool' + }, + { + 'type' => 'apr_hash_t *', + 'name' => 'values' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_replace', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'char *', + 'name' => 'baton' + }, + { + 'type' => 'const apr_size_t', + 'name' => 'data_size' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_uint16_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_server_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'host' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'min' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'smax' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'max' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'ttl' + }, + { + 'type' => 'apr_memcache_server_t **', + 'name' => 'ns' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_set', + 'args' => [ + { + 'type' => 'apr_memcache_t *', + 'name' => 'mc' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'char *', + 'name' => 'baton' + }, + { + 'type' => 'const apr_size_t', + 'name' => 'data_size' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_uint16_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_stats', + 'args' => [ + { + 'type' => 'apr_memcache_server_t *', + 'name' => 'ms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_memcache_stats_t **', + 'name' => 'stats' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_memcache_version', + 'args' => [ + { + 'type' => 'apr_memcache_server_t *', + 'name' => 'ms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char **', + 'name' => 'baton' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mmap_create', + 'args' => [ + { + 'type' => 'apr_mmap_t **', + 'name' => 'newmmap' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flag' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cntxt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mmap_delete', + 'args' => [ + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mmap_dup', + 'args' => [ + { + 'type' => 'apr_mmap_t **', + 'name' => 'new_mmap' + }, + { + 'type' => 'apr_mmap_t *', + 'name' => 'old_mmap' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_mmap_offset', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'addr' + }, + { + 'type' => 'apr_mmap_t *', + 'name' => 'mm' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_off_t_toa', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_off_t', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_optional_hook_add', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'void (*pfn)(void)', + 'name' => 'arg1' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPre' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSucc' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'apr_optional_hook_get', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'szName' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_os_default_encoding', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_dir_get', + 'args' => [ + { + 'type' => 'apr_os_dir_t **', + 'name' => 'thedir' + }, + { + 'type' => 'apr_dir_t *', + 'name' => 'dir' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_dir_put', + 'args' => [ + { + 'type' => 'apr_dir_t **', + 'name' => 'dir' + }, + { + 'type' => 'apr_os_dir_t *', + 'name' => 'thedir' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_dso_handle_get', + 'args' => [ + { + 'type' => 'apr_os_dso_handle_t *', + 'name' => 'dso' + }, + { + 'type' => 'apr_dso_handle_t *', + 'name' => 'aprdso' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_dso_handle_put', + 'args' => [ + { + 'type' => 'apr_dso_handle_t **', + 'name' => 'dso' + }, + { + 'type' => 'apr_os_dso_handle_t', + 'name' => 'thedso' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_exp_time_get', + 'args' => [ + { + 'type' => 'apr_os_exp_time_t **', + 'name' => 'ostime' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'aprtime' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_exp_time_put', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'aprtime' + }, + { + 'type' => 'apr_os_exp_time_t **', + 'name' => 'ostime' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_file_get', + 'args' => [ + { + 'type' => 'apr_os_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_file_put', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'file' + }, + { + 'type' => 'apr_os_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_global_mutex_get', + 'args' => [ + { + 'type' => 'apr_os_global_mutex_t *', + 'name' => 'ospmutex' + }, + { + 'type' => 'apr_global_mutex_t *', + 'name' => 'pmutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_imp_time_get', + 'args' => [ + { + 'type' => 'apr_os_imp_time_t **', + 'name' => 'ostime' + }, + { + 'type' => 'apr_time_t *', + 'name' => 'aprtime' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_imp_time_put', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'aprtime' + }, + { + 'type' => 'apr_os_imp_time_t **', + 'name' => 'ostime' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'const char*', + 'name' => 'apr_os_locale_encoding', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_pipe_put', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'file' + }, + { + 'type' => 'apr_os_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_pipe_put_ex', + 'args' => [ + { + 'type' => 'apr_file_t **', + 'name' => 'file' + }, + { + 'type' => 'apr_os_file_t *', + 'name' => 'thefile' + }, + { + 'type' => 'int', + 'name' => 'register_cleanup' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_proc_mutex_get', + 'args' => [ + { + 'type' => 'apr_os_proc_mutex_t *', + 'name' => 'ospmutex' + }, + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'pmutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_proc_mutex_put', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t **', + 'name' => 'pmutex' + }, + { + 'type' => 'apr_os_proc_mutex_t *', + 'name' => 'ospmutex' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_shm_get', + 'args' => [ + { + 'type' => 'apr_os_shm_t *', + 'name' => 'osshm' + }, + { + 'type' => 'apr_shm_t *', + 'name' => 'shm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_shm_put', + 'args' => [ + { + 'type' => 'apr_shm_t **', + 'name' => 'shm' + }, + { + 'type' => 'apr_os_shm_t *', + 'name' => 'osshm' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_sock_get', + 'args' => [ + { + 'type' => 'apr_os_sock_t *', + 'name' => 'thesock' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_sock_make', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'apr_sock' + }, + { + 'type' => 'apr_os_sock_info_t *', + 'name' => 'os_sock_info' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_sock_put', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'sock' + }, + { + 'type' => 'apr_os_sock_t *', + 'name' => 'thesock' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_os_thread_t', + 'name' => 'apr_os_thread_current', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'apr_os_thread_equal', + 'args' => [ + { + 'type' => 'apr_os_thread_t', + 'name' => 'tid1' + }, + { + 'type' => 'apr_os_thread_t', + 'name' => 'tid2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_thread_get', + 'args' => [ + { + 'type' => 'apr_os_thread_t **', + 'name' => 'thethd' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_thread_put', + 'args' => [ + { + 'type' => 'apr_thread_t **', + 'name' => 'thd' + }, + { + 'type' => 'apr_os_thread_t *', + 'name' => 'thethd' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_threadkey_get', + 'args' => [ + { + 'type' => 'apr_os_threadkey_t *', + 'name' => 'thekey' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_threadkey_put', + 'args' => [ + { + 'type' => 'apr_threadkey_t **', + 'name' => 'key' + }, + { + 'type' => 'apr_os_threadkey_t *', + 'name' => 'thekey' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_os_uuid_get', + 'args' => [ + { + 'type' => 'unsigned char *', + 'name' => 'uuid_data' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_palloc', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_palloc_debug', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_parse_addr_port', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'addr' + }, + { + 'type' => 'char **', + 'name' => 'scope_id' + }, + { + 'type' => 'apr_port_t *', + 'name' => 'port' + }, + { + 'type' => 'const char *', + 'name' => 'str' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_password_get', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'prompt' + }, + { + 'type' => 'char *', + 'name' => 'pwbuf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'bufsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_password_validate', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'passwd' + }, + { + 'type' => 'const char *', + 'name' => 'hash' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_pcalloc_debug', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_pmemdup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'm' + }, + { + 'type' => 'apr_size_t', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_poll', + 'args' => [ + { + 'type' => 'apr_pollfd_t *', + 'name' => 'aprset' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'numsock' + }, + { + 'type' => 'apr_int32_t *', + 'name' => 'nsds' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_poll_method_defname', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollcb_add', + 'args' => [ + { + 'type' => 'apr_pollcb_t *', + 'name' => 'pollcb' + }, + { + 'type' => 'apr_pollfd_t *', + 'name' => 'descriptor' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollcb_create', + 'args' => [ + { + 'type' => 'apr_pollcb_t **', + 'name' => 'pollcb' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'size' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollcb_create_ex', + 'args' => [ + { + 'type' => 'apr_pollcb_t **', + 'name' => 'pollcb' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'size' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pollset_method_e', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollcb_poll', + 'args' => [ + { + 'type' => 'apr_pollcb_t *', + 'name' => 'pollcb' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_pollcb_cb_t', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'baton' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollcb_remove', + 'args' => [ + { + 'type' => 'apr_pollcb_t *', + 'name' => 'pollcb' + }, + { + 'type' => 'apr_pollfd_t *', + 'name' => 'descriptor' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_add', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + }, + { + 'type' => 'const apr_pollfd_t *', + 'name' => 'descriptor' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_create', + 'args' => [ + { + 'type' => 'apr_pollset_t **', + 'name' => 'pollset' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'size' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_create_ex', + 'args' => [ + { + 'type' => 'apr_pollset_t **', + 'name' => 'pollset' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'size' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pollset_method_e', + 'name' => 'method' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_destroy', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_pollset_method_name', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_poll', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_int32_t *', + 'name' => 'num' + }, + { + 'type' => 'const apr_pollfd_t **', + 'name' => 'descriptors' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_remove', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + }, + { + 'type' => 'const apr_pollfd_t *', + 'name' => 'descriptor' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pollset_wakeup', + 'args' => [ + { + 'type' => 'apr_pollset_t *', + 'name' => 'pollset' + } + ] + }, + { + 'return_type' => 'apr_abortfunc_t', + 'name' => 'apr_pool_abort_get', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_abort_set', + 'args' => [ + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abortfunc' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_allocator_t *', + 'name' => 'apr_pool_allocator_get', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_child_cleanup_set', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*plain_cleanup)(void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_status_t (*child_cleanup)(void *)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_cleanup_for_exec', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_cleanup_kill', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_cleanup_null', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_cleanup_register', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*plain_cleanup)(void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_status_t (*child_cleanup)(void *)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_cleanup_run', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_clear', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_clear_debug', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_create_core_ex', + 'args' => [ + { + 'type' => 'apr_pool_t **', + 'name' => 'newpool' + }, + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abort_fn' + }, + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_create_core_ex_debug', + 'args' => [ + { + 'type' => 'apr_pool_t **', + 'name' => 'newpool' + }, + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abort_fn' + }, + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_create_ex', + 'args' => [ + { + 'type' => 'apr_pool_t **', + 'name' => 'newpool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'parent' + }, + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abort_fn' + }, + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_create_ex_debug', + 'args' => [ + { + 'type' => 'apr_pool_t **', + 'name' => 'newpool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'parent' + }, + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abort_fn' + }, + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_create_unmanaged_ex', + 'args' => [ + { + 'type' => 'apr_pool_t **', + 'name' => 'newpool' + }, + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abort_fn' + }, + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_create_unmanaged_ex_debug', + 'args' => [ + { + 'type' => 'apr_pool_t **', + 'name' => 'newpool' + }, + { + 'type' => 'apr_abortfunc_t', + 'name' => 'abort_fn' + }, + { + 'type' => 'apr_allocator_t *', + 'name' => 'allocator' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_destroy', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_destroy_debug', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'file_line' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_initialize', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'apr_pool_is_ancestor', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_note_subprocess', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + }, + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'apr_kill_conditions_e', + 'name' => 'how' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_pool_parent_get', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_pre_cleanup_register', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'apr_status_t (*plain_cleanup)(void *)', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_tag', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'tag' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_pool_terminate', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_userdata_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_userdata_set', + 'args' => [ + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_pool_userdata_setn', + 'args' => [ + { + 'type' => 'const void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup)(void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_create', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'new_proc' + }, + { + 'type' => 'const char *', + 'name' => 'progname' + }, + { + 'type' => 'const char * const *', + 'name' => 'args' + }, + { + 'type' => 'const char * const *', + 'name' => 'env' + }, + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_detach', + 'args' => [ + { + 'type' => 'int', + 'name' => 'daemonize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_fork', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_kill', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int', + 'name' => 'sig' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_child_init', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_create', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_lockmech_e', + 'name' => 'mech' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_proc_mutex_defname', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_destroy', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_lock', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_proc_mutex_lockfile', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_proc_mutex_name', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_proc_mutex_pool_get', + 'args' => [ + { + 'type' => 'const apr_proc_mutex_t *', + 'name' => 'theproc_mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_trylock', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_mutex_unlock', + 'args' => [ + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_other_child_alert', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int', + 'name' => 'reason' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_refresh', + 'args' => [ + { + 'type' => 'apr_other_child_rec_t *', + 'name' => 'ocr' + }, + { + 'type' => 'int', + 'name' => 'reason' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_refresh_all', + 'args' => [ + { + 'type' => 'int', + 'name' => 'reason' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_register', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'void (*maintenance) (int reason, void *, int status)', + 'name' => 'arg1' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'write_fd' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_proc_other_child_unregister', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_wait', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int *', + 'name' => 'exitcode' + }, + { + 'type' => 'apr_exit_why_e *', + 'name' => 'exitwhy' + }, + { + 'type' => 'apr_wait_how_e', + 'name' => 'waithow' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_proc_wait_all_procs', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + }, + { + 'type' => 'int *', + 'name' => 'exitcode' + }, + { + 'type' => 'apr_exit_why_e *', + 'name' => 'exitwhy' + }, + { + 'type' => 'apr_wait_how_e', + 'name' => 'waithow' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_addrspace_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'addrspace' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_child_err_set', + 'args' => [ + { + 'type' => 'struct apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'child_err' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'parent_err' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_child_errfn_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_child_errfn_t *', + 'name' => 'errfn' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_child_in_set', + 'args' => [ + { + 'type' => 'struct apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'child_in' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'parent_in' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_child_out_set', + 'args' => [ + { + 'type' => 'struct apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'child_out' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'parent_out' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_cmdtype_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_cmdtype_e', + 'name' => 'cmd' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_create', + 'args' => [ + { + 'type' => 'apr_procattr_t **', + 'name' => 'new_attr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_detach_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'detach' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_dir_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'const char *', + 'name' => 'dir' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_error_check_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'chk' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_group_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'const char *', + 'name' => 'groupname' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_io_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'in' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'out' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'err' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_limit_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'what' + }, + { + 'type' => 'struct rlimit *', + 'name' => 'limit' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_procattr_user_set', + 'args' => [ + { + 'type' => 'apr_procattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'const char *', + 'name' => 'username' + }, + { + 'type' => 'const char *', + 'name' => 'password' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_psprintf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrcat', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => '...', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrcatv', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nvec' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'nbytes' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrdup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrmemdup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'apr_size_t', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pstrndup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'apr_size_t', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_pvsprintf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'va_list', + 'name' => 'ap' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_create', + 'args' => [ + { + 'type' => 'apr_queue_t **', + 'name' => 'queue' + }, + { + 'type' => 'unsigned int', + 'name' => 'queue_capacity' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'a' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_interrupt_all', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_pop', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + }, + { + 'type' => 'void **', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_push', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'unsigned int', + 'name' => 'apr_queue_size', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_term', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_trypop', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + }, + { + 'type' => 'void **', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_queue_trypush', + 'args' => [ + { + 'type' => 'apr_queue_t *', + 'name' => 'queue' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_random_add_entropy', + 'args' => [ + { + 'type' => 'apr_random_t *', + 'name' => 'g' + }, + { + 'type' => 'const void *', + 'name' => 'entropy_' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bytes' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_random_after_fork', + 'args' => [ + { + 'type' => 'apr_proc_t *', + 'name' => 'proc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_random_barrier', + 'args' => [ + { + 'type' => 'apr_random_t *', + 'name' => 'g' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_random_init', + 'args' => [ + { + 'type' => 'apr_random_t *', + 'name' => 'g' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_crypto_hash_t *', + 'name' => 'pool_hash' + }, + { + 'type' => 'apr_crypto_hash_t *', + 'name' => 'key_hash' + }, + { + 'type' => 'apr_crypto_hash_t *', + 'name' => 'prng_hash' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_random_insecure_bytes', + 'args' => [ + { + 'type' => 'apr_random_t *', + 'name' => 'g' + }, + { + 'type' => 'void *', + 'name' => 'random' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_random_insecure_ready', + 'args' => [ + { + 'type' => 'apr_random_t *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_random_secure_bytes', + 'args' => [ + { + 'type' => 'apr_random_t *', + 'name' => 'g' + }, + { + 'type' => 'void *', + 'name' => 'random' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_random_secure_ready', + 'args' => [ + { + 'type' => 'apr_random_t *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_random_t *', + 'name' => 'apr_random_standard_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_acquire', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + }, + { + 'type' => 'void **', + 'name' => 'resource' + } + ] + }, + { + 'return_type' => 'apr_uint32_t', + 'name' => 'apr_reslist_acquired_count', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_reslist_cleanup_order_set', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'mode' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_create', + 'args' => [ + { + 'type' => 'apr_reslist_t **', + 'name' => 'reslist' + }, + { + 'type' => 'int', + 'name' => 'min' + }, + { + 'type' => 'int', + 'name' => 'smax' + }, + { + 'type' => 'int', + 'name' => 'hmax' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'ttl' + }, + { + 'type' => 'apr_reslist_constructor', + 'name' => 'con' + }, + { + 'type' => 'apr_reslist_destructor', + 'name' => 'de' + }, + { + 'type' => 'void *', + 'name' => 'params' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_destroy', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_invalidate', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + }, + { + 'type' => 'void *', + 'name' => 'resource' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_maintain', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_reslist_release', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + }, + { + 'type' => 'void *', + 'name' => 'resource' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_reslist_timeout_set', + 'args' => [ + { + 'type' => 'apr_reslist_t *', + 'name' => 'reslist' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_rfc822_date', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'date_str' + }, + { + 'type' => 'apr_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_rmm_addr_get', + 'args' => [ + { + 'type' => 'apr_rmm_t *', + 'name' => 'rmm' + }, + { + 'type' => 'apr_rmm_off_t', + 'name' => 'entity' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_rmm_attach', + 'args' => [ + { + 'type' => 'apr_rmm_t **', + 'name' => 'rmm' + }, + { + 'type' => 'apr_anylock_t *', + 'name' => 'lock' + }, + { + 'type' => 'void *', + 'name' => 'membuf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_rmm_off_t', + 'name' => 'apr_rmm_calloc', + 'args' => [ + { + 'type' => 'apr_rmm_t *', + 'name' => 'rmm' + }, + { + 'type' => 'apr_size_t', + 'name' => 'reqsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_rmm_destroy', + 'args' => [ + { + 'type' => 'apr_rmm_t *', + 'name' => 'rmm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_rmm_detach', + 'args' => [ + { + 'type' => 'apr_rmm_t *', + 'name' => 'rmm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_rmm_free', + 'args' => [ + { + 'type' => 'apr_rmm_t *', + 'name' => 'rmm' + }, + { + 'type' => 'apr_rmm_off_t', + 'name' => 'entity' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_rmm_init', + 'args' => [ + { + 'type' => 'apr_rmm_t **', + 'name' => 'rmm' + }, + { + 'type' => 'apr_anylock_t *', + 'name' => 'lock' + }, + { + 'type' => 'void *', + 'name' => 'membuf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'memsize' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_rmm_off_t', + 'name' => 'apr_rmm_malloc', + 'args' => [ + { + 'type' => 'apr_rmm_t *', + 'name' => 'rmm' + }, + { + 'type' => 'apr_size_t', + 'name' => 'reqsize' + } + ] + }, + { + 'return_type' => 'apr_rmm_off_t', + 'name' => 'apr_rmm_offset_get', + 'args' => [ + { + 'type' => 'apr_rmm_t *', + 'name' => 'rmm' + }, + { + 'type' => 'void *', + 'name' => 'entity' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_rmm_overhead_get', + 'args' => [ + { + 'type' => 'int', + 'name' => 'n' + } + ] + }, + { + 'return_type' => 'apr_rmm_off_t', + 'name' => 'apr_rmm_realloc', + 'args' => [ + { + 'type' => 'apr_rmm_t *', + 'name' => 'rmm' + }, + { + 'type' => 'void *', + 'name' => 'entity' + }, + { + 'type' => 'apr_size_t', + 'name' => 'reqsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_close', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_delete', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'const apr_sdbm_datum_t', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_fetch', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'apr_sdbm_datum_t *', + 'name' => 'value' + }, + { + 'type' => 'apr_sdbm_datum_t', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_firstkey', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'apr_sdbm_datum_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_lock', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_nextkey', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'apr_sdbm_datum_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_open', + 'args' => [ + { + 'type' => 'apr_sdbm_t **', + 'name' => 'db' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'perms' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_sdbm_rdonly', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_store', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + }, + { + 'type' => 'apr_sdbm_datum_t', + 'name' => 'key' + }, + { + 'type' => 'apr_sdbm_datum_t', + 'name' => 'value' + }, + { + 'type' => 'int', + 'name' => 'opt' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sdbm_unlock', + 'args' => [ + { + 'type' => 'apr_sdbm_t *', + 'name' => 'db' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_setup_signal_thread', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_base64', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'clear' + }, + { + 'type' => 'int', + 'name' => 'len' + }, + { + 'type' => 'char *', + 'name' => 'out' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_final', + 'args' => [ + { + 'type' => 'unsigned char', + 'name' => 'digest' + }, + { + 'type' => 'apr_sha1_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_init', + 'args' => [ + { + 'type' => 'apr_sha1_ctx_t *', + 'name' => 'context' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_update', + 'args' => [ + { + 'type' => 'apr_sha1_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'const char *', + 'name' => 'input' + }, + { + 'type' => 'unsigned int', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sha1_update_binary', + 'args' => [ + { + 'type' => 'apr_sha1_ctx_t *', + 'name' => 'context' + }, + { + 'type' => 'const unsigned char *', + 'name' => 'input' + }, + { + 'type' => 'unsigned int', + 'name' => 'inputLen' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_attach', + 'args' => [ + { + 'type' => 'apr_shm_t **', + 'name' => 'm' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'apr_shm_baseaddr_get', + 'args' => [ + { + 'type' => 'const apr_shm_t *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_create', + 'args' => [ + { + 'type' => 'apr_shm_t **', + 'name' => 'm' + }, + { + 'type' => 'apr_size_t', + 'name' => 'reqsize' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_destroy', + 'args' => [ + { + 'type' => 'apr_shm_t *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_detach', + 'args' => [ + { + 'type' => 'apr_shm_t *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_shm_pool_get', + 'args' => [ + { + 'type' => 'const apr_shm_t *', + 'name' => 'theshm' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_shm_remove', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_shm_size_get', + 'args' => [ + { + 'type' => 'const apr_shm_t *', + 'name' => 'm' + } + ] + }, + { + 'return_type' => 'apr_sigfunc_t *', + 'name' => 'apr_signal', + 'args' => [ + { + 'type' => 'int', + 'name' => 'signo' + }, + { + 'type' => 'apr_sigfunc_t *', + 'name' => 'func' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_signal_block', + 'args' => [ + { + 'type' => 'int', + 'name' => 'signum' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_signal_description_get', + 'args' => [ + { + 'type' => 'int', + 'name' => 'signum' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_signal_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pglobal' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_signal_thread', + 'args' => [ + { + 'type' => 'int(*signal_handler)(int signum)', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_signal_unblock', + 'args' => [ + { + 'type' => 'int', + 'name' => 'signum' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_sleep', + 'args' => [ + { + 'type' => 'apr_interval_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_snprintf', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'const char *', + 'name' => 'format' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_sockaddr_equal', + 'args' => [ + { + 'type' => 'const apr_sockaddr_t *', + 'name' => 'addr1' + }, + { + 'type' => 'const apr_sockaddr_t *', + 'name' => 'addr2' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sockaddr_info_get', + 'args' => [ + { + 'type' => 'apr_sockaddr_t **', + 'name' => 'sa' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'family' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sockaddr_ip_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'addr' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_sockaddr_ip_getbuf', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'buflen' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_accept', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'new_sock' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'connection_pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_addr_get', + 'args' => [ + { + 'type' => 'apr_sockaddr_t **', + 'name' => 'sa' + }, + { + 'type' => 'apr_interface_e', + 'name' => 'which' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_atmark', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'int *', + 'name' => 'atmark' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_atreadeof', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'int *', + 'name' => 'atreadeof' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_bind', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_close', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_connect', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sa' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_create', + 'args' => [ + { + 'type' => 'apr_socket_t **', + 'name' => 'new_sock' + }, + { + 'type' => 'int', + 'name' => 'family' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'int', + 'name' => 'protocol' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_data_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_data_set', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup)(void*)', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_inherit_set', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_inherit_unset', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_listen', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'backlog' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_opt_get', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + }, + { + 'type' => 'apr_int32_t *', + 'name' => 'on' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_opt_set', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'on' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_socket_pool_get', + 'args' => [ + { + 'type' => 'const apr_socket_t *', + 'name' => 'thesocket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_protocol_get', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'int *', + 'name' => 'protocol' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_recv', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_recvfrom', + 'args' => [ + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'from' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_send', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_sendfile', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + }, + { + 'type' => 'apr_hdtr_t *', + 'name' => 'hdtr' + }, + { + 'type' => 'apr_off_t *', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_sendto', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'where' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'flags' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_sendv', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'const struct iovec *', + 'name' => 'vec' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'nvec' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_shutdown', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'thesocket' + }, + { + 'type' => 'apr_shutdown_how_e', + 'name' => 'how' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_timeout_get', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_interval_time_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_timeout_set', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_socket_type_get', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'sock' + }, + { + 'type' => 'int *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_stat', + 'args' => [ + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_strerror', + 'args' => [ + { + 'type' => 'apr_status_t', + 'name' => 'statcode' + }, + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'bufsize' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_strfsize', + 'args' => [ + { + 'type' => 'apr_off_t', + 'name' => 'size' + }, + { + 'type' => 'char *', + 'name' => 'buf' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_strftime', + 'args' => [ + { + 'type' => 'char *', + 'name' => 's' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'retsize' + }, + { + 'type' => 'apr_size_t', + 'name' => 'max' + }, + { + 'type' => 'const char *', + 'name' => 'format' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'tm' + } + ] + }, + { + 'return_type' => 'const apr_strmatch_pattern *', + 'name' => 'apr_strmatch_precompile', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'case_sensitive' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_strnatcasecmp', + 'args' => [ + { + 'type' => 'char const *', + 'name' => 'a' + }, + { + 'type' => 'char const *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_strnatcmp', + 'args' => [ + { + 'type' => 'char const *', + 'name' => 'a' + }, + { + 'type' => 'char const *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_strtoff', + 'args' => [ + { + 'type' => 'apr_off_t *', + 'name' => 'offset' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'char **', + 'name' => 'end' + }, + { + 'type' => 'int', + 'name' => 'base' + } + ] + }, + { + 'return_type' => 'apr_int64_t', + 'name' => 'apr_strtoi64', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'char **', + 'name' => 'end' + }, + { + 'type' => 'int', + 'name' => 'base' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_strtok', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'str' + }, + { + 'type' => 'const char *', + 'name' => 'sep' + }, + { + 'type' => 'char **', + 'name' => 'last' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_add', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_addn', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_clear', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'apr_table_t *', + 'name' => 'apr_table_clone', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_compress', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'unsigned', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_table_t *', + 'name' => 'apr_table_copy', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_table_do', + 'args' => [ + { + 'type' => 'void *comp', + 'name' => 'arg0' + }, + { + 'type' => 'void *', + 'name' => 'rec' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 't' + }, + { + 'type' => '...', + 'name' => 'arg3' + } + ] + }, + { + 'return_type' => 'const apr_array_header_t *', + 'name' => 'apr_table_elts', + 'args' => [ + { + 'type' => 'const apr_table_t *', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_table_get', + 'args' => [ + { + 'type' => 'const apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_table_t *', + 'name' => 'apr_table_make', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'nelts' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_merge', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_mergen', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_overlap', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 'a' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 'b' + }, + { + 'type' => 'unsigned', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_table_t *', + 'name' => 'apr_table_overlay', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 'overlay' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 'base' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_set', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_setn', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_table_unset', + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_table_vdo', + 'args' => [ + { + 'type' => 'void *comp', + 'name' => 'arg0' + }, + { + 'type' => 'void *', + 'name' => 'rec' + }, + { + 'type' => 'const apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'va_list', + 'name' => 'vp' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_temp_dir_get', + 'args' => [ + { + 'type' => 'const char **', + 'name' => 'temp_dir' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_terminate', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_terminate2', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'apr_text_append', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_text_header *', + 'name' => 'hdr' + }, + { + 'type' => 'const char *', + 'name' => 'text' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_broadcast', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_create', + 'args' => [ + { + 'type' => 'apr_thread_cond_t **', + 'name' => 'cond' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_destroy', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_thread_cond_pool_get', + 'args' => [ + { + 'type' => 'const apr_thread_cond_t *', + 'name' => 'thethread_cond' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_signal', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_timedwait', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_cond_wait', + 'args' => [ + { + 'type' => 'apr_thread_cond_t *', + 'name' => 'cond' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_create', + 'args' => [ + { + 'type' => 'apr_thread_t **', + 'name' => 'new_thread' + }, + { + 'type' => 'apr_threadattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_thread_start_t', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_data_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'thread' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_data_set', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup) (void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'thread' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_detach', + 'args' => [ + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_exit', + 'args' => [ + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + }, + { + 'type' => 'apr_status_t', + 'name' => 'retval' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_join', + 'args' => [ + { + 'type' => 'apr_status_t *', + 'name' => 'retval' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_create', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t **', + 'name' => 'mutex' + }, + { + 'type' => 'unsigned int', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_destroy', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_lock', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_thread_mutex_pool_get', + 'args' => [ + { + 'type' => 'const apr_thread_mutex_t *', + 'name' => 'thethread_mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_trylock', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_mutex_unlock', + 'args' => [ + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'mutex' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_once', + 'args' => [ + { + 'type' => 'apr_thread_once_t *', + 'name' => 'control' + }, + { + 'type' => 'void (*func)(void)', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_once_init', + 'args' => [ + { + 'type' => 'apr_thread_once_t **', + 'name' => 'control' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_busy_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_pool_create', + 'args' => [ + { + 'type' => 'apr_thread_pool_t **', + 'name' => 'me' + }, + { + 'type' => 'apr_size_t', + 'name' => 'init_threads' + }, + { + 'type' => 'apr_size_t', + 'name' => 'max_threads' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_pool_destroy', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_thread_pool_get', + 'args' => [ + { + 'type' => 'const apr_thread_t *', + 'name' => 'thethread' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_idle_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_idle_max_get', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_idle_max_set', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + }, + { + 'type' => 'apr_size_t', + 'name' => 'cnt' + } + ] + }, + { + 'return_type' => 'apr_interval_time_t', + 'name' => 'apr_thread_pool_idle_wait_get', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_interval_time_t', + 'name' => 'apr_thread_pool_idle_wait_set', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_pool_push', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + }, + { + 'type' => 'apr_thread_start_t', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'param' + }, + { + 'type' => 'apr_byte_t', + 'name' => 'priority' + }, + { + 'type' => 'void *', + 'name' => 'owner' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_pool_schedule', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + }, + { + 'type' => 'apr_thread_start_t', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'param' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'time' + }, + { + 'type' => 'void *', + 'name' => 'owner' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_scheduled_tasks_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_pool_task_owner_get', + 'args' => [ + { + 'type' => 'apr_thread_t *', + 'name' => 'thd' + }, + { + 'type' => 'void **', + 'name' => 'owner' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_pool_tasks_cancel', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + }, + { + 'type' => 'void *', + 'name' => 'owner' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_tasks_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_tasks_high_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_tasks_run_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_thread_max_get', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_thread_max_set', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + }, + { + 'type' => 'apr_size_t', + 'name' => 'cnt' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_threads_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_threads_high_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_threads_idle_timeout_count', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_threshold_get', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'apr_thread_pool_threshold_set', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + }, + { + 'type' => 'apr_size_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_pool_top', + 'args' => [ + { + 'type' => 'apr_thread_pool_t *', + 'name' => 'me' + }, + { + 'type' => 'apr_thread_start_t', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'param' + }, + { + 'type' => 'apr_byte_t', + 'name' => 'priority' + }, + { + 'type' => 'void *', + 'name' => 'owner' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_create', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t **', + 'name' => 'rwlock' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_destroy', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'apr_thread_rwlock_pool_get', + 'args' => [ + { + 'type' => 'const apr_thread_rwlock_t *', + 'name' => 'thethread_rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_rdlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_tryrdlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_trywrlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_unlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_thread_rwlock_wrlock', + 'args' => [ + { + 'type' => 'apr_thread_rwlock_t *', + 'name' => 'rwlock' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_thread_yield', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadattr_create', + 'args' => [ + { + 'type' => 'apr_threadattr_t **', + 'name' => 'new_attr' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadattr_detach_get', + 'args' => [ + { + 'type' => 'apr_threadattr_t *', + 'name' => 'attr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadattr_detach_set', + 'args' => [ + { + 'type' => 'apr_threadattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'on' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadattr_guardsize_set', + 'args' => [ + { + 'type' => 'apr_threadattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_size_t', + 'name' => 'guardsize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadattr_stacksize_set', + 'args' => [ + { + 'type' => 'apr_threadattr_t *', + 'name' => 'attr' + }, + { + 'type' => 'apr_size_t', + 'name' => 'stacksize' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_data_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'threadkey' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_data_set', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_status_t (*cleanup) (void *)', + 'name' => 'arg2' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'threadkey' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_private_create', + 'args' => [ + { + 'type' => 'apr_threadkey_t **', + 'name' => 'key' + }, + { + 'type' => 'void (*dest)(void *)', + 'name' => 'arg1' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_private_delete', + 'args' => [ + { + 'type' => 'apr_threadkey_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_private_get', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'new_mem' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_threadkey_private_set', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'priv' + }, + { + 'type' => 'apr_threadkey_t *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_ansi_put', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'result' + }, + { + 'type' => 'time_t', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_time_clock_hires', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_get', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_gmt', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_t', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_gmt_get', + 'args' => [ + { + 'type' => 'apr_time_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_exp_t *', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_lt', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_t', + 'name' => 'input' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_time_exp_tz', + 'args' => [ + { + 'type' => 'apr_time_exp_t *', + 'name' => 'result' + }, + { + 'type' => 'apr_time_t', + 'name' => 'input' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'offs' + } + ] + }, + { + 'return_type' => 'apr_time_t', + 'name' => 'apr_time_now', + 'args' => [] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_tokenize_to_argv', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'arg_str' + }, + { + 'type' => 'char ***', + 'name' => 'argv_out' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'token_context' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uid_current', + 'args' => [ + { + 'type' => 'apr_uid_t *', + 'name' => 'userid' + }, + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uid_get', + 'args' => [ + { + 'type' => 'apr_uid_t *', + 'name' => 'userid' + }, + { + 'type' => 'apr_gid_t *', + 'name' => 'groupid' + }, + { + 'type' => 'const char *', + 'name' => 'username' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uid_homepath_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'dirname' + }, + { + 'type' => 'const char *', + 'name' => 'username' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uid_name_get', + 'args' => [ + { + 'type' => 'char **', + 'name' => 'username' + }, + { + 'type' => 'apr_uid_t', + 'name' => 'userid' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uri_parse', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'uri' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'uptr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uri_parse_hostinfo', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'hostinfo' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'uptr' + } + ] + }, + { + 'return_type' => 'apr_port_t', + 'name' => 'apr_uri_port_of_scheme', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'scheme_str' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_uri_unparse', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_uri_t *', + 'name' => 'uptr' + }, + { + 'type' => 'unsigned', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_uuid_format', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'const apr_uuid_t *', + 'name' => 'uuid' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_uuid_get', + 'args' => [ + { + 'type' => 'apr_uuid_t *', + 'name' => 'uuid' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_uuid_parse', + 'args' => [ + { + 'type' => 'apr_uuid_t *', + 'name' => 'uuid' + }, + { + 'type' => 'const char *', + 'name' => 'uuid_str' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_version', + 'args' => [ + { + 'type' => 'apr_version_t *', + 'name' => 'pvsn' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_version_string', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'apr_vformatter', + 'args' => [ + { + 'type' => 'int (*flush_func)(apr_vformatter_buff_t *b)', + 'name' => 'arg0' + }, + { + 'type' => 'apr_vformatter_buff_t *', + 'name' => 'c' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => 'va_list', + 'name' => 'ap' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_vsnprintf', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'const char *', + 'name' => 'format' + }, + { + 'type' => 'va_list', + 'name' => 'ap' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_wait_for_io_or_timeout', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'for_read' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_close', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_conv_buffer', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + }, + { + 'type' => 'const char *', + 'name' => 'inbuf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'inbytes_left' + }, + { + 'type' => 'char *', + 'name' => 'outbuf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'outbytes_left' + } + ] + }, + { + 'return_type' => 'apr_int32_t', + 'name' => 'apr_xlate_conv_byte', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + }, + { + 'type' => 'unsigned char', + 'name' => 'inchar' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_open', + 'args' => [ + { + 'type' => 'apr_xlate_t **', + 'name' => 'convset' + }, + { + 'type' => 'const char *', + 'name' => 'topage' + }, + { + 'type' => 'const char *', + 'name' => 'frompage' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xlate_sb_get', + 'args' => [ + { + 'type' => 'apr_xlate_t *', + 'name' => 'convset' + }, + { + 'type' => 'int *', + 'name' => 'onoff' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_xml_empty_elem', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_xml_elem *', + 'name' => 'elem' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'apr_xml_insert_uri', + 'args' => [ + { + 'type' => 'apr_array_header_t *', + 'name' => 'uri_array' + }, + { + 'type' => 'const char *', + 'name' => 'uri' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xml_parse_file', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_xml_parser **', + 'name' => 'parser' + }, + { + 'type' => 'apr_xml_doc **', + 'name' => 'ppdoc' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'xmlfd' + }, + { + 'type' => 'apr_size_t', + 'name' => 'buffer_length' + } + ] + }, + { + 'return_type' => 'apr_xml_parser *', + 'name' => 'apr_xml_parser_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xml_parser_done', + 'args' => [ + { + 'type' => 'apr_xml_parser *', + 'name' => 'parser' + }, + { + 'type' => 'apr_xml_doc **', + 'name' => 'pdoc' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'apr_xml_parser_feed', + 'args' => [ + { + 'type' => 'apr_xml_parser *', + 'name' => 'parser' + }, + { + 'type' => 'const char *', + 'name' => 'data' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'apr_xml_parser_geterror', + 'args' => [ + { + 'type' => 'apr_xml_parser *', + 'name' => 'parser' + }, + { + 'type' => 'char *', + 'name' => 'errbuf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'errbufsize' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_xml_quote_elem', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'elem' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'apr_xml_quote_string', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'quotes' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'apr_xml_to_text', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const apr_xml_elem *', + 'name' => 'elem' + }, + { + 'type' => 'int', + 'name' => 'style' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'namespaces' + }, + { + 'type' => 'int *', + 'name' => 'ns_map' + }, + { + 'type' => 'const char **', + 'name' => 'pbuf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'psize' + } + ] + } +]; + + +1;
diff --git a/2_0_13/xs/tables/current24/Apache2/StructureTable.pm b/2_0_13/xs/tables/current24/Apache2/StructureTable.pm new file mode 100644 index 0000000..0bf8530 --- /dev/null +++ b/2_0_13/xs/tables/current24/Apache2/StructureTable.pm
@@ -0,0 +1,5468 @@ +package Apache2::StructureTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by Apache2::ParseSource/0.02 +# ! Mon Jul 1 12:38:15 2013 +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$Apache2::StructureTable = [ + { + 'type' => 'ap_HOOK_access_checker_ex_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_access_checker_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_auth_checker_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_check_config_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_check_user_id_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_child_init_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_child_status_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_create_connection_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_create_request_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_default_port_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_drop_privileges_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_end_generation_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_error_log_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_expr_lookup_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_fixups_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_generate_log_id_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_get_mgmt_items_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_get_suexec_identity_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_handler_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_header_parser_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_http_scheme_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_insert_error_filter_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_insert_filter_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_insert_network_bucket_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_log_transaction_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_map_to_storage_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_monitor_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_mpm_get_name_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_mpm_query_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_mpm_register_timed_callback_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_mpm_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_note_auth_failure_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_open_logs_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_optional_fn_retrieve_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_post_config_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_post_read_request_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_pre_config_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_pre_connection_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_pre_mpm_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_pre_read_request_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_process_connection_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_quick_handler_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_session_decode_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_session_encode_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_session_load_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_session_save_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_status_hook_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_test_config_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_translate_name_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_type_checker_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_watchdog_exit_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_watchdog_init_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_watchdog_need_t', + 'elts' => [] + }, + { + 'type' => 'ap_HOOK_watchdog_step_t', + 'elts' => [] + }, + { + 'type' => 'ap_LINK_access_checker_ex_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_access_checker_ex_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_access_checker_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_access_checker_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_auth_checker_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_auth_checker_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_check_config_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_check_config_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_check_user_id_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_check_user_id_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_child_init_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_child_init_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_child_status_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_child_status_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_create_connection_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_create_connection_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_create_request_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_create_request_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_default_port_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_default_port_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_drop_privileges_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_drop_privileges_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_end_generation_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_end_generation_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_error_log_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_error_log_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_expr_lookup_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_expr_lookup_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_fixups_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_fixups_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_generate_log_id_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_generate_log_id_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_get_mgmt_items_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_get_mgmt_items_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_get_suexec_identity_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_get_suexec_identity_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_handler_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_handler_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_header_parser_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_header_parser_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_http_scheme_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_http_scheme_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_insert_error_filter_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_insert_error_filter_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_insert_filter_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_insert_filter_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_insert_network_bucket_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_insert_network_bucket_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_log_transaction_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_log_transaction_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_map_to_storage_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_map_to_storage_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_monitor_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_monitor_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_mpm_get_name_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_mpm_get_name_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_mpm_query_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_mpm_query_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_mpm_register_timed_callback_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_mpm_register_timed_callback_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_mpm_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_mpm_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_note_auth_failure_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_note_auth_failure_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_open_logs_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_open_logs_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_optional_fn_retrieve_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_optional_fn_retrieve_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_post_config_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_post_config_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_post_read_request_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_post_read_request_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_pre_config_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_pre_config_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_pre_connection_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_pre_connection_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_pre_mpm_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_pre_mpm_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_pre_read_request_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_pre_read_request_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_process_connection_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_process_connection_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_quick_handler_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_quick_handler_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_session_decode_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_session_decode_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_session_encode_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_session_encode_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_session_load_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_session_load_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_session_save_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_session_save_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_status_hook_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_status_hook_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_test_config_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_test_config_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_translate_name_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_translate_name_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_type_checker_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_type_checker_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_watchdog_exit_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_watchdog_exit_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_watchdog_init_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_watchdog_init_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_watchdog_need_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_watchdog_need_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_LINK_watchdog_step_t', + 'elts' => [ + { + 'type' => 'ap_HOOK_watchdog_step_t *', + 'name' => 'pFunc' + }, + { + 'type' => 'const char *', + 'name' => 'szName' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszPredecessors' + }, + { + 'type' => 'const char * const *', + 'name' => 'aszSuccessors' + }, + { + 'type' => 'int', + 'name' => 'nOrder' + } + ] + }, + { + 'type' => 'ap_bucket_error', + 'elts' => [ + { + 'type' => 'apr_bucket_refcount', + 'name' => 'refcount' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'const char *', + 'name' => 'data' + } + ] + }, + { + 'type' => 'ap_conf_vector_t', + 'elts' => [] + }, + { + 'type' => 'ap_configfile_t', + 'elts' => [ + { + 'type' => 'apr_status_t(*) (char *ch, void *param)', + 'name' => 'getch' + }, + { + 'type' => 'apr_status_t(*) (void *buf, apr_size_t bufsiz, void *param)', + 'name' => 'getstr' + }, + { + 'type' => 'apr_status_t(*) (void *param)', + 'name' => 'close' + }, + { + 'type' => 'void *', + 'name' => 'param' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'unsigned', + 'name' => 'line_number' + } + ] + }, + { + 'type' => 'ap_conn_keepalive_e', + 'elts' => [] + }, + { + 'type' => 'ap_cookie_do', + 'elts' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'const char *', + 'name' => 'encoded' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'new_cookies' + }, + { + 'type' => 'int', + 'name' => 'duplicated' + } + ] + }, + { + 'type' => 'ap_dbd_t', + 'elts' => [ + { + 'type' => 'apr_dbd_t *', + 'name' => 'handle' + }, + { + 'type' => 'const apr_dbd_driver_t *', + 'name' => 'driver' + }, + { + 'type' => 'apr_hash_t *', + 'name' => 'prepared' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + } + ] + }, + { + 'type' => 'ap_directive_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'directive' + }, + { + 'type' => 'const char *', + 'name' => 'args' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'next' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'first_child' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'parent' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'int', + 'name' => 'line_num' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'last' + } + ] + }, + { + 'type' => 'ap_errorlog_format_item', + 'elts' => [ + { + 'type' => 'ap_errorlog_handler_fn_t *', + 'name' => 'func' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + }, + { + 'type' => 'unsigned int', + 'name' => 'flags' + }, + { + 'type' => 'unsigned int', + 'name' => 'min_loglevel' + } + ] + }, + { + 'type' => 'ap_errorlog_handler', + 'elts' => [ + { + 'type' => 'ap_errorlog_handler_fn_t *', + 'name' => 'func' + }, + { + 'type' => 'int', + 'name' => 'flags' + } + ] + }, + { + 'type' => 'ap_errorlog_handler_fn_t', + 'elts' => [] + }, + { + 'type' => 'ap_errorlog_info', + 'elts' => [ + { + 'type' => 'const server_rec *', + 'name' => 's' + }, + { + 'type' => 'const conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'const request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const request_rec *', + 'name' => 'rmain' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'file' + }, + { + 'type' => 'int', + 'name' => 'line' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'int', + 'name' => 'using_syslog' + }, + { + 'type' => 'int', + 'name' => 'startup' + }, + { + 'type' => 'const char *', + 'name' => 'format' + } + ] + }, + { + 'type' => 'ap_expr_eval_ctx_t', + 'elts' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char **', + 'name' => 'err' + }, + { + 'type' => 'const ap_expr_info_t *', + 'name' => 'info' + }, + { + 'type' => 'ap_regmatch_t *', + 'name' => 're_pmatch' + }, + { + 'type' => 'apr_size_t', + 'name' => 're_nmatch' + }, + { + 'type' => 'const char **', + 'name' => 're_source' + }, + { + 'type' => 'const char **', + 'name' => 'vary_this' + }, + { + 'type' => 'const char **', + 'name' => 'result_string' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'int', + 'name' => 'reclvl' + } + ] + }, + { + 'type' => 'ap_expr_info_t', + 'elts' => [ + { + 'type' => 'ap_expr_t *', + 'name' => 'root_node' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'unsigned int', + 'name' => 'line_number' + }, + { + 'type' => 'unsigned int', + 'name' => 'flags' + }, + { + 'type' => 'int', + 'name' => 'module_index' + } + ] + }, + { + 'type' => 'ap_expr_list_func_t', + 'elts' => [] + }, + { + 'type' => 'ap_expr_lookup_fn_t', + 'elts' => [] + }, + { + 'type' => 'ap_expr_lookup_parms', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'flags' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'const void **', + 'name' => 'func' + }, + { + 'type' => 'const void **', + 'name' => 'data' + }, + { + 'type' => 'const char **', + 'name' => 'err' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'type' => 'ap_expr_op_binary_t', + 'elts' => [] + }, + { + 'type' => 'ap_expr_op_unary_t', + 'elts' => [] + }, + { + 'type' => 'ap_expr_string_func_t', + 'elts' => [] + }, + { + 'type' => 'ap_expr_t', + 'elts' => [] + }, + { + 'type' => 'ap_expr_var_func_t', + 'elts' => [] + }, + { + 'type' => 'ap_filter_func', + 'elts' => [ + { + 'type' => 'ap_out_filter_func', + 'name' => 'out_func' + }, + { + 'type' => 'ap_in_filter_func', + 'name' => 'in_func' + } + ] + }, + { + 'type' => 'ap_filter_provider_t', + 'elts' => [] + }, + { + 'type' => 'ap_filter_rec_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_filter_func', + 'name' => 'filter_func' + }, + { + 'type' => 'ap_init_filter_func', + 'name' => 'filter_init_func' + }, + { + 'type' => 'ap_filter_rec_t *', + 'name' => 'next' + }, + { + 'type' => 'ap_filter_provider_t *', + 'name' => 'providers' + }, + { + 'type' => 'ap_filter_type', + 'name' => 'ftype' + }, + { + 'type' => 'int', + 'name' => 'debug' + }, + { + 'type' => 'unsigned int', + 'name' => 'proto_flags' + } + ] + }, + { + 'type' => 'ap_filter_t', + 'elts' => [ + { + 'type' => 'ap_filter_rec_t *', + 'name' => 'frec' + }, + { + 'type' => 'void *', + 'name' => 'ctx' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'next' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'type' => 'ap_filter_type', + 'elts' => [] + }, + { + 'type' => 'ap_form_pair_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'value' + } + ] + }, + { + 'type' => 'ap_generation_t', + 'elts' => [] + }, + { + 'type' => 'ap_in_filter_func', + 'elts' => [] + }, + { + 'type' => 'ap_init_filter_func', + 'elts' => [] + }, + { + 'type' => 'ap_input_mode_t', + 'elts' => [] + }, + { + 'type' => 'ap_list_provider_groups_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + } + ] + }, + { + 'type' => 'ap_list_provider_names_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'provider_name' + } + ] + }, + { + 'type' => 'ap_listen_rec', + 'elts' => [ + { + 'type' => 'ap_listen_rec *', + 'name' => 'next' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'sd' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'bind_addr' + }, + { + 'type' => 'accept_function', + 'name' => 'accept_func' + }, + { + 'type' => 'int', + 'name' => 'active' + }, + { + 'type' => 'const char *', + 'name' => 'protocol' + }, + { + 'type' => 'ap_slave_t *', + 'name' => 'slave' + } + ] + }, + { + 'type' => 'ap_loadavg_t', + 'elts' => [ + { + 'type' => 'float', + 'name' => 'loadavg' + }, + { + 'type' => 'float', + 'name' => 'loadavg5' + }, + { + 'type' => 'float', + 'name' => 'loadavg15' + } + ] + }, + { + 'type' => 'ap_method_list_t', + 'elts' => [ + { + 'type' => 'apr_int64_t', + 'name' => 'method_mask' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'method_list' + } + ] + }, + { + 'type' => 'ap_mgmt_item_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'description' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'ap_mgmt_type_e', + 'name' => 'vtype' + }, + { + 'type' => 'ap_mgmt_value', + 'name' => 'v' + } + ] + }, + { + 'type' => 'ap_mgmt_type_e', + 'elts' => [] + }, + { + 'type' => 'ap_mgmt_value', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 's_value' + }, + { + 'type' => 'long', + 'name' => 'i_value' + }, + { + 'type' => 'apr_hash_t *', + 'name' => 'h_value' + } + ] + }, + { + 'type' => 'ap_module_symbol_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'module *', + 'name' => 'modp' + } + ] + }, + { + 'type' => 'ap_mpm_callback_fn_t', + 'elts' => [] + }, + { + 'type' => 'ap_out_filter_func', + 'elts' => [] + }, + { + 'type' => 'ap_pcw_dir_cb_t', + 'elts' => [] + }, + { + 'type' => 'ap_pcw_srv_cb_t', + 'elts' => [] + }, + { + 'type' => 'ap_pod_t', + 'elts' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'pod_in' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'pod_out' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'type' => 'ap_reclaim_callback_fn_t', + 'elts' => [] + }, + { + 'type' => 'ap_regex_t', + 'elts' => [ + { + 'type' => 'void *', + 'name' => 're_pcre' + }, + { + 'type' => 'int', + 'name' => 're_nsub' + }, + { + 'type' => 'apr_size_t', + 'name' => 're_erroffset' + } + ] + }, + { + 'type' => 'ap_regmatch_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'rm_so' + }, + { + 'type' => 'int', + 'name' => 'rm_eo' + } + ] + }, + { + 'type' => 'ap_rxplus_t', + 'elts' => [ + { + 'type' => 'ap_regex_t', + 'name' => 'rx' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'flags' + }, + { + 'type' => 'const char *', + 'name' => 'subs' + }, + { + 'type' => 'const char *', + 'name' => 'match' + }, + { + 'type' => 'apr_size_t', + 'name' => 'nmatch' + }, + { + 'type' => 'ap_regmatch_t *', + 'name' => 'pmatch' + } + ] + }, + { + 'type' => 'ap_sb_handle_t', + 'elts' => [] + }, + { + 'type' => 'ap_scoreboard_e', + 'elts' => [] + }, + { + 'type' => 'ap_slave_t', + 'elts' => [] + }, + { + 'type' => 'ap_sload_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'idle' + }, + { + 'type' => 'int', + 'name' => 'busy' + }, + { + 'type' => 'apr_off_t', + 'name' => 'bytes_served' + }, + { + 'type' => 'unsigned long', + 'name' => 'access_count' + } + ] + }, + { + 'type' => 'ap_slotmem_callback_fn_t', + 'elts' => [] + }, + { + 'type' => 'ap_slotmem_instance_t', + 'elts' => [] + }, + { + 'type' => 'ap_slotmem_provider_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t *s, ap_slotmem_callback_fn_t *func, void *data, apr_pool_t *pool)', + 'name' => 'doall' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t **inst, const char *name, apr_size_t item_size, unsigned int item_num, ap_slotmem_type_t type, apr_pool_t *pool)', + 'name' => 'create' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t **inst, const char *name, apr_size_t *item_size, unsigned int *item_num, apr_pool_t *pool)', + 'name' => 'attach' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t *s, unsigned int item_id, void**mem)', + 'name' => 'dptr' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t *s, unsigned int item_id, unsigned char *dest, apr_size_t dest_len)', + 'name' => 'get' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t *slot, unsigned int item_id, unsigned char *src, apr_size_t src_len)', + 'name' => 'put' + }, + { + 'type' => 'unsigned int(*)(ap_slotmem_instance_t *s)', + 'name' => 'num_slots' + }, + { + 'type' => 'unsigned int(*)(ap_slotmem_instance_t *s)', + 'name' => 'num_free_slots' + }, + { + 'type' => 'apr_size_t(*)(ap_slotmem_instance_t *s)', + 'name' => 'slot_size' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t *s, unsigned int *item_id)', + 'name' => 'grab' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t *s, unsigned int item_id)', + 'name' => 'release' + }, + { + 'type' => 'apr_status_t(*)(ap_slotmem_instance_t *s, unsigned int item_id)', + 'name' => 'fgrab' + } + ] + }, + { + 'type' => 'ap_slotmem_type_t', + 'elts' => [] + }, + { + 'type' => 'ap_socache_instance_t', + 'elts' => [] + }, + { + 'type' => 'ap_socache_iterator_t', + 'elts' => [] + }, + { + 'type' => 'ap_unix_identity_t', + 'elts' => [ + { + 'type' => 'uid_t', + 'name' => 'uid' + }, + { + 'type' => 'gid_t', + 'name' => 'gid' + }, + { + 'type' => 'int', + 'name' => 'userdir' + } + ] + }, + { + 'type' => 'ap_version_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'major' + }, + { + 'type' => 'int', + 'name' => 'minor' + }, + { + 'type' => 'int', + 'name' => 'patch' + }, + { + 'type' => 'const char *', + 'name' => 'add_string' + } + ] + }, + { + 'type' => 'ap_vhost_iterate_conn_cb', + 'elts' => [] + }, + { + 'type' => 'ap_watchdog_callback_fn_t', + 'elts' => [] + }, + { + 'type' => 'ap_watchdog_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_access_compat_ap_satisfies_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_authn_cache_store_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_dbd_acquire_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_dbd_cacquire_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_dbd_close_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_dbd_open_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_dbd_prepare_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_find_loaded_module_symbol_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_ident_lookup_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_logio_add_bytes_in_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_logio_add_bytes_out_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_logio_get_last_bytes_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_register_rewrite_mapfunc_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_request_insert_filter_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_request_remove_filter_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_session_get_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_session_load_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_session_save_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_session_set_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_signal_server_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_watchdog_get_instance_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_watchdog_register_callback_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_ap_watchdog_set_callback_interval_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_authn_ap_auth_name_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_authn_ap_auth_type_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_authn_ap_list_provider_names_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_authz_ap_list_provider_names_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_authz_some_auth_required_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_modperl_interp_unselect_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_modperl_thx_interp_get_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_cache_check_subgroups_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_cache_checkuserid_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_cache_compare_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_cache_comparedn_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_cache_getuserdn_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_connection_close_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_connection_find_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_connection_open_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_connection_unbind_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_uldap_ssl_supported_t', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_xml2enc_charset_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_OFN_xml2enc_filter_t + ', + 'elts' => [] + }, + { + 'type' => 'apr_abortfunc_t', + 'elts' => [] + }, + { + 'type' => 'apr_allocator_t', + 'elts' => [] + }, + { + 'type' => 'apr_anylock_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'union apr_anylock_u_t', + 'name' => 'lock' + } + ] + }, + { + 'type' => 'apr_array_header_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'int', + 'name' => 'elt_size' + }, + { + 'type' => 'int', + 'name' => 'nelts' + }, + { + 'type' => 'int', + 'name' => 'nalloc' + }, + { + 'type' => 'char *', + 'name' => 'elts' + } + ] + }, + { + 'type' => 'apr_brigade_flush', + 'elts' => [] + }, + { + 'type' => 'apr_bucket', + 'elts' => [ + { + 'type' => '_ANON 68', + 'name' => 'link' + }, + { + 'type' => 'const apr_bucket_type_t *', + 'name' => 'type' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'apr_off_t', + 'name' => 'start' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'void(*)(void *e)', + 'name' => 'free' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'type' => 'apr_bucket_alloc_t', + 'elts' => [] + }, + { + 'type' => 'apr_bucket_brigade', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_bucket_list', + 'name' => 'list' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'bucket_alloc' + } + ] + }, + { + 'type' => 'apr_bucket_file', + 'elts' => [ + { + 'type' => 'apr_bucket_refcount', + 'name' => 'refcount' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'fd' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'readpool' + }, + { + 'type' => 'int', + 'name' => 'can_mmap' + } + ] + }, + { + 'type' => 'apr_bucket_heap', + 'elts' => [ + { + 'type' => 'apr_bucket_refcount', + 'name' => 'refcount' + }, + { + 'type' => 'char *', + 'name' => 'base' + }, + { + 'type' => 'apr_size_t', + 'name' => 'alloc_len' + }, + { + 'type' => 'void(*)(void *data)', + 'name' => 'free_func' + } + ] + }, + { + 'type' => 'apr_bucket_mmap', + 'elts' => [ + { + 'type' => 'apr_bucket_refcount', + 'name' => 'refcount' + }, + { + 'type' => 'apr_mmap_t *', + 'name' => 'mmap' + } + ] + }, + { + 'type' => 'apr_bucket_pool', + 'elts' => [ + { + 'type' => 'apr_bucket_heap', + 'name' => 'heap' + }, + { + 'type' => 'const char *', + 'name' => 'base' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + } + ] + }, + { + 'type' => 'apr_bucket_refcount', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'refcount' + } + ] + }, + { + 'type' => 'apr_bucket_structs', + 'elts' => [] + }, + { + 'type' => 'apr_bucket_type_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'num_func' + }, + { + 'type' => 'int', + 'name' => 'is_metadata' + }, + { + 'type' => 'void(*)(void *data)', + 'name' => 'destroy' + }, + { + 'type' => 'apr_status_t(*)(apr_bucket *b, const char **str, apr_size_t *len, + apr_read_type_e block)', + 'name' => 'read' + }, + { + 'type' => 'apr_status_t(*)(apr_bucket *e, apr_pool_t *pool)', + 'name' => 'setaside' + }, + { + 'type' => 'apr_status_t(*)(apr_bucket *e, apr_size_t point)', + 'name' => 'split' + }, + { + 'type' => 'apr_status_t(*)(apr_bucket *e, apr_bucket **c)', + 'name' => 'copy' + } + ] + }, + { + 'type' => 'apr_byte_t', + 'elts' => [] + }, + { + 'type' => 'apr_child_errfn_t', + 'elts' => [] + }, + { + 'type' => 'apr_cmdtype_e', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_block_key_mode_e', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_block_key_type_e', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_block_t', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_config_t', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_driver_t', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_hash_add_t', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_hash_finish_t', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_hash_init_t', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_hash_t', + 'elts' => [ + { + 'type' => 'apr_crypto_hash_init_t *', + 'name' => 'init' + }, + { + 'type' => 'apr_crypto_hash_add_t *', + 'name' => 'add' + }, + { + 'type' => 'apr_crypto_hash_finish_t *', + 'name' => 'finish' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'type' => 'apr_crypto_key_t', + 'elts' => [] + }, + { + 'type' => 'apr_crypto_t', + 'elts' => [] + }, + { + 'type' => 'apr_datatype_e', + 'elts' => [] + }, + { + 'type' => 'apr_datum_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'dptr' + }, + { + 'type' => 'apr_size_t', + 'name' => 'dsize' + } + ] + }, + { + 'type' => 'apr_dbd_driver_t', + 'elts' => [] + }, + { + 'type' => 'apr_dbd_prepared_t', + 'elts' => [] + }, + { + 'type' => 'apr_dbd_results_t', + 'elts' => [] + }, + { + 'type' => 'apr_dbd_row_t', + 'elts' => [] + }, + { + 'type' => 'apr_dbd_t', + 'elts' => [] + }, + { + 'type' => 'apr_dbd_transaction_t', + 'elts' => [] + }, + { + 'type' => 'apr_dbd_type_e', + 'elts' => [] + }, + { + 'type' => 'apr_dbm_t', + 'elts' => [] + }, + { + 'type' => 'apr_descriptor', + 'elts' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 's' + } + ] + }, + { + 'type' => 'apr_dev_t', + 'elts' => [] + }, + { + 'type' => 'apr_dir_t', + 'elts' => [] + }, + { + 'type' => 'apr_dso_handle_sym_t', + 'elts' => [] + }, + { + 'type' => 'apr_dso_handle_t', + 'elts' => [] + }, + { + 'type' => 'apr_exit_why_e', + 'elts' => [] + }, + { + 'type' => 'apr_file_t', + 'elts' => [] + }, + { + 'type' => 'apr_fileattrs_t', + 'elts' => [] + }, + { + 'type' => 'apr_fileperms_t', + 'elts' => [] + }, + { + 'type' => 'apr_filetype_e', + 'elts' => [] + }, + { + 'type' => 'apr_finfo_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'valid' + }, + { + 'type' => 'apr_fileperms_t', + 'name' => 'protection' + }, + { + 'type' => 'apr_filetype_e', + 'name' => 'filetype' + }, + { + 'type' => 'apr_uid_t', + 'name' => 'user' + }, + { + 'type' => 'apr_gid_t', + 'name' => 'group' + }, + { + 'type' => 'apr_ino_t', + 'name' => 'inode' + }, + { + 'type' => 'apr_dev_t', + 'name' => 'device' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'nlink' + }, + { + 'type' => 'apr_off_t', + 'name' => 'size' + }, + { + 'type' => 'apr_off_t', + 'name' => 'csize' + }, + { + 'type' => 'apr_time_t', + 'name' => 'atime' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + }, + { + 'type' => 'apr_time_t', + 'name' => 'ctime' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'filehand' + } + ] + }, + { + 'type' => 'apr_getopt_err_fn_t', + 'elts' => [] + }, + { + 'type' => 'apr_getopt_option_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'optch' + }, + { + 'type' => 'int', + 'name' => 'has_arg' + }, + { + 'type' => 'const char *', + 'name' => 'description' + } + ] + }, + { + 'type' => 'apr_getopt_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'cont' + }, + { + 'type' => 'apr_getopt_err_fn_t *', + 'name' => 'errfn' + }, + { + 'type' => 'void *', + 'name' => 'errarg' + }, + { + 'type' => 'int', + 'name' => 'ind' + }, + { + 'type' => 'int', + 'name' => 'opt' + }, + { + 'type' => 'int', + 'name' => 'reset' + }, + { + 'type' => 'int', + 'name' => 'argc' + }, + { + 'type' => 'const char **', + 'name' => 'argv' + }, + { + 'type' => 'char const *', + 'name' => 'place' + }, + { + 'type' => 'int', + 'name' => 'interleave' + }, + { + 'type' => 'int', + 'name' => 'skip_start' + }, + { + 'type' => 'int', + 'name' => 'skip_end' + } + ] + }, + { + 'type' => 'apr_gid_t', + 'elts' => [] + }, + { + 'type' => 'apr_global_mutex_t', + 'elts' => [] + }, + { + 'type' => 'apr_hash_do_callback_fn_t', + 'elts' => [] + }, + { + 'type' => 'apr_hash_index_t', + 'elts' => [] + }, + { + 'type' => 'apr_hash_t', + 'elts' => [] + }, + { + 'type' => 'apr_hashfunc_t', + 'elts' => [] + }, + { + 'type' => 'apr_hdtr_t', + 'elts' => [ + { + 'type' => 'iovec *', + 'name' => 'headers' + }, + { + 'type' => 'int', + 'name' => 'numheaders' + }, + { + 'type' => 'iovec *', + 'name' => 'trailers' + }, + { + 'type' => 'int', + 'name' => 'numtrailers' + } + ] + }, + { + 'type' => 'apr_in_addr_t', + 'elts' => [ + { + 'type' => 'in_addr_t', + 'name' => 's_addr' + } + ] + }, + { + 'type' => 'apr_ino_t', + 'elts' => [] + }, + { + 'type' => 'apr_int16_t', + 'elts' => [] + }, + { + 'type' => 'apr_int32_t', + 'elts' => [] + }, + { + 'type' => 'apr_int64_t', + 'elts' => [] + }, + { + 'type' => 'apr_interface_e', + 'elts' => [] + }, + { + 'type' => 'apr_interval_time_t', + 'elts' => [] + }, + { + 'type' => 'apr_ipsubnet_t', + 'elts' => [] + }, + { + 'type' => 'apr_kill_conditions_e', + 'elts' => [] + }, + { + 'type' => 'apr_ldap_err_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'reason' + }, + { + 'type' => 'const char *', + 'name' => 'msg' + }, + { + 'type' => 'int', + 'name' => 'rc' + } + ] + }, + { + 'type' => 'apr_ldap_opt_tls_cert_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'const char *', + 'name' => 'password' + } + ] + }, + { + 'type' => 'apr_ldap_url_desc_t', + 'elts' => [ + { + 'type' => 'apr_ldap_url_desc_t *', + 'name' => 'lud_next' + }, + { + 'type' => 'char *', + 'name' => 'lud_scheme' + }, + { + 'type' => 'char *', + 'name' => 'lud_host' + }, + { + 'type' => 'int', + 'name' => 'lud_port' + }, + { + 'type' => 'char *', + 'name' => 'lud_dn' + }, + { + 'type' => 'char **', + 'name' => 'lud_attrs' + }, + { + 'type' => 'int', + 'name' => 'lud_scope' + }, + { + 'type' => 'char *', + 'name' => 'lud_filter' + }, + { + 'type' => 'char **', + 'name' => 'lud_exts' + }, + { + 'type' => 'int', + 'name' => 'lud_crit_exts' + } + ] + }, + { + 'type' => 'apr_lockmech_e', + 'elts' => [] + }, + { + 'type' => 'apr_md4_ctx_t', + 'elts' => [ + { + 'type' => 'apr_uint32_t[4]', + 'name' => 'state' + }, + { + 'type' => 'apr_uint32_t[2]', + 'name' => 'count' + }, + { + 'type' => 'unsigned char[64]', + 'name' => 'buffer' + }, + { + 'type' => 'apr_xlate_t *', + 'name' => 'xlate' + } + ] + }, + { + 'type' => 'apr_md5_ctx_t', + 'elts' => [ + { + 'type' => 'apr_uint32_t[4]', + 'name' => 'state' + }, + { + 'type' => 'apr_uint32_t[2]', + 'name' => 'count' + }, + { + 'type' => 'unsigned char[64]', + 'name' => 'buffer' + }, + { + 'type' => 'apr_xlate_t *', + 'name' => 'xlate' + } + ] + }, + { + 'type' => 'apr_memcache_conn_t', + 'elts' => [] + }, + { + 'type' => 'apr_memcache_hash_func', + 'elts' => [] + }, + { + 'type' => 'apr_memcache_server_func', + 'elts' => [] + }, + { + 'type' => 'apr_memcache_server_status_t', + 'elts' => [] + }, + { + 'type' => 'apr_memcache_server_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'host' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'apr_memcache_server_status_t', + 'name' => 'status' + }, + { + 'type' => 'apr_reslist_t *', + 'name' => 'conns' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'lock' + }, + { + 'type' => 'apr_time_t', + 'name' => 'btime' + } + ] + }, + { + 'type' => 'apr_memcache_stats_t', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'version' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'pid' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'uptime' + }, + { + 'type' => 'apr_time_t', + 'name' => 'time' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'pointer_size' + }, + { + 'type' => 'apr_time_t', + 'name' => 'rusage_user' + }, + { + 'type' => 'apr_time_t', + 'name' => 'rusage_system' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'curr_items' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'total_items' + }, + { + 'type' => 'apr_uint64_t', + 'name' => 'bytes' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'curr_connections' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'total_connections' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'connection_structures' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'cmd_get' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'cmd_set' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'get_hits' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'get_misses' + }, + { + 'type' => 'apr_uint64_t', + 'name' => 'evictions' + }, + { + 'type' => 'apr_uint64_t', + 'name' => 'bytes_read' + }, + { + 'type' => 'apr_uint64_t', + 'name' => 'bytes_written' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'limit_maxbytes' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'threads' + } + ] + }, + { + 'type' => 'apr_memcache_t', + 'elts' => [ + { + 'type' => 'apr_uint32_t', + 'name' => 'flags' + }, + { + 'type' => 'apr_uint16_t', + 'name' => 'nalloc' + }, + { + 'type' => 'apr_uint16_t', + 'name' => 'ntotal' + }, + { + 'type' => 'apr_memcache_server_t **', + 'name' => 'live_servers' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'hash_baton' + }, + { + 'type' => 'apr_memcache_hash_func', + 'name' => 'hash_func' + }, + { + 'type' => 'void *', + 'name' => 'server_baton' + }, + { + 'type' => 'apr_memcache_server_func', + 'name' => 'server_func' + } + ] + }, + { + 'type' => 'apr_memcache_value_t', + 'elts' => [ + { + 'type' => 'apr_status_t', + 'name' => 'status' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'char *', + 'name' => 'data' + }, + { + 'type' => 'apr_uint16_t', + 'name' => 'flags' + } + ] + }, + { + 'type' => 'apr_memnode_t', + 'elts' => [ + { + 'type' => 'apr_memnode_t *', + 'name' => 'next' + }, + { + 'type' => 'apr_memnode_t **', + 'name' => 'ref' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'index' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'free_index' + }, + { + 'type' => 'char *', + 'name' => 'first_avail' + }, + { + 'type' => 'char *', + 'name' => 'endp' + } + ] + }, + { + 'type' => 'apr_mmap_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'cntxt' + }, + { + 'type' => 'void *', + 'name' => 'mm' + }, + { + 'type' => 'apr_size_t', + 'name' => 'size' + }, + { + 'type' => '_ANON 66', + 'name' => 'link' + } + ] + }, + { + 'type' => 'apr_off_t', + 'elts' => [] + }, + { + 'type' => 'apr_opt_fn_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_dir_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_dso_handle_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_exp_time_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'tm_sec' + }, + { + 'type' => 'int', + 'name' => 'tm_min' + }, + { + 'type' => 'int', + 'name' => 'tm_hour' + }, + { + 'type' => 'int', + 'name' => 'tm_mday' + }, + { + 'type' => 'int', + 'name' => 'tm_mon' + }, + { + 'type' => 'int', + 'name' => 'tm_year' + }, + { + 'type' => 'int', + 'name' => 'tm_wday' + }, + { + 'type' => 'int', + 'name' => 'tm_yday' + }, + { + 'type' => 'int', + 'name' => 'tm_isdst' + }, + { + 'type' => 'long int', + 'name' => 'tm_gmtoff' + }, + { + 'type' => 'const char *', + 'name' => 'tm_zone' + } + ] + }, + { + 'type' => 'apr_os_file_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_global_mutex_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_proc_mutex_t *', + 'name' => 'proc_mutex' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'thread_mutex' + } + ] + }, + { + 'type' => 'apr_os_imp_time_t', + 'elts' => [ + { + 'type' => '__time_t', + 'name' => 'tv_sec' + }, + { + 'type' => '__suseconds_t', + 'name' => 'tv_usec' + } + ] + }, + { + 'type' => 'apr_os_proc_mutex_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'crossproc' + }, + { + 'type' => 'pthread_mutex_t *', + 'name' => 'pthread_interproc' + }, + { + 'type' => 'pthread_mutex_t *', + 'name' => 'intraproc' + } + ] + }, + { + 'type' => 'apr_os_proc_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_shm_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_sock_info_t', + 'elts' => [ + { + 'type' => 'apr_os_sock_t *', + 'name' => 'os_sock' + }, + { + 'type' => 'sockaddr *', + 'name' => 'local' + }, + { + 'type' => 'sockaddr *', + 'name' => 'remote' + }, + { + 'type' => 'int', + 'name' => 'family' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'int', + 'name' => 'protocol' + } + ] + }, + { + 'type' => 'apr_os_sock_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_thread_t', + 'elts' => [] + }, + { + 'type' => 'apr_os_threadkey_t', + 'elts' => [] + }, + { + 'type' => 'apr_other_child_rec_t', + 'elts' => [] + }, + { + 'type' => 'apr_pollcb_cb_t', + 'elts' => [] + }, + { + 'type' => 'apr_pollcb_t', + 'elts' => [] + }, + { + 'type' => 'apr_pollfd_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_datatype_e', + 'name' => 'desc_type' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'reqevents' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'rtnevents' + }, + { + 'type' => 'apr_descriptor', + 'name' => 'desc' + }, + { + 'type' => 'void *', + 'name' => 'client_data' + } + ] + }, + { + 'type' => 'apr_pollset_method_e', + 'elts' => [] + }, + { + 'type' => 'apr_pollset_t', + 'elts' => [] + }, + { + 'type' => 'apr_pool_t', + 'elts' => [] + }, + { + 'type' => 'apr_port_t', + 'elts' => [] + }, + { + 'type' => 'apr_proc_mutex_t', + 'elts' => [] + }, + { + 'type' => 'apr_proc_t', + 'elts' => [ + { + 'type' => 'pid_t', + 'name' => 'pid' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'in' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'out' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'err' + } + ] + }, + { + 'type' => 'apr_procattr_t', + 'elts' => [] + }, + { + 'type' => 'apr_queue_t', + 'elts' => [] + }, + { + 'type' => 'apr_random_t', + 'elts' => [] + }, + { + 'type' => 'apr_read_type_e', + 'elts' => [] + }, + { + 'type' => 'apr_reslist_constructor', + 'elts' => [] + }, + { + 'type' => 'apr_reslist_destructor', + 'elts' => [] + }, + { + 'type' => 'apr_reslist_t', + 'elts' => [] + }, + { + 'type' => 'apr_rmm_off_t', + 'elts' => [] + }, + { + 'type' => 'apr_rmm_t', + 'elts' => [] + }, + { + 'type' => 'apr_sdbm_datum_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'dptr' + }, + { + 'type' => 'int', + 'name' => 'dsize' + } + ] + }, + { + 'type' => 'apr_sdbm_t', + 'elts' => [] + }, + { + 'type' => 'apr_seek_where_t', + 'elts' => [] + }, + { + 'type' => 'apr_sha1_ctx_t', + 'elts' => [ + { + 'type' => 'apr_uint32_t[5]', + 'name' => 'digest' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'count_lo' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'count_hi' + }, + { + 'type' => 'apr_uint32_t[16]', + 'name' => 'data' + }, + { + 'type' => 'int', + 'name' => 'local' + } + ] + }, + { + 'type' => 'apr_shm_t', + 'elts' => [] + }, + { + 'type' => 'apr_short_interval_time_t', + 'elts' => [] + }, + { + 'type' => 'apr_shutdown_how_e', + 'elts' => [] + }, + { + 'type' => 'apr_sigfunc_t', + 'elts' => [] + }, + { + 'type' => 'apr_signum_t', + 'elts' => [] + }, + { + 'type' => 'apr_size_t', + 'elts' => [] + }, + { + 'type' => 'apr_sockaddr_t', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'char *', + 'name' => 'hostname' + }, + { + 'type' => 'char *', + 'name' => 'servname' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'family' + }, + { + 'type' => 'apr_socklen_t', + 'name' => 'salen' + }, + { + 'type' => 'int', + 'name' => 'ipaddr_len' + }, + { + 'type' => 'int', + 'name' => 'addr_str_len' + }, + { + 'type' => 'void *', + 'name' => 'ipaddr_ptr' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'next' + }, + { + 'type' => 'union _ANON 1', + 'name' => 'sa' + } + ] + }, + { + 'type' => 'apr_socket_t', + 'elts' => [] + }, + { + 'type' => 'apr_socklen_t', + 'elts' => [] + }, + { + 'type' => 'apr_ssize_t', + 'elts' => [] + }, + { + 'type' => 'apr_status_t', + 'elts' => [] + }, + { + 'type' => 'apr_strmatch_pattern', + 'elts' => [ + { + 'type' => 'const char *(*)(const apr_strmatch_pattern *this_pattern, + const char *s, apr_size_t slen)', + 'name' => 'compare' + }, + { + 'type' => 'const char *', + 'name' => 'pattern' + }, + { + 'type' => 'apr_size_t', + 'name' => 'length' + }, + { + 'type' => 'void *', + 'name' => 'context' + } + ] + }, + { + 'type' => 'apr_table_entry_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'char *', + 'name' => 'val' + }, + { + 'type' => 'apr_uint32_t', + 'name' => 'key_checksum' + } + ] + }, + { + 'type' => 'apr_table_t', + 'elts' => [] + }, + { + 'type' => 'apr_text', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'text' + }, + { + 'type' => 'apr_text *', + 'name' => 'next' + } + ] + }, + { + 'type' => 'apr_text_header', + 'elts' => [ + { + 'type' => 'apr_text *', + 'name' => 'first' + }, + { + 'type' => 'apr_text *', + 'name' => 'last' + } + ] + }, + { + 'type' => 'apr_thread_cond_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_mutex_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_once_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_pool_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_rwlock_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_start_t', + 'elts' => [] + }, + { + 'type' => 'apr_thread_t', + 'elts' => [] + }, + { + 'type' => 'apr_threadattr_t', + 'elts' => [] + }, + { + 'type' => 'apr_threadkey_t', + 'elts' => [] + }, + { + 'type' => 'apr_time_exp_t', + 'elts' => [ + { + 'type' => 'apr_int32_t', + 'name' => 'tm_usec' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_sec' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_min' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_hour' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_mday' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_mon' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_year' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_wday' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_yday' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_isdst' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'tm_gmtoff' + } + ] + }, + { + 'type' => 'apr_time_t', + 'elts' => [] + }, + { + 'type' => 'apr_uid_t', + 'elts' => [] + }, + { + 'type' => 'apr_uint16_t', + 'elts' => [] + }, + { + 'type' => 'apr_uint32_t', + 'elts' => [] + }, + { + 'type' => 'apr_uint64_t', + 'elts' => [] + }, + { + 'type' => 'apr_uintptr_t', + 'elts' => [] + }, + { + 'type' => 'apr_uri_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'scheme' + }, + { + 'type' => 'char *', + 'name' => 'hostinfo' + }, + { + 'type' => 'char *', + 'name' => 'user' + }, + { + 'type' => 'char *', + 'name' => 'password' + }, + { + 'type' => 'char *', + 'name' => 'hostname' + }, + { + 'type' => 'char *', + 'name' => 'port_str' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'char *', + 'name' => 'query' + }, + { + 'type' => 'char *', + 'name' => 'fragment' + }, + { + 'type' => 'hostent *', + 'name' => 'hostent' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'unsigned', + 'name' => 'is_initialized' + }, + { + 'type' => 'unsigned', + 'name' => 'dns_looked_up' + }, + { + 'type' => 'unsigned', + 'name' => 'dns_resolved' + } + ] + }, + { + 'type' => 'apr_uuid_t', + 'elts' => [ + { + 'type' => 'unsigned char[16]', + 'name' => 'data' + } + ] + }, + { + 'type' => 'apr_version_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'major' + }, + { + 'type' => 'int', + 'name' => 'minor' + }, + { + 'type' => 'int', + 'name' => 'patch' + }, + { + 'type' => 'int', + 'name' => 'is_dev' + } + ] + }, + { + 'type' => 'apr_vformatter_buff_t', + 'elts' => [ + { + 'type' => 'char *', + 'name' => 'curpos' + }, + { + 'type' => 'char *', + 'name' => 'endpos' + } + ] + }, + { + 'type' => 'apr_wait_how_e', + 'elts' => [] + }, + { + 'type' => 'apr_xlate_t', + 'elts' => [] + }, + { + 'type' => 'apr_xml_attr', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'ns' + }, + { + 'type' => 'const char *', + 'name' => 'value' + }, + { + 'type' => 'apr_xml_attr *', + 'name' => 'next' + } + ] + }, + { + 'type' => 'apr_xml_doc', + 'elts' => [ + { + 'type' => 'apr_xml_elem *', + 'name' => 'root' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'namespaces' + } + ] + }, + { + 'type' => 'apr_xml_elem', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'ns' + }, + { + 'type' => 'const char *', + 'name' => 'lang' + }, + { + 'type' => 'apr_text_header', + 'name' => 'first_cdata' + }, + { + 'type' => 'apr_text_header', + 'name' => 'following_cdata' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'parent' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'next' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'first_child' + }, + { + 'type' => 'apr_xml_attr *', + 'name' => 'attr' + }, + { + 'type' => 'apr_xml_elem *', + 'name' => 'last_child' + }, + { + 'type' => 'apr_xml_ns_scope *', + 'name' => 'ns_scope' + }, + { + 'type' => 'void *', + 'name' => 'priv' + } + ] + }, + { + 'type' => 'apr_xml_parser', + 'elts' => [] + }, + { + 'type' => 'cmd_parms', + 'elts' => [ + { + 'type' => 'void *', + 'name' => 'info' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'int', + 'name' => 'override_opts' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'override_list' + }, + { + 'type' => 'apr_int64_t', + 'name' => 'limited' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'limited_xmethods' + }, + { + 'type' => 'ap_method_list_t *', + 'name' => 'xlimited' + }, + { + 'type' => 'ap_configfile_t *', + 'name' => 'config_file' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'directive' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'temp_pool' + }, + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'const command_rec *', + 'name' => 'cmd' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'context' + }, + { + 'type' => 'const ap_directive_t *', + 'name' => 'err_directive' + } + ] + }, + { + 'type' => 'command_rec', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'cmd_func', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'cmd_data' + }, + { + 'type' => 'int', + 'name' => 'req_override' + }, + { + 'type' => 'enum cmd_how', + 'name' => 'args_how' + }, + { + 'type' => 'const char *', + 'name' => 'errmsg' + } + ] + }, + { + 'type' => 'conn_rec', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'server_rec *', + 'name' => 'base_server' + }, + { + 'type' => 'void *', + 'name' => 'vhost_lookup_data' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'local_addr' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'client_addr' + }, + { + 'type' => 'char *', + 'name' => 'client_ip' + }, + { + 'type' => 'char *', + 'name' => 'remote_host' + }, + { + 'type' => 'char *', + 'name' => 'remote_logname' + }, + { + 'type' => 'char *', + 'name' => 'local_ip' + }, + { + 'type' => 'char *', + 'name' => 'local_host' + }, + { + 'type' => 'long', + 'name' => 'id' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'conn_config' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'notes' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'input_filters' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'output_filters' + }, + { + 'type' => 'void *', + 'name' => 'sbh' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'bucket_alloc' + }, + { + 'type' => 'conn_state_t *', + 'name' => 'cs' + }, + { + 'type' => 'int', + 'name' => 'data_in_input_filters' + }, + { + 'type' => 'int', + 'name' => 'data_in_output_filters' + }, + { + 'type' => 'unsigned int', + 'name' => 'clogging_input_filters' + }, + { + 'type' => 'signed int', + 'name' => 'double_reverse' + }, + { + 'type' => 'unsigned', + 'name' => 'aborted' + }, + { + 'type' => 'ap_conn_keepalive_e', + 'name' => 'keepalive' + }, + { + 'type' => 'int', + 'name' => 'keepalives' + }, + { + 'type' => 'const struct ap_logconf *', + 'name' => 'log' + }, + { + 'type' => 'const char *', + 'name' => 'log_id' + }, + { + 'type' => 'apr_thread_t *', + 'name' => 'current_thread' + } + ] + }, + { + 'type' => 'core_net_rec', + 'elts' => [] + }, + { + 'type' => 'htaccess_result', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'dir' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'int', + 'name' => 'override_opts' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'override_list' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'htaccess' + }, + { + 'type' => 'const struct htaccess_result *', + 'name' => 'next' + } + ] + }, + { + 'type' => 'modperl_uri_t', + 'elts' => [ + { + 'type' => 'apr_uri_t', + 'name' => 'uri' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'char *', + 'name' => 'path_info' + } + ] + }, + { + 'type' => 'module', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'version' + }, + { + 'type' => 'int', + 'name' => 'minor_version' + }, + { + 'type' => 'int', + 'name' => 'module_index' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'void *', + 'name' => 'dynamic_load_handle' + }, + { + 'type' => 'module_struct *', + 'name' => 'next' + }, + { + 'type' => 'unsigned long', + 'name' => 'magic' + }, + { + 'type' => 'void(*) (process_rec *process)', + 'name' => 'rewrite_args' + }, + { + 'type' => 'void *(*) (apr_pool_t *p, char *dir)', + 'name' => 'create_dir_config' + }, + { + 'type' => 'void *(*) (apr_pool_t *p, void *base_conf, void *new_conf)', + 'name' => 'merge_dir_config' + }, + { + 'type' => 'void *(*) (apr_pool_t *p, server_rec *s)', + 'name' => 'create_server_config' + }, + { + 'type' => 'void *(*) (apr_pool_t *p, void *base_conf, + void *new_conf)', + 'name' => 'merge_server_config' + }, + { + 'type' => 'const command_rec *', + 'name' => 'cmds' + }, + { + 'type' => 'void(*) (apr_pool_t *p)', + 'name' => 'register_hooks' + } + ] + }, + { + 'type' => 'piped_log', + 'elts' => [] + }, + { + 'type' => 'process_rec', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'const char *', + 'name' => 'short_name' + }, + { + 'type' => 'const char * const *', + 'name' => 'argv' + }, + { + 'type' => 'int', + 'name' => 'argc' + } + ] + }, + { + 'type' => 'request_rec', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'conn_rec *', + 'name' => 'connection' + }, + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'request_rec *', + 'name' => 'next' + }, + { + 'type' => 'request_rec *', + 'name' => 'prev' + }, + { + 'type' => 'request_rec *', + 'name' => 'main' + }, + { + 'type' => 'char *', + 'name' => 'the_request' + }, + { + 'type' => 'int', + 'name' => 'assbackwards' + }, + { + 'type' => 'int', + 'name' => 'proxyreq' + }, + { + 'type' => 'int', + 'name' => 'header_only' + }, + { + 'type' => 'int', + 'name' => 'proto_num' + }, + { + 'type' => 'char *', + 'name' => 'protocol' + }, + { + 'type' => 'const char *', + 'name' => 'hostname' + }, + { + 'type' => 'apr_time_t', + 'name' => 'request_time' + }, + { + 'type' => 'const char *', + 'name' => 'status_line' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'int', + 'name' => 'method_number' + }, + { + 'type' => 'const char *', + 'name' => 'method' + }, + { + 'type' => 'apr_int64_t', + 'name' => 'allowed' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'allowed_xmethods' + }, + { + 'type' => 'ap_method_list_t *', + 'name' => 'allowed_methods' + }, + { + 'type' => 'apr_off_t', + 'name' => 'sent_bodyct' + }, + { + 'type' => 'apr_off_t', + 'name' => 'bytes_sent' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + }, + { + 'type' => 'const char *', + 'name' => 'range' + }, + { + 'type' => 'apr_off_t', + 'name' => 'clength' + }, + { + 'type' => 'int', + 'name' => 'chunked' + }, + { + 'type' => 'int', + 'name' => 'read_body' + }, + { + 'type' => 'int', + 'name' => 'read_chunked' + }, + { + 'type' => 'unsigned', + 'name' => 'expecting_100' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'kept_body' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'body_table' + }, + { + 'type' => 'apr_off_t', + 'name' => 'remaining' + }, + { + 'type' => 'apr_off_t', + 'name' => 'read_length' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'headers_in' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'headers_out' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'err_headers_out' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'subprocess_env' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'notes' + }, + { + 'type' => 'const char *', + 'name' => 'content_type' + }, + { + 'type' => 'const char *', + 'name' => 'handler' + }, + { + 'type' => 'const char *', + 'name' => 'content_encoding' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'content_languages' + }, + { + 'type' => 'char *', + 'name' => 'vlist_validator' + }, + { + 'type' => 'char *', + 'name' => 'user' + }, + { + 'type' => 'char *', + 'name' => 'ap_auth_type' + }, + { + 'type' => 'char *', + 'name' => 'unparsed_uri' + }, + { + 'type' => 'char *', + 'name' => 'uri' + }, + { + 'type' => 'char *', + 'name' => 'filename' + }, + { + 'type' => 'char *', + 'name' => 'canonical_filename' + }, + { + 'type' => 'char *', + 'name' => 'path_info' + }, + { + 'type' => 'char *', + 'name' => 'args' + }, + { + 'type' => 'int', + 'name' => 'used_path_info' + }, + { + 'type' => 'int', + 'name' => 'eos_sent' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'per_dir_config' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'request_config' + }, + { + 'type' => 'const struct ap_logconf *', + 'name' => 'log' + }, + { + 'type' => 'const char *', + 'name' => 'log_id' + }, + { + 'type' => 'const struct htaccess_result *', + 'name' => 'htaccess' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'output_filters' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'input_filters' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'proto_output_filters' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'proto_input_filters' + }, + { + 'type' => 'int', + 'name' => 'no_cache' + }, + { + 'type' => 'int', + 'name' => 'no_local_copy' + }, + { + 'type' => 'apr_thread_mutex_t *', + 'name' => 'invoke_mtx' + }, + { + 'type' => 'apr_uri_t', + 'name' => 'parsed_uri' + }, + { + 'type' => 'apr_finfo_t', + 'name' => 'finfo' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'useragent_addr' + }, + { + 'type' => 'char *', + 'name' => 'useragent_ip' + } + ] + }, + { + 'type' => 'server_addr_rec', + 'elts' => [ + { + 'type' => 'server_addr_rec *', + 'name' => 'next' + }, + { + 'type' => 'char *', + 'name' => 'virthost' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'host_addr' + }, + { + 'type' => 'apr_port_t', + 'name' => 'host_port' + } + ] + }, + { + 'type' => 'server_rec', + 'elts' => [ + { + 'type' => 'process_rec *', + 'name' => 'process' + }, + { + 'type' => 'server_rec *', + 'name' => 'next' + }, + { + 'type' => 'char *', + 'name' => 'error_fname' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'error_log' + }, + { + 'type' => 'ap_logconf', + 'name' => 'log' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'module_config' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'lookup_defaults' + }, + { + 'type' => 'const char *', + 'name' => 'defn_name' + }, + { + 'type' => 'unsigned', + 'name' => 'defn_line_number' + }, + { + 'type' => 'char', + 'name' => 'is_virtual' + }, + { + 'type' => 'apr_port_t', + 'name' => 'port' + }, + { + 'type' => 'const char *', + 'name' => 'server_scheme' + }, + { + 'type' => 'char *', + 'name' => 'server_admin' + }, + { + 'type' => 'char *', + 'name' => 'server_hostname' + }, + { + 'type' => 'server_addr_rec *', + 'name' => 'addrs' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'keep_alive_timeout' + }, + { + 'type' => 'int', + 'name' => 'keep_alive_max' + }, + { + 'type' => 'int', + 'name' => 'keep_alive' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'names' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'wild_names' + }, + { + 'type' => 'const char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'pathlen' + }, + { + 'type' => 'int', + 'name' => 'limit_req_line' + }, + { + 'type' => 'int', + 'name' => 'limit_req_fieldsize' + }, + { + 'type' => 'int', + 'name' => 'limit_req_fields' + }, + { + 'type' => 'void *', + 'name' => 'context' + } + ] + }, + { + 'type' => 'session_rec', + 'elts' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_uuid_t *', + 'name' => 'uuid' + }, + { + 'type' => 'const char *', + 'name' => 'remote_user' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'entries' + }, + { + 'type' => 'const char *', + 'name' => 'encoded' + }, + { + 'type' => 'apr_time_t', + 'name' => 'expiry' + }, + { + 'type' => 'long', + 'name' => 'maxage' + }, + { + 'type' => 'int', + 'name' => 'dirty' + }, + { + 'type' => 'int', + 'name' => 'cached' + }, + { + 'type' => 'int', + 'name' => 'written' + } + ] + }, + { + 'type' => 'subrequest_rec', + 'elts' => [] + }, + { + 'type' => 'unixd_config_rec', + 'elts' => [ + { + 'type' => 'const char *', + 'name' => 'user_name' + }, + { + 'type' => 'const char *', + 'name' => 'group_name' + }, + { + 'type' => 'uid_t', + 'name' => 'user_id' + }, + { + 'type' => 'gid_t', + 'name' => 'group_id' + }, + { + 'type' => 'int', + 'name' => 'suexec_enabled' + }, + { + 'type' => 'const char *', + 'name' => 'chroot_dir' + }, + { + 'type' => 'const char *', + 'name' => 'suexec_disabled_reason' + } + ] + }, + { + 'type' => 'modperl_interp_t', + 'elts' => [ + { + 'type' => 'modperl_interp_pool_t *', + 'name' => 'mip' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + }, + { + 'type' => 'int', + 'name' => 'num_requests' + }, + { + 'type' => 'U8', + 'name' => 'flags' + }, + { + 'type' => 'modperl_config_con_t *', + 'name' => 'ccfg' + }, + { + 'type' => 'int', + 'name' => 'refcnt' + }, + { + 'type' => 'unsigned long', + 'name' => 'tid' + } + ] + }, + { + 'type' => 'modperl_interp_pool_t', + 'elts' => [ + { + 'type' => 'server_rec *', + 'name' => 'server' + }, + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'modperl_tipool_config_t *', + 'name' => 'tipool_cfg' + }, + { + 'type' => 'modperl_interp_t *', + 'name' => 'parent' + } + ] + }, + { + 'type' => 'modperl_tipool_t', + 'elts' => [ + { + 'type' => 'perl_mutex', + 'name' => 'tiplock' + }, + { + 'type' => 'perl_cond', + 'name' => 'available' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'idle' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'busy' + }, + { + 'type' => 'int', + 'name' => 'in_use' + }, + { + 'type' => 'int', + 'name' => 'size' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'modperl_tipool_config_t *', + 'name' => 'cfg' + }, + { + 'type' => 'modperl_tipool_vtbl_t *', + 'name' => 'func' + } + ] + }, + { + 'type' => 'modperl_tipool_config_t', + 'elts' => [ + { + 'type' => 'int', + 'name' => 'start' + }, + { + 'type' => 'int', + 'name' => 'min_spare' + }, + { + 'type' => 'int', + 'name' => 'max_spare' + }, + { + 'type' => 'int', + 'name' => 'max' + }, + { + 'type' => 'int', + 'name' => 'max_requests' + } + ] + } +]; + + +1;
diff --git a/2_0_13/xs/tables/current24/ModPerl/FunctionTable.pm b/2_0_13/xs/tables/current24/ModPerl/FunctionTable.pm new file mode 100644 index 0000000..9449ee3 --- /dev/null +++ b/2_0_13/xs/tables/current24/ModPerl/FunctionTable.pm
@@ -0,0 +1,8580 @@ +package ModPerl::FunctionTable; + +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +# ! WARNING: generated by ModPerl::ParseSource/0.01 +# ! Mon Jul 1 12:38:19 2013 +# ! do NOT edit, any changes will be lost ! +# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +$ModPerl::FunctionTable = [ + { + 'return_type' => 'int', + 'name' => 'modperl_access_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_apr_array_header2avrv', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_array_header_t *', + 'name' => 'array' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_authen_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_authz_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_array_header_t *', + 'name' => 'modperl_avrv2apr_array_header', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'SV *', + 'name' => 'avrv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_brigade_dump', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'apr_file_t *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'modperl_bucket_sv_create', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'handler' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'AV *', + 'name' => 'args' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_connection', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_files', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_per_dir', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_per_srv', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_pre_connection', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'void *', + 'name' => 'csd' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_callback_process', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_callback_run_handlers', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'modperl_hook_run_mode_e', + 'name' => 'run_mode' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_cgi_header_parse', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + }, + { + 'type' => 'const char **', + 'name' => 'body' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_child_init_handler', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'modperl_cleanup_data_t *', + 'name' => 'modperl_cleanup_data_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_END', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_access_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_add_var', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg1' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_authen_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_authn_provider', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg1' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_authz_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_authz_provider', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg1' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_child_exit_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_child_init_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_cleanup_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_config_requires', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_fixup_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_header_parser_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_init_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_input_filter_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_max', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_max_requests', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_max_spare', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_min_spare', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_interp_start', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_load_module', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_log_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_map_to_storage_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_modules', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_open_logs_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_options', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_output_filter_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_pass_env', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_perl', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_perldo', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_pod', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_pod_cut', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_post_config_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_post_config_requires', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_post_read_request_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_pre_connection_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_process_connection_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_cmd_push_filter_handlers', + 'args' => [ + { + 'type' => 'MpAV **', + 'name' => 'handlers' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_cmd_push_handlers', + 'args' => [ + { + 'type' => 'MpAV **', + 'name' => 'handlers' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_requires', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_response_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_set_env', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg1' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_set_input_filter', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_set_output_filter', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_set_var', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg1' + }, + { + 'type' => 'const char *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_switches', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_trace', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'mconfig' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_trans_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_cmd_type_handlers', + 'args' => [ + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'void *', + 'name' => 'dummy' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'U16 *', + 'name' => 'modperl_code_attrs', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'CV *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_config_apply_PerlModule', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_config_apply_PerlPostConfigRequire', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_config_apply_PerlRequire', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'modperl_config_con_t *', + 'name' => 'modperl_config_con_new', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_config_dir_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'char *', + 'name' => 'dir' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_config_dir_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'basev' + }, + { + 'type' => 'void *', + 'name' => 'addv' + } + ] + }, + { + 'return_type' => 'modperl_config_dir_t *', + 'name' => 'modperl_config_dir_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_config_insert', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptmp' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'override_options' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'conf' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_config_insert_parms', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_config_insert_request', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'override_options' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_config_insert_server', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_config_is_perl_option_enabled', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_config_req_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'modperl_config_req_t *', + 'name' => 'modperl_config_req_new', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_config_request_cleanup', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'char **', + 'name' => 'modperl_config_srv_argv_init', + 'args' => [ + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'int *', + 'name' => 'argc' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_config_srv_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_config_srv_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'basev' + }, + { + 'type' => 'void *', + 'name' => 'addv' + } + ] + }, + { + 'return_type' => 'modperl_config_srv_t *', + 'name' => 'modperl_config_srv_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_const_compile', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'const char *', + 'name' => 'arg' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char **', + 'name' => 'modperl_constants_group_lookup_apache2_const', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char **', + 'name' => 'modperl_constants_group_lookup_apr_const', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char **', + 'name' => 'modperl_constants_group_lookup_modperl', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_constants_lookup_apache2_const', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_constants_lookup_apr_const', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_constants_lookup_modperl', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_croak', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + }, + { + 'type' => 'const char*', + 'name' => 'func' + } + ] + }, + { + 'return_type' => 'unsigned long', + 'name' => 'modperl_debug_level', + 'args' => [] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_dir_config', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'sv_val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_clear', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_configure_request_dir', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_configure_request_srv', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_configure_server', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_default_populate', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_hash_keys', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_hv_store', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_init', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_request_populate', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_request_tie', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_request_unpopulate', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_request_untie', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_sync_dir_env_hash2table', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_config_dir_t *', + 'name' => 'dcfg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_sync_srv_env_hash2table', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_env_unload', + 'args' => [] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_error_strerror', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_status_t', + 'name' => 'rc' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_errsv', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'int', + 'name' => 'status' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_errsv_prepend', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'pat' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_file2package', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'file' + } + ] + }, + { + 'return_type' => 'U16 *', + 'name' => 'modperl_filter_attributes', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'package' + }, + { + 'type' => 'SV *', + 'name' => 'cvrv' + } + ] + }, + { + 'return_type' => 'modperl_filter_t *', + 'name' => 'modperl_filter_mg_get', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'obj' + } + ] + }, + { + 'return_type' => 'modperl_filter_t *', + 'name' => 'modperl_filter_new', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'modperl_filter_mode_e', + 'name' => 'mode' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'input_mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_filter_resolve_init_handler', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'handler' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_filter_runtime_add', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'modperl_filter_mode_e', + 'name' => 'mode' + }, + { + 'type' => 'modperl_filter_add_t', + 'name' => 'addfunc' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + }, + { + 'type' => 'const char *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_fixup_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'U32', + 'name' => 'modperl_flags_lookup_dir', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'U32', + 'name' => 'modperl_flags_lookup_srv', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_get_perl_module_config', + 'args' => [ + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_anon_cnt_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_global_anon_cnt_next', + 'args' => [] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_global_get', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'modperl_global_get_pconf', + 'args' => [] + }, + { + 'return_type' => 'server_rec *', + 'name' => 'modperl_global_get_server_rec', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_init', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_init_pconf', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_init_server_rec', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec * server_rec', + 'name' => 'arg1' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_lock', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_lock_pconf', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_lock_server_rec', + 'args' => [] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'modperl_global_request', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'svr' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_request_cfg_set', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_request_obj_set', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'svr' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_request_set', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_set', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_set_pconf', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_set_server_rec', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'arg0' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_unlock', + 'args' => [ + { + 'type' => 'modperl_global_t *', + 'name' => 'global' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_unlock_pconf', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_global_unlock_server_rec', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_handler_anon_add', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'anon' + }, + { + 'type' => 'CV *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'CV *', + 'name' => 'modperl_handler_anon_get', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'anon' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_handler_anon_init', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'modperl_mgv_t *', + 'name' => 'modperl_handler_anon_next', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'MpAV *', + 'name' => 'modperl_handler_array_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'MpAV *', + 'name' => 'base_a' + }, + { + 'type' => 'MpAV *', + 'name' => 'add_a' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_connection', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_files', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_per_dir', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_per_srv', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_pre_connection', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_desc_process', + 'args' => [ + { + 'type' => 'int', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'modperl_handler_t *', + 'name' => 'modperl_handler_dup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'h' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_equal', + 'args' => [ + { + 'type' => 'modperl_handler_t *', + 'name' => 'h1' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'h2' + } + ] + }, + { + 'return_type' => 'MpAV **', + 'name' => 'modperl_handler_get_handlers', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'modperl_handler_action_e', + 'name' => 'action' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_lookup', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'MpAV **', + 'name' => 'modperl_handler_lookup_handlers', + 'args' => [ + { + 'type' => 'modperl_config_dir_t *', + 'name' => 'dcfg' + }, + { + 'type' => 'modperl_config_srv_t *', + 'name' => 'scfg' + }, + { + 'type' => 'modperl_config_req_t *', + 'name' => 'rcfg' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'int', + 'name' => 'idx' + }, + { + 'type' => 'modperl_handler_action_e', + 'name' => 'action' + }, + { + 'type' => 'const char **', + 'name' => 'desc' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_handler_make_args', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'AV **', + 'name' => 'avp' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_handler_name', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_handler_t *', + 'name' => 'handler' + } + ] + }, + { + 'return_type' => 'modperl_handler_t *', + 'name' => 'modperl_handler_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'modperl_handler_t *', + 'name' => 'modperl_handler_new_from_sv', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_perl_add_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'modperl_handler_action_e', + 'name' => 'action' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_handler_perl_get_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'MpAV **', + 'name' => 'handp' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_push_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'MpAV *', + 'name' => 'handlers' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_handler_resolve', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_handler_t **', + 'name' => 'handp' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_hash_seed_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_hash_seed_set', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_hash_tie', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + }, + { + 'type' => 'void *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_hash_tied_object', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_hash_tied_object_rv', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_header_parser_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_hook_init', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_hook_pre_config', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_init', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_init_globals', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_init_vhost', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 'base_server' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_input_filter_add_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_input_filter_add_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_input_filter_flush', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_input_filter_handler', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'input_mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'modperl_input_filter_read', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'wanted' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_input_filter_write', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_interp_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_clone_init', + 'args' => [ + { + 'type' => 'modperl_interp_t *', + 'name' => 'interp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_destroy', + 'args' => [ + { + 'type' => 'modperl_interp_t *', + 'name' => 'interp' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_get', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_init', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_mip_walk', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'current_perl' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'parent_perl' + }, + { + 'type' => 'modperl_interp_pool_t *', + 'name' => 'mip' + }, + { + 'type' => 'modperl_interp_mip_walker_t', + 'name' => 'walker' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_mip_walk_servers', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'current_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 'base_server' + }, + { + 'type' => 'modperl_interp_mip_walker_t', + 'name' => 'walker' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_new', + 'args' => [ + { + 'type' => 'modperl_interp_pool_t *', + 'name' => 'mip' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_interp_pool_destroy', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_pool_get', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_pool_select', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_interp_pool_set', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_interp_t *', + 'name' => 'interp' + }, + { + 'type' => 'int', + 'name' => 'cleanup' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_interp_select', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_interp_unselect', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_apache_init', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_handle_tie', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + }, + { + 'type' => 'char *', + 'name' => 'classname' + }, + { + 'type' => 'void *', + 'name' => 'ptr' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_io_handle_tied', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + }, + { + 'type' => 'char *', + 'name' => 'classname' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_handle_untie', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_io_perlio_override_stdin', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_io_perlio_override_stdout', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_perlio_restore_stdin', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_io_perlio_restore_stdout', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'GV *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_io_tie_stdin', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_io_tie_stdout', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_is_running', + 'args' => [] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_append', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'new_list' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_first', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_last', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_new', + 'args' => [] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_prepend', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'new_list' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_remove', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'rlist' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_list_remove_data', + 'args' => [ + { + 'type' => 'modperl_list_t *', + 'name' => 'list' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'modperl_list_t **', + 'name' => 'listp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_log_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_map_to_storage_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_mgv_append', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_mgv_as_string', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'modperl_mgv_t *', + 'name' => 'modperl_mgv_compile', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_mgv_equal', + 'args' => [ + { + 'type' => 'modperl_mgv_t *', + 'name' => 'mgv1' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'mgv2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_mgv_hash_handlers', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'modperl_mgv_t *', + 'name' => 'modperl_mgv_last', + 'args' => [ + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_mgv_last_name', + 'args' => [ + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_mgv_lookup', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + } + ] + }, + { + 'return_type' => 'GV *', + 'name' => 'modperl_mgv_lookup_autoload', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'modperl_mgv_t *', + 'name' => 'modperl_mgv_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_mgv_require_module', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_mgv_t *', + 'name' => 'symbol' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_mgv_resolve', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_handler_t *', + 'name' => 'handler' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'int', + 'name' => 'logfailure' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_modglobal_hash_keys', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'modperl_modglobal_key_t *', + 'name' => 'modperl_modglobal_lookup', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_module_add', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'mod_cmds' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_module_config_get_obj', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'pmodule' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'v' + } + ] + }, + { + 'return_type' => 'PTR_TBL_t *', + 'name' => 'modperl_module_config_table_get', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'int', + 'name' => 'create' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_module_config_table_set', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'table' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_newSVsv_obj', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'stashsv' + }, + { + 'type' => 'SV *', + 'name' => 'obj' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_open_logs_handler', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'modperl_options_t *', + 'name' => 'modperl_options_merge', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_options_t *', + 'name' => 'base' + }, + { + 'type' => 'modperl_options_t *new', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'modperl_options_t *', + 'name' => 'modperl_options_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'modperl_options_set', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_options_t *', + 'name' => 'o' + }, + { + 'type' => 'const char *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_output_filter_add_connection', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_output_filter_add_request', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_output_filter_flush', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_output_filter_handler', + 'args' => [ + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'modperl_output_filter_read', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'wanted' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_output_filter_write', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_package_unload', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_av_push_elts_ref', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'AV *', + 'name' => 'dst' + }, + { + 'type' => 'AV *', + 'name' => 'src' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_call_endav', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_call_list', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'AV *', + 'name' => 'subs' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_core_global_init', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_destruct', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'perl' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_perl_destruct_level', + 'args' => [] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_do_join', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_do_sprintf', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'I32', + 'name' => 'len' + }, + { + 'type' => 'SV **', + 'name' => 'sarg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_exit', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'int', + 'name' => 'status' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_gensym', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'pack' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_avcv_call', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_modglobal_key_t *', + 'name' => 'gkey' + }, + { + 'type' => 'const char *', + 'name' => 'package' + }, + { + 'type' => 'I32', + 'name' => 'packlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_avcv_clear', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_modglobal_key_t *', + 'name' => 'gkey' + }, + { + 'type' => 'const char *', + 'name' => 'package' + }, + { + 'type' => 'I32', + 'name' => 'packlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_avcv_register', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_modglobal_key_t *', + 'name' => 'gkey' + }, + { + 'type' => 'const char *', + 'name' => 'package' + }, + { + 'type' => 'I32', + 'name' => 'packlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_request_restore', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_global_request_save', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'HE *', + 'name' => 'modperl_perl_hv_fetch_he', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'HV *', + 'name' => 'hv' + }, + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'I32', + 'name' => 'klen' + }, + { + 'type' => 'U32', + 'name' => 'hash' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_init_ids_server', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_perl_module_loaded', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_pp_set', + 'args' => [ + { + 'type' => 'modperl_perl_opcode_e', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_pp_set_all', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_pp_unset', + 'args' => [ + { + 'type' => 'modperl_perl_opcode_e', + 'name' => 'idx' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_perl_pp_unset_all', + 'args' => [] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_perl_sv_setref_uv', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'rv' + }, + { + 'type' => 'const char *', + 'name' => 'classname' + }, + { + 'type' => 'UV', + 'name' => 'uv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_pnotes', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'HV **', + 'name' => 'pnotes' + }, + { + 'type' => 'SV *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'val' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_pnotes_kill', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'cl_data' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_post_config_handler', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pconf' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'plog' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'ptemp' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_post_post_config_phase', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_post_read_request_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_pre_connection_handler', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'void *', + 'name' => 'csd' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_process_connection_handler', + 'args' => [ + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_ptr2obj', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'classname' + }, + { + 'type' => 'void *', + 'name' => 'ptr' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_register_auth_provider', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_name' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + }, + { + 'type' => 'SV *', + 'name' => 'callback1' + }, + { + 'type' => 'SV *', + 'name' => 'callback2' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_register_auth_provider_name', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'const char *', + 'name' => 'provider_group' + }, + { + 'type' => 'const char *', + 'name' => 'provider_name' + }, + { + 'type' => 'const char *', + 'name' => 'provider_version' + }, + { + 'type' => 'const char *', + 'name' => 'callback1' + }, + { + 'type' => 'const char *', + 'name' => 'callback2' + }, + { + 'type' => 'int', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_register_handler_hooks', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_register_hooks', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'ssize_t', + 'name' => 'modperl_request_read', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'buffer' + }, + { + 'type' => 'size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_require_file', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'pv' + }, + { + 'type' => 'int', + 'name' => 'logfailure' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_require_module', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'pv' + }, + { + 'type' => 'int', + 'name' => 'logfailure' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_response_finish', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_response_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_response_handler_cgi', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_response_init', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_restart_count', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_restart_count_inc', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 'base_server' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_run', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_run_filter', + 'args' => [ + { + 'type' => 'modperl_filter_t *', + 'name' => 'filter' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'modperl_server_desc', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'modperl_server_pool', + 'args' => [] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'modperl_server_user_pool', + 'args' => [] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_set_perl_module_config', + 'args' => [ + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'cv' + }, + { + 'type' => 'void *', + 'name' => 'cfg' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_slurp_filename', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'int', + 'name' => 'tainted' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_spawn_proc_prog', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'command' + }, + { + 'type' => 'const char ***', + 'name' => 'argv' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'script_in' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'script_out' + }, + { + 'type' => 'apr_file_t **', + 'name' => 'script_err' + } + ] + }, + { + 'return_type' => 'PerlInterpreter *', + 'name' => 'modperl_startup', + 'args' => [ + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_str_toupper', + 'args' => [ + { + 'type' => 'char *', + 'name' => 'str' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'modperl_sv2request_rec', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'server_rec *', + 'name' => 'modperl_sv2server_rec', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_clear', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + } + ] + }, + { + 'return_type' => 'PTR_TBL_t *', + 'name' => 'modperl_svptr_table_clone', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PerlInterpreter *', + 'name' => 'proto_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'source' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_delete', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + }, + { + 'type' => 'void *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_destroy', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + } + ] + }, + { + 'return_type' => 'void *', + 'name' => 'modperl_svptr_table_fetch', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + }, + { + 'type' => 'void *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_free', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + } + ] + }, + { + 'return_type' => 'PTR_TBL_t *', + 'name' => 'modperl_svptr_table_new', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_split', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_svptr_table_store', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'PTR_TBL_t *', + 'name' => 'tbl' + }, + { + 'type' => 'void *', + 'name' => 'oldv' + }, + { + 'type' => 'void *', + 'name' => 'newv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_sys_dlclose', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'handle' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_sys_is_dir', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'modperl_table_get_set', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'table' + }, + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'sv_val' + }, + { + 'type' => 'int', + 'name' => 'do_taint' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_threaded_mpm', + 'args' => [] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_threads_started', + 'args' => [] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'modperl_thx_interp_get', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'thx' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_thx_interp_set', + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'thx' + }, + { + 'type' => 'modperl_interp_t *', + 'name' => 'interp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_add', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_destroy', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_init', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + } + ] + }, + { + 'return_type' => 'modperl_tipool_t *', + 'name' => 'modperl_tipool_new', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_tipool_config_t *', + 'name' => 'cfg' + }, + { + 'type' => 'void *', + 'name' => 'func' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'modperl_list_t *', + 'name' => 'modperl_tipool_pop', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_putback', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'listp' + }, + { + 'type' => 'int', + 'name' => 'num_requests' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_putback_data', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'int', + 'name' => 'num_requests' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tipool_remove', + 'args' => [ + { + 'type' => 'modperl_tipool_t *', + 'name' => 'tipool' + }, + { + 'type' => 'modperl_list_t *', + 'name' => 'listp' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_create', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_tls_t **', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_create_request_rec', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_get', + 'args' => [ + { + 'type' => 'modperl_tls_t *', + 'name' => 'key' + }, + { + 'type' => 'void **', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_get_request_rec', + 'args' => [ + { + 'type' => 'request_rec * *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tls_reset_cleanup', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'modperl_tls_t *', + 'name' => 'key' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_tls_reset_cleanup_request_rec', + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'request_rec *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_set', + 'args' => [ + { + 'type' => 'modperl_tls_t *', + 'name' => 'key' + }, + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_tls_set_request_rec', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace', + 'args' => [ + { + 'type' => 'const char *', + 'name' => 'func' + }, + { + 'type' => 'const char *', + 'name' => 'fmt' + }, + { + 'type' => '...', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace_level_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'logfile' + }, + { + 'type' => 'const char *', + 'name' => 'level' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_trace_logfile_set', + 'args' => [ + { + 'type' => 'apr_file_t *', + 'name' => 'logfile_new' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_trans_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'modperl_type_handler', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'modperl_uri_t *', + 'name' => 'modperl_uri_new', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_wbucket_flush', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_wbucket_t *', + 'name' => 'b' + }, + { + 'type' => 'int', + 'name' => 'add_flush_bucket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_wbucket_pass', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'modperl_wbucket_t *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'int', + 'name' => 'add_flush_bucket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'modperl_wbucket_write', + 'attr' => [ + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'modperl_wbucket_t *', + 'name' => 'b' + }, + { + 'type' => 'const char *', + 'name' => 'buf' + }, + { + 'type' => 'apr_size_t *', + 'name' => 'wlen' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_xs_dl_handles_clear', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'modperl_xs_dl_handles_close', + 'args' => [ + { + 'type' => 'void **', + 'name' => 'handles' + } + ] + }, + { + 'return_type' => 'void **', + 'name' => 'modperl_xs_dl_handles_get', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'modperl_xs_sv2request_rec', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'char *', + 'name' => 'classname' + }, + { + 'type' => 'CV *', + 'name' => 'cv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_cleanup', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_concat', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_destroy', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Brigade_first', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_APR__Brigade_flatten', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_insert_head', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Brigade_insert_tail', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Brigade_is_empty', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Brigade_last', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Brigade_length', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'int', + 'name' => 'read_all' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Brigade_next', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'apr_pool_t *', + 'name' => 'mpxs_APR__Brigade_pool', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Brigade_prev', + 'args' => [ + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__BucketAlloc_new', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'CLASS' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Bucket_insert_after', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Bucket_insert_before', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'a' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'b' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Bucket_is_eos', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Bucket_is_flush', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'apr_bucket *', + 'name' => 'mpxs_APR__Bucket_new', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'list' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_APR__Bucket_read', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Bucket_remove', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_bucket *', + 'name' => 'bucket' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_APR__Bucket_setaside', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'b_sv' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Finfo_stat', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'fname' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'wanted' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'unsigned long', + 'name' => 'mpxs_APR__OS_current_thread_id', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Pool_clear', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'obj' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Socket_fileno', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + } + ] + }, + { + 'return_type' => 'apr_int32_t', + 'name' => 'mpxs_APR__Socket_opt_get', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Socket_opt_set', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'opt' + }, + { + 'type' => 'apr_int32_t', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_APR__Socket_poll', + 'args' => [ + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'pool' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 'timeout' + }, + { + 'type' => 'apr_int16_t', + 'name' => 'reqevents' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_APR__Socket_recv', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_APR__Socket_timeout_set', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'apr_interval_time_t', + 'name' => 't' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__String_strfsize', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_off_t', + 'name' => 'size' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_APR__Table_EXISTS', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'apr_table_t *', + 'name' => 't' + }, + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_APR__Table_FETCH', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + }, + { + 'type' => 'const char *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_APR__Table_NEXTKEY', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'tsv' + }, + { + 'type' => 'SV *', + 'name' => 'key' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Table_copy', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'base' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Table_make', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'int', + 'name' => 'nelts' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__Table_overlay', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'base' + }, + { + 'type' => 'apr_table_t *', + 'name' => 'overlay' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'mpxs_APR__URI_port', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'uri' + }, + { + 'type' => 'SV *', + 'name' => 'portsv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_APR__URI_rpath', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'apr_uri' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__CmdParms_add_config', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__CmdParms_info', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__CmdParms_override_opts', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'cmd_parms *', + 'name' => 'parms' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Connection_add_input_filter', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Connection_add_output_filter', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + } + ] + }, + { + 'return_type' => 'apr_socket_t *', + 'name' => 'mpxs_Apache2__Connection_client_socket', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 's' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__Connection_get_remote_host', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'int', + 'name' => 'type' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'dir_config' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Connection_pnotes', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'SV *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Connection_pnotes_kill', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Directive_as_hash', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'tree' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Directive_as_string', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_directive_t *', + 'name' => 'self' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Filter_ctx', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'SV *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_Apache2__Filter_fflush', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'filter' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'brigade' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_Apache2__Filter_get_brigade', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + }, + { + 'type' => 'ap_input_mode_t', + 'name' => 'mode' + }, + { + 'type' => 'apr_read_type_e', + 'name' => 'block' + }, + { + 'type' => 'apr_off_t', + 'name' => 'readbytes' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_Apache2__Filter_pass_brigade', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'ap_filter_t *', + 'name' => 'f' + }, + { + 'type' => 'apr_bucket_brigade *', + 'name' => 'bb' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_Apache2__Filter_print', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_Apache2__Filter_read', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Filter_remove', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Filter_seen_eos', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Log_BOOT', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Log_log', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'int', + 'name' => 'logtype' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__MPM_BOOT', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__MPM_query', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'self' + }, + { + 'type' => 'int', + 'name' => 'query_code' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__Module_add', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'package' + }, + { + 'type' => 'SV *', + 'name' => 'cmds' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__Module_ap_api_major_version', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'module *', + 'name' => 'mod' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__Module_ap_api_minor_version', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'module *', + 'name' => 'mod' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__Module_get_config', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'pmodule' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'ap_conf_vector_t *', + 'name' => 'v' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__Module_loaded', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_FILENO', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_GETC', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_OPEN', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'self' + }, + { + 'type' => 'SV *', + 'name' => 'arg1' + }, + { + 'type' => 'SV *', + 'name' => 'arg2' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_add_config', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + }, + { + 'type' => 'int', + 'name' => 'override' + }, + { + 'type' => 'char *', + 'name' => 'path' + }, + { + 'type' => 'int', + 'name' => 'override_options' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_add_input_filter', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_add_output_filter', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'callback' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_allow_override_opts', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_as_string', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_auth_name', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_auth_type', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_child_terminate', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_content_languages', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'languages' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_content_type', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'type' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_document_root', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'new_root' + } + ] + }, + { + 'return_type' => 'apr_finfo_t *', + 'name' => 'mpxs_Apache2__RequestRec_finfo', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_finfo_t *', + 'name' => 'finfo' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_get_handlers', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'const char *', + 'name' => 'mpxs_Apache2__RequestRec_handler', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_is_perl_option_enabled', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'mpxs_Apache2__RequestRec_location', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_location_merge', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'location' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_new', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'conn_rec *', + 'name' => 'c' + }, + { + 'type' => 'SV *', + 'name' => 'base_pool_sv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_no_cache', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'flag' + } + ] + }, + { + 'return_type' => 'apr_uri_t *', + 'name' => 'mpxs_Apache2__RequestRec_parsed_uri', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_pnotes', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_pnotes_kill', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_print', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_proxyreq', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_push_handlers', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_read', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_rflush', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_Apache2__RequestRec_sendfile', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'filename' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__RequestRec_set_basic_credentials', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'username' + }, + { + 'type' => 'char *', + 'name' => 'password' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__RequestRec_set_handlers', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => '', + 'name' => 'mpxs_Apache2__RequestRec_set_last_modified', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'apr_time_t', + 'name' => 'mtime' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__RequestRec_subprocess_env', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'key' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_Apache2__RequestRec_write', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'apr_size_t', + 'name' => 'len' + }, + { + 'type' => 'apr_off_t', + 'name' => 'offset' + } + ] + }, + { + 'return_type' => 'request_rec *', + 'name' => 'mpxs_Apache2__RequestUtil_request', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'svr' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__ServerRec_add_config', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'SV *', + 'name' => 'lines' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_Apache2__ServerRec_get_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__ServerRec_is_perl_option_enabled', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__ServerRec_is_virtual', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'SV *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__ServerRec_loglevel', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'int', + 'name' => 'loglevel' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__ServerRec_push_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_Apache2__ServerRec_set_handlers', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'server_rec *', + 'name' => 's' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__ServerUtil_BOOT', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_Apache2__ServerUtil_server_shutdown_cleanup_register', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'cv' + }, + { + 'type' => 'SV *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_ModPerl__Global_special_list_call', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_ModPerl__Global_special_list_clear', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_ModPerl__Global_special_list_register', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'package' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_ModPerl__Util_untaint', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_ap_allow_methods', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'long', + 'name' => 'mpxs_ap_get_client_block', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'SV *', + 'name' => 'buffer' + }, + { + 'type' => 'int', + 'name' => 'bufsiz' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_ap_log_error', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'int', + 'name' => 'level' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'SV *', + 'name' => 'msg' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_ap_register_auth_provider', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_ap_requires', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_ap_rprintf', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_ap_run_sub_req', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_ap_rvputs', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'mpxs_ap_unescape_url', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'url' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_apr_base64_decode', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'SV *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_apr_base64_encode', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'sv' + }, + { + 'type' => 'SV *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_brigade_create', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'CLASS' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'apr_bucket_alloc_t *', + 'name' => 'ba' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_ipsubnet_create', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'const char *', + 'name' => 'ipstr' + }, + { + 'type' => 'const char *', + 'name' => 'mask_or_numbits' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_apr_password_validate', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'passwd' + }, + { + 'type' => 'const char *', + 'name' => 'hash' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_apr_pool_DESTROY', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'obj' + } + ] + }, + { + 'return_type' => '', + 'name' => 'mpxs_apr_pool_cleanup', + 'args' => [ + { + 'type' => 'void *', + 'name' => 'cleanup_data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_apr_pool_cleanup_register', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'p' + }, + { + 'type' => 'SV *', + 'name' => 'cv' + }, + { + 'type' => 'SV *', + 'name' => 'arg' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_pool_create', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'parent_pool_obj' + } + ] + }, + { + 'return_type' => '', + 'name' => 'mpxs_apr_pool_parent_get', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_pool_t *', + 'name' => 'child_pool' + } + ] + }, + { + 'return_type' => '', + 'name' => 'mpxs_apr_sockaddr_ip_get', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_sockaddr_t *', + 'name' => 'sockaddr' + } + ] + }, + { + 'return_type' => 'apr_size_t', + 'name' => 'mpxs_apr_socket_send', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_socket_t *', + 'name' => 'socket' + }, + { + 'type' => 'SV *', + 'name' => 'sv_buf' + }, + { + 'type' => 'SV *', + 'name' => 'sv_len' + } + ] + }, + { + 'return_type' => 'apr_interval_time_t', + 'name' => 'mpxs_apr_socket_timeout_get', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_apr_table_do', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'I32', + 'name' => 'items' + }, + { + 'type' => 'SV **', + 'name' => 'mark' + }, + { + 'type' => 'SV **', + 'name' => 'sp' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_apr_table_do_cb', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + }, + { + 'type' => 'const char *', + 'name' => 'key' + }, + { + 'type' => 'const char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_thread_mutex_create', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'unsigned int', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_thread_rwlock_create', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + } + ] + }, + { + 'return_type' => 'SV *', + 'name' => 'mpxs_apr_uri_parse', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'classname' + }, + { + 'type' => 'SV *', + 'name' => 'p_sv' + }, + { + 'type' => 'const char *', + 'name' => 'uri_string' + } + ] + }, + { + 'return_type' => 'char *', + 'name' => 'mpxs_apr_uri_unparse', + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'apr_uri_t *', + 'name' => 'uptr' + }, + { + 'type' => 'unsigned', + 'name' => 'flags' + } + ] + }, + { + 'return_type' => 'apr_uuid_t *', + 'name' => 'mpxs_apr_uuid_get', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'CLASS' + } + ] + }, + { + 'return_type' => 'apr_uuid_t *', + 'name' => 'mpxs_apr_uuid_parse', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'CLASS' + }, + { + 'type' => 'char *', + 'name' => 'buf' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_cleanup_run', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'void *', + 'name' => 'data' + } + ] + }, + { + 'return_type' => 'void', + 'name' => 'mpxs_insert_auth_cfg', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'request_rec *', + 'name' => 'r' + }, + { + 'type' => 'char *', + 'name' => 'directive' + }, + { + 'type' => 'char *', + 'name' => 'val' + } + ] + }, + { + 'return_type' => 'apr_status_t', + 'name' => 'mpxs_setup_client_block', + 'args' => [ + { + 'type' => 'request_rec *', + 'name' => 'r' + } + ] + }, + { + 'return_type' => 'int', + 'name' => 'mpxs_special_list_do', + 'attr' => [ + 'static' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter*', + 'name' => 'my_perl' + }, + { + 'type' => 'const char *', + 'name' => 'name' + }, + { + 'type' => 'SV *', + 'name' => 'package' + }, + { + 'type' => 'mpxs_special_list_do_t', + 'name' => 'func' + } + ] + }, + { + 'return_type' => 'modperl_interp_t *', + 'name' => 'mpxs_ModPerl__Interpreter_current', + 'attr' => [ + 'static', + '__inline__' + ], + 'args' => [ + { + 'type' => 'PerlInterpreter *', + 'name' => 'my_perl' + }, + { + 'type' => 'SV *', + 'name' => 'class' + } + ] + } +]; + + +1;
diff --git a/2_0_13/xs/typemap b/2_0_13/xs/typemap new file mode 100644 index 0000000..f9a9818 --- /dev/null +++ b/2_0_13/xs/typemap
@@ -0,0 +1,89 @@ +TYPEMAP +void * T_VPTR +char_len * T_CHAR_LEN +const char_len * T_CONST_CHAR_LEN + +###################################################################### +OUTPUT +T_POOLOBJ + sv_setref_pv($arg, \"${ntype}\", (void*)$var); + +T_APACHEOBJ + sv_setref_pv($arg, \"${ntype}\", (void*)$var); + +T_HASHOBJ + $arg = modperl_hash_tie(aTHX_ \"${ntype}\", $arg, $var); + +T_VPTR + sv_setiv($arg, PTR2IV($var)); + +T_UVPTR + sv_setuv($arg, PTR2UV($var)); + +T_APR_TIME + sv_setnv($arg, (NV)(apr_time_sec($var))); + +T_UVOBJ + modperl_perl_sv_setref_uv(aTHX_ $arg, \"${ntype}\", (UV)$var); + +###################################################################### +INPUT +T_PTROBJ + if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) { + IV tmp = SvIV((SV*)SvRV($arg)); + $var = INT2PTR($type, tmp); + } + else { + Perl_croak(aTHX_ SvROK($arg) ? + \"$var is not of type ${ntype}\" : + \"$var is not a blessed reference\"); + } + +T_POOLOBJ + if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) { + IV tmp = SvIV((SV*)SvRV($arg)); + if (tmp == 0) { + Perl_croak(aTHX_ \"invalid pool object (already destroyed?)\"); + } + $var = INT2PTR($type, tmp); + } + else { + Perl_croak(aTHX_ SvROK($arg) ? + \"$var is not of type ${ntype}\" : + \"$var is not a blessed reference\"); + } + +T_UVOBJ + if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) { + UV tmp = SvUV((SV*)SvRV($arg)); + $var = INT2PTR($type, tmp); + } + else { + Perl_croak(aTHX_ SvROK($arg) ? + \"$var is not of type ${ntype}\" : + \"$var is not a blessed reference\"); + } + +T_APACHEOBJ + $var = modperl_xs_sv2request_rec(aTHX_ $arg, \"$ntype\", cv) + +T_HASHOBJ + $var = modperl_hash_tied_object(aTHX_ \"${ntype}\", $arg) + +T_APACHEREF + $var = modperl_xs_sv2request_rec(aTHX_ $arg, \"$ntype\", cv) + +T_VPTR + $var = INT2PTR($type, SvIV(SvROK($arg) ? SvRV($arg) : $arg)) + +T_UVPTR + $var = INT2PTR($type, SvUV(SvROK($arg) ? SvRV($arg) : $arg)) + +T_APR_TIME + $var = (apr_time_t)(apr_time_from_sec(SvNV($arg))) + +T_CHAR_LEN + $var = (char *)SvPV($arg, ${var}_len) + +T_CONST_CHAR_LEN + $var = (const char *)SvPV($arg, ${var}_len)
