From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 20 Apr 2010 16:58:26 +0000 (+0100)
Subject: Use message number for reject publish filename if available
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?a=commitdiff_plain;h=67364e9440f0f0589c9803d8edc616f7e8cd530b;p=modbot-ulm.git

Use message number for reject publish filename if available
---

diff --git a/xlog/bin/record b/xlog/bin/record
index 37a4236..7b6cf60 100755
--- a/xlog/bin/record
+++ b/xlog/bin/record
@@ -136,7 +136,7 @@ $f{Now}= time;
 
 if ($publish_rejections &&
     $f{Event} =~ m/^notify reject /) {
-    $f{CopyRef}= $f{MessageID};
+    $f{CopyRef}= $f{MessageNum} || $f{MessageID};
     $f{CopyRef} =~ s/\W/ sprintf '-%02x', ord($&) /ge;
     open I, ">$dir/public/nr-$f{CopyRef}.txt" or die $!;
     print I $message or die $!;