Understand extended format attrs, too
authorAlan T. DeKok <aland@freeradius.org>
Thu, 25 Oct 2012 12:03:56 +0000 (14:03 +0200)
committerAlan T. DeKok <aland@freeradius.org>
Thu, 25 Oct 2012 12:04:23 +0000 (14:04 +0200)
share/format.pl

index 4f08b23..8105511 100755 (executable)
@@ -106,7 +106,7 @@ while (@ARGV) {
        #
        #  Get attribute.
        #
-       if (/^ATTRIBUTE\s+([\w-]+)\s+(\w+)\s+(\w+)(.*)/) {
+       if (/^ATTRIBUTE\s+([\w-]+)\s+([\w.]+)\s+(\w+)(.*)/) {
            $name=$1;
            $len = length $name;
            if ($len < 40) {