Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Sympa
Commits
88f80a01
Commit
88f80a01
authored
Jun 08, 2021
by
IKEDA Soji
Browse files
Fix noise in HTTP server error log (#1185)
parent
39e3006a
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/lib/Sympa/Config.pm
View file @
88f80a01
...
...
@@ -371,7 +371,7 @@ sub _sanitize_changes_set {
return
()
unless
ref
$new
eq
'
ARRAY
';
# Sanity check
return
()
if
$pitem
->
{
obsolete
};
return
()
unless
$pitem
->
{
privilege
}
eq
'
write
'
;
return
()
unless
'
write
'
eq
(
$pitem
->
{
privilege
}
//
'')
;
# Resolve synonym.
if
(
ref
$pitem
->
{
synonym
}
eq
'
HASH
')
{
...
...
@@ -425,7 +425,7 @@ sub _sanitize_changes_array {
return
()
unless
ref
$new
eq
'
ARRAY
';
# Sanity check
return
()
if
$pitem
->
{
obsolete
};
return
()
unless
$pitem
->
{
privilege
}
eq
'
write
'
;
return
()
unless
'
write
'
eq
(
$pitem
->
{
privilege
}
//
'')
;
my
$i
=
-
1
;
my
%ret
=
map
{
...
...
@@ -475,7 +475,7 @@ sub _sanitize_changes_paragraph {
return
()
unless
ref
$new
eq
'
HASH
';
# Sanity check
return
()
if
$pitem
->
{
obsolete
};
return
()
unless
$pitem
->
{
privilege
}
eq
'
write
'
;
return
()
unless
'
write
'
eq
(
$pitem
->
{
privilege
}
//
'')
;
$self
->
_apply_defaults
(
$cur
,
$pitem
->
{
format
},
init
=>
(
$options
{
init
}
and
not
$options
{
loading
}));
...
...
@@ -581,7 +581,7 @@ sub _sanitize_changes_leaf {
return
()
if
ref
$new
eq
'
ARRAY
';
# Sanity check: Hashref or scalar
return
()
if
$pitem
->
{
obsolete
};
return
()
unless
$pitem
->
{
privilege
}
eq
'
write
'
;
return
()
unless
'
write
'
eq
(
$pitem
->
{
privilege
}
//
'')
;
# If the parameter corresponds to a scenario or a task, mark it
# as changed if its name was changed. Example: 'subscribe'.
...
...
src/lib/Sympa/Spindle/AuthorizeRequest.pm
View file @
88f80a01
...
...
@@ -116,7 +116,7 @@ sub _twist {
if
(
$action
=~
/\Areject\b/i
)
{
;
}
elsif
(
$sender
ne
$request
->
{
email
}
$sender
ne
(
$request
->
{
email
}
//
'')
and
(
$request
->
{
action
}
eq
'
subscribe
'
or
$request
->
{
action
}
eq
'
signoff
')
)
{
...
...
src/lib/Sympa/WWW/SOAP.pm
View file @
88f80a01
...
...
@@ -80,8 +80,7 @@ sub lists {
my
$self
=
shift
;
#$self is a service object
my
$topic
=
shift
;
my
$subtopic
=
shift
;
my
$mode
=
shift
;
$mode
||=
'';
my
$mode
=
shift
//
'';
my
$sender
=
$ENV
{'
USER_EMAIL
'};
my
$robot
=
$ENV
{'
SYMPA_ROBOT
'};
...
...
@@ -1240,7 +1239,7 @@ sub complexLists {
## Simplified return structure
sub
which
{
my
$self
=
shift
;
my
$mode
=
shift
;
my
$mode
=
shift
//
''
;
my
@result
;
my
$sender
=
$ENV
{'
USER_EMAIL
'};
...
...
@@ -1521,7 +1520,9 @@ sub setCustom {
## Return a structure in SOAP data format
## either flat (string) or structured (complexType)
sub
struct_to_soap
{
my
(
$data
,
$format
)
=
@_
;
my
$data
=
shift
;
my
$format
=
shift
//
'';
my
$soap_data
;
unless
(
ref
(
$data
)
eq
'
HASH
')
{
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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