X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=3038b75638b12308fe18bd01baafd69ff6c2de7e;hb=179ce69d2479d950536efd127fe7b11666e4da6e;hp=f60b59038e274f77b6468b85886ab1c998c9a8c0;hpb=47bc13ac2b52dd67972c24017d7f6a41ac601611;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index f60b5903..3038b756 100644
--- 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;
-			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'); 
 			}
 		}
 	}