Skip to content
Snippets Groups Projects
Commit 59581e13 authored by taggart's avatar taggart
Browse files

start adding 6.2.32 patches

parent 14d57e0c
Branches
No related tags found
Loading
--- a/sympa-6.2.32/src/cgi/wwsympa.fcgi.in 2018-04-18 20:59:38.530745015 -0700
+++ b/sympa-6.2.32/src/cgi/wwsympa.fcgi.in 2018-04-22 03:45:38.697193273 -0700
@@ -10902,8 +10902,10 @@
# Compat. <= 6.2.20
sub do_copy_list {
- $in{'mode'} = 'copy';
- goto &do_move_list; # "&" is required.
+ # mysteriously reject copy list requests - this needs a real solution
+ &report::reject_report_web('intern','Unable_to_copy_list', {'new_listname' => $in{'new_listname'}},
+ $param->{'action'},$list,$param->{'user'}{'email'},$robot);
+ return undef;
}
# In order to rename a list you must be list owner and you must be allowed to
--- a/sympa-6.2.32/src/cgi/wwsympa.fcgi.in 2018-04-18 20:59:38.530745015 -0700
+++ b/sympa-6.2.32/src/cgi//wwsympa.fcgi.in 2018-04-22 03:56:15.973309951 -0700
@@ -10457,6 +10457,26 @@
Sympa::WWW::Report::notice_report_web('subscribers_noticed_deleted_topics',
{}, $param->{'action'});
}
+ ## Checking that list owner address is not set to one of the special
+ ## addresses:
+ if (exists $changed{'owner'}) {
+ my $list = $param->{'list'};
+ my @special = ("$list-owner\@$robot",
+ "$list-editor\@$robot", "$list-admin\@$robot",
+ "$list-admin\@$robot", "$list-request\@$robot",
+ "$list-bounce\@$robot", "$list-subscribe\@$robot",
+ "$list-unsubscribe\@$robot");
+ foreach my $owner (@{$new_admin->{'owner'}}) {
+ if (grep (/^$owner->{'email'}$/, @special)) {
+ ## generate an error and return
+ &report::reject_report_web('user','incorrect_email',{'email'=>$owner->{'email'}},$param->{'action'},$list);
+ &wwslog('info','do_edit_list: Reserved email address %s', $owner->{'email'});
+ &web_db_log({'status' => 'error', 'error_type' => 'incorrect_email'}, 'parameters' => $owner->{'email'});
+ return undef;
+ }
+ }
+ }
+
# For changed owner/editor
_notify_added_admin($config);
#my $owner_update = 1
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment