From 55bec752b5b40e6c4641b6bcfb2e15140c9f645e Mon Sep 17 00:00:00 2001 From: Mercier Pierre-Olivier Date: Fri, 29 Nov 2013 17:37:52 +0100 Subject: [PATCH] Really close account when strong-auth close --- utils/lpt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/utils/lpt b/utils/lpt index acc9162..8ce5293 100644 --- a/utils/lpt +++ b/utils/lpt @@ -200,7 +200,7 @@ sub cmd_account_alias($@) return cmd_account_multiple_vieworchange('mailAlias', 'alias', @_); } -sub cmd_account_close($@) +sub cmd_account_close($;@) { my $login = shift; @@ -1572,6 +1572,8 @@ sub cmd_no_strong_auth_close(@) say $entry->get_value("uid"); + cmd_account_close($entry->get_value("uid")); + my $body = "Bonjour ".decode('UTF-8', $entry->get_value("cn"), Encode::FB_CROAK).", Après plusieurs relances de notre part, vous n'avez toujours pas activé