use utf8;
use CGI qw(header);
-use CGI::Carp('fatalsToBrowser'); # Output errors to the browser.
use Tie::IxHash;
+# This is commented out because it uses a fair bit of CPU usage.
+
+#use CGI::Carp('fatalsToBrowser'); # Output errors to the browser.
+
# Declare global variables for Kiriwrite settings and languages.
-my ($kiriwrite_config, %kiriwrite_config, $kiriwrite_lang, $kiriwrite_version, %kiriwrite_version, $kiriwrite_env, %kiriwrite_env, $kiriwrite_presmodule, $kiriwrite_dbmodule);
+my ($kiriwrite_config, %kiriwrite_config, $kiriwrite_lang, $kiriwrite_version, %kiriwrite_version, $kiriwrite_env, %kiriwrite_env, $kiriwrite_presmodule, $kiriwrite_dbmodule, $xsl);
# Setup the version information for Kiriwrite.
"script_filename" => $script_filename,
);
+ $ENV{XML_SIMPLE_PREFERRED_PARSER} = "XML::Parser";
+
}
#################################################################################
} else {
my %database_info;
- my %template_info;
+ my %page_info;
my @database_pages;
my $pagemultioptions = "";
my $db_name = "";
my $db_file_notblank = 0;
tie(%database_info, 'Tie::IxHash');
- tie(%template_info, 'Tie::IxHash');
+ tie(%page_info, 'Tie::IxHash');
# The database_file variable is not blank, so print out a list of pages from
# the selected database.
foreach $page_filename (@database_pages){
- %template_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page_filename });
+ %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page_filename, Reduced => 1 });
# Check if any errors have occured.
$page_count++;
- $page_filename = $template_info{"PageFilename"};
- $page_name = $template_info{"PageName"};
- $page_description = $template_info{"PageDescription"};
- $page_modified = $template_info{"PageLastModified"};
+ $page_filename = $page_info{"PageFilename"};
+ $page_name = $page_info{"PageName"};
+ $page_description = $page_info{"PageDescription"};
+ $page_modified = $page_info{"PageLastModified"};
# Set the table cell style.
my $confirm = $passedoptions->{"Confirm"};
- # Load the required Perl modules.
-
- my $xsl = XML::Simple->new();
-
if (!$confirm){
# If the confirm value is blank, then set the confirm
# Load the required Perl modules.
use XML::Simple qw(XMLin);
- my $xsl = XML::Simple->new();
+ $xsl = XML::Simple->new();
# Check if the Kiriwrite configuration file exists before using it and
# return an critical error if it doesn't exist.