From 12ab7e571f7abcce11fe12d1d2bc8fc00090268a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 23 Jul 2013 06:03:11 +0000
Subject: [PATCH] Error message for DOS encoding

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3479 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 contrib/commandref_join.pl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/contrib/commandref_join.pl b/contrib/commandref_join.pl
index f1c195ee8..f9273232a 100755
--- a/contrib/commandref_join.pl
+++ b/contrib/commandref_join.pl
@@ -71,9 +71,11 @@ foreach my $lang (@lang) {
     my $line = 0;
     my $docCount = 0;
     my $hasLink = 0;
+    my $dosMode = 0;
     while(my $l = <MOD>) {
       $line++;
 
+      $dosMode = 1 if($l =~ m/^=begin html$suffix.*\r/);
       if($l =~ m/^=begin html$suffix$/) {
         $l = <MOD>;    # skip one line, to be able to repeat join+split
         print "$lang $mod: nonempty line after =begin html ignored\n"
@@ -97,8 +99,11 @@ foreach my $lang (@lang) {
       }
     }
     close(MOD);
-    print "$lang $mod: No document text found\n" if(!$suffix && !$docCount);
-    print "$lang $mod: No <a name=\"$mod\"> link\n"
+    print "*** $lang $mods{$mod}: ignoring text due to DOS encoding\n"
+        if($dosMode);
+    print "*** $lang $mods{$mod}: No document text found\n"
+        if(!$suffix && !$docCount && !$dosMode);
+    print "$lang $mods{$mod}: No <a name=\"$mod\"> link\n"
         if(!$suffix && $docCount && !$hasLink);
 
     foreach $tag (TAGS) {