src/mod_chxj.c

   1 /*
   2  * Copyright (C) 2005-2008 Atsushi Konno All rights reserved.
   3  * Copyright (C) 2005 QSDN,Inc. All rights reserved.
   4  *
   5  * Licensed under the Apache License, Version 2.0 (the "License");
   6  * you may not use this file except in compliance with the License.
   7  * You may obtain a copy of the License at
   8  *
   9  *     http://www.apache.org/licenses/LICENSE-2.0
  10  *
  11  * Unless required by applicable law or agreed to in writing, software
  12  * distributed under the License is distributed on an "AS IS" BASIS,
  13  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14  * See the License for the specific language governing permissions and
  15  * limitations under the License.
  16  */
  17 #include <unistd.h>
  18 #include <string.h>
  19 #include <limits.h>
  20 #include <errno.h>
  21
  22 #include "httpd.h"
  23 #include "http_config.h"
  24 #include "http_core.h"
  25 #include "http_protocol.h"
  26 #include "http_log.h"
  27 #include "ap_config.h"
  28 #include "apr_strings.h"
  29 #include "util_filter.h"
  30 #include "apr_buckets.h"
  31 #include "apr_lib.h"
  32 #include "apr_tables.h"
  33 #include "apr_dso.h"
  34 #include "apr_general.h"
  35 #include "apr_pools.h"
  36
  37 #include "mod_chxj.h"
  38 #include "chxj_encoding.h"
  39 #include "qs_ignore_sp.h"
  40 #include "qs_log.h"
  41 #include "qs_malloc.h"
  42 #include "qs_parse_attr.h"
  43 #include "qs_parse_file.h"
  44 #include "qs_parse_string.h"
  45 #include "qs_parse_tag.h"
  46 #include "chxj_load_device_data.h"
  47 #include "chxj_load_emoji_data.h"
  48 #include "chxj_specified_device.h"
  49 #include "chxj_tag_util.h"
  50 #include "chxj_xhtml_mobile_1_0.h"
  51 #include "chxj_hdml.h"
  52 #include "chxj_chtml10.h"
  53 #include "chxj_chtml20.h"
  54 #include "chxj_chtml30.h"
  55 #include "chxj_chtml40.h"
  56 #include "chxj_chtml50.h"
  57 #include "chxj_jhtml.h"
  58 #include "chxj_jxhtml.h"
  59 #include "chxj_img_conv_format.h"
  60 #include "chxj_qr_code.h"
  61 #include "chxj_encoding.h"
  62 #include "chxj_apply_convrule.h"
  63 #include "chxj_cookie.h"
  64 #include "chxj_url_encode.h"
  65 #include "chxj_str_util.h"
  66 #if defined(USE_MYSQL_COOKIE)
  67 #  include "chxj_mysql.h"
  68 #endif
  69 #include "chxj_serf.h"
  70
  71
  72 #define CHXJ_VERSION_PREFIX PACKAGE_NAME "/"
  73 #define CHXJ_VERSION        PACKAGE_VERSION
  74 #define CHXJ_POST_MAX       (0x1000000)
  75
  76 converter_t convert_routine[] = {
  77   {
  78     /* CHXJ_SPEC_UNKNOWN          */
  79     .converter = NULL,
  80     .encoder  = NULL,
  81   },
  82   {
  83     /* CHXJ_SPEC_Chtml_1_0        */
  84     .converter = chxj_convert_chtml10,
  85     .encoder  = chxj_encoding,
  86   },
  87   {
  88     /* CHXJ_SPEC_Chtml_2_0        */
  89     .converter = chxj_convert_chtml20,
  90     .encoder  = chxj_encoding,
  91   },
  92   {
  93     /* CHXJ_SPEC_Chtml_3_0        */
  94     .converter = chxj_convert_chtml30,
  95     .encoder  = chxj_encoding,
  96   },
  97   {
  98     /* CHXJ_SPEC_Chtml_4_0        */
  99     .converter = chxj_convert_chtml40,
 100     .encoder  = chxj_encoding,
 101   },
 102   {
 103     /* CHXJ_SPEC_Chtml_5_0        */
 104     .converter = chxj_convert_chtml50,
 105     .encoder  = chxj_encoding,
 106   },
 107   {
 108     /* CHXJ_SPEC_Chtml_6_0        */
 109     .converter = chxj_convert_chtml50,
 110     .encoder  = chxj_encoding,
 111   },
 112   {
 113     /* CHXJ_SPEC_Chtml_7_0        */
 114     .converter = chxj_convert_chtml50,
 115     .encoder  = chxj_encoding,
 116   },
 117   {
 118     /* CHXJ_SPEC_XHtml_Mobile_1_0 */
 119     .converter = chxj_convert_xhtml_mobile_1_0,
 120     .encoder  = chxj_encoding,
 121   },
 122   {
 123     /* CHXJ_SPEC_Hdml             */
 124     .converter = chxj_convert_hdml,
 125     .encoder  = chxj_encoding,
 126   },
 127   {
 128     /* CHXJ_SPEC_Jhtml            */
 129     .converter = chxj_convert_jhtml,
 130     .encoder  = chxj_encoding,
 131   },
 132   {
 133     /* CHXJ_SPEC_Jxhtml            */
 134     .converter = chxj_convert_jxhtml,
 135     .encoder  = chxj_encoding,
 136   },
 137   {
 138     /* CHXJ_SPEC_HTML             */
 139     .converter = NULL,
 140     .encoder  = NULL,
 141   },
 142 };
 143
 144 static int chxj_convert_input_header(request_rec *r,chxjconvrule_entry *entryp);
 145 static void s_add_cookie_id_if_has_location_header(request_rec *r, cookie_t *cookie);
 146 static void s_clear_cookie_header(request_rec *r, device_table *spec);
 147
 148 /**
 149  * Only when User-Agent is specified, the User-Agent header is camouflaged.
 150  *
 151  * @param r   [i]
 152  */
 153 static apr_status_t
 154 chxj_headers_fixup(request_rec *r)
 155 {
 156   mod_chxj_config*    dconf;
 157   chxjconvrule_entry* entryp;
 158   char*               user_agent;
 159   device_table*       spec;
 160   char                *contentType;
 161   char                *contentLength;
 162
 163   DBG(r, "REQ[%X] start chxj_headers_fixup()", (unsigned int)(apr_size_t)r);
 164   if (r->main) {
 165     DBG(r, "REQ[%X] detect internal redirect.", (unsigned int)(apr_size_t)r);
 166     DBG(r, "REQ[%X] end chxj_headers_fixup()",  (unsigned int)(apr_size_t)r);
 167     return DECLINED;
 168   }
 169
 170   dconf = chxj_get_module_config(r->per_dir_config, &chxj_module);
 171
 172   user_agent = (char*)apr_table_get(r->headers_in, HTTP_USER_AGENT);
 173   spec = chxj_specified_device(r, user_agent);
 174
 175   contentType = (char *)apr_table_get(r->headers_in, "Content-Type");
 176   if (contentType
 177       && strncasecmp("multipart/form-data", contentType, 19) == 0) {
 178     DBG(r, "REQ[%X] detect multipart/form-data ==> no target", (unsigned int)(apr_size_t)r);
 179     DBG(r, "REQ[%X] end chxj_headers_fixup()", (unsigned int)(apr_size_t)r);
 180     return DECLINED;
 181   }
 182   if (r->method_number == M_POST) {
 183     if (!apr_table_get(r->headers_in, "X-Chxj-Forward")) {
 184       s_clear_cookie_header(r, spec);
 185     }
 186   }
 187   else {
 188     s_clear_cookie_header(r, spec);
 189   }
 190
 191   switch(spec->html_spec_type) {
 192   case CHXJ_SPEC_Chtml_1_0:
 193   case CHXJ_SPEC_Chtml_2_0:
 194   case CHXJ_SPEC_Chtml_3_0:
 195   case CHXJ_SPEC_Chtml_4_0:
 196   case CHXJ_SPEC_Chtml_5_0:
 197   case CHXJ_SPEC_Chtml_6_0:
 198   case CHXJ_SPEC_Chtml_7_0:
 199   case CHXJ_SPEC_XHtml_Mobile_1_0:
 200   case CHXJ_SPEC_Hdml:
 201   case CHXJ_SPEC_Jhtml:
 202   case CHXJ_SPEC_Jxhtml:
 203     entryp = chxj_apply_convrule(r, dconf->convrules);
 204     if (! entryp) {
 205       DBG(r, "REQ[%X] end chxj_headers_fixup() (no pattern)", (unsigned int)(apr_size_t)r);
 206       return DECLINED;
 207     }
 208     if (!entryp || !(entryp->action & CONVRULE_ENGINE_ON_BIT)) {
 209       DBG(r, "REQ[%X] end chxj_headers_fixup() (engine off)", (unsigned int)(apr_size_t)r);
 210       return DECLINED;
 211     }
 212
 213     apr_table_setn(r->headers_in,
 214                    CHXJ_HTTP_USER_AGENT,
 215                    user_agent);
 216
 217     if (entryp->user_agent)
 218       apr_table_setn(r->headers_in,
 219                      HTTP_USER_AGENT,
 220                      entryp->user_agent);
 221
 222     chxj_convert_input_header(r,entryp);
 223
 224     break;
 225
 226   default:
 227     DBG(r, "REQ[%X] end chxj_headers_fixup() (not mobile)", (unsigned int)(apr_size_t)r);
 228     return DECLINED;
 229
 230   }
 231
 232
 233   if (r->method_number == M_POST) {
 234     if (! apr_table_get(r->headers_in, "X-Chxj-Forward")) {
 235         DBG(r, "REQ[%X] set Input handler old:[%s] proxyreq:[%d] uri:[%s] filename:[%s]", (unsigned int)(apr_size_t)r, r->handler, r->proxyreq, r->uri, r->filename);
 236         r->proxyreq = PROXYREQ_NONE;
 237         r->handler = apr_psprintf(r->pool, "chxj-input-handler");
 238     }
 239     else {
 240       char *client_ip = (char *)apr_table_get(r->headers_in, CHXJ_HEADER_ORIG_CLIENT_IP);
 241       if (client_ip) {
 242         apr_sockaddr_t *address = NULL;
 243         apr_status_t rv = apr_sockaddr_info_get(&address, ap_get_server_name(r), APR_UNSPEC, ap_get_server_port(r), 0, r->pool);
 244         if (rv != APR_SUCCESS) {
 245           char buf[256];
 246           ERR(r, "REQ[%X] %s:%d apr_sockaddr_info_get() failed: rv:[%d|%s]", (unsigned int)(apr_size_t)r, APLOG_MARK, rv, apr_strerror(rv, buf, 256));
 247           DBG(r, "REQ[%X] end chxj_headers_fixup()", (unsigned int)(apr_size_t)r);
 248           return DECLINED;
 249         }
 250         char *addr;
 251         if (dconf->forward_server_ip) {
 252           addr = dconf->forward_server_ip;
 253         }
 254         else {
 255           apr_sockaddr_ip_get(&addr, address);
 256         }
 257         DBG(r, "REQ[%X] Client IP:[%s] vs Orig Client IP:[%s] vs Server IP:[%s]", (unsigned int)(apr_size_t)r, r->connection->remote_ip, client_ip, addr);
 258         if (strcmp(addr, r->connection->remote_ip) == 0) {
 259           r->connection->remote_ip = apr_pstrdup(r->connection->pool, client_ip);
 260         }
 261         if (! apr_table_get(r->headers_in, "Content-Length")) {
 262           contentLength = (char *)apr_table_get(r->headers_in, "X-Chxj-Content-Length");
 263           if (contentLength) {
 264             apr_table_set(r->headers_in, "Content-Length", contentLength);
 265           }
 266         }
 267       }
 268     }
 269   }
 270
 271   DBG(r, "REQ[%X] end chxj_headers_fixup()", (unsigned int)(apr_size_t)r);
 272
 273   return DECLINED;
 274 }
 275
 276
 277 static void
 278 s_clear_cookie_header(request_rec *r, device_table *spec)
 279 {
 280   switch(spec->html_spec_type) {
 281   case CHXJ_SPEC_Chtml_1_0:
 282   case CHXJ_SPEC_Chtml_2_0:
 283   case CHXJ_SPEC_Chtml_3_0:
 284   case CHXJ_SPEC_Chtml_4_0:
 285   case CHXJ_SPEC_Chtml_5_0:
 286   case CHXJ_SPEC_Chtml_6_0:
 287   case CHXJ_SPEC_Chtml_7_0:
 288   case CHXJ_SPEC_XHtml_Mobile_1_0:
 289   case CHXJ_SPEC_Jhtml:
 290     apr_table_unset(r->headers_in, "Cookie");
 291     break;
 292   default:
 293     break;
 294   }
 295 }
 296
 297
 298 /**
 299  * It converts it from CHTML into XXML corresponding to each model.
 300  *
 301  * @param r   [i]
 302  * @param src [i]   It is former HTML character string.
 303  * @param len [i/o] It is length of former HTML character string.
 304  */
 305 static char *
 306 chxj_convert(request_rec *r, const char **src, apr_size_t *len, device_table *spec, const char *ua, cookie_t **cookiep)
 307 {
 308   char                *user_agent;
 309   char                *dst;
 310   char                *tmp;
 311   cookie_t            *cookie;
 312   mod_chxj_config     *dconf;
 313   chxjconvrule_entry  *entryp;
 314
 315   DBG(r,"REQ[%X] start of chxj_convert() input:[%.*s]", (unsigned int)(apr_size_t)r, (int)*len, *src);
 316   dst  = apr_pstrcat(r->pool, (char *)*src, NULL);
 317
 318   dconf = chxj_get_module_config(r->per_dir_config, &chxj_module);
 319
 320
 321   entryp = chxj_apply_convrule(r, dconf->convrules);
 322
 323   if (!entryp || !(entryp->action & CONVRULE_ENGINE_ON_BIT)) {
 324     DBG(r,"REQ[%X] end of chxj_convert()", (unsigned int)(apr_size_t)r);
 325     return (char *)*src;
 326   }
 327
 328
 329   /*------------------------------------------------------------------------*/
 330   /* get UserAgent from http header                                         */
 331   /*------------------------------------------------------------------------*/
 332   if (entryp->user_agent)
 333     user_agent = (char *)apr_table_get(r->headers_in, CHXJ_HTTP_USER_AGENT);
 334   else
 335     user_agent = (char *)apr_table_get(r->headers_in, HTTP_USER_AGENT);
 336
 337   DBG(r,"REQ[%X] User-Agent:[%s]", (unsigned int)(apr_size_t)r, user_agent);
 338   DBG(r,"REQ[%X] content type is %s", (unsigned int)(apr_size_t)r, r->content_type);
 339
 340
 341   if (  ! STRNCASEEQ('t','T', "text/html", r->content_type, sizeof("text/html")-1)
 342     &&  ! STRNCASEEQ('a','A', "application/xhtml+xml", r->content_type, sizeof("application/xhtml+xml")-1)) {
 343     DBG(r,"REQ[%X] no convert. content type is %s", (unsigned int)(apr_size_t)r, r->content_type);
 344     DBG(r,"REQ[%X] end of chxj_convert()", (unsigned int)(apr_size_t)r);
 345     return (char *)*src;
 346   }
 347
 348   if (ua && user_agent && strcasecmp(user_agent, ua) != 0) {
 349     /* again */
 350     spec = chxj_specified_device(r, user_agent);
 351   }
 352
 353   /*
 354    * save cookie.
 355    */
 356   cookie = NULL;
 357   if (entryp->action & CONVRULE_COOKIE_ON_BIT) {
 358     switch(spec->html_spec_type) {
 359     case CHXJ_SPEC_Chtml_1_0:
 360     case CHXJ_SPEC_Chtml_2_0:
 361     case CHXJ_SPEC_Chtml_3_0:
 362     case CHXJ_SPEC_Chtml_4_0:
 363     case CHXJ_SPEC_Chtml_5_0:
 364     case CHXJ_SPEC_Chtml_6_0:
 365     case CHXJ_SPEC_Chtml_7_0:
 366     case CHXJ_SPEC_XHtml_Mobile_1_0:
 367     case CHXJ_SPEC_Jhtml:
 368       cookie = chxj_save_cookie(r);
 369       break;
 370     default:
 371       break;
 372     }
 373   }
 374
 375   if (!r->header_only) {
 376
 377     tmp = NULL;
 378     if (convert_routine[spec->html_spec_type].encoder)
 379       tmp = convert_routine[spec->html_spec_type].encoder(r,
 380                                                           *src,
 381                                                           (apr_size_t *)len);
 382
 383     if (convert_routine[spec->html_spec_type].converter) {
 384       if (tmp)
 385         dst = convert_routine[spec->html_spec_type].converter(r,
 386                                                               spec,
 387                                                               tmp,
 388                                                               *len,
 389                                                               len,
 390                                                               entryp,
 391                                                               cookie);
 392       else
 393         dst = convert_routine[spec->html_spec_type].converter(r,
 394                                                               spec,
 395                                                               tmp,
 396                                                               *len,
 397                                                               len,
 398                                                               entryp,
 399                                                               cookie);
 400     }
 401   }
 402   ap_set_content_length(r, *len);
 403
 404   if (*len == 0) {
 405     dst = apr_psprintf(r->pool, "\n");
 406     *len = 1;
 407   }
 408   dst[*len] = 0;
 409   if (cookie) {
 410     *cookiep = cookie;
 411   }
 412
 413   DBG(r, "REQ[%X] end of chxj_convert()", (unsigned int)(apr_size_t)r);
 414
 415   return dst;
 416 }
 417
 418
 419 /**
 420  * It converts it from HEADER.
 421  *
 422  * @param r   [i]
 423  */
 424 static int
 425 chxj_convert_input_header(request_rec *r,chxjconvrule_entry *entryp)
 426 {
 427
 428   char       *buff;
 429   char       *buff_pre;
 430   apr_size_t urilen;
 431   char       *result;
 432   char       *pair;
 433   char       *name;
 434   char       *value;
 435   char       *pstate;
 436   char       *vstate;
 437   cookie_t   *cookie = NULL;
 438   int        no_update_flag = 0;
 439
 440   DBG(r, "REQ[%X] start chxj_convert_input_header()", (unsigned int)(apr_size_t)r);
 441
 442   if (! r->args) {
 443     DBG(r, "REQ[%X] r->args=[null]", (unsigned int)(apr_size_t)r);
 444     DBG(r, "REQ[%X] end   chxj_convert_input_header()", (unsigned int)(apr_size_t)r);
 445     return 0;
 446   }
 447   urilen = strlen(r->args);
 448
 449   result = qs_alloc_zero_byte_string(r->pool);
 450
 451   buff_pre = apr_pstrdup(r->pool, r->args);
 452
 453   for (;;) {
 454     char *pair_sv;
 455
 456     pair = apr_strtok(buff_pre, "&", &pstate);
 457     if (pair == NULL)
 458       break;
 459
 460     buff_pre = NULL;
 461
 462     pair_sv = apr_pstrdup(r->pool, pair);
 463
 464     name  = apr_strtok(pair, "=", &vstate);
 465     value = apr_strtok(NULL, "=", &vstate);
 466     if (! name) continue;
 467     if (strcasecmp(name, CHXJ_COOKIE_NOUPDATE_PARAM) == 0 || strcasecmp(name, chxj_url_encode(r->pool, CHXJ_COOKIE_NOUPDATE_PARAM)) == 0) {
 468       DBG(r, "REQ[%X] found cookie no update parameter", (unsigned int)(apr_size_t)r);
 469       no_update_flag++;
 470     }
 471   }
 472
 473   buff = apr_pstrdup(r->pool, r->args);
 474   DBG(r, "r->args=[%s]", buff);
 475
 476   /* _chxj_dmy */
 477   /* _chxj_c_ */
 478   /* _chxj_r_ */
 479   /* _chxj_s_ */
 480   for (;;) {
 481     char *pair_sv;
 482
 483     pair = apr_strtok(buff, "&", &pstate);
 484     if (pair == NULL)
 485       break;
 486
 487     buff = NULL;
 488
 489     pair_sv = apr_pstrdup(r->pool, pair);
 490
 491     name  = apr_strtok(pair, "=", &vstate);
 492     value = apr_strtok(NULL, "=", &vstate);
 493     if (! name) continue;
 494     if (strncasecmp(name, "_chxj", 5) != 0 && strncasecmp(name, "%5Fchxj", sizeof("%5Fchxj")-1) != 0) {
 495       if (strlen(result) != 0)
 496         result = apr_pstrcat(r->pool, result, "&", NULL);
 497
 498       if (strcasecmp(entryp->encoding, "NONE") != 0) {
 499         apr_size_t dlen;
 500         char *dvalue;
 501         char *dname;
 502
 503         if (value && *value != 0) {
 504           value = chxj_url_decode(r->pool, value);
 505           dlen   = strlen(value);
 506           DBG(r, "************ before encoding[%s]", value);
 507
 508           dvalue = chxj_rencoding(r, value, &dlen);
 509           dvalue = chxj_url_encode(r->pool, dvalue);
 510
 511           DBG(r, "************ after encoding[%s]", dvalue);
 512         }
 513         else {
 514           dvalue = "";
 515         }
 516
 517         if (name && *name != 0) {
 518           name = chxj_url_decode(r->pool, name);
 519           dlen = strlen(name);
 520           dname = chxj_rencoding(r, name, &dlen);
 521           dname = chxj_url_encode(r->pool, dname);
 522         }
 523         else {
 524           dname = "";
 525         }
 526
 527         result = apr_pstrcat(r->pool, result, dname, "=", dvalue, NULL);
 528       }
 529       else {
 530         if (strcmp(name, pair_sv) != 0)
 531           result = apr_pstrcat(r->pool, result, name, "=", value, NULL);
 532         else
 533           result = apr_pstrcat(r->pool, result, name, NULL);
 534       }
 535     }
 536     else
 537     if ( (strncasecmp(name, "_chxj_c_", 8) == 0 || strncasecmp(name, "%5Fchxj%5Fc%5F", sizeof("%5Fchxj%5Fc%5F")-1) == 0)
 538       || (strncasecmp(name, "_chxj_r_", 8) == 0 || strncasecmp(name, "%5Fchxj%5Fr%5F", sizeof("%5Fchxj%5Fr%5F")-1) == 0)
 539       || (strncasecmp(name, "_chxj_s_", 8) == 0 || strncasecmp(name, "%5Fchxj%5Fs%5F", sizeof("%5Fchxj%5Fs%5F")-1) == 0)) {
 540       if (value == NULL)
 541         continue;
 542
 543       if (strlen(value) == 0)
 544         continue;
 545
 546       if (strlen(result) != 0)
 547         result = apr_pstrcat(r->pool, result, "&", NULL);
 548
 549       result = apr_pstrcat(r->pool, result, &name[8], "=", value, NULL);
 550     }
 551     else
 552     if (strcasecmp(name, CHXJ_COOKIE_PARAM) == 0 || strcasecmp(name, "%5Fchxj%5Fcc") == 0) {
 553       if (! cookie) {
 554         apr_table_unset(r->headers_in, "Cookie");
 555         DBG(r, "REQ[%X] found cookie parameter[%s]",    (unsigned int)(apr_size_t)r, value);
 556         DBG(r, "REQ[%X] call start chxj_load_cookie()", (unsigned int)(apr_size_t)r);
 557         cookie_lock_t *lock = chxj_cookie_lock(r);
 558         cookie = chxj_load_cookie(r, value);
 559         DBG(r, "REQ[%X] call end   chxj_load_cookie()", (unsigned int)(apr_size_t)r);
 560         if (! no_update_flag && cookie) {
 561           chxj_update_cookie(r, cookie);
 562         }
 563         chxj_cookie_unlock(r, lock);
 564       }
 565       if (cookie && cookie->cookie_id) {
 566         if (strlen(result) != 0)
 567           result = apr_pstrcat(r->pool, result, "&", NULL);
 568         result = apr_pstrcat(r->pool, result, name, "=", cookie->cookie_id, NULL);
 569       }
 570     }
 571     else
 572     if (strcasecmp(name, CHXJ_COOKIE_NOUPDATE_PARAM) == 0) {
 573       if (strlen(result) != 0)
 574         result = apr_pstrcat(r->pool, result, "&", NULL);
 575       result = apr_pstrcat(r->pool, result, name, "=", value, NULL);
 576     }
 577   }
 578   apr_table_setn(r->headers_in, "X-Chxj-Cookie-No-Update", "true");
 579   if (! no_update_flag) {
 580     result = apr_pstrcat(r->pool, result, "&_chxj_nc=true", NULL);
 581   }
 582   r->args = result;
 583
 584   DBG(r, "REQ[%X] result r->args=[%s]",               (unsigned int)(apr_size_t)r, r->args);
 585   DBG(r, "REQ[%X] end   chxj_convert_input_header()", (unsigned int)(apr_size_t)r);
 586   return 0;
 587 }
 588
 589
 590 /**
 591  * It converts it from POSTDATA .
 592  *
 593  * @param r   [i]
 594  * @param src [i]   It is POSTDATA character string.
 595  * @param len [i/o] It is length of former HTML character string.
 596  */
 597 static char *
 598 chxj_input_convert(
 599   request_rec         *r,
 600   const char          **src,
 601   apr_size_t          *len,
 602   chxjconvrule_entry  *entryp)
 603 {
 604   char     *pair;
 605   char     *name;
 606   char     *value;
 607   char     *pstate;
 608   char     *vstate;
 609   char     *s;
 610   char     *result;
 611   cookie_t *cookie = NULL;
 612   char     *buff_pre;
 613   int      no_update_flag = 0;
 614   apr_size_t ii;
 615   apr_size_t ilen = 0;
 616   apr_pool_t *pool;
 617
 618   DBG(r, "REQ[%X] start of chxj_input_convert()", (unsigned int)(apr_size_t)r);
 619
 620   if (! *src) {
 621     DBG(r, "REQ[%X] end of chxj_input_convert() (input is null)", (unsigned int)(apr_size_t)r);
 622     return apr_pstrdup(r->pool, "");
 623   }
 624
 625   apr_pool_create(&pool, r->pool);
 626
 627   s        = apr_pstrdup(pool, *src);
 628   ilen     = strlen(s);
 629   buff_pre = apr_pstrdup(pool, *src);
 630
 631   result   = qs_alloc_zero_byte_string(pool);
 632
 633   DBG(r, "REQ[%X] +-------------------------------------------------------------------+", (unsigned int)(apr_size_t)r);
 634   DBG(r, "REQ[%X] | BEFORE input convert source                                       |", (unsigned int)(apr_size_t)r);
 635   DBG(r, "REQ[%X] +-------------------------------------------------------------------+", (unsigned int)(apr_size_t)r);
 636   for (ii=0; ii<ilen-64; ii+=64) {
 637     DBG(r, "REQ[%X] | [%-*.*s] |", (unsigned int)(apr_size_t)r, 64, 64, &s[ii]);
 638   }
 639   DBG(r, "REQ[%X] | [%-*.*s] |", (unsigned int)(apr_size_t)r, 64, 64, &s[ii]);
 640   DBG(r, "REQ[%X] +--------------------------------------------------------------------+", (unsigned int)(apr_size_t)r);
 641
 642   for (;;) {
 643     char *pair_sv;
 644
 645     pair = apr_strtok(buff_pre, "&", &pstate);
 646     if (pair == NULL)
 647       break;
 648
 649     buff_pre = NULL;
 650
 651     pair_sv = apr_pstrdup(pool, pair);
 652
 653     name  = apr_strtok(pair, "=", &vstate);
 654     value = apr_strtok(NULL, "=", &vstate);
 655     if (! name) continue;
 656     if (strcasecmp(name, CHXJ_COOKIE_NOUPDATE_PARAM) == 0 || strcasecmp(name, chxj_url_encode(r->pool, CHXJ_COOKIE_NOUPDATE_PARAM)) == 0) {
 657       DBG(r, "REQ[%X] found cookie no update parameter", (unsigned int)(apr_size_t)r);
 658       no_update_flag++;
 659     }
 660   }
 661
 662   /* _chxj_dmy */
 663   /* _chxj_c_ */
 664   /* _chxj_r_ */
 665   /* _chxj_s_ */
 666   for (;;) {
 667     pair = apr_strtok(s, "&", &pstate);
 668     if (pair == NULL)
 669       break;
 670     s = NULL;
 671
 672     name  = apr_strtok(pair, "=", &vstate);
 673     value = apr_strtok(NULL, "=", &vstate);
 674     if (! name) continue;
 675     if (strncasecmp(name, "_chxj", 5) != 0 && strncasecmp(name, "%5Fchxj", sizeof("%5Fchxj")-1) != 0) {
 676       if (strlen(result) != 0)
 677         result = apr_pstrcat(pool, result, "&", NULL);
 678
 679       if (strcasecmp(entryp->encoding, "NONE") != 0) {
 680         apr_size_t dlen;
 681         char *dvalue;
 682         char *dname;
 683
 684         if (value && *value != 0) {
 685           value = chxj_url_decode(pool, value);
 686           dlen   = strlen(value);
 687           dvalue = chxj_rencoding(r, value, &dlen);
 688           dvalue = chxj_url_encode(pool, dvalue);
 689         }
 690         else {
 691           dvalue = "";
 692         }
 693
 694         if (name && *name != 0) {
 695           name = chxj_url_decode(pool, name);
 696           dlen = strlen(name);
 697           dname = chxj_rencoding(r, name, &dlen);
 698           dname = chxj_url_encode(pool, dname);
 699         }
 700         else {
 701           dname = "";
 702         }
 703
 704         result = apr_pstrcat(pool, result, dname, "=", dvalue, NULL);
 705       }
 706       else {
 707         result = apr_pstrcat(pool, result, name, "=", value, NULL);
 708       }
 709     }
 710     else
 711     if ( (strncasecmp(name, "_chxj_c_", 8) == 0 || strncasecmp(name, "%5Fchxj%5Fc%5F", sizeof("%5Fchxj%5Fc%5F")-1) == 0)
 712       || (strncasecmp(name, "_chxj_r_", 8) == 0 || strncasecmp(name, "%5Fchxj%5Fr%5F", sizeof("%5Fchxj%5Fr%5F")-1) == 0)
 713       || (strncasecmp(name, "_chxj_s_", 8) == 0 || strncasecmp(name, "%5Fchxj%5Fs%5F", sizeof("%5Fchxj%5Fs%5F")-1) == 0)) {
 714       if (value == NULL)
 715         continue;
 716
 717       if (strlen(value) == 0)
 718         continue;
 719
 720       if (strlen(result) != 0)
 721         result = apr_pstrcat(pool, result, "&", NULL);
 722
 723       if (strcasecmp(entryp->encoding, "NONE") != 0 && value && strlen(value)) {
 724         apr_size_t dlen;
 725         char       *dvalue;
 726
 727         dlen   = strlen(value);
 728         value = chxj_url_decode(pool, value);
 729         dvalue = chxj_rencoding(r, value, &dlen);
 730         dvalue = chxj_url_encode(pool,dvalue);
 731         result = apr_pstrcat(pool, result, &name[8], "=", dvalue, NULL);
 732
 733       }
 734       else {
 735         result = apr_pstrcat(pool, result, &name[8], "=", value, NULL);
 736       }
 737     }
 738     else
 739     if (strcasecmp(name, CHXJ_COOKIE_PARAM) == 0 || strcasecmp(name, "%5Fchxj%5Fcc") == 0) {
 740       if (! cookie) {
 741         apr_table_unset(r->headers_in, "Cookie");
 742         DBG(r, "REQ[%X] found cookie parameter[%s]",    (unsigned int)(apr_size_t)r, value);
 743         DBG(r, "REQ[%X] call start chxj_load_cookie()", (unsigned int)(apr_size_t)r);
 744         cookie_lock_t *lock = chxj_cookie_lock(r);
 745         cookie = chxj_load_cookie(r, value);
 746         DBG(r, "REQ[%X] call end   chxj_load_cookie()", (unsigned int)(apr_size_t)r);
 747         if (! no_update_flag && cookie) {
 748           chxj_update_cookie(r, cookie);
 749         }
 750         chxj_cookie_unlock(r, lock);
 751       }
 752       if (cookie && cookie->cookie_id) {
 753         if (strlen(result) != 0)
 754           result = apr_pstrcat(pool, result, "&", NULL);
 755         result = apr_pstrcat(pool, result, name, "=", cookie->cookie_id, NULL);
 756       }
 757     }
 758     else
 759     if (strcasecmp(name, CHXJ_COOKIE_NOUPDATE_PARAM) == 0) {
 760       if (strlen(result) != 0)
 761         result = apr_pstrcat(pool, result, "&", NULL);
 762       result = apr_pstrcat(pool, result, name, "=", value, NULL);
 763     }
 764     else
 765     if ( strncasecmp(name, CHXJ_QUERY_STRING_PARAM_PREFIX,     sizeof(CHXJ_QUERY_STRING_PARAM_PREFIX)-1) == 0) {
 766       apr_size_t dlen;
 767       char*      dvalue;
 768       dlen   = strlen(value);
 769       if (dlen && value) {
 770         value = chxj_url_decode(pool, value);
 771         dvalue = chxj_rencoding(r, value, &dlen);
 772         dvalue = chxj_url_encode(pool,dvalue);
 773         if (r->args && strlen(r->args) > 0) {
 774           r->args = apr_pstrcat(pool, r->args, "&", &name[sizeof(CHXJ_QUERY_STRING_PARAM_PREFIX)-1], "=", dvalue, NULL);
 775         }
 776         else {
 777           r->args = apr_pstrcat(pool, &name[sizeof(CHXJ_QUERY_STRING_PARAM_PREFIX)-1], "=", dvalue, NULL);
 778         }
 779       }
 780     }
 781     else
 782     if (strncasecmp(name, CHXJ_QUERY_STRING_PARAM_PREFIX_ENC, sizeof(CHXJ_QUERY_STRING_PARAM_PREFIX_ENC)-1) == 0) {
 783       apr_size_t dlen;
 784       char*      dvalue;
 785       dlen   = strlen(value);
 786       if (dlen && value) {
 787         value = chxj_url_decode(pool, value);
 788         dvalue = chxj_rencoding(r, value, &dlen);
 789         dvalue = chxj_url_encode(pool,dvalue);
 790         if (r->args && strlen(r->args) > 0) {
 791           r->args = apr_pstrcat(pool, r->args, "&", &name[sizeof(CHXJ_QUERY_STRING_PARAM_PREFIX_ENC)-1], "=", dvalue, NULL);
 792         }
 793         else {
 794           r->args = apr_pstrcat(pool, &name[sizeof(CHXJ_QUERY_STRING_PARAM_PREFIX_ENC)-1], "=", dvalue, NULL);
 795         }
 796       }
 797     }
 798     DBG(r, "REQ[%X] ************************ name:[%s]", (unsigned int)(apr_size_t)r, name);
 799   }
 800   *len = strlen(result);
 801   apr_table_setn(r->headers_in, "X-Chxj-Cookie-No-Update", "true");
 802   if (! no_update_flag) {
 803     result = apr_pstrcat(pool, result, "&_chxj_nc=true", NULL);
 804   }
 805
 806   DBG(r, "REQ[%X] AFTER input convert result = [%s]", (unsigned int)(apr_size_t)r, result);
 807   DBG(r, "REQ[%X] end chxj_input_convert()", (unsigned int)(apr_size_t)r);
 808
 809   return result;
 810 }
 811
 812
 813 /**
 814  * The received data is returned to the filter.
 815  *
 816  * @param f    [i/o] It is a filter.
 817  * @param data [i]   It is data returned to the filter.
 818  * @param len  [i]   It is length of the data returned to the filter.
 819  */
 820 static apr_status_t
 821 pass_data_to_filter(ap_filter_t *f, const char *data,
 822                                         apr_size_t len)
 823 {
 824   request_rec         *r = f->r;
 825   conn_rec            *c = r->connection;
 826   apr_status_t        rv;
 827   apr_bucket_brigade  *bb;
 828   apr_bucket          *b;
 829
 830   DBG(r, "start pass_data_to_filter()");
 831
 832   bb = apr_brigade_create(r->pool, c->bucket_alloc);
 833   b  = apr_bucket_transient_create(data, len, c->bucket_alloc);
 834
 835   APR_BRIGADE_INSERT_TAIL(bb, b);
 836   b = apr_bucket_eos_create(f->c->bucket_alloc);
 837   APR_BRIGADE_INSERT_TAIL(bb, b);
 838
 839   rv = ap_pass_brigade(f->next, bb);
 840   if (rv != APR_SUCCESS) {
 841     DBG(r, "ap_pass_brigade()");
 842     return rv;
 843   }
 844
 845   DBG(r, "end pass_data_to_filter()");
 846
 847   return rv;
 848 }
 849
 850
 851 /**
 852  * It is the main loop of the output filter.
 853  *
 854  * @param f   [i/o] It is a filter.
 855  * @param bb  [i]
 856  */
 857 static apr_status_t
 858 chxj_output_filter(ap_filter_t *f, apr_bucket_brigade *bb)
 859 {
 860   request_rec         *r;
 861   apr_status_t        rv;
 862   apr_bucket          *b;
 863   const char          *data;
 864   char                *user_agent = NULL;
 865   apr_size_t          len;
 866   mod_chxj_ctx        *ctx = (mod_chxj_ctx *)f->ctx;
 867   cookie_t            *cookie = NULL;
 868   mod_chxj_config     *dconf;
 869   chxjconvrule_entry  *entryp = NULL;
 870   device_table        *spec = NULL;
 871   apr_pool_t          *pool;
 872
 873   DBG(f->r, "start of chxj_output_filter()");
 874   r  = f->r;
 875   rv = APR_SUCCESS;
 876
 877   apr_pool_create(&pool, r->pool);
 878
 879   entryp = ctx->entryp;
 880   spec   = ctx->spec;
 881   dconf  = chxj_get_module_config(r->per_dir_config, &chxj_module);
 882
 883   if (r->content_type) {
 884     if (! STRNCASEEQ('t','T',"text/html",r->content_type, sizeof("text/html")-1)
 885     &&  ! STRNCASEEQ('t','T',"text/xml", r->content_type, sizeof("text/xml")-1)
 886     &&  ! STRNCASEEQ('a','A',"application/xhtml+xml", r->content_type, sizeof("application/xhtml+xml")-1)
 887     &&  ! (dconf->image == CHXJ_IMG_ON
 888           && ! apr_table_get(r->headers_in, "CHXJ_IMG_CONV")
 889           && STRNCASEEQ('i','I',"image/",  r->content_type, sizeof("image/") -1)
 890           && ( STRCASEEQ('j','J',"jpeg",            &r->content_type[6])         /* JPEG */
 891             || STRCASEEQ('j','J',"jp2",             &r->content_type[6])         /* JPEG2000 */
 892             || STRCASEEQ('j','J',"jpeg2000",        &r->content_type[6])         /* JPEG2000 */
 893             || STRCASEEQ('j','J',"jpeg2000-image",  &r->content_type[6])         /* JPEG2000 */
 894             || STRCASEEQ('x','X',"x-jpeg2000-image",&r->content_type[6])         /* JPEG2000 */
 895             || STRCASEEQ('p','P',"png",             &r->content_type[6])         /* PNG */
 896             || STRCASEEQ('x','X',"x-png",           &r->content_type[6])         /* PNG */
 897             || STRCASEEQ('g','G',"gif",             &r->content_type[6])))) {     /* GIF */
 898
 899       DBG(r, "not convert content-type:[%s] dconf->image:[%d]", r->content_type, dconf->image);
 900       if (entryp->action & CONVRULE_COOKIE_ON_BIT) {
 901         cookie_lock_t *lock = NULL;
 902         DBG(r, "entryp->action == COOKIE_ON_BIT");
 903         switch(spec->html_spec_type) {
 904         case CHXJ_SPEC_Chtml_1_0:
 905         case CHXJ_SPEC_Chtml_2_0:
 906         case CHXJ_SPEC_Chtml_3_0:
 907         case CHXJ_SPEC_Chtml_4_0:
 908         case CHXJ_SPEC_Chtml_5_0:
 909         case CHXJ_SPEC_Chtml_6_0:
 910         case CHXJ_SPEC_Chtml_7_0:
 911         case CHXJ_SPEC_XHtml_Mobile_1_0:
 912         case CHXJ_SPEC_Jhtml:
 913           lock = chxj_cookie_lock(r);
 914           cookie = chxj_save_cookie(r);
 915           s_add_cookie_id_if_has_location_header(r, cookie);
 916           chxj_cookie_unlock(r, lock);
 917           break;
 918         default:
 919           break;
 920         }
 921       }
 922       if (apr_table_get(r->headers_out, "Location") || apr_table_get(r->err_headers_out, "Location")) {
 923         if (r->status < HTTP_MULTIPLE_CHOICES || r->status > HTTP_TEMPORARY_REDIRECT) {
 924           r->status = HTTP_MOVED_TEMPORARILY;
 925         }
 926       }
 927       ap_pass_brigade(f->next, bb);
 928       return APR_SUCCESS;
 929     }
 930   }
 931   else {
 932     DBG(r, "not convert content-type:[(null)]");
 933     ap_pass_brigade(f->next, bb);
 934     return APR_SUCCESS;
 935   }
 936
 937
 938   for (b = APR_BRIGADE_FIRST(bb);
 939        b != APR_BRIGADE_SENTINEL(bb);
 940        b = APR_BUCKET_NEXT(b)) {
 941
 942     if (apr_bucket_read(b, &data, &len, APR_BLOCK_READ) == APR_SUCCESS) {
 943       DBG(r, "read data[%.*s]",(int)len, data);
 944
 945       /*--------------------------------------------------------------------*/
 946       /* append data                                                        */
 947       /*--------------------------------------------------------------------*/
 948       char *tmp;
 949       DBG(r, "append data start");
 950       ctx = (mod_chxj_ctx *)f->ctx;
 951
 952       if (len > 0) {
 953         tmp = apr_palloc(r->pool, ctx->len);
 954         memcpy(tmp, ctx->buffer, ctx->len);
 955
 956         ctx->buffer = apr_palloc(pool, ctx->len + len);
 957
 958         memcpy(ctx->buffer, tmp, ctx->len);
 959         memcpy(&ctx->buffer[ctx->len], data, len);
 960
 961         ctx->len += len;
 962       }
 963       DBG(r, "append data end");
 964     }
 965
 966     if (APR_BUCKET_IS_EOS(b)) {
 967
 968       DBG(r, "eos");
 969       /*----------------------------------------------------------------------*/
 970       /* End Of File                                                          */
 971       /*----------------------------------------------------------------------*/
 972       if (ctx) {
 973         cookie_lock_t *lock = NULL;
 974         ctx = (mod_chxj_ctx *)f->ctx;
 975
 976         DBG(r, "content_type=[%s]", r->content_type);
 977         lock = chxj_cookie_lock(r);
 978
 979         if (spec->html_spec_type != CHXJ_SPEC_UNKNOWN
 980             && r->content_type
 981             && (STRNCASEEQ('a','A',"application/xhtml+xml", r->content_type, sizeof("application/xhtml+xml")-1)
 982             ||  STRNCASEEQ('t','T',"text/html", r->content_type, sizeof("text/html")-1))) {
 983           DBG(r, "detect convert target:[%s]", r->content_type);
 984
 985           if (ctx->len) {
 986             char *tmp;
 987
 988             tmp = apr_palloc(pool, ctx->len + 1);
 989
 990             memset(tmp, 0, ctx->len + 1);
 991             memcpy(tmp, ctx->buffer, ctx->len);
 992
 993             ctx->buffer = chxj_convert(r,
 994                                        (const char **)&tmp,
 995                                        (apr_size_t *)&ctx->len,
 996                                        spec,
 997                                        user_agent, &cookie);
 998
 999           }
1000           else {
1001             ctx->buffer = apr_psprintf(r->pool, "\n");
1002             ctx->len += 1;
1003             ctx->buffer = chxj_convert(r,
1004                                        (const char **)&ctx->buffer,
1005                                        (apr_size_t *)&ctx->len,
1006                                        spec,
1007                                        user_agent, &cookie);
1008
1009           }
1010         }
1011         if (r->content_type
1012             && *(char *)r->content_type == 't'
1013             && strncmp(r->content_type, "text/xml",   8) == 0) {
1014           DBG(r, "text/XML");
1015
1016           Doc       doc;
1017           Node      *root;
1018           Node      *child;
1019           qr_code_t qrcode;
1020           int       sts;
1021
1022           memset(&doc,    0, sizeof(Doc));
1023           memset(&qrcode, 0, sizeof(qr_code_t));
1024           doc.r = r;
1025           doc.parse_mode  = PARSE_MODE_CHTML;
1026           qrcode.doc      = &doc;
1027           qrcode.r        = r;
1028
1029           qs_init_malloc(&doc);
1030
1031           root = qs_parse_string(&doc, ctx->buffer, ctx->len);
1032
1033           sts = 0;
1034           for (child = qs_get_child_node(&doc,root);
1035                child ;
1036                child = qs_get_next_node(&doc,child)) {
1037             char *name = qs_get_node_name(&doc,child);
1038             if (strcasecmp("qrcode",name) == 0) {
1039               sts++;
1040               break;
1041             }
1042           }
1043           qs_all_free(&doc,QX_LOGMARK);
1044           if (sts) {
1045             r->handler = apr_psprintf(r->pool, "chxj-qrcode");
1046             chxj_qrcode_node_to_qrcode(&qrcode, root);
1047             sts = chxj_qrcode_create_image_data(&qrcode, &ctx->buffer, &ctx->len);
1048             if (sts != OK) {
1049               ERR(r, "qrcode create failed.");
1050               chxj_cookie_unlock(r, lock);
1051               return sts;
1052             }
1053             r->content_type = apr_psprintf(r->pool, "image/jpeg");
1054           }
1055         }
1056
1057         if (spec->html_spec_type != CHXJ_SPEC_UNKNOWN
1058             && r->content_type
1059             && ( *r->content_type == 'i' || *r->content_type == 'I')
1060             && dconf->image == CHXJ_IMG_ON
1061             && strncasecmp("image/", r->content_type, 6) == 0
1062             && ( STRCASEEQ('j','J',"jpeg",            &r->content_type[6])         /* JPEG */
1063               || STRCASEEQ('j','J',"jp2",             &r->content_type[6])         /* JPEG2000 */
1064               || STRCASEEQ('j','J',"jpeg2000",        &r->content_type[6])         /* JPEG2000 */
1065               || STRCASEEQ('j','J',"jpeg2000-image",  &r->content_type[6])         /* JPEG2000 */
1066               || STRCASEEQ('x','X',"x-jpeg2000-image",&r->content_type[6])         /* JPEG2000 */
1067               || STRCASEEQ('p','P',"png",             &r->content_type[6])         /* PNG */
1068               || STRCASEEQ('x','X',"x-png",           &r->content_type[6])         /* PNG */
1069               || STRCASEEQ('g','G',"gif",             &r->content_type[6]))) {     /* GIF */
1070           if (ctx->len) {
1071             char *tmp;
1072
1073             tmp = apr_palloc(pool, ctx->len + 1);
1074
1075             memset(tmp, 0, ctx->len + 1);
1076             memcpy(tmp, ctx->buffer, ctx->len);
1077             ctx->buffer =
1078               chxj_convert_image(r,
1079                                   (const char **)&tmp,
1080                                   (apr_size_t *)&ctx->len);
1081             if (ctx->buffer == NULL) {
1082               ctx->buffer = tmp;
1083             }
1084           }
1085         }
1086
1087         apr_table_unset(r->headers_out, "Content-Length");
1088         apr_table_unset(r->err_headers_out, "Content-Length");
1089         ap_set_content_length(r, (apr_off_t)ctx->len);
1090
1091
1092         if (ctx->len > 0) {
1093           DBG(r, "call pass_data_to_filter()");
1094           s_add_cookie_id_if_has_location_header(r, cookie);
1095           if (apr_table_get(r->headers_out, "Location") || apr_table_get(r->err_headers_out, "Location")) {
1096             if (r->status < HTTP_MULTIPLE_CHOICES || r->status > HTTP_TEMPORARY_REDIRECT) {
1097               r->status = HTTP_MOVED_TEMPORARILY;
1098             }
1099           }
1100           chxj_cookie_unlock(r,lock);
1101           rv = pass_data_to_filter(f,
1102                                    (const char *)ctx->buffer,
1103                                    (apr_size_t)ctx->len);
1104         }
1105         else {
1106           chxj_cookie_unlock(r, lock);
1107
1108         }
1109         return rv;
1110       }
1111       else {
1112         DBG(r, " SAVE COOKIE[%x]", entryp->action);
1113
1114         /*
1115          * save cookie.
1116          */
1117         if (entryp->action & CONVRULE_COOKIE_ON_BIT) {
1118           cookie_lock_t *lock = NULL;
1119           DBG(r, "entryp->action == COOKIE_ON_BIT");
1120           switch(spec->html_spec_type) {
1121           case CHXJ_SPEC_Chtml_1_0:
1122           case CHXJ_SPEC_Chtml_2_0:
1123           case CHXJ_SPEC_Chtml_3_0:
1124           case CHXJ_SPEC_Chtml_4_0:
1125           case CHXJ_SPEC_Chtml_5_0:
1126           case CHXJ_SPEC_Chtml_6_0:
1127           case CHXJ_SPEC_Chtml_7_0:
1128           case CHXJ_SPEC_XHtml_Mobile_1_0:
1129           case CHXJ_SPEC_Jhtml:
1130             lock = chxj_cookie_lock(r);
1131             cookie = chxj_save_cookie(r);
1132             /*
1133              * Location Header Check to add cookie parameter.
1134              */
1135             s_add_cookie_id_if_has_location_header(r, cookie);
1136             chxj_cookie_unlock(r, lock);
1137             apr_table_unset(r->headers_out, "Set-Cookie");
1138             apr_table_unset(r->err_headers_out, "Set-Cookie");
1139             break;
1140
1141           default:
1142             break;
1143           }
1144         }
1145         if (apr_table_get(r->headers_out, "Location") || apr_table_get(r->err_headers_out, "Location")) {
1146           if (r->status < HTTP_MULTIPLE_CHOICES || r->status > HTTP_TEMPORARY_REDIRECT) {
1147             r->status = HTTP_MOVED_TEMPORARILY;
1148           }
1149         }
1150         apr_table_setn(r->headers_out, "Content-Length", "0");
1151         DBG(r, "call pass_data_to_filter()");
1152         rv = pass_data_to_filter(f, (const char *)"", (apr_size_t)0);
1153         return rv;
1154       }
1155     }
1156   }
1157   apr_brigade_destroy(bb);
1158
1159   DBG(r, "end of output filter");
1160
1161   return APR_SUCCESS;
1162 }
1163
1164 /**
1165  * Add Cookie_id if it has location header.
1166  */
1167 static void
1168 s_add_cookie_id_if_has_location_header(request_rec *r, cookie_t *cookie)
1169 {
1170   char *location_header = (char *)apr_table_get(r->headers_out, "Location");
1171   if (! location_header) {
1172     location_header = (char *)apr_table_get(r->err_headers_out, "Location");
1173   }
1174   if (cookie && location_header) {
1175     DBG(r, "REQ[%X] Location Header=[%s]", (unsigned int)(apr_size_t)r, location_header);
1176     location_header = chxj_add_cookie_parameter(r,
1177                                                 location_header,
1178                                                 cookie);
1179     apr_table_unset(r->headers_out, "Location");
1180     apr_table_setn(r->headers_out, "Location", location_header);
1181     DBG(r, "REQ[%X] Location Header=[%s]", (unsigned int)(apr_size_t)r, location_header);
1182     if (r->status < HTTP_MULTIPLE_CHOICES || r->status > HTTP_TEMPORARY_REDIRECT) {
1183       r->status = HTTP_MOVED_TEMPORARILY;
1184     }
1185   }
1186 }
1187
1188 /**
1189  * It is the main loop of the input filter handler.
1190  *
1191  */
1192 static apr_status_t
1193 chxj_input_handler(request_rec *r)
1194 {
1195   mod_chxj_config     *dconf;
1196   chxjconvrule_entry  *entryp = NULL;
1197   device_table        *spec   = NULL;
1198   char                *post_data = NULL;
1199   apr_size_t          post_data_len = 0;
1200   char                *response;
1201   char                *user_agent;
1202   apr_pool_t          *pool;
1203   apr_size_t          ii;
1204
1205   DBG(r, "start of chxj_input_handler()");
1206
1207   if (strcasecmp(r->handler, "chxj-input-handler")) {
1208     DBG(r, "end chxj_input_handler()");
1209     return DECLINED;
1210   }
1211   apr_pool_create(&pool, r->pool);
1212
1213   dconf      = chxj_get_module_config(r->per_dir_config, &chxj_module);
1214   user_agent = (char*)apr_table_get(r->headers_in, "User-Agent");
1215   spec       = chxj_specified_device(r, user_agent);
1216   entryp     = chxj_apply_convrule(r, dconf->convrules);
1217
1218   post_data = apr_pstrdup(pool, "");
1219   if (ap_setup_client_block(r, REQUEST_CHUNKED_DECHUNK) == OK) {
1220     if (ap_should_client_block(r)) {
1221       while (post_data_len < CHXJ_POST_MAX) {
1222 #define BUFSZ (256)
1223         char buffer[BUFSZ];
1224         int read_bytes = ap_get_client_block(r, buffer, BUFSZ-1);
1225         if (read_bytes<=0) {
1226           break;
1227         }
1228         buffer[read_bytes] = '\0';
1229         post_data = apr_pstrcat(pool, post_data, buffer, NULL);
1230         post_data_len += read_bytes;
1231 #undef BUFSZ
1232       }
1233     }
1234   }
1235
1236   /*
1237    * now convert.
1238    */
1239   if (post_data_len > 0) {
1240     post_data = chxj_input_convert(r, (const char**)&post_data, (apr_size_t*)&post_data_len, entryp);
1241     DBG(r, "(in:exchange)POSTDATA:[%s]", post_data);
1242   }
1243
1244   char *url_path;
1245   if (dconf->forward_url_base) {
1246     url_path = apr_psprintf(pool, "%s%s", dconf->forward_url_base, r->uri);
1247   }
1248   else {
1249     url_path = apr_psprintf(pool, "%s://%s:%d%s", chxj_apache_run_http_scheme(r), ap_get_server_name(r), ap_get_server_port(r), r->uri);
1250   }
1251   if (r->args) {
1252     url_path = apr_pstrcat(pool, url_path, "?", r->args, NULL);
1253   }
1254   DBG(r, "==> new url_path:[%s]", url_path);
1255
1256   apr_size_t res_len;
1257   apr_table_setn(r->headers_in, CHXJ_HEADER_ORIG_CLIENT_IP, r->connection->remote_ip);
1258   apr_table_unset(r->headers_in, "Content-Length");
1259   apr_table_setn(r->headers_in, "Content-Length", apr_psprintf(pool, "%" APR_SIZE_T_FMT, post_data_len));
1260   response = chxj_serf_post(r, pool, url_path, post_data, post_data_len, 1, &res_len);
1261   DBG(r, "REQ[%X] -------------------------------------------------------", (unsigned int)(apr_size_t)r);
1262   DBG(r, "REQ[%X] response length:[%" APR_SIZE_T_FMT "]", (unsigned int)(apr_size_t)r, res_len);
1263   for (ii=0; ii<res_len/64; ii++) {
1264     DBG(r, "REQ[%X] response:[%.*s]", (unsigned int)(apr_size_t)r, 64, &response[ii*64]);
1265   }
1266   DBG(r, "REQ[%X] -------------------------------------------------------", (unsigned int)(apr_size_t)r);
1267
1268   char *chunked;
1269   if ((chunked = (char *)apr_table_get(r->headers_out, "Transfer-Encoding")) != NULL) {
1270     if (strcasecmp(chunked, "chunked") == 0) {
1271       r->chunked = 1;
1272       apr_table_unset(r->headers_out, "Transfer-Encoding");
1273     }
1274   }
1275   {
1276     apr_pool_t *wpool;
1277     apr_pool_create(&wpool, r->pool);
1278     apr_bucket_brigade *bb;
1279     apr_bucket *e;
1280     apr_status_t rv;
1281     conn_rec *c = r->connection;
1282
1283     bb = apr_brigade_create(wpool, c->bucket_alloc);
1284     e  = apr_bucket_transient_create(response, res_len, c->bucket_alloc);
1285     APR_BRIGADE_INSERT_TAIL(bb, e);
1286     e = apr_bucket_eos_create(c->bucket_alloc);
1287     APR_BRIGADE_INSERT_TAIL(bb, e);
1288     if ((rv = ap_pass_brigade(r->output_filters, bb)) != APR_SUCCESS) {
1289       ERR(r, "REQ[%X] %s:%d failed ap_pass_brigade()", (unsigned int)(apr_size_t)r, APLOG_MARK);
1290       return rv;
1291     }
1292     apr_brigade_cleanup(bb);
1293   }
1294
1295   DBG(r, "REQ[%X] end of chxj_input_handler()", (unsigned int)(apr_size_t)r);
1296   return APR_SUCCESS;
1297 }
1298
1299 static mod_chxj_global_config *
1300 chxj_global_config_create(apr_pool_t *pool, server_rec *s)
1301 {
1302   mod_chxj_global_config *conf;
1303
1304   SDBG(s, "start chxj_global_config_create()");
1305
1306   /*--------------------------------------------------------------------------*/
1307   /* allocate an own subpool which survives server restarts                   */
1308   /*--------------------------------------------------------------------------*/
1309   conf = (mod_chxj_global_config *)apr_palloc(pool,
1310                   sizeof(mod_chxj_global_config));
1311 #if 0
1312   conf->cookie_db_lock = NULL;
1313 #endif
1314   SDBG(s, "end   chxj_global_config_create()");
1315
1316   return conf;
1317 }
1318
1319
1320 /**
1321  * initialize chxj module
1322  */
1323 static int
1324 chxj_init_module(apr_pool_t *p,
1325                  apr_pool_t *UNUSED(plog),
1326                  apr_pool_t *UNUSED(ptemp),
1327                  server_rec *s)
1328 {
1329   void *user_data;
1330   apr_status_t rv;
1331
1332   SDBG(s, "start chxj_init_module()");
1333
1334   apr_pool_userdata_get(&user_data, CHXJ_MOD_CONFIG_KEY, s->process->pool);
1335   SDBG(s, " ");
1336   if (user_data == NULL) {
1337     SDBG(s, " ");
1338     /*
1339      * dummy user_data set.
1340      */
1341     apr_pool_userdata_set(
1342       (const void *)(1),
1343       CHXJ_MOD_CONFIG_KEY,
1344       apr_pool_cleanup_null,
1345       s->process->pool);
1346     SDBG(s, "end  chxj_init_module()");
1347     return OK;
1348   }
1349
1350   ap_add_version_component(p, CHXJ_VERSION_PREFIX CHXJ_VERSION);
1351
1352   if ((rv = apr_proc_mutex_create(&global_cookie_mutex, NULL,  APR_LOCK_FCNTL, s->process->pool)) != APR_SUCCESS) {
1353     char errstr[255];
1354     SERR(s, "%s:%d end chxj_init_module(). mutex create failure.(%d:%s)",APLOG_MARK, rv,apr_strerror(rv,errstr,255));
1355     return HTTP_INTERNAL_SERVER_ERROR;
1356   }
1357
1358   SDBG(s, "end  chxj_init_module()");
1359
1360   return OK;
1361 }
1362
1363
1364 static void
1365 chxj_child_init(apr_pool_t *UNUSED(p), server_rec *s)
1366 {
1367   apr_status_t rv;
1368   SDBG(s, "start chxj_child_init()");
1369   if ((rv = apr_proc_mutex_child_init(&global_cookie_mutex, NULL, s->process->pool)) != APR_SUCCESS) {
1370     char errstr[255];
1371     SERR(s, "%s:%d ERROR end chxj_init_module(). mutex create failure.(%d:%s)", APLOG_MARK, rv,apr_strerror(rv,errstr,255));
1372   }
1373   SDBG(s, "end   chxj_child_init()");
1374 }
1375
1376
1377 /**
1378  * A set structure of each server is generated.
1379  *
1380  * @param p
1381  * @param s
1382  */
1383 static void *
1384 chxj_config_server_create(apr_pool_t *p, server_rec *s)
1385 {
1386   mod_chxj_global_config *gc;
1387
1388   gc = chxj_global_config_create(p,s);
1389
1390   return gc;
1391 }
1392
1393
1394 static int
1395 chxj_translate_name(request_rec *r)
1396 {
1397   DBG(r, "REQ[%X] =======================================================================", (unsigned int)(apr_size_t)r);
1398   DBG(r, "REQ[%X] ", (unsigned int)(apr_size_t)r);
1399   DBG(r, "REQ[%X] START REQUEST (uri:[%s] args:[%s])", (unsigned int)(apr_size_t)r, r->unparsed_uri, r->args ? r->args : "");
1400   DBG(r, "REQ[%X] ", (unsigned int)(apr_size_t)r);
1401   DBG(r, "REQ[%X] =======================================================================", (unsigned int)(apr_size_t)r);
1402   return chxj_trans_name(r);
1403 }
1404
1405
1406 static void
1407 chxj_insert_filter(request_rec *r)
1408 {
1409   char                *user_agent;
1410   device_table        *spec;
1411   mod_chxj_config     *dconf;
1412   chxjconvrule_entry  *entryp;
1413   mod_chxj_ctx        *ctx;
1414   apr_status_t        rv;
1415   char                *contentType;
1416
1417   DBG(r, "start chxj_insert_filter()");
1418
1419   dconf = chxj_get_module_config(r->per_dir_config, &chxj_module);
1420
1421   user_agent = (char*)apr_table_get(r->headers_in, HTTP_USER_AGENT);
1422
1423   contentType = (char *)apr_table_get(r->headers_in, "Content-Type");
1424   if (contentType
1425       && strncasecmp("multipart/form-data", contentType, 19) == 0) {
1426     DBG(r, "detect multipart/form-data ==> no target");
1427     return;
1428   }
1429
1430   spec = chxj_specified_device(r, user_agent);
1431   entryp = chxj_apply_convrule(r, dconf->convrules);
1432   if (!entryp) {
1433     DBG(r, "end chxj_insert_filter()");
1434     return;
1435   }
1436   ctx = apr_palloc(r->pool, sizeof(*ctx));
1437   memset(ctx, 0, sizeof(*ctx));
1438   if ((rv = apr_pool_create(&ctx->pool, r->pool)) != APR_SUCCESS) {
1439     ERR(r, "failed: new pool create. rv:[%d]", rv);
1440     return;
1441   }
1442   ctx->entryp = entryp;
1443   ctx->spec   = spec;
1444   ctx->buffer = apr_palloc(ctx->pool, 1);
1445   ctx->buffer[0] = 0;
1446
1447   if (!entryp || !(entryp->action & CONVRULE_ENGINE_ON_BIT)) {
1448     DBG(r,"EngineOff");
1449     return;
1450   }
1451
1452   switch(spec->html_spec_type) {
1453   case CHXJ_SPEC_Chtml_1_0:
1454   case CHXJ_SPEC_Chtml_2_0:
1455   case CHXJ_SPEC_Chtml_3_0:
1456   case CHXJ_SPEC_Chtml_4_0:
1457   case CHXJ_SPEC_Chtml_5_0:
1458   case CHXJ_SPEC_Chtml_6_0:
1459   case CHXJ_SPEC_Chtml_7_0:
1460   case CHXJ_SPEC_XHtml_Mobile_1_0:
1461   case CHXJ_SPEC_Hdml:
1462   case CHXJ_SPEC_Jhtml:
1463   case CHXJ_SPEC_Jxhtml:
1464     break;
1465
1466   default:
1467     return;
1468   }
1469
1470
1471   if (! apr_table_get(r->headers_in, "X-Chxj-Forward")) {
1472     ap_add_output_filter("chxj_output_filter", ctx, r, r->connection);
1473     DBG(r, "added Output Filter");
1474   }
1475
1476   DBG(r, "end   chxj_insert_filter()");
1477 }
1478
1479
1480 /**
1481  * The hook is registered.
1482  *
1483  * @param p
1484  */
1485 static void
1486 chxj_register_hooks(apr_pool_t *UNUSED(p))
1487 {
1488   ap_hook_post_config(chxj_init_module,
1489                       NULL,
1490                       NULL,
1491                       APR_HOOK_REALLY_FIRST);
1492   ap_hook_child_init(chxj_child_init,
1493                      NULL,
1494                      NULL,
1495                      APR_HOOK_REALLY_FIRST);
1496   ap_register_output_filter (
1497                       "chxj_output_filter",
1498                       chxj_output_filter,
1499                       NULL,
1500                       AP_FTYPE_RESOURCE);
1501   ap_hook_insert_filter(chxj_insert_filter, NULL, NULL, APR_HOOK_MIDDLE);
1502   ap_hook_handler(chxj_img_conv_format_handler, NULL, NULL, APR_HOOK_MIDDLE);
1503   ap_hook_handler(chxj_qr_code_handler, NULL, NULL, APR_HOOK_MIDDLE);
1504   ap_hook_handler(chxj_input_handler, NULL, NULL, APR_HOOK_MIDDLE);
1505   ap_hook_translate_name(chxj_translate_name, NULL, NULL, APR_HOOK_MIDDLE);
1506   ap_hook_fixups(chxj_headers_fixup, NULL, NULL, APR_HOOK_FIRST);
1507 }
1508
1509
1510 /**
1511  * A set structure according to the directory is generated.
1512  *
1513  * @param p
1514  * @param arg
1515  */
1516 static void *
1517 chxj_create_per_dir_config(apr_pool_t *p, char *arg)
1518 {
1519   mod_chxj_config *conf;
1520
1521   conf = apr_pcalloc(p, sizeof(mod_chxj_config));
1522   conf->device_data_file = NULL;
1523   conf->devices          = NULL;
1524   conf->emoji_data_file  = NULL;
1525   conf->emoji            = NULL;
1526   conf->emoji_tail       = NULL;
1527   conf->image            = CHXJ_IMG_NONE;
1528   conf->image_cache_dir  = apr_psprintf(p, "%s",DEFAULT_IMAGE_CACHE_DIR);
1529   conf->image_cache_limit = 0;
1530   conf->server_side_encoding = NULL;
1531   conf->cookie_db_dir    = NULL;
1532   conf->cookie_timeout   = 0;
1533   conf->cookie_store_type = COOKIE_STORE_TYPE_NONE;
1534   conf->cookie_lazy_mode  = 0;
1535 #if defined(USE_MYSQL_COOKIE)
1536   memset((void *)&conf->mysql, 0, sizeof(mysql_t));
1537   conf->mysql.port       = MYSQL_PORT;
1538   conf->mysql.host       = NULL;
1539 #endif
1540 #if defined(USE_MEMCACHE_COOKIE)
1541   memset((void *)&conf->memcache, 0, sizeof(memcache_t));
1542   conf->memcache.host    = NULL;
1543   conf->memcache.port    = 0;
1544 #endif
1545   conf->forward_url_base = NULL;
1546   conf->forward_server_ip = NULL;
1547
1548   if (arg == NULL) {
1549     conf->dir                  = NULL;
1550   }
1551   else {
1552     conf->dir                  = apr_pcalloc(p, strlen(arg)+1);
1553     memset(conf->dir, 0, strlen(arg)+1);
1554     strcpy(conf->dir, arg);
1555   }
1556   conf->convrules   = apr_array_make(p, 2, sizeof(chxjconvrule_entry));
1557
1558   /* Default is copyleft */
1559   conf->image_copyright = NULL;
1560
1561   return conf;
1562 }
1563
1564
1565 /*
1566  *  Merge per-directory CHXJ configurations
1567  */
1568 static void *
1569 chxj_merge_per_dir_config(apr_pool_t *p, void *basev, void *addv)
1570 {
1571   mod_chxj_config *base;
1572   mod_chxj_config *add;
1573   mod_chxj_config *mrg;
1574
1575   base = (mod_chxj_config *)basev;
1576   add  = (mod_chxj_config *)addv;
1577   mrg  = (mod_chxj_config *)apr_palloc(p, sizeof(mod_chxj_config));
1578
1579   mrg->device_data_file = NULL;
1580   mrg->devices          = NULL;
1581   mrg->emoji_data_file  = NULL;
1582   mrg->image            = CHXJ_IMG_NONE;
1583   mrg->image_cache_dir  = NULL;
1584   mrg->image_copyright  = NULL;
1585   mrg->image_cache_limit  = 0;
1586   mrg->emoji            = NULL;
1587   mrg->emoji_tail       = NULL;
1588   mrg->new_line_type    = NLTYPE_NIL;
1589   mrg->forward_url_base = NULL;
1590   mrg->forward_server_ip = NULL;
1591
1592   mrg->dir = apr_pstrdup(p, add->dir);
1593
1594   if (! add->device_data_file) {
1595     mrg->devices = base->devices;
1596     mrg->device_data_file = apr_pstrdup(p, base->device_data_file);
1597   }
1598   else {
1599     mrg->devices = add->devices;
1600     mrg->device_data_file = apr_pstrdup(p, add->device_data_file);
1601   }
1602
1603   if (! add->emoji_data_file) {
1604     mrg->emoji = base->emoji;
1605     mrg->emoji_tail = base->emoji_tail;
1606     mrg->emoji_data_file = apr_pstrdup(p, base->emoji_data_file);
1607   }
1608   else {
1609     mrg->emoji = add->emoji;
1610     mrg->emoji_tail = add->emoji_tail;
1611     mrg->emoji_data_file = apr_pstrdup(p, add->emoji_data_file);
1612   }
1613
1614   if (add->image == CHXJ_IMG_NONE) {
1615     mrg->image = base->image;
1616   }
1617   else {
1618     mrg->image = add->image;
1619   }
1620
1621   if (strcasecmp(add->image_cache_dir ,DEFAULT_IMAGE_CACHE_DIR)==0) {
1622     mrg->image_cache_dir = apr_pstrdup(p, base->image_cache_dir);
1623   }
1624   else {
1625     mrg->image_cache_dir = apr_pstrdup(p, add->image_cache_dir);
1626   }
1627
1628   if (add->image_cache_limit) {
1629     mrg->image_cache_limit = add->image_cache_limit;
1630   }
1631   else {
1632     mrg->image_cache_limit = base->image_cache_limit;
1633   }
1634
1635   if (add->image_copyright)
1636     mrg->image_copyright = apr_pstrdup(p, add->image_copyright);
1637   else
1638     mrg->image_copyright = apr_pstrdup(p, base->image_copyright);
1639
1640   if (add->server_side_encoding) {
1641     mrg->server_side_encoding = apr_pstrdup(p, add->server_side_encoding);
1642   }
1643   else
1644   if (base->server_side_encoding) {
1645     mrg->server_side_encoding = apr_pstrdup(p, base->server_side_encoding);
1646   }
1647   else {
1648     mrg->server_side_encoding = apr_pstrdup(p, DEFAULT_SERVER_SIDE_ENCODING);
1649   }
1650
1651   mrg->convrules    = apr_array_append(p, add->convrules, base->convrules);
1652
1653   if (add->cookie_db_dir) {
1654     mrg->cookie_db_dir = apr_pstrdup(p, add->cookie_db_dir);
1655   }
1656   else
1657   if (base->cookie_db_dir) {
1658     mrg->cookie_db_dir = apr_pstrdup(p, base->cookie_db_dir);
1659   }
1660   else {
1661     mrg->cookie_db_dir = NULL;
1662   }
1663
1664   if (add->cookie_timeout) {
1665     mrg->cookie_timeout   = add->cookie_timeout;
1666   }
1667   else
1668   if (base->cookie_db_dir) {
1669     mrg->cookie_timeout   = base->cookie_timeout;
1670   }
1671   else {
1672     mrg->cookie_timeout   = 0;
1673   }
1674
1675 #if defined(USE_MYSQL_COOKIE)
1676   if (add->mysql.host) {
1677     mrg->mysql.host = apr_pstrdup(p, add->mysql.host);
1678   }
1679   else if (base->mysql.host) {
1680     mrg->mysql.host = apr_pstrdup(p, base->mysql.host);
1681   }
1682   else {
1683     mrg->mysql.host = NULL;
1684   }
1685   if (add->mysql.port) {
1686     mrg->mysql.port = add->mysql.port;
1687   }
1688   else if (base->mysql.port) {
1689     mrg->mysql.port = base->mysql.port;
1690   }
1691   else {
1692     mrg->mysql.port = 0;
1693   }
1694
1695   if (add->mysql.database) {
1696     mrg->mysql.database = apr_pstrdup(p, add->mysql.database);
1697   }
1698   else if (base->mysql.database) {
1699     mrg->mysql.database = apr_pstrdup(p, base->mysql.database);
1700   }
1701   else {
1702     mrg->mysql.database = NULL;
1703   }
1704
1705   if (add->mysql.username) {
1706     mrg->mysql.username = apr_pstrdup(p, add->mysql.username);
1707   }
1708   else if (base->mysql.username) {
1709     mrg->mysql.username = apr_pstrdup(p, base->mysql.username);
1710   }
1711   else {
1712     mrg->mysql.username = NULL;
1713   }
1714
1715   if (add->mysql.password) {
1716     mrg->mysql.password = apr_pstrdup(p, add->mysql.password);
1717   }
1718   else if (base->mysql.password) {
1719     mrg->mysql.password = apr_pstrdup(p, base->mysql.password);
1720   }
1721   else {
1722     mrg->mysql.password = NULL;
1723   }
1724
1725   if (add->mysql.tablename) {
1726     mrg->mysql.tablename = apr_pstrdup(p, add->mysql.tablename);
1727   }
1728   else if (base->mysql.tablename) {
1729     mrg->mysql.tablename = apr_pstrdup(p, base->mysql.tablename);
1730   }
1731   else {
1732     mrg->mysql.tablename = NULL;
1733   }
1734
1735   if (add->mysql.socket_path) {
1736     mrg->mysql.socket_path = apr_pstrdup(p, add->mysql.socket_path);
1737   }
1738   else if (base->mysql.socket_path) {
1739     mrg->mysql.socket_path = apr_pstrdup(p, base->mysql.socket_path);
1740   }
1741   else {
1742     mrg->mysql.socket_path = NULL;
1743   }
1744
1745   if (add->mysql.charset) {
1746     mrg->mysql.charset = apr_pstrdup(p, add->mysql.charset);
1747   }
1748   else if (base->mysql.charset) {
1749     mrg->mysql.charset = apr_pstrdup(p, base->mysql.charset);
1750   }
1751   else {
1752     mrg->mysql.charset = NULL;
1753   }
1754 #endif
1755 #if defined(USE_MEMCACHE_COOKIE)
1756   if (add->memcache.host) {
1757     mrg->memcache.host = apr_pstrdup(p, add->memcache.host);
1758   }
1759   else if (base->memcache.host) {
1760     mrg->memcache.host = apr_pstrdup(p, base->memcache.host);
1761   }
1762   else {
1763     mrg->memcache.host = NULL;
1764   }
1765   if (add->memcache.port) {
1766     mrg->memcache.port = add->memcache.port;
1767   }
1768   else if (base->memcache.port) {
1769     mrg->memcache.port = base->memcache.port;
1770   }
1771   else {
1772     mrg->memcache.port = 0;
1773   }
1774 #endif
1775   if (add->cookie_store_type) {
1776     mrg->cookie_store_type = add->cookie_store_type;
1777   }
1778   else if (base->cookie_store_type) {
1779     mrg->cookie_store_type = base->cookie_store_type;
1780   }
1781   else {
1782     mrg->cookie_store_type = COOKIE_STORE_TYPE_NONE;
1783   }
1784   if (add->cookie_lazy_mode) {
1785     mrg->cookie_lazy_mode = add->cookie_lazy_mode;
1786   }
1787   else if (base->cookie_lazy_mode) {
1788     mrg->cookie_lazy_mode = base->cookie_lazy_mode;
1789   }
1790   else {
1791     mrg->cookie_lazy_mode = 0;
1792   }
1793   if (add->new_line_type) {
1794     mrg->new_line_type = add->new_line_type;
1795   }
1796   else if (base->new_line_type) {
1797     mrg->new_line_type = base->new_line_type;
1798   }
1799   else {
1800     mrg->new_line_type = NLTYPE_NIL;
1801   }
1802   return mrg;
1803 }
1804
1805
1806 static int
1807 chxj_command_parse_take5(
1808   const char *arg,
1809   char       **prm1,
1810   char       **prm2,
1811   char       **prm3,
1812   char       **prm4,
1813   char       **prm5)
1814 {
1815   int  isquoted;
1816   char *strp;
1817
1818   strp = (char *)arg;
1819
1820   for (;*strp == ' '||*strp == '\t'; strp++) ;
1821
1822   isquoted = 0;
1823   if (*strp == '"') {
1824     isquoted = 1;
1825     strp++;
1826   }
1827
1828   *prm1 = strp;
1829
1830   for (; *strp != '\0'; strp++) {
1831     if ((isquoted && (*strp == ' ' || *strp == '\t'))
1832     ||  (*strp == '\\' && (*(strp+1) == ' ' || *(strp+1) == '\t'))) {
1833       strp++;
1834       continue;
1835     }
1836
1837     if ((!isquoted && (*strp == ' ' || *strp == '\t'))
1838     ||  (isquoted  && *strp == '"'))
1839       break;
1840   }
1841
1842   if (! *strp) {
1843     *prm2 = strp;
1844     *prm3 = strp;
1845     *prm4 = strp;
1846     *prm5 = strp;
1847     return 1;
1848   }
1849
1850   *strp++ = '\0';
1851
1852   for (;*strp == ' '||*strp == '\t'; strp++) ;
1853
1854   isquoted = 0;
1855   if (*strp == '"') {
1856     isquoted = 1;
1857     strp++;
1858   }
1859
1860   *prm2 = strp;
1861   for (; *strp != '\0'; strp++) {
1862     if ((isquoted && (*strp == ' ' || *strp == '\t'))
1863     ||  (*strp == '\\' && (*(strp+1) == ' ' || *(strp+1) == '\t'))) {
1864       strp++;
1865       continue;
1866     }
1867
1868     if ((!isquoted && (*strp == ' ' || *strp == '\t'))
1869     ||  (isquoted  && *strp == '"'))
1870       break;
1871   }
1872
1873   if (! *strp) {
1874     *prm3 = strp;
1875     *prm4 = strp;
1876     *prm5 = strp;
1877     return 0;
1878   }
1879
1880   *strp++ = '\0';
1881
1882   for (;*strp == ' '||*strp == '\t'; strp++);
1883
1884   isquoted = 0;
1885   if (*strp == '"') {
1886     isquoted = 1;
1887     strp++;
1888   }
1889   *prm3 = strp;
1890   for (; *strp != '\0'; strp++) {
1891     if ((isquoted && (*strp == ' ' || *strp == '\t'))
1892     ||  (*strp == '\\' && (*(strp+1) == ' ' || *(strp+1) == '\t'))) {
1893       strp++;
1894       continue;
1895     }
1896
1897     if ((!isquoted && (*strp == ' ' || *strp == '\t'))
1898     ||  (isquoted  && *strp == '"'))
1899       break;
1900   }
1901
1902   if (! *strp) {
1903     *prm4 = strp;
1904     *prm5 = strp;
1905     return 0;
1906   }
1907
1908   *strp++ = '\0';
1909
1910   for (;*strp == ' '||*strp == '\t'; strp++);
1911
1912   isquoted = 0;
1913   if (*strp == '"') {
1914     isquoted = 1;
1915     strp++;
1916   }
1917   *prm4 = strp;
1918   for (; *strp != '\0'; strp++) {
1919     if ((isquoted && (*strp == ' ' || *strp == '\t'))
1920     ||  (*strp == '\\' && (*(strp+1) == ' ' || *(strp+1) == '\t'))) {
1921       strp++;
1922       continue;
1923     }
1924
1925     if ((!isquoted && (*strp == ' ' || *strp == '\t'))
1926     ||  (isquoted  && *strp == '"'))
1927       break;
1928   }
1929
1930   if (! *strp) {
1931     *prm5 = strp;
1932     return 0;
1933   }
1934
1935   *strp++ = '\0';
1936
1937   for (;*strp == ' '||*strp == '\t'; strp++);
1938
1939   isquoted = 0;
1940   if (*strp == '"') {
1941     isquoted = 1;
1942     strp++;
1943   }
1944   *prm5 = strp;
1945   for (; *strp != '\0'; strp++) {
1946     if ((isquoted && (*strp == ' ' || *strp == '\t'))
1947     ||  (*strp == '\\' && (*(strp+1) == ' ' || *(strp+1) == '\t'))) {
1948       strp++;
1949       continue;
1950     }
1951
1952     if ((!isquoted && (*strp == ' ' || *strp == '\t'))
1953     ||  (isquoted  && *strp == '"'))
1954       break;
1955   }
1956   *strp = '\0';
1957
1958   return 0;
1959 }
1960
1961
1962 /**
1963  * The device definition file is loaded.
1964  *
1965  * @param arg     [i]   The name of the device definition file is specified.
1966  * @param mconfig [i/o] The pointer to a set structure is specified.
1967  * @param parms   [i]
1968  */
1969 static const char *
1970 cmd_load_device_data(cmd_parms *parms, void *mconfig, const char *arg)
1971 {
1972   mod_chxj_config  *conf;
1973   Doc              doc;
1974
1975   doc.r = NULL;
1976
1977   if (strlen(arg) > 256)
1978     return "mod_chxj: device data filename too long.";
1979
1980   conf = (mod_chxj_config *)mconfig;
1981   conf->device_data_file = apr_pstrdup(parms->pool, arg);
1982
1983   qs_init_malloc(&doc);
1984   qs_init_root_node(&doc);
1985
1986   qs_parse_file((Doc *)&doc, (const char *)arg);
1987   chxj_load_device_data(&doc,parms->pool, conf);
1988   qs_all_free(&doc, QX_LOGMARK);
1989
1990   return NULL;
1991 }
1992
1993
1994 /**
1995  * Device definition information is loaded.
1996  *
1997  * @param parms
1998  * @param arg     [i]   The name of the device definition file is specified.
1999  * @param mconfig [i/o] The pointer to a set structure is specified.
2000  * @return
2001  */
2002 static const char *
2003 cmd_load_emoji_data(cmd_parms *parms, void *mconfig, const char *arg)
2004 {
2005   mod_chxj_config *conf;
2006   char            *rtn;
2007   Doc              doc;
2008
2009   doc.r = NULL;
2010
2011
2012   if (strlen(arg) > 256)
2013     return "mod_chxj: emoji data filename too long.";
2014
2015   conf = (mod_chxj_config *)mconfig;
2016   conf->emoji_data_file = apr_pstrdup(parms->pool, arg);
2017   qs_init_malloc(&doc);
2018   qs_init_root_node(&doc);
2019
2020   qs_parse_file((Doc *)&doc, (const char *)arg);
2021
2022   rtn = chxj_load_emoji_data(&doc,parms->pool, conf);
2023
2024   qs_all_free(&doc, QX_LOGMARK);
2025
2026
2027   return rtn;
2028 }
2029
2030
2031 static const char *
2032 cmd_set_image_engine(cmd_parms * UNUSED(parms), void *mconfig, const char *arg)
2033 {
2034   mod_chxj_config *conf;
2035   Doc              doc;
2036
2037   doc.r = NULL;
2038
2039   if (strlen(arg) > 256)
2040     return "image uri is too long.";
2041
2042   conf = (mod_chxj_config*)mconfig;
2043   if (strcasecmp("ON", arg) == 0) {
2044     conf->image = CHXJ_IMG_ON;
2045   }
2046   else {
2047     conf->image = CHXJ_IMG_OFF;
2048   }
2049
2050   return NULL;
2051 }
2052
2053
2054 static const char *
2055 cmd_set_image_cache_dir(cmd_parms *parms, void *mconfig, const char *arg)
2056 {
2057   mod_chxj_config *conf;
2058   Doc              doc;
2059
2060   doc.r = NULL;
2061
2062   if (strlen(arg) > 256)
2063     return "cache dir name is too long.";
2064
2065   conf = (mod_chxj_config *)mconfig;
2066   conf->image_cache_dir = apr_pstrdup(parms->pool, arg);
2067
2068   return NULL;
2069 }
2070
2071
2072 static const char *
2073 cmd_set_image_cache_limit(cmd_parms *parms, void *mconfig, const char *arg)
2074 {
2075   mod_chxj_config *conf;
2076   Doc              doc;
2077
2078   doc.r = NULL;
2079
2080   if (strlen(arg) > IMAGE_CACHE_LIMIT_FMT_LEN)
2081     return "cache size is too long.";
2082
2083   conf = (mod_chxj_config *)mconfig;
2084   errno = 0;
2085   /*
2086    * I use strtol function because strtoul is not portable function.
2087    */
2088   conf->image_cache_limit = (unsigned long)strtol(arg, NULL, 10);
2089   switch (errno) {
2090   case EINVAL:
2091     return apr_psprintf(parms->pool, "ChxjImageCacheLimit invalid value [%s] errno:[%d]", arg, errno);
2092   case ERANGE:
2093     return apr_psprintf(parms->pool, "ChxjImageCacheLimit Out of range [%s] errno:[%d]", arg, errno);
2094   default:
2095     break;
2096   }
2097   return NULL;
2098 }
2099
2100
2101 static const char *
2102 cmd_set_image_copyright(cmd_parms *parms, void *mconfig, const char *arg)
2103 {
2104   mod_chxj_config *conf;
2105   Doc              doc;
2106
2107   doc.r = NULL;
2108
2109   if (strlen(arg) > 256)
2110     return "Copyright Flag is too long.";
2111
2112   conf = (mod_chxj_config *)mconfig;
2113   conf->image_copyright = apr_pstrdup(parms->pool, arg);
2114
2115   return NULL;
2116 }
2117
2118
2119 static const char *
2120 cmd_convert_rule(cmd_parms *cmd, void *mconfig, const char *arg)
2121 {
2122   int                 mode;
2123   ap_regex_t          *regexp;
2124   mod_chxj_config     *dconf;
2125   chxjconvrule_entry  *newrule;
2126   char                *prm1;
2127   char                *prm2;
2128   char                *prm3;
2129   char                *prm4;
2130   char                *prm5;
2131   char                *pstate;
2132   char                *action;
2133   char                *pp;
2134
2135   dconf = (mod_chxj_config *)mconfig;
2136
2137   if (strlen(arg) > 4096)
2138     return "mod_chxj: ChxjConvertRule: is too long.";
2139
2140   dconf = (mod_chxj_config *)mconfig;
2141   if (dconf->convrules == NULL)
2142     dconf->convrules   = apr_array_make(cmd->pool,
2143                                         2,
2144                                         sizeof(chxjconvrule_entry));
2145
2146   newrule = apr_array_push(dconf->convrules);
2147
2148   newrule->flags  = 0;
2149   newrule->action = 0;
2150
2151   if (chxj_command_parse_take5(arg, &prm1, &prm2, &prm3, &prm4, &prm5))
2152     return "ChxjConvertRule: bad argument line";
2153
2154   newrule->pattern = apr_pstrdup(cmd->pool, prm1);
2155
2156   /* Parse action */
2157   for (;;) {
2158     if ((action = apr_strtok(prm2, ",", &pstate)) == NULL)
2159       break;
2160     prm2 = NULL;
2161     switch(*action) {
2162     case 'e':
2163     case 'E':
2164       if (strcasecmp(CONVRULE_ENGINE_ON_CMD, action) == 0) {
2165         newrule->action |= CONVRULE_ENGINE_ON_BIT;
2166       }
2167       else
2168       if (strcasecmp(CONVRULE_ENGINE_OFF_CMD, action) == 0) {
2169         newrule->action |= CONVRULE_ENGINE_OFF_BIT;
2170       }
2171       break;
2172
2173     case 'C':
2174     case 'c':
2175       if (strcasecmp(CONVRULE_COOKIE_ON_CMD, action) == 0) {
2176         newrule->action |= CONVRULE_COOKIE_ON_BIT;
2177       }
2178       break;
2179     default:
2180       break;
2181     }
2182   }
2183
2184   pp = prm1;
2185   if (*pp == '!') {
2186     newrule->flags |= CONVRULE_FLAG_NOTMATCH;
2187     pp++;
2188   }
2189
2190   mode = AP_REG_EXTENDED;
2191   if ((regexp = ap_pregcomp((apr_pool_t *)cmd->pool, (const char *)pp, mode)) == NULL)
2192     return "RewriteRule: cannot compile regular expression ";
2193
2194   newrule->regexp = regexp;
2195   if (*prm3)
2196     newrule->encoding = apr_pstrdup(cmd->pool, prm3);
2197   else
2198     newrule->encoding = apr_pstrdup(cmd->pool, "none");
2199
2200   newrule->pc_flag = CONVRULE_PC_FLAG_OFF_BIT;
2201   if (*prm4)
2202     if (strcasecmp(CONVRULE_PC_FLAG_ON_CMD, prm4) == 0)
2203       newrule->pc_flag = CONVRULE_PC_FLAG_ON_BIT;
2204
2205   newrule->user_agent = NULL;
2206   if (*prm5)
2207     newrule->user_agent = apr_pstrdup(cmd->pool, prm5);
2208
2209   return NULL;
2210 }
2211
2212
2213 static const char *
2214 cmd_set_cookie_dir(
2215   cmd_parms   *cmd,
2216   void        *mconfig,
2217   const char  *arg)
2218 {
2219   mod_chxj_config *dconf;
2220
2221
2222   if (strlen(arg) > 4096)
2223     return "mod_chxj: ChxjCookieDir is too long.";
2224
2225   dconf = (mod_chxj_config *)mconfig;
2226
2227   dconf->cookie_db_dir = apr_pstrdup(cmd->pool, arg);
2228
2229   return NULL;
2230 }
2231
2232
2233 static const char *
2234 cmd_set_cookie_timeout(
2235   cmd_parms   *UNUSED(cmd),
2236   void        *mconfig,
2237   const char  *arg)
2238 {
2239   mod_chxj_config *dconf;
2240
2241   if (strlen(arg) > 4096)
2242     return "mod_chxj: ChxjCookieTimeout is too long.";
2243
2244   if (chxj_chk_numeric(arg) != 0)
2245     return "mod_chxj: ChxjCookieTimeout is not numeric.";
2246
2247   dconf = (mod_chxj_config *)mconfig;
2248
2249   dconf->cookie_timeout = atoi(arg);
2250
2251   return NULL;
2252 }
2253
2254
2255 #if defined(USE_MYSQL_COOKIE)
2256 static const char *
2257 cmd_set_cookie_mysql_database(
2258   cmd_parms   *cmd,
2259   void        *mconfig,
2260   const char  *arg)
2261 {
2262   mod_chxj_config  *dconf;
2263
2264   if (strlen(arg) > 255)
2265     return "mod_chxj: ChxjCookieMysqlDatabase is too long.";
2266
2267   dconf = (mod_chxj_config *)mconfig;
2268
2269   dconf->mysql.database = apr_pstrdup(cmd->pool, arg);
2270
2271   return NULL;
2272 }
2273
2274
2275 static const char *
2276 cmd_set_cookie_mysql_username(
2277   cmd_parms   *cmd,
2278   void        *mconfig,
2279   const char  *arg)
2280 {
2281   mod_chxj_config  *dconf;
2282
2283   if (strlen(arg) > 255)
2284     return "mod_chxj: ChxjCookieMysqlUsername is too long.";
2285
2286   dconf = (mod_chxj_config *)mconfig;
2287
2288   dconf->mysql.username = apr_pstrdup(cmd->pool, arg);
2289
2290   return NULL;
2291 }
2292
2293
2294 static const char *
2295 cmd_set_cookie_mysql_password(
2296   cmd_parms   *cmd,
2297   void        *mconfig,
2298   const char  *arg)
2299 {
2300   mod_chxj_config  *dconf;
2301
2302   if (strlen(arg) > 255)
2303     return "mod_chxj: ChxjCookieMysqlPassword is too long.";
2304
2305   dconf = (mod_chxj_config *)mconfig;
2306
2307   dconf->mysql.password = apr_pstrdup(cmd->pool, arg);
2308
2309   return NULL;
2310 }
2311
2312
2313 static const char *
2314 cmd_set_cookie_mysql_table_name(
2315   cmd_parms   *cmd,
2316   void        *mconfig,
2317   const char  *arg)
2318 {
2319   mod_chxj_config  *dconf;
2320
2321   if (strlen(arg) > 255)
2322     return "mod_chxj: ChxjCookieMysqlTableName is too long.";
2323
2324   dconf = (mod_chxj_config *)mconfig;
2325
2326   dconf->mysql.tablename = apr_pstrdup(cmd->pool, arg);
2327
2328   return NULL;
2329 }
2330
2331 static const char *
2332 cmd_set_cookie_mysql_port(
2333   cmd_parms   *UNUSED(cmd),
2334   void        *mconfig,
2335   const char  *arg)
2336 {
2337   mod_chxj_config *dconf;
2338
2339   if (strlen(arg) > 255)
2340     return "mod_chxj: ChxjCookieMysqlPort is too long.";
2341
2342   dconf = (mod_chxj_config *)mconfig;
2343
2344   if (chxj_chk_numeric(arg) != 0)
2345     return "mod_chxj: ChxjCookieMysqlPort is not numeric.";
2346
2347   dconf = (mod_chxj_config *)mconfig;
2348
2349   dconf->mysql.port = chxj_atoi(arg);
2350
2351   return NULL;
2352 }
2353
2354
2355 static const char *
2356 cmd_set_cookie_mysql_host(
2357   cmd_parms   *cmd,
2358   void        *mconfig,
2359   const char  *arg)
2360 {
2361   mod_chxj_config  *dconf;
2362
2363   if (strlen(arg) > 255)
2364     return "mod_chxj: ChxjCookieMysqlHost is too long.";
2365
2366   dconf = (mod_chxj_config *)mconfig;
2367
2368   dconf->mysql.host = apr_pstrdup(cmd->pool, arg);
2369
2370   return NULL;
2371 }
2372
2373
2374 static const char *
2375 cmd_set_cookie_mysql_socket_path(
2376   cmd_parms   *cmd,
2377   void        *mconfig,
2378   const char  *arg)
2379 {
2380   mod_chxj_config  *dconf;
2381
2382   if (strlen(arg) > 4096)
2383     return "mod_chxj: ChxjCookieMysqlSocketPath is too long.";
2384
2385   dconf = (mod_chxj_config *)mconfig;
2386
2387   dconf->mysql.socket_path = apr_pstrdup(cmd->pool, arg);
2388
2389   return NULL;
2390 }
2391
2392
2393 static const char *
2394 cmd_set_cookie_mysql_charset(
2395   cmd_parms   *cmd,
2396   void        *mconfig,
2397   const char  *arg)
2398 {
2399   mod_chxj_config  *dconf;
2400
2401   if (strlen(arg) > 255)
2402     return "mod_chxj: ChxjCookieMysqlCharset is too long.";
2403
2404   dconf = (mod_chxj_config *)mconfig;
2405
2406   dconf->mysql.charset = apr_pstrdup(cmd->pool, arg);
2407
2408   return NULL;
2409 }
2410 #endif
2411 #if defined(USE_MEMCACHE_COOKIE)
2412 static const char *
2413 cmd_set_cookie_memcache_port(
2414   cmd_parms   *UNUSED(cmd),
2415   void        *mconfig,
2416   const char  *arg)
2417 {
2418   mod_chxj_config *dconf;
2419
2420   if (strlen(arg) > 255)
2421     return "mod_chxj: ChxjCookieMemcachePort is too long.";
2422
2423   dconf = (mod_chxj_config *)mconfig;
2424
2425   if (chxj_chk_numeric(arg) != 0)
2426     return "mod_chxj: ChxjCookieMemcachePort is not numeric.";
2427
2428   dconf = (mod_chxj_config *)mconfig;
2429
2430   dconf->memcache.port = (apr_port_t)chxj_atoi(arg);
2431
2432   return NULL;
2433 }
2434
2435
2436 static const char *
2437 cmd_set_cookie_memcache_host(
2438   cmd_parms   *cmd,
2439   void        *mconfig,
2440   const char  *arg)
2441 {
2442   mod_chxj_config  *dconf;
2443
2444   if (strlen(arg) > 255)
2445     return "mod_chxj: ChxjCookieMemcacheHost is too long.";
2446
2447   dconf = (mod_chxj_config *)mconfig;
2448
2449   dconf->memcache.host = apr_pstrdup(cmd->pool, arg);
2450
2451   return NULL;
2452 }
2453 #endif
2454
2455 static const char *
2456 cmd_set_cookie_lazy_mode(
2457   cmd_parms   *UNUSED(cmd),
2458   void        *mconfig,
2459   const char  *arg)
2460 {
2461   mod_chxj_config  *dconf;
2462
2463   if (strlen(arg) > 255)
2464     return "mod_chxj: ChxjCookieLazyMode is too long.";
2465
2466   dconf = (mod_chxj_config *)mconfig;
2467
2468   if (strcasecmp("TRUE",arg) == 0) {
2469     dconf->cookie_lazy_mode = COOKIE_LAZY_ON;
2470   }
2471   else {
2472     dconf->cookie_lazy_mode = COOKIE_LAZY_OFF;
2473   }
2474
2475   return NULL;
2476 }
2477
2478 static const char *
2479 cmd_set_cookie_store_type(
2480   cmd_parms   *UNUSED(cmd),
2481   void        *mconfig,
2482   const char  *arg)
2483 {
2484   mod_chxj_config  *dconf;
2485
2486   if (strlen(arg) > 255)
2487     return "mod_chxj: ChxjCookieStoreType is too long.";
2488
2489   dconf = (mod_chxj_config *)mconfig;
2490
2491   if (strcasecmp(CHXJ_COOKIE_STORE_TYPE_DBM, arg) == 0) {
2492     dconf->cookie_store_type = COOKIE_STORE_TYPE_DBM;
2493   }
2494   else if (strcasecmp(CHXJ_COOKIE_STORE_TYPE_MYSQL, arg) == 0) {
2495     dconf->cookie_store_type = COOKIE_STORE_TYPE_MYSQL;
2496   }
2497   else if (strcasecmp(CHXJ_COOKIE_STORE_TYPE_MEMCACHE, arg) == 0) {
2498     dconf->cookie_store_type = COOKIE_STORE_TYPE_MEMCACHE;
2499   }
2500   else {
2501     dconf->cookie_store_type = COOKIE_STORE_TYPE_NONE;
2502   }
2503
2504   return NULL;
2505 }
2506
2507 static const char *
2508 cmd_set_forward_url_base(
2509   cmd_parms   *cmd,
2510   void        *mconfig,
2511   const char  *arg)
2512 {
2513  mod_chxj_config *dconf;
2514
2515   if (strlen(arg) > 255)
2516     return "mod_chxj: ChxjForwardUrlBase is too long.";
2517
2518   dconf = (mod_chxj_config *)mconfig;
2519
2520   dconf->forward_url_base = apr_pstrdup(cmd->pool, arg);
2521
2522   return NULL;
2523 }
2524
2525 static const char *
2526 cmd_set_forward_server_ip(
2527   cmd_parms   *cmd,
2528   void        *mconfig,
2529   const char  *arg)
2530 {
2531   mod_chxj_config *dconf;
2532
2533   if (strlen(arg) > 255)
2534     return "mod_chxj: ChxjForwardServerIp is too long.";
2535
2536   dconf = (mod_chxj_config *)mconfig;
2537
2538   dconf->forward_server_ip = apr_pstrdup(cmd->pool, arg);
2539
2540   return NULL;
2541 }
2542
2543 static const char *
2544 cmd_set_new_line_type(
2545   cmd_parms   *UNUSED(cmd),
2546   void        *mconfig,
2547   const char  *arg)
2548 {
2549   mod_chxj_config  *dconf;
2550   if (strlen(arg) > 255)
2551     return "mod_chxj: ChxjNewLineType is too long.";
2552
2553   dconf = (mod_chxj_config *)mconfig;
2554
2555   if (strcasecmp(CHXJ_NEW_LINE_TYPE_CRLF, arg) == 0) {
2556     dconf->new_line_type = NLTYPE_CRLF;
2557   }
2558   else if (strcasecmp(CHXJ_NEW_LINE_TYPE_LF, arg) == 0) {
2559     dconf->new_line_type = NLTYPE_LF;
2560   }
2561   else if (strcasecmp(CHXJ_NEW_LINE_TYPE_CR, arg) == 0) {
2562     dconf->new_line_type = NLTYPE_CR;
2563   }
2564   else if (strcasecmp(CHXJ_NEW_LINE_TYPE_NONE, arg) == 0) {
2565     dconf->new_line_type = NLTYPE_NONE;
2566   }
2567   else {
2568     return "mod_chxj: invalid value (ChxjNewLineType)";
2569   }
2570   return NULL;
2571 }
2572
2573
2574 static const command_rec cmds[] = {
2575   AP_INIT_TAKE1(
2576     "ChxjLoadDeviceData",
2577     cmd_load_device_data,
2578     NULL,
2579     OR_ALL,
2580     "Load Device Data"),
2581   AP_INIT_TAKE1(
2582     "ChxjLoadEmojiData",
2583     cmd_load_emoji_data,
2584     NULL,
2585     OR_ALL,
2586     "Load Emoji Data"),
2587   AP_INIT_TAKE1(
2588     "ChxjImageEngine",
2589     cmd_set_image_engine,
2590     NULL,
2591     OR_ALL,
2592     "Convert Target URI"),
2593   AP_INIT_TAKE1(
2594     "ChxjImageCacheDir",
2595     cmd_set_image_cache_dir,
2596     NULL,
2597     OR_ALL,
2598     "Image Cache Directory"),
2599   AP_INIT_TAKE1(
2600     "ChxjImageCacheLimit",
2601     cmd_set_image_cache_limit,
2602     NULL,
2603     OR_ALL,
2604     "Image Cache Limit"),
2605   AP_INIT_TAKE1(
2606     "ChxjImageCopyright",
2607     cmd_set_image_copyright,
2608     NULL,
2609     OR_ALL,
2610     "Copyright Flag"),
2611   AP_INIT_RAW_ARGS(
2612     "ChxjConvertRule",
2613     cmd_convert_rule,
2614     NULL,
2615     OR_FILEINFO,
2616     "an URL-applied regexp-pattern and a substitution URL"),
2617   AP_INIT_TAKE1(
2618     "ChxjCookieDir",
2619     cmd_set_cookie_dir,
2620     NULL,
2621     OR_ALL,
2622     "save cookie.db directory."),
2623   AP_INIT_TAKE1(
2624     "ChxjCookieTimeout",
2625     cmd_set_cookie_timeout,
2626     NULL,
2627     OR_ALL,
2628     "The compulsion time-out time of the cookie is specified. "),
2629   AP_INIT_TAKE1(
2630     "ChxjCookieStoreType",
2631     cmd_set_cookie_store_type,
2632     NULL,
2633     OR_ALL,
2634     "It specifies preserving of the cookie ahead. (DBM/MYSQL/MEMCACHE)"),
2635   AP_INIT_TAKE1(
2636     "ChxjCookieLazyMode",
2637     cmd_set_cookie_lazy_mode,
2638     NULL,
2639     OR_ALL,
2640     "OneTimeID is negligently done. (TRUE/FALSE)"),
2641 #if defined(USE_MYSQL_COOKIE)
2642   AP_INIT_TAKE1(
2643     "ChxjCookieMysqlHost",
2644     cmd_set_cookie_mysql_host,
2645     NULL,
2646     OR_ALL,
2647     "The MySQL database host used by saving Cookie"),
2648   AP_INIT_TAKE1(
2649     "ChxjCookieMysqlPort",
2650     cmd_set_cookie_mysql_port,
2651     NULL,
2652     OR_ALL,
2653     "The MySQL database port used by saving Cookie"),
2654   AP_INIT_TAKE1(
2655     "ChxjCookieMysqlDatabase",
2656     cmd_set_cookie_mysql_database,
2657     NULL,
2658     OR_ALL,
2659     "The MySQL database name used by saving Cookie"),
2660   AP_INIT_TAKE1(
2661     "ChxjCookieMysqlUsername",
2662     cmd_set_cookie_mysql_username,
2663     NULL,
2664     OR_ALL,
2665     "The MySQL username used by saving Cookie"),
2666   AP_INIT_TAKE1(
2667     "ChxjCookieMysqlPassword",
2668     cmd_set_cookie_mysql_password,
2669     NULL,
2670     OR_ALL,
2671     "The MySQL password used by saving Cookie"),
2672   AP_INIT_TAKE1(
2673     "ChxjCookieMysqlTableName",
2674     cmd_set_cookie_mysql_table_name,
2675     NULL,
2676     OR_ALL,
2677     "The MySQL table name used by saving Cookie"),
2678   AP_INIT_TAKE1(
2679     "ChxjCookieMysqlSocketPath",
2680     cmd_set_cookie_mysql_socket_path,
2681     NULL,
2682     OR_ALL,
2683     "The MySQL socket path used by saving Cookie"),
2684   AP_INIT_TAKE1(
2685     "ChxjCookieMysqlCharset",
2686     cmd_set_cookie_mysql_charset,
2687     NULL,
2688     OR_ALL,
2689     "The MySQL charset used by saving Cookie"),
2690 #endif
2691 #if defined(USE_MEMCACHE_COOKIE)
2692   AP_INIT_TAKE1(
2693     "ChxjCookieMemcacheHost",
2694     cmd_set_cookie_memcache_host,
2695     NULL,
2696     OR_ALL,
2697     "The Memcached host used by saving Cookie"),
2698   AP_INIT_TAKE1(
2699     "ChxjCookieMemcachePort",
2700     cmd_set_cookie_memcache_port,
2701     NULL,
2702     OR_ALL,
2703     "The Memcached port used by saving Cookie"),
2704 #endif
2705   AP_INIT_TAKE1(
2706     "ChxjNewLineType",
2707     cmd_set_new_line_type,
2708     NULL,
2709     OR_ALL,
2710     "HTML new line type (NONE|CRLF|LF|CR). default is CRLF"),
2711   AP_INIT_TAKE1(
2712     "ChxjForwardUrlBase",
2713     cmd_set_forward_url_base,
2714     NULL,
2715     OR_ALL,
2716     "The forward url base(default: {request protocol}://{this server}:{this server port}"),
2717   AP_INIT_TAKE1(
2718     "ChxjForwardServerIp",
2719     cmd_set_forward_server_ip,
2720     NULL,
2721     OR_ALL,
2722     "The forward server ip(default: this server ip)"),
2723   {NULL}
2724 };
2725
2726
2727 /*----------------------------------------------------------------------------*/
2728 /* Dispatch list for API hooks                                                */
2729 /*----------------------------------------------------------------------------*/
2730 module AP_MODULE_DECLARE_DATA chxj_module = {
2731   STANDARD20_MODULE_STUFF,
2732   chxj_create_per_dir_config,          /* create per-dir    config structures */
2733   chxj_merge_per_dir_config,           /* merge  per-dir    config structures */
2734   chxj_config_server_create,           /* create per-server config structures */
2735   NULL,                                /* merge  per-server config structures */
2736   cmds,                                /* table of config file commands       */
2737   chxj_register_hooks                  /* register hooks                      */
2738 };
2739 /*
2740  * vim:ts=2 et
2741  */