"no_getopt_compat");
if (not GetOptions(\%opts,
"o=s",
+ "D=s%",
"h|help",
"V|version",
)) {
usage(*STDERR);
+ exit(4);
}
if (exists($opts{'h'})) {
if ($#ARGV gt 0) {
error(4, "Cannot specify -o with multiple files\n");
}
- compile($ARGV[0], $opts{'o'});
+ compile($ARGV[0], $opts{'o'}, $opts{'D'});
} else {
for $input (@ARGV) {
$output = $input;
$output =~ s/\.[^.]+$/.html/;
- compile($input, $output);
+ compile($input, $output, $opts{'D'});
}
}
}
usage($fh);
print("Options:\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(" -D <name>=<value> Set the variable <name> to <value>\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");
}
sub version
sub compile
{
- my ($input, $output) = @_;
+ my ($input, $output, $vars) = @_;
my $input_fh;
my $output_fh;
my $ssi;
+ my $var_name;
+ my $var_value;
if ($input eq $output) {
error(4, "Input and output files are equal\n");
}
- open($input_fh, "<", $input);
- open($output_fh, ">", $output);
+ if (not open($input_fh, "<", $input)) {
+ error(4, "%s: %s\n", $input, $!);
+ }
+ if (not open($output_fh, ">", $output)) {
+ error(4, "%s: %s\n", $output, $!);
+ }
+
+ %ENV = (
+ "DOCUMENT_NAME" => $input,
+ "DOCUMENT_URI" => $input,
+ );
$CGI::SSI::DEBUG = 0;
- $ssi = CGI::SSI->new();
+ $ssi = CGI::SSI->new(
+ "DOCUMENT_NAME" => $input,
+ "DOCUMENT_URI" => $input,
+ );
+
+ while (($var_name, $var_value) = each(%{$vars})) {
+ $ssi->set($var_name => $var_value);
+ }
print($output_fh $ssi->process(<$input_fh>));
}