first commit

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@536 63ad8ddf-47c3-0310-b6dd-a9e9d9715204

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
+
+*/
+