diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ssic.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/ssic.pl b/src/ssic.pl index e5fa2be..c12ff21 100644 --- a/src/ssic.pl +++ b/src/ssic.pl @@ -19,6 +19,7 @@ sub main if (not GetOptions(\%opts, "o=s", "D=s%", + "I=s", "h|help", "V|version", )) { @@ -42,12 +43,12 @@ sub main if ($#ARGV gt 0) { error(4, "Cannot specify -o with multiple files\n"); } - compile($ARGV[0], $opts{'o'}, $opts{'D'}); + compile($ARGV[0], $opts{'o'}, $opts{'D'}, $opts{'I'}); } else { for $input (@ARGV) { $output = $input; $output =~ s/\.[^.]+$/.html/; - compile($input, $output, $opts{'D'}); + compile($input, $output, $opts{'D'}, $opts{'I'}); } } } @@ -66,6 +67,7 @@ sub help usage($fh); print("Options:\n"); print(" -D <name>=<value> Set the variable <name> to <value>\n"); + print(" -I <directory> Set the document root to <directory>\n"); print(" -o <output> Place the output into <output>\n"); print(" -h, --help Display this information\n"); print(" -V, --version Display compiler version information\n"); @@ -101,7 +103,7 @@ sub error sub compile { - my ($input, $output, $vars) = @_; + my ($input, $output, $vars, $root) = @_; my $input_fh; my $output_fh; my $ssi; @@ -130,12 +132,14 @@ sub compile %ENV = ( "DOCUMENT_NAME" => $input, "DOCUMENT_URI" => $input, + "DOCUMENT_ROOT" => $root, ); $CGI::SSI::DEBUG = 0; $ssi = CGI::SSI->new( "DOCUMENT_NAME" => $input, "DOCUMENT_URI" => $input, + "DOCUMENT_ROOT" => $root, ); while (($var_name, $var_value) = each(%{$vars})) { |