### Tests for directives altering how a response is handled

# SecResponseBodyMimeTypesClear
{
	type => "config",
	comment => "SecResponseBodyMimeTypesClear",
	conf => qq(
		SecRuleEngine On
		SecResponseBodyAccess On
		SecResponseBodyMimeTypesClear
		SecDebugLog $ENV{DEBUG_LOG}
		SecDebugLogLevel 9
		SecRule RESPONSE_BODY "TEST" "phase:4,deny"
	),
	match_log => {
		-error => [ qr/Access denied/, 1 ],
		debug => [ qr/Not buffering response body for unconfigured MIME type/, 1 ],
	},
	match_response => {
		status => qr/^200$/,
	},
	request => new HTTP::Request(
		GET => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/test.txt",
	),
},

# SecResponseBodyAccess & SecResponseBodyMimeType
{
	type => "config",
	comment => "SecResponseBodyAccess On",
	conf => qq(
		SecRuleEngine On
		SecDebugLog $ENV{DEBUG_LOG}
		SecDebugLogLevel 9
		SecResponseBodyAccess On
		SecResponseBodyMimeType text/plain null
		SecRule RESPONSE_BODY "TEST" "phase:4,deny"
	),
	match_log => {
		error => [ qr/Access denied with code 403 \(phase 4\)\. Pattern match "TEST" at RESPONSE_BODY\./, 1 ],
	},
	match_response => {
		status => qr/^403$/,
	},
	request => new HTTP::Request(
		GET => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/test.txt",
	),
},
{
	type => "config",
	comment => "SecResponseBodyAccess Off",
	conf => qq(
		SecRuleEngine On
		SecDebugLog $ENV{DEBUG_LOG}
		SecDebugLogLevel 9
		SecResponseBodyAccess Off
		SecResponseBodyMimeType text/plain null
		SecRule RESPONSE_BODY "TEST" "phase:4,deny"
	),
	match_log => {
		-error => [ qr/Access denied/, 1 ],
		debug => [ qr/Response body buffering is not enabled\./, 1 ],
	},
	match_response => {
		status => qr/^200$/,
	},
	request => new HTTP::Request(
		GET => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/test.txt",
	),
},

# SecResponseBodyLimit
{
	type => "config",
	comment => "SecResponseBodyLimit (equal)",
	conf => qq(
		SecRuleEngine On
		SecResponseBodyAccess On
		SecResponseBodyMimeType text/plain null
		SecResponseBodyLimit 8192
	),
	match_log => {
		-error => [ qr/Content-Length \(\d+\) over the limit/, 1 ],
	},
	match_response => {
		status => qr/^200$/,
	},
	request => new HTTP::Request(
		GET => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/8k.txt",
	),
},
{
	type => "config",
	comment => "SecResponseBodyLimit (less)",
	conf => qq(
		SecRuleEngine On
		SecResponseBodyAccess On
		SecResponseBodyMimeType text/plain null
		SecResponseBodyLimit 9000
	),
	match_log => {
		-error => [ qr/Content-Length \(\d+\) over the limit/, 1 ],
	},
	match_response => {
		status => qr/^200$/,
	},
	request => new HTTP::Request(
		GET => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/8k.txt",
	),
},
{
	type => "config",
	comment => "SecResponseBodyLimit (greater)",
	conf => qq(
		SecRuleEngine On
		SecResponseBodyAccess On
		SecResponseBodyMimeType text/plain null
		SecResponseBodyLimit 8000
	),
	match_log => {
		error => [ qr/Content-Length \(\d+\) over the limit \(8000\)\./, 1 ],
	},
	match_response => {
		status => qr/^500$/,
	},
	request => new HTTP::Request(
		GET => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/8k.txt",
	),
},

# ResponseBodyLimitAction
{
	type => "config",
	comment => "SecResponseBodyLimitAction Reject",
	conf => qq(
		SecRuleEngine On
		SecResponseBodyAccess On
		SecResponseBodyMimeType text/plain null
		SecResponseBodyLimit 5
		SecResponseBodyLimitAction Reject
	),
	match_log => {
		error => [ qr/Content-Length \(\d+\) over the limit \(5\)\./, 1 ],
	},
	match_response => {
		status => qr/^500$/,
	},
	request => new HTTP::Request(
		GET => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/8k.txt",
	),
},
{
	type => "config",
	comment => "SecResponseBodyLimitAction ProcessPartial",
	conf => qq(
		SecRuleEngine On
		SecResponseBodyAccess On
		SecResponseBodyMimeType text/plain null
		SecResponseBodyLimit 5
		SecDebugLog $ENV{DEBUG_LOG}
		SecDebugLogLevel 4
		SecResponseBodyLimitAction ProcessPartial
	),
	match_log => {
		-error => [ qr/Content-Length \(\d+\) over the limit/, 1 ],
		debug => [ qr/Processing partial response body \(limit 5\)/, 1 ],
	},
	match_response => {
		status => qr/^200$/,
	},
	request => new HTTP::Request(
		GET => "http://$ENV{SERVER_NAME}:$ENV{SERVER_PORT}/8k.txt",
	),
},
