File Coverage

blib/lib/Net/Axigen.pm

Criterion	Covered	Total	%
statement	15	432	3.4
branch	0	148	0.0
condition			n/a
subroutine	5	33	15.1
pod	23	23	100.0
total	43	636	6.7

package Net::Axigen;

use 5.008008;
use strict;
use warnings;

use Net::Telnet ();
use Encode;

require Exporter;
our @ISA = qw(Exporter);
our %EXPORT_TAGS = ( 'all' => [ qw( ) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw( );

our $VERSION = '0.11';

#==================================================================
# new()
#==================================================================
sub new
{
  my $this = shift @_;
  my $host = shift @_;
  my $port = shift @_;
  my $login = shift @_;
  my $password = shift @_;
  my $timeout = shift @_;
  my $self = {};

  $self->{ host } = $host;
  $self->{ port } = $port;
  $self->{ login } = $login;
  $self->{ password } = $password;

	if($timeout) { $self->{ timeout }=$timeout; } else { $self->{ timeout } = 10; }

  $self->{ t } = 0;
  $self->{ version_full } = ''; # Axigen version
  $self->{ version_major } = '';
  $self->{ version_minor } = '';
  $self->{ version_revision } = '';
  $self->{ os_version_full } = '';
  $self->{ os_name } = '';
  $self->{ os_platform } = '';
  $self->{ datadir } = '';

	$self->{ locale } = 'windows-1251'; # encoding for utf-8 convertor, default Cyrillic
  return(bless($self, $this));
}

# ==================================================================
# connect()
# ==================================================================
sub connect
{
  my $this = shift @_;

	$this->{t} = new Net::Telnet(Timeout => $this->{timeout}, Host => $this->{host}, Port => $this->{port});
	my $login=$this->{login};
	my $password=$this->{password};

	$this->{t}->waitfor('/ *$/i');
	my @result = $this->{t}->cmd(String   => 'GET VERSION', Prompt  => '/ *$/i');

	# The last string of the array contains result of execution of the command
	my $rc_str = @result[scalar(@result) - 1];
	if(substr($rc_str,0,3) ne '+OK') { die 'Net::Axigen::connect, '.$rc_str; }

	# We delete superfluous string from the end of the array
	pop @result;

	# Sample of version full string
	# 7.0.0, (FreeBSD/i386)|FreeBSD|i386
	($this->{version_full}, my $os) = split('\s+', $result[0]);
	($this->{version_major}, $this->{version_minor}, $this->{version_revision}) = split('\.+', $this->{version_full});
	($this->{os_version_full}, $this->{os_name}, $this->{os_version_platform}) = split('\|+', $os);

	if($this->{os_name}=~m/bsd/i) { $this->{ datadir } = '/var/axigen'; }
	else	{ $this->{ datadir } = '/var/opt/axigen'; }

	$this->{t}->print("USER $login");
	$this->{t}->waitfor('/ *$/i');
	$this->{t}->print($password);
	$this->{t}->waitfor('/<#> *$/i');
}

# ==================================================================
# close
# ==================================================================
sub close
{
  my $this = shift @_;
	return($this->{t}->close);
}

# ==================================================================
# get_version()
# ==================================================================
sub get_version
{
  my $this = shift @_;
	return($this->{version_major}, $this->{version_minor}, $this->{version_revision});
}

# ==================================================================
# get_os_version()
# ==================================================================
sub get_os_version
{
  my $this = shift @_;
	return($this->{os_version_full}, $this->{os_name}, $this->{os_version_platform});
}

# ==================================================================
# _cmd
# ==================================================================
sub _cmd
{
  my $this = shift @_;
  my $cmd = shift @_;
  my $context = shift @_; # wait this context after command execution
	my %r; # command execution result

	my @result = $this->{t}->cmd(String   => $cmd, Prompt  => '/<'.$context.'#> *$/i');

	# The last string of the array contains result of execution of the command
	my $rc_str = @result[scalar(@result) - 1];

	$r{rc_str} = $rc_str; # command execution results string
	$r{result} = \@result; # ref to string array returned by command

	if(substr($rc_str,0,3) eq '+OK') { $r{ rc } = 1; } # success
	else { $r{ rc } = 0; } # error
	return \%r;
}

# ==================================================================
# listDomains
# ==================================================================
sub listDomains
{
  my $this = shift @_;

	my $r=$this->_cmd('LIST Domains', '');
	if(!$r->{rc}) { die "Net::Axigen::listDomains: ".$r->{rc_str}; }

	my @domain_list;
	my $domains=$r->{result};

	# Delete superfluous string from the beginning and the end of the array
	splice(@$domains, 0, 5);
	pop @$domains; pop @$domains;

	# Select names of domains, the total and used size
	foreach my $line(@$domains)
	{
		(my $domain, my $size_total, my $size_used) = split('\s+', $line);
		push(@domain_list, $domain);
	}
	return \@domain_list;
}

# ==================================================================
# listDomainsEx
# ==================================================================
sub listDomainsEx
{
  my $this = shift @_;
	my %domain_info=();

	my $r=$this->_cmd('LIST Domains', '');
	if(!$r->{rc}) { die "Net::Axigen::listDomainsEx: ".$r->{rc_str};}
	my $domains=$r->{result};

	# Delete superfluous string from the beginning and the end of the array
	splice(@$domains, 0, 5);
	pop @$domains; pop @$domains;

	# Select names of domains, the total and used size
	foreach my $line(@$domains)
	{
		(my $domain, my $size_total, my $size_used) = split('\s+', $line);
		my %ds = ('total' => $size_total, 'used' => $size_used);
		$domain_info{ $domain }= \%ds;
	}
	return \%domain_info;
}

# ==================================================================
# _listAccounts
# ==================================================================
sub _listAccounts
{
  my $this = shift @_;
	my $r=$this->_cmd('LIST ACCOUNTS', 'domain');
	if(!$r->{rc}) { die "Net::Axigen::_listAccounts: ".$r->{rc_str}.": ".'LIST ACCOUNTS'; }

	my $accounts=$r->{result};

	# Delete superfluous string from the beginning and the end of the accounts array
	splice(@$accounts, 0, 5);
	pop @$accounts; pop @$accounts;

	# Delete CRLF
	foreach my $line(@$accounts) { chomp ($line);	}
	return $accounts;
}

# ==================================================================
# listAccounts
# ==================================================================
sub listAccounts
{
  my $this = shift @_;
  my $domain = shift @_;
	my $r;

	if($this->_hasDomain($domain))
	{
		$r=$this->_cmd("UPDATE DOMAIN NAME $domain", 'domain');
		if(!$r->{rc}) { die "Net::Axigen::listAccounts: ".$r->{rc_str}.": "."UPDATE DOMAIN NAME $domain"; }

		my $accounts_list = $this->_listAccounts($domain);
		$r=$this->_cmd("BACK", '');
		if(!$r->{rc}) { die "Net::Axigen::listAccounts: ".$r->{rc_str}.": "."BACK"; }
		return $accounts_list;
	}
	else
	{
		die 'ERROR Net::Axigen::listAccounts: Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# listAccountsEx
# ==================================================================
sub listAccountsEx
{
  my $this = shift @_;
  my $domain = shift @_;
	my $r;
	my %accounts_info=();

	if($this->_hasDomain($domain))
	{
		$r=$this->_cmd("UPDATE DOMAIN NAME $domain", 'domain');
		if(!$r->{rc}) { die "Net::Axigen::listAccountsEx: ".$r->{rc_str}.": "."UPDATE DOMAIN NAME $domain"; }

		my $accounts_list = $this->_listAccounts($domain);
		foreach my $ptr(@$accounts_list)
		{
			my %acc = ('firstName' => $this->_getAccountAttr($ptr, 'firstName'), 'lastName' => $this->_getAccountAttr($ptr, 'lastName'));
			$accounts_info{ $ptr }= \%acc;
		}

		$r=$this->_cmd("BACK", '');
		if(!$r->{rc}) { die "Net::Axigen::listAccountsEx: ".$r->{rc_str}.": "."BACK"; }
		return \%accounts_info;
	}
	else
	{
		die 'ERROR Net::Axigen::listAccountsEx: Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# _getAccountAttr
# ==================================================================
sub _getAccountAttr
{
  my $this = shift @_;
  my $account = shift @_;
  my $attr = shift @_;
	my $r;

	$r=$this->_cmd("UPDATE ACCOUNT $account", 'domain-account');
	if(!$r->{rc}) { die "Net::Axigen::_getAccountAttr: ".$r->{rc_str}.": "."UPDATE ACCOUNT $account"; }

	$r=$this->_cmd("CONFIG ContactInfo", 'domain-account-contactInfo');
	if(!$r->{rc}) { die "Net::Axigen::_getAccountAttr: ".$r->{rc_str}.": "."CONFIG ContactInfo"; }

	$r=$this->_cmd("SHOW ATTR $attr", 'domain-account-contactInfo');
	if(!$r->{rc}) { die "Net::Axigen::_getAccountAttr: ".$r->{rc_str}.": "."show attr $attr"; }

  (my $atr_name, my $eq, my $attr_val) = split('\s+', $r->{result}[0]);
  $attr_val =~ s/"//g;

	$r=$this->_cmd("BACK", 'domain-account');
	if(!$r->{rc}) { die "Net::Axigen::_getAccountAttr: ".$r->{rc_str}.": "."BACK"; }

	$r=$this->_cmd("BACK", 'domain');
	if(!$r->{rc}) { die "Net::Axigen::_getAccountAttr: ".$r->{rc_str}.": "."BACK"; }

	return $attr_val;
}

# ==================================================================
# createDomain
# ==================================================================
sub createDomain
{
  my $this = shift @_;
  my $domain = shift @_;
  my $postmaster_pwd = shift @_;
	my $maxFiles = shift @_; # Quantity of files of storage. Storage file size: maxFileSize KByte
	my $maxFileSize=262144; # 256 MByte

	my $r;

	if(!$this->_hasDomain($domain))
	{
		# Full path to domain folder
		my $domain_location= $this->{datadir}.'/domains/'.$domain;

		# Axigen cmd sample:
		# 	CREATE DOMAIN NAME ddomain.ru DOMAINLOCATION /var/axigen/domains/ddomain.ru POSTMASTERPASSWD test123
		# 	add messageslocation /var/axigen/domains/ddomain.ru/messages?maxFileSize=262144&maxFiles=128

		my $cmd = "CREATE DOMAIN NAME $domain DOMAINLOCATION $domain_location POSTMASTERPASSWD $postmaster_pwd";
		$r=$this->_cmd($cmd, 'domain-create');
		if($r->{rc})
		{
			# GroupWare support
			my $cmd1 = "SET maclSupport yes";
			$r=$this->_cmd($cmd1, 'domain-create');
			if(!$r->{rc}) { die "Net::Axigen::createDomain: ".$r->{rc_str}.": ".$cmd1; }

			# Messages file storage limit - 4 files on 256 Mbyte

			if($maxFiles > 128) { $maxFiles=128;}
			if($maxFiles < 1) { $maxFiles=1;}

			$cmd1 = "add messageslocation $domain_location".'/messages?maxFileSize='.$maxFileSize.'&maxFiles='.$maxFiles;
			$r=$this->_cmd($cmd1, 'domain-create');
			if(!$r->{rc}) { die "Net::Axigen::createDomain: ".$r->{rc_str}.": ".$cmd1; }

			$r=$this->_cmd("COMMIT", '');
			if(!$r->{rc}) { die "Net::Axigen::createDomain: ".$r->{rc_str}.": ".$cmd; }
		}
		else { die "Net::Axigen::createDomain: ".$r->{rc_str}.": ".$cmd; }
		$this->saveConfig();
	}
}

# ==================================================================
# registerDomain
# ==================================================================
sub registerDomain
{
  my $this = shift @_;
  my $domain = shift @_;
	my $r;

	if(!$this->_hasDomain($domain))
	{
		# Full path to domain folder
		my $domain_location= $this->{datadir}.'/domains/'.$domain;

		# REGISTER DOMAIN DOMAINLOCATION /var/axigen/domains/ddomain.ru
		my $cmd = "REGISTER DOMAIN DOMAINLOCATION $domain_location";
		$r=$this->_cmd($cmd, 'domain-register');
		if($r->{rc})
		{
			$r=$this->_cmd("COMMIT", '');
			if(!$r->{rc}) { die "Net::Axigen::registerDomain: ".$r->{rc_str}.": ".$cmd; }
		}
		else { die "Net::Axigen::registerDomain: ".$r->{rc_str}.": ".$cmd; }
		$this->saveConfig();
	}
}

# ==================================================================
# unregisterDomain
# ==================================================================
sub unregisterDomain
{
  my $this = shift @_;
  my $domain = shift @_;
	my $r;

	if($this->_hasDomain($domain))
	{
		my $cmd = "UNREGISTER DOMAIN NAME $domain";
		$r=$this->_cmd($cmd, '');
		if(!$r->{rc}) { die "Net::Axigen::unregisterDomain: ".$r->{rc_str}.": ".$cmd; }
		$this->saveConfig();
	}
}

# ==================================================================
# _hasDomain
# ==================================================================
sub _hasDomain
{
  my $this = shift @_;
  my $domain = shift @_;
	my $domain_list = $this->listDomains();
	return grep { $_ eq $domain } @$domain_list;
}

# ==================================================================
# _hasAccount
# ==================================================================
sub _hasAccount
{
  my $this = shift @_;
  my $domain = shift @_;
  my $account = shift @_;
	my $accounts_list = $this->_listAccounts($domain);
	return grep { $_ eq $account } @$accounts_list;
}

# ==================================================================
# addAccount
# ==================================================================
sub addAccount
{
  my $this = shift @_;
  my $domain = shift @_;
  my $user = shift @_;
  my $pwd = shift @_;

	my $r;
	my $cmd;

	# The domain exists
	if($this->_hasDomain($domain))
	{
		$r=$this->_cmd("UPDATE DOMAIN NAME $domain", 'domain');

		# The account does not exist
		if(!$this->_hasAccount($domain, $user))
		{
		  $cmd="ADD ACCOUNT NAME $user PASSWD $pwd";
			$r=$this->_cmd($cmd, 'domain-account');
			$r=$this->_cmd('COMMIT', 'domain');
			if(!$r->{rc}) { die "Net::Axigen::addAccount: ".$r->{rc_str}.": ".$cmd; }

			$r=$this->_cmd('COMMIT', '');
			if(!$r->{rc}) { die "Net::Axigen::addAccount: ".$r->{rc_str}.": ".$cmd; }
		}
		else
		{
			$r=$this->_cmd('BACK', '');
			if(!$r->{rc}) { die "Net::Axigen::addAccount: ".$r->{rc_str}.": ".$cmd; }
		}
	}
	else
	{
		die 'ERROR Net::Axigen::addAccount: Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# removeAccount
# ==================================================================
sub removeAccount
{
  my $this = shift @_;
  my $domain = shift @_;
  my $user = shift @_;

	my $r;
	my $cmd;

	if($this->_hasDomain($domain))
	{
		$cmd="UPDATE DOMAIN NAME $domain";
		$r=$this->_cmd($cmd, 'domain');

		if($this->_hasAccount($domain, $user))
		{
		  $cmd="REMOVE ACCOUNT NAME $user";
			$r=$this->_cmd($cmd, 'domain');
			$r=$this->_cmd('COMMIT', '');
			if(!$r->{rc}) { die "Net::Axigen::removeAccount: ".$r->{rc_str}.": ".$cmd; }
		}
		else
		{
			$r=$this->_cmd('BACK', '');
			if(!$r->{rc}) { die "Net::Axigen::removeAccount: ".$r->{rc_str}.": ".$cmd; }
		}
	}
	else
	{
		die 'ERROR Net::Axigen::removeAccount: Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# setAccountContactData
# ==================================================================
sub setAccountContactData
{
  my $this = shift @_;
  my $domain = shift @_;
  my $user = shift @_;
  my $firstName = shift @_;
  my $lastName = shift @_;

	my $r;
	my $cmd;

	$firstName=$this->to_utf8($firstName);
	$lastName=$this->to_utf8($lastName);

	if($this->_hasDomain($domain))
	{
		$cmd="UPDATE DOMAIN NAME $domain";
		$r=$this->_cmd($cmd, 'domain');
		if(!$r->{rc}) { die "Net::Axigen::setAccountContactData: ".$r->{rc_str}.": ".$cmd; }

		if($this->_hasAccount($domain, $user))
		{
			$cmd="UPDATE ACCOUNT NAME $user";
			$r=$this->_cmd($cmd, 'domain-account');
			$r=$this->_cmd("CONFIG CONTACTINFO", 'domain-account-contactInfo');

			$r=$this->_cmd("set firstName \"$firstName\"", 'domain-account-contactInfo');
			if(!$r->{rc}) { die "Net::Axigen::setAccountContactData: ".$r->{rc_str}.": ".$cmd; }
			$r=$this->_cmd("set lastName \"$lastName\"", 'domain-account-contactInfo');
			if(!$r->{rc}) { die "Net::Axigen::setAccountContactData: ".$r->{rc_str}.": ".$cmd; }

			$r=$this->_cmd('DONE', 'domain-account');
			if(!$r->{rc}) { die "Net::Axigen::setAccountContactData: ".$r->{rc_str}.": ".$cmd; }
			$r=$this->_cmd('COMMIT', 'domain');
			if(!$r->{rc}) { die "Net::Axigen::setAccountContactData: ".$r->{rc_str}.": ".$cmd; }
			$r=$this->_cmd('COMMIT', '');
			if(!$r->{rc}) { die "Net::Axigen::setAccountContactData: ".$r->{rc_str}.": ".$cmd; }
		}
		else
		{
			$r=$this->_cmd('BACK', '');
			if(!$r->{rc}) { die "Net::Axigen::setAccountContactData: ".$r->{rc_str}.": ".'BACK'; }
		}
	}
	else
	{
		die 'ERROR: Net::Axigen::setAccountContactData Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# setQuotaLimitNotification
# ==================================================================
sub setQuotaLimitNotification
{
  my $this = shift @_;
  my $domain = shift @_;
  my $user = shift @_;
  my $notificationSubject = shift @_;
  my $notificationMsg = shift @_;

	my $r;
	my $cmd;

	$notificationMsg=$this->to_utf8($notificationMsg);
	$notificationSubject=$this->to_utf8($notificationSubject);

	if($this->_hasDomain($domain))
	{
		$cmd="UPDATE DOMAIN NAME $domain";
		$r=$this->_cmd($cmd, 'domain');
		if(!$r->{rc}) { die "Net::Axigen::setQuotaLimitNotification: ".$r->{rc_str}.": ".$cmd; }

		if($this->_hasAccount($domain, $user))
		{
			$cmd="UPDATE ACCOUNT NAME $user";
			$r=$this->_cmd($cmd, 'domain-account');
			$r=$this->_cmd("CONFIG Quotas", 'domain-account-quotas');

			$r=$this->_cmd("SET quotaLimitNotificationSubject \"$notificationSubject\"", 'domain-account-quotas');

			$this->{t}->print("ESET quotaLimitNotificationBody");
			$this->{t}->print("$notificationMsg");
			$this->{t}->print(".");
			$this->{t}->waitfor('/ *$/i');

			$r=$this->_cmd('DONE', 'domain-account');
			if(!$r->{rc}) { die "Net::Axigen::setQuotaLimitNotification: ".$r->{rc_str}.": ".$cmd; }
			$r=$this->_cmd('COMMIT', 'domain');
			if(!$r->{rc}) { die "Net::Axigen::setQuotaLimitNotification: ".$r->{rc_str}.": ".$cmd; }
			$r=$this->_cmd('COMMIT', '');
			if(!$r->{rc}) { die "Net::Axigen::setQuotaLimitNotification: ".$r->{rc_str}.": ".$cmd; }
		}
		else
		{
			$r=$this->_cmd('BACK', '');
			if(!$r->{rc}) { die "Net::Axigen::setQuotaLimitNotification: ".$r->{rc_str}.": ".'BACK'; }
		}
	}
	else
	{
		die 'ERROR: Net::Axigen::setQuotaLimitNotification Domain '.$domain.' does not exist in AXIGEN';
	}
}


# ==================================================================
# setAccountPassword
# ==================================================================
sub setAccountPassword
{
  my $this = shift @_;
  my $domain = shift @_;
  my $user = shift @_;
  my $passwd = shift @_;

	my $r;
	my $cmd;

	if($this->_hasDomain($domain))
	{
		$r=$this->_cmd("UPDATE DOMAIN NAME $domain", 'domain');
		if($this->_hasAccount($domain, $user))
		{
			$r=$this->_cmd("UPDATE ACCOUNT NAME $user", 'domain-account');
			$r=$this->_cmd("set password $passwd", 'domain-account');
			$r=$this->_cmd('COMMIT', 'domain');
			if(!$r->{rc}) { die "Net::Axigen::setAccountPassword: ".$r->{rc_str}.": ".'COMMIT'; }
			$r=$this->_cmd('COMMIT', '');
			if(!$r->{rc}) { die "Net::Axigen::setAccountPassword: ".$r->{rc_str}.": ".'COMMIT'; }
		}
		else
		{
			$r=$this->_cmd('BACK', '');
			if(!$r->{rc}) { die "Net::Axigen::setAccountPassword: ".$r->{rc_str}.": ".'BACK'; }
		}
	}
	else
	{
		die 'ERROR: Net::Axigen::setAccountPassword Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# setAccountWebMailLanguage
# ==================================================================
sub setAccountWebMailLanguage
{
  my $this = shift @_;
  my $domain = shift @_;
  my $user = shift @_;
  my $lang = shift @_;

	my $r;
	my $cmd;
	if($this->_hasDomain($domain))
	{
		$r=$this->_cmd("UPDATE DOMAIN NAME $domain", 'domain');
		if($this->_hasAccount($domain, $user))
		{
			$r=$this->_cmd("UPDATE ACCOUNT NAME $user", 'domain-account');
			$r=$this->_cmd("CONFIG WebmailData", 'domain-account-webmaildata');
			$r=$this->_cmd("set language $lang", 'domain-account-webmaildata');

			$r=$this->_cmd('DONE', 'domain-account');
			if(!$r->{rc}) { die "Net::Axigen::setAccountWebMailLanguage: ".$r->{rc_str}.": ".'DONE'; }
			$r=$this->_cmd('COMMIT', 'domain');
			if(!$r->{rc}) { die "Net::Axigen::setAccountWebMailLanguage: ".$r->{rc_str}.": ".'COMMIT'; }
			$r=$this->_cmd('COMMIT', '');
			if(!$r->{rc}) { die "Net::Axigen::setAccountWebMailLanguage: ".$r->{rc_str}.": ".'COMMIT'; }
		}
		else
		{
			$r=$this->_cmd('BACK', '');
			if(!$r->{rc}) { die "Net::Axigen::setAccountWebMailLanguage: ".$r->{rc_str}.": ".'BACK'; }
		}
	}
	else
	{
		die 'ERROR: Net::Axigen::setAccountWebMailLanguage Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# setDomainQuotas
# ==================================================================
sub setDomainQuotas
{
  my $this = shift @_;
  my $domain = shift @_;
  my $q = shift @_;

	my $r;

	if($this->_hasDomain($domain))
	{
		$r=$this->_cmd("UPDATE DOMAIN NAME $domain", 'domain');
		$r=$this->_cmd('CONFIG adminLimits', 'domain-adminLimits');
		$r=$this->_cmd('set maxAccounts '.$q->{ maxAccounts }, 'domain-adminLimits');
		$r=$this->_cmd('set maxAccountMessageSizeQuota '.$q->{ maxAccountMessageSizeQuota }, 'domain-adminLimits');
		$r=$this->_cmd('set maxPublicFolderMessageSizeQuota '.$q->{ maxPublicFolderMessageSizeQuota }, 'domain-adminLimits');
		$r=$this->_cmd('COMMIT', 'domain');
		if(!$r->{rc}) { die "Net::Axigen::setDomainQuotas: ".$r->{rc_str}.": ".$domain; }

		$r=$this->_cmd('CONFIG accountDefaultQuotas', 'domain-accountDefaultQuotas');
		$r=$this->_cmd('set quotaLimitNotificationEnabled yes', 'domain-accountDefaultQuotas');

		# Default maximum size in KB of messages in a folder
		$r=$this->_cmd('set messageSize '.$q->{ messageSize }, 'domain-accountDefaultQuotas');

		# Maximum size in KB of all messages in all folders
		$r=$this->_cmd('set totalMessageSize '.$q->{ totalMessageSize }, 'domain-accountDefaultQuotas');

		$r=$this->_cmd('DONE', 'domain');
		if(!$r->{rc}) { die "Net::Axigen::setDomainQuotas: ".$r->{rc_str}.": ".$domain; }
		$r=$this->_cmd('COMMIT', '');
		if(!$r->{rc}) { die "Net::Axigen::setDomainQuotas: ".$r->{rc_str}.": ".$domain; }
	}
	else
	{
		die 'ERROR: Net::Axigen::setDomainQuotas Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# saveConfig
# ==================================================================
sub saveConfig
{
  my $this = shift @_;
	my $r=$this->_cmd('SAVE CONFIG', '');
	if(!$r->{rc}) { die "Net::Axigen::saveConfig: ".$r->{rc_str}; }
}

# ==================================================================
# compactAll
# ==================================================================
sub compactAll
{
  my $this = shift @_;
	my $domain = shift @_; # compacted domain
	my $forced = shift @_; # force compacting

	my $r;

	if($this->_hasDomain($domain))
	{
		$r=$this->_cmd("UPDATE DOMAIN NAME $domain", 'domain');

		my $cmd='COMPACT ALL';
		if($forced) { $cmd=$cmd.' FORCED'; }
		my $r=$this->_cmd($cmd, 'domain');

		$r=$this->_cmd('COMMIT', '');
		if(!$r->{rc}) { die "Net::Axigen::compactAll: ".$r->{rc_str}.": ".$domain; }
	}
	else
	{
		die 'ERROR: Net::Axigen::compactAll Domain '.$domain.' does not exist in AXIGEN';
	}
}

# ==================================================================
# compactAllDomains
# ==================================================================
sub compactAllDomains
{
  my $this = shift @_;
	my $forced = shift @_;

	my $domain_list = $this->listDomains();
	foreach my $domain(@$domain_list)
	{
		$this->compactAll($domain, $forced);
	}
}

# ================================================
# to_utf8
# Ïðåîáðàçîâàòü èç win1251 â UTF8
# ================================================
sub to_utf8($)
{
  my $this = shift @_;
  my $str = shift @_;
  Encode::from_to($str, $this->{ locale }, 'utf-8');
  return $str;
}

1;

__END__