volta: process.c@23a242d7b7fa (annotated)

10 d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	1	/* vim: set noet nosta sw=4 ts=4 ft=c : */
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	2	/*
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	3	Copyright (c) 2011, Mahlon E. Smith <mahlon@martini.nu>
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	4	All rights reserved.
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	5	Redistribution and use in source and binary forms, with or without
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	6	modification, are permitted provided that the following conditions are met:
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	7
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	8	* Redistributions of source code must retain the above copyright
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	9	notice, this list of conditions and the following disclaimer.
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	10
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	11	* Redistributions in binary form must reproduce the above copyright
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	12	notice, this list of conditions and the following disclaimer in the
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	13	documentation and/or other materials provided with the distribution.
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	14
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	15	* Neither the name of Mahlon E. Smith nor the names of his
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	16	contributors may be used to endorse or promote products derived
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	17	from this software without specific prior written permission.
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	18
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	19	THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND ANY
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	20	EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	21	WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	22	DISCLAIMED. IN NO EVENT SHALL THE REGENTS AND CONTRIBUTORS BE LIABLE FOR ANY
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	23	DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	24	(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	25	LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	26	ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	27	(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	28	SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	29	*/
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	30
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	31	#include "volta.h"
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	32	#include "db.h"
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	33
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	34	void
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	35	process( char *line )
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	36	{
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	37	request *p_request = parse( line );
13 23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	38	rewrite *p_rewrite = prepare_rewrite( p_request );
10 d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	39
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	40	/* count lines in debugmode */
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	41	if ( v.debugmode > 2 ) v.timer.lines++;
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	42
13 23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	43	/* If parsing failed or there wasn't a successful rewrite match,
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	44	* return a blank line to squid to allow the request to pass
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	45	* through unmolested. */
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	46	if ( p_request == NULL \|\| p_rewrite == NULL ) {
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	47	out( "\n" );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	48	finish_request( p_request );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	49	finish_rewrite( p_rewrite );
10 d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	50	return;
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	51	}
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	52
13 23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	53	if ( v.debugmode < 4 ) {
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	54	if ( p_rewrite->redir == REDIR_TEMPORARY ) printf( "302:" );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	55	if ( p_rewrite->redir == REDIR_PERMANENT ) printf( "301:" );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	56
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	57	if ( p_request->scheme \|\| p_rewrite->scheme )
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	58	printf( "%s", p_rewrite->scheme ? p_rewrite->scheme : p_request->scheme );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	59	printf( "%s", p_rewrite->host ? p_rewrite->host : p_request->host );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	60	printf( "%s", p_rewrite->path ? p_rewrite->path : p_request->path );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	61	if ( p_request->port != 0 \|\| p_rewrite->port != 0 )
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	62	printf( ":%d", p_rewrite->port ? p_rewrite->port : p_request->port );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	63	printf("\n");
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	64	}
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	65	else {
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	66	debug( 5, LOC, "Rewrite match on %s/%s\n", p_request->host, p_request->path );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	67	debug( 5, LOC, " --> %s/%s\n", p_rewrite->host, p_rewrite->path );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	68	}
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	69
10 d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	70
13 23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	71	/* unsigned long hst, net; */
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	72	/* hst = inet_lnaof( (p_request->client_ip) ); /
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	73	/* net = inet_netof( (p_request->client_ip) ); /
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	74	/* printf("%14s : net=0x%08lX host=0x%08lX\n", inet_ntoa( (p_request->client_ip) ), net, hst); /
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	75	/* printf("%14s : net=%lu host=%lu\n", inet_ntoa( (p_request->client_ip) ), net, hst); /
10 d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	76
13 23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	77	/*
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	78	* create function bigint_to_inet(bigint) returns inet as $$
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	79	* select
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	80	* (($1>>24&255)\|\|'.'\|\|($1>>16&255)\|\|'.'\|\|($1>>8&255)\|\|'.'\|\|($1>>0&255))::inet
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	81	* $$ language sql;
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	82	* */
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	83
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	84	/*
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	85	char ip[ INET_ADDRSTRLEN ];
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	86	inet_ntop( AF_INET, p_request->client_ip, ip, INET_ADDRSTRLEN );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	87	printf( "%s\n", ip );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	88	*/
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	89
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	90	finish_request( p_request );
23a242d7b7fa 1st iteration of volta actually doing something. Process the request, Mahlon E. Smith <mahlon@laika.com> parents: 10 diff changeset	91	finish_rewrite( p_rewrite );
10 d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	92	return;
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	93	}
d07309450285 Get the ragel line parser properly tokenizing the input lines. Add a Mahlon E. Smith <mahlon@martini.nu> parents: diff changeset	94

author	Mahlon E. Smith <mahlon@laika.com>
	Mon, 31 Oct 2011 17:17:07 -0700
changeset 13	23a242d7b7fa
parent 10	d07309450285
child 14	51eb85ae4de4
permissions	-rw-r--r--