From e30ede9afc12bd25e11f9f9c5777301dcb9a8fe6 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 2 Jan 2016 15:12:27 +0000
Subject: [PATCH] pre-commit: CHANGED:80 patch by Markus (Forum #46371)

git-svn-id: https://svn.fhem.de/fhem/trunk@10330 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/pre-commit | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/fhem/contrib/pre-commit b/fhem/contrib/pre-commit
index 4530b5116..0f7e4854c 100755
--- a/fhem/contrib/pre-commit
+++ b/fhem/contrib/pre-commit
@@ -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;