diff options
Diffstat (limited to 'bin/generate-raddb')
-rwxr-xr-x | bin/generate-raddb | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/bin/generate-raddb b/bin/generate-raddb index af21c05a8..f946b05b3 100755 --- a/bin/generate-raddb +++ b/bin/generate-raddb @@ -1,7 +1,8 @@ #!/usr/bin/perl # usage: generate-raddb radius-server/raddb/dictionary* >raddb.pm -# i.e.: generate-raddb ~/freeradius/freeradius-1.0.5/share/dictionary* ~/wirelessoceans/dictionary.ip3networks ~/wtxs/dictionary.mot.canopy >raddb.pm.new +# i.e.: generate-raddb ~/src/freeradius-0.2/raddb/dictionary* >FS/raddb.pm + print <<END; package FS::raddb; use vars qw(%attrib); @@ -28,24 +29,17 @@ while (<>) { #print "$2\n"; } -foreach ( sort keys %hash ) { +foreach ( keys %hash ) { # print "$_\n" if length($_)>24; # print substr($_,0,24),"\n" if length($_)>24; # $max = length($_) if length($_)>$max; # have to fudge things since everything >24 is *not* unique #print " '". substr($_,0,24). "' => '$hash{$_}',\n"; - print " '$_' ". ( " " x (24-length($_) ) ). "=> '$hash{$_}',\n"; + print " '$_' => '$hash{$_}',\n"; } print <<END; - - #NETC.NET.AU (RADIATOR?) - 'authentication_type' => 'Authentication-Type', - - #wtxs (dunno) - #'radius_operator' => 'Radius-Operator', - ); 1; |