+++ /dev/null
-#!/bin/sh
-set -e
-exec 2>>"$CAHTEST_HOME/test-data/log"
-export HTTP_COOKIE=$(cat "$CAHTEST_HOME/test-data/cookie")
-./test.cgi "$@" | perl -pe '
- next if m/^$/..0;
- next unless m/Set-Cookie: (\w+=[^; ]+)/;
- my $cf = "$ENV{CAHTEST_HOME}/test-data/cookie";
- open C, ">", "$cf.new" or die "$cf $!";
- print C $1 or die $!;
- close C or die $!;
- rename "$cf.new", $cf or die "$cf $!";
-'