X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=tests%2Fwrap;h=67bdad2c7749673c1bda60f97535e438d9320e78;hb=dda845f6392a85ffbbd5d7b32c668e01a6d5ea40;hp=fefbef42c4bbd867a685fdc7349cf3730f334a32;hpb=e04d31c1b3eef1f1e26936e960da86c081981343;p=cgi-auth-flexible.git diff --git a/tests/wrap b/tests/wrap index fefbef4..67bdad2 100755 --- a/tests/wrap +++ b/tests/wrap @@ -1,13 +1,33 @@ #!/bin/sh + +# This is part of CGI::Auth::Flexible, a perl CGI authentication module. +# +# Copyright 2012,2013,2015 Ian Jackson. +# Copyright 2012,2013,2015 Citrix. +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU Affero General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version, with the "CAF Login Exception" +# as published by Ian Jackson (version 1, or at your option any +# later version) as an Additional Permission. +# +# 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 Affero General Public License for more details. + set -e cd "$CAFTEST_CAF" -exec 2>>tests/tmp/wrap.log -export HTTP_COOKIE=$(cat "tests/tmp/cookie") -export CAFTEST_URL=file:///cgi-bin/wrap +: ${CAFTEST_TMP:=tests/tmp} +export CAFTEST_TMP +exec 2>>$CAFTEST_TMP/wrap.log +export HTTP_COOKIE=$(cat "$CAFTEST_TMP/cookie") +export CAFTEST_URLBASE=file:/// tests/cgi "$@" | perl -pe ' next if m/^$/..0; next unless m/Set-Cookie: (\w+=[^; ]+)/; - my $cf = "tests/tmp/cookie"; + my $cf = "$ENV{CAFTEST_TMP}/cookie"; open C, ">", "$cf.new" or die "$cf $!"; print C $1 or die $!; close C or die $!;