[interchange] Prevent [email] tag from crashing on missing attachments.
Stefan Hornburg
interchange-cvs at icdevgroup.org
Wed Nov 17 09:23:13 UTC 2010
commit 4f1c94c518934ad9dbc82dab691425fa460ec5f5
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date: Wed Nov 17 10:20:54 2010 +0100
Prevent [email] tag from crashing on missing attachments.
code/UserTag/email.tag | 5 ++++-
1 files changed, 4 insertions(+), 1 deletions(-)
---
diff --git a/code/UserTag/email.tag b/code/UserTag/email.tag
index c4c9c73..202d809 100644
--- 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;
}
}
More information about the interchange-cvs
mailing list