X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fssic.pl;h=f9744a95d800ca38d2b46fa13692154a5166a0bd;hb=87f192ab8edd589c14c609d45fad4c73852caadf;hp=553f83d00162787b840086237886d91e2df5ff4b;hpb=87ad3d52c3d06311e0fdd87dc654408ee746c45c;p=ssic.git diff --git a/src/ssic.pl b/src/ssic.pl old mode 100644 new mode 100755 index 553f83d..f9744a9 --- a/src/ssic.pl +++ b/src/ssic.pl @@ -1,4 +1,19 @@ #!/usr/bin/perl +# +# Copyright (C) 2013 Patrick "P. J." McDermott +# +# This program is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . use strict; use warnings; @@ -9,6 +24,7 @@ use CGI::SSI; sub main { my %opts; + my $ssi; my $input; my $output; @@ -19,6 +35,7 @@ sub main if (not GetOptions(\%opts, "o=s", "D=s%", + "I=s", "h|help", "V|version", )) { @@ -27,29 +44,34 @@ sub main } if (exists($opts{'h'})) { - help(*STDERR); + help(*STDOUT); exit(0); } if (exists($opts{'V'})) { - version(*STDERR); + version(*STDOUT); exit(0); } if ($#ARGV lt 0) { error(4, "No input files\n"); } + + $ssi = init_compiler($opts{'D'}, $opts{'I'}); + if (exists($opts{'o'})) { if ($#ARGV gt 0) { error(4, "Cannot specify -o with multiple files\n"); } - compile($ARGV[0], $opts{'o'}, $opts{'D'}); + compile($ssi, $ARGV[0], $opts{'o'}); } else { for $input (@ARGV) { $output = $input; $output =~ s/\.[^.]+$/.html/; - compile($input, $output, $opts{'D'}); + compile($ssi, $input, $output); } } + + undef $ssi; } sub usage @@ -66,6 +88,7 @@ sub help usage($fh); print("Options:\n"); print(" -D = Set the variable to \n"); + print(" -I Set the document root to \n"); print(" -o Place the output into \n"); print(" -h, --help Display this information\n"); print(" -V, --version Display compiler version information\n"); @@ -86,55 +109,95 @@ sub version sub warning { - my ($fmt, $args) = @_; + my ($fmt, @args) = @_; - printf("ssic: Warning: " . $fmt, $args); + printf(STDERR "ssic: Warning: " . $fmt, @args); } sub error { - my ($status, $fmt, $args) = @_; + my ($status, $fmt, @args) = @_; - printf("ssic: Error: " . $fmt, $args); + printf(STDERR "ssic: Error: " . $fmt, @args); exit($status); } -sub compile +sub init_compiler { - my ($input, $output, $vars) = @_; - my $input_fh; - my $output_fh; + my ($vars, $root) = @_; my $ssi; my $var_name; my $var_value; - if ($input eq $output) { - error(4, "Input and output files are equal\n"); - } - - 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, + "DOCUMENT_ROOT" => $root, ); $CGI::SSI::DEBUG = 0; - $ssi = CGI::SSI->new( - "DOCUMENT_NAME" => $input, - "DOCUMENT_URI" => $input, - ); + $ssi = CGI::SSI->new(); + + $ssi->set("DOCUMENT_ROOT" => $root); while (($var_name, $var_value) = each(%{$vars})) { $ssi->set($var_name => $var_value); } + return $ssi; +} + +sub compile +{ + my ($ssi, $input, $output) = @_; + my $input_fh; + my $input_abs; + my $output_fh; + + if ($input eq $output and $input ne "-") { + warning("Input and output files are equal\n"); + } + + if ($input eq "-") { + $input_fh = *STDIN; + $input_abs = File::Spec->rel2abs("."); + } else { + if (not open($input_fh, "<", $input)) { + error(4, "%s: %s\n", $input, $!); + } + $input_abs = File::Spec->rel2abs($input); + } + if ($output eq "-") { + $output_fh = *STDOUT; + } else { + if (not open($output_fh, ">", $output . "~")) { + error(4, "%s: %s\n", $output . "~", $!); + } + } + + # CGI::SSI uses SCRIPT_FILENAME to determine the value of LAST_MODIFIED. + $ENV{"DOCUMENT_NAME"} = $input; + $ENV{"DOCUMENT_URI"} = $input; + $ENV{"SCRIPT_FILENAME"} = $input_abs; + + # Reset config tags to default values. + $ssi->config("errmsg", + "[an error occurred while processing this directive]"); + $ssi->config("sizefmt", "abbrev"); + $ssi->config("timefmt", undef); + + $ssi->set("DOCUMENT_NAME" => $input); + $ssi->set("DOCUMENT_URI" => $input); + print($output_fh $ssi->process(<$input_fh>)); + + if ($input ne "-") { + close($input_fh); + } + if ($output ne "-") { + close($output_fh); + if (not rename($output . "~", $output)) { + error(4, "%s: %s\n", $output, $!); + } + } } main();