use strict;
use warnings;
-use Cwd;
use PLP::Functions qw( DecodeURI );
require PLP::Backend::CGI;
require PerlIO::scalar;
$PLP::use_cache = 0 if $PLP::use_cache;
#TODO: caching on (change file names)
-my $ORGDIR = '.'; # Cwd::getcwd();
open ORGOUT, '>&', *STDOUT;
sub is_string ($$;$) {
GATEWAY_INTERFACE => 'CGI/1.1',
SCRIPT_NAME => '/plp.cgi',
- SCRIPT_FILENAME => "$ORGDIR/plp.cgi",
+ SCRIPT_FILENAME => "./plp.cgi",
PATH_INFO => "/$src/test/123",
- PATH_TRANSLATED => "$ORGDIR/$src/test/123",
- DOCUMENT_ROOT => $ORGDIR,
+ PATH_TRANSLATED => "./$src/test/123",
+ DOCUMENT_ROOT => ".",
$env ? %{$env} : (),
); # Apache/2.2.4 CGI environment
$replace{HEAD} //= "Content-Type: text/html\nX-PLP-Version: $PLP::VERSION\n";
$replace{VERSION } //= $PLP::VERSION;
$replace{SCRIPT_NAME } //= $infile;
- $replace{SCRIPT_FILENAME} //= "$ORGDIR/$infile";
+ $replace{SCRIPT_FILENAME} //= "./$infile";
chomp $out;
$out =~ s/\$$_/$replace{$_}/g for keys %replace;