src/mod_chxj.c

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