|
@@ -86,9 +86,6 @@ sub app {
|
|
|
# It's important that we log what the user ACTUALLY requested rather than the rewritten path later on.
|
|
# It's important that we log what the user ACTUALLY requested rather than the rewritten path later on.
|
|
|
my $fullpath = "$scheme://$domain$pport$path";
|
|
my $fullpath = "$scheme://$domain$pport$path";
|
|
|
|
|
|
|
|
- use Data::Dumper;
|
|
|
|
|
- print Dumper($env);
|
|
|
|
|
-
|
|
|
|
|
# Check eTags. If we don't know about it, just assume it's good and lazily fill the cache
|
|
# Check eTags. If we don't know about it, just assume it's good and lazily fill the cache
|
|
|
# XXX yes, this allows cache poisoning...but only for logged in users!
|
|
# XXX yes, this allows cache poisoning...but only for logged in users!
|
|
|
if ( $env->{HTTP_IF_NONE_MATCH} ) {
|
|
if ( $env->{HTTP_IF_NONE_MATCH} ) {
|
|
@@ -106,6 +103,7 @@ sub app {
|
|
|
# These two parameters are entirely academic, as no integration with any kind of analytics is implemented.
|
|
# These two parameters are entirely academic, as no integration with any kind of analytics is implemented.
|
|
|
#my $no_track = $env->{HTTP_DNT};
|
|
#my $no_track = $env->{HTTP_DNT};
|
|
|
#my $no_sell_info = $env->{HTTP_SEC_GPC};
|
|
#my $no_sell_info = $env->{HTTP_SEC_GPC};
|
|
|
|
|
+ #my $referrer = $env->{HTTP_REFERER};
|
|
|
|
|
|
|
|
# We generally prefer this to be handled at the reverse proxy level.
|
|
# We generally prefer this to be handled at the reverse proxy level.
|
|
|
#my $prefer_ssl = $env->{HTTP_UPGRADE_INSECURE_REQUESTS};
|
|
#my $prefer_ssl = $env->{HTTP_UPGRADE_INSECURE_REQUESTS};
|