fuzed 0.1.0

data/elibs/test_rails_handler.erl

@@ -0,0 +1,11 @@
+-module(test_rails_handler).
+-author('klacke@bluetail.com').
+-include("../yaws_includes/yaws_api.hrl").
+-compile(export_all).
+
+
+out404(A, _GC, SC) ->
+  Resource = rails_connection_pool:get(),
+  Result = rails_forwarder:handle_request(Resource, A,SC, 5000),
+  rails_connection_pool:refund(Resource),
+  Result.

data/join_cluster.erl

@@ -0,0 +1,26 @@
+-module(join_cluster).
+-compile(export_all).
+
+start(Server, Command) ->
+  code:add_patha("./elibs"),
+  erlang:set_cookie(node(), 'AWZVAQXUPGVPKZQLYEUP'),
+  net_adm:ping(Server), sleep_in_HEAVENLY_PEACE(2),
+  start_resource_manager(Command, 4).
+
+start_resource_manager(Command, N) -> 
+  Spawner = fun() -> 
+    Responder = port_wrapper:wrap(Command),
+    rails_connection_pool:add({node(), Responder}),
+    Responder
+  end,
+  Slayer = fun(Responder) -> 
+    Responder ! shutdown,
+    rails_connection_pool:remove({node(), Responder})
+  end,
+  resource_manager:start(Spawner,Slayer,N).
+
+sleep_in_HEAVENLY_PEACE(Secs) -> 
+  receive
+  after Secs * 1000 -> 
+    Secs * 1000
+  end.

data/lib/fuzed.rb

@@ -0,0 +1,13 @@
+$:.unshift File.dirname(__FILE__)
+
+module Fuzed
+  VERSION = '0.1.0'
+  
+  def self.root
+    File.expand_path(File.join(File.dirname(__FILE__), *%w[..]))
+  end
+  
+  def self.relative(path)
+    File.join(self.root, path)
+  end
+end

data/rails_responder

@@ -0,0 +1,3 @@
+#!/usr/bin/env ruby
+
+load File.join(File.dirname(__FILE__), *%w[helloworld script rack.rb])

data/sample.fuzed.conf

@@ -0,0 +1,38 @@
+# conf for yaws
+
+logdir = /usr/local/var/log/yaws
+
+ebin_dir = /usr/local/lib/yaws/examples/ebin
+
+include_dir = /usr/local/lib/yaws/examples/include
+
+trace = false
+
+copy_error_log = true
+
+log_wrap_size = 1000000
+
+log_resolve_hostname = false
+
+fail_on_bind_err = true
+
+auth_log = true
+
+pick_first_virthost_on_nomatch = true
+
+use_fdsrv = false
+
+<server testing>
+	port = 8002
+	listen = 0.0.0.0
+	docroot = /Users/tom/dev/git/fuzed/helloworld/public
+	errormod_404 = test_rails_handler
+</server>
+
+	
+
+
+
+
+
+

data/start_node

@@ -0,0 +1,6 @@
+#!/bin/sh
+
+echo "Starting a client named $1 offering service to $2"
+echo "Each node will run: '$3'"
+erl -noshell -name $1 -eval "join_cluster:start('$2',\"$3\")."
+#echo "join_cluster:start($2,\"$3\")"

data/start_yaws

@@ -0,0 +1,5 @@
+#!/bin/sh
+
+# Invoke with an argument which is the nodename
+echo "Starting yaws server with name: $@"
+yaws --conf testing.conf --pa elibs -name "$@" --runmod rails_connection_pool

data/templates/fuzed.conf

@@ -0,0 +1,38 @@
+# conf for yaws
+
+logdir = /usr/local/var/log/yaws
+
+ebin_dir = /usr/local/lib/yaws/examples/ebin
+
+include_dir = /usr/local/lib/yaws/examples/include
+
+trace = false
+
+copy_error_log = true
+
+log_wrap_size = 1000000
+
+log_resolve_hostname = false
+
+fail_on_bind_err = true
+
+auth_log = true
+
+pick_first_virthost_on_nomatch = true
+
+use_fdsrv = false
+
+<server testing>
+	port = {{ PORT }}
+	listen = 0.0.0.0
+	docroot = {{ RAILS_PUBLIC_DIR }}
+	errormod_404 = test_rails_handler
+</server>
+
+	
+
+
+
+
+
+

data/testing.conf

