netpass-devel

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

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

Added Files:
	getLDAP.mhtml getRadiusSecret.mhtml setLDAP.mhtml 
	setRadiusSecret.mhtml 
Log Message:
bug fixes to userform, arp table searching (osx), ldap ui, auth.mhtml ui

--- NEW FILE: setLDAP.mhtml ---
<%doc>
</%doc>
<%args>
	$server => '';
	$base   => '';
	$filter => '';
	$passwordField => '';
</%args>
<%perl>
	use URI;

	# validate perms
	my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default');

	if ($isRoot && $server) {
		my $ri = $np->cfg->setLDAP(-server => $server, 
					-base => $base, -filter => $filter,
					-passwordField => $passwordField);
		if ($ri) {
			print "NOK $ri\n";
		} else {
			my $rv = $np->cfg->save(-user => $m->session->{'username'});
			_log("DEBUG", $m->session->{'username'}." updated ldap settings for $server\n");
			if ($rv) {
				print "NOK $rv\n";
			} else {
				print "OK\n";
			}
		}
	} else {
		print "NOK permission denied\n";
	}
</%perl>

--- NEW FILE: setRadiusSecret.mhtml ---
<%doc>
</%doc>
<%args>
	$server => '';
	$secret => '';
</%args>
<%perl>
	# validate perms
	my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default');

	if ($isRoot && $server) {
		my $rv = $np->cfg->setRadius(-server => $server, -secret => $secret);
		if ($rv) {
			print "NOK $rv\n";
		} else {
			$rv = $np->cfg->save(-user => $m->session->{'username'});
			_log("DEBUG", $m->session->{'username'}." updated radius secret for $server\n");
			if ($rv) {
				print "NOK $rv\n";
			} else {
				print "OK\n";
			}
		}
	} else {
		print "NOK permission denied\n";
	}
</%perl>

--- NEW FILE: getLDAP.mhtml ---
<%doc>
</%doc>
<%args>
	$server => '';
</%args>
<%perl>
	use URI;

	# validate perms
	my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default');

	if ($isRoot && $server) {
		my $ri = $np->cfg->getLDAP($server);
		if (ref($ri) eq "HASH") {
			print "OK ", join(' ', 
					URI->new($ri->{'base'})->canonical(), 
					URI->new($ri->{'filter'})->canonical(),
					URI->new($ri->{'passwordField'})->canonical()
					), "\n";
		} else {
			print "NOK getLDAP() failed: $ri\n" if (ref($ri) ne "ARRAY");
		}
	} else {
		print "NOK permission denied\n";
	}
</%perl>

--- NEW FILE: getRadiusSecret.mhtml ---
<%doc>
</%doc>
<%args>
	$server => '';
</%args>
<%perl>
	use URI;
	# validate perms
	my ($isRoot, $junk) = $m->comp('/Admin/MemberOf', 'acl' => [ 'Admin' ], 'group' => 'default');

	if ($isRoot && $server) {
		my $ri = $np->cfg->getRadius($server);
		if (ref($ri) eq "HASH") {
			print "OK ", URI->new($ri->{'secret'})->canonical(), "\n";
		} else {
			print "NOK getRadius() failed: $ri\n" if (ref($ri) ne "ARRAY");
		}
	} else {
		print "NOK permission denied\n";
	}
</%perl>