X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=src%2Fssic.pl;h=a88e5654a9a5ba047f8333cb96c3b89a18510bb3;hb=29bac5d24b928b9bb3340fd07513b505ed8c2df9;hp=ba8b184355519a7b115f0d2db13c70f28dbe2800;hpb=90d425f646cc30e880627e7168c834a7640ef65d;p=ssic.git

diff --git a/src/ssic.pl b/src/ssic.pl
index ba8b184..a88e565 100755
--- a/src/ssic.pl
+++ b/src/ssic.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 #
+# ssic - Server Side Includes Compiler
+#
 # Copyright (C) 2013  Patrick "P. J." McDermott
 #
 # This program is free software: you can redistribute it and/or modify
@@ -24,6 +26,7 @@ use CGI::SSI;
 sub main
 {
 	my %opts;
+	my $ssi;
 	my $input;
 	my $output;
 
@@ -54,18 +57,23 @@ sub main
 	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'}, $opts{'I'});
+		compile($ssi, $ARGV[0], $opts{'o'});
 	} else {
 		for $input (@ARGV) {
 			$output = $input;
 			$output =~ s/\.[^.]+$/.html/;
-			compile($input, $output, $opts{'D'}, $opts{'I'});
+			compile($ssi, $input, $output);
 		}
 	}
+
+	undef $ssi;
 }
 
 sub usage
@@ -116,15 +124,35 @@ sub error
 	exit($status);
 }
 
+sub init_compiler
+{
+	my ($vars, $root) = @_;
+	my $ssi;
+	my $var_name;
+	my $var_value;
+
+	%ENV = (
+		"DOCUMENT_ROOT" => $root,
+	);
+
+	$CGI::SSI::DEBUG = 0;
+	$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 ($input, $output, $vars, $root) = @_;
+	my ($ssi, $input, $output) = @_;
 	my $input_fh;
 	my $input_abs;
 	my $output_fh;
-	my $ssi;
-	my $var_name;
-	my $var_value;
 
 	if ($input eq $output and $input ne "-") {
 		warning("Input and output files are equal\n");
@@ -148,23 +176,18 @@ sub compile
 	}
 
 	# CGI::SSI uses SCRIPT_FILENAME to determine the value of LAST_MODIFIED.
-	%ENV = (
-		"DOCUMENT_NAME" => $input,
-		"DOCUMENT_URI" => $input,
-		"DOCUMENT_ROOT" => $root,
-		"SCRIPT_FILENAME" => $input_abs,
-	);
+	$ENV{"DOCUMENT_NAME"} = $input;
+	$ENV{"DOCUMENT_URI"} = $input;
+	$ENV{"SCRIPT_FILENAME"} = $input_abs;
 
-	$CGI::SSI::DEBUG = 0;
-	$ssi = CGI::SSI->new(
-		"DOCUMENT_NAME" => $input,
-		"DOCUMENT_URI" => $input,
-		"DOCUMENT_ROOT" => $root,
-	);
+	# Reset config tags to default values.
+	$ssi->config("errmsg",
+		"[an error occurred while processing this directive]");
+	$ssi->config("sizefmt", "abbrev");
+	$ssi->config("timefmt", undef);
 
-	while (($var_name, $var_value) = each(%{$vars})) {
-		$ssi->set($var_name => $var_value);
-	}
+	$ssi->set("DOCUMENT_NAME" => $input);
+	$ssi->set("DOCUMENT_URI" => $input);
 
 	print($output_fh $ssi->process(<$input_fh>));
 
@@ -173,10 +196,9 @@ sub compile
 	}
 	if ($output ne "-") {
 		close($output_fh);
-	}
-
-	if (not rename($output . "~", $output)) {
-		error(4, "%s: %s\n", $output, $!);
+		if (not rename($output . "~", $output)) {
+			error(4, "%s: %s\n", $output, $!);
+		}
 	}
 }