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

DOS mode removed... again...

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

10
fhem/contrib/commandref_join.pl
View File

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