/* * This file was generated automatically by ExtUtils::ParseXS version 2.18 from the * contents of AutoIndex.xs. Do not edit this file, edit AutoIndex.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "AutoIndex.xs" #include "modules/perl/mod_perl.h" static mod_perl_perl_dir_config *newPerlConfig(pool *p) { mod_perl_perl_dir_config *cld = (mod_perl_perl_dir_config *) palloc(p, sizeof (mod_perl_perl_dir_config)); cld->obj = Nullsv; cld->pclass = "Apache::AutoIndex"; register_cleanup(p, cld, perl_perl_cmd_cleanup, null_cleanup); return cld; } static void *create_dir_config_sv (pool *p, char *dirname) { return newPerlConfig(p); } static void *create_srv_config_sv (pool *p, server_rec *s) { return newPerlConfig(p); } static void stash_mod_pointer (char *class, void *ptr) { SV *sv = newSV(0); sv_setref_pv(sv, NULL, (void*)ptr); hv_store(perl_get_hv("Apache::XS_ModuleConfig",TRUE), class, strlen(class), sv, FALSE); } static mod_perl_cmd_info cmd_info_IndexIgnore = { "Apache::AutoIndex::push_config", "ignore", }; static mod_perl_cmd_info cmd_info_DirectoryIndex = { "Apache::AutoIndex::DirectoryIndex", "", }; static mod_perl_cmd_info cmd_info_HeaderName = { "Apache::AutoIndex::push_config", "header", }; static mod_perl_cmd_info cmd_info_ReadmeName = { "Apache::AutoIndex::push_config", "readme", }; static mod_perl_cmd_info cmd_info_FancyIndexing = { "Apache::AutoIndex::FancyIndexing", "", }; static mod_perl_cmd_info cmd_info_IndexOrderDefault = { "Apache::AutoIndex::IndexOrderDefault", "", }; static mod_perl_cmd_info cmd_info_AddDescription = { "Apache::AutoIndex::AddDescription", "", }; static mod_perl_cmd_info cmd_info_IndexOptions = { "Apache::AutoIndex::IndexOptions", "", }; static command_rec mod_cmds[] = { { "IndexIgnore", perl_cmd_perl_ITERATE, (void*)&cmd_info_IndexIgnore, OR_INDEXES, ITERATE, "a list of file names" }, { "DirectoryIndex", perl_cmd_perl_ITERATE, (void*)&cmd_info_DirectoryIndex, OR_INDEXES, ITERATE, "one or more file extensions" }, { "HeaderName", perl_cmd_perl_ITERATE, (void*)&cmd_info_HeaderName, OR_INDEXES, ITERATE, "a list of file names" }, { "ReadmeName", perl_cmd_perl_ITERATE, (void*)&cmd_info_ReadmeName, OR_INDEXES, ITERATE, "a list of file names" }, { "FancyIndexing", perl_cmd_perl_FLAG, (void*)&cmd_info_FancyIndexing, OR_INDEXES, FLAG, "Limited to on or off (superseded by IndexOptions FancyIndexing)" }, { "IndexOrderDefault", perl_cmd_perl_TAKE2, (void*)&cmd_info_IndexOrderDefault, OR_INDEXES, TAKE2, "{Ascending,Descending} {Name,Size,Description,Date}" }, { "AddDescription", perl_cmd_perl_RAW_ARGS, (void*)&cmd_info_AddDescription, OR_INDEXES, RAW_ARGS, "Descriptive text followed by one or more filenames" }, { "IndexOptions", perl_cmd_perl_RAW_ARGS, (void*)&cmd_info_IndexOptions, OR_INDEXES, RAW_ARGS, "one or more index options" }, { NULL } }; module MODULE_VAR_EXPORT XS_Apache__AutoIndex = { STANDARD_MODULE_STUFF, NULL, /* module initializer */ create_dir_config_sv, /* per-directory config creator */ perl_perl_merge_dir_config, /* dir config merger */ create_srv_config_sv, /* server config creator */ NULL, /* server config merger */ mod_cmds, /* command table */ NULL, /* [7] list of handlers */ NULL, /* [2] filename-to-URI translation */ NULL, /* [5] check/validate user_id */ NULL, /* [6] check user_id is valid *here* */ NULL, /* [4] check access by host address */ NULL, /* [7] MIME type checker/setter */ NULL, /* [8] fixups */ NULL, /* [10] logger */ NULL, /* [3] header parser */ NULL, /* process initializer */ NULL, /* process exit/cleanup */ NULL, /* [1] post read_request handling */ }; #define this_module "Apache/AutoIndex.pm" static void remove_module_cleanup(void *data) { if (find_linked_module("Apache::AutoIndex")) { /* need to remove the module so module index is reset */ remove_module(&XS_Apache__AutoIndex); } if (data) { /* make sure BOOT section is re-run on restarts */ (void)hv_delete(GvHV(incgv), this_module, strlen(this_module), G_DISCARD); if (dowarn) { /* avoid subroutine redefined warnings */ perl_clear_symtab(gv_stashpv("Apache::AutoIndex", FALSE)); } } } #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #line 150 "AutoIndex.c" XS(XS_Apache__AutoIndex_END); /* prototype to pass -Wmissing-prototypes */ XS(XS_Apache__AutoIndex_END) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "Apache::AutoIndex::END", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 151 "AutoIndex.xs" remove_module_cleanup(NULL); #line 166 "AutoIndex.c" } XSRETURN_EMPTY; } #ifdef __cplusplus extern "C" #endif XS(boot_Apache__AutoIndex); /* prototype to pass -Wmissing-prototypes */ XS(boot_Apache__AutoIndex) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif char* file = __FILE__; PERL_UNUSED_VAR(cv); /* -W */ PERL_UNUSED_VAR(items); /* -W */ XS_VERSION_BOOTCHECK ; newXS("Apache::AutoIndex::END", XS_Apache__AutoIndex_END, file); /* Initialisation Section */ #line 141 "AutoIndex.xs" XS_Apache__AutoIndex.name = "Apache::AutoIndex"; add_module(&XS_Apache__AutoIndex); stash_mod_pointer("Apache::AutoIndex", &XS_Apache__AutoIndex); register_cleanup(perl_get_startup_pool(), (void *)1, remove_module_cleanup, null_cleanup); #line 199 "AutoIndex.c" /* End of Initialisation Section */ XSRETURN_YES; }