From 7a43b92457e82f47054a5f0f562ee6b86ac67a67 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 27 Jun 2013 13:08:46 +0200 Subject: [PATCH] Get original from input headers, not output. Add logging. --- etc/mod_perl/MyApache2/SetACAO.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/etc/mod_perl/MyApache2/SetACAO.pm b/etc/mod_perl/MyApache2/SetACAO.pm index 594a5eb..831b784 100644 --- a/etc/mod_perl/MyApache2/SetACAO.pm +++ b/etc/mod_perl/MyApache2/SetACAO.pm @@ -16,9 +16,11 @@ sub handler { # doesnt prevent credentials from being accepted. my $hi = $f->r->headers_in; my $ho = $f->r->headers_out; - my $origin = $ho->get('Origin'); + my $origin = $hi->get('Origin'); + warn "MyApache2::SetACAO got origin '$origin'"; if (defined $origin && $origin ne "") { $ho->set('Access-Control-Allow-Origin', $origin); + warn "MyApache2::SetACAO copied origin to ACAO"; } while ($f->read(my $buffer, BUFF_LEN)) { -- 1.7.10.4