/* * This file was generated automatically by ExtUtils::ParseXS version 2.18 from the * contents of Apache.xs. Do not edit this file, edit Apache.xs instead. * * ANY CHANGES MADE HERE WILL BE LOST! * */ #line 1 "Apache.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 = "Slash::Apache"; 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_SlashVirtualUser = { "Slash::Apache::SlashVirtualUser", "", }; static mod_perl_cmd_info cmd_info_SlashSetVar = { "Slash::Apache::SlashSetVar", "", }; static mod_perl_cmd_info cmd_info_SlashSetForm = { "Slash::Apache::SlashSetForm", "", }; static mod_perl_cmd_info cmd_info_SlashCompileTemplates = { "Slash::Apache::SlashCompileTemplates", "", }; static command_rec mod_cmds[] = { { "SlashVirtualUser", perl_cmd_perl_TAKE1, (void*)&cmd_info_SlashVirtualUser, OR_ALL, TAKE1, "Takes a DBIx::Password virtual name" }, { "SlashSetVar", perl_cmd_perl_TAKE2, (void*)&cmd_info_SlashSetVar, OR_ALL, TAKE2, "Takes a key and a value that will override the var values in the DB" }, { "SlashSetForm", perl_cmd_perl_TAKE2, (void*)&cmd_info_SlashSetForm, OR_ALL, TAKE2, "Takes a key and a value that will be applied to each form object" }, { "SlashCompileTemplates", perl_cmd_perl_FLAG, (void*)&cmd_info_SlashCompileTemplates, OR_ALL, FLAG, "Turn precompiling templates on or off" }, { NULL } }; module MODULE_VAR_EXPORT XS_Slash__Apache = { STANDARD_MODULE_STUFF, NULL, /* module initializer */ create_dir_config_sv, /* per-directory config creator */ NULL, /* 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 "Slash/Apache.pm" static void remove_module_cleanup(void *data) { if (find_linked_module("Slash::Apache")) { /* need to remove the module so module index is reset */ remove_module(&XS_Slash__Apache); } 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("Slash::Apache", FALSE)); } } } #ifndef PERL_UNUSED_VAR # define PERL_UNUSED_VAR(var) if (0) var = var #endif #line 122 "Apache.c" XS(XS_Slash__Apache_END); /* prototype to pass -Wmissing-prototypes */ XS(XS_Slash__Apache_END) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif if (items != 0) Perl_croak(aTHX_ "Usage: %s(%s)", "Slash::Apache::END", ""); PERL_UNUSED_VAR(cv); /* -W */ { #line 123 "Apache.xs" remove_module_cleanup(NULL); #line 138 "Apache.c" } XSRETURN_EMPTY; } #ifdef __cplusplus extern "C" #endif XS(boot_Slash__Apache); /* prototype to pass -Wmissing-prototypes */ XS(boot_Slash__Apache) { #ifdef dVAR dVAR; dXSARGS; #else dXSARGS; #endif char* file = __FILE__; PERL_UNUSED_VAR(cv); /* -W */ PERL_UNUSED_VAR(items); /* -W */ XS_VERSION_BOOTCHECK ; newXS("Slash::Apache::END", XS_Slash__Apache_END, file); /* Initialisation Section */ #line 113 "Apache.xs" XS_Slash__Apache.name = "Slash::Apache"; add_module(&XS_Slash__Apache); stash_mod_pointer("Slash::Apache", &XS_Slash__Apache); register_cleanup(perl_get_startup_pool(), (void *)1, remove_module_cleanup, null_cleanup); #line 171 "Apache.c" /* End of Initialisation Section */ XSRETURN_YES; }