From: P. J. McDermott <pjm@nac.net>
Date: Sun, 22 Sep 2013 19:32:28 +0000 (-0400)
Subject: Add an -I option.
X-Git-Tag: ssic/1.0.0~33
X-Git-Url: https://jxself.org/git/?p=ssic.git;a=commitdiff_plain;h=66789c72d83f31b6b6f725d27937967fcce00c32;hp=e09c119b75cfd9f6e62f50083edf4a812be66134

Add an -I option.
---

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})) {