2008-11-17 17:59:56 +01:00
|
|
|
package Lemonldap::NG::Common::Conf::Constants;
|
2007-03-04 15:52:51 +01:00
|
|
|
|
|
|
|
use strict;
|
|
|
|
use Exporter 'import';
|
|
|
|
|
2008-12-04 14:53:05 +01:00
|
|
|
use base qw(Exporter);
|
2007-03-04 15:52:51 +01:00
|
|
|
our $VERSION = '0.1';
|
|
|
|
|
|
|
|
# CONSTANTS
|
|
|
|
|
|
|
|
use constant CONFIG_WAS_CHANGED => -1;
|
2007-03-18 19:33:38 +01:00
|
|
|
use constant UNKNOWN_ERROR => -2;
|
|
|
|
use constant DATABASE_LOCKED => -3;
|
|
|
|
use constant UPLOAD_DENIED => -4;
|
2007-03-25 21:49:12 +02:00
|
|
|
use constant SYNTAX_ERROR => -5;
|
2007-03-04 15:52:51 +01:00
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( 'all' => [ qw(
|
|
|
|
CONFIG_WAS_CHANGED
|
|
|
|
UNKNOWN_ERROR
|
|
|
|
DATABASE_LOCKED
|
2007-03-18 19:33:38 +01:00
|
|
|
UPLOAD_DENIED
|
2007-03-25 21:49:12 +02:00
|
|
|
SYNTAX_ERROR
|
2007-03-04 15:52:51 +01:00
|
|
|
) ] );
|
|
|
|
|
|
|
|
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
|
|
|
|
|
|
|
|
our @EXPORT = ( @{ $EXPORT_TAGS{'all'} } );
|
|
|
|
|
|
|
|
1;
|
|
|
|
__END__
|