#!/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 $!";
'