diff options
| -rw-r--r-- | web/.cvsignore | 3 | ||||
| -rw-r--r-- | web/Makefile | 4 | ||||
| -rw-r--r-- | web/mod_ptt.c | 1064 | ||||
| -rw-r--r-- | web/mod_ptt.h | 17 | ||||
| -rwxr-xr-x | web/mytime.h | 189 | ||||
| -rwxr-xr-x | web/parse_html.c | 294 |
6 files changed, 1571 insertions, 0 deletions
diff --git a/web/.cvsignore b/web/.cvsignore new file mode 100644 index 00000000..33ec1741 --- /dev/null +++ b/web/.cvsignore @@ -0,0 +1,3 @@ +*.o +*.so +*.a diff --git a/web/Makefile b/web/Makefile new file mode 100644 index 00000000..44830419 --- /dev/null +++ b/web/Makefile @@ -0,0 +1,4 @@ +all: mod_ptt.c mod_ptt.h + apxs -I ../include -c mod_ptt.c + cp mod_ptt.so /usr/local/libexec/apache/mod_ptt.so + chmod 755 /usr/local/libexec/apache/mod_ptt.so diff --git a/web/mod_ptt.c b/web/mod_ptt.c new file mode 100644 index 00000000..a6427a32 --- /dev/null +++ b/web/mod_ptt.c @@ -0,0 +1,1064 @@ +/* + * Apache example module. Provide demonstrations of how modules do things. + * + */ + +#include "mod_ptt.h" +extern int numboards; +extern boardheader_t *bcache; +/*--------------------------------------------------------------------------*/ +/* */ +/* Data declarations. */ +/* */ +/* Here are the static cells and structure declarations private to our */ +/* module. */ +/* */ +/*--------------------------------------------------------------------------*/ + +/* + * Sample configuration record. Used for both per-directory and per-server + * configuration data. + * + * It's perfectly reasonable to have two different structures for the two + * different environments. The same command handlers will be called for + * both, though, so the handlers need to be able to tell them apart. One + * possibility is for both structures to start with an int which is zero for + * one and 1 for the other. + * + * Note that while the per-directory and per-server configuration records are + * available to most of the module handlers, they should be treated as + * READ-ONLY by all except the command and merge handlers. Sometimes handlers + * are handed a record that applies to the current location by implication or + * inheritance, and modifying it will change the rules for other locations. + */ +typedef struct excfg { + int cmode; /* Environment to which record applies (directory, + * server, or combination). + */ +#define CONFIG_MODE_SERVER 1 +#define CONFIG_MODE_DIRECTORY 2 +#define CONFIG_MODE_COMBO 3 /* Shouldn't ever happen. */ + int local; /* Boolean: "Example" directive declared here? */ + int congenital; /* Boolean: did we inherit an "Example"? */ + char *trace; /* Pointer to trace string. */ + char *loc; /* Location to which this record applies. */ +} excfg; + +/* + * Let's set up a module-local static cell to point to the accreting callback + * trace. As each API callback is made to us, we'll tack on the particulars + * to whatever we've already recorded. To avoid massive memory bloat as + * directories are walked again and again, we record the routine/environment + * the first time (non-request context only), and ignore subsequent calls for + * the same routine/environment. + */ +static const char *trace = NULL; +static table *static_calls_made = NULL; + +/* + * To avoid leaking memory from pools other than the per-request one, we + * allocate a module-private pool, and then use a sub-pool of that which gets + * freed each time we modify the trace. That way previous layers of trace + * data don't get lost. + */ +static pool *ptt_pool = NULL; +static pool *ptt_subpool = NULL; + +/* + * Declare ourselves so the configuration routines can find and know us. + * We'll fill it in at the end of the module. + */ +module MODULE_VAR_EXPORT ptt_module; + +/*--------------------------------------------------------------------------*/ +/* */ +/* The following pseudo-prototype declarations illustrate the parameters */ +/* passed to command handlers for the different types of directive */ +/* syntax. If an argument was specified in the directive definition */ +/* (look for "command_rec" below), it's available to the command handler */ +/* via the (void *) info field in the cmd_parms argument passed to the */ +/* handler (cmd->info for the examples below). */ +/* */ +/*--------------------------------------------------------------------------*/ + +/* + * Command handler for a NO_ARGS directive. + * + * static const char *handle_NO_ARGS(cmd_parms *cmd, void *mconfig); + */ + +/* + * Command handler for a RAW_ARGS directive. The "args" argument is the text + * of the commandline following the directive itself. + * + * static const char *handle_RAW_ARGS(cmd_parms *cmd, void *mconfig, + * const char *args); + */ + +/* + * Command handler for a FLAG directive. The single parameter is passed in + * "bool", which is either zero or not for Off or On respectively. + * + * static const char *handle_FLAG(cmd_parms *cmd, void *mconfig, int bool); + */ + +/* + * Command handler for a TAKE1 directive. The single parameter is passed in + * "word1". + * + * static const char *handle_TAKE1(cmd_parms *cmd, void *mconfig, + * char *word1); + */ + +/* + * Command handler for a TAKE2 directive. TAKE2 commands must always have + * exactly two arguments. + * + * static const char *handle_TAKE2(cmd_parms *cmd, void *mconfig, + * char *word1, char *word2); + */ + +/* + * Command handler for a TAKE3 directive. Like TAKE2, these must have exactly + * three arguments, or the parser complains and doesn't bother calling us. + * + * static const char *handle_TAKE3(cmd_parms *cmd, void *mconfig, + * char *word1, char *word2, char *word3); + */ + +/* + * Command handler for a TAKE12 directive. These can take either one or two + * arguments. + * - word2 is a NULL pointer if no second argument was specified. + * + * static const char *handle_TAKE12(cmd_parms *cmd, void *mconfig, + * char *word1, char *word2); + */ + +/* + * Command handler for a TAKE123 directive. A TAKE123 directive can be given, + * as might be expected, one, two, or three arguments. + * - word2 is a NULL pointer if no second argument was specified. + * - word3 is a NULL pointer if no third argument was specified. + * + * static const char *handle_TAKE123(cmd_parms *cmd, void *mconfig, + * char *word1, char *word2, char *word3); + */ + +/* + * Command handler for a TAKE13 directive. Either one or three arguments are + * permitted - no two-parameters-only syntax is allowed. + * - word2 and word3 are NULL pointers if only one argument was specified. + * + * static const char *handle_TAKE13(cmd_parms *cmd, void *mconfig, + * char *word1, char *word2, char *word3); + */ + +/* + * Command handler for a TAKE23 directive. At least two and as many as three + * arguments must be specified. + * - word3 is a NULL pointer if no third argument was specified. + * + * static const char *handle_TAKE23(cmd_parms *cmd, void *mconfig, + * char *word1, char *word2, char *word3); + */ + +/* + * Command handler for a ITERATE directive. + * - Handler is called once for each of n arguments given to the directive. + * - word1 points to each argument in turn. + * + * static const char *handle_ITERATE(cmd_parms *cmd, void *mconfig, + * char *word1); + */ + +/* + * Command handler for a ITERATE2 directive. + * - Handler is called once for each of the second and subsequent arguments + * given to the directive. + * - word1 is the same for each call for a particular directive instance (the + * first argument). + * - word2 points to each of the second and subsequent arguments in turn. + * + * static const char *handle_ITERATE2(cmd_parms *cmd, void *mconfig, + * char *word1, char *word2); + */ + +/*--------------------------------------------------------------------------*/ +/* */ +/* These routines are strictly internal to this module, and support its */ +/* operation. They are not referenced by any external portion of the */ +/* server. */ +/* */ +/*--------------------------------------------------------------------------*/ + +/* + * Locate our directory configuration record for the current request. + */ +static excfg *our_dconfig(request_rec *r) +{ + + return (excfg *) ap_get_module_config(r->per_dir_config, &ptt_module); +} + +#if 0 +/* + * Locate our server configuration record for the specified server. + */ +static excfg *our_sconfig(server_rec *s) +{ + + return (excfg *) ap_get_module_config(s->module_config, &ptt_module); +} + +/* + * Likewise for our configuration record for the specified request. + */ +static excfg *our_rconfig(request_rec *r) +{ + + return (excfg *) ap_get_module_config(r->request_config, &ptt_module); +} +#endif + +/* + * This routine sets up some module-wide cells if they haven't been already. + */ +static void setup_module_cells() +{ + /* + * If we haven't already allocated our module-private pool, do so now. + */ + if (ptt_pool == NULL) { + ptt_pool = ap_make_sub_pool(NULL); + }; + /* + * Likewise for the table of routine/environment pairs we visit outside of + * request context. + */ + if (static_calls_made == NULL) { + static_calls_made = ap_make_table(ptt_pool, 16); + }; +} + +/* + * This routine is used to add a trace of a callback to the list. We're + * passed the server record (if available), the request record (if available), + * a pointer to our private configuration record (if available) for the + * environment to which the callback is supposed to apply, and some text. We + * turn this into a textual representation and add it to the tail of the list. + * The list can be displayed by the example_handler() routine. + * + * If the call occurs within a request context (i.e., we're passed a request + * record), we put the trace into the request pool and attach it to the + * request via the notes mechanism. Otherwise, the trace gets added + * to the static (non-request-specific) list. + * + * Note that the r->notes table is only for storing strings; if you need to + * maintain per-request data of any other type, you need to use another + * mechanism. + */ + +#define TRACE_NOTE "ptt-trace" + +static void trace_add(server_rec *s, request_rec *r, excfg *mconfig, + const char *note) +{ + + const char *sofar; + char *addon; + char *where; + pool *p; + const char *trace_copy; + + /* + * Make sure our pools and tables are set up - we need 'em. + */ + setup_module_cells(); + /* + * Now, if we're in request-context, we use the request pool. + */ + if (r != NULL) { + p = r->pool; + if ((trace_copy = ap_table_get(r->notes, TRACE_NOTE)) == NULL) { + trace_copy = ""; + } + } + else { + /* + * We're not in request context, so the trace gets attached to our + * module-wide pool. We do the create/destroy every time we're called + * in non-request context; this avoids leaking memory in some of + * the subsequent calls that allocate memory only once (such as the + * key formation below). + * + * Make a new sub-pool and copy any existing trace to it. Point the + * trace cell at the copied value. + */ + p = ap_make_sub_pool(ptt_pool); + if (trace != NULL) { + trace = ap_pstrdup(p, trace); + } + /* + * Now, if we have a sub-pool from before, nuke it and replace with + * the one we just allocated. + */ + if (ptt_subpool != NULL) { + ap_destroy_pool(ptt_subpool); + } + ptt_subpool = p; + trace_copy = trace; + } + /* + * If we weren't passed a configuration record, we can't figure out to + * what location this call applies. This only happens for co-routines + * that don't operate in a particular directory or server context. If we + * got a valid record, extract the location (directory or server) to which + * it applies. + */ + where = (mconfig != NULL) ? mconfig->loc : "nowhere"; + where = (where != NULL) ? where : ""; + /* + * Now, if we're not in request context, see if we've been called with + * this particular combination before. The table is allocated in the + * module's private pool, which doesn't get destroyed. + */ + if (r == NULL) { + char *key; + + key = ap_pstrcat(p, note, ":", where, NULL); + if (ap_table_get(static_calls_made, key) != NULL) { + /* + * Been here, done this. + */ + return; + } + else { + /* + * First time for this combination of routine and environment - + * log it so we don't do it again. + */ + ap_table_set(static_calls_made, key, "been here"); + } + } + addon = ap_pstrcat(p, " <LI>\n", " <DL>\n", " <DT><SAMP>", + note, "</SAMP>\n", " </DT>\n", " <DD><SAMP>[", + where, "]</SAMP>\n", " </DD>\n", " </DL>\n", + " </LI>\n", NULL); + sofar = (trace_copy == NULL) ? "" : trace_copy; + trace_copy = ap_pstrcat(p, sofar, addon, NULL); + if (r != NULL) { + ap_table_set(r->notes, TRACE_NOTE, trace_copy); + } + else { + trace = trace_copy; + } + /* + * You *could* change the following if you wanted to see the calling + * sequence reported in the server's error_log, but beware - almost all of + * these co-routines are called for every single request, and the impact + * on the size (and readability) of the error_log is considerable. + */ +#define EXAMPLE_LOG_EACH 0 +#if EXAMPLE_LOG_EACH + if (s != NULL) { + ap_log_error(APLOG_MARK, APLOG_DEBUG, s, "mod_ptt: %s", note); + } +#endif +} + +/*--------------------------------------------------------------------------*/ +/* We prototyped the various syntax for command handlers (routines that */ +/* are called when the configuration parser detects a directive declared */ +/* by our module) earlier. Now we actually declare a "real" routine that */ +/* will be invoked by the parser when our "real" directive is */ +/* encountered. */ +/* */ +/* If a command handler encounters a problem processing the directive, it */ +/* signals this fact by returning a non-NULL pointer to a string */ +/* describing the problem. */ +/* */ +/* The magic return value DECLINE_CMD is used to deal with directives */ +/* that might be declared by multiple modules. If the command handler */ +/* returns NULL, the directive was processed; if it returns DECLINE_CMD, */ +/* the next module (if any) that declares the directive is given a chance */ +/* at it. If it returns any other value, it's treated as the text of an */ +/* error message. */ +/*--------------------------------------------------------------------------*/ +/* + * Command handler for the NO_ARGS "Example" directive. All we do is mark the + * call in the trace log, and flag the applicability of the directive to the + * current location in that location's configuration record. + */ +static const char *cmd_ptt(cmd_parms *cmd, void *mconfig) +{ + + excfg *cfg = (excfg *) mconfig; + + /* + * "Example Wuz Here" + */ + cfg->local = 1; + trace_add(cmd->server, NULL, cfg, "cmd_ptt()"); + return NULL; +} + +/*--------------------------------------------------------------------------*/ +/* */ +/* Now we declare our content handlers, which are invoked when the server */ +/* encounters a document which our module is supposed to have a chance to */ +/* see. (See mod_mime's SetHandler and AddHandler directives, and the */ +/* mod_info and mod_status examples, for more details.) */ +/* */ +/* Since content handlers are dumping data directly into the connexion */ +/* (using the r*() routines, such as rputs() and rprintf()) without */ +/* intervention by other parts of the server, they need to make */ +/* sure any accumulated HTTP headers are sent first. This is done by */ +/* calling send_http_header(). Otherwise, no header will be sent at all, */ +/* and the output sent to the client will actually be HTTP-uncompliant. */ +/*--------------------------------------------------------------------------*/ +/* + * Sample content handler. All this does is display the call list that has + * been built up so far. + * + * The return value instructs the caller concerning what happened and what to + * do next: + * OK ("we did our thing") + * DECLINED ("this isn't something with which we want to get involved") + * HTTP_mumble ("an error status should be reported") + */ +static int ptt_handler(request_rec *r) +{ + int i; + excfg *dcfg; + + dcfg = our_dconfig(r); + trace_add(r->server, r, dcfg, "ptt_handler()"); + /* + * We're about to start sending content, so we need to force the HTTP + * headers to be sent at this point. Otherwise, no headers will be sent + * at all. We can set any we like first, of course. **NOTE** Here's + * where you set the "Content-type" header, and you do so by putting it in + * r->content_type, *not* r->headers_out("Content-type"). If you don't + * set it, it will be filled in with the server's default type (typically + * "text/plain"). You *must* also ensure that r->content_type is lower + * case. + * + * We also need to start a timer so the server can know if the connexion + * is broken. + */ + r->content_type = "text/html"; + + ap_soft_timeout("send ptt call trace", r); + ap_send_http_header(r); +#ifdef CHARSET_EBCDIC + /* Server-generated response, converted */ + ap_bsetflag(r->connection->client, B_EBCDIC2ASCII, r->ebcdic.conv_out = 1); +#endif + + /* + * If we're only supposed to send header information (HEAD request), we're + * already there. + */ + if (r->header_only) { + ap_kill_timeout(r); + return OK; + } + + /* + * Now send our actual output. Since we tagged this as being + * "text/html", we need to embed any HTML. + */ + ap_rputs(" ptt3 <P>\n", r); + + ap_rprintf(r, " Apache HTTP Server version: \"%s\"\n", + ap_get_server_version()); + ap_rprintf(r,"r->filename : %s <br>",r->filename); + ap_rprintf(r,"r->request_time : %s <br>",ctime(&r->request_time)); + ap_rprintf(r,"r->method : %s <br>",r->method); + ap_rprintf(r,"r->method_number : %d <br>",r->method_number); + ap_rprintf(r,"r->path_info : %s <br>",r->path_info); + ap_rprintf(r,"r->args : %s <br>",r->args); + ap_rprintf(r,"r->unparsed_uri : %s <br>",r->unparsed_uri); + ap_rprintf(r,"r->handler : %s <br>",r->handler); + ap_rprintf(r,"r->content_type : %s <br>",r->content_type); + ap_rprintf(r, " Server built: \"%s\"\n", ap_get_server_built()); + + for(i = 0; i++ < numboards; i++) + ap_rprintf(r,"%s %s<br>",bcache[i].brdname,bcache[i].title); + /* + * We're all done, so cancel the timeout we set. Since this is probably + * the end of the request we *could* assume this would be done during + * post-processing - but it's possible that another handler might be + * called and inherit our outstanding timer. Not good; to each its own. + */ + ap_kill_timeout(r); + /* + * We did what we wanted to do, so tell the rest of the server we + * succeeded. + */ + return OK; +} + +/*--------------------------------------------------------------------------*/ +/* */ +/* Now let's declare routines for each of the callback phase in order. */ +/* (That's the order in which they're listed in the callback list, *not */ +/* the order in which the server calls them! See the command_rec */ +/* declaration near the bottom of this file.) Note that these may be */ +/* called for situations that don't relate primarily to our function - in */ +/* other words, the fixup handler shouldn't assume that the request has */ +/* to do with "example" stuff. */ +/* */ +/* With the exception of the content handler, all of our routines will be */ +/* called for each request, unless an earlier handler from another module */ +/* aborted the sequence. */ +/* */ +/* Handlers that are declared as "int" can return the following: */ +/* */ +/* OK Handler accepted the request and did its thing with it. */ +/* DECLINED Handler took no action. */ +/* HTTP_mumble Handler looked at request and found it wanting. */ +/* */ +/* What the server does after calling a module handler depends upon the */ +/* handler's return value. In all cases, if the handler returns */ +/* DECLINED, the server will continue to the next module with an handler */ +/* for the current phase. However, if the handler return a non-OK, */ +/* non-DECLINED status, the server aborts the request right there. If */ +/* the handler returns OK, the server's next action is phase-specific; */ +/* see the individual handler comments below for details. */ +/* */ +/*--------------------------------------------------------------------------*/ +/* + * This function is called during server initialisation. Any information + * that needs to be recorded must be in static cells, since there's no + * configuration record. + * + * There is no return value. + */ + +/* + * All our module-initialiser does is add its trace to the log. + */ +static void ptt_init(server_rec *s, pool *p) +{ + + char *note; + char *sname = s->server_hostname; + + /* + * Set up any module cells that ought to be initialised. + */ + setup_module_cells(); + /* + * The arbitrary text we add to our trace entry indicates for which server + * we're being called. + */ + sname = (sname != NULL) ? sname : ""; + note = ap_pstrcat(p, "ptt_init(", sname, ")", NULL); + trace_add(s, NULL, NULL, note); +} + +/* + * This function is called during server initialisation when an heavy-weight + * process (such as a child) is being initialised. As with the + * module-initialisation function, any information that needs to be recorded + * must be in static cells, since there's no configuration record. + * + * There is no return value. + */ + +/* + * All our process-initialiser does is add its trace to the log. + */ +static void ptt_child_init(server_rec *s, pool *p) +{ + + char *note; + char *sname = s->server_hostname; + + resolve_utmp(); + resolve_boards(); + resolve_garbage(); + resolve_fcache(); + /* + * Set up any module cells that ought to be initialised. + */ + setup_module_cells(); + /* + * The arbitrary text we add to our trace entry indicates for which server + * we're being called. + */ + sname = (sname != NULL) ? sname : ""; + note = ap_pstrcat(p, "ptt_child_init(", sname, ")", NULL); + trace_add(s, NULL, NULL, note); +} + +/* + * This function is called when an heavy-weight process (such as a child) is + * being run down or destroyed. As with the child-initialisation function, + * any information that needs to be recorded must be in static cells, since + * there's no configuration record. + * + * There is no return value. + */ + +/* + * All our process-death routine does is add its trace to the log. + */ +static void ptt_child_exit(server_rec *s, pool *p) +{ + + char *note; + char *sname = s->server_hostname; + + /* + * The arbitrary text we add to our trace entry indicates for which server + * we're being called. + */ + sname = (sname != NULL) ? sname : ""; + note = ap_pstrcat(p, "ptt_child_exit(", sname, ")", NULL); + trace_add(s, NULL, NULL, note); +} + +/* + * This function gets called to create a per-directory configuration + * record. This will be called for the "default" server environment, and for + * each directory for which the parser finds any of our directives applicable. + * If a directory doesn't have any of our directives involved (i.e., they + * aren't in the .htaccess file, or a <Location>, <Directory>, or related + * block), this routine will *not* be called - the configuration for the + * closest ancestor is used. + * + * The return value is a pointer to the created module-specific + * structure. + */ +static void *ptt_create_dir_config(pool *p, char *dirspec) +{ + + excfg *cfg; + char *dname = dirspec; + + /* + * Allocate the space for our record from the pool supplied. + */ + cfg = (excfg *) ap_pcalloc(p, sizeof(excfg)); + /* + * Now fill in the defaults. If there are any `parent' configuration + * records, they'll get merged as part of a separate callback. + */ + cfg->local = 0; + cfg->congenital = 0; + cfg->cmode = CONFIG_MODE_DIRECTORY; + /* + * Finally, add our trace to the callback list. + */ + dname = (dname != NULL) ? dname : ""; + cfg->loc = ap_pstrcat(p, "DIR(", dname, ")", NULL); + trace_add(NULL, NULL, cfg, "ptt_create_dir_config()"); + return (void *) cfg; +} + +/* + * This function gets called to merge two per-directory configuration + * records. This is typically done to cope with things like .htaccess files + * or <Location> directives for directories that are beneath one for which a + * configuration record was already created. The routine has the + * responsibility of creating a new record and merging the contents of the + * other two into it appropriately. If the module doesn't declare a merge + * routine, the record for the closest ancestor location (that has one) is + * used exclusively. + * + * The routine MUST NOT modify any of its arguments! + * + * The return value is a pointer to the created module-specific structure + * containing the merged values. + */ +static void *ptt_merge_dir_config(pool *p, void *parent_conf, + void *newloc_conf) +{ + + excfg *merged_config = (excfg *) ap_pcalloc(p, sizeof(excfg)); + excfg *pconf = (excfg *) parent_conf; + excfg *nconf = (excfg *) newloc_conf; + char *note; + + /* + * Some things get copied directly from the more-specific record, rather + * than getting merged. + */ + merged_config->local = nconf->local; + merged_config->loc = ap_pstrdup(p, nconf->loc); + /* + * Others, like the setting of the `congenital' flag, get ORed in. The + * setting of that particular flag, for instance, is TRUE if it was ever + * true anywhere in the upstream configuration. + */ + merged_config->congenital = (pconf->congenital | pconf->local); + /* + * If we're merging records for two different types of environment (server + * and directory), mark the new record appropriately. Otherwise, inherit + * the current value. + */ + merged_config->cmode = + (pconf->cmode == nconf->cmode) ? pconf->cmode : CONFIG_MODE_COMBO; + /* + * Now just record our being called in the trace list. Include the + * locations we were asked to merge. + */ + note = ap_pstrcat(p, "ptt_merge_dir_config(\"", pconf->loc, "\",\"", + nconf->loc, "\")", NULL); + trace_add(NULL, NULL, merged_config, note); + return (void *) merged_config; +} + +/* + * This function gets called to create a per-server configuration + * record. It will always be called for the "default" server. + * + * The return value is a pointer to the created module-specific + * structure. + */ +static void *ptt_create_server_config(pool *p, server_rec *s) +{ + + excfg *cfg; + char *sname = s->server_hostname; + + /* + * As with the ptt_create_dir_config() reoutine, we allocate and fill + * in an empty record. + */ + cfg = (excfg *) ap_pcalloc(p, sizeof(excfg)); + cfg->local = 0; + cfg->congenital = 0; + cfg->cmode = CONFIG_MODE_SERVER; + /* + * Note that we were called in the trace list. + */ + sname = (sname != NULL) ? sname : ""; + cfg->loc = ap_pstrcat(p, "SVR(", sname, ")", NULL); + trace_add(s, NULL, cfg, "ptt_create_server_config()"); + return (void *) cfg; +} + +/* + * This function gets called to merge two per-server configuration + * records. This is typically done to cope with things like virtual hosts and + * the default server configuration The routine has the responsibility of + * creating a new record and merging the contents of the other two into it + * appropriately. If the module doesn't declare a merge routine, the more + * specific existing record is used exclusively. + * + * The routine MUST NOT modify any of its arguments! + * + * The return value is a pointer to the created module-specific structure + * containing the merged values. + */ +static void *ptt_merge_server_config(pool *p, void *server1_conf, + void *server2_conf) +{ + + excfg *merged_config = (excfg *) ap_pcalloc(p, sizeof(excfg)); + excfg *s1conf = (excfg *) server1_conf; + excfg *s2conf = (excfg *) server2_conf; + char *note; + + /* + * Our inheritance rules are our own, and part of our module's semantics. + * Basically, just note whence we came. + */ + merged_config->cmode = + (s1conf->cmode == s2conf->cmode) ? s1conf->cmode : CONFIG_MODE_COMBO; + merged_config->local = s2conf->local; + merged_config->congenital = (s1conf->congenital | s1conf->local); + merged_config->loc = ap_pstrdup(p, s2conf->loc); + /* + * Trace our call, including what we were asked to merge. + */ + note = ap_pstrcat(p, "ptt_merge_server_config(\"", s1conf->loc, "\",\"", + s2conf->loc, "\")", NULL); + trace_add(NULL, NULL, merged_config, note); + return (void *) merged_config; +} + +/* + * This routine is called after the request has been read but before any other + * phases have been processed. This allows us to make decisions based upon + * the input header fields. + * + * The return value is OK, DECLINED, or HTTP_mumble. If we return OK, no + * further modules are called for this phase. + */ +static int ptt_post_read_request(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + /* + * We don't actually *do* anything here, except note the fact that we were + * called. + */ + trace_add(r->server, r, cfg, "ptt_post_read_request()"); + return DECLINED; +} + +/* + * This routine gives our module an opportunity to translate the URI into an + * actual filename. If we don't do anything special, the server's default + * rules (Alias directives and the like) will continue to be followed. + * + * The return value is OK, DECLINED, or HTTP_mumble. If we return OK, no + * further modules are called for this phase. + */ +static int ptt_translate_handler(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + /* + * We don't actually *do* anything here, except note the fact that we were + * called. + */ + trace_add(r->server, r, cfg, "ptt_translate_handler()"); + return DECLINED; +} + +/* + * This routine is called to check the authentication information sent with + * the request (such as looking up the user in a database and verifying that + * the [encrypted] password sent matches the one in the database). + * + * The return value is OK, DECLINED, or some HTTP_mumble error (typically + * HTTP_UNAUTHORIZED). If we return OK, no other modules are given a chance + * at the request during this phase. + */ +static int ptt_check_user_id(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + /* + * Don't do anything except log the call. + */ + trace_add(r->server, r, cfg, "ptt_check_user_id()"); + return DECLINED; +} + +/* + * This routine is called to check to see if the resource being requested + * requires authorisation. + * + * The return value is OK, DECLINED, or HTTP_mumble. If we return OK, no + * other modules are called during this phase. + * + * If *all* modules return DECLINED, the request is aborted with a server + * error. + */ +static int ptt_auth_checker(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + /* + * Log the call and return OK, or access will be denied (even though we + * didn't actually do anything). + */ + trace_add(r->server, r, cfg, "ptt_auth_checker()"); + return DECLINED; +} + +/* + * This routine is called to check for any module-specific restrictions placed + * upon the requested resource. (See the mod_access module for an example.) + * + * The return value is OK, DECLINED, or HTTP_mumble. All modules with an + * handler for this phase are called regardless of whether their predecessors + * return OK or DECLINED. The first one to return any other status, however, + * will abort the sequence (and the request) as usual. + */ +static int ptt_access_checker(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + trace_add(r->server, r, cfg, "ptt_access_checker()"); + return DECLINED; +} + +/* + * This routine is called to determine and/or set the various document type + * information bits, like Content-type (via r->content_type), language, et + * cetera. + * + * The return value is OK, DECLINED, or HTTP_mumble. If we return OK, no + * further modules are given a chance at the request for this phase. + */ +static int ptt_type_checker(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + /* + * Log the call, but don't do anything else - and report truthfully that + * we didn't do anything. + */ + trace_add(r->server, r, cfg, "ptt_type_checker()"); + return DECLINED; +} + +/* + * This routine is called to perform any module-specific fixing of header + * fields, et cetera. It is invoked just before any content-handler. + * + * The return value is OK, DECLINED, or HTTP_mumble. If we return OK, the + * server will still call any remaining modules with an handler for this + * phase. + */ +static int ptt_fixer_upper(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + /* + * Log the call and exit. + */ + trace_add(r->server, r, cfg, "ptt_fixer_upper()"); + return OK; +} + +/* + * This routine is called to perform any module-specific logging activities + * over and above the normal server things. + * + * The return value is OK, DECLINED, or HTTP_mumble. If we return OK, any + * remaining modules with an handler for this phase will still be called. + */ +static int ptt_logger(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + trace_add(r->server, r, cfg, "ptt_logger()"); + return DECLINED; +} + +/* + * This routine is called to give the module a chance to look at the request + * headers and take any appropriate specific actions early in the processing + * sequence. + * + * The return value is OK, DECLINED, or HTTP_mumble. If we return OK, any + * remaining modules with handlers for this phase will still be called. + */ +static int ptt_header_parser(request_rec *r) +{ + + excfg *cfg; + + cfg = our_dconfig(r); + trace_add(r->server, r, cfg, "ptt_header_parser()"); + return DECLINED; +} + +/*--------------------------------------------------------------------------*/ +/* */ +/* All of the routines have been declared now. Here's the list of */ +/* directives specific to our module, and information about where they */ +/* may appear and how the command parser should pass them to us for */ +/* processing. Note that care must be taken to ensure that there are NO */ +/* collisions of directive names between modules. */ +/* */ +/*--------------------------------------------------------------------------*/ +/* + * List of directives specific to our module. + */ +static const command_rec ptt_cmds[] = +{ + { + "ptt", /* directive name */ + cmd_ptt, /* config action routine */ + NULL, /* argument to include in call */ + OR_OPTIONS, /* where available */ + NO_ARGS, /* arguments */ + "Example directive - no arguments" + /* directive description */ + }, + {NULL} +}; + +/*--------------------------------------------------------------------------*/ +/* */ +/* Now the list of content handlers available from this module. */ +/* */ +/*--------------------------------------------------------------------------*/ +/* + * List of content handlers our module supplies. Each handler is defined by + * two parts: a name by which it can be referenced (such as by + * {Add,Set}Handler), and the actual routine name. The list is terminated by + * a NULL block, since it can be of variable length. + * + * Note that content-handlers are invoked on a most-specific to least-specific + * basis; that is, a handler that is declared for "text/plain" will be + * invoked before one that was declared for "text / *". Note also that + * if a content-handler returns anything except DECLINED, no other + * content-handlers will be called. + */ +static const handler_rec ptt_handlers[] = +{ + {"ptt-handler", ptt_handler}, + {NULL} +}; + +/*--------------------------------------------------------------------------*/ +/* */ +/* Finally, the list of callback routines and data structures that */ +/* provide the hooks into our module from the other parts of the server. */ +/* */ +/*--------------------------------------------------------------------------*/ +/* + * Module definition for configuration. If a particular callback is not + * needed, replace its routine name below with the word NULL. + * + * The number in brackets indicates the order in which the routine is called + * during request processing. Note that not all routines are necessarily + * called (such as if a resource doesn't have access restrictions). + */ +module MODULE_VAR_EXPORT ptt_module = +{ + STANDARD_MODULE_STUFF, + ptt_init, /* module initializer */ + ptt_create_dir_config, /* per-directory config creator */ + ptt_merge_dir_config, /* dir config merger */ + ptt_create_server_config, /* server config creator */ + ptt_merge_server_config, /* server config merger */ + ptt_cmds, /* command table */ + ptt_handlers, /* [9] list of handlers */ + ptt_translate_handler, /* [2] filename-to-URI translation */ + ptt_check_user_id, /* [5] check/validate user_id */ + ptt_auth_checker, /* [6] check user_id is valid *here* */ + ptt_access_checker, /* [4] check access by host address */ + ptt_type_checker, /* [7] MIME type checker/setter */ + ptt_fixer_upper, /* [8] fixups */ + ptt_logger, /* [10] logger */ +#if MODULE_MAGIC_NUMBER >= 19970103 + ptt_header_parser, /* [3] header parser */ +#endif +#if MODULE_MAGIC_NUMBER >= 19970719 + ptt_child_init, /* process initializer */ +#endif +#if MODULE_MAGIC_NUMBER >= 19970728 + ptt_child_exit, /* process exit/cleanup */ +#endif +#if MODULE_MAGIC_NUMBER >= 19970902 + ptt_post_read_request /* [1] post read_request handling */ +#endif +}; diff --git a/web/mod_ptt.h b/web/mod_ptt.h new file mode 100644 index 00000000..2d7946b9 --- /dev/null +++ b/web/mod_ptt.h @@ -0,0 +1,17 @@ +#include "httpd.h" +#include "http_config.h" +#include "http_core.h" +#include "http_log.h" +#include "http_main.h" +#include "http_protocol.h" +#include "util_script.h" +#include "config.h" +#include "pttstruct.h" +#include "modes.h" +#include "common.h" +#include "proto.h" + +#include <stdio.h> + + +#define PATHLEN 512 diff --git a/web/mytime.h b/web/mytime.h new file mode 100755 index 00000000..c9e4f29d --- /dev/null +++ b/web/mytime.h @@ -0,0 +1,189 @@ +/* Ptt : 常用函式整理 */ + +/* + * 時間處理 + */ +#include <time.h> +#ifdef _BBS_UTIL + #undef pstrdup + #define pstrdup(p, str) strdup(str) +#endif + +int +mygetdate(time_t clock, int *year, int *mon, int *mday, int *week) +{ + struct tm *mytm = localtime(&clock); + if(year) *year = mytm->tm_year; /* 98 */ + if(mon) *mon = mytm->tm_mon + 1; /* 1~12 */ + if(mday) *mday = mytm->tm_mday; /* 1~31 */ + if(week) *week = mytm->tm_wday; /* 0~6 */ + return 0; +} + +char * +Cdatenum_slash(pool *p,time_t *clock) /* 98/04/21 */ +{ + char foo[22]; + struct tm *mytm = localtime(clock); + strftime(foo, 22, "%y/%m/%d", mytm); + return pstrdup(p, foo); +} + +char * +Cdatenum(pool *p,time_t *clock) /* 980421 */ +{ + char foo[22]; + struct tm *mytm = localtime(clock); + strftime(foo, 22, "%y%m%d", mytm); + return pstrdup(p, foo); +} + + +#ifndef _BBS_UTIL +char * +Cdatefullnum(pool *p,time_t *clock) /* 19980421 */ +{ + char foo[22]; + struct tm *mytm = localtime(clock); + strftime(foo, 22, "%Y%m%d", mytm); + return pstrdup(p, foo); +} +#else +char * +Cdatefullnum(char *p,time_t *clock) /* 19980421 */ +{ + static char foo[22]; + struct tm *mytm = localtime(clock); + strftime(foo, 22, "%Y%m%d", mytm); + return foo; +} +#endif + +char * +Cdate(char *p,time_t *clock) +{ + char foo[22]; + struct tm *mytm = localtime(clock); + strftime(foo, 22, "%D %T %a", mytm); + return pstrdup(p, foo); +} + +char * +Cdatelite(char *p,time_t *clock) +{ + char foo[18]; + struct tm *mytm = localtime(clock); + strftime(foo, 18, "%D %T", mytm); + return pstrdup(p, foo); +} + +char * +whattime(char *p,time_t *clock) +{ + char foo[18]; + struct tm *mytm = localtime(clock); + strftime(foo, 18, "%H:%M:%S", mytm); + return pstrdup(p, foo); +} + +char * +whatyear(char *p,time_t *clock) +{ + char foo[6]; + struct tm *mytm = localtime(clock); + strftime(foo, 6, "%Y", mytm); + return pstrdup(p, foo); +} + +char * +whatmonth(char *p,time_t *clock) +{ + char foo[4]; + struct tm *mytm = localtime(clock); + strftime(foo, 4, "%m", mytm); + return pstrdup(p, foo); +} + +char * +whatday(char *p,time_t *clock) +{ + char foo[4]; + struct tm *mytm = localtime(clock); + strftime(foo, 4, "%d", mytm); + return pstrdup(p, foo); +} + +char * +C_week(pool *p, int a) +{ + char foo[5]=""; + switch(a) + { + case 0: + case 7: + strcpy(foo,"日"); + break; + case 1: + strcpy(foo,"一"); + break; + case 2: + strcpy(foo,"二"); + break; + case 3: + strcpy(foo,"三"); + break; + case 4: + strcpy(foo,"四"); + break; + case 5: + strcpy(foo,"五"); + break; + case 6: + strcpy(foo,"六"); + break; + } + return pstrdup(p, foo); +} + +char * +whatweek(char *p,time_t *clock) +{ + struct tm *mytm = localtime(clock); + return C_week(p, mytm->tm_wday); +} + +char * +whathour(char *p,time_t *clock) +{ + char foo[4]=""; + struct tm *mytm = localtime(clock); + strftime(foo, 6, "%H", mytm); + return pstrdup(p, foo); +} + +char * +whatminute(char *p,time_t *clock) +{ + char foo[4]=""; + struct tm *mytm = localtime(clock); + strftime(foo, 6, "%M", mytm); + return pstrdup(p, foo); +} + +char * +whatsecond(char *p,time_t *clock) +{ + char foo[4]=""; + struct tm *mytm = localtime(clock); + strftime(foo, 6, "%S", mytm); + return pstrdup(p, foo); +} + +char * +Wholetime(char *p,time_t *clock) /* 19980421 */ +{ + char foo[40]; + struct tm *mytm = localtime(clock); + strftime(foo, 40, "%Y年%m月%d日%H時%M分%S秒", mytm); + return pstrdup(p, foo); +} diff --git a/web/parse_html.c b/web/parse_html.c new file mode 100755 index 00000000..402412de --- /dev/null +++ b/web/parse_html.c @@ -0,0 +1,294 @@ +#include "mod_ptt.h" +#include <time.h> +#include <math.h> +#define KUSERINFO "$userinfo$" +#define KUSERID "$userid$" +#define KUSERNAME "$username$" +#define KUSERMONEY "$usermoney$" +#define KTIMEYEAR "$timeyear$" +#define KTIMEMONTH "$timemonth$" +#define KTIMEMDAY "$timemday$" +#define KTIMEWEEK "$timeweek$" +#define KSERVERTIME "$servertime$" +#define KTIMEHOUR "$hour$" +#define KTIMEMINUTE "$minute$" +#define KTIMESECOND "$second$" +#define KMSGONLOAD "$MSGonLoad$" +#define KFCSONLOAD "$FCSonLoad$" +#define KHTMLTITLE "$HTMLtitle$" +#define KSCROLLTITLE "$SCROLLtitle$" +#define KBGCOLOR "$BGCOLOR$" +#define KBGSOUND "$BGSOUND$" +#define KINCHTML "$file:" + + + +char * +ap_parseline(request_rec *r, const char *str, char *str_substiute[]) { + int i, off=0; + char *strbuf, *po; + pool *p = r->pool; + strbuf = pstrdup(p, str); + + if(str_substiute == NULL) return strbuf; + for(i=0; str_substiute[i]!=NULL; i+=2) + { + off = 0; + while(po = strstr(strbuf + off, str_substiute[i])) + { + *po = 0; + strbuf = pstrcat(p, strbuf, str_substiute[i+1] !=NULL + ? str_substiute[i+1] : "", po+strlen(str_substiute[i]), NULL); + off += str_substiute[i+1] ? strlen(str_substiute[i+1]) : 0; + } + } + return strbuf; +} + +char * +ap_standard_parseline(request_rec *r, char *str) +{ + time_t now = time(NULL); + pool *p = r->pool; + char *str_substiute[]= // 關鍵字的代換表 + { + KUSERID, "ptt", + KUSERNAME, "name", +/* + KTIMEYEAR, whatyear(p,&now), + KTIMEMONTH,whatmonth(p,&now), + KTIMEMDAY, whatday(p,&now), + KTIMEWEEK, whatweek(p,&now), + KSERVERTIME, whattime(p,&now), + KTIMEHOUR, whathour(p,&now), + KTIMEMINUTE, whatminute(p,&now), + KTIMESECOND, whatsecond(p,&now), +*/ + KUSERINFO, NULL, + KUSERMONEY, "100", + NULL,NULL + }; + return ap_parseline(r, str, str_substiute); +} + +int +ap_showfile(request_rec *r, char *filename, char *table[], char *t2[], FILE *fo) +{ + pool *p = r->pool; + FILE *fp = pfopen(p, filename, "r"); + char *str, *incfile, buf[512]; + + if (!fp) { +#if DEBUG + rputs(filename, r); +#endif + return -1; + } + + while (fgets(buf, 512, fp)) + { + + str = ap_standard_parseline(r, + ap_parseline(r, + ap_parseline(r, buf, table), + t2)); + + if ((incfile = strstr(str, KINCHTML)) != NULL) { + incfile += strlen(KINCHTML); + incfile = strtok(incfile, "$"); +#if 0 + if (*incfile != '/') + incfile = ap_pstrcat(p, TEMPLATEDIR "/", incfile, NULL); +#endif + ap_showfile(r, incfile, table, t2, fo); + } else if(fo) fputs(str, fo); + else rputs(str, r); + } + + pfclose(p, fp); + return 0; +} + +char * +add_href(pool *p, char *l) +{ + char *href[] = {"http://", "ftp://", "gopher://", "file://", + "telnet://", "mailto:", NULL}, + *end, url[PATHLEN], *tl, *po; + int i, urllen, off; + + tl = pstrdup(p, l); + + for(i=0; href[i]!=NULL; i++) + { + off = 0; + //Ptt: while 應該用 while 但 while 有bug + if((po = strstr(tl + off, href[i]))) + { + for(end = po; (*end>='&' && *end<='z')||*end=='~' ; end++); + urllen = end - po; + + if(urllen > PATHLEN) + { + off += PATHLEN; continue; + } + + strncpy(url, po, urllen); + *po= 0; + url[urllen] = 0; + tl = psprintf(p, "%s<a href=\"%s\" target=\"%s\">%s</a>%s", tl, + url, "new", url, end); + off += 2 * urllen + 15; + } + } + + return tl; +} + +/* + format: + char *name, void *ptr, size_t length + char *name, int *ptr, -1 + char *name, char **ptr, 0 +*/ +int +GetQueryDatas(request_rec *r, int **table) +{ + int rc, i, match=0, dlen, maxlen; + char *name, *value, *str; + pool *p = r->pool; + + for(i=1; table[i]!=NULL; i+=3) + { + if((int) table[i+1]) *table[i]=0; + else (char *) (*table[i]) = pstrdup(p, ""); + } + do + { + if((rc = unescape(r, &name, &value))<0) break; + for(i=0; table[i]; i+=3) + { + if(!strcmp((char *)table[i], name)) break; + +#if 0 +/* SiE990313 test: 抓 未定義的變數 */ + if(!strcmp((char *)table[i], "$SPARE$")) + { + (char *) (*table[i + 1]) = pstrdup(p, name); + continue; + } +#endif + } + if(table[i] && table[i+1]) + { + if((maxlen = (int) table[i+2]) > 0) + { + if(!*value) continue; + dlen = strlen((char *)table[i+1]); + str = ap_escape_html(p, value); + if(maxlen > dlen) + strexam( + strncat((char *)table[i+1],str,maxlen-dlen) + ); + } + else if((int) table[i+2] == 0) // for file upload + { +// str = ap_escape_html(p, value); + //if(value) + (*table[i+1]) = (int) value; +// else (*table[i+1]) = (int) pstrdup(p,""); + } + else + { + if(!*value) continue; + *(table[i+1]) += atoi(value); + } + match++; + } + } while(rc>0); + return match; +} + + +int +ap_url_redirect(request_rec *r, char *url) +{ + r->status = REDIRECT; + + ap_table_setn(r->headers_out, "Location", pstrdup(r->pool, url)); + return MOVED; + //return REDIRECT, MOVED 或 HTTP_SEE_OTHER 都可 +} + +char * +pint2str(pool* p, int c) +{ + return ap_psprintf(p,"%d",c); +} + +char* +preplace(request_rec *r, char* src, char* sig, char* rep) +{ + char *ptr; + int siglen=strlen(sig), off=0; + + while((ptr = strstr(src+off,sig))) + { + *ptr = 0; + src = pstrcat(r->pool, src, rep, NULL); + off = strlen(src); + src = pstrcat(r->pool, src, ptr+siglen, NULL); + } + return src; +} + +int +hex2dig(char *str) +{ + int base,ret=0,i,len=strlen(str); + + for(i=0; i<len; i++) + { + if(str[i]>='a' && str[i]<='f') base = str[i]-'a'+10; + else if(str[i]>='A' && str[i]<='F') base = str[i]-'A'+10; + else if(str[i]>='0' && str[i]<='9') base = str[i]-'0'; + else return -1; + + ret += base*pow(16,len-i-1); + } + return ret; +} + +char * +pstrncpy(pool* p, char tmp[], int n) +{ + char *ptr; + ptr=pstrdup(p,tmp); + *(ptr+n)=0; + return psprintf(p,"%s",ptr); +} + +char * +GetPathToken(request_rec *r, int count) +{ + char *str, *token, *sepr = "/\\?&"; + int i; + str = pstrdup(r->pool, r->path_info + 1); + token = strtok(str, sepr); + for( i = 1 ; i < count; i++) + { + token = strtok(NULL, sepr); + if(!token) return "-1"; /* Heat:count超過也要考慮 */ + } + return token; +} + + +/* + 個人信件夾檔保管方式: + + mail/@/rec/FF/F/UUDDTT + mail/@/dat/FF/F/UUDDTT + +*/ + |