From dafa16ece9f3afab71764e6558a93c81a8c32085 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Tue, 27 Oct 2015 16:49:15 +0000 Subject: [PATCH 1/1] Testing: test.cgi: Honour CAFTEST_URL No-one sets this yet. Signed-off-by: Ian Jackson --- test.cgi | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test.cgi b/test.cgi index d6de399..3261842 100755 --- a/test.cgi +++ b/test.cgi @@ -24,6 +24,10 @@ my @verifier_params =( debug => sub { print STDERR "DEBUG ", @_[2..@_-1]; }, ); +push @verifier_params, ( + get_url => sub { return $ENV{'CAFTEST_URL'}; }, + ) if $ENV{'CAFTEST_URL'}; + my $verifier = CGI::Auth::Flexible->new_verifier(@verifier_params); END { $verifier->disconnect() if $verifier; } -- 2.30.2