From 66789c72d83f31b6b6f725d27937967fcce00c32 Mon Sep 17 00:00:00 2001 From: "P. J. McDermott" Date: Sun, 22 Sep 2013 15:32:28 -0400 Subject: [PATCH] Add an -I option. --- src/ssic.pl | 10 +++++++--- 1 file 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 = Set the variable to \n"); + print(" -I Set the document root to \n"); print(" -o Place the output into \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})) { -- 2.31.1