projects
/
ssic.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e09c119
)
Add an -I option.
author
P. J. McDermott
<pjm@nac.net>
Sun, 22 Sep 2013 19:32:28 +0000
(15:32 -0400)
committer
P. J. McDermott
<pjm@nac.net>
Sun, 22 Sep 2013 19:32:28 +0000
(15:32 -0400)
src/ssic.pl
patch
|
blob
|
history
diff --git
a/src/ssic.pl
b/src/ssic.pl
index e5fa2be81774fa9052bd7ef21e2cb6c923bce75f..c12ff210b4046ae9cc72645def51ac4d1076f093 100644
(file)
--- a/
src/ssic.pl
+++ b/
src/ssic.pl
@@
-19,6
+19,7
@@
sub main
if (not GetOptions(\%opts,
"o=s",
"D=s%",
if (not GetOptions(\%opts,
"o=s",
"D=s%",
+ "I=s",
"h|help",
"V|version",
)) {
"h|help",
"V|version",
)) {
@@
-42,12
+43,12
@@
sub main
if ($#ARGV gt 0) {
error(4, "Cannot specify -o with multiple files\n");
}
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/;
} 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");
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");
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
{
sub compile
{
- my ($input, $output, $vars) = @_;
+ my ($input, $output, $vars
, $root
) = @_;
my $input_fh;
my $output_fh;
my $ssi;
my $input_fh;
my $output_fh;
my $ssi;
@@
-130,12
+132,14
@@
sub compile
%ENV = (
"DOCUMENT_NAME" => $input,
"DOCUMENT_URI" => $input,
%ENV = (
"DOCUMENT_NAME" => $input,
"DOCUMENT_URI" => $input,
+ "DOCUMENT_ROOT" => $root,
);
$CGI::SSI::DEBUG = 0;
$ssi = CGI::SSI->new(
"DOCUMENT_NAME" => $input,
"DOCUMENT_URI" => $input,
);
$CGI::SSI::DEBUG = 0;
$ssi = CGI::SSI->new(
"DOCUMENT_NAME" => $input,
"DOCUMENT_URI" => $input,
+ "DOCUMENT_ROOT" => $root,
);
while (($var_name, $var_value) = each(%{$vars})) {
);
while (($var_name, $var_value) = each(%{$vars})) {