OSDN Git Service

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