From 8b4e1a9b732fe0d25d18d3fca592d9209ccbf6e1 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 6 Aug 2010 02:31:05 -0400
Subject: [PATCH] fix logfh call

---
 scripts/process | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/process b/scripts/process
index 0dbb3b2..4f7d15a 100755
--- 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),
-- 
2.39.2