projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
47bc13a
)
added a bit of error checking
author
minima
<minima>
Thu, 25 Oct 2001 15:46:38 +0000
(15:46 +0000)
committer
minima
<minima>
Thu, 25 Oct 2001 15:46:38 +0000
(15:46 +0000)
perl/DXMsg.pm
patch
|
blob
|
history
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index f60b59038e274f77b6468b85886ab1c998c9a8c0..3038b75638b12308fe18bd01baafd69ff6c2de7e 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-434,11
+434,15
@@
sub notify
my $msg = new Mail::Send Subject=>"[DXSpider: $ref->{from}] $ref->{subject}";
$msg->to(@list);
my $fh = $msg->open;
my $msg = new Mail::Send Subject=>"[DXSpider: $ref->{from}] $ref->{subject}";
$msg->to(@list);
my $fh = $msg->open;
- print $fh "From: $ref->{from} To: $to On Node: $main::mycall Origin: $ref->{origin} Msgno: $ref->{msgno}\r\n\r\n";
- print $fh map {"$_\r\n"} $ref->read_msg_body;
- $fh->close;
- for (@list) {
- Log('msg', "Msgno $ref->{msgno} from $ref->{from} emailed to $_");
+ if ($fh) {
+ print $fh "From: $ref->{from} To: $to On Node: $main::mycall Origin: $ref->{origin} Msgno: $ref->{msgno}\r\n\r\n";
+ print $fh map {"$_\r\n"} $ref->read_msg_body;
+ $fh->close;
+ for (@list) {
+ Log('msg', "Msgno $ref->{msgno} from $ref->{from} emailed to $_");
+ }
+ } else {
+ dbg("email forwarding error $!") if isdbg('msg');
}
}
}
}
}
}