viewvc.cgi/mod_czs/mod_czs.c

/*
 * mod_czs -- nuke iso8859-2 characters
 * Dobrica Pavlinusic <dpavlin@rot13.org>
 *
 * based on mod_format by Stephen F. Booth and
 * mod_mocrify by Peter Triller, Ernst Bachmann
 *
 *      Usage: httpd.conf
 *      AddHandler czs .html
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *  
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include "httpd.h"
#include "http_main.h"
#include "http_config.h"
#include "http_log.h"
#include "http_protocol.h"

module MODULE_VAR_EXPORT mod_czs;

FILE *in;
int do_czs;

static int czs_handler(request_rec *r) {

        char buffer[MAX_STRING_LEN] = "undefined buffer content";
        int i;

        if(r->method_number != M_GET) 
                return DECLINED;
        if(r->finfo.st_mode == 0) 
                return NOT_FOUND;

        in = ap_pfopen(r->pool, r->filename, "r");

        if(in == NULL) {
                ap_log_reason("file permissions deny server access", r->filename, r);
                return FORBIDDEN;    
        }
#ifdef DEBUG
        if(r->args != 0 || do_czs) {
                ap_table_setn(r->headers_out, "X-czs_filename", r->filename);
                ap_table_setn(r->headers_out, "X-czs_content-type", r->content_type);
                if (r->args != 0) {
                        ap_table_setn(r->headers_out, "X-czs_args", r->args);
                }
        }
#endif

#ifdef TEST_QUERYSTRINGV
        if(r->args == 0 && !do_czs || strstr(r->content_type,"cgi") != NULL) {
#else
        if(!do_czs || strstr(r->content_type,"cgi") != NULL) {
#endif
                return DECLINED;
/*              ap_send_fd(in, r); */
        } else {

                ap_soft_timeout("send", r);
                ap_send_http_header(r);
  
                if(r->header_only) {
                        ap_kill_timeout(r);
                        ap_pfclose(r->pool, in);
                        return OK;
                }

                while(fgets(buffer,MAX_STRING_LEN,in)) {
                        for(i=0; i<MAX_STRING_LEN && buffer[i]; i++) {
                                switch ( buffer[i] ) {
                                case '¹': buffer[i]='s'; break;
                                case 'ð': buffer[i]='d'; break;
                                case 'è': buffer[i]='c'; break;
                                case 'æ': buffer[i]='c'; break;
                                case '¾': buffer[i]='z'; break;
                                case '©': buffer[i]='S'; break;
                                case 'Ð': buffer[i]='D'; break;
                                case 'È': buffer[i]='C'; break;
                                case 'Æ': buffer[i]='C'; break;
                                case '®': buffer[i]='Z'; break;
                                }
                        }
                        ap_rprintf(r,"%s",buffer);
                }
        }

        ap_kill_timeout(r);
        ap_pfclose(r->pool, in);
        return OK;
}

int translate_path(request_rec *r) {
        char *uri = r->uri;
        request_rec *subr;
        char *type = NULL;
        extern do_czs;

        do_czs=0;

#ifdef DEBUG
        ap_table_setn(r->headers_out, "X-translate", r->uri);
#endif
        if (uri[0]=='/' && (uri[1] | 0x20) =='c' && (uri[2] | 0x20)=='z' && (uri[3] | 0x20) =='s') {
#if 0
                ap_table_setn(r->headers_out, "Location", ap_pstrcat(r->pool, uri+2, "?czs", NULL));
                return REDIRECT;
#endif
                subr = (request_rec *) ap_sub_req_lookup_uri(r->uri+4, r);
                r->filename=ap_pstrdup(r->pool, subr->filename);
                type = subr->content_type;
#ifdef DEBUG
                ap_table_setn(r->headers_out, "X-translate-content-type", type);
#endif
                if (type == NULL) {
                        return DECLINED; /* hm? */
                }
                do_czs=1;
                ap_destroy_sub_req(subr);
#ifdef XHEADER
# ifdef DEBUG
                ap_table_setn(r->headers_out, "X-debug", XHEADER);
# endif
#endif
                return OK;
        }

        return DECLINED;
}
/* Dispatch list of content handlers */
static const handler_rec czs_handlers[] = { 
  { "czs", czs_handler }, 
  { NULL, NULL }
};