@@ -0,0 +1,177 @@
+
+# conf for yaws
+
+
+# first we have a set of globals
+# That apply to all virtual servers
+
+
+# This is the directory where all logfiles for
+# all virtual servers will be written
+
+logdir = /usr/local/var/log/yaws
+
+# This the path to a directory where additional
+# beam code can be placed. The daemon will add this
+# directory to its search path
+
+ebin_dir = /usr/local/lib/yaws/examples/ebin
+
+
+# This is a directory where application specific .hrl
+# files can be placed. application specifig .yaws code can
+# then include these .hrl files
+
+include_dir = /usr/local/lib/yaws/examples/include
+
+
+
+
+
+# This is a debug variable, possible values are http | traffic | false
+# It is also possible to set the trace (possibly to the tty) while
+# invoking yaws from the shell as in
+# yaws -i -T -x (see man yaws)
+
+trace = false
+
+
+
+
+
+# it is possible to have yaws start additional 
+# application specific code at startup
+# 
+# runmod = mymodule
+
+
+# By default yaws will copy the erlang error_log and
+# end write it to a wrap log called report.log (in the logdir)
+# this feature can be turned off. This would typically
+# be the case when yaws runs within another larger app
+
+copy_error_log = true
+
+
+# Logs are wrap logs
+
+log_wrap_size = 1000000
+
+
+# Possibly resolve all hostnames in logfiles so webalizer
+# can produce the nice geography piechart
+
+log_resolve_hostname = false
+
+
+
+# fail completely or not if yaws fails 
+# to bind a listen socket
+fail_on_bind_err = true
+
+
+
+# If yaws is started as root, it can, once it has opened
+# all relevant sockets for listening, change the uid to a 
+# user with lower accessrights than root 
+
+# username = nobody
+
+
+# If HTTP auth is used, it is possible to have a specific
+# auth log.
+
+auth_log = true
+
+
+# When we're running multiple yaws systems on the same 
+# host, we need to give each yaws system an individual
+# name. Yaws will write a number of runtime files under
+# /tmp/yaws/${id}
+# The default value is "default"
+
+
+# id = myname
+
+
+# earlier versions of Yaws picked the first virtual host
+# in a list of hosts with the same IP/PORT when the Host:
+# header doesn't match any name on any Host
+# This is often nice in testing environments but not
+# acceptable in real live hosting scenarios
+
+pick_first_virthost_on_nomatch = true
+
+
+# All unices are broken since it's not possible to bind to
+# a privileged port (< 1024) unless uid==0
+# There is a contrib in jungerl which makes it possible by means 
+# of an external setuid root programm called fdsrv to listen to
+# to privileged port.
+# If we use this feature, it requires fdsrv to be properly installed.
+# Doesn't yet work with SSL.
+
+use_fdsrv = false
+
+
+
+
+# end then a set of virtual servers
+# First two virthosted servers on the same IP (0.0.0.0)
+# in this case, but an explicit IP can be given as well
+
+#<server sean.desk.hq.powerset.com>
+#	port = 80
+#	listen = 0.0.0.0
+#	docroot = /usr/local/var/yaws/www
+#</server>
+
+#<server localhost>
+#	port = 80
+#	listen = 0.0.0.0
+#	docroot = /tmp
+#	dir_listings = true
+#	dav = true
+#	<auth>
+#		realm = foobar
+#		dir = /
+#		user = foo:bar
+#		user = baz:bar
+#	</auth>
+#</server>
+
+<server debug>
+	port = 8001
+	listen = 0.0.0.0
+	docroot = /Users/tom/dev/git/fuzed/helloworld/public
+	appmods = <pathelem, myappmod>
+	errormod_404 = myappmod
+</server>
+
+<server testing>
+	port = 8002
+	listen = 0.0.0.0
+	docroot = /Users/tom/dev/git/fuzed/helloworld/public
+	errormod_404 = test_rails_handler
+</server>
+
+# And then an ssl server
+#
+#<server sean.desk.hq.powerset.com>
+#	port = 443
+#	docroot = /tmp
+#	listen = 0.0.0.0
+#	dir_listings = true
+#	<ssl>  
+#	        keyfile = /usr/local/etc/yaws-key.pem
+#	        certfile = /usr/local/etc/yaws-cert.pem
+#	</ssl>
+#</server>
+				
+	
+
+
+
+
+
+

