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>
|
