Error message for DOS encoding

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@3479 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-07-23 06:03:11 +00:00
parent e5f5bc276e
commit 12ab7e571f

View File

@ -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) {