[thirdparty/git.git] / t / lib-httpd / apply-one-time-perl.sh

#!/bin/sh

# If "one-time-perl" exists in $HTTPD_ROOT_PATH, run perl on the HTTP response,
# using the contents of "one-time-perl" as the perl command to be run. If the
# response was modified as a result, delete "one-time-perl" so that subsequent
# HTTP responses are no longer modified.
#
# This can be used to simulate the effects of the repository changing in
# between HTTP request-response pairs.
if test -f one-time-perl
then
	LC_ALL=C
	export LC_ALL

	"$GIT_EXEC_PATH/git-http-backend" >out
	"$PERL_PATH" -pe "$(cat one-time-perl)" out >out_modified

	if cmp -s out out_modified
	then
		cat out
	else
		cat out_modified
		rm one-time-perl
	fi
else
	"$GIT_EXEC_PATH/git-http-backend"
fi
Commit	Line	Data
eafff6e4 JS	1	#!/bin/sh
	2
	3	# If "one-time-perl" exists in $HTTPD_ROOT_PATH, run perl on the HTTP response,
	4	# using the contents of "one-time-perl" as the perl command to be run. If the
	5	# response was modified as a result, delete "one-time-perl" so that subsequent
	6	# HTTP responses are no longer modified.
	7	#
	8	# This can be used to simulate the effects of the repository changing in
	9	# between HTTP request-response pairs.
	10	if test -f one-time-perl
	11	then
	12	LC_ALL=C
	13	export LC_ALL
	14
	15	"$GIT_EXEC_PATH/git-http-backend" >out
c1917156	16	"$PERL_PATH" -pe "$(cat one-time-perl)" out >out_modified
eafff6e4 JS	17
	18	if cmp -s out out_modified
	19	then
	20	cat out
	21	else
	22	cat out_modified
	23	rm one-time-perl
	24	fi
	25	else
	26	"$GIT_EXEC_PATH/git-http-backend"
	27	fi