From: djk <djk>
Date: Sat, 10 Jun 2000 18:11:46 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: R_1_40^0
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3c5abeef9492faf2759af04df966311fab43302;p=spider.git

*** empty log message ***
---

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index b9e4a63e..65577607 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -507,6 +507,7 @@ sub read_msg_header
 	$file = new IO::File "$fn";
 	if (!$file) {
 	    dbg('err', "Error reading $fn $!");
+	    Log('err', "Error reading $fn $!");
 		return undef;
 	}
 	$size = -s $fn;
@@ -515,6 +516,7 @@ sub read_msg_header
 	$size -= length $line;
 	if (! $line =~ /^===/o) {
 		dbg('err', "corrupt first line in $fn ($line)");
+		Log('err', "corrupt first line in $fn ($line)");
 		return undef;
 	}
 	$line =~ s/^=== //o;
@@ -526,6 +528,7 @@ sub read_msg_header
 	$size -= length $line;
 	if (! $line =~ /^===/o) {
 	    dbg('err', "corrupt second line in $fn ($line)");
+	    Log('err', "corrupt second line in $fn ($line)");
 		return undef;
 	}
 	$line =~ s/^=== //o;
@@ -552,6 +555,7 @@ sub read_msg_body
 	$file = new IO::File;
 	if (!open($file, $fn)) {
 		dbg('err' ,"Error reading $fn $!");
+		Log('err' ,"Error reading $fn $!");
 		return undef;
 	}
 	@out = map {chomp; $_} <$file>;