Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Sympa
Commits
a0930a20
Commit
a0930a20
authored
Jun 09, 2021
by
IKEDA Soji
Browse files
Some insignificant changes/corrections.
parent
e2b8eb6f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/lib/Sympa/List.pm
View file @
a0930a20
...
...
@@ -1563,6 +1563,7 @@ sub send_probe_to_user {
## $list->delete_list_member('users' => \@u, 'exclude' => 1)
## $list->delete_list_member('users' => [$email], 'exclude' => 1)
sub
delete_list_member
{
$log
->
syslog
('
debug2
',
'
(%s, ...)
',
@
_
);
my
$self
=
shift
;
my
%param
=
@_
;
my
@u
=
@
{
$param
{'
users
'}};
...
...
@@ -1574,12 +1575,12 @@ sub delete_list_member {
$log
->
syslog
('
debug2
',
'');
my
$name
=
$self
->
{'
name
'};
my
$total
=
0
;
my
$sdm
=
Sympa::
DatabaseManager
->
instance
;
foreach
my
$who
(
@u
)
{
next
unless
defined
$who
and
length
$who
;
$who
=
Sympa::Tools::Text::
canonic_email
(
$who
);
## Include in exclusion_table only if option is set.
...
...
@@ -1595,7 +1596,7 @@ sub delete_list_member {
q{DELETE FROM subscriber_table
WHERE user_subscriber = ? AND
list_subscriber = ? AND robot_subscriber = ?}
,
$who
,
$name
,
$self
->
{'
domain
'}
$who
,
$
self
->
{'
name
'}
,
$self
->
{'
domain
'}
)
)
{
$log
->
syslog
('
err
',
'
Unable to remove list member %s
',
$who
);
...
...
@@ -1623,7 +1624,7 @@ sub delete_list_member {
if
(
$operation
)
{
$log
->
add_stat
(
'
robot
'
=>
$self
->
{'
domain
'},
'
list
'
=>
$name
,
'
list
'
=>
$
self
->
{'
name
'}
,
'
operation
'
=>
$operation
,
'
mail
'
=>
$who
);
...
...
@@ -1639,15 +1640,16 @@ sub delete_list_member {
## Delete the indicated admin users from the list.
sub
delete_list_admin
{
my
(
$self
,
$role
,
@u
)
=
@_
;
$log
->
syslog
('
debug2
',
'',
$role
);
$log
->
syslog
('
debug2
',
'
(%s, %s, ...)
',
@
_
);
my
$self
=
shift
;
my
$role
=
shift
;
my
@u
=
@_
;
my
$name
=
$self
->
{'
name
'};
my
$total
=
0
;
foreach
my
$who
(
@u
)
{
next
unless
defined
$who
and
length
$who
;
$who
=
Sympa::Tools::Text::
canonic_email
(
$who
);
my
$statement
;
my
$sdm
=
Sympa::
DatabaseManager
->
instance
;
...
...
@@ -3328,7 +3330,7 @@ sub add_list_member {
}
}
#Log in stat_table to make staistics
#Log in stat_table to make sta
t
istics
$log
->
add_stat
(
'
robot
'
=>
$self
->
{'
domain
'},
'
list
'
=>
$self
->
{'
name
'},
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment