<rsb:import lib="RSSBus.LdapOps" />

<rsb:info title="Change Active Directory Password">
  <input name="server" required="true" />
  <input name="port" default="636" required="true" />
  <input name="admindn" required="true" />
  <input name="adminpassword" required="true" />
</rsb:info>

<style>
.myinput { width:150px; }
</style>

<table>
  <tr><td>User:</td><td><input type="text" class="myinput" style="width:150px" name="user" value="[_spuser.LoginName]"/></td></tr>
  <tr><td>Old Password:</td><td><input type="password" class="myinput" name="oldpassword" /></td></tr>
  <tr><td>New Password:</td><td><input type="password" class="myinput"  name="newpassword" /></td></tr>
  <tr><td>Confirm:</td><td><input type="password" class="myinput"  name="confirmpassword" /></td></tr>
  <tr><td></td><td align="right"><input type="submit" value="Submit"/></td></tr>
</table>

<!-- check to see if they've submitted the required info: -->
<rsb:check attr="_request.oldpassword">

<!-- set LDAP connectivity properties (636 is ssl) -->
<rsb:set attr="server" value="[server]" />
<rsb:set attr="port" value="[port]" />
<rsb:set attr="sslmode" value="IMPLICIT" />
<rsb:set attr="authdn" value="[admindn]" />
<rsb:set attr="password" value="[adminpassword]" />

<!-- and now change the password -->
<rsb:set attr="dn" value="[_request.user]" />
<rsb:set attr="oldpassword" value="[_request.oldpassword]" />
<rsb:set attr="newpassword" value="[_request.newpassword]" />
<rsb:set attr="confirmpassword" value="[_request.confirmpassword]" />
<rsb:call op="ldapChangePassword">
  [rss:title]<br />
  [ldap:result]
</rsb:call>

</rsb:check>