FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 05:06:35 +00:00
Code Issues Releases Wiki Activity

Error message for DOS encoding

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3479 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-07-23 06:03:11 +00:00
parent af6ac49ca2
commit f45d256560
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fhem/contrib/commandref_join.pl
View File

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