29 lines
836 B
Perl
29 lines
836 B
Perl
#!/usr/bin/perl -w
|
|
|
|
|
|
# This script just ensure the dovecot service is enabled
|
|
# if imap or imaps is enabled
|
|
# It will also entirely disable the dovecot service if both imap
|
|
# and imaps are disabled
|
|
|
|
use esmith::ConfigDB;
|
|
|
|
my $c = esmith::ConfigDB->open() or die "Couldn't open Config DB\n";
|
|
|
|
my $imap = $c->get('imap');
|
|
my $imaps = $c->get('imaps');
|
|
my $dovecot = $c->get('dovecot') || $c->new_record('dovecot',
|
|
{ type => 'service',
|
|
status => 'enabled'});
|
|
|
|
my $imapStatus = $imap->prop('status') || 'enabled';
|
|
my $imapsStatus = $imaps->prop('status') || 'enabled';
|
|
|
|
if ($imapStatus eq 'enabled' or $imapsStatus eq 'enabled'){
|
|
$dovecot->set_prop('status', 'enabled');
|
|
}
|
|
else{
|
|
$dovecot->set_prop('status', 'disabled');
|
|
}
|
|
|