Commit cef9a0a5 authored by sikeda's avatar sikeda
Browse files

[-dev] perltidy'ing.


git-svn-id: https://subversion.renater.fr/sympa/branches/sympa-6.2-branch@12465 05aa8bb8-cd2b-0410-b1d7-8918dfa770ce
parent cc6b98fd
......@@ -3521,13 +3521,12 @@ sub dmarc_protect {
'Editor Address of %s Mailing List',
$list->{'name'});
} else {
$newName =
$language->gettext_sprintf('%s Mailing List',
$newName = $language->gettext_sprintf('%s Mailing List',
$list->{'name'});
}
$newComment = $language->gettext_sprintf(
'on behalf of %s', $origName);
$newComment =
$language->gettext_sprintf('on behalf of %s', $origName);
} elsif ($phraseMode eq 'list_for_name') {
if ($listtype eq 'owner') {
$newName = $language->gettext_sprintf(
......@@ -3538,13 +3537,12 @@ sub dmarc_protect {
'Editor Address of %s Mailing List',
$list->{'name'});
} else {
$newName =
$language->gettext_sprintf('%s Mailing List',
$newName = $language->gettext_sprintf('%s Mailing List',
$list->{'name'});
}
$newComment = $language->gettext_sprintf(
'on behalf of %s', $origFrom);
$newComment =
$language->gettext_sprintf('on behalf of %s', $origFrom);
} else {
$newName = $origName;
}
......
......@@ -935,7 +935,7 @@ sub check_cookie_extern {
# later : use Session table to identify those who create a lot of sessions
#FIXME: Robot context is ignored.
sub _is_a_crawler {
my $robot = shift;
my $robot = shift;
my $ua = $ENV{'HTTP_USER_AGENT'};
return undef unless defined $ua;
......
......@@ -1724,10 +1724,11 @@ sub upgrade {
next if $filename =~ /\A(?:[.]|T[.]|BAD-)/;
next unless -f $spool_dir . '/' . $filename;
my $metadata =
Sympa::Spool::unmarshal_metadata($spool_dir, $filename,
my $metadata = Sympa::Spool::unmarshal_metadata(
$spool_dir, $filename,
qr{([^\s\@]+)(?:\@([\w\.\-]+))?[.](\d+)[.](\d+)\z},
[qw(localpart domainpart date rand)]);
[qw(localpart domainpart date rand)]
);
next unless $metadata;
my $lock_fh =
......
......@@ -148,7 +148,7 @@ Change email of user.
=cut
sub moveto {
my $self = shift;
my $self = shift;
my $newemail = Sympa::Tools::Text::canonic_email(shift);
unless (defined $newemail) {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment