#!/usr/local/bin/jconsole

safe_getenv =. monad define
	if. 0 -: value =. getenv y. do.
		'undefined'
	else.
		value
	end.
)

show_info =. monad define
	for_arg.  2!:4'' do.
		stdout 'ARGV: ', (>arg), LF
	end.

	for_envvar. ;:'REQUEST_METHOD PATH_INFO QUERY_STRING' do.
		val =. safe_getenv >envvar
		stdout (>envvar), ': ', val, LF
	end.

	if. (<safe_getenv 'REQUEST_METHOD') e. ;:'POST PUT'  do.
		input =. stdin''
		stdout 'Number of characters on stdin: ', (": #input), LF
		stdout 'stdin data:',LF,input,LF
	end.
)

stdout 'Content-Type: text/plain',LF,LF
show_info''
exit 0