Jean-Philippe Pialasse
8ccd50e523
- initial version for SME11 [SME: ] - build and require rpm for plugins and skins - TODO: allow custom server IMAP/SMTP - TODO: Install deps without symphony
41 lines
1.4 KiB
Plaintext
41 lines
1.4 KiB
Plaintext
{
|
|
use esmith::ConfigDB;
|
|
my $cdb = esmith::ConfigDB->open() || die "Couldn't open ConfigDB\n";
|
|
##Added for version smeserver-roundcube-1.1-4
|
|
my $plugins = $cdb->get_prop('roundcube','PluginsList') || '';
|
|
|
|
# force add plugin we use
|
|
for my $plug (qw(nextcloud_attachments html5_notifier fail2ban message_highlight thunderbird_labels) )
|
|
{
|
|
next unless ($plugins !~ "$plug");
|
|
$plugins = $plugins. (($plugins eq "")? "":",") . $plug;
|
|
$cdb->set_prop('roundcube','PluginsList',"$plugins");
|
|
}
|
|
|
|
# list of outdated, depreacted or dangerous plugins
|
|
#sieverule is now used instead of
|
|
if ($plugins !~ 'managesieve')
|
|
{
|
|
$plugins = $plugins.',managesieve';
|
|
$cdb->set_prop('roundcube','PluginsList',"$plugins");
|
|
}
|
|
# sieverule deprecated
|
|
if ($plugins =~ 'sieverule')
|
|
{
|
|
$plugins =~ s/,sieverule//g;
|
|
$cdb->set_prop('roundcube','PluginsList',"$plugins");
|
|
}
|
|
# markasjunk2 deprecated
|
|
if ($plugins =~ 'markasjunk')
|
|
{
|
|
$plugins =~ s/markasjunk2/markasjunk/g;
|
|
$cdb->set_prop('roundcube','PluginsList',"$plugins");
|
|
}
|
|
#remove tasklist
|
|
if ($plugins =~ 'tasklist')
|
|
{
|
|
$plugins =~ s/,tasklist//g;
|
|
$cdb->set_prop('roundcube','PluginsList',"$plugins");
|
|
}
|
|
}
|