Prevent [email] tag from crashing on missing attachments.

interchange · Nov 17, 2010 · 4f1c94c · 4f1c94c
1 parent 3660fed
commit 4f1c94c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/code/UserTag/email.tag b/code/UserTag/email.tag
@@ -196,6 +196,7 @@ sub {
 				$msg->attach(
 					Type => $ref->{type},
 					Path => $ref->{path},
+					ReadNow => 1,
 					Data => $ref->{data},
 					Filename => $ref->{filename},
 					Encoding => $ref->{encoding},
@@ -204,7 +205,9 @@ sub {
 			};
 			if($@) {
 				::logError("email tag: failed to attach %s: %s", $ref->{path}, $@);
-				next;
+				$Tag->error({name => 'email', 
+					set => errmsg('Failed to attach %s', $ref->{path})});
+				return;
 			}
 		}