summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorP. 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)
commit66789c72d83f31b6b6f725d27937967fcce00c32 (patch)
tree650473da87d39ad4e1af3e72b65dbda48e8d17a2
parente09c119b75cfd9f6e62f50083edf4a812be66134 (diff)
downloadssic-66789c72d83f31b6b6f725d27937967fcce00c32.zip
ssic-66789c72d83f31b6b6f725d27937967fcce00c32.tar.gz
ssic-66789c72d83f31b6b6f725d27937967fcce00c32.tar.bz2
Add an -I option.
-rw-r--r--src/ssic.pl10
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})) {