copyedit

sympa-community · Jun 16, 2023 · 57f1ef3 · 57f1ef3
1 parent fbe7f7f
commit 57f1ef3
Showing 1 changed file with 10 additions and 21 deletions.
diff --git a/src/cgi/wwsympa.fcgi.in b/src/cgi/wwsympa.fcgi.in
@@ -1808,30 +1808,19 @@ Sympa::Spool::Listmaster->instance->flush(purge => 1);
 ## Write to log
 sub wwslog {
     my $facility = shift;
-
     my $msg    = shift;
     my $remote = $ENV{'REMOTE_HOST'} || $ENV{'REMOTE_ADDR'};
-    my $wwsmsg = '';
-
-    $wwsmsg = "[list $param->{'list'}] " . $wwsmsg
-        if $param->{'list'};
-
-    $wwsmsg = "[user $param->{'user'}{'email'}] " . $wwsmsg
-        if $param->{'user'}{'email'};
 
-    $wwsmsg = "[rss] " . $wwsmsg
-        if $rss;
-
-    $wwsmsg = "[bot] " . $wwsmsg
-        if $session->{'is_a_crawler'};
-
-    $wwsmsg = "[client $remote] " . $wwsmsg
-        if $remote;
-
-    $wwsmsg = "[session $session->{'id_session'}] " . $wwsmsg
-        if $session;
-
-    $wwsmsg = "[robot $robot] " . $wwsmsg;
+    my $wwsmsg = join ' ',
+        grep {defined} (
+        "[robot $robot]",
+        ($session                   and "[session $session->{'id_session'}]"),
+        ($remote                    and "[client $remote]"),
+        ($session->{'is_a_crawler'} and "[bot]"),
+        ($rss                       and "[rss]"),
+        ($param->{'user'}{'email'}  and "[user $param->{'user'}{'email'}]"),
+        ($param->{'list'}           and "[list $param->{'list'}]")
+        );
 
     push @_, $wwsmsg;
     if ($msg =~ /^([(][^)]*[)])\s*(.*)/s) {