+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;
+}
+