FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 03:59:11 +00:00
Code Issues Releases Wiki Activity

pre-commit: CHANGED:80 patch by Markus (Forum #46371)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10330 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-01-02 15:12:27 +00:00
parent 6035ace0ce
commit 8dee31b234
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/contrib/pre-commit
View File

@ -13,6 +13,7 @@ my $arg="-t $txn";
my @lang = ("EN", "DE");
my $exitCode = 0;
use constant TAGS => qw{ul li code b i u table tr td};
use constant LINECHECK => qw{CHANGED};
my $log = `$svnlook log $arg $repos`;
@ -31,9 +32,23 @@ foreach my $row (split("\n", $fList)) {
chomp($row);
my ($type, $fName) = split(" ", $row);
next if($type eq "D");
next if(!$fName || $fName !~ m+FHEM/\d\d_(.*).pm$+);
next if(!$fName || !grep($fName, LINECHECK) || $fName !~ m+FHEM/\d\d_(.*).pm$+);
my $modName = $1;
# check for 80 chars per line conformity
if(grep($fName, LINECHECK)) {
my $cCount = 0;
open(FILE, "$svnlook $arg cat $repos $fName|") ||
die("Cant svnlook cat $fName:$!\n");
while(my $l = <FILE>) {
chomp $l;
$cCount = length($l) if(length($l) > $cCount);
}
close(FILE);
err $fName, "$fName: file has over 80 chars/line" if($cCount > 80);
next;
}
foreach my $lang (@lang) {
my $suffix = ($lang eq "EN" ? "" : "_$lang");
my $tag;