/* Dispatch list for API hooks */
module MODULE_VAR_EXPORT czs_module = {
    STANDARD_MODULE_STUFF, 
    NULL,               /* module initializer                  */
    NULL,               /* create per-dir    config structures */
    NULL,               /* merge  per-dir    config structures */
    NULL,               /* create per-server config structures */
    NULL,               /* merge  per-server config structures */
    NULL,               /* table of config file commands       */
    czs_handlers,       /* [#8] MIME-typed-dispatched handlers */
    translate_path,     /* [#1] URI to filename translation    */
    NULL,               /* [#4] validate user id from request  */
    NULL,               /* [#5] check if the user is ok _here_ */
    NULL,               /* [#2] check access by host address   */
    NULL,               /* [#6] determine MIME type            */
    NULL,               /* [#7] pre-run fixups                 */
    NULL,               /* [#9] log a transaction              */
    NULL,               /* [#3] header parser                  */
    NULL,               /* child_init                          */
    NULL,               /* child_exit                          */
    NULL                /* [#0] post read-request              */
#ifdef EAPI
   ,NULL,               /* EAPI: add_module                    */
    NULL,               /* EAPI: remove_module                 */
    NULL,               /* EAPI: rewrite_command               */
    NULL                /* EAPI: new_connection                */
#endif
};

