e-smith-radiusd/sme8/e-smith-radiusd-1.0.0-4.mitel_patch

Index: e-smith-radiusd/e-smith-radiusd.spec
diff -u /dev/null e-smith-radiusd/root/etc/e-smith/templates/etc/raddb/clients.conf/20local:1.1
--- /dev/null   Fri Jun 24 15:02:36 2005
+++ e-smith-radiusd/root/etc/e-smith/templates/etc/raddb/clients.conf/20local   Fri Jun 24 15:02:13 2005
@@ -0,0 +1,24 @@
+{
+    use esmith::HostsDB;
+    my $hostsdb = esmith::HostsDB->open;
+
+    # Handle each defined virtual domain
+    foreach my $host ($hostsdb->get_all_by_prop(HostType => "Local"))
+    {
+       $radiuskey = $host->prop('RadiusKey') || undef;
+       next unless defined $radiuskey;
+
+       $hostname = $host->key;
+       $hostname =~ s/\..*//;
+       $hostip = $host->prop('InternalIP') || '127.0.0.1';
+       $nastype = $host->prop('NASType') || 'other';
+
+       $OUT .= <<EOF;
+client $hostip \{
+       secret = $radiuskey
+       shortname = $hostname
+       nastype = $nastype
+\}
+EOF
+    }
+}
1	slords	1.1	Index: e-smith-radiusd/e-smith-radiusd.spec
2			diff -u /dev/null e-smith-radiusd/root/etc/e-smith/templates/etc/raddb/clients.conf/20local:1.1
3			--- /dev/null Fri Jun 24 15:02:36 2005
4			+++ e-smith-radiusd/root/etc/e-smith/templates/etc/raddb/clients.conf/20local Fri Jun 24 15:02:13 2005
5			@@ -0,0 +1,24 @@
6			+{
7			+ use esmith::HostsDB;
8			+ my $hostsdb = esmith::HostsDB->open;
9			+
10			+ # Handle each defined virtual domain
11			+ foreach my $host ($hostsdb->get_all_by_prop(HostType => "Local"))
12			+ {
13			+ $radiuskey = $host->prop('RadiusKey') \|\| undef;
14			+ next unless defined $radiuskey;
15			+
16			+ $hostname = $host->key;
17			+ $hostname =~ s/\..*//;
18			+ $hostip = $host->prop('InternalIP') \|\| '127.0.0.1';
19			+ $nastype = $host->prop('NASType') \|\| 'other';
20			+
21			+ $OUT .= <<EOF;
22			+client $hostip \{
23			+ secret = $radiuskey
24			+ shortname = $hostname
25			+ nastype = $nastype
26			+\}
27			+EOF
28			+ }
29			+}