Fix sympa-community#548 — Add log entry when message is rejected or d…

…istributed via email
ldidry · Apr 5, 2019 · 68bb581 · dverdin · Apr 5, 2019 · ldidry
1 parent 2766e0e
commit 68bb581
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/src/lib/Sympa/Spindle/ProcessModeration.pm b/src/lib/Sympa/Spindle/ProcessModeration.pm
@@ -151,6 +151,15 @@ sub _reject {
             },
             date => time + 1
         );
+        $log->db_log(
+            'robot'        => $list->{'domain'},
+            'list'         => $list->{'name'},
+            'action'       => 'reject',
+            'parameters'   => $message->{authkey},
+            'target_email' => $param->{rejected_by},
+            'status'       => 'success',
+            'user_email'   => $param->{rejected_by}
+        );
     }
 
     1;
@@ -195,6 +204,16 @@ sub _distribute {
         Sympa::send_dsn($message->{context}, $message, {}, '2.1.5');
     }
 
+    $log->db_log(
+        'robot'        => $list->{'domain'},
+        'list'         => $list->{'name'},
+        'action'       => 'distribute',
+        'parameters'   => $message->{authkey},
+        'target_email' => $self->{distributed_by},
+        'status'       => 'success',
+        'user_email'   => $self->{distributed_by}
+    );
+
     $message->{envelope_sender} = $self->{distributed_by};
     return ['Sympa::Spindle::DistributeMessage'];
 }