fix logfh call

diff --git a/scripts/process b/scripts/process
index 0dbb3b2777de6f21888cc93e1d1a12876f02e7d3..4f7d15a8bfe25182df6bb13fe9f0163a59445f6f 100755 (executable)
--- a/scripts/process
+++ b/scripts/process
@@ -999,7 +999,7 @@ sub sendmessage {
 
     my $hash = get_hashname($ref);
     #save email to the log
-    my $logfh = IO::File->new("db-h/${hash}/${ref}.log",'w') or
+    my $logfh = IO::File->new(">>db-h/${hash}/${ref}.log") or
        die "opening db-h/$hash/${ref}.log: $!";
     write_log_records(logfh => $logfh,
                      records => {text => stripbccs($msg),