X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6f736d92d4ace32d9fbf2e5351073008e114d4f4..108d13f833e9daeff4ea1552e2e1bee1e0ed8c22:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 3075e7b..0a010d2 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -20,6 +20,11 @@ BEGIN { our $Time = [Time::HiRes::gettimeofday]; } +# user request +our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./; +our ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; +our $Request = $ENV{PATH_INFO} =~ s{^/}{}r; + our $style; our $showkeys = !exists $get{keys} ? undef : ($get{keys} ne '0' && ($get{keys} || 'always')); @@ -99,10 +104,6 @@ sub Html { '', ) if $meta->{keys}; - # other vars - my $Dev = $ENV{HTTP_HOST} =~ /\bdev\./; - my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; - # leading output $header{content_type} = "text/html; charset=$meta->{charset}"; say '';