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

[Matt <mt...@us...>]

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

Added Files:
	FormNPApi 
Log Message:


--- NEW FILE: FormNPApi ---
<%doc>
</%doc>
<%args>
	$submit		=> '';
</%args>

<%perl>
	if ($submit eq "Commit Changes") {

		foreach my $nparg (keys %ARGS) {
			my $var;
			if ($nparg =~ /^npapi:(\w+)$/) {
				$var = $1;
			} else {
				next;
			}

			if (!$np->cfg->{'cfg'}->exists('npapi')) {
				$np->cfg->{'cfg'}->npapi({});
			}
			$np->cfg->{'cfg'}->obj('npapi')->$var($ARGS{"npapi:$var"});
		}
		$np->cfg->save(-user => $m->session->{'username'});
	}

sub getnpapivalue {
	my $val = shift;

	if ($np->cfg->{'cfg'}->exists('npapi') &&
	    $np->cfg->{'cfg'}->obj('npapi')->exists($val)) {
		return $np->cfg->{'cfg'}->obj('npapi')->value($val);
	}

	return "";
}
</%perl>

<TABLE WIDTH=800 class="expandable" ID="npapiConfig" CELLSPACING=2 CELLPADDING=2>
<THEAD>
<TR><TH onclick="showHideObj2(getElementById('npapiConfig').tBodies[0]);" COLSPAN=2>NetPass API</TH></TR>
</THEAD>
<TBODY>
<TR><TD CLASS='left'>Port</TD><TD CLASS='right'><input type="text" name="npapi:port" value="<%getnpapivalue('port')%>" size="25
" /></TD></TR>
<TR><TD CLASS='left'>Secret</TD><TD CLASS='right'><input type="text" name="npapi:secret" value="<%getnpapivalue('secret')%>" size
="25"/></TD></TR>
</TBODY>
</TABLE>
<BR>