summaryrefslogtreecommitdiffstats
path: root/share/dct2fr
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xshare/dct2fr31
1 files changed, 31 insertions, 0 deletions
diff --git a/share/dct2fr b/share/dct2fr
new file mode 100755
index 0000000..e61fb83
--- /dev/null
+++ b/share/dct2fr
@@ -0,0 +1,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";