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

commandref_join.pl: noWarnings patch from justme1968 (Forum #46371)

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10471 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2016-01-12 08:26:07 +00:00
parent b6dd9a2d72
commit ebef1dae7c
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/98_update.pm
View File

@@ -384,8 +384,8 @@ doUpdate($$$$)
if($canJoin && $upd_needJoin && $curr == $max) { if($canJoin && $upd_needJoin && $curr == $max) {
chdir($root); chdir($root);
uLog(1, "Calling $^X $cj, this may take a while"); uLog(1, "Calling $^X $cj -noWarnings, this may take a while");
my $ret = `$^X $cj`; my $ret = `$^X $cj -noWarnings`;
foreach my $l (split(/[\r\n]+/, $ret)) { foreach my $l (split(/[\r\n]+/, $ret)) {
uLog(1, $l); uLog(1, $l);
} }

7
fhem/contrib/commandref_join.pl
View File

@@ -8,7 +8,10 @@ use strict;
use warnings; use warnings;
# $Id$ # $Id$
my $noWarnings = grep $_ eq '-noWarnings', @ARGV;
use constant TAGS => qw{ul li code b i u table tr td}; use constant TAGS => qw{ul li code b i u table tr td};
my %mods; my %mods;
my @modDir = ("FHEM"); my @modDir = ("FHEM");
foreach my $modDir (@modDir) { foreach my $modDir (@modDir) {
@@ -115,12 +118,12 @@ EOF
} }
} }
print "$lang $mods{$mod}: No a-tag with name=\"$mod\" \n" print "$lang $mods{$mod}: No a-tag with name=\"$mod\" \n"
if(!$suffix && $docCount && !$hasLink); if(!$suffix && $docCount && !$hasLink && !$noWarnings);
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")
if($tagcount{$tag}); if($tagcount{$tag} && !$noWarnings);
} }
} }