/* Copyright (c) 2008-2009 Gluster, Inc. This file is part of GlusterFS. GlusterFS is free software; you can redistribute it and/or modify it under the terms of the GNU Affero General Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. GlusterFS is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for more details. You should have received a copy of the GNU Affero General Public License along with this program. If not, see . */ #ifndef CORE_PRIVATE #define CORE_PRIVATE #endif #ifndef NO_CONTENT_TYPE #define NO_CONTENT_TYPE "none" #endif #define BYTERANGE_FMT "%" APR_OFF_T_FMT "-%" APR_OFF_T_FMT "/%" APR_OFF_T_FMT #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #define GLUSTERFS_INVALID_LOGLEVEL "mod_glfs: Unrecognized log-level \"%s\", "\ " possible values are \"DEBUG|WARNING|"\ "ERROR|CRITICAL|NONE\"\n" #define GLUSTERFS_HANDLER "glusterfs-handler" #define GLUSTERFS_CHUNK_SIZE 131072 static char c_by_encoding, c_by_type, c_by_path; #define BY_ENCODING &c_by_encoding #define BY_TYPE &c_by_type #define BY_PATH &c_by_path module AP_MODULE_DECLARE_DATA glusterfs_module; extern module core_module; #define NO_OPTIONS (1 << 0) /* Indexing options */ #define ICONS_ARE_LINKS (1 << 1) #define SCAN_HTML_TITLES (1 << 2) #define SUPPRESS_ICON (1 << 3) #define SUPPRESS_LAST_MOD (1 << 4) #define SUPPRESS_SIZE (1 << 5) #define SUPPRESS_DESC (1 << 6) #define SUPPRESS_PREAMBLE (1 << 7) #define SUPPRESS_COLSORT (1 << 8) #define SUPPRESS_RULES (1 << 9) #define FOLDERS_FIRST (1 << 10) #define VERSION_SORT (1 << 11) #define TRACK_MODIFIED (1 << 12) #define FANCY_INDEXING (1 << 13) #define TABLE_INDEXING (1 << 14) #define IGNORE_CLIENT (1 << 15) #define IGNORE_CASE (1 << 16) #define EMIT_XHTML (1 << 17) #define SHOW_FORBIDDEN (1 << 18) #define K_NOADJUST 0 #define K_ADJUST 1 #define K_UNSET 2 /* * Define keys for sorting. */ #define K_NAME 'N' /* Sort by file name (default) */ #define K_LAST_MOD 'M' /* Last modification date */ #define K_SIZE 'S' /* Size (absolute, not as displayed) */ #define K_DESC 'D' /* Description */ #define K_VALID "NMSD" /* String containing _all_ valid K_ opts */ #define D_ASCENDING 'A' #define D_DESCENDING 'D' #define D_VALID "AD" /* String containing _all_ valid D_ opts */ /* * These are the dimensions of the default icons supplied with Apache. */ #define DEFAULT_ICON_WIDTH 20 #define DEFAULT_ICON_HEIGHT 22 /* * Other default dimensions. */ #define DEFAULT_NAME_WIDTH 23 #define DEFAULT_DESC_WIDTH 23 struct mod_glfs_ai_item { char *type; char *apply_to; char *apply_path; char *data; }; typedef struct mod_glfs_ai_desc_t { char *pattern; char *description; int full_path; int wildcards; } mod_glfs_ai_desc_t; typedef enum { SLASH_OFF = 0, SLASH_ON, SLASH_UNSET } mod_glfs_dir_slash_cfg; /* static ap_filter_rec_t *mod_glfs_output_filter_handle; */ /*TODO: verify error returns to server core */ typedef struct glusterfs_dir_config { char *logfile; char *loglevel; char *specfile; char *mount_dir; char *buf; size_t xattr_file_size; uint32_t cache_timeout; /* mod_dir options */ apr_array_header_t *index_names; mod_glfs_dir_slash_cfg do_slash; /* autoindex options */ char *default_icon; char *style_sheet; apr_int32_t opts; apr_int32_t incremented_opts; apr_int32_t decremented_opts; int name_width; int name_adjust; int desc_width; int desc_adjust; int icon_width; int icon_height; char default_keyid; char default_direction; apr_array_header_t *icon_list; apr_array_header_t *alt_list; apr_array_header_t *desc_list; apr_array_header_t *ign_list; apr_array_header_t *hdr_list; apr_array_header_t *rdme_list; char *ctype; char *charset; } glusterfs_dir_config_t; typedef struct glusterfs_async_local { int op_ret; int op_errno; char async_read_complete; off_t length; off_t read_bytes; glusterfs_iobuf_t *buf; request_rec *request; pthread_mutex_t lock; pthread_cond_t cond; }glusterfs_async_local_t; #define GLUSTERFS_CMD_PERMS ACCESS_CONF static glusterfs_dir_config_t * mod_glfs_dconfig (request_rec *r) { glusterfs_dir_config_t *dir_config = NULL; if (r->per_dir_config != NULL) { dir_config = ap_get_module_config (r->per_dir_config, &glusterfs_module); } return dir_config; } static const char * cmd_add_xattr_file_size (cmd_parms *cmd, void *dummy, const char *arg) { glusterfs_dir_config_t *dir_config = dummy; dir_config->xattr_file_size = atoi (arg); return NULL; } static const char * cmd_set_cache_timeout (cmd_parms *cmd, void *dummy, const char *arg) { glusterfs_dir_config_t *dir_config = dummy; dir_config->cache_timeout = atoi (arg); return NULL; } static const char * cmd_set_loglevel (cmd_parms *cmd, void *dummy, const char *arg) { glusterfs_dir_config_t *dir_config = dummy; char *error = NULL; if (strncasecmp (arg, "DEBUG", strlen ("DEBUG")) && strncasecmp (arg, "WARNING", strlen ("WARNING")) && strncasecmp (arg, "CRITICAL", strlen ("CRITICAL")) && strncasecmp (arg, "NONE", strlen ("NONE")) && strncasecmp (arg, "ERROR", strlen ("ERROR"))) error = GLUSTERFS_INVALID_LOGLEVEL; else dir_config->loglevel = apr_pstrdup (cmd->pool, arg); return error; } static const char * cmd_add_logfile (cmd_parms *cmd, void *dummy, const char *arg) { glusterfs_dir_config_t *dir_config = dummy; dir_config->logfile = apr_pstrdup (cmd->pool, arg); return NULL; } static const char * cmd_add_volume_specfile (cmd_parms *cmd, void *dummy, const char *arg) { glusterfs_dir_config_t *dir_config = dummy; dir_config->specfile = apr_pstrdup (cmd->pool, arg); return NULL; } #define WILDCARDS_REQUIRED 0 static const char * cmd_add_desc (cmd_parms *cmd, void *d, const char *desc, const char *to) { glusterfs_dir_config_t *dcfg = NULL; mod_glfs_ai_desc_t *desc_entry = NULL; char *prefix = ""; dcfg = (glusterfs_dir_config_t *) d; desc_entry = (mod_glfs_ai_desc_t *) apr_array_push(dcfg->desc_list); desc_entry->full_path = (ap_strchr_c(to, '/') == NULL) ? 0 : 1; desc_entry->wildcards = (WILDCARDS_REQUIRED || desc_entry->full_path || apr_fnmatch_test(to)); if (desc_entry->wildcards) { prefix = desc_entry->full_path ? "*/" : "*"; desc_entry->pattern = apr_pstrcat(dcfg->desc_list->pool, prefix, to, "*", NULL); } else { desc_entry->pattern = apr_pstrdup(dcfg->desc_list->pool, to); } desc_entry->description = apr_pstrdup(dcfg->desc_list->pool, desc); return NULL; } static void push_item(apr_array_header_t *arr, char *type, const char *to, const char *path, const char *data) { struct mod_glfs_ai_item *p = NULL; p = (struct mod_glfs_ai_item *) apr_array_push(arr); if (!to) { to = ""; } if (!path) { path = ""; } p->type = type; p->data = data ? apr_pstrdup(arr->pool, data) : NULL; p->apply_path = apr_pstrcat(arr->pool, path, "*", NULL); if ((type == BY_PATH) && (!ap_is_matchexp(to))) { p->apply_to = apr_pstrcat(arr->pool, "*", to, NULL); } else if (to) { p->apply_to = apr_pstrdup(arr->pool, to); } else { p->apply_to = NULL; } } static const char * cmd_add_ignore (cmd_parms *cmd, void *d, const char *ext) { push_item(((glusterfs_dir_config_t *) d)->ign_list, 0, ext, cmd->path, NULL); return NULL; } static const char * cmd_add_header (cmd_parms *cmd, void *d, const char *name) { push_item(((glusterfs_dir_config_t *) d)->hdr_list, 0, NULL, cmd->path, name); return NULL; } static const char * cmd_add_readme (cmd_parms *cmd, void *d, const char *name) { push_item(((glusterfs_dir_config_t *) d)->rdme_list, 0, NULL, cmd->path, name); return NULL; } static const char * cmd_add_opts (cmd_parms *cmd, void *d, int argc, char *const argv[]) { int i = 0, option = 0; char *w = NULL; apr_int32_t opts; apr_int32_t opts_add; apr_int32_t opts_remove; char action = 0; glusterfs_dir_config_t *d_cfg = (glusterfs_dir_config_t *) d; opts = d_cfg->opts; opts_add = d_cfg->incremented_opts; opts_remove = d_cfg->decremented_opts; for (i = 0; i < argc; i++) { w = argv[i]; if ((*w == '+') || (*w == '-')) { action = *(w++); } else { action = '\0'; } if (!strcasecmp(w, "FancyIndexing")) { option = FANCY_INDEXING; } else if (!strcasecmp(w, "FoldersFirst")) { option = FOLDERS_FIRST; } else if (!strcasecmp(w, "HTMLTable")) { option = TABLE_INDEXING; } else if (!strcasecmp(w, "IconsAreLinks")) { option = ICONS_ARE_LINKS; } else if (!strcasecmp(w, "IgnoreCase")) { option = IGNORE_CASE; } else if (!strcasecmp(w, "IgnoreClient")) { option = IGNORE_CLIENT; } else if (!strcasecmp(w, "ScanHTMLTitles")) { option = SCAN_HTML_TITLES; } else if (!strcasecmp(w, "SuppressColumnSorting")) { option = SUPPRESS_COLSORT; } else if (!strcasecmp(w, "SuppressDescription")) { option = SUPPRESS_DESC; } else if (!strcasecmp(w, "SuppressHTMLPreamble")) { option = SUPPRESS_PREAMBLE; } else if (!strcasecmp(w, "SuppressIcon")) { option = SUPPRESS_ICON; } else if (!strcasecmp(w, "SuppressLastModified")) { option = SUPPRESS_LAST_MOD; } else if (!strcasecmp(w, "SuppressSize")) { option = SUPPRESS_SIZE; } else if (!strcasecmp(w, "SuppressRules")) { option = SUPPRESS_RULES; } else if (!strcasecmp(w, "TrackModified")) { option = TRACK_MODIFIED; } else if (!strcasecmp(w, "VersionSort")) { option = VERSION_SORT; } else if (!strcasecmp(w, "XHTML")) { option = EMIT_XHTML; } else if (!strcasecmp(w, "ShowForbidden")) { option = SHOW_FORBIDDEN; } else if (!strcasecmp(w, "None")) { if (action != '\0') { return "Cannot combine '+' or '-' with 'None' " "keyword"; } opts = NO_OPTIONS; opts_add = 0; opts_remove = 0; } else if (!strcasecmp(w, "IconWidth")) { if (action != '-') { d_cfg->icon_width = DEFAULT_ICON_WIDTH; } else { d_cfg->icon_width = 0; } } else if (!strncasecmp(w, "IconWidth=", 10)) { if (action == '-') { return "Cannot combine '-' with IconWidth=n"; } d_cfg->icon_width = atoi(&w[10]); } else if (!strcasecmp(w, "IconHeight")) { if (action != '-') { d_cfg->icon_height = DEFAULT_ICON_HEIGHT; } else { d_cfg->icon_height = 0; } } else if (!strncasecmp(w, "IconHeight=", 11)) { if (action == '-') { return "Cannot combine '-' with IconHeight=n"; } d_cfg->icon_height = atoi(&w[11]); } else if (!strcasecmp(w, "NameWidth")) { if (action != '-') { return "NameWidth with no value may only appear" " as " "'-NameWidth'"; } d_cfg->name_width = DEFAULT_NAME_WIDTH; d_cfg->name_adjust = K_NOADJUST; } else if (!strncasecmp(w, "NameWidth=", 10)) { if (action == '-') { return "Cannot combine '-' with NameWidth=n"; } if (w[10] == '*') { d_cfg->name_adjust = K_ADJUST; } else { int width = atoi(&w[10]); if (width && (width < 5)) { return "NameWidth value must be greater" " than 5"; } d_cfg->name_width = width; d_cfg->name_adjust = K_NOADJUST; } } else if (!strcasecmp(w, "DescriptionWidth")) { if (action != '-') { return "DescriptionWidth with no value may only" " appear as " "'-DescriptionWidth'"; } d_cfg->desc_width = DEFAULT_DESC_WIDTH; d_cfg->desc_adjust = K_NOADJUST; } else if (!strncasecmp(w, "DescriptionWidth=", 17)) { if (action == '-') { return "Cannot combine '-' with " "DescriptionWidth=n"; } if (w[17] == '*') { d_cfg->desc_adjust = K_ADJUST; } else { int width = atoi(&w[17]); if (width && (width < 12)) { return "DescriptionWidth value must be " "greater than 12"; } d_cfg->desc_width = width; d_cfg->desc_adjust = K_NOADJUST; } } else if (!strncasecmp(w, "Type=", 5)) { d_cfg->ctype = apr_pstrdup(cmd->pool, &w[5]); } else if (!strncasecmp(w, "Charset=", 8)) { d_cfg->charset = apr_pstrdup(cmd->pool, &w[8]); } else { return "Invalid directory indexing option"; } if (action == '\0') { opts |= option; opts_add = 0; opts_remove = 0; } else if (action == '+') { opts_add |= option; opts_remove &= ~option; } else { opts_remove |= option; opts_add &= ~option; } } if ((opts & NO_OPTIONS) && (opts & ~NO_OPTIONS)) { return "Cannot combine other IndexOptions keywords with 'None'"; } d_cfg->incremented_opts = opts_add; d_cfg->decremented_opts = opts_remove; d_cfg->opts = opts; return NULL; } static const char * cmd_set_default_order(cmd_parms *cmd, void *m, const char *direction, const char *key) { glusterfs_dir_config_t *d_cfg = (glusterfs_dir_config_t *) m; if (!strcasecmp(direction, "Ascending")) { d_cfg->default_direction = D_ASCENDING; } else if (!strcasecmp(direction, "Descending")) { d_cfg->default_direction = D_DESCENDING; } else { return "First keyword must be 'Ascending' or 'Descending'"; } if (!strcasecmp(key, "Name")) { d_cfg->default_keyid = K_NAME; } else if (!strcasecmp(key, "Date")) { d_cfg->default_keyid = K_LAST_MOD; } else if (!strcasecmp(key, "Size")) { d_cfg->default_keyid = K_SIZE; } else if (!strcasecmp(key, "Description")) { d_cfg->default_keyid = K_DESC; } else { return "Second keyword must be 'Name', 'Date', 'Size', or " "'Description'"; } return NULL; } static char c_by_encoding, c_by_type, c_by_path; #define BY_ENCODING &c_by_encoding #define BY_TYPE &c_by_type #define BY_PATH &c_by_path /* * This routine puts the standard HTML header at the top of the index page. * We include the DOCTYPE because we may be using features therefrom (i.e., * HEIGHT and WIDTH attributes on the icons if we're FancyIndexing). */ static void emit_preamble(request_rec *r, int xhtml, const char *title) { glusterfs_dir_config_t *d; d = (glusterfs_dir_config_t *) ap_get_module_config(r->per_dir_config, &glusterfs_module); if (xhtml) { ap_rvputs(r, DOCTYPE_XHTML_1_0T, "\n" " \n Index of ", title, "\n", NULL); } else { ap_rvputs(r, DOCTYPE_HTML_3_2, "\n \n" " Index of ", title, "\n", NULL); } if (d->style_sheet != NULL) { ap_rvputs(r, " style_sheet, "\" type=\"text/css\"", xhtml ? " />\n" : ">\n", NULL); } ap_rvputs(r, " \n \n", NULL); } static const char *cmd_add_alt(cmd_parms *cmd, void *d, const char *alt, const char *to) { if (cmd->info == BY_PATH) { if (!strcmp(to, "**DIRECTORY**")) { to = "^^DIRECTORY^^"; } } if (cmd->info == BY_ENCODING) { char *tmp = apr_pstrdup(cmd->pool, to); ap_str_tolower(tmp); to = tmp; } push_item(((glusterfs_dir_config_t *) d)->alt_list, cmd->info, to, cmd->path, alt); return NULL; } static const char *cmd_add_icon(cmd_parms *cmd, void *d, const char *icon, const char *to) { char *iconbak = apr_pstrdup(cmd->pool, icon); char *alt = NULL, *cl = NULL, *tmp = NULL; if (icon[0] == '(') { cl = strchr(iconbak, ')'); if (cl == NULL) { return "missing closing paren"; } alt = ap_getword_nc(cmd->pool, &iconbak, ','); *cl = '\0'; /* Lose closing paren */ cmd_add_alt(cmd, d, &alt[1], to); } if (cmd->info == BY_PATH) { if (!strcmp(to, "**DIRECTORY**")) { to = "^^DIRECTORY^^"; } } if (cmd->info == BY_ENCODING) { tmp = apr_pstrdup(cmd->pool, to); ap_str_tolower(tmp); to = tmp; } push_item(((glusterfs_dir_config_t *) d)->icon_list, cmd->info, to, cmd->path, iconbak); return NULL; } static void * mod_glfs_create_dir_config(apr_pool_t *p, char *dirspec) { glusterfs_dir_config_t *dir_config = NULL; dir_config = (glusterfs_dir_config_t *) apr_pcalloc(p, sizeof(*dir_config)); dir_config->mount_dir = dirspec; dir_config->logfile = dir_config->specfile = (char *)0; dir_config->loglevel = "warning"; dir_config->cache_timeout = 0; dir_config->buf = NULL; /* mod_dir options init */ dir_config->index_names = NULL; dir_config->do_slash = SLASH_UNSET; /* autoindex options init */ dir_config->icon_width = 0; dir_config->icon_height = 0; dir_config->name_width = DEFAULT_NAME_WIDTH; dir_config->name_adjust = K_UNSET; dir_config->desc_width = DEFAULT_DESC_WIDTH; dir_config->desc_adjust = K_UNSET; dir_config->icon_list = apr_array_make(p, 4, sizeof(struct mod_glfs_ai_item)); dir_config->alt_list = apr_array_make(p, 4, sizeof(struct mod_glfs_ai_item)); dir_config->desc_list = apr_array_make(p, 4, sizeof(mod_glfs_ai_desc_t)); dir_config->ign_list = apr_array_make(p, 4, sizeof(struct mod_glfs_ai_item)); dir_config->hdr_list = apr_array_make(p, 4, sizeof(struct mod_glfs_ai_item)); dir_config->rdme_list = apr_array_make(p, 4, sizeof(struct mod_glfs_ai_item)); dir_config->opts = 0; dir_config->incremented_opts = 0; dir_config->decremented_opts = 0; dir_config->default_keyid = '\0'; dir_config->default_direction = '\0'; return (void *) dir_config; } static void * mod_glfs_merge_dir_config(apr_pool_t *p, void *parent_conf, void *newloc_conf) { glusterfs_dir_config_t *new = NULL; glusterfs_dir_config_t *add = NULL; glusterfs_dir_config_t *base = NULL; new = (glusterfs_dir_config_t *) apr_pcalloc(p, sizeof(glusterfs_dir_config_t)); add = newloc_conf; base = parent_conf; if (add->logfile) new->logfile = apr_pstrdup (p, add->logfile); if (add->loglevel) new->loglevel = apr_pstrdup (p, add->loglevel); if (add->specfile) new->specfile = apr_pstrdup (p, add->specfile); if (add->mount_dir) new->mount_dir = apr_pstrdup (p, add->mount_dir); new->xattr_file_size = add->xattr_file_size; new->cache_timeout = add->cache_timeout; new->buf = add->buf; /* mod_dir */ new->index_names = add->index_names ? add->index_names : base->index_names; new->do_slash = (add->do_slash == SLASH_UNSET) ? base->do_slash : add->do_slash; /* auto index */ new->default_icon = add->default_icon ? add->default_icon : base->default_icon; new->style_sheet = add->style_sheet ? add->style_sheet : base->style_sheet; new->icon_height = add->icon_height ? add->icon_height : base->icon_height; new->icon_width = add->icon_width ? add->icon_width : base->icon_width; new->ctype = add->ctype ? add->ctype : base->ctype; new->charset = add->charset ? add->charset : base->charset; new->alt_list = apr_array_append(p, add->alt_list, base->alt_list); new->ign_list = apr_array_append(p, add->ign_list, base->ign_list); new->hdr_list = apr_array_append(p, add->hdr_list, base->hdr_list); new->desc_list = apr_array_append(p, add->desc_list, base->desc_list); new->icon_list = apr_array_append(p, add->icon_list, base->icon_list); new->rdme_list = apr_array_append(p, add->rdme_list, base->rdme_list); if (add->opts & NO_OPTIONS) { /* * If the current directory says 'no options' then we also * clear any incremental mods from being inheritable further down. */ new->opts = NO_OPTIONS; new->incremented_opts = 0; new->decremented_opts = 0; } else { /* * If there were any nonincremental options selected for * this directory, they dominate and we don't inherit *anything.* * Contrariwise, we *do* inherit if the only settings here are * incremental ones. */ if (add->opts == 0) { new->incremented_opts = (base->incremented_opts | add->incremented_opts) & ~add->decremented_opts; new->decremented_opts = (base->decremented_opts | add->decremented_opts); /* * We may have incremental settings, so make sure we * don't inadvertently inherit an IndexOptions None * from above. */ new->opts = (base->opts & ~NO_OPTIONS); } else { /* * There are local nonincremental settings, which clear * all inheritance from above. They *are* the new * base settings. */ new->opts = add->opts;; } /* * We're guaranteed that there'll be no overlap between * the add-options and the remove-options. */ new->opts |= new->incremented_opts; new->opts &= ~new->decremented_opts; } /* * Inherit the NameWidth settings if there aren't any specific to * the new location; otherwise we'll end up using the defaults set * in the config-rec creation routine. */ if (add->name_adjust == K_UNSET) { new->name_width = base->name_width; new->name_adjust = base->name_adjust; } else { new->name_width = add->name_width; new->name_adjust = add->name_adjust; } /* * Likewise for DescriptionWidth. */ if (add->desc_adjust == K_UNSET) { new->desc_width = base->desc_width; new->desc_adjust = base->desc_adjust; } else { new->desc_width = add->desc_width; new->desc_adjust = add->desc_adjust; } new->default_keyid = add->default_keyid ? add->default_keyid : base->default_keyid; new->default_direction = add->default_direction ? add->default_direction : base->default_direction; return (void *) new; } static void mod_glfs_child_init(apr_pool_t *p, server_rec *s) { int i = 0, num_sec = 0, ret = 0; core_server_config *sconf = NULL; ap_conf_vector_t **sec_ent = NULL; glusterfs_dir_config_t *dir_config = NULL; glusterfs_init_params_t ctx = {0, }; sconf = (core_server_config *) ap_get_module_config (s->module_config, &core_module); sec_ent = (ap_conf_vector_t **) sconf->sec_url->elts; num_sec = sconf->sec_url->nelts; for (i = 0; i < num_sec; i++) { dir_config = ap_get_module_config (sec_ent[i], &glusterfs_module); if (dir_config) { memset (&ctx, 0, sizeof (ctx)); ctx.logfile = dir_config->logfile; ctx.loglevel = dir_config->loglevel; ctx.lookup_timeout = dir_config->cache_timeout; ctx.stat_timeout = dir_config->cache_timeout; ctx.specfile = dir_config->specfile; ret = glusterfs_mount (dir_config->mount_dir, &ctx); if (ret != 0) { ap_log_error(APLOG_MARK, APLOG_ERR, APR_EGENERAL, s, "mod_glfs_child_init: " "glusterfs_init failed, check " "glusterfs logfile %s for more " "details", dir_config->logfile); } } dir_config = NULL; } } static void mod_glfs_child_exit(server_rec *s, apr_pool_t *p) { int i = 0, num_sec = 0; core_server_config *sconf = NULL; ap_conf_vector_t **sec_ent = NULL; glusterfs_dir_config_t *dir_config = NULL; glusterfs_init_params_t ctx = {0, }; sconf = ap_get_module_config(s->module_config, &core_module); sec_ent = (ap_conf_vector_t **) sconf->sec_url->elts; num_sec = sconf->sec_url->nelts; for (i = 0; i < num_sec; i++) { dir_config = ap_get_module_config (sec_ent[i], &glusterfs_module); if (dir_config) { glusterfs_umount (dir_config->mount_dir); } } } static apr_filetype_e filetype_from_mode(mode_t mode) { apr_filetype_e type = APR_NOFILE; if (S_ISREG(mode)) type = APR_REG; else if (S_ISDIR(mode)) type = APR_DIR; else if (S_ISCHR(mode)) type = APR_CHR; else if (S_ISBLK(mode)) type = APR_BLK; else if (S_ISFIFO(mode)) type = APR_PIPE; else if (S_ISLNK(mode)) type = APR_LNK; else if (S_ISSOCK(mode)) type = APR_SOCK; else type = APR_UNKFILE; return type; } static void fill_out_finfo(apr_finfo_t *finfo, struct stat *info, apr_int32_t wanted) { finfo->valid = APR_FINFO_MIN | APR_FINFO_IDENT | APR_FINFO_NLINK | APR_FINFO_OWNER | APR_FINFO_PROT; finfo->protection = apr_unix_mode2perms(info->st_mode); finfo->filetype = filetype_from_mode(info->st_mode); finfo->user = info->st_uid; finfo->group = info->st_gid; finfo->size = info->st_size; finfo->device = info->st_dev; finfo->nlink = info->st_nlink; /* Check for overflow if storing a 64-bit st_ino in a 32-bit * apr_ino_t for LFS builds: */ if (sizeof(apr_ino_t) >= sizeof(info->st_ino) || (apr_ino_t)info->st_ino == info->st_ino) { finfo->inode = info->st_ino; } else { finfo->valid &= ~APR_FINFO_INODE; } apr_time_ansi_put(&finfo->atime, info->st_atime); #ifdef HAVE_STRUCT_STAT_ST_ATIM_TV_NSEC finfo->atime += info->st_atim.tv_nsec / APR_TIME_C(1000); #elif defined(HAVE_STRUCT_STAT_ST_ATIMENSEC) finfo->atime += info->st_atimensec / APR_TIME_C(1000); #elif defined(HAVE_STRUCT_STAT_ST_ATIME_N) finfo->ctime += info->st_atime_n / APR_TIME_C(1000); #endif apr_time_ansi_put(&finfo->mtime, info->st_mtime); #ifdef HAVE_STRUCT_STAT_ST_MTIM_TV_NSEC finfo->mtime += info->st_mtim.tv_nsec / APR_TIME_C(1000); #elif defined(HAVE_STRUCT_STAT_ST_MTIMENSEC) finfo->mtime += info->st_mtimensec / APR_TIME_C(1000); #elif defined(HAVE_STRUCT_STAT_ST_MTIME_N) finfo->ctime += info->st_mtime_n / APR_TIME_C(1000); #endif apr_time_ansi_put(&finfo->ctime, info->st_ctime); #ifdef HAVE_STRUCT_STAT_ST_CTIM_TV_NSEC finfo->ctime += info->st_ctim.tv_nsec / APR_TIME_C(1000); #elif defined(HAVE_STRUCT_STAT_ST_CTIMENSEC) finfo->ctime += info->st_ctimensec / APR_TIME_C(1000); #elif defined(HAVE_STRUCT_STAT_ST_CTIME_N) finfo->ctime += info->st_ctime_n / APR_TIME_C(1000); #endif #ifdef HAVE_STRUCT_STAT_ST_BLOCKS #ifdef DEV_BSIZE finfo->csize = (apr_off_t)info->st_blocks * (apr_off_t)DEV_BSIZE; #else finfo->csize = (apr_off_t)info->st_blocks * (apr_off_t)512; #endif finfo->valid |= APR_FINFO_CSIZE; #endif } static int mod_glfs_map_to_storage(request_rec *r) { glusterfs_dir_config_t *dir_config = NULL, *tmp = NULL; int access_status = 0, ret = 0; char *path = NULL; struct stat st = {0, }; core_server_config *sconf = NULL; ap_conf_vector_t **sec_ent = NULL; int num_sec = 0, i = 0; sconf = (core_server_config *) ap_get_module_config (r->server->module_config, &core_module); sec_ent = (ap_conf_vector_t **) sconf->sec_url->elts; num_sec = sconf->sec_url->nelts; for (i = 0; i < num_sec; i++) { tmp = ap_get_module_config (sec_ent[i], &glusterfs_module); if (tmp && !strncmp (tmp->mount_dir, r->uri, strlen (tmp->mount_dir))) { if (!dir_config || strlen (tmp->mount_dir) > strlen (dir_config->mount_dir)) { dir_config = tmp; } } } if (dir_config && dir_config->mount_dir && !(strncmp (apr_pstrcat (r->pool, dir_config->mount_dir, "/", NULL), r->uri, strlen (dir_config->mount_dir) + 1) && !r->handler)) r->handler = GLUSTERFS_HANDLER; if (!r->handler || (r->handler && strcmp (r->handler, GLUSTERFS_HANDLER))) return DECLINED; path = r->uri; memset (&r->finfo, 0, sizeof (r->finfo)); dir_config->buf = calloc (1, dir_config->xattr_file_size); if (!dir_config->buf) { return HTTP_INTERNAL_SERVER_ERROR; } ret = glusterfs_get (path, dir_config->buf, dir_config->xattr_file_size, &st); if (ret == -1 || st.st_size > dir_config->xattr_file_size || S_ISDIR (st.st_mode)) { free (dir_config->buf); dir_config->buf = NULL; if (ret == -1) { int error = HTTP_NOT_FOUND; char *emsg = NULL; if (r->path_info == NULL) { emsg = apr_pstrcat(r->pool, strerror (errno), r->filename, NULL); } else { emsg = apr_pstrcat(r->pool, strerror (errno), r->filename, r->path_info, NULL); } ap_log_rerror(APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, 0, r, "%s", emsg); if (errno != ENOENT) { error = HTTP_INTERNAL_SERVER_ERROR; } return error; } } r->finfo.pool = r->pool; r->finfo.fname = r->filename; fill_out_finfo (&r->finfo, &st, APR_FINFO_MIN | APR_FINFO_IDENT | APR_FINFO_NLINK | APR_FINFO_OWNER | APR_FINFO_PROT); /* allow core module to run directory_walk() and location_walk() */ return DECLINED; } static int mod_glfs_readv_async_cbk (int32_t op_ret, int32_t op_errno, glusterfs_iobuf_t *buf, void *cbk_data) { glusterfs_async_local_t *local = cbk_data; pthread_mutex_lock (&local->lock); { local->async_read_complete = 1; local->buf = buf; local->op_ret = op_ret; local->op_errno = op_errno; pthread_cond_signal (&local->cond); } pthread_mutex_unlock (&local->lock); return 0; } /* use read_async just to avoid memcpy of read buffer in libglusterfsclient */ static int mod_glfs_read_async (request_rec *r, apr_bucket_brigade *bb, glusterfs_file_t fd, apr_off_t offset, apr_off_t length) { glusterfs_async_local_t local = {0, }; off_t end = 0; int nbytes = 0, complete = 0; conn_rec *c = r->connection; apr_bucket *e = NULL; apr_status_t status = APR_SUCCESS; glusterfs_iobuf_t *buf = NULL; if (length == 0) { return 0; } pthread_cond_init (&local.cond, NULL); pthread_mutex_init (&local.lock, NULL); memset (&local, 0, sizeof (local)); local.request = r; if (length > 0) end = offset + length; do { if (length > 0) { nbytes = end - offset; if (nbytes > GLUSTERFS_CHUNK_SIZE) nbytes = GLUSTERFS_CHUNK_SIZE; } else nbytes = GLUSTERFS_CHUNK_SIZE; glusterfs_read_async(fd, nbytes, offset, mod_glfs_readv_async_cbk, (void *)&local); pthread_mutex_lock (&local.lock); { while (!local.async_read_complete) { pthread_cond_wait (&local.cond, &local.lock); } local.async_read_complete = 0; buf = local.buf; if (length < 0) complete = (local.op_ret <= 0); else { local.read_bytes += local.op_ret; complete = ((local.read_bytes == length) || (local.op_ret < 0)); } } pthread_mutex_unlock (&local.lock); if (!bb) { bb = apr_brigade_create (r->pool, c->bucket_alloc); } apr_brigade_writev (bb, NULL, NULL, buf->vector, buf->count); /* * make sure all the data is written out, since we call * glusterfs_free on buf once ap_pass_brigade returns */ e = apr_bucket_flush_create (c->bucket_alloc); APR_BRIGADE_INSERT_TAIL (bb, e); status = ap_pass_brigade (r->output_filters, bb); if (status != APR_SUCCESS) { /* no way to know what type of error occurred */ ap_log_rerror(APLOG_MARK, APLOG_DEBUG, status, r, "mod_glfs_handler: ap_pass_brigade " "returned %i", status); complete = 1; local.op_ret = -1; } glusterfs_free (buf); /* * bb has already been cleaned up by core_output_filter, * just being paranoid */ apr_brigade_cleanup (bb); offset += nbytes; } while (!complete); return (local.op_ret < 0 ? HTTP_INTERNAL_SERVER_ERROR : OK); } static int parse_byterange(char *range, apr_off_t clength, apr_off_t *start, apr_off_t *end) { char *dash = NULL, *errp = NULL; apr_off_t number; dash = strchr(range, '-'); if (!dash) { return 0; } if ((dash == range)) { /* In the form "-5" */ if (apr_strtoff(&number, dash+1, &errp, 10) || *errp) { return 0; } *start = clength - number; *end = clength - 1; } else { *dash++ = '\0'; if (apr_strtoff(&number, range, &errp, 10) || *errp) { return 0; } *start = number; if (*dash) { if (apr_strtoff(&number, dash, &errp, 10) || *errp) { return 0; } *end = number; } else { /* "5-" */ *end = clength - 1; } } if (*start < 0) { *start = 0; } if (*end >= clength) { *end = clength - 1; } if (*start > *end) { return -1; } return (*start > 0 || *end < clength); } static int use_range_x(request_rec *r) { const char *ua = NULL; return (apr_table_get(r->headers_in, "Request-Range") || ((ua = apr_table_get(r->headers_in, "User-Agent")) && ap_strstr_c(ua, "MSIE 3"))); } static int ap_set_byterange(request_rec *r) { const char *range = NULL, *if_range = NULL, *match = NULL, *ct = NULL; int num_ranges = 0; if (r->assbackwards) { return 0; } /* Check for Range request-header (HTTP/1.1) or Request-Range for * backwards-compatibility with second-draft Luotonen/Franks * byte-ranges (e.g. Netscape Navigator 2-3). * * We support this form, with Request-Range, and (farther down) we * send multipart/x-byteranges instead of multipart/byteranges for * Request-Range based requests to work around a bug in Netscape * Navigator 2-3 and MSIE 3. */ if (!(range = apr_table_get(r->headers_in, "Range"))) { range = apr_table_get(r->headers_in, "Request-Range"); } if (!range || strncasecmp(range, "bytes=", 6) || r->status != HTTP_OK) { return 0; } /* is content already a single range? */ if (apr_table_get(r->headers_out, "Content-Range")) { return 0; } /* is content already a multiple range? */ if ((ct = apr_table_get(r->headers_out, "Content-Type")) && (!strncasecmp(ct, "multipart/byteranges", 20) || !strncasecmp(ct, "multipart/x-byteranges", 22))) { return 0; } /* Check the If-Range header for Etag or Date. * Note that this check will return false (as required) if either * of the two etags are weak. */ if ((if_range = apr_table_get(r->headers_in, "If-Range"))) { if (if_range[0] == '"') { if (!(match = apr_table_get(r->headers_out, "Etag")) || (strcmp(if_range, match) != 0)) { return 0; } } else if (!(match = apr_table_get(r->headers_out, "Last-Modified")) || (strcmp(if_range, match) != 0)) { return 0; } } if (!ap_strchr_c(range, ',')) { /* a single range */ num_ranges = 1; } else { /* a multiple range */ num_ranges = 2; } r->status = HTTP_PARTIAL_CONTENT; r->range = range + 6; return num_ranges; } static void mod_glfs_handle_byte_ranges (request_rec *r, glusterfs_file_t fd, int num_ranges) { conn_rec *c = r->connection; char *ts = NULL, *boundary = NULL, *bound_head = NULL; const char *orig_ct = NULL; char *current = NULL, *end = NULL; apr_bucket_brigade *bsend = NULL; apr_bucket *e = NULL; apr_off_t range_start, range_end; apr_status_t rv = APR_SUCCESS; char found = 0; apr_bucket *e2 = NULL, *ec = NULL; orig_ct = ap_make_content_type (r, r->content_type); if (num_ranges > 1) { boundary = apr_psprintf(r->pool, "%" APR_UINT64_T_HEX_FMT "%lx", (apr_uint64_t)r->request_time, (long) getpid()); ap_set_content_type(r, apr_pstrcat(r->pool, "multipart", use_range_x(r) ? "/x-" : "/", "byteranges; boundary=", boundary, NULL)); if (strcasecmp(orig_ct, NO_CONTENT_TYPE)) { bound_head = apr_pstrcat(r->pool, CRLF "--", boundary, CRLF "Content-type: ", orig_ct, CRLF "Content-range: bytes ", NULL); } else { /* if we have no type for the content, do our best */ bound_head = apr_pstrcat(r->pool, CRLF "--", boundary, CRLF "Content-range: bytes ", NULL); } } while ((current = ap_getword(r->pool, &r->range, ',')) && (rv = parse_byterange(current, r->finfo.size, &range_start, &range_end))) { bsend = NULL; if (rv == -1) { continue; } found = 1; /* For single range requests, we must produce Content-Range * header. Otherwise, we need to produce the multipart * boundaries. */ if (num_ranges == 1) { apr_table_setn(r->headers_out, "Content-Range", apr_psprintf(r->pool, "bytes " BYTERANGE_FMT, range_start, range_end, r->finfo.size)); } else { /* this brigade holds what we will be sending */ bsend = apr_brigade_create(r->pool, c->bucket_alloc); e = apr_bucket_pool_create(bound_head, strlen(bound_head), r->pool, c->bucket_alloc); APR_BRIGADE_INSERT_TAIL(bsend, e); ts = apr_psprintf(r->pool, BYTERANGE_FMT CRLF CRLF, range_start, range_end, r->finfo.size); e = apr_bucket_pool_create(ts, strlen(ts), r->pool, c->bucket_alloc); APR_BRIGADE_INSERT_TAIL(bsend, e); } mod_glfs_read_async (r, bsend, fd, range_start, (range_end + 1 - range_start)); } bsend = apr_brigade_create (r->pool, c->bucket_alloc); if (found == 0) { r->status = HTTP_OK; /* bsend is assumed to be empty if we get here. */ e = ap_bucket_error_create(HTTP_RANGE_NOT_SATISFIABLE, NULL, r->pool, c->bucket_alloc); APR_BRIGADE_INSERT_TAIL(bsend, e); e = apr_bucket_eos_create(c->bucket_alloc); APR_BRIGADE_INSERT_TAIL(bsend, e); ap_pass_brigade (r->output_filters, bsend); return; } if (num_ranges > 1) { /* add the final boundary */ end = apr_pstrcat(r->pool, CRLF "--", boundary, "--" CRLF, NULL); // ap_xlate_proto_to_ascii(end, strlen(end)); e = apr_bucket_pool_create(end, strlen(end), r->pool, c->bucket_alloc); APR_BRIGADE_INSERT_TAIL(bsend, e); } ap_pass_brigade (r->output_filters, bsend); } /**************************************************************** * * Looking things up in config entries... */ /* Structure used to hold entries when we're actually building an index */ struct ent { char *name; char *icon; char *alt; char *desc; apr_off_t size; apr_time_t lm; struct ent *next; int ascending, ignore_case, version_sort; char key; int isdir; }; static char *find_item(request_rec *r, apr_array_header_t *list, int path_only) { const char *content_type = NULL; const char *content_encoding = NULL; char *path = NULL; int i = 0; struct mod_glfs_ai_item *items = NULL; struct mod_glfs_ai_item *p = NULL; content_type = ap_field_noparam(r->pool, r->content_type); content_encoding = r->content_encoding; path = r->filename; items = (struct mod_glfs_ai_item *) list->elts; for (i = 0; i < list->nelts; ++i) { p = &items[i]; /* Special cased for ^^DIRECTORY^^ and ^^BLANKICON^^ */ if ((path[0] == '^') || (!ap_strcmp_match(path, p->apply_path))) { if (!*(p->apply_to)) { return p->data; } else if (p->type == BY_PATH || path[0] == '^') { if (!ap_strcmp_match(path, p->apply_to)) { return p->data; } } else if (!path_only) { if (!content_encoding) { if (p->type == BY_TYPE) { if (content_type && !ap_strcasecmp_match(content_type, p->apply_to)) { return p->data; } } } else { if (p->type == BY_ENCODING) { if (!ap_strcasecmp_match(content_encoding, p->apply_to)) { return p->data; } } } } } } return NULL; } #define find_icon(d,p,t) find_item(p,d->icon_list,t) #define find_alt(d,p,t) find_item(p,d->alt_list,t) #define find_header(d,p) find_item(p,d->hdr_list,0) #define find_readme(d,p) find_item(p,d->rdme_list,0) static char *find_default_item(char *bogus_name, apr_array_header_t *list) { request_rec r; /* Bleah. I tried to clean up find_item, and it lead to this bit * of ugliness. Note that the fields initialized are precisely * those that find_item looks at... */ r.filename = bogus_name; r.content_type = r.content_encoding = NULL; return find_item(&r, list, 1); } #define find_default_icon(d,n) find_default_item(n, d->icon_list) #define find_default_alt(d,n) find_default_item(n, d->alt_list) /* * Look through the list of pattern/description pairs and return the first one * if any) that matches the filename in the request. If multiple patterns * match, only the first one is used; since the order in the array is the * same as the order in which directives were processed, earlier matching * directives will dominate. */ #ifdef CASE_BLIND_FILESYSTEM #define MATCH_FLAGS APR_FNM_CASE_BLIND #else #define MATCH_FLAGS 0 #endif static char *find_desc(glusterfs_dir_config_t *dcfg, const char *filename_full) { int i = 0; mod_glfs_ai_desc_t *list = NULL; const char *filename_only = NULL, *filename = NULL; mod_glfs_ai_desc_t *tuple = &list[i]; int found = 0; list = (mod_glfs_ai_desc_t *) dcfg->desc_list->elts; /* * If the filename includes a path, extract just the name itself * for the simple matches. */ if ((filename_only = ap_strrchr_c(filename_full, '/')) == NULL) { filename_only = filename_full; } else { filename_only++; } for (i = 0; i < dcfg->desc_list->nelts; ++i) { /* * Only use the full-path filename if the pattern contains '/'s. */ filename = (tuple->full_path) ? filename_full : filename_only; /* * Make the comparison using the cheapest method; only do * wildcard checking if we must. */ if (tuple->wildcards) { found = (apr_fnmatch(tuple->pattern, filename, MATCH_FLAGS) == 0); } else { found = (ap_strstr_c(filename, tuple->pattern) != NULL); } if (found) { return tuple->description; } } return NULL; } static int ignore_entry(glusterfs_dir_config_t *d, char *path) { apr_array_header_t *list = d->ign_list; struct mod_glfs_ai_item *items = (struct mod_glfs_ai_item *) list->elts; char *tt = NULL, *ap = NULL; int i = 0; struct mod_glfs_ai_item *p = &items[i]; if ((tt = strrchr(path, '/')) == NULL) { tt = path; } else { tt++; } for (i = 0; i < list->nelts; ++i) { p = &items[i]; if ((ap = strrchr(p->apply_to, '/')) == NULL) { ap = p->apply_to; } else { ap++; } #ifndef CASE_BLIND_FILESYSTEM if (!ap_strcmp_match(path, p->apply_path) && !ap_strcmp_match(tt, ap)) { return 1; } #else /* !CASE_BLIND_FILESYSTEM */ /* * On some platforms, the match must be case-blind. This is really * a factor of the filesystem involved, but we can't detect that * reliably - so we have to granularise at the OS level. */ if (!ap_strcasecmp_match(path, p->apply_path) && !ap_strcasecmp_match(tt, ap)) { return 1; } #endif /* !CASE_BLIND_FILESYSTEM */ } return 0; } /***************************************************************** * * Actually generating output */ /* * Elements of the emitted document: * Preamble * Emitted unless SUPPRESS_PREAMBLE is set AND ap_run_sub_req * succeeds for the (content_type == text/html) header file. * Header file * Emitted if found (and able). * H1 tag line * Emitted if a header file is NOT emitted. * Directory stuff * Always emitted. * HR * Emitted if FANCY_INDEXING is set. * Readme file * Emitted if found (and able). * ServerSig * Emitted if ServerSignature is not Off AND a readme file * is NOT emitted. * Postamble * Emitted unless SUPPRESS_PREAMBLE is set AND ap_run_sub_req * succeeds for the (content_type == text/html) readme file. */ /* * emit a plain text file */ static void do_emit_plain(request_rec *r, apr_file_t *f) { char buf[AP_IOBUFSIZE + 1]; int ch = 0; apr_size_t i = 0, c = 0, n = 0; apr_status_t rv = APR_SUCCESS; ap_rputs("
\n", r);
        while (!apr_file_eof(f)) {
                do {
                        n = sizeof(char) * AP_IOBUFSIZE;
                        rv = apr_file_read(f, buf, &n);
                } while (APR_STATUS_IS_EINTR(rv));
                if (n == 0 || rv != APR_SUCCESS) {
                        /* ###: better error here? */
                        break;
                }
                buf[n] = '\0';
                c = 0;
                while (c < n) {
                        for (i = c; i < n; i++) {
                                if (buf[i] == '<' || buf[i] == '>'
                                    || buf[i] == '&') {
                                        break;
                                }
                        }
                        ch = buf[i];
                        buf[i] = '\0';
                        ap_rputs(&buf[c], r);
                        if (ch == '<') {
                                ap_rputs("<", r);
                        }
                        else if (ch == '>') {
                                ap_rputs(">", r);
                        }
                        else if (ch == '&') {
                                ap_rputs("&", r);
                        }
                        c = i + 1;
                }
        }
        ap_rputs("
\n", r); } /* * Handle the preamble through the H1 tag line, inclusive. Locate * the file with a subrequests. Process text/html documents by actually * running the subrequest; text/xxx documents get copied verbatim, * and any other content type is ignored. This means that a non-text * document (such as HEADER.gif) might get multiviewed as the result * instead of a text document, meaning nothing will be displayed, but * oh well. */ static void emit_head(request_rec *r, char *header_fname, int suppress_amble, int emit_xhtml, char *title) { apr_table_t *hdrs = r->headers_in; apr_file_t *f = NULL; request_rec *rr = NULL; int emit_amble = 1; int emit_H1 = 1; const char *r_accept = NULL; const char *r_accept_enc = NULL; /* * If there's a header file, send a subrequest to look for it. If it's * found and html do the subrequest, otherwise handle it */ r_accept = apr_table_get(hdrs, "Accept"); r_accept_enc = apr_table_get(hdrs, "Accept-Encoding"); apr_table_setn(hdrs, "Accept", "text/html, text/plain"); apr_table_unset(hdrs, "Accept-Encoding"); if ((header_fname != NULL) && r->args) { header_fname = apr_pstrcat(r->pool, header_fname, "?", r->args, NULL); } if ((header_fname != NULL) && (rr = ap_sub_req_lookup_uri(header_fname, r, r->output_filters)) && (rr->status == HTTP_OK) && (rr->filename != NULL) && (rr->finfo.filetype == APR_REG)) { /* * Check for the two specific cases we allow: text/html and * text/anything-else. The former is allowed to be processed for * SSIs. */ if (rr->content_type != NULL) { if (!strcasecmp(ap_field_noparam(r->pool, rr->content_type), "text/html")) { ap_filter_t *f = NULL; /* Hope everything will work... */ emit_amble = 0; emit_H1 = 0; if (! suppress_amble) { emit_preamble(r, emit_xhtml, title); } /* This is a hack, but I can't find any better * way to do this. The problem is that we have * already created the sub-request, * but we just inserted the OLD_WRITE filter, * and the sub-request needs to pass its data * through the OLD_WRITE filter, or things go * horribly wrong (missing data, data in * the wrong order, etc). To fix it, if you * create a sub-request and then insert the * OLD_WRITE filter before you run the request, * you need to make sure that the sub-request * data goes through the OLD_WRITE filter. Just * steal this code. The long-term solution is * to remove the ap_r* functions. */ for (f=rr->output_filters; f->frec != ap_subreq_core_filter_handle; f = f->next); f->next = r->output_filters; /* * If there's a problem running the subrequest, * display the preamble if we didn't do it * before -- the header file didn't get displayed. */ if (ap_run_sub_req(rr) != OK) { /* It didn't work */ emit_amble = suppress_amble; emit_H1 = 1; } } else if (!strncasecmp("text/", rr->content_type, 5)) { /* * If we can open the file, prefix it with the * preamble regardless; since we'll be sending * a
 block around the file's contents, 
                                 * any HTML header it had won't end up
                                 * where it belongs.
                                 */
                                if (apr_file_open(&f, rr->filename, APR_READ,
                                                  APR_OS_DEFAULT, r->pool) 
                                    == APR_SUCCESS) {
                                        emit_preamble(r, emit_xhtml, title);
                                        emit_amble = 0;
                                        do_emit_plain(r, f);
                                        apr_file_close(f);
                                        emit_H1 = 0;
                                }
                        }
                }
        }

        if (r_accept) {
                apr_table_setn(hdrs, "Accept", r_accept);
        }
        else {
                apr_table_unset(hdrs, "Accept");
        }

        if (r_accept_enc) {
                apr_table_setn(hdrs, "Accept-Encoding", r_accept_enc);
        }

        if (emit_amble) {
                emit_preamble(r, emit_xhtml, title);
        }
        if (emit_H1) {
                ap_rvputs(r, "

Index of ", title, "

\n", NULL); } if (rr != NULL) { ap_destroy_sub_req(rr); } } /* * Handle the Readme file through the postamble, inclusive. Locate * the file with a subrequests. Process text/html documents by actually * running the subrequest; text/xxx documents get copied verbatim, * and any other content type is ignored. This means that a non-text * document (such as FOOTER.gif) might get multiviewed as the result * instead of a text document, meaning nothing will be displayed, but * oh well. */ static void emit_tail(request_rec *r, char *readme_fname, int suppress_amble) { apr_file_t *f = NULL; request_rec *rr = NULL; int suppress_post = 0, suppress_sig = 0; /* * If there's a readme file, send a subrequest to look for it. If it's * found and a text file, handle it -- otherwise fall through and * pretend there's nothing there. */ if ((readme_fname != NULL) && (rr = ap_sub_req_lookup_uri(readme_fname, r, r->output_filters)) && (rr->status == HTTP_OK) && (rr->filename != NULL) && rr->finfo.filetype == APR_REG) { /* * Check for the two specific cases we allow: text/html and * text/anything-else. The former is allowed to be processed for * SSIs. */ if (rr->content_type != NULL) { if (!strcasecmp(ap_field_noparam(r->pool, rr->content_type), "text/html")) { ap_filter_t *f; for (f=rr->output_filters; f->frec != ap_subreq_core_filter_handle; f = f->next); f->next = r->output_filters; if (ap_run_sub_req(rr) == OK) { /* worked... */ suppress_sig = 1; suppress_post = suppress_amble; } } else if (!strncasecmp("text/", rr->content_type, 5)) { /* * If we can open the file, suppress the signature. */ if (apr_file_open(&f, rr->filename, APR_READ, APR_OS_DEFAULT, r->pool) == APR_SUCCESS) { do_emit_plain(r, f); apr_file_close(f); suppress_sig = 1; } } } } if (!suppress_sig) { ap_rputs(ap_psignature("", r), r); } if (!suppress_post) { ap_rputs("\n", r); } if (rr != NULL) { ap_destroy_sub_req(rr); } } static char *find_title(request_rec *r) { char titlebuf[MAX_STRING_LEN], *find = ""; apr_file_t *thefile = NULL; int x = 0, y = 0, p = 0; apr_size_t n; if (r->status != HTTP_OK) { return NULL; } if ((r->content_type != NULL) && (!strcasecmp(ap_field_noparam(r->pool, r->content_type), "text/html") || !strcmp(r->content_type, INCLUDES_MAGIC_TYPE)) && !r->content_encoding) { if (apr_file_open(&thefile, r->filename, APR_READ, APR_OS_DEFAULT, r->pool) != APR_SUCCESS) { return NULL; } n = sizeof(char) * (MAX_STRING_LEN - 1); apr_file_read(thefile, titlebuf, &n); if (n <= 0) { apr_file_close(thefile); return NULL; } titlebuf[n] = '\0'; for (x = 0, p = 0; titlebuf[x]; x++) { if (apr_tolower(titlebuf[x]) == find[p]) { if (!find[++p]) { if ((p = ap_ind(&titlebuf[++x], '<')) != -1) { titlebuf[x + p] = '\0'; } /* Scan for line breaks for Tanmoy's secretary */ for (y = x; titlebuf[y]; y++) { if ((titlebuf[y] == CR) || (titlebuf[y] == LF)) { if (y == x) { x++; } else { titlebuf[y] = ' '; } } } apr_file_close(thefile); return apr_pstrdup(r->pool, &titlebuf[x]); } } else { p = 0; } } apr_file_close(thefile); } return NULL; } static struct ent *make_parent_entry(apr_int32_t autoindex_opts, glusterfs_dir_config_t *d, request_rec *r, char keyid, char direction) { struct ent *p = NULL; char *testpath = NULL; /* * p->name is now the true parent URI. * testpath is a crafted lie, so that the syntax '/some/..' * (or simply '..')be used to describe 'up' from '/some/' * when processeing IndexIgnore, and Icon|Alt|Desc configs. */ p = (struct ent *) apr_pcalloc(r->pool, sizeof(struct ent)); /* The output has always been to the parent. Don't make ourself * our own parent (worthless cyclical reference). */ if (!(p->name = ap_make_full_path(r->pool, r->uri, "../"))) { return (NULL); } ap_getparents(p->name); if (!*p->name) { return (NULL); } /* IndexIgnore has always compared "/thispath/.." */ testpath = ap_make_full_path(r->pool, r->filename, ".."); if (ignore_entry(d, testpath)) { return (NULL); } p->size = -1; p->lm = -1; p->key = apr_toupper(keyid); p->ascending = (apr_toupper(direction) == D_ASCENDING); p->version_sort = autoindex_opts & VERSION_SORT; if (autoindex_opts & FANCY_INDEXING) { if (!(p->icon = find_default_icon(d, testpath))) { p->icon = find_default_icon(d, "^^DIRECTORY^^"); } if (!(p->alt = find_default_alt(d, testpath))) { if (!(p->alt = find_default_alt(d, "^^DIRECTORY^^"))) { p->alt = "DIR"; } } p->desc = find_desc(d, testpath); } return p; } static struct ent *make_autoindex_entry(const apr_finfo_t *dirent, int autoindex_opts, glusterfs_dir_config_t *d, request_rec *r, char keyid, char direction, const char *pattern) { request_rec *rr = NULL; struct ent *p = NULL; int show_forbidden = 0; /* Dot is ignored, Parent is handled by make_parent_entry() */ if ((dirent->name[0] == '.') && (!dirent->name[1] || ((dirent->name[1] == '.') && !dirent->name[2]))) return (NULL); /* * On some platforms, the match must be case-blind. This is really * a factor of the filesystem involved, but we can't detect that * reliably - so we have to granularise at the OS level. */ if (pattern && (apr_fnmatch(pattern, dirent->name, APR_FNM_NOESCAPE | APR_FNM_PERIOD #ifdef CASE_BLIND_FILESYSTEM | APR_FNM_CASE_BLIND #endif ) != APR_SUCCESS)) { return (NULL); } if (ignore_entry(d, ap_make_full_path(r->pool, r->filename, dirent->name))) { return (NULL); } if (!(rr = ap_sub_req_lookup_dirent(dirent, r, AP_SUBREQ_NO_ARGS, NULL))) { return (NULL); } if((autoindex_opts & SHOW_FORBIDDEN) && (rr->status == HTTP_UNAUTHORIZED || rr->status == HTTP_FORBIDDEN)) { show_forbidden = 1; } if ((rr->finfo.filetype != APR_DIR && rr->finfo.filetype != APR_REG) || !(rr->status == OK || ap_is_HTTP_SUCCESS(rr->status) || ap_is_HTTP_REDIRECT(rr->status) || show_forbidden == 1)) { ap_destroy_sub_req(rr); return (NULL); } p = (struct ent *) apr_pcalloc(r->pool, sizeof(struct ent)); if (dirent->filetype == APR_DIR) { p->name = apr_pstrcat(r->pool, dirent->name, "/", NULL); } else { p->name = apr_pstrdup(r->pool, dirent->name); } p->size = -1; p->icon = NULL; p->alt = NULL; p->desc = NULL; p->lm = -1; p->isdir = 0; p->key = apr_toupper(keyid); p->ascending = (apr_toupper(direction) == D_ASCENDING); p->version_sort = !!(autoindex_opts & VERSION_SORT); p->ignore_case = !!(autoindex_opts & IGNORE_CASE); if (autoindex_opts & (FANCY_INDEXING | TABLE_INDEXING)) { p->lm = rr->finfo.mtime; if (dirent->filetype == APR_DIR) { if (autoindex_opts & FOLDERS_FIRST) { p->isdir = 1; } rr->filename = ap_make_dirstr_parent (rr->pool, rr->filename); /* omit the trailing slash (1.3 compat) */ rr->filename[strlen(rr->filename) - 1] = '\0'; if (!(p->icon = find_icon(d, rr, 1))) { p->icon = find_default_icon(d, "^^DIRECTORY^^"); } if (!(p->alt = find_alt(d, rr, 1))) { if (!(p->alt = find_default_alt(d, "^^DIRECTORY^^"))) { p->alt = "DIR"; } } } else { p->icon = find_icon(d, rr, 0); p->alt = find_alt(d, rr, 0); p->size = rr->finfo.size; } p->desc = find_desc(d, rr->filename); if ((!p->desc) && (autoindex_opts & SCAN_HTML_TITLES)) { p->desc = apr_pstrdup(r->pool, find_title(rr)); } } ap_destroy_sub_req(rr); /* * We don't need to take any special action for the file size key. * If we did, it would go here. */ if (keyid == K_LAST_MOD) { if (p->lm < 0) { p->lm = 0; } } return (p); } static char *terminate_description(glusterfs_dir_config_t *d, char *desc, apr_int32_t autoindex_opts, int desc_width) { int maxsize = desc_width; register int x = 0; /* * If there's no DescriptionWidth in effect, default to the old * behaviour of adjusting the description size depending upon * what else is being displayed. Otherwise, stick with the * setting. */ if (d->desc_adjust == K_UNSET) { if (autoindex_opts & SUPPRESS_ICON) { maxsize += 6; } if (autoindex_opts & SUPPRESS_LAST_MOD) { maxsize += 19; } if (autoindex_opts & SUPPRESS_SIZE) { maxsize += 7; } } for (x = 0; desc[x] && ((maxsize > 0) || (desc[x] == '<')); x++) { if (desc[x] == '<') { while (desc[x] != '>') { if (!desc[x]) { maxsize = 0; break; } ++x; } } else if (desc[x] == '&') { /* entities like ä count as one character */ --maxsize; for ( ; desc[x] != ';'; ++x) { if (desc[x] == '\0') { maxsize = 0; break; } } } else { --maxsize; } } if (!maxsize && desc[x] != '\0') { desc[x - 1] = '>'; /* Grump. */ desc[x] = '\0'; /* Double Grump! */ } return desc; } /* * Emit the anchor for the specified field. If a field is the key for the * current request, the link changes its meaning to reverse the order when * selected again. Non-active fields always start in ascending order. */ static void emit_link(request_rec *r, const char *anchor, char column, char curkey, char curdirection, const char *colargs, int nosort) { char qvalue[9]; if (!nosort) { qvalue[0] = '?'; qvalue[1] = 'C'; qvalue[2] = '='; qvalue[3] = column; qvalue[4] = ';'; qvalue[5] = 'O'; qvalue[6] = '='; /* reverse? */ qvalue[7] = ((curkey == column) && (curdirection == D_ASCENDING)) ? D_DESCENDING : D_ASCENDING; qvalue[8] = '\0'; ap_rvputs(r, "<a href=\"", qvalue, colargs ? colargs : "", "\">", anchor, "</a>", NULL); } else { ap_rputs(anchor, r); } } static void output_directories(struct ent **ar, int n, glusterfs_dir_config_t *d, request_rec *r, apr_int32_t autoindex_opts, char keyid, char direction, const char *colargs) { int x = 0; apr_size_t rv = APR_SUCCESS; char *name = NULL, *tp = NULL; int static_columns = 0; apr_pool_t *scratch = NULL; int name_width = 0, desc_width = 0, cols = 0; char *name_scratch = NULL, *pad_scratch = NULL, *breakrow = ""; char *anchor = NULL, *t = NULL, *t2 = NULL; int nwidth = 0; char time_str[MAX_STRING_LEN]; apr_time_exp_t ts = {0, }; char buf[5]; name = r->uri; static_columns = !!(autoindex_opts & SUPPRESS_COLSORT); apr_pool_create(&scratch, r->pool); if (name[0] == '\0') { name = "/"; } name_width = d->name_width; desc_width = d->desc_width; if ((autoindex_opts & (FANCY_INDEXING | TABLE_INDEXING)) == FANCY_INDEXING) { if (d->name_adjust == K_ADJUST) { for (x = 0; x < n; x++) { int t = 0; t = strlen(ar[x]->name); if (t > name_width) { name_width = t; } } } if (d->desc_adjust == K_ADJUST) { for (x = 0; x < n; x++) { if (ar[x]->desc != NULL) { int t = 0; t = strlen(ar[x]->desc); if (t > desc_width) { desc_width = t; } } } } } name_scratch = apr_palloc(r->pool, name_width + 1); pad_scratch = apr_palloc(r->pool, name_width + 1); memset(pad_scratch, ' ', name_width); pad_scratch[name_width] = '\0'; if (autoindex_opts & TABLE_INDEXING) { cols = 1; ap_rputs("<table><tr>", r); if (!(autoindex_opts & SUPPRESS_ICON)) { ap_rputs("<th>", r); if ((tp = find_default_icon(d, "^^BLANKICON^^"))) { ap_rvputs(r, "<img src=\"", ap_escape_html(scratch, tp), "\" alt=\"[ICO]\"", NULL); if (d->icon_width) { ap_rprintf(r, " width=\"%d\"", d->icon_width); } if (d->icon_height) { ap_rprintf(r, " height=\"%d\"", d->icon_height); } if (autoindex_opts & EMIT_XHTML) { ap_rputs(" /", r); } ap_rputs("></th>", r); } else { ap_rputs(" </th>", r); } ++cols; } ap_rputs("<th>", r); emit_link(r, "Name", K_NAME, keyid, direction, colargs, static_columns); if (!(autoindex_opts & SUPPRESS_LAST_MOD)) { ap_rputs("</th><th>", r); emit_link(r, "Last modified", K_LAST_MOD, keyid, direction, colargs, static_columns); ++cols; } if (!(autoindex_opts & SUPPRESS_SIZE)) { ap_rputs("</th><th>", r); emit_link(r, "Size", K_SIZE, keyid, direction, colargs, static_columns); ++cols; } if (!(autoindex_opts & SUPPRESS_DESC)) { ap_rputs("</th><th>", r); emit_link(r, "Description", K_DESC, keyid, direction, colargs, static_columns); ++cols; } if (!(autoindex_opts & SUPPRESS_RULES)) { breakrow = apr_psprintf(r->pool, "<tr><th colspan=\"%d\">" "<hr%s></th></tr>\n", cols, (autoindex_opts & EMIT_XHTML) ? " /" : ""); } ap_rvputs(r, "</th></tr>", breakrow, NULL); } else if (autoindex_opts & FANCY_INDEXING) { ap_rputs("<pre>", r); if (!(autoindex_opts & SUPPRESS_ICON)) { if ((tp = find_default_icon(d, "^^BLANKICON^^"))) { ap_rvputs(r, "<img src=\"", ap_escape_html(scratch, tp), "\" alt=\"Icon \"", NULL); if (d->icon_width) { ap_rprintf(r, " width=\"%d\"", d->icon_width); } if (d->icon_height) { ap_rprintf(r, " height=\"%d\"", d->icon_height); } if (autoindex_opts & EMIT_XHTML) { ap_rputs(" /", r); } ap_rputs("> ", r); } else { ap_rputs(" ", r); } } emit_link(r, "Name", K_NAME, keyid, direction, colargs, static_columns); ap_rputs(pad_scratch + 4, r); /* * Emit the guaranteed-at-least-one-space-between-columns byte. */ ap_rputs(" ", r); if (!(autoindex_opts & SUPPRESS_LAST_MOD)) { emit_link(r, "Last modified", K_LAST_MOD, keyid, direction, colargs, static_columns); ap_rputs(" ", r); } if (!(autoindex_opts & SUPPRESS_SIZE)) { emit_link(r, "Size", K_SIZE, keyid, direction, colargs, static_columns); ap_rputs(" ", r); } if (!(autoindex_opts & SUPPRESS_DESC)) { emit_link(r, "Description", K_DESC, keyid, direction, colargs, static_columns); } if (!(autoindex_opts & SUPPRESS_RULES)) { ap_rputs("<hr", r); if (autoindex_opts & EMIT_XHTML) { ap_rputs(" /", r); } ap_rputs(">", r); } else { ap_rputc('\n', r); } } else { ap_rputs("<ul>", r); } for (x = 0; x < n; x++) { apr_pool_clear(scratch); t = ar[x]->name; anchor = ap_escape_html(scratch, ap_os_escape_path(scratch, t, 0)); if (!x && t[0] == '/') { t2 = "Parent Directory"; } else { t2 = t; } if (autoindex_opts & TABLE_INDEXING) { ap_rputs("<tr>", r); if (!(autoindex_opts & SUPPRESS_ICON)) { ap_rputs("<td valign=\"top\">", r); if (autoindex_opts & ICONS_ARE_LINKS) { ap_rvputs(r, "<a href=\"", anchor, "\">", NULL); } if ((ar[x]->icon) || d->default_icon) { ap_rvputs(r, "<img src=\"", ap_escape_html(scratch, ar[x]->icon ? ar[x]->icon : d->default_icon), "\" alt=\"[", (ar[x]->alt ? ar[x]->alt : " "), "]\"", NULL); if (d->icon_width) { ap_rprintf(r, " width=\"%d\"", d->icon_width); } if (d->icon_height) { ap_rprintf(r, " height=\"%d\"", d->icon_height); } if (autoindex_opts & EMIT_XHTML) { ap_rputs(" /", r); } ap_rputs(">", r); } else { ap_rputs(" ", r); } if (autoindex_opts & ICONS_ARE_LINKS) { ap_rputs("</a></td>", r); } else { ap_rputs("</td>", r); } } if (d->name_adjust == K_ADJUST) { ap_rvputs(r, "<td><a href=\"", anchor, "\">", ap_escape_html(scratch, t2), "</a>", NULL); } else { nwidth = strlen(t2); if (nwidth > name_width) { memcpy(name_scratch, t2, name_width - 3); name_scratch[name_width - 3] = '.'; name_scratch[name_width - 2] = '.'; name_scratch[name_width - 1] = '>'; name_scratch[name_width] = 0; t2 = name_scratch; nwidth = name_width; } ap_rvputs(r, "<td><a href=\"", anchor, "\">", ap_escape_html(scratch, t2), "</a>", pad_scratch + nwidth, NULL); } if (!(autoindex_opts & SUPPRESS_LAST_MOD)) { if (ar[x]->lm != -1) { char time_str[MAX_STRING_LEN]; apr_time_exp_t ts; apr_time_exp_lt(&ts, ar[x]->lm); apr_strftime(time_str, &rv, MAX_STRING_LEN, "</td><td align=\"right\"" ">%d-%b-%Y %H:%M ", &ts); ap_rputs(time_str, r); } else { ap_rputs("</td><td> ", r); } } if (!(autoindex_opts & SUPPRESS_SIZE)) { ap_rvputs(r, "</td><td align=\"right\">", apr_strfsize(ar[x]->size, buf), NULL); } if (!(autoindex_opts & SUPPRESS_DESC)) { if (ar[x]->desc) { if (d->desc_adjust == K_ADJUST) { ap_rvputs(r, "</td><td>", ar[x]->desc, NULL); } else { ap_rvputs(r, "</td><td>", terminate_description(d, ar[x]->desc, autoindex_opts, desc_width), NULL); } } } else { ap_rputs("</td><td> ", r); } ap_rputs("</td></tr>\n", r); } else if (autoindex_opts & FANCY_INDEXING) { if (!(autoindex_opts & SUPPRESS_ICON)) { if (autoindex_opts & ICONS_ARE_LINKS) { ap_rvputs(r, "<a href=\"", anchor, "\">", NULL); } if ((ar[x]->icon) || d->default_icon) { ap_rvputs(r, "<img src=\"", ap_escape_html(scratch, ar[x]->icon ? ar[x]->icon : d->default_icon), "\" alt=\"[", (ar[x]->alt ? ar[x]->alt : " "), "]\"", NULL); if (d->icon_width) { ap_rprintf(r, " width=\"%d\"", d->icon_width); } if (d->icon_height) { ap_rprintf(r, " height=\"%d\"", d->icon_height); } if (autoindex_opts & EMIT_XHTML) { ap_rputs(" /", r); } ap_rputs(">", r); } else { ap_rputs(" ", r); } if (autoindex_opts & ICONS_ARE_LINKS) { ap_rputs("</a> ", r); } else { ap_rputc(' ', r); } } nwidth = strlen(t2); if (nwidth > name_width) { memcpy(name_scratch, t2, name_width - 3); name_scratch[name_width - 3] = '.'; name_scratch[name_width - 2] = '.'; name_scratch[name_width - 1] = '>'; name_scratch[name_width] = 0; t2 = name_scratch; nwidth = name_width; } ap_rvputs(r, "<a href=\"", anchor, "\">", ap_escape_html(scratch, t2), "</a>", pad_scratch + nwidth, NULL); /* * The blank before the storm.. er, before the next * field. */ ap_rputs(" ", r); if (!(autoindex_opts & SUPPRESS_LAST_MOD)) { if (ar[x]->lm != -1) { apr_time_exp_lt(&ts, ar[x]->lm); apr_strftime(time_str, &rv, MAX_STRING_LEN, "%d-%b-%Y %H:%M ", &ts); ap_rputs(time_str, r); } else { /* Length="22-Feb-1998 23:42 " * (see 4 lines above) */ ap_rputs(" ", r); } } if (!(autoindex_opts & SUPPRESS_SIZE)) { ap_rputs(apr_strfsize(ar[x]->size, buf), r); ap_rputs(" ", r); } if (!(autoindex_opts & SUPPRESS_DESC)) { if (ar[x]->desc) { ap_rputs(terminate_description(d, ar[x]->desc, autoindex_opts, desc_width), r); } } ap_rputc('\n', r); } else { ap_rvputs(r, "<li><a href=\"", anchor, "\"> ", ap_escape_html(scratch, t2), "</a></li>\n", NULL); } } if (autoindex_opts & TABLE_INDEXING) { ap_rvputs(r, breakrow, "</table>\n", NULL); } else if (autoindex_opts & FANCY_INDEXING) { if (!(autoindex_opts & SUPPRESS_RULES)) { ap_rputs("<hr", r); if (autoindex_opts & EMIT_XHTML) { ap_rputs(" /", r); } ap_rputs("></pre>\n", r); } else { ap_rputs("</pre>\n", r); } } else { ap_rputs("</ul>\n", r); } } /* * Compare two file entries according to the sort criteria. The return * is essentially a signum function value. */ static int dsortf(struct ent **e1, struct ent **e2) { struct ent *c1 = NULL, *c2 = NULL; int result = 0; /* * First, see if either of the entries is for the parent directory. * If so, that *always* sorts lower than anything else. */ if ((*e1)->name[0] == '/') { return -1; } if ((*e2)->name[0] == '/') { return 1; } /* * Now see if one's a directory and one isn't, if we're set * isdir for FOLDERS_FIRST. */ if ((*e1)->isdir != (*e2)->isdir) { return (*e1)->isdir ? -1 : 1; } /* * All of our comparisons will be of the c1 entry against the c2 one, * so assign them appropriately to take care of the ordering. */ if ((*e1)->ascending) { c1 = *e1; c2 = *e2; } else { c1 = *e2; c2 = *e1; } switch (c1->key) { case K_LAST_MOD: if (c1->lm > c2->lm) { return 1; } else if (c1->lm < c2->lm) { return -1; } break; case K_SIZE: if (c1->size > c2->size) { return 1; } else if (c1->size < c2->size) { return -1; } break; case K_DESC: if (c1->version_sort) { result = apr_strnatcmp(c1->desc ? c1->desc : "", c2->desc ? c2->desc : ""); } else { result = strcmp(c1->desc ? c1->desc : "", c2->desc ? c2->desc : ""); } if (result) { return result; } break; } /* names may identical when treated case-insensitively, * so always fall back on strcmp() flavors to put entries * in deterministic order. This means that 'ABC' and 'abc' * will always appear in the same order, rather than * variably between 'ABC abc' and 'abc ABC' order. */ if (c1->version_sort) { if (c1->ignore_case) { result = apr_strnatcasecmp (c1->name, c2->name); } if (!result) { result = apr_strnatcmp(c1->name, c2->name); } } /* The names may be identical in respects other other than * filename case when strnatcmp is used above, so fall back * to strcmp on conflicts so that fn1.01.zzz and fn1.1.zzz * are also sorted in a deterministic order. */ if (!result && c1->ignore_case) { result = strcasecmp (c1->name, c2->name); } if (!result) { result = strcmp (c1->name, c2->name); } return result; } static int mod_glfs_index_directory (request_rec *r, glusterfs_dir_config_t *autoindex_conf) { char *title_name = NULL, *title_endp = NULL; char *pstring = NULL, *colargs = NULL; char *path = NULL, *fname = NULL, *charset = NULL; char *fullpath = NULL, *name = NULL, *ctype = NULL; apr_finfo_t dirent; glusterfs_file_t fd = NULL; apr_status_t status = APR_SUCCESS; int num_ent = 0, x; struct ent *head = NULL, *p = NULL; struct ent **ar = NULL; const char *qstring = NULL; apr_int32_t autoindex_opts = autoindex_conf->opts; char keyid, direction; apr_size_t dirpathlen; glusterfs_dir_config_t *dir_config = NULL; int ret = -1; struct dirent *entry = NULL; struct stat st = {0, }; name = r->filename; title_name = ap_escape_html(r->pool, r->uri); ctype = "text/html"; dir_config = mod_glfs_dconfig (r); if (dir_config == NULL) { return HTTP_INTERNAL_SERVER_ERROR; } path = r->uri; fd = glusterfs_open (path, O_RDONLY, 0); if (fd == 0) { ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "file permissions deny server access: %s", r->filename); return HTTP_FORBIDDEN; } if (autoindex_conf->ctype) { ctype = autoindex_conf->ctype; } if (autoindex_conf->charset) { charset = autoindex_conf->charset; } else { #if APR_HAS_UNICODE_FS charset = "UTF-8"; #else charset = "ISO-8859-1"; #endif } if (*charset) { ap_set_content_type(r, apr_pstrcat(r->pool, ctype, ";charset=", charset, NULL)); } else { ap_set_content_type(r, ctype); } if (autoindex_opts & TRACK_MODIFIED) { ap_update_mtime(r, r->finfo.mtime); ap_set_last_modified(r); ap_set_etag(r); } if (r->header_only) { glusterfs_close (fd); return 0; } /* * If there is no specific ordering defined for this directory, * default to ascending by filename. */ keyid = autoindex_conf->default_keyid ? autoindex_conf->default_keyid : K_NAME; direction = autoindex_conf->default_direction ? autoindex_conf->default_direction : D_ASCENDING; /* * Figure out what sort of indexing (if any) we're supposed to use. * * If no QUERY_STRING was specified or client query strings have been * explicitly disabled. * If we are ignoring the client, suppress column sorting as well. */ if (autoindex_opts & IGNORE_CLIENT) { qstring = NULL; autoindex_opts |= SUPPRESS_COLSORT; colargs = ""; } else { char fval[5], vval[5], *ppre = "", *epattern = ""; fval[0] = '\0'; vval[0] = '\0'; qstring = r->args; while (qstring && *qstring) { /* C= First Sort key Column (N, M, S, D) */ if ( qstring[0] == 'C' && qstring[1] == '=' && qstring[2] && strchr(K_VALID, qstring[2]) && ( qstring[3] == '&' || qstring[3] == ';' || !qstring[3])) { keyid = qstring[2]; qstring += qstring[3] ? 4 : 3; } /* O= Sort order (A, D) */ else if ( qstring[0] == 'O' && qstring[1] == '=' && ( (qstring[2] == D_ASCENDING) || (qstring[2] == D_DESCENDING)) && ( qstring[3] == '&' || qstring[3] == ';' || !qstring[3])) { direction = qstring[2]; qstring += qstring[3] ? 4 : 3; } /* F= Output Format (0 plain, 1 fancy (pre), 2 table) */ else if ( qstring[0] == 'F' && qstring[1] == '=' && qstring[2] && strchr("012", qstring[2]) && ( qstring[3] == '&' || qstring[3] == ';' || !qstring[3])) { if (qstring[2] == '0') { autoindex_opts &= ~(FANCY_INDEXING | TABLE_INDEXING); } else if (qstring[2] == '1') { autoindex_opts = (autoindex_opts | FANCY_INDEXING) & ~TABLE_INDEXING; } else if (qstring[2] == '2') { autoindex_opts |= FANCY_INDEXING | TABLE_INDEXING; } strcpy(fval, ";F= "); fval[3] = qstring[2]; qstring += qstring[3] ? 4 : 3; } /* V= Version sort (0, 1) */ else if ( qstring[0] == 'V' && qstring[1] == '=' && (qstring[2] == '0' || qstring[2] == '1') && ( qstring[3] == '&' || qstring[3] == ';' || !qstring[3])) { if (qstring[2] == '0') { autoindex_opts &= ~VERSION_SORT; } else if (qstring[2] == '1') { autoindex_opts |= VERSION_SORT; } strcpy(vval, ";V= "); vval[3] = qstring[2]; qstring += qstring[3] ? 4 : 3; } /* P= wildcard pattern (*.foo) */ else if (qstring[0] == 'P' && qstring[1] == '=') { const char *eos = qstring += 2; /* for efficiency */ while (*eos && *eos != '&' && *eos != ';') { ++eos; } if (eos == qstring) { pstring = NULL; } else { pstring = apr_pstrndup(r->pool, qstring, eos - qstring); if (ap_unescape_url(pstring) != OK) { /* ignore the pattern, if it's bad. */ pstring = NULL; } else { ppre = ";P="; /* be correct */ epattern = ap_escape_uri(r->pool, pstring); } } if (*eos && *++eos) { qstring = eos; } else { qstring = NULL; } } /* Syntax error? Ignore the remainder! */ else { qstring = NULL; } } colargs = apr_pstrcat(r->pool, fval, vval, ppre, epattern, NULL); } /* Spew HTML preamble */ title_endp = title_name + strlen(title_name) - 1; while (title_endp > title_name && *title_endp == '/') { *title_endp-- = '\0'; } emit_head(r, find_header(autoindex_conf, r), autoindex_opts & SUPPRESS_PREAMBLE, autoindex_opts & EMIT_XHTML, title_name); /* * Since we don't know how many dir. entries there are, put them into a * linked list and then arrayificate them so qsort can use them. */ head = NULL; p = make_parent_entry(autoindex_opts, autoindex_conf, r, keyid, direction); if (p != NULL) { p->next = head; head = p; num_ent++; } fullpath = apr_palloc(r->pool, APR_PATH_MAX); dirpathlen = strlen(name); memcpy(fullpath, name, dirpathlen); do { entry = glusterfs_readdir (fd); if (entry == NULL) { break; } fname = apr_pstrcat (r->pool, path, entry->d_name, NULL); ret = glusterfs_stat (fname, &st); if (ret != 0) { break; } dirent.fname = fname; dirent.name = apr_pstrdup (r->pool, entry->d_name); fill_out_finfo (&dirent, &st, APR_FINFO_MIN | APR_FINFO_IDENT | APR_FINFO_NLINK | APR_FINFO_OWNER | APR_FINFO_PROT); p = make_autoindex_entry(&dirent, autoindex_opts, autoindex_conf, r, keyid, direction, pstring); if (p != NULL) { p->next = head; head = p; num_ent++; } } while (1); if (num_ent > 0) { ar = (struct ent **) apr_palloc(r->pool, num_ent * sizeof(struct ent *)); p = head; x = 0; while (p) { ar[x++] = p; p = p->next; } qsort((void *) ar, num_ent, sizeof(struct ent *), (int (*)(const void *, const void *)) dsortf); } output_directories(ar, num_ent, autoindex_conf, r, autoindex_opts, keyid, direction, colargs); glusterfs_close (fd); emit_tail(r, find_readme(autoindex_conf, r), autoindex_opts & SUPPRESS_PREAMBLE); return 0; } static int handle_autoindex(request_rec *r) { glusterfs_dir_config_t *dir_config = NULL; int allow_opts; allow_opts = ap_allow_options(r); r->allowed |= (AP_METHOD_BIT << M_GET); if (r->method_number != M_GET) { return DECLINED; } dir_config = mod_glfs_dconfig (r); /* OK, nothing easy. Trot out the heavy artillery... */ if (allow_opts & OPT_INDEXES) { int errstatus; if ((errstatus = ap_discard_request_body(r)) != OK) { return errstatus; } /* KLUDGE --- make the sub_req lookups happen in the right * directory. Fixing this in the sub_req_lookup functions * themselves is difficult, and would probably break * virtual includes... */ if (r->filename[strlen(r->filename) - 1] != '/') { r->filename = apr_pstrcat(r->pool, r->filename, "/", NULL); } return mod_glfs_index_directory(r, dir_config); } else { ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "Directory index forbidden by " "Options directive: %s", r->filename); return HTTP_FORBIDDEN; } } static int mod_glfs_handler (request_rec *r) { conn_rec *c = r->connection; apr_bucket_brigade *bb; apr_bucket *e; core_dir_config *d; int errstatus; glusterfs_file_t fd = NULL; apr_status_t status; glusterfs_dir_config_t *dir_config = NULL; char *path = NULL; int num_ranges = 0; apr_size_t size = 0; apr_off_t range_start = 0, range_end = 0; char *current = NULL; apr_status_t rv = 0; core_request_config *req_cfg = NULL; /* XXX if/when somebody writes a content-md5 filter we either need to * remove this support or coordinate when to use the filter vs. * when to use this code * The current choice of when to compute the md5 here matches the 1.3 * support fairly closely (unlike 1.3, we don't handle computing md5 * when the charset is translated). */ int bld_content_md5; if (!r->handler || (r->handler && strcmp (r->handler, GLUSTERFS_HANDLER))) return DECLINED; if (r->uri[0] == '\0') { return DECLINED; } if (r->finfo.filetype == APR_DIR) { return handle_autoindex (r); } dir_config = mod_glfs_dconfig (r); ap_allow_standard_methods(r, MERGE_ALLOW, M_GET, -1); /* We understood the (non-GET) method, but it might not be legal for this particular resource. Check to see if the 'deliver_script' flag is set. If so, then we go ahead and deliver the file since it isn't really content (only GET normally returns content). Note: based on logic further above, the only possible non-GET method at this point is POST. In the future, we should enable script delivery for all methods. */ if (r->method_number != M_GET) { req_cfg = ap_get_module_config(r->request_config, &core_module); if (!req_cfg->deliver_script) { /* The flag hasn't been set for this request. Punt. */ ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "This resource does not accept the %s " "method.", r->method); return HTTP_METHOD_NOT_ALLOWED; } } d = (core_dir_config *)ap_get_module_config(r->per_dir_config, &core_module); bld_content_md5 = (d->content_md5 & 1) && r->output_filters->frec->ftype != AP_FTYPE_RESOURCE; if ((errstatus = ap_discard_request_body(r)) != OK) { return errstatus; } if (r->finfo.filetype == 0) { ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "File does not exist: %s", r->filename); return HTTP_NOT_FOUND; } if ((r->used_path_info != AP_REQ_ACCEPT_PATH_INFO) && r->path_info && *r->path_info) { /* default to reject */ ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "File does not exist: %s", apr_pstrcat(r->pool, r->filename, r->path_info, NULL)); return HTTP_NOT_FOUND; } ap_update_mtime (r, r->finfo.mtime); ap_set_last_modified (r); ap_set_etag (r); apr_table_setn (r->headers_out, "Accept-Ranges", "bytes"); num_ranges = ap_set_byterange(r); if (num_ranges == 0) { size = r->finfo.size; } else { char *tmp = apr_pstrdup (r->pool, r->range); while ((current = ap_getword(r->pool, (const char **)&tmp, ',')) && (rv = parse_byterange(current, r->finfo.size, &range_start, &range_end))) { size += (range_end - range_start); } } ap_set_content_length (r, size); if ((errstatus = ap_meets_conditions(r)) != OK) { r->status = errstatus; } /* * file is small enough to have already got the content in * glusterfs_lookup */ if (r->finfo.size <= dir_config->xattr_file_size && dir_config->buf) { if (bld_content_md5) { apr_table_setn (r->headers_out, "Content-MD5", (const char *)ap_md5_binary(r->pool, dir_config->buf , r->finfo.size)); } ap_log_rerror (APLOG_MARK, APLOG_NOTICE, 0, r, "fetching data from glusterfs through xattr " "interface\n"); bb = apr_brigade_create(r->pool, c->bucket_alloc); e = apr_bucket_heap_create (dir_config->buf, r->finfo.size, free, c->bucket_alloc); APR_BRIGADE_INSERT_TAIL (bb, e); e = apr_bucket_eos_create(c->bucket_alloc); APR_BRIGADE_INSERT_TAIL(bb, e); dir_config->buf = NULL; /* let the byterange_filter handle multipart requests */ status = ap_pass_brigade(r->output_filters, bb); if (status == APR_SUCCESS || r->status != HTTP_OK || c->aborted) { return OK; } else { /* no way to know what type of error occurred */ ap_log_rerror(APLOG_MARK, APLOG_DEBUG, status, r, "mod_glfs_handler: ap_pass_brigade " "returned %i", status); return HTTP_INTERNAL_SERVER_ERROR; } } /* do standard open/read/close to fetch content */ path = r->uri; fd = glusterfs_open (path, O_RDONLY, 0); if (fd == 0) { ap_log_rerror(APLOG_MARK, APLOG_ERR, 0, r, "file permissions deny server access: %s", r->filename); return HTTP_FORBIDDEN; } /* * byterange_filter cannot handle range requests, since we are not * sending the whole data in a single brigade */ if (num_ranges == 0) { mod_glfs_read_async (r, NULL, fd, 0, -1); } else { mod_glfs_handle_byte_ranges (r, fd, num_ranges); } glusterfs_close (fd); } #if 0 static apr_status_t mod_glfs_output_filter (ap_filter_t *f, apr_bucket_brigade *b) { size_t size = 0; apr_bucket_t *e = NULL; size = atol (apr_table_get (r->notes, MOD_GLFS_SIZE)); for (e = APR_BRIGADE_FIRST(b); e != APR_BRIGADE_SENTINEL(b); e = APR_BUCKET_NEXT(e)) { /* FIXME: can there be more than one heap buckets? */ if (e->type == &apr_bucket_type_heap) { break; } } if (e != APR_BRIGADE_SENTINEL(b)) { e->length = size; } return ap_pass_brigade (f->next, b); } #endif static int mod_glfs_fixup_dir(request_rec *r) { glusterfs_dir_config_t *d = NULL; char *dummy_ptr[1]; char **names_ptr = NULL, *name_ptr = NULL; int num_names; int error_notfound = 0; char *ifile = NULL; request_rec *rr = NULL; /* only handle requests against directories */ if (r->finfo.filetype != APR_DIR) { return DECLINED; } if (!r->handler || strcmp (r->handler, GLUSTERFS_HANDLER)) { return DECLINED; } /* Never tolerate path_info on dir requests */ if (r->path_info && *r->path_info) { return DECLINED; } d = (glusterfs_dir_config_t *)ap_get_module_config(r->per_dir_config, &glusterfs_module); /* Redirect requests that are not '/' terminated */ if (r->uri[0] == '\0' || r->uri[strlen(r->uri) - 1] != '/') { if (!d->do_slash) { return DECLINED; } /* Only redirect non-get requests if we have no note to warn * that this browser cannot handle redirs on non-GET requests * (such as Microsoft's WebFolders). */ if ((r->method_number != M_GET) && apr_table_get(r->subprocess_env, "redirect-carefully")) { return DECLINED; } if (r->args != NULL) { ifile = apr_pstrcat(r->pool, ap_escape_uri(r->pool, r->uri), "/", "?", r->args, NULL); } else { ifile = apr_pstrcat(r->pool, ap_escape_uri(r->pool, r->uri), "/", NULL); } apr_table_setn(r->headers_out, "Location", ap_construct_url(r->pool, ifile, r)); return HTTP_MOVED_PERMANENTLY; } if (d->index_names) { names_ptr = (char **)d->index_names->elts; num_names = d->index_names->nelts; } else { dummy_ptr[0] = AP_DEFAULT_INDEX; names_ptr = dummy_ptr; num_names = 1; } for (; num_names; ++names_ptr, --num_names) { /* XXX: Is this name_ptr considered escaped yet, or not??? */ name_ptr = *names_ptr; /* Once upon a time args were handled _after_ the successful * redirect. But that redirect might then _refuse_ the * given r->args, creating a nasty tangle. It seems safer to * consider the r->args while we determine if name_ptr is our * viable index, and therefore set them up correctly on redirect. */ if (r->args != NULL) { name_ptr = apr_pstrcat(r->pool, name_ptr, "?", r->args, NULL); } rr = ap_sub_req_lookup_uri(name_ptr, r, NULL); /* The sub request lookup is very liberal, and the core * map_to_storage handler will almost always result in HTTP_OK * as /foo/index.html may be /foo with PATH_INFO="/index.html", * or even / with PATH_INFO="/foo/index.html". To get around * this we insist that the the index be a regular filetype. * * Another reason is that the core handler also makes the * assumption that if r->finfo is still NULL by the time it * gets called, the file does not exist. */ if (rr->status == HTTP_OK && ( (rr->handler && !strcmp(rr->handler, "proxy-server")) || rr->finfo.filetype == APR_REG)) { ap_internal_fast_redirect(rr, r); return OK; } /* If the request returned a redirect, propagate it to the * client */ if (ap_is_HTTP_REDIRECT(rr->status) || (rr->status == HTTP_NOT_ACCEPTABLE && num_names == 1) || (rr->status == HTTP_UNAUTHORIZED && num_names == 1)) { apr_pool_join(r->pool, rr->pool); error_notfound = rr->status; r->notes = apr_table_overlay(r->pool, r->notes, rr->notes); r->headers_out = apr_table_overlay(r->pool, r->headers_out, rr->headers_out); r->err_headers_out = apr_table_overlay(r->pool, r->err_headers_out, rr->err_headers_out); return error_notfound; } /* If the request returned something other than 404 (or 200), * it means the module encountered some sort of problem. To be * secure, we should return the error, rather than allow * autoindex to create a (possibly unsafe) directory index. * * So we store the error, and if none of the listed files * exist, we return the last error response we got, instead * of a directory listing. */ if (rr->status && rr->status != HTTP_NOT_FOUND && rr->status != HTTP_OK) { error_notfound = rr->status; } ap_destroy_sub_req(rr); } if (error_notfound) { return error_notfound; } /* nothing for us to do, pass on through */ return DECLINED; } static void mod_glfs_register_hooks(apr_pool_t *p) { ap_hook_child_init (mod_glfs_child_init, NULL, NULL, APR_HOOK_MIDDLE); ap_hook_handler (mod_glfs_handler, NULL, NULL, APR_HOOK_REALLY_FIRST); ap_hook_map_to_storage (mod_glfs_map_to_storage, NULL, NULL, APR_HOOK_REALLY_FIRST); ap_hook_fixups(mod_glfs_fixup_dir,NULL,NULL,APR_HOOK_LAST); /* mod_glfs_output_filter_handle = ap_register_output_filter ("MODGLFS", mod_glfs_output_filter, NULL, AP_FTYPE_PROTOCOL); */ } static const char * cmd_add_index (cmd_parms *cmd, void *dummy, const char *arg) { glusterfs_dir_config_t *d = dummy; if (!d->index_names) { d->index_names = apr_array_make(cmd->pool, 2, sizeof(char *)); } *(const char **)apr_array_push(d->index_names) = arg; return NULL; } static const char * cmd_configure_slash (cmd_parms *cmd, void *d_, int arg) { glusterfs_dir_config_t *d = d_; d->do_slash = arg ? SLASH_ON : SLASH_OFF; return NULL; } #define DIR_CMD_PERMS OR_INDEXES static const command_rec mod_glfs_cmds[] = { AP_INIT_TAKE1( "GlusterfsLogfile", cmd_add_logfile, NULL, ACCESS_CONF, /*FIXME: allow overriding in .htaccess files */ "Glusterfs logfile" ), AP_INIT_TAKE1( "GlusterfsLoglevel", cmd_set_loglevel, NULL, ACCESS_CONF, "Glusterfs loglevel:anyone of none, critical, error, warning, " "debug" ), AP_INIT_TAKE1( "GlusterfsCacheTimeout", cmd_set_cache_timeout, NULL, ACCESS_CONF, "Timeout value in seconds for lookup and stat cache of " "libglusterfsclient" ), AP_INIT_TAKE1( "GlusterfsVolumeSpecfile", cmd_add_volume_specfile, NULL, ACCESS_CONF, "Glusterfs Volume specfication file specifying filesystem " "under this directory" ), AP_INIT_TAKE1( "GlusterfsXattrFileSize", cmd_add_xattr_file_size, NULL, ACCESS_CONF, "Maximum size of the file that can be fetched through " "extended attribute interface of libglusterfsclient" ), /* mod_dir cmds */ AP_INIT_ITERATE("DirectoryIndex", cmd_add_index, NULL, DIR_CMD_PERMS, "a list of file names"), AP_INIT_FLAG("DirectorySlash", cmd_configure_slash, NULL, DIR_CMD_PERMS, "On or Off"), /* autoindex cmds */ AP_INIT_ITERATE2("AddIcon", cmd_add_icon, BY_PATH, DIR_CMD_PERMS, "an icon URL followed by one or more filenames"), AP_INIT_ITERATE2("AddIconByType", cmd_add_icon, BY_TYPE, DIR_CMD_PERMS, "an icon URL followed by one or more MIME types"), AP_INIT_ITERATE2("AddIconByEncoding", cmd_add_icon, BY_ENCODING, DIR_CMD_PERMS, "an icon URL followed by one or more content encodings"), AP_INIT_ITERATE2("AddAlt", cmd_add_alt, BY_PATH, DIR_CMD_PERMS, "alternate descriptive text followed by one or more " "filenames"), AP_INIT_ITERATE2("AddAltByType", cmd_add_alt, BY_TYPE, DIR_CMD_PERMS, "alternate descriptive text followed by one or more " "MIME types"), AP_INIT_ITERATE2("AddAltByEncoding", cmd_add_alt, BY_ENCODING, DIR_CMD_PERMS, "alternate descriptive text followed by one or more " "content encodings"), AP_INIT_TAKE_ARGV("IndexOptions", cmd_add_opts, NULL, DIR_CMD_PERMS, "one or more index options [+|-][]"), AP_INIT_TAKE2("IndexOrderDefault", cmd_set_default_order, NULL, DIR_CMD_PERMS, "{Ascending,Descending} {Name,Size,Description,Date}"), AP_INIT_ITERATE("IndexIgnore", cmd_add_ignore, NULL, DIR_CMD_PERMS, "one or more file extensions"), AP_INIT_ITERATE2("AddDescription", cmd_add_desc, BY_PATH, DIR_CMD_PERMS, "Descriptive text followed by one or more filenames"), AP_INIT_TAKE1("HeaderName", cmd_add_header, NULL, DIR_CMD_PERMS, "a filename"), AP_INIT_TAKE1("ReadmeName", cmd_add_readme, NULL, DIR_CMD_PERMS, "a filename"), AP_INIT_RAW_ARGS("FancyIndexing", ap_set_deprecated, NULL, OR_ALL, "The FancyIndexing directive is no longer supported. " "Use IndexOptions FancyIndexing."), AP_INIT_TAKE1("DefaultIcon", ap_set_string_slot, (void *)APR_OFFSETOF(glusterfs_dir_config_t, default_icon), DIR_CMD_PERMS, "an icon URL"), AP_INIT_TAKE1("IndexStyleSheet", ap_set_string_slot, (void *)APR_OFFSETOF(glusterfs_dir_config_t, style_sheet), DIR_CMD_PERMS, "URL to style sheet"), {NULL} }; module AP_MODULE_DECLARE_DATA glusterfs_module = { STANDARD20_MODULE_STUFF, mod_glfs_create_dir_config, mod_glfs_merge_dir_config, NULL, //mod_glfs_create_server_config, NULL, //mod_glfs_merge_server_config, mod_glfs_cmds, mod_glfs_register_hooks, };