smeserver/smeserver-mini-qmail
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

* Mon Dec 30 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.1-3.sme

Browse Source 
- move action pseudonym-cleanup and migrate 10AdminEmail to smeserver-email [SME: 12808]
This commit is contained in:
Jean-Philippe Pialasse
2024-12-30 22:09:57 -05:00
parent 0f13af540f
commit f373a70d99
4 changed files with 5 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
root/etc/e-smith/db/accounts/migrate/10AdminEmail
View File

@@ -1,24 +0,0 @@
{
my $conf = esmith::ConfigDB->open;
return unless $conf;
my $admin_email = $conf->get_value_and_delete('AdminEmail');
return unless defined $admin_email;
my $admin = $DB->get('admin') ||
$DB->new_record('admin', {type => 'system'});
if ($admin_email)
{
$admin->merge_props(
EmailForward => 'forward',
ForwardAddress => $admin_email,
);
}
else
{
$admin->merge_props(
EmailForward => 'local',
ForwardAddress => '',
);
}
}

22
root/etc/e-smith/events/actions/pseudonym-cleanup
View File

@@ -1,22 +0,0 @@
#!/usr/bin/perl -w
use strict;
use esmith::AccountsDB;
use esmith::event;
my $accounts = esmith::AccountsDB->open() or
die "Unable to open accounts db: $!";
my ($self, $account) = @ARGV;
# Find all "pseudonyms" entries in the e-smith accounts database and
# if the pseudonyms has an unexisting Account associated we change
# it to user "admin".
foreach my $pseudo ( $accounts->pseudonyms ) {
unless ( $accounts->get($pseudo->prop('Account')) ) {
$pseudo->set_prop( 'Account', 'admin' );
print "orphaned pseudonym " . $pseudo->key. " has been associated to admin account"
}
}