mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DOS mode removed... again...

Browse Source 
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2511 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2013-01-14 07:28:05 +00:00
parent 867c76cea4
commit 7eeac12a87
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
contrib/commandref_join.pl
View File

@@ -66,17 +66,24 @@ foreach my $lang (@lang) {
my $skip = 1; my $skip = 1;
my $line = 0; my $line = 0;
my $docCount = 0; my $docCount = 0;
my $hasLink = 0;
while(my $l = <MOD>) { while(my $l = <MOD>) {
$line++; $line++;
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 "$mod: nonempty line after =begin html ignored\n"
if($l =~ m/^...*$/);
$skip = 0; $line++; $skip = 0; $line++;
} elsif($l =~ m/^=end html$suffix$/) { } elsif($l =~ m/^=end html$suffix$/) {
$skip = 1; $skip = 1;
} elsif(!$skip) { } elsif(!$skip) {
# here we copy line by line from the module # here we copy line by line from the module
print OUT $l; print OUT $l;
$docCount++; $docCount++;
$hasLink = ($l =~ m/<a name="$mod">/) if(!$hasLink);
foreach $tag (TAGS) { foreach $tag (TAGS) {
my $ot = ($tagcount{$tag} ? $tagcount{$tag} : 0); my $ot = ($tagcount{$tag} ? $tagcount{$tag} : 0);
$tagcount{$tag} +=()= ($l =~ /<$tag>/gi); $tagcount{$tag} +=()= ($l =~ /<$tag>/gi);
@@ -88,6 +95,9 @@ foreach my $lang (@lang) {
} }
close(MOD); close(MOD);
print "$mod: No document text found\n" if(!$suffix && !$docCount); print "$mod: No document text found\n" if(!$suffix && !$docCount);
print "$mod: No <a name=\"$mod\"> link\n"
if(!$suffix && $docCount && !$hasLink);
foreach $tag (TAGS) { foreach $tag (TAGS) {
print("$lang $mods{$mod}: Unbalanced $tag ". print("$lang $mods{$mod}: Unbalanced $tag ".
"($tagcount{$tag}, last line ok: $llwct{$tag})\n") "($tagcount{$tag}, last line ok: $llwct{$tag})\n")