Home | History | Annotate | Line # | Download | only in httpd
printenv.lua revision 1.2 
      1  1.2      mrg -- $NetBSD: printenv.lua,v 1.2 2014/01/02 08:21:38 mrg Exp $
      2  1.2      mrg 
      3  1.1  mbalmer -- this small Lua script demonstrates the use of Lua in (bozo)httpd
      4  1.1  mbalmer -- it will simply output the "environment"
      5  1.1  mbalmer 
      6  1.1  mbalmer -- Keep in mind that bozohttpd forks for each request when started in
      7  1.1  mbalmer -- daemon mode, you can set global veriables here, but they will have
      8  1.1  mbalmer -- the same value on each invocation.  You can not keep state between
      9  1.1  mbalmer -- two calls.
     10  1.1  mbalmer 
     11  1.1  mbalmer local httpd = require 'httpd'
     12  1.1  mbalmer 
     13  1.1  mbalmer function printenv(env, headers, query)
     14  1.1  mbalmer 
     15  1.1  mbalmer 	-- we get the "environment" in the env table, the values are more
     16  1.1  mbalmer 	-- or less the same as the variable for a CGI program
     17  1.1  mbalmer 
     18  1.1  mbalmer 	if count == nil then
     19  1.1  mbalmer 		count = 1
     20  1.1  mbalmer 	end
     21  1.1  mbalmer 
     22  1.1  mbalmer 	-- output a header
     23  1.1  mbalmer 	print([[
     24  1.1  mbalmer 		<html>
     25  1.1  mbalmer 			<head>
     26  1.1  mbalmer 				<title>Bozotic Lua Environment</title>
     27  1.1  mbalmer 			</head>
     28  1.1  mbalmer 			<body>
     29  1.1  mbalmer 				<h1>Bozotic Lua Environment</h1>
     30  1.1  mbalmer 	]])
     31  1.1  mbalmer 
     32  1.1  mbalmer 	print('module version: ' .. httpd._VERSION .. '<br>')
     33  1.1  mbalmer 
     34  1.1  mbalmer 	print('<h2>Server Environment</h2>')
     35  1.1  mbalmer 	-- print the list of "environment" variables
     36  1.1  mbalmer 	for k, v in pairs(env) do
     37  1.1  mbalmer 		print(k .. '=' .. v .. '<br/>')
     38  1.1  mbalmer 	end
     39  1.1  mbalmer 
     40  1.1  mbalmer 	print('<h2>Request Headers</h2>')
     41  1.1  mbalmer 	for k, v in pairs(headers) do
     42  1.1  mbalmer 		print(k .. '=' .. v .. '<br/>')
     43  1.1  mbalmer 	end
     44  1.1  mbalmer 
     45  1.1  mbalmer 	if query ~= nil then
     46  1.1  mbalmer 		print('<h2>Query Variables</h2>')
     47  1.1  mbalmer 		for k, v in pairs(query) do
     48  1.1  mbalmer 			print(k .. '=' .. v .. '<br/>')
     49  1.1  mbalmer 		end
     50  1.1  mbalmer 	end
     51  1.1  mbalmer 
     52  1.1  mbalmer 	print('<h2>Form Test</h2>')
     53  1.1  mbalmer 
     54  1.1  mbalmer 	print([[
     55  1.1  mbalmer 	<form method="POST" action="/rest/form?sender=me">
     56  1.1  mbalmer 	<input type="text" name="a_value">
     57  1.1  mbalmer 	<input type="submit">
     58  1.1  mbalmer 	</form>
     59  1.1  mbalmer 	]])
     60  1.1  mbalmer 	-- output a footer
     61  1.1  mbalmer 	print([[
     62  1.1  mbalmer 		</body>
     63  1.1  mbalmer 	</html>
     64  1.1  mbalmer 	]])
     65  1.1  mbalmer end
     66  1.1  mbalmer 
     67  1.1  mbalmer function form(env, header, query)
     68  1.1  mbalmer 	if query ~= nil then
     69  1.1  mbalmer 		print('<h2>Form Variables</h2>')
     70  1.1  mbalmer 
     71  1.1  mbalmer 		if env.CONTENT_TYPE ~= nil then
     72  1.1  mbalmer 			print('Content-type: ' .. env.CONTENT_TYPE .. '<br>')
     73  1.1  mbalmer 		end
     74  1.1  mbalmer 
     75  1.1  mbalmer 		for k, v in pairs(query) do
     76  1.1  mbalmer 			print(k .. '=' .. v .. '<br/>')
     77  1.1  mbalmer 		end
     78  1.1  mbalmer 	else
     79  1.1  mbalmer 		print('No values')
     80  1.1  mbalmer 	end
     81  1.1  mbalmer end
     82  1.1  mbalmer 
     83  1.1  mbalmer -- register this handler for http://<hostname>/<prefix>/printenv
     84  1.1  mbalmer httpd.register_handler('printenv', printenv)
     85  1.1  mbalmer httpd.register_handler('form', form)
     86