← Back to branch summary

~ubuntu-branches/ubuntu/natty/freeradius/natty-updates

« back to all changes in this revision

Viewing changes to share/format.pl

  • Committer: Bazaar Package Importer
  • Author(s): Paul Hampson
  • Date: 2006-01-15 13:34:13 UTC
  • mto: (3.1.3 dapper) (4.1.3 sid) (1.1.14 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20060115133413-zo1dslttvdoalqym
Tags: upstream-1.1.0
Import upstream version 1.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/format.pl
 
1
#!/usr/bin/env perl
 
2
#
 
3
#  Format the dictionaries according to a standard scheme.
 
4
#
 
5
#  Usage: cat dictionary | ./format.pl > new
 
6
#
 
7
#  We don't over-write the dictionaries in place, so that the process
 
8
#  can be double-checked by hand.
 
9
#
 
10
#  This is a bit of a hack.
 
11
#
 
12
#  FIXME: get lengths from variables, rather than hard-coding.
 
13
#
 
14
#  $Id: format.pl,v 1.3.2.1 2005/11/30 22:17:34 aland Exp $
 
15
#
 
16
 
 
17
$begin_vendor = 0;
 
18
$blank = 0;
 
19
 
 
20
while (<>) {
 
21
    #
 
22
    #  Clear out trailing whitespace
 
23
    #
 
24
    s/[ \t]+$//;
 
25
 
 
26
    #
 
27
    #  And CR's
 
28
    #
 
29
    s/\r//g;
 
30
 
 
31
    #
 
32
    #  Suppress multiple blank lines
 
33
    #
 
34
    if (/^\s+$/) {
 
35
        next if ($blank == 1);
 
36
        $blank = 1;
 
37
        print "\n";
 
38
        next;
 
39
    }
 
40
    $blank = 0;
 
41
 
 
42
    #
 
43
    #  Remember the vendor
 
44
    #
 
45
    if (/^VENDOR\s+([\w-]+)\s+(\w+)(.*)/) {
 
46
        $name=$1;
 
47
        $len = length $name;
 
48
        if ($len < 32) {
 
49
            $lenx = 32 - $len;
 
50
            $lenx += 7;         # round up
 
51
            $lenx /= 8;
 
52
            $lenx = int $lenx;
 
53
            $tabs = "\t" x $lenx;
 
54
        } else {
 
55
            $tabs = " ";
 
56
        }
 
57
        print "VENDOR\t\t$name$tabs$2$3\n";
 
58
        $vendor = $name;
 
59
        next;
 
60
    }
 
61
 
 
62
    #  
 
63
    #  Remember if we did begin-vendor.
 
64
    #
 
65
    if (/^BEGIN-VENDOR\s+([\w-]+)/) {
 
66
        $begin_vendor = 1;
 
67
        print "BEGIN-VENDOR\t$vendor\n";
 
68
        next;
 
69
    }
 
70
 
 
71
    #
 
72
    #  Get attribute.
 
73
    #
 
74
    if (/^ATTRIBUTE\s+([\w-]+)\s+(\w+)\s+(\w+)(.*)/) {
 
75
        $name=$1;
 
76
        $len = length $name;
 
77
        if ($len < 40) {
 
78
            $lenx = 40 - $len;
 
79
            $lenx += 7;         # round up
 
80
            $lenx /= 8;
 
81
            $lenx = int $lenx;
 
82
            $tabs = "\t" x $lenx;
 
83
            if ($tabs eq "") {
 
84
                $tabs = " ";
 
85
            }
 
86
        } else {
 
87
            $tabs = " ";
 
88
        }
 
89
 
 
90
        $value = $2;
 
91
        $type = $3;
 
92
        $stuff = $4;
 
93
 
 
94
        #
 
95
        #  See if it's old format, with the vendor at the end of
 
96
        #  the line.  If so, make it the new format.
 
97
        #
 
98
        if ($stuff =~ /$vendor/) {
 
99
            if ($begin_vendor == 0) {
 
100
                print "BEGIN-VENDOR\t$vendor\n\n";
 
101
                $begin_vendor = 1;
 
102
            }
 
103
            $stuff =~ s/$vendor//;
 
104
            $stuff =~ s/\s+$//;
 
105
        }
 
106
 
 
107
        print "ATTRIBUTE\t$name$tabs$value\t$type$stuff\n";
 
108
        next;
 
109
    }
 
110
 
 
111
    #
 
112
    #  Values.
 
113
    #
 
114
    if (/^VALUE\s+([\w-]+)\s+([\w-\/,.]+)\s+(\w+)(.*)/) {
 
115
        $attr=$1;
 
116
        $len = length $attr;
 
117
        if ($len < 32) {
 
118
            $lenx = 32 - $len;
 
119
            $lenx += 7;         # round up
 
120
            $lenx /= 8;
 
121
            $lenx = int $lenx;
 
122
            $tabsa = "\t" x $lenx;
 
123
            if ($tabsa eq "") {
 
124
                $tabsa = " ";
 
125
                $len += 1;
 
126
            } else {
 
127
                $len -= $len % 8;
 
128
                $len += 8 * length $tabsa;
 
129
            }
 
130
        } else {
 
131
            $tabsa = " ";
 
132
            $len += 1;
 
133
        }
 
134
 
 
135
        #
 
136
        #  For the code below, we assume that the attribute lengths
 
137
        #
 
138
        if ($len < 32) {
 
139
            $lena = 0;
 
140
        } else {
 
141
            $lena = $len - 32;
 
142
        }
 
143
 
 
144
        $name = $2;
 
145
        $len = length $name;
 
146
        if ($len < 24) {
 
147
            $lenx = 24 - $lena - $len;
 
148
            $lenx += 7;         # round up
 
149
            $lenx /= 8;
 
150
            $lenx = int $lenx;
 
151
            $tabsn = "\t" x $lenx;
 
152
            if ($tabsn eq "") {
 
153
                $tabsn = " ";
 
154
            }
 
155
        } else {
 
156
            $tabsn = " ";
 
157
        }
 
158
 
 
159
        print "VALUE\t$attr$tabsa$name$tabsn$3$4\n";
 
160
        next;
 
161
    }
 
162
 
 
163
    #
 
164
    #  Remember if we did this.
 
165
    #
 
166
    if (/^END-VENDOR/) {
 
167
        $begin_vendor = 0;
 
168
    }
 
169
 
 
170
    #
 
171
    #  Everything else gets dumped out as-is.
 
172
    #
 
173
    print;
 
174
}
 
175
 
 
176
#
 
177
#  If we changed the format, print the end vendor, too.
 
178
#
 
179
if ($begin_vendor) {
 
180
    print "\nEND-VENDOR\t$vendor\n";
 
181
}