diff options
| author | P. J. McDermott <pjm@nac.net> | 2013-09-22 15:32:28 (EDT) |
|---|---|---|
| committer | P. J. McDermott <pjm@nac.net> | 2013-09-22 15:32:28 (EDT) |
| commit | 66789c72d83f31b6b6f725d27937967fcce00c32 (patch) | |
| tree | 650473da87d39ad4e1af3e72b65dbda48e8d17a2 /src | |
| parent | e09c119b75cfd9f6e62f50083edf4a812be66134 (diff) | |
| download | ssic-66789c72d83f31b6b6f725d27937967fcce00c32.zip ssic-66789c72d83f31b6b6f725d27937967fcce00c32.tar.gz ssic-66789c72d83f31b6b6f725d27937967fcce00c32.tar.bz2 | |
Add an -I option.
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})) { |