data/yaws_includes/erlsom.hrl

@@ -0,0 +1,28 @@
+%%% ====================================================================
+%%% Header file for erlsom
+%%% 
+%%% Copyright (C) 2006 Willem de Jong
+%%%
+%%% 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
+%%%
+%%% Author contact: w.a.de.jong@gmail.com
+%%% ====================================================================
+
+%%% version: 0.0.2
+
+%% prefix=the prefix that will be used in the result
+-record(ns, {uri, prefix}).
+-record(qname, {uri, localPart, prefix, mappedPrefix}).

data/yaws_includes/soap.hrl

@@ -0,0 +1,48 @@
+-record(wsdl, {operations, model, module}).
+-record(port, {service, port, binding, address}).
+-record(operation, {service, port, operation, binding, address, action}).
+-record('soap:detail', {anyAttribs, choice}).
+-record('soap:Fault', {anyAttribs, 'faultcode', 'faultstring', 'faultactor', 'detail'}).
+-record('soap:Body', {anyAttribs, choice}).
+-record('soap:Header', {anyAttribs, choice}).
+-record('soap:Envelope', {anyAttribs, 'Header', 'Body', choice}).
+-record('wsdl:tExtensibilityElement', {anyAttribs, 'wsdl:required'}).
+-record('wsdl:tPort', {anyAttribs, 'name', 'binding', 'documentation', choice}).
+-record('wsdl:tService', {anyAttribs, 'name', 'documentation', choice, 'port'}).
+-record('wsdl:tBindingOperation', {anyAttribs, 'name', 'documentation', choice, 'input', 'output', 'fault'}).
+-record('wsdl:tBindingOperationFault', {anyAttribs, 'name', 'documentation', choice}).
+-record('wsdl:tBindingOperationMessage', {anyAttribs, 'name', 'documentation', choice}).
+-record('wsdl:tBinding', {anyAttribs, 'name', 'type', 'documentation', choice, 'operation'}).
+-record('wsdl:tFault', {anyAttribs, 'name', 'message', 'documentation'}).
+-record('wsdl:tParam', {anyAttribs, 'name', 'message', 'documentation'}).
+-record('wsdl:solicit-response-or-notification-operation', {anyAttribs, 'output', 'solicit-response-or-notification-operation/SEQ2'}).
+-record('wsdl:solicit-response-or-notification-operation/SEQ2', {anyAttribs, 'input', 'fault'}).
+-record('wsdl:request-response-or-one-way-operation', {anyAttribs, 'input', 'request-response-or-one-way-operation/SEQ1'}).
+-record('wsdl:request-response-or-one-way-operation/SEQ1', {anyAttribs, 'output', 'fault'}).
+-record('wsdl:tOperation', {anyAttribs, 'name', 'parameterOrder', 'documentation', any, choice}).
+-record('wsdl:tPortType', {anyAttribs, 'name', 'documentation', 'operation'}).
+-record('wsdl:tPart', {anyAttribs, 'name', 'element', 'type', 'documentation'}).
+-record('wsdl:tMessage', {anyAttribs, 'name', 'documentation', choice, 'part'}).
+-record('wsdl:tTypes', {anyAttribs, 'documentation', choice}).
+-record('wsdl:tImport', {anyAttribs, 'namespace', 'location', 'documentation'}).
+-record('wsdl:tDefinitions', {anyAttribs, 'targetNamespace', 'name', 'documentation', any, choice}).
+-record('wsdl:anyTopLevelOptionalElement-service', {anyAttribs, 'service'}).
+-record('wsdl:anyTopLevelOptionalElement-binding', {anyAttribs, 'binding'}).
+-record('wsdl:anyTopLevelOptionalElement-portType', {anyAttribs, 'portType'}).
+-record('wsdl:anyTopLevelOptionalElement-message', {anyAttribs, 'message'}).
+-record('wsdl:anyTopLevelOptionalElement-types', {anyAttribs, 'types'}).
+-record('wsdl:anyTopLevelOptionalElement-import', {anyAttribs, 'import'}).
+-record('wsdl:anyTopLevelOptionalElement', {anyAttribs, choice}).
+-record('wsdl:tExtensibleDocumented', {anyAttribs, 'documentation', choice}).
+-record('wsdl:tExtensibleAttributesDocumented', {anyAttribs, 'documentation'}).
+-record('wsdl:tDocumented', {anyAttribs, 'documentation'}).
+-record('wsdl:tDocumentation-any', {anyAttribs, choice}).
+-record('wsdl:tDocumentation', {anyAttribs, choice}).
+-record('soap:tBinding', {anyAttribs, 'wsdl:required', 'transport', 'style'}).
+-record('soap:tOperation', {anyAttribs, 'wsdl:required', 'soapAction', 'style'}).
+-record('soap:tBody', {anyAttribs, 'wsdl:required', 'parts', 'namespace', 'use', 'encodingStyle'}).
+-record('soap:tFaultRes', {anyAttribs, 'wsdl:required', 'parts', 'namespace', 'use', 'encodingStyle'}).
+-record('soap:tFault', {anyAttribs, 'wsdl:required', 'parts', 'namespace', 'use', 'encodingStyle', 'name'}).
+-record('soap:tHeader', {anyAttribs, 'wsdl:required', 'namespace', 'encodingStyle', 'use', 'part', 'message', 'headerfault'}).
+-record('soap:tHeaderFault', {anyAttribs, 'namespace', 'encodingStyle', 'use', 'part', 'message'}).
+-record('soap:tAddress', {anyAttribs, 'wsdl:required', 'location'}).

