summaryrefslogtreecommitdiffstats
path: root/share/format.pl
diff options
context:
space:
mode:
Diffstat (limited to 'share/format.pl')
-rwxr-xr-xshare/format.pl235
1 files changed, 235 insertions, 0 deletions
diff --git a/share/format.pl b/share/format.pl
new file mode 100755
index 0000000..10ef0ab
--- /dev/null
+++ b/share/format.pl
@@ -0,0 +1,235 @@
+#!/usr/bin/env perl
+#
+# Format the dictionaries according to a standard scheme.
+#
+# Usage: ./format.pl dictionary.foo
+#
+# We don't over-write the dictionaries in place, so that the process
+# can be double-checked by hand.
+#
+# This is a bit of a hack.
+#
+# FIXME: get lengths from variables, rather than hard-coding.
+#
+######################################################################
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+#
+# Copyright (C) 2010 Alan DeKok <aland@freeradius.org>
+#
+######################################################################
+#
+# $Id$
+#
+
+$begin_vendor = 0;
+$blank = 0;
+
+while (@ARGV) {
+ $filename = shift;
+
+ open FILE, "<$filename" or die "Failed to open $filename: $!\n";
+
+ @output = ();
+
+ while (<FILE>) {
+ #
+ # Clear out trailing whitespace
+ #
+ s/[ \t]+$//;
+
+ #
+ # And CR's
+ #
+ s/\r//g;
+
+ #
+ # Suppress multiple blank lines
+ #
+ if (/^\s+$/) {
+ next if ($blank == 1);
+ $blank = 1;
+ push @output, "\n";
+ next;
+ }
+ $blank = 0;
+
+ s/\s*$/\n/;
+
+ #
+ # Suppress leading whitespace, so long as it's
+ # not followed by a comment..
+ #
+ s/^\s*([^#])/$1/;
+
+ #
+ # Remember the vendor
+ #
+ if (/^VENDOR\s+([-\w]+)\s+(\w+)(.*)/) {
+ $name=$1;
+ $len = length $name;
+ if ($len < 32) {
+ $lenx = 32 - $len;
+ $lenx += 7; # round up
+ $lenx /= 8;
+ $lenx = int $lenx;
+ $tabs = "\t" x $lenx;
+ } else {
+ $tabs = " ";
+ }
+ push @output, "VENDOR\t\t$name$tabs$2$3\n";
+ $vendor = $name;
+ next;
+ }
+
+ #
+ # Remember if we did begin-vendor.
+ #
+ if (/^BEGIN-VENDOR\s+([-\w]+)\s+([-=\w]+)/) {
+ $begin_vendor = 1;
+ if (!defined $vendor) {
+ $vendor = $1;
+ } elsif ($vendor ne $1) {
+ # do something smart
+ }
+
+ if (! $2) {
+ push @output, "BEGIN-VENDOR\t$vendor\n";
+ } else {
+ push @output, "BEGIN-VENDOR\t$vendor\t$2\n";
+ }
+ next;
+ }
+
+ #
+ # Get attribute.
+ #
+ if (/^ATTRIBUTE\s+([-\w]+)\s+([\w.]+)\s+(\w+)(.*)/) {
+ $name=$1;
+ $len = length $name;
+ if ($len < 40) {
+ $lenx = 40 - $len;
+ $lenx += 7; # round up
+ $lenx /= 8;
+ $lenx = int $lenx;
+ $tabs = "\t" x $lenx;
+ if ($tabs eq "") {
+ $tabs = " ";
+ }
+ } else {
+ $tabs = " ";
+ }
+
+ $value = $2;
+ $type = $3;
+ $stuff = $4;
+
+ #
+ # See if it's old format, with the vendor at the end of
+ # the line. If so, make it the new format.
+ #
+ if ($stuff =~ /$vendor/) {
+ if ($begin_vendor == 0) {
+ push @output, "BEGIN-VENDOR\t$vendor\n\n";
+ $begin_vendor = 1;
+ }
+ $stuff =~ s/$vendor//;
+ $stuff =~ s/\s+$//;
+ }
+
+ push @output, "ATTRIBUTE\t$name$tabs$value\t$type$stuff\n";
+ next;
+ }
+
+ #
+ # Values.
+ #
+ if (/^VALUE\s+([-\w]+)\s+([-\w\/,.]+)\s+(\w+)(.*)/) {
+ $attr=$1;
+ $len = length $attr;
+ if ($len < 32) {
+ $lenx = 32 - $len;
+ $lenx += 7; # round up
+ $lenx /= 8;
+ $lenx = int $lenx;
+ $tabsa = "\t" x $lenx;
+ if ($tabsa eq "") {
+ $tabsa = " ";
+ $len += 1;
+ } else {
+ $len -= $len % 8;
+ $len += 8 * length $tabsa;
+ }
+ } else {
+ $tabsa = " ";
+ $len += 1;
+ }
+
+ #
+ # For the code below, we assume that the attribute lengths
+ #
+ if ($len < 32) {
+ $lena = 0;
+ } else {
+ $lena = $len - 32;
+ }
+
+ $name = $2;
+ $len = length $name;
+ if ($len < 24) {
+ $lenx = 24 - $lena - $len;
+ $lenx += 7; # round up
+ $lenx /= 8;
+ $lenx = int $lenx;
+ $tabsn = "\t" x $lenx;
+ if ($tabsn eq "") {
+ $tabsn = " ";
+ }
+ } else {
+ $tabsn = " ";
+ }
+
+ push @output, "VALUE\t$attr$tabsa$name$tabsn$3$4\n";
+ next;
+ }
+
+ #
+ # Remember if we did this.
+ #
+ if (/^END-VENDOR/) {
+ $begin_vendor = 0;
+ }
+
+ #
+ # Everything else gets dumped out as-is.
+ #
+ push @output, $_;
+ }
+
+#
+# If we changed the format, print the end vendor, too.
+#
+ if ($begin_vendor) {
+ push @output, "\nEND-VENDOR\t$vendor\n";
+ }
+
+ close FILE;
+
+ open FILE, ">$filename" or die "Failed to open $filename: $!\n";
+
+ print FILE @output;
+
+ close FILE;
+}