blob: e61fb83b24a108a1d49489e07b0b5c7a9b41ae19 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl
#
# Horrible hack to convert Funk dictionaries to FreeRADIUS ones.
#
# It won't convert everything, and the files still need to be
# edited afterwards, but it's a start.
#
# ./dct2fr foo.dct > dictionary.foo
# vi dictionary.foo
# replace 'foo' with the real vendor name
# ./format.pl dictionary.foo
#
while (<>) {
if (/^MACRO\s+([^ \t\(]+)\(t,s\)\s+26\s+\[vid=(\d+)\s+type1=\%t\%\s+len1=\+2\s+data=\%s\%/) {
$name = $1;
$vendor = $2;
print "VENDOR foo $2\n";
print "BEGIN-VENDOR foo\n";
}
# if (/^ATTRIBUTE\s+([^ \t]+)\s+$name\s*\((\d+),s+(\w+)\)/i) {
if (/^ATTRIBUTE\s+([^ \t]+)\s+$name\s*\((\d+)\s*,\s*(\w+)/i) {
print "ATTRIBUTE $1 $2 $3\n";
}
}
print "END-VENDOR foo\n";
|
