mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2024-12-14 10:13:05 +02:00
e524c4dd1a
Options from config file are being written to recovery.conf. Fixed issue with .history files not being picked up by archive-xfer.
70 lines
2.6 KiB
Perl
70 lines
2.6 KiB
Perl
####################################################################################################################################
|
|
# EXCEPTION MODULE
|
|
####################################################################################################################################
|
|
package BackRest::Exception;
|
|
|
|
use threads;
|
|
use strict;
|
|
use warnings;
|
|
use Carp;
|
|
|
|
####################################################################################################################################
|
|
# Exports
|
|
####################################################################################################################################
|
|
use Exporter qw(import);
|
|
our @EXPORT = qw(ERROR_CHECKSUM ERROR_CONFIG ERROR_PARAM ERROR_POSTMASTER_RUNNING ERROR_RESTORE_PATH_NOT_EMPTY);
|
|
|
|
####################################################################################################################################
|
|
# Exception Codes
|
|
####################################################################################################################################
|
|
use constant
|
|
{
|
|
ERROR_CHECKSUM => 100,
|
|
ERROR_CONFIG => 101,
|
|
ERROR_PARAM => 102,
|
|
ERROR_RESTORE_PATH_NOT_EMPTY => 103,
|
|
ERROR_POSTMASTER_RUNNING => 104
|
|
};
|
|
|
|
####################################################################################################################################
|
|
# CONSTRUCTOR
|
|
####################################################################################################################################
|
|
sub new
|
|
{
|
|
my $class = shift; # Class name
|
|
my $iCode = shift; # Error code
|
|
my $strMessage = shift; # ErrorMessage
|
|
|
|
# Create the class hash
|
|
my $self = {};
|
|
bless $self, $class;
|
|
|
|
# Initialize exception
|
|
$self->{iCode} = $iCode;
|
|
$self->{strMessage} = $strMessage;
|
|
|
|
return $self;
|
|
}
|
|
|
|
####################################################################################################################################
|
|
# CODE
|
|
####################################################################################################################################
|
|
sub code
|
|
{
|
|
my $self = shift;
|
|
|
|
return $self->{iCode};
|
|
}
|
|
|
|
####################################################################################################################################
|
|
# MESSAGE
|
|
####################################################################################################################################
|
|
sub message
|
|
{
|
|
my $self = shift;
|
|
|
|
return $self->{strMessage};
|
|
}
|
|
|
|
1;
|