/usr/share/doc/freeradius/examples/clients.pl is in freeradius 3.0.12+dfsg-5+deb9u1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 | #!/usr/bin/env perl
#
# Convert old-style "clients" file to new "clients.conf" format.
#
# Usage: clients.pl clients [naslist] new-clients.conf
# The "new-clients.conf" will be created if it does not exist.
# If it does exist, it will be over-written.
#
#
# $Id: 40ed5eebd5d04c015b38bb1bdd2e9be8e0a65e4e $
#
if (($#ARGV < 1) || ($#ARGV > 2)) {
print "Usage: clients.pl clients [naslist] new-clients.conf\n";
print " The \"new-clients.conf\" will be created if it does not exist.\n";
print " If it does exist, it will be over-written.\n";
exit(1);
}
$old = shift;
$new = shift;
if ($new =~ /naslist/) {
$naslist = $new;
$new = shift;
}
open OLD, "< $old" or die "Failed to open $old: $!\n";
while (<OLD>) {
next if (/^\s*\#/);
next if (/^\s*$/);
split;
$clients{$_[0]}{"secret"} = $_[1];
}
close OLD;
if (defined $naslist) {
open OLD, "< $naslist" or die "Failed to open $naslist: $!\n";
while (<OLD>) {
next if (/^\s*\#/);
next if (/^\s*$/);
split;
if (!defined $clients{$_[0]}) {
print "WARNING! client $_[0] is defined in naslist, but not in clients!";
next;
}
$clients{$_[0]}{"shortname"} = $_[1];
$clients{$_[0]}{"nas_type"} = $_[2];
}
}
open NEW, "> $new" or die "Failed to open $new: $!\n";
foreach $client (keys %clients) {
print NEW "client $client {\n";
print NEW "\tsecret = ", $clients{$client}{"secret"}, "\n";
if (defined $clients{$client}{"shortname"}) {
print NEW "\tshortname = ", $clients{$client}{"shortname"}, "\n";
print NEW "\tnas_type = ", $clients{$client}{"nas_type"}, "\n";
}
print NEW "}\n";
print NEW "\n";
}
|