mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2025-05-15 22:06:48 +02:00
18fd25233b
* The repo-path option now always refers to the repository where backups and archive are stored, whether local or remote, so the repo-remote-path option has been removed. The new spool-path option can be used to define a location for queueing WAL segments when archiving asynchronously. Otherwise, a local repository is no longer required. * Implemented a new config format which should be far simpler to use. See the User Guide and Configuration Reference for details but for a simple configuration all options can now be placed in the stanza section. Options that are shared between stanzas can be placed in the [global] section. More complex configurations can still make use of command sections though this should be a rare use case. * The default configuration filename is now pgbackrest.conf instead of pg_backrest.conf. This was done for consistency with other naming changes but also to prevent old config files from being loaded accidentally. * The default repository name was changed from /var/lib/backup to /var/lib/pgbackrest. * Lock files are now stored in /tmp/pgbackrest by default. These days /run/pgbackrest would be the preferred location but that would require init scripts which are not part of this release. The lock-path option can be used to configure the lock directory. * Log files are now stored in /var/log/pgbackrest by default and no longer have the date appended so they can be managed with logrotate. The log-path option can be used to configure the lock directory. * Executable filename changed from pg_backrest to pgbackrest.
124 lines
4.1 KiB
Perl
124 lines
4.1 KiB
Perl
####################################################################################################################################
|
|
# DOC HTML SITE MODULE
|
|
####################################################################################################################################
|
|
package BackRestDoc::Html::DocHtmlSite;
|
|
|
|
use strict;
|
|
use warnings FATAL => qw(all);
|
|
use Carp qw(confess);
|
|
|
|
use Data::Dumper;
|
|
use Exporter qw(import);
|
|
our @EXPORT = qw();
|
|
use File::Basename qw(dirname);
|
|
use File::Copy;
|
|
use POSIX qw(strftime);
|
|
use Storable qw(dclone);
|
|
|
|
use lib dirname($0) . '/../lib';
|
|
use pgBackRest::Common::Log;
|
|
use pgBackRest::Common::String;
|
|
use pgBackRest::FileCommon;
|
|
use pgBackRest::Version;
|
|
|
|
use lib dirname($0) . '/../test/lib';
|
|
use pgBackRestTest::Common::ExecuteTest;
|
|
|
|
use BackRestDoc::Common::DocConfig;
|
|
use BackRestDoc::Common::DocManifest;
|
|
use BackRestDoc::Html::DocHtmlPage;
|
|
|
|
####################################################################################################################################
|
|
# Operation constants
|
|
####################################################################################################################################
|
|
use constant OP_DOC_HTML_SITE => 'DocHtmlSite';
|
|
|
|
use constant OP_DOC_HTML_SITE_NEW => OP_DOC_HTML_SITE . '->new';
|
|
use constant OP_DOC_HTML_SITE_PROCESS => OP_DOC_HTML_SITE . '->process';
|
|
|
|
####################################################################################################################################
|
|
# CONSTRUCTOR
|
|
####################################################################################################################################
|
|
sub new
|
|
{
|
|
my $class = shift; # Class name
|
|
|
|
# Create the class hash
|
|
my $self = {};
|
|
bless $self, $class;
|
|
|
|
$self->{strClass} = $class;
|
|
|
|
# Assign function parameters, defaults, and log debug info
|
|
(
|
|
my $strOperation,
|
|
$self->{oManifest},
|
|
$self->{strXmlPath},
|
|
$self->{strHtmlPath},
|
|
$self->{strCssFile},
|
|
$self->{bExe}
|
|
) =
|
|
logDebugParam
|
|
(
|
|
OP_DOC_HTML_SITE_NEW, \@_,
|
|
{name => 'oManifest'},
|
|
{name => 'strXmlPath'},
|
|
{name => 'strHtmlPath'},
|
|
{name => 'strCssFile'},
|
|
{name => 'bExe'}
|
|
);
|
|
|
|
# Remove the current html path if it exists
|
|
if (-e $self->{strHtmlPath})
|
|
{
|
|
executeTest("rm -rf $self->{strHtmlPath}/*");
|
|
}
|
|
# Else create the html path
|
|
else
|
|
{
|
|
mkdir($self->{strHtmlPath})
|
|
or confess &log(ERROR, "unable to create path $self->{strHtmlPath}");
|
|
}
|
|
|
|
# Return from function and log return values if any
|
|
return logDebugReturn
|
|
(
|
|
$strOperation,
|
|
{name => 'self', value => $self}
|
|
);
|
|
}
|
|
|
|
####################################################################################################################################
|
|
# process
|
|
#
|
|
# Generate the site html
|
|
####################################################################################################################################
|
|
sub process
|
|
{
|
|
my $self = shift;
|
|
|
|
# Assign function parameters, defaults, and log debug info
|
|
my $strOperation = logDebugParam(OP_DOC_HTML_SITE_PROCESS);
|
|
|
|
# Copy the css file
|
|
my $strCssFileDestination = "$self->{strHtmlPath}/default.css";
|
|
copy($self->{strCssFile}, $strCssFileDestination)
|
|
or confess &log(ERROR, "unable to copy $self->{strCssFile} to ${strCssFileDestination}");
|
|
|
|
foreach my $strPageId ($self->{oManifest}->renderOutList(RENDER_TYPE_HTML))
|
|
{
|
|
&log(INFO, " render out: ${strPageId}");
|
|
|
|
# Save the html page
|
|
fileStringWrite("$self->{strHtmlPath}/${strPageId}.html",
|
|
$self->{oManifest}->variableReplace((new BackRestDoc::Html::DocHtmlPage($self->{oManifest},
|
|
$strPageId, $self->{bExe}))->process()),
|
|
false);
|
|
}
|
|
|
|
# Return from function and log return values if any
|
|
logDebugReturn($strOperation);
|
|
}
|
|
|
|
1;
|