diff options
Diffstat (limited to 'src/ssic.pl')
| -rw-r--r-- | src/ssic.pl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/ssic.pl b/src/ssic.pl index f87aa9e..80e2071 100644 --- a/src/ssic.pl +++ b/src/ssic.pl @@ -115,10 +115,16 @@ sub compile open($input_fh, "<", $input); open($output_fh, ">", $output); - %ENV = (); + %ENV = ( + "DOCUMENT_NAME" => $input, + "DOCUMENT_URI" => $input, + ); $CGI::SSI::DEBUG = 0; - $ssi = CGI::SSI->new(); + $ssi = CGI::SSI->new( + "DOCUMENT_NAME" => $input, + "DOCUMENT_URI" => $input, + ); while (($var_name, $var_value) = each(%{$vars})) { $ssi->set($var_name => $var_value); |