1	dpavlin	1.1	/*
2			* mod_czs -- nuke iso8859-2 characters
3			* Dobrica Pavlinusic <dpavlin@rot13.org>
4			*
5			* based on mod_format by Stephen F. Booth and
6			* mod_mocrify by Peter Triller, Ernst Bachmann
7			*
8			* Usage: httpd.conf
9			* AddHandler czs .html
10			*
11			* This program is free software; you can redistribute it and/or modify
12			* it under the terms of the GNU General Public License as published by
13			* the Free Software Foundation; either version 2 of the License, or
14			* (at your option) any later version.
15			*
16			* This program is distributed in the hope that it will be useful,
17			* but WITHOUT ANY WARRANTY; without even the implied warranty of
18			* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19			* GNU General Public License for more details.
20			*
21			* You should have received a copy of the GNU General Public License
22			* along with this program; if not, write to the Free Software
23			* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24			*/
25
26			#include "httpd.h"
27			#include "http_main.h"
28			#include "http_config.h"
29			#include "http_log.h"
30			#include "http_protocol.h"
31
32			module MODULE_VAR_EXPORT mod_czs;
33
34			FILE *in;
35			int do_czs;
36
37			static int czs_handler(request_rec *r) {
38
39			char buffer[MAX_STRING_LEN] = "undefined buffer content";
40			int i;
41
42			if(r->method_number != M_GET)
43			return DECLINED;
44			if(r->finfo.st_mode == 0)
45			return NOT_FOUND;
46
47			in = ap_pfopen(r->pool, r->filename, "r");
48
49			if(in == NULL) {
50			ap_log_reason("file permissions deny server access", r->filename, r);
51			return FORBIDDEN;
52			}
53	dpavlin	1.7	#ifdef DEBUG
54	dpavlin	1.1	if(r->args != 0 \|\| do_czs) {
55			ap_table_setn(r->headers_out, "X-czs_filename", r->filename);
56	dpavlin	1.9	ap_table_setn(r->headers_out, "X-czs_content-type", r->content_type);
57	dpavlin	1.2	if (r->args != 0) {
58			ap_table_setn(r->headers_out, "X-czs_args", r->args);
59			}
60	dpavlin	1.1	}
61	dpavlin	1.7	#endif
62	dpavlin	1.1
63	dpavlin	1.9	#ifdef TEST_QUERYSTRINGV
64			if(r->args == 0 && !do_czs \|\| strstr(r->content_type,"cgi") != NULL) {
65	dpavlin	1.5	#else
66	dpavlin	1.9	if(!do_czs \|\| strstr(r->content_type,"cgi") != NULL) {
67	dpavlin	1.5	#endif
68	dpavlin	1.9	return DECLINED;
69			/* ap_send_fd(in, r); */
70	dpavlin	1.1	} else {
71	dpavlin	1.9
72			ap_soft_timeout("send", r);
73			ap_send_http_header(r);
74
75			if(r->header_only) {
76			ap_kill_timeout(r);
77			ap_pfclose(r->pool, in);
78			return OK;
79			}
80	dpavlin	1.5
81			while(fgets(buffer,MAX_STRING_LEN,in)) {
82			for(i=0; i<MAX_STRING_LEN && buffer[i]; i++) {
83			switch ( buffer[i] ) {
84			case '¹': buffer[i]='s'; break;
85			case 'ð': buffer[i]='d'; break;
86			case 'è': buffer[i]='c'; break;
87			case 'æ': buffer[i]='c'; break;
88			case '¾': buffer[i]='z'; break;
89			case '©': buffer[i]='S'; break;
90			case 'Ð': buffer[i]='D'; break;
91			case 'È': buffer[i]='C'; break;
92			case 'Æ': buffer[i]='C'; break;
93			case '®': buffer[i]='Z'; break;
94			}
95	dpavlin	1.1	}
96	dpavlin	1.5	ap_rprintf(r,"%s",buffer);
97	dpavlin	1.1	}
98			}
99
100			ap_kill_timeout(r);
101			ap_pfclose(r->pool, in);
102			return OK;
103			}
104
105	dpavlin	1.10	int translate_path(request_rec *r) {
106			char *uri = r->uri;
107			request_rec *subr;
108			char *type = NULL;
109			extern do_czs;
110
111			do_czs=0;
112
113			#ifdef DEBUG
114			ap_table_setn(r->headers_out, "X-translate", r->uri);
115			#endif
116			if (uri[0]=='/' && (uri[1] \| 0x20) =='c' && (uri[2] \| 0x20)=='z' && (uri[3] \| 0x20) =='s') {
117			#if 0
118			ap_table_setn(r->headers_out, "Location", ap_pstrcat(r->pool, uri+2, "?czs", NULL));
119			return REDIRECT;
120			#endif
121			subr = (request_rec *) ap_sub_req_lookup_uri(r->uri+4, r);
122			r->filename=ap_pstrdup(r->pool, subr->filename);
123			type = subr->content_type;
124			#ifdef DEBUG
125			ap_table_setn(r->headers_out, "X-translate-content-type", type);
126			#endif
127			if (type == NULL) {
128			return DECLINED; /* hm? */
129			}
130			do_czs=1;
131			ap_destroy_sub_req(subr);
132			#ifdef XHEADER
133			# ifdef DEBUG
134			ap_table_setn(r->headers_out, "X-debug", XHEADER);
135			# endif
136			#endif
137			return OK;
138			}
139
140			return DECLINED;
141			}
142	dpavlin	1.1	/* Dispatch list of content handlers */
143			static const handler_rec czs_handlers[] = {
144			{ "czs", czs_handler },
145			{ NULL, NULL }
146			};
147
148			/* Dispatch list for API hooks */
149			module MODULE_VAR_EXPORT czs_module = {
150			STANDARD_MODULE_STUFF,
151			NULL, /* module initializer */
152			NULL, /* create per-dir config structures */
153			NULL, /* merge per-dir config structures */
154			NULL, /* create per-server config structures */
155			NULL, /* merge per-server config structures */
156			NULL, /* table of config file commands */
157			czs_handlers, /* [#8] MIME-typed-dispatched handlers */
158			translate_path, /* [#1] URI to filename translation */
159			NULL, /* [#4] validate user id from request */
160			NULL, /* [#5] check if the user is ok _here_ */
161			NULL, /* [#2] check access by host address */
162			NULL, /* [#6] determine MIME type */
163			NULL, /* [#7] pre-run fixups */
164			NULL, /* [#9] log a transaction */
165			NULL, /* [#3] header parser */
166			NULL, /* child_init */
167			NULL, /* child_exit */
168			NULL /* [#0] post read-request */
169	dpavlin	1.8	#ifdef EAPI
170			,NULL, /* EAPI: add_module */
171			NULL, /* EAPI: remove_module */
172			NULL, /* EAPI: rewrite_command */
173			NULL /* EAPI: new_connection */
174			#endif
175	dpavlin	1.1	};
176