diff options
| author | P. J. McDermott <pjm@nac.net> | 2013-09-22 15:02:56 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2013-09-22 15:02:56 (EDT) |
| commit | ffb38283618851c4697a359824da679780c4564e (patch) | |
| tree | 15f2a99135ccf3c6e9678085840c337b5f875971 | |
| parent | 4a6dbfd99444de6e7cb30934378294ac135d9c76 (diff) | |
| download | ssic-ffb38283618851c4697a359824da679780c4564e.zip ssic-ffb38283618851c4697a359824da679780c4564e.tar.gz ssic-ffb38283618851c4697a359824da679780c4564e.tar.bz2 | |
Set DOCUMENT_NAME and DOCUMENT_URI.
| -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); |