2014-06-07 18:51:27 +03:00
|
|
|
####################################################################################################################################
|
|
|
|
# EXCEPTION MODULE
|
|
|
|
####################################################################################################################################
|
|
|
|
package BackRest::Exception;
|
|
|
|
|
|
|
|
use strict;
|
2015-03-03 07:57:20 +02:00
|
|
|
use warnings FATAL => qw(all);
|
|
|
|
use Carp qw(confess);
|
2015-01-24 01:28:39 +02:00
|
|
|
use Exporter qw(import);
|
|
|
|
|
|
|
|
####################################################################################################################################
|
|
|
|
# Exception Codes
|
|
|
|
####################################################################################################################################
|
|
|
|
use constant
|
|
|
|
{
|
2015-03-08 19:26:09 +02:00
|
|
|
ERROR_ASSERT => 100,
|
|
|
|
ERROR_CHECKSUM => 101,
|
|
|
|
ERROR_CONFIG => 102,
|
2015-03-12 18:15:19 +02:00
|
|
|
ERROR_FILE_INVALID => 103,
|
|
|
|
ERROR_FORMAT => 104,
|
|
|
|
ERROR_OPERATION_REQUIRED => 105,
|
2015-03-08 19:26:09 +02:00
|
|
|
ERROR_OPTION_INVALID => 106,
|
|
|
|
ERROR_OPTION_INVALID_VALUE => 107,
|
2015-03-12 18:15:19 +02:00
|
|
|
ERROR_OPTION_INVALID_RANGE => 108,
|
|
|
|
ERROR_OPTION_INVALID_PAIR => 109,
|
|
|
|
ERROR_OPTION_DUPLICATE_KEY => 110,
|
|
|
|
ERROR_OPTION_NEGATE => 111,
|
|
|
|
ERROR_OPTION_REQUIRED => 112,
|
|
|
|
ERROR_POSTMASTER_RUNNING => 113,
|
|
|
|
ERROR_PROTOCOL => 114,
|
2015-04-01 21:58:33 +02:00
|
|
|
ERROR_RESTORE_PATH_NOT_EMPTY => 115,
|
|
|
|
ERROR_FILE_OPEN => 116,
|
|
|
|
ERROR_FILE_READ => 117,
|
|
|
|
ERROR_PARAM_REQUIRED => 118,
|
|
|
|
ERROR_ARCHIVE_MISMATCH => 119,
|
|
|
|
ERROR_ARCHIVE_DUPLICATE => 120,
|
2015-04-22 22:39:53 +02:00
|
|
|
ERROR_VERSION_NOT_SUPPORTED => 121,
|
2015-05-26 21:29:42 +02:00
|
|
|
ERROR_PATH_CREATE => 122,
|
2015-05-28 19:17:34 +02:00
|
|
|
ERROR_OPERATION_INVALID => 123,
|
2015-05-29 18:26:31 +02:00
|
|
|
ERROR_HOST_CONNECT => 124,
|
|
|
|
|
|
|
|
ERROR_UNKNOWN => 199
|
2015-01-24 01:28:39 +02:00
|
|
|
};
|
|
|
|
|
2015-03-12 18:15:19 +02:00
|
|
|
our @EXPORT = qw(ERROR_ASSERT ERROR_CHECKSUM ERROR_CONFIG ERROR_FILE_INVALID ERROR_FORMAT ERROR_OPERATION_REQUIRED
|
|
|
|
ERROR_OPTION_INVALID ERROR_OPTION_INVALID_VALUE ERROR_OPTION_INVALID_RANGE ERROR_OPTION_INVALID_PAIR
|
|
|
|
ERROR_OPTION_DUPLICATE_KEY ERROR_OPTION_NEGATE ERROR_OPTION_REQUIRED ERROR_POSTMASTER_RUNNING ERROR_PROTOCOL
|
2015-04-01 21:58:33 +02:00
|
|
|
ERROR_RESTORE_PATH_NOT_EMPTY ERROR_FILE_OPEN ERROR_FILE_READ ERROR_PARAM_REQUIRED ERROR_ARCHIVE_MISMATCH
|
2015-05-29 18:26:31 +02:00
|
|
|
ERROR_ARCHIVE_DUPLICATE ERROR_VERSION_NOT_SUPPORTED ERROR_PATH_CREATE ERROR_OPERATION_INVALID ERROR_HOST_CONNECT
|
|
|
|
ERROR_UNKNOWN);
|
2015-03-12 18:15:19 +02:00
|
|
|
|
2014-10-09 23:01:06 +03:00
|
|
|
####################################################################################################################################
|
|
|
|
# CONSTRUCTOR
|
|
|
|
####################################################################################################################################
|
|
|
|
sub new
|
|
|
|
{
|
|
|
|
my $class = shift; # Class name
|
|
|
|
my $iCode = shift; # Error code
|
|
|
|
my $strMessage = shift; # ErrorMessage
|
2014-06-07 18:51:27 +03:00
|
|
|
|
2014-10-09 23:01:06 +03:00
|
|
|
# Create the class hash
|
|
|
|
my $self = {};
|
|
|
|
bless $self, $class;
|
|
|
|
|
|
|
|
# Initialize exception
|
|
|
|
$self->{iCode} = $iCode;
|
|
|
|
$self->{strMessage} = $strMessage;
|
|
|
|
|
|
|
|
return $self;
|
|
|
|
}
|
2014-06-07 18:51:27 +03:00
|
|
|
|
|
|
|
####################################################################################################################################
|
|
|
|
# CODE
|
|
|
|
####################################################################################################################################
|
|
|
|
sub code
|
|
|
|
{
|
|
|
|
my $self = shift;
|
|
|
|
|
|
|
|
return $self->{iCode};
|
|
|
|
}
|
|
|
|
|
|
|
|
####################################################################################################################################
|
|
|
|
# MESSAGE
|
|
|
|
####################################################################################################################################
|
|
|
|
sub message
|
|
|
|
{
|
|
|
|
my $self = shift;
|
|
|
|
|
|
|
|
return $self->{strMessage};
|
|
|
|
}
|
|
|
|
|
2014-10-10 22:13:28 +03:00
|
|
|
1;
|