data/yaws_includes/yaws.hrl

@@ -0,0 +1,271 @@
+%%%----------------------------------------------------------------------
+%%% File    : yaws.hrl
+%%% Author  : Claes Wikstrom <klacke@hyber.org>
+%%% Purpose : 
+%%% Created : 16 Jan 2002 by Claes Wikstrom <klacke@hyber.org>
+%%%----------------------------------------------------------------------
+
+-author('klacke@hyber.org').
+
+
+
+%% flags for gconfs 
+-define(GC_TTY_TRACE,                        1).
+-define(GC_DEBUG,                            2).
+-define(GC_AUTH_LOG,                         4).
+-define(GC_COPY_ERRLOG,                      8).
+-define(GC_BACKWARDS_COMPAT_PARSE,          16).
+-define(GC_LOG_RESOLVE_HOSTNAME,            32).
+-define(GC_FAIL_ON_BIND_ERR,                64).
+-define(GC_PICK_FIRST_VIRTHOST_ON_NOMATCH, 128).
+-define(GC_USE_FDSRV,                      256).
+-define(GC_USE_LARGE_SSL_POOL,             512).
+
+-define(GC_DEF, (?GC_AUTH_LOG bor ?GC_FAIL_ON_BIND_ERR)).
+
+-define(gc_has_tty_trace(GC), 
+	((GC#gconf.flags band ?GC_TTY_TRACE) /= 0)).
+-define(gc_has_debug(GC), 
+	((GC#gconf.flags band ?GC_DEBUG) /= 0)).
+-define(gc_has_auth_log(GC), 
+	((GC#gconf.flags band ?GC_AUTH_LOG) /= 0)).
+-define(gc_has_copy_errlog(GC), 
+	((GC#gconf.flags band ?GC_COPY_ERRLOG) /= 0)).
+-define(gc_has_backwards_compat_parse(GC), 
+	((GC#gconf.flags band ?GC_BACKWARDS_COMPAT_PARSE) /= 0)).
+-define(gc_log_has_resolve_hostname(GC), 
+	((GC#gconf.flags band ?GC_LOG_RESOLVE_HOSTNAME) /= 0)).
+-define(gc_fail_on_bind_err(GC), 
+	((GC#gconf.flags band ?GC_FAIL_ON_BIND_ERR) /= 0)).
+-define(gc_pick_first_virthost_on_nomatch(GC),
+	((GC#gconf.flags band ?GC_PICK_FIRST_VIRTHOST_ON_NOMATCH) /= 0)).
+-define(gc_use_fdsrv(GC),
+	((GC#gconf.flags band ?GC_USE_FDSRV) /= 0)).
+-define(gc_use_large_ssl_pool(GC),
+	((GC#gconf.flags band ?GC_USE_LARGE_SSL_POOL) /= 0)).
+
+-define(gc_set_tty_trace(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags,?GC_TTY_TRACE, Bool)}).
+-define(gc_set_debug(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags, ?GC_DEBUG, Bool)}).
+-define(gc_set_auth_log(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags, ?GC_AUTH_LOG, Bool)}).
+-define(gc_set_copy_errlog(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags, ?GC_COPY_ERRLOG, Bool)}).
+-define(gc_set_backwards_compat_parse(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags, 
+				   ?GC_BACKWARDS_COMPAT_PARSE, Bool)}).
+-define(gc_log_set_resolve_hostname(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags, 
+				   ?GC_LOG_RESOLVE_HOSTNAME, Bool)}).
+-define(gc_set_fail_on_bind_err(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags,?GC_FAIL_ON_BIND_ERR,Bool)}).
+-define(gc_set_pick_first_virthost_on_nomatch(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags,
+				   ?GC_PICK_FIRST_VIRTHOST_ON_NOMATCH,Bool)}).
+-define(gc_set_use_fdsrv(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags,?GC_USE_FDSRV,Bool)}).
+
+-define(gc_set_use_large_ssl_pool(GC, Bool), 
+	GC#gconf{flags = yaws:flag(GC#gconf.flags,?GC_USE_LARGE_SSL_POOL,Bool)}).
+
+%% global conf
+-record(gconf,{yaws_dir,           %% topdir of Yaws installation
+	       trace,              %% false | {true,http}|{true,traffic}
+	       flags = ?GC_DEF,    %% boolean flags
+	       logdir,          
+	       ebin_dir = [],
+	       runmods = [],       %% runmods for entire server
+	       keepalive_timeout = 15000,
+	       max_num_cached_files = 400,
+	       max_num_cached_bytes = 1000000,  %% 1 MEG
+	       max_size_cached_file = 8000,
+	       large_file_chunk_size = 10240,
+	       log_wrap_size = 10000000,  % wrap logs after 10M
+	       cache_refresh_secs = 30,  % seconds  (auto zero when debug)
+	       include_dir = [],    %% list of inc dirs for .yaws files 
+	       phpexe = "php-cgi",  %% cgi capable php executable
+	       yaws,                %% server string
+	       %username,           %% maybe run as a different user than root
+	       %uid,                %% unix uid of user that started yaws
+	       id = "default",      %% string identifying this instance of yaws
+	       tmpdir,
+	       enable_soap = false  %% start yaws_soap_srv iff true
+	      }).  
+
+
+
+-record(ssl, 
+	{
+	 keyfile,
+	 certfile,
+	 verify = 0,
+	 depth = 1,
+	 password,
+	 cacertfile,
+	 ciphers,
+	 cachetimeout}).
+
+
+%% flags for sconfs
+-define(SC_ACCESS_LOG,   1).
+-define(SC_ADD_PORT,     2).
+-define(SC_TILDE_EXPAND, 8).
+-define(SC_DIR_LISTINGS, 16).
+-define(SC_DEFLATE,      32).
+-define(SC_DIR_ALL_ZIP,  64).
+-define(SC_DAV,         128).
+
+-define(SC_DEF, ?SC_ACCESS_LOG bor ?SC_ADD_PORT).
+
+-define(sc_has_access_log(SC), 
+	(((SC)#sconf.flags band ?SC_ACCESS_LOG) /= 0)).
+-define(sc_has_add_port(SC), 
+	(((SC)#sconf.flags band ?SC_ADD_PORT) /= 0)).
+-define(sc_has_tilde_expand(SC),
+	(((SC)#sconf.flags band ?SC_TILDE_EXPAND) /= 0)).
+-define(sc_has_dir_listings(SC),
+	(((SC)#sconf.flags band ?SC_DIR_LISTINGS) /= 0)).
+-define(sc_has_deflate(SC), 
+	(((SC)#sconf.flags band ?SC_DEFLATE) /= 0)).
+-define(sc_has_dir_all_zip(SC),
+	(((SC)#sconf.flags band ?SC_DIR_ALL_ZIP) /= 0)).
+-define(sc_has_dav(SC),
+	(((SC)#sconf.flags band ?SC_DAV) /= 0)).
+
+
+-define(sc_set_access_log(SC, Bool), 
+	SC#sconf{flags = yaws:flag(SC#sconf.flags, ?SC_ACCESS_LOG, Bool)}).
+-define(sc_set_add_port(SC, Bool), 
+	SC#sconf{flags = yaws:flag(SC#sconf.flags, ?SC_ADD_PORT, Bool)}).
+-define(sc_set_ssl(SC, Bool), 
+	SC#sconf{flags = yaws:flag(SC#sconf.flags , ?SC_SSL, Bool)}).
+-define(sc_set_tilde_expand(SC, Bool), 
+	SC#sconf{flags = yaws:flag(SC#sconf.flags, ?SC_TILDE_EXPAND, Bool)}).
+-define(sc_set_dir_listings(SC, Bool), 
+	SC#sconf{flags = yaws:flag(SC#sconf.flags, ?SC_DIR_LISTINGS, Bool)}).
+-define(sc_set_deflate(SC, Bool), 
+	SC#sconf{flags = yaws:flag(SC#sconf.flags, ?SC_DEFLATE, Bool)}).
+-define(sc_set_dir_all_zip(SC, Bool), 
+	SC#sconf{flags = yaws:flag(SC#sconf.flags, ?SC_DIR_ALL_ZIP, Bool)}).
+-define(sc_set_dav(SC, Bool), 
+	SC#sconf{flags = yaws:flag(SC#sconf.flags, ?SC_DAV, Bool)}).
+
+
+
+%% server conf
+-record(sconf,
+	{port = 8000,                %% which port is this server listening to
+	 flags = ?SC_DEF,
+	 redirect_map=[],            %% redirect all requests to HostPort
+	 rhost,                      %% forced redirect host (+ optional port)
+	 rmethod,                    %% forced redirect method
+	 docroot,                    %% path to the docs
+	 xtra_docroots = [],         %% if we have additional pseudo docroots
+	 listen = {127,0,0,1},       %% bind to this IP, {0,0,0,0} is possible
+	 servername = "localhost",   %% servername is what Host: header is
+	 ets,                        %% local store for this server
+	 ssl,
+	 authdirs = [],
+	 partial_post_size = nolimit,
+	 appmods = [],                %% list of modules for this app
+	 errormod_404 = yaws_404,     %% the default 404 error module 
+	 errormod_crash = yaws_404,   %% use the same module for crashes
+	 arg_rewrite_mod = yaws,
+	 opaque = [],                 %% useful in embedded mode
+	 start_mod,                   %% user provided module to be started
+	 allowed_scripts = [yaws],
+	 revproxy = []
+	}).
+
+%% we cannot compare sconfs directly due to the ets
+%% field in #sconf{} use yaws_config:eq_sconfs/2
+
+
+% Auth conf - from server conf and .yaws_auth
+-record(auth,
+         {dir = [],
+          realm = "",
+          type = "Basic",
+          users = [],
+	  mod = [],     %% authentication module callback
+	  pam = false   %% should we use pam to auth a user
+         }).
+
+
+
+%% this internal record is used and returned by the URL path parser
+
+-record(urltype, {type,   %% error | yaws | regular | directory | 
+                          %% forbidden | appmod
+		  finfo,
+		  path = [],
+		  fullpath = [], %% deep list
+		  dir = [],      %% relative dir where the path leads to
+		                 %% flat | unflat need flat for authentication
+		  data,  %% Binary | FileDescriptor | DirListing | undefined
+		  deflate,  %% undefined | Binary | dynamic
+		  mime = "text/html",    %% MIME type
+		  getpath,  %% as GET'ed by client
+		  pathinfo
+		 }).
+
+
+
+
+%% this record is constructed as we build up
+%% the outgoing headers
+
+-record(outh, {
+	  status,        %% int status code
+
+	  doclose,       %% bool
+	  chunked,       %% bool
+	  encoding=identity,
+	                 %% identity, deflate
+	  contlen,       %% integer
+	  act_contlen,   %% actual content length for dynamic pages
+
+
+                         %% and the total set of out headers we can have
+                         %% as actual strings
+	  connection,
+	  server,
+	  location,
+	  cache_control,
+	  date,
+	  allow,
+	  last_modified,
+	  etag,
+	  set_cookie,
+	  content_range,
+	  content_length,
+	  content_type,
+	  content_encoding,
+	  transfer_encoding,
+	  www_authenticate,
+	  other     %% misc other headers
+}).
+
+
+	  
+-define(READ_TIMEOUT, 30000).
+
+
+
+
+-record(appmodspec, {
+	  type,  %% atom, pair or absolute
+	  data}).
+
+
+%% as read by application:get_env()
+-record(env, {debug,  
+	      trace,
+	      traceoutput,
+	      conf,
+	      runmod,
+	      embedded,
+	      id
+	     }).
+