Fix for bug 66651 - Include link to attachment in notification mail

Patch by Gavin Shelley <gavins@iplbath.com>
r= jake@acutex.net

1 files changed, 11 insertions, 0 deletions

diff --git a/processmail b/processmail
index 45f5aa310..ebeb95bf7 100755
--- a/processmail
+++ b/processmail
@@ -717,6 +717,17 @@ sub NewProcessOnePerson ($$$$$$$$$$$) {
     
     my %substs;
 
+    # If an attachment was created, then add an URL. (Note: the 'g'lobal
+    # replace should work with comments with multiple attachments.)
+
+    if ( $newcomments =~ /Created an attachment \(/ ) {
+
+        my $showattachurlbase =
+            Param('urlbase') . "showattachment.cgi?attach_id=";
+
+        $newcomments =~ s/(Created an attachment \(id=([0-9]+)\))/$1\n --> \(${showattachurlbase}$2\)/g;
+    }
+
     $person .= Param('emailsuffix');
 # 09/13/2000 cyeh@bluemartini.com
 # If a bug is changed, don't put the word "Changed" in the subject mail