X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=tests%2Fwrap;h=67bdad2c7749673c1bda60f97535e438d9320e78;hb=HEAD;hp=c401f5738b5c8062637cb6a4543a288684922d77;hpb=71abfbffcb5c784a85589aaff02f9ab7ef4c93bc;p=cgi-auth-flexible.git diff --git a/tests/wrap b/tests/wrap index c401f57..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") +: ${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 $!;