* Mon Dec 30 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.1-3.sme
- move action pseudonym-cleanup and migrate 10AdminEmail to smeserver-email [SME: 12808]
This commit is contained in:
parent
0f13af540f
commit
f373a70d99
10
createlinks
10
createlinks
@ -45,7 +45,6 @@ $event = "console-save";
|
|||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
$event = "bootstrap-console-save";
|
$event = "bootstrap-console-save";
|
||||||
|
|
||||||
event_link("pseudonym-cleanup", $event, "03");
|
|
||||||
event_link("qmail-update-user", $event, "55");
|
event_link("qmail-update-user", $event, "55");
|
||||||
|
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
@ -70,29 +69,22 @@ $event = "domain-delete";
|
|||||||
$event = "email-update";
|
$event = "email-update";
|
||||||
|
|
||||||
event_link("qmail-update-user", $event, "03");
|
event_link("qmail-update-user", $event, "03");
|
||||||
event_link("pseudonym-cleanup", $event, "30");
|
|
||||||
|
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
# actions for group-create event:
|
# actions for group-create event:
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
$event = "group-create";
|
$event = "group-create";
|
||||||
|
|
||||||
event_link("pseudonym-cleanup", $event, "03");
|
|
||||||
|
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
# actions for group-delete event:
|
# actions for group-delete event:
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
$event = "group-delete";
|
$event = "group-delete";
|
||||||
|
|
||||||
event_link("pseudonym-cleanup", $event, "03");
|
|
||||||
|
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
# actions for group-modify event:
|
# actions for group-modify event:
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
$event = "group-modify";
|
$event = "group-modify";
|
||||||
|
|
||||||
event_link("pseudonym-cleanup", $event, "03");
|
|
||||||
|
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
# actions for user-create event:
|
# actions for user-create event:
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
@ -133,7 +125,6 @@ $event = "ip-change";
|
|||||||
# actions for smeserver-mini-qmail-update event:
|
# actions for smeserver-mini-qmail-update event:
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
$event = "smeserver-mini-qmail-update";
|
$event = "smeserver-mini-qmail-update";
|
||||||
event_link("pseudonym-cleanup", $event, "03");
|
|
||||||
|
|
||||||
#--------------------------------------------------
|
#--------------------------------------------------
|
||||||
# actions for pseudonym-{create,delete,modify}
|
# actions for pseudonym-{create,delete,modify}
|
||||||
@ -142,7 +133,6 @@ foreach $event ( qw(pseudonym-create pseudonym-modify pseudonym-delete
|
|||||||
user-create user-modify user-delete
|
user-create user-modify user-delete
|
||||||
))
|
))
|
||||||
{
|
{
|
||||||
event_link("pseudonym-cleanup", $event, "03");
|
|
||||||
templates2events("/var/qmail/control/virtualdomains", $event);
|
templates2events("/var/qmail/control/virtualdomains", $event);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -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 => '',
|
|
||||||
);
|
|
||||||
}
|
|
||||||
}
|
|
@ -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"
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
@ -4,7 +4,7 @@ Summary: startup scripts for Dan Bernstein's qmail package
|
|||||||
%define name smeserver-mini-qmail
|
%define name smeserver-mini-qmail
|
||||||
Name: %{name}
|
Name: %{name}
|
||||||
%define version 11.0.1
|
%define version 11.0.1
|
||||||
%define release 2
|
%define release 3
|
||||||
Version: %{version}
|
Version: %{version}
|
||||||
Release: %{release}%{?dist}
|
Release: %{release}%{?dist}
|
||||||
License: GPL
|
License: GPL
|
||||||
@ -18,7 +18,7 @@ Requires: mini-qmail
|
|||||||
Obsoletes: qmail
|
Obsoletes: qmail
|
||||||
Requires: dot-forward
|
Requires: dot-forward
|
||||||
Requires: fastforward
|
Requires: fastforward
|
||||||
Requires: smeserver-email
|
Requires: smeserver-email
|
||||||
Provides: smeserver-mta
|
Provides: smeserver-mta
|
||||||
Provides: e-smith-mta
|
Provides: e-smith-mta
|
||||||
Obsoletes: qmail-initscripts
|
Obsoletes: qmail-initscripts
|
||||||
@ -29,6 +29,9 @@ Provides: e-smith-qmail
|
|||||||
AutoReqProv: no
|
AutoReqProv: no
|
||||||
|
|
||||||
%changelog
|
%changelog
|
||||||
|
* Mon Dec 30 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.1-3.sme
|
||||||
|
- move action pseudonym-cleanup and migrate 10AdminEmail to smeserver-email [SME: 12808]
|
||||||
|
|
||||||
* Tue Dec 03 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.1-2.sme
|
* Tue Dec 03 2024 Jean-Philippe Pialasse <jpp@koozali.org> 11.0.1-2.sme
|
||||||
- initial release of smeserver-mini-qmail from former smeserver-qmail [SME: 12793]
|
- initial release of smeserver-mini-qmail from former smeserver-qmail [SME: 12793]
|
||||||
. only for final delivery or forward behind qpsmtpd and postfix
|
. only for final delivery or forward behind qpsmtpd and postfix
|
||||||
|
Loading…
x
Reference in New Issue
Block a user