[Netpass-devel] NetPass/www/components/Admin FormAuthRadius,NONE,1.1

[jeff m. <jef...@us...>]

Update of /cvsroot/netpass/NetPass/www/components/Admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4343/www/components/Admin

Added Files:
	FormAuthRadius 
Log Message:
auth config gui

--- NEW FILE: FormAuthRadius ---
<%doc>
Fetch all radius servers. Display them.
Allow for add/del and edit.
</%doc>
<%args>
	$prefix => '';
</%args>
<%perl>
my $rs_ = $np->cfg->getRadius();
my $rs  = (ref($rs_) eq "ARRAY") ? $rs_ : [];
my $WH  = "----------------";
my $ml  = length($WH);
foreach my $server (@$rs) {
	$ml = ($ml > length($server)) ? $ml : length($server);
}
$ml = int($ml * 1.5);
$WH = "-" x $ml;
</%perl>
<table border=0>
<tr><th>Radius Servers</th><th>Secret</th></tr>
<tr><td><%$q->scrolling_list(-id => $prefix.'radiusServer', -name => $prefix.'radiusServer',
			 -size => 4, -values => [ $WH, @$rs ])%></td>
    <td><input size=16 id='<%$prefix%>radiusSecret'></td>
</tr>